aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/filesets.el
diff options
context:
space:
mode:
authorStefan Monnier2012-10-23 11:06:07 -0400
committerStefan Monnier2012-10-23 11:06:07 -0400
commitd106953274d29b6be4ef7e2c442078c81a52ff2f (patch)
tree1daf5ea3f0c8d0ed1914ba3fc339b1dd23438e20 /lisp/filesets.el
parentf7eac6d887b7768034e40f16dacbb0c8fb569417 (diff)
downloademacs-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.el8
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
409The hook is called with the cache file as current buffer and the cursor 411The hook is called with the cache file as current buffer and the cursor
410at the last position. I.e. each hook has to make sure that the cursor is 412at 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)))