mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(mail-abbrevs-enable, mail-abbrevs-disable):

Browse Source 
Use mail-mode-hook instead of mail-setup-hook.  Otherwise
continuing an interrupted message with C-u C-x m for instence,
winds up in Mail mode without abbrevs.
This commit is contained in:
Gerd Moellmann 2000-12-29 12:19:28 +00:00
parent bd7a2e2617
commit bde4c7ce90
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/mailabbrev.el
View File

@ -109,7 +109,7 @@
;; type SPC at the end of the abbrev before moving away) then you can do
;;
;; (add-hook
;; 'mail-setup-hook
;; 'mail-mode-hook
;; (lambda ()
;; (substitute-key-definition 'next-line 'mail-abbrev-next-line
;; mail-mode-map global-map)
@ -124,7 +124,7 @@
;; Thanks to Harald Hanche-Olsen, Michael Ernst, David Loeffler, and
;; Noah Friedman for suggestions and bug reports.
;; To use this package, do (add-hook 'mail-setup-hook 'mail-abbrevs-setup).
;; To use this package, do (add-hook 'mail-mode-hook 'mail-abbrevs-setup).
;;; Code:
@ -185,11 +185,11 @@ no aliases, which is represented by this being a table with no entries.)")
(abbrev-mode 1))
(defun mail-abbrevs-enable ()
(add-hook 'mail-setup-hook 'mail-abbrevs-setup))
(add-hook 'mail-mode-hook 'mail-abbrevs-setup))
(defun mail-abbrevs-disable ()
"Turn off use of the `mailabbrev' package."
(remove-hook 'mail-setup-hook 'mail-abbrevs-setup)
(remove-hook 'mail-mode-hook 'mail-abbrevs-setup)
(abbrev-mode (if (default-value 'abbrev-mode) 1 -1)))
;;;###autoload