aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2012-11-12 19:11:46 -0800
committerGlenn Morris2012-11-12 19:11:46 -0800
commit7b1bf1735e58fbadbe180d4bbbe3a00cf71baed4 (patch)
tree915ff00197aae7f1fa4f851048b2b36d174a3d5c
parentf8705f6e3102454bf1e3213956eb3ac8160ff047 (diff)
downloademacs-7b1bf1735e58fbadbe180d4bbbe3a00cf71baed4.tar.gz
emacs-7b1bf1735e58fbadbe180d4bbbe3a00cf71baed4.zip
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.
-rw-r--r--etc/NEWS1
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/arc-mode.el2
-rw-r--r--lisp/cedet/ChangeLog8
-rw-r--r--lisp/cedet/semantic/bovine/c.el6
-rw-r--r--lisp/cedet/semantic/lex-spp.el6
-rw-r--r--lisp/cedet/semantic/util.el2
-rw-r--r--lisp/emacs-lisp/checkdoc.el2
-rw-r--r--lisp/emacs-lisp/eieio-datadebug.el2
-rw-r--r--lisp/gnus/ChangeLog8
-rw-r--r--lisp/gnus/gnus-diary.el12
-rw-r--r--lisp/net/tramp-gvfs.el4
12 files changed, 41 insertions, 18 deletions
diff --git a/etc/NEWS b/etc/NEWS
index 623b40bb64f..00106469415 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -629,6 +629,7 @@ enabled.
629 629
630** FIXME something happened to ses.el, 2012-04-17. 630** FIXME something happened to ses.el, 2012-04-17.
631 631
632+++
632** Hooks renamed to avoid obsolete "-hooks" suffix: 633** Hooks renamed to avoid obsolete "-hooks" suffix:
633*** semantic-lex-reset-hooks -> semantic-lex-reset-functions 634*** semantic-lex-reset-hooks -> semantic-lex-reset-functions
634*** semantic-change-hooks -> semantic-change-functions 635*** semantic-change-hooks -> semantic-change-functions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ad7230e912..61d202433fc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12012-11-13 Glenn Morris <rgm@gnu.org>
2
3 * emacs-lisp/eieio-datadebug.el (eieio-debug-methodinvoke):
4 * net/tramp-gvfs.el (tramp-gvfs-dbus-event-error):
5 Use new names for hooks rather than obsolete aliases.
6
12012-11-12 Stefan Monnier <monnier@iro.umontreal.ca> 72012-11-12 Stefan Monnier <monnier@iro.umontreal.ca>
2 8
3 * emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871). 9 * emacs-lisp/gv.el (gv-define-simple-setter): One more fix (bug#12871).
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index cebd4302d0c..9fc91a242d2 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -96,7 +96,7 @@
96;; 96;;
97;; archive-mode-hook 97;; archive-mode-hook
98;; archive-foo-mode-hook 98;; archive-foo-mode-hook
99;; archive-extract-hooks 99;; archive-extract-hook
100 100
101;;; Code: 101;;; Code:
102 102
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 6de901848c7..56207c7ae57 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,11 @@
12012-11-13 Glenn Morris <rgm@gnu.org>
2
3 * semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
4 * semantic/util.el (semantic-describe-buffer):
5 * semantic/bovine/c.el (semantic-c-parse-lexical-token)
6 (semantic-default-c-setup):
7 Use new names for hooks rather than obsolete aliases.
8
12012-11-12 Stefan Monnier <monnier@iro.umontreal.ca> 92012-11-12 Stefan Monnier <monnier@iro.umontreal.ca>
2 10
3 * semantic/mru-bookmark.el (semantic-mru-bookmark-mode): 11 * semantic/mru-bookmark.el (semantic-mru-bookmark-mode):
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 02ad6e05d1a..a3d57108d1d 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -931,8 +931,8 @@ the regular parser."
931 (setq semantic-new-buffer-fcn-was-run t) 931 (setq semantic-new-buffer-fcn-was-run t)
932 (semantic-lex-init) 932 (semantic-lex-init)
933 (semantic-clear-toplevel-cache) 933 (semantic-clear-toplevel-cache)
934 (remove-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook 934 (remove-hook 'semantic-lex-reset-functions
935 t) 935 'semantic-lex-spp-reset-hook t)
936 ) 936 )
937 ;; Get the macro symbol table right. 937 ;; Get the macro symbol table right.
938 (setq semantic-lex-spp-dynamic-macro-symbol-obarray spp-syms) 938 (setq semantic-lex-spp-dynamic-macro-symbol-obarray spp-syms)
@@ -2073,7 +2073,7 @@ actually in their parent which is not accessible.")
2073 ) 2073 )
2074 2074
2075 (setq semantic-lex-analyzer #'semantic-c-lexer) 2075 (setq semantic-lex-analyzer #'semantic-c-lexer)
2076 (add-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook nil t) 2076 (add-hook 'semantic-lex-reset-functions 'semantic-lex-spp-reset-hook nil t)
2077 (when (eq major-mode 'c++-mode) 2077 (when (eq major-mode 'c++-mode)
2078 (add-to-list 'semantic-lex-c-preprocessor-symbol-map '("__cplusplus" . ""))) 2078 (add-to-list 'semantic-lex-c-preprocessor-symbol-map '("__cplusplus" . "")))
2079 ) 2079 )
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el
index 406f2900563..ad366c2b94f 100644
--- a/lisp/cedet/semantic/lex-spp.el
+++ b/lisp/cedet/semantic/lex-spp.el
@@ -30,7 +30,7 @@
30;; If you use SPP in your language, be sure to specify this in your 30;; If you use SPP in your language, be sure to specify this in your
31;; semantic language setup function: 31;; semantic language setup function:
32;; 32;;
33;; (add-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook nil t) 33;; (add-hook 'semantic-lex-reset-functions 'semantic-lex-spp-reset-hook nil t)
34;; 34;;
35;; 35;;
36;; Special Lexical Tokens: 36;; Special Lexical Tokens:
@@ -947,8 +947,8 @@ and variable state from the current buffer."
947 (setq semantic-new-buffer-fcn-was-run t) 947 (setq semantic-new-buffer-fcn-was-run t)
948 (semantic-lex-init) 948 (semantic-lex-init)
949 (semantic-clear-toplevel-cache) 949 (semantic-clear-toplevel-cache)
950 (remove-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook 950 (remove-hook 'semantic-lex-reset-functions
951 t) 951 'semantic-lex-spp-reset-hook t)
952 )) 952 ))
953 953
954 ;; Second Cheat: copy key variables regarding macro state from the 954 ;; Second Cheat: copy key variables regarding macro state from the
diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index 65201c4fd12..f3d30f6af5c 100644
--- a/lisp/cedet/semantic/util.el
+++ b/lisp/cedet/semantic/util.el
@@ -280,7 +280,7 @@ If TAG is not specified, use the tag at point."
280 semantic-parser-name 280 semantic-parser-name
281 semantic-parse-tree-state 281 semantic-parse-tree-state
282 semantic-lex-analyzer 282 semantic-lex-analyzer
283 semantic-lex-reset-hooks 283 semantic-lex-reset-functions
284 semantic-lex-syntax-modifications 284 semantic-lex-syntax-modifications
285 ))) 285 )))
286 (dolist (V vars) 286 (dolist (V vars)
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index ffa42e97221..1cbed17cbab 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -124,7 +124,7 @@
124;; Adding your own checks: 124;; Adding your own checks:
125;; 125;;
126;; You can experiment with adding your own checks by setting the 126;; You can experiment with adding your own checks by setting the
127;; hooks `checkdoc-style-functions' and `checkdoc-comment-style-hooks'. 127;; hooks `checkdoc-style-functions' and `checkdoc-comment-style-functions'.
128;; Return a string which is the error you wish to report. The cursor 128;; Return a string which is the error you wish to report. The cursor
129;; position should be preserved. 129;; position should be preserved.
130;; 130;;
diff --git a/lisp/emacs-lisp/eieio-datadebug.el b/lisp/emacs-lisp/eieio-datadebug.el
index ec470d21bf3..a1db1972b83 100644
--- a/lisp/emacs-lisp/eieio-datadebug.el
+++ b/lisp/emacs-lisp/eieio-datadebug.el
@@ -131,7 +131,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button."
131(defun eieio-debug-methodinvoke (method class) 131(defun eieio-debug-methodinvoke (method class)
132 "Show the method invocation order for METHOD with CLASS object." 132 "Show the method invocation order for METHOD with CLASS object."
133 (interactive "aMethod: \nXClass Expression: ") 133 (interactive "aMethod: \nXClass Expression: ")
134 (let* ((eieio-pre-method-execution-hooks 134 (let* ((eieio-pre-method-execution-functions
135 (lambda (l) (throw 'moose l) )) 135 (lambda (l) (throw 'moose l) ))
136 (data 136 (data
137 (catch 'moose (eieio-generic-call 137 (catch 'moose (eieio-generic-call
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8cb53de85fa..d1cf22fd971 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
12012-11-13 Glenn Morris <rgm@gnu.org>
2
3 * gnus-diary.el (nndiary-request-create-group-functions)
4 (nndiary-request-update-info-functions)
5 (gnus-subscribe-newsgroup-functions)
6 (nndiary-request-accept-article-functions):
7 Use new names for hooks rather than obsolete aliases.
8
12012-10-23 Stefan Monnier <monnier@iro.umontreal.ca> 92012-10-23 Stefan Monnier <monnier@iro.umontreal.ca>
2 10
3 * nndiary.el (nndiary-request-create-group-functions) 11 * nndiary.el (nndiary-request-create-group-functions)
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index 854af2f5d76..bca307b19b6 100644
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -277,18 +277,18 @@ Optional prefix (or REVERSE argument) means sort in reverse order."
277 277
278;; Called when a group is subscribed. This is needed because groups created 278;; Called when a group is subscribed. This is needed because groups created
279;; because of mail splitting are *not* created with the back end function. 279;; because of mail splitting are *not* created with the back end function.
280;; Thus, `nndiary-request-create-group-hooks' is inoperative. 280;; Thus, `nndiary-request-create-group-functions' is inoperative.
281(defun gnus-diary-maybe-update-group-parameters (group) 281(defun gnus-diary-maybe-update-group-parameters (group)
282 (when (eq (car (gnus-find-method-for-group group)) 'nndiary) 282 (when (eq (car (gnus-find-method-for-group group)) 'nndiary)
283 (gnus-diary-update-group-parameters group))) 283 (gnus-diary-update-group-parameters group)))
284 284
285(add-hook 'nndiary-request-create-group-hooks 285(add-hook 'nndiary-request-create-group-functions
286 'gnus-diary-update-group-parameters) 286 'gnus-diary-update-group-parameters)
287;; Now that we have `gnus-subscribe-newsgroup-hooks', this is not needed 287;; Now that we have `gnus-subscribe-newsgroup-functions', this is not needed
288;; anymore. Maybe I should remove this completely. 288;; anymore. Maybe I should remove this completely.
289(add-hook 'nndiary-request-update-info-hooks 289(add-hook 'nndiary-request-update-info-functions
290 'gnus-diary-update-group-parameters) 290 'gnus-diary-update-group-parameters)
291(add-hook 'gnus-subscribe-newsgroup-hooks 291(add-hook 'gnus-subscribe-newsgroup-functions
292 'gnus-diary-maybe-update-group-parameters) 292 'gnus-diary-maybe-update-group-parameters)
293 293
294 294
@@ -384,7 +384,7 @@ If ARG (or prefix) is non-nil, force prompting for all fields."
384 nndiary-headers) 384 nndiary-headers)
385 )) 385 ))
386 386
387(add-hook 'nndiary-request-accept-article-hooks 387(add-hook 'nndiary-request-accept-article-functions
388 (lambda () (gnus-diary-check-message nil))) 388 (lambda () (gnus-diary-check-message nil)))
389 389
390(define-key message-mode-map "\C-c\C-fd" 'gnus-diary-check-message) 390(define-key message-mode-map "\C-c\C-fd" 'gnus-diary-check-message)
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 60b39606d86..0aa1b8957ac 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -521,12 +521,12 @@ It is needed when D-Bus signals or errors arrive, because there
521is no information where to trace the message.") 521is no information where to trace the message.")
522 522
523(defun tramp-gvfs-dbus-event-error (event err) 523(defun tramp-gvfs-dbus-event-error (event err)
524 "Called when a D-Bus error message arrives, see `dbus-event-error-hooks'." 524 "Called when a D-Bus error message arrives, see `dbus-event-error-functions'."
525 (when tramp-gvfs-dbus-event-vector 525 (when tramp-gvfs-dbus-event-vector
526 (tramp-message tramp-gvfs-dbus-event-vector 10 "%S" event) 526 (tramp-message tramp-gvfs-dbus-event-vector 10 "%S" event)
527 (tramp-error tramp-gvfs-dbus-event-vector 'file-error "%s" (cadr err)))) 527 (tramp-error tramp-gvfs-dbus-event-vector 'file-error "%s" (cadr err))))
528 528
529(add-hook 'dbus-event-error-hooks 'tramp-gvfs-dbus-event-error) 529(add-hook 'dbus-event-error-functions 'tramp-gvfs-dbus-event-error)
530 530
531 531
532;; File name primitives. 532;; File name primitives.