Commit 7b1bf173 authored by Glenn Morris's avatar Glenn Morris
Browse files

Use new names for hooks rather than obsolete aliases

* lisp/cedet/semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
* lisp/cedet/semantic/util.el (semantic-describe-buffer):
* lisp/cedet/semantic/bovine/c.el (semantic-c-parse-lexical-token)
(semantic-default-c-setup):
* lisp/emacs-lisp/eieio-datadebug.el (eieio-debug-methodinvoke):
* lisp/gnus/gnus-diary.el (nndiary-request-create-group-functions)
(nndiary-request-update-info-functions)
(gnus-subscribe-newsgroup-functions)
(nndiary-request-accept-article-functions):
* lisp/net/tramp-gvfs.el (tramp-gvfs-dbus-event-error):
Use new names for hooks rather than obsolete aliases.

* lisp/arc-mode.el:
* lisp/emacs-lisp/checkdoc.el: Related comments.

* etc/NEWS: Related markup.
parent f8705f6e
...@@ -629,6 +629,7 @@ enabled. ...@@ -629,6 +629,7 @@ enabled.
** FIXME something happened to ses.el, 2012-04-17. ** FIXME something happened to ses.el, 2012-04-17.
+++
** Hooks renamed to avoid obsolete "-hooks" suffix: ** Hooks renamed to avoid obsolete "-hooks" suffix:
*** semantic-lex-reset-hooks -> semantic-lex-reset-functions *** semantic-lex-reset-hooks -> semantic-lex-reset-functions
*** semantic-change-hooks -> semantic-change-functions *** semantic-change-hooks -> semantic-change-functions
......
2012-11-13 Glenn Morris <rgm@gnu.org>
* emacs-lisp/eieio-datadebug.el (eieio-debug-methodinvoke):
* net/tramp-gvfs.el (tramp-gvfs-dbus-event-error):
Use new names for hooks rather than obsolete aliases.
2012-11-12 Stefan Monnier <monnier@iro.umontreal.ca> 2012-11-12 Stefan Monnier <monnier@iro.umontreal.ca>
   
* emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871). * emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871).
......
...@@ -96,7 +96,7 @@ ...@@ -96,7 +96,7 @@
;; ;;
;; archive-mode-hook ;; archive-mode-hook
;; archive-foo-mode-hook ;; archive-foo-mode-hook
;; archive-extract-hooks ;; archive-extract-hook
;;; Code: ;;; Code:
......
2012-11-13 Glenn Morris <rgm@gnu.org>
* semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
* semantic/util.el (semantic-describe-buffer):
* semantic/bovine/c.el (semantic-c-parse-lexical-token)
(semantic-default-c-setup):
Use new names for hooks rather than obsolete aliases.
2012-11-12 Stefan Monnier <monnier@iro.umontreal.ca> 2012-11-12 Stefan Monnier <monnier@iro.umontreal.ca>
* semantic/mru-bookmark.el (semantic-mru-bookmark-mode): * semantic/mru-bookmark.el (semantic-mru-bookmark-mode):
......
...@@ -931,8 +931,8 @@ the regular parser." ...@@ -931,8 +931,8 @@ the regular parser."
(setq semantic-new-buffer-fcn-was-run t) (setq semantic-new-buffer-fcn-was-run t)
(semantic-lex-init) (semantic-lex-init)
(semantic-clear-toplevel-cache) (semantic-clear-toplevel-cache)
(remove-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook (remove-hook 'semantic-lex-reset-functions
t) 'semantic-lex-spp-reset-hook t)
) )
;; Get the macro symbol table right. ;; Get the macro symbol table right.
(setq semantic-lex-spp-dynamic-macro-symbol-obarray spp-syms) (setq semantic-lex-spp-dynamic-macro-symbol-obarray spp-syms)
...@@ -2073,7 +2073,7 @@ actually in their parent which is not accessible.") ...@@ -2073,7 +2073,7 @@ actually in their parent which is not accessible.")
) )
(setq semantic-lex-analyzer #'semantic-c-lexer) (setq semantic-lex-analyzer #'semantic-c-lexer)
(add-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook nil t) (add-hook 'semantic-lex-reset-functions 'semantic-lex-spp-reset-hook nil t)
(when (eq major-mode 'c++-mode) (when (eq major-mode 'c++-mode)
(add-to-list 'semantic-lex-c-preprocessor-symbol-map '("__cplusplus" . ""))) (add-to-list 'semantic-lex-c-preprocessor-symbol-map '("__cplusplus" . "")))
) )
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
;; If you use SPP in your language, be sure to specify this in your ;; If you use SPP in your language, be sure to specify this in your
;; semantic language setup function: ;; semantic language setup function:
;; ;;
;; (add-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook nil t) ;; (add-hook 'semantic-lex-reset-functions 'semantic-lex-spp-reset-hook nil t)
;; ;;
;; ;;
;; Special Lexical Tokens: ;; Special Lexical Tokens:
...@@ -947,8 +947,8 @@ and variable state from the current buffer." ...@@ -947,8 +947,8 @@ and variable state from the current buffer."
(setq semantic-new-buffer-fcn-was-run t) (setq semantic-new-buffer-fcn-was-run t)
(semantic-lex-init) (semantic-lex-init)
(semantic-clear-toplevel-cache) (semantic-clear-toplevel-cache)
(remove-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook (remove-hook 'semantic-lex-reset-functions
t) 'semantic-lex-spp-reset-hook t)
)) ))
;; Second Cheat: copy key variables regarding macro state from the ;; Second Cheat: copy key variables regarding macro state from the
......
...@@ -280,7 +280,7 @@ If TAG is not specified, use the tag at point." ...@@ -280,7 +280,7 @@ If TAG is not specified, use the tag at point."
semantic-parser-name semantic-parser-name
semantic-parse-tree-state semantic-parse-tree-state
semantic-lex-analyzer semantic-lex-analyzer
semantic-lex-reset-hooks semantic-lex-reset-functions
semantic-lex-syntax-modifications semantic-lex-syntax-modifications
))) )))
(dolist (V vars) (dolist (V vars)
......
...@@ -124,7 +124,7 @@ ...@@ -124,7 +124,7 @@
;; Adding your own checks: ;; Adding your own checks:
;; ;;
;; You can experiment with adding your own checks by setting the ;; You can experiment with adding your own checks by setting the
;; hooks `checkdoc-style-functions' and `checkdoc-comment-style-hooks'. ;; hooks `checkdoc-style-functions' and `checkdoc-comment-style-functions'.
;; Return a string which is the error you wish to report. The cursor ;; Return a string which is the error you wish to report. The cursor
;; position should be preserved. ;; position should be preserved.
;; ;;
......
...@@ -131,7 +131,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button." ...@@ -131,7 +131,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button."
(defun eieio-debug-methodinvoke (method class) (defun eieio-debug-methodinvoke (method class)
"Show the method invocation order for METHOD with CLASS object." "Show the method invocation order for METHOD with CLASS object."
(interactive "aMethod: \nXClass Expression: ") (interactive "aMethod: \nXClass Expression: ")
(let* ((eieio-pre-method-execution-hooks (let* ((eieio-pre-method-execution-functions
(lambda (l) (throw 'moose l) )) (lambda (l) (throw 'moose l) ))
(data (data
(catch 'moose (eieio-generic-call (catch 'moose (eieio-generic-call
......
2012-11-13 Glenn Morris <rgm@gnu.org>
* gnus-diary.el (nndiary-request-create-group-functions)
(nndiary-request-update-info-functions)
(gnus-subscribe-newsgroup-functions)
(nndiary-request-accept-article-functions):
Use new names for hooks rather than obsolete aliases.
2012-10-23 Stefan Monnier <monnier@iro.umontreal.ca> 2012-10-23 Stefan Monnier <monnier@iro.umontreal.ca>
   
* nndiary.el (nndiary-request-create-group-functions) * nndiary.el (nndiary-request-create-group-functions)
......
...@@ -277,18 +277,18 @@ Optional prefix (or REVERSE argument) means sort in reverse order." ...@@ -277,18 +277,18 @@ Optional prefix (or REVERSE argument) means sort in reverse order."
;; Called when a group is subscribed. This is needed because groups created ;; Called when a group is subscribed. This is needed because groups created
;; because of mail splitting are *not* created with the back end function. ;; because of mail splitting are *not* created with the back end function.
;; Thus, `nndiary-request-create-group-hooks' is inoperative. ;; Thus, `nndiary-request-create-group-functions' is inoperative.
(defun gnus-diary-maybe-update-group-parameters (group) (defun gnus-diary-maybe-update-group-parameters (group)
(when (eq (car (gnus-find-method-for-group group)) 'nndiary) (when (eq (car (gnus-find-method-for-group group)) 'nndiary)
(gnus-diary-update-group-parameters group))) (gnus-diary-update-group-parameters group)))
(add-hook 'nndiary-request-create-group-hooks (add-hook 'nndiary-request-create-group-functions
'gnus-diary-update-group-parameters) 'gnus-diary-update-group-parameters)
;; Now that we have `gnus-subscribe-newsgroup-hooks', this is not needed ;; Now that we have `gnus-subscribe-newsgroup-functions', this is not needed
;; anymore. Maybe I should remove this completely. ;; anymore. Maybe I should remove this completely.
(add-hook 'nndiary-request-update-info-hooks (add-hook 'nndiary-request-update-info-functions
'gnus-diary-update-group-parameters) 'gnus-diary-update-group-parameters)
(add-hook 'gnus-subscribe-newsgroup-hooks (add-hook 'gnus-subscribe-newsgroup-functions
'gnus-diary-maybe-update-group-parameters) 'gnus-diary-maybe-update-group-parameters)
...@@ -384,7 +384,7 @@ If ARG (or prefix) is non-nil, force prompting for all fields." ...@@ -384,7 +384,7 @@ If ARG (or prefix) is non-nil, force prompting for all fields."
nndiary-headers) nndiary-headers)
)) ))
(add-hook 'nndiary-request-accept-article-hooks (add-hook 'nndiary-request-accept-article-functions
(lambda () (gnus-diary-check-message nil))) (lambda () (gnus-diary-check-message nil)))
(define-key message-mode-map "\C-c\C-fd" 'gnus-diary-check-message) (define-key message-mode-map "\C-c\C-fd" 'gnus-diary-check-message)
......
...@@ -521,12 +521,12 @@ It is needed when D-Bus signals or errors arrive, because there ...@@ -521,12 +521,12 @@ It is needed when D-Bus signals or errors arrive, because there
is no information where to trace the message.") is no information where to trace the message.")
(defun tramp-gvfs-dbus-event-error (event err) (defun tramp-gvfs-dbus-event-error (event err)
"Called when a D-Bus error message arrives, see `dbus-event-error-hooks'." "Called when a D-Bus error message arrives, see `dbus-event-error-functions'."
(when tramp-gvfs-dbus-event-vector (when tramp-gvfs-dbus-event-vector
(tramp-message tramp-gvfs-dbus-event-vector 10 "%S" event) (tramp-message tramp-gvfs-dbus-event-vector 10 "%S" event)
(tramp-error tramp-gvfs-dbus-event-vector 'file-error "%s" (cadr err)))) (tramp-error tramp-gvfs-dbus-event-vector 'file-error "%s" (cadr err))))
(add-hook 'dbus-event-error-hooks 'tramp-gvfs-dbus-event-error) (add-hook 'dbus-event-error-functions 'tramp-gvfs-dbus-event-error)
;; File name primitives. ;; File name primitives.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment