diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-23 11:06:07 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-23 11:06:07 -0400 |
| commit | d106953274d29b6be4ef7e2c442078c81a52ff2f (patch) | |
| tree | 1daf5ea3f0c8d0ed1914ba3fc339b1dd23438e20 /lisp/cedet/semantic/db-file.el | |
| parent | f7eac6d887b7768034e40f16dacbb0c8fb569417 (diff) | |
| download | emacs-d106953274d29b6be4ef7e2c442078c81a52ff2f.tar.gz | |
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/cedet/semantic/db-file.el')
| -rw-r--r-- | lisp/cedet/semantic/db-file.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/db-file.el b/lisp/cedet/semantic/db-file.el index 7b4a47bd260..4f8e93dc391 100644 --- a/lisp/cedet/semantic/db-file.el +++ b/lisp/cedet/semantic/db-file.el @@ -70,7 +70,9 @@ passes a list of predicates in `semanticdb-project-predicate-functions'." :group 'semanticdb :type nil) -(defcustom semanticdb-save-database-hooks nil +(define-obsolete-variable-alias 'semanticdb-save-database-hooks + 'semanticdb-save-database-functions "24.3") +(defcustom semanticdb-save-database-functions nil "Abnormal hook run after a database is saved. Each function is called with one argument, the object representing the database recently written." @@ -251,7 +253,7 @@ If DB is not specified, then use the current database." (message "Save Error: %S: %s" (car (cdr foo)) objname) (error "%S" (car (cdr foo)))))))) - (run-hook-with-args 'semanticdb-save-database-hooks + (run-hook-with-args 'semanticdb-save-database-functions (or DB semanticdb-current-database)) ;;(message "Saving tag summary for %s...done" objname) ) |