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/filesets.el | |
| 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/filesets.el')
| -rw-r--r-- | lisp/filesets.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/filesets.el b/lisp/filesets.el index a91d8cf0fcb..7f695cf33dd 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el | |||
| @@ -403,8 +403,10 @@ Don't forget to check out `filesets-menu-ensure-use-cached'." | |||
| 403 | (sexp :tag "Other" :value nil))) | 403 | (sexp :tag "Other" :value nil))) |
| 404 | :group 'filesets) | 404 | :group 'filesets) |
| 405 | 405 | ||
| 406 | (defcustom filesets-cache-fill-content-hooks nil | 406 | (define-obsolete-variable-alias 'filesets-cache-fill-content-hooks |
| 407 | "Hooks to run when writing the contents of filesets' cache file. | 407 | 'filesets-cache-fill-content-hook "24.3") |
| 408 | (defcustom filesets-cache-fill-content-hook nil | ||
| 409 | "Hook run when writing the contents of filesets' cache file. | ||
| 408 | 410 | ||
| 409 | The hook is called with the cache file as current buffer and the cursor | 411 | The hook is called with the cache file as current buffer and the cursor |
| 410 | at the last position. I.e. each hook has to make sure that the cursor is | 412 | at the last position. I.e. each hook has to make sure that the cursor is |
| @@ -2414,7 +2416,7 @@ fileset thinks this is necessary or not." | |||
| 2414 | (when filesets-cache-hostname-flag | 2416 | (when filesets-cache-hostname-flag |
| 2415 | (insert (format "(setq filesets-cache-hostname %S)" (system-name))) | 2417 | (insert (format "(setq filesets-cache-hostname %S)" (system-name))) |
| 2416 | (newline 2)) | 2418 | (newline 2)) |
| 2417 | (run-hooks 'filesets-cache-fill-content-hooks) | 2419 | (run-hooks 'filesets-cache-fill-content-hook) |
| 2418 | (write-file filesets-menu-cache-file)) | 2420 | (write-file filesets-menu-cache-file)) |
| 2419 | (setq filesets-has-changed-flag nil) | 2421 | (setq filesets-has-changed-flag nil) |
| 2420 | (setq filesets-update-cache-file-flag nil))) | 2422 | (setq filesets-update-cache-file-flag nil))) |