diff options
| author | Stefan Monnier | 2012-10-23 11:06:07 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-10-23 11:06:07 -0400 |
| commit | d106953274d29b6be4ef7e2c442078c81a52ff2f (patch) | |
| tree | 1daf5ea3f0c8d0ed1914ba3fc339b1dd23438e20 /lisp/mh-e | |
| parent | f7eac6d887b7768034e40f16dacbb0c8fb569417 (diff) | |
| download | emacs-d106953274d29b6be4ef7e2c442078c81a52ff2f.tar.gz emacs-d106953274d29b6be4ef7e2c442078c81a52ff2f.zip | |
Cleanup uses of "-hooks".
* doc/emacs/custom.texi (Hooks):
* doc/lispref/hooks.texi (Standard Hooks): Clarify that -hooks is deprecated.
* lisp/gnus/nndiary.el (nndiary-request-create-group-functions)
(nndiary-request-update-info-functions)
(nndiary-request-accept-article-functions):
* lisp/gnus/gnus-start.el (gnus-subscribe-newsgroup-functions):
* lisp/cedet/semantic/db-file.el (semanticdb-save-database-functions):
* lisp/cedet/semantic/lex.el (semantic-lex-reset-functions):
* lisp/cedet/semantic/edit.el (semantic-change-functions)
(semantic-edits-new-change-functions)
(semantic-edits-delete-change-functions)
(semantic-edits-reparse-change-functions):
* lisp/htmlfontify.el (hfy-post-html-hook):
* lisp/filesets.el (filesets-cache-fill-content-hook):
* lisp/arc-mode.el (archive-extract-hook):
* lisp/progmodes/cc-mode.el (c-prepare-bug-report-hook):
* lisp/net/rcirc.el (rcirc-sentinel-functions)
(rcirc-receive-message-functions, rcirc-activity-functions)
(rcirc-print-functions):
* lisp/net/dbus.el (dbus-event-error-functions):
* lisp/emacs-lisp/eieio.el (eieio-pre-method-execution-functions):
* lisp/emacs-lisp/checkdoc.el (checkdoc-style-functions)
(checkdoc-comment-style-functions): Don't use "-hooks" suffix.
* lisp/term/sun.el (sun-raw-prefix-hooks):
* lisp/mail/sendmail.el (mail-yank-hooks):
* lisp/mh-e/mh-letter.el (mh-yank-hooks): Use make-obsolete-variable.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-e.el | 4 | ||||
| -rw-r--r-- | lisp/mh-e/mh-letter.el | 5 |
3 files changed, 10 insertions, 3 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 6eedef1980e..adc8707f011 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2012-10-23 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * mh-letter.el (mh-yank-hooks): Use make-obsolete-variable. | ||
| 4 | |||
| 1 | 2012-04-25 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2012-04-25 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 6 | ||
| 3 | * mh-utils.el (minibuffer-completing-file-name): Don't declare, unused. | 7 | * mh-utils.el (minibuffer-completing-file-name): Don't declare, unused. |
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 2723fb5e684..705c92b0b4c 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el | |||
| @@ -3189,7 +3189,9 @@ function used to insert the signature with | |||
| 3189 | :group 'mh-letter | 3189 | :group 'mh-letter |
| 3190 | :package-version '(MH-E . "8.0")) | 3190 | :package-version '(MH-E . "8.0")) |
| 3191 | 3191 | ||
| 3192 | (defcustom-mh mh-kill-folder-suppress-prompt-hooks '(mh-search-p) | 3192 | (define-obsolete-variable-alias 'mh-kill-folder-suppress-prompt-hooks |
| 3193 | 'mh-kill-folder-suppress-prompt-functions "24.3") | ||
| 3194 | (defcustom-mh mh-kill-folder-suppress-prompt-functions '(mh-search-p) | ||
| 3193 | "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. | 3195 | "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder]. |
| 3194 | 3196 | ||
| 3195 | The hook functions are called with no arguments and should return | 3197 | The hook functions are called with no arguments and should return |
diff --git a/lisp/mh-e/mh-letter.el b/lisp/mh-e/mh-letter.el index 8aed1873348..490bfc07560 100644 --- a/lisp/mh-e/mh-letter.el +++ b/lisp/mh-e/mh-letter.el | |||
| @@ -66,8 +66,9 @@ Each hook function can find the citation between point and mark. | |||
| 66 | And each hook function should leave point and mark around the | 66 | And each hook function should leave point and mark around the |
| 67 | citation text as modified. | 67 | citation text as modified. |
| 68 | 68 | ||
| 69 | This is a normal hook, misnamed for historical reasons. It is | 69 | This is a normal hook, misnamed for historical reasons. |
| 70 | semi-obsolete and is only used if `mail-citation-hook' is nil.") | 70 | It is obsolete and is only used if `mail-citation-hook' is nil.") |
| 71 | (make-obsolete-variable 'mh-yank-hooks 'mail-citation-hook "19.34") | ||
| 71 | 72 | ||
| 72 | 73 | ||
| 73 | 74 | ||