Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f512e4c0
Commit
f512e4c0
authored
Feb 02, 1996
by
Simon Marshall
Browse files
Fix up specialised fontification stuff.
parent
3d0c5302
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
11 deletions
+17
-11
lisp/mail/rmail.el
lisp/mail/rmail.el
+17
-11
No files found.
lisp/mail/rmail.el
View file @
f512e4c0
...
...
@@ -647,11 +647,12 @@ Instead, these commands are available:
(defun rmail-variables ()
(make-local-variable 'revert-buffer-function)
(setq revert-buffer-function 'rmail-revert)
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults
'(rmail-font-lock-keywords t nil nil nil
(
rmail
-fontify-buffer-function rmail-
un
fontify-buffer-function
nil nil
(f
as
t-lock-
mode)))
)
(setq
font-lock-
defaults '(rmail-font-lock-keywords t
))
(
font-lock
-fontify-buffer-function
.
rmail-fontify-buffer-function
)
(f
on
t-lock-
unfontify-buffer-function . rmail-unfontify-buffer-function
)
(
font-lock-
inhibit-thing-lock . (lazy-lock-mode fast-lock-mode))
))
(make-local-variable 'rmail-last-label)
(make-local-variable 'rmail-last-regexp)
(make-local-variable 'rmail-deleted-vector)
...
...
@@ -2532,17 +2533,22 @@ This has an effect only if a summary buffer exists.")
(
defun
rmail-fontify-buffer-function
()
;; This function's symbol is bound to font-lock-fontify-buffer-function.
(
if
(
and
(
boundp
'lazy-lock-mode
)
lazy-lock-mode
)
(
setq
font-lock-fontify-buffer-function
'font-lock-default-fontify-buffer
)
(
make-local-hook
'rmail-show-message-hook
)
(
add-hook
'rmail-show-message-hook
'rmail-fontify-message
nil
t
)
(
rmail-fontify-message
)))
(
make-local-hook
'rmail-show-message-hook
)
(
add-hook
'rmail-show-message-hook
'rmail-fontify-message
nil
t
)
(
rmail-fontify-message
)
(
setq
font-lock-fontified
t
))
(
defun
rmail-unfontify-buffer-function
()
;; This function's symbol is bound to font-lock-fontify-unbuffer-function.
(
remove-hook
'rmail-show-message-hook
'rmail-fontify-message
t
)
(
font-lock-default-unfontify-buffer
))
(
let
((
modified
(
buffer-modified-p
))
(
buffer-undo-list
t
)
(
inhibit-read-only
t
)
before-change-functions
after-change-functions
buffer-file-name
buffer-file-truename
)
(
save-restriction
(
widen
)
(
remove-hook
'rmail-show-message-hook
'rmail-fontify-message
t
)
(
remove-text-properties
(
point-min
)
(
point-max
)
'
(
rmail-fontified
nil
))
(
font-lock-default-unfontify-buffer
))))
(
defun
rmail-fontify-message
()
;; Fontify the current message if it is not already fontified.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment