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
11079525
Commit
11079525
authored
Jul 18, 1994
by
Richard M. Stallman
Browse files
(mh-folder-mode): Use local-write-file-hooks.
parent
9081378e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/mail/mh-e.el
lisp/mail/mh-e.el
+4
-4
No files found.
lisp/mail/mh-e.el
View file @
11079525
...
...
@@ -52,7 +52,7 @@
;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu
(
defconst
mh-e-RCS-id
"$Header: mh-e.el,v
3.15
94/04/13
11:36:48 gildea Exp
$"
)
(
defconst
mh-e-RCS-id
"$Header:
/home/fsf/rms/e19/lisp/RCS/
mh-e.el,v
1.2 19
94/04/13
20:42:10 rms Exp rms
$"
)
;;; Code:
...
...
@@ -280,7 +280,7 @@ provided, then prompt for the message sequence."
(
mh-set-scan-mode
)
(
mh-goto-cur-msg
)
; after mh-set-scan-mode for efficiency
(
mh-make-folder-mode-line
)
t
)
; return t for write-file-hooks
t
)
; return t for
local-
write-file-hooks
(
defun
mh-first-msg
()
...
...
@@ -772,8 +772,8 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
(
setq
truncate-lines
t
)
(
auto-save-mode
-1
)
(
setq
buffer-offer-save
t
)
(
make-local-variable
'write-file-hooks
)
(
setq
write-file-hooks
'
(
mh-execute-commands
))
(
make-local-variable
'
local-
write-file-hooks
)
(
setq
local-
write-file-hooks
'
(
mh-execute-commands
))
(
make-local-variable
'revert-buffer-function
)
(
setq
revert-buffer-function
'mh-undo-folder
)
(
or
(
assq
'mh-showing
minor-mode-alist
)
...
...
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