]> git.eshelyaron.com Git - emacs.git/commitdiff
Cleanup uses of "-hooks".
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Oct 2012 15:06:07 +0000 (11:06 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 23 Oct 2012 15:06:07 +0000 (11:06 -0400)
* 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.

40 files changed:
doc/emacs/ChangeLog
doc/emacs/custom.texi
doc/lispintro/emacs-lisp-intro.texi
doc/lispref/ChangeLog
doc/lispref/functions.texi
doc/lispref/hooks.texi
doc/lispref/loading.texi
doc/lispref/modes.texi
doc/misc/dbus.texi
doc/misc/ede.texi
doc/misc/ediff.texi
doc/misc/forms.texi
doc/misc/gnus.texi
doc/misc/mh-e.texi
doc/misc/sem-user.texi
doc/misc/tramp.texi
etc/NEWS
lisp/ChangeLog
lisp/arc-mode.el
lisp/cedet/ChangeLog
lisp/cedet/semantic/db-file.el
lisp/cedet/semantic/edit.el
lisp/cedet/semantic/lex.el
lisp/emacs-lisp/checkdoc.el
lisp/emacs-lisp/eieio.el
lisp/filesets.el
lisp/gnus/ChangeLog
lisp/gnus/gnus-start.el
lisp/gnus/nndiary.el
lisp/htmlfontify.el
lisp/mail/sendmail.el
lisp/mh-e/ChangeLog
lisp/mh-e/mh-e.el
lisp/mh-e/mh-letter.el
lisp/net/dbus.el
lisp/net/rcirc.el
lisp/progmodes/cc-mode.el
lisp/subr.el
lisp/term/sun.el
lisp/vc/ediff-mult.el

index f1a3cdb6235101f6b93c5d540da163c3eda2513b..90beb08233dbcdb6f8522b503d04b52f66756bf4 100644 (file)
@@ -1,3 +1,7 @@
+2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * custom.texi (Hooks): Clarify that -hooks is deprecated.
+
 2012-10-23  Chong Yidong  <cyd@gnu.org>
 
        * kmacro.texi (Edit Keyboard Macro): Fix typo.
index 68219d7890f68bf7b3c92993bea2361e91bce533..a614126dbc07c767a38d51c9a98ba83777ea47d3 100644 (file)
@@ -838,7 +838,8 @@ is a normal hook.
 
 @cindex abnormal hook
   A few hooks are @dfn{abnormal hooks}.  Their names end in
-@samp{-hooks} or @samp{-functions}, instead of @samp{-hook}.  What
+@samp{-functions}, instead of @samp{-hook} (some old code may also use
+the deprecated suffix @samp{-hooks}).  What
 makes these hooks abnormal is the way its functions are
 called---perhaps they are given arguments, or perhaps the values they
 return are used in some way.  For example,
@@ -1735,11 +1736,11 @@ and @kbd{C-c p} in Texinfo mode:
 
 @example
 (add-hook 'texinfo-mode-hook
-          '(lambda ()
-             (define-key texinfo-mode-map "\C-cp"
-                         'backward-paragraph)
-             (define-key texinfo-mode-map "\C-cn"
-                         'forward-paragraph)))
+          (lambda ()
+            (define-key texinfo-mode-map "\C-cp"
+                        'backward-paragraph)
+            (define-key texinfo-mode-map "\C-cn"
+                        'forward-paragraph)))
 @end example
 
 @node Modifier Keys
index 55c3ef4e09ecbc5de7272b474d935266d36b6a5c..70ddb81c776cece2166c5ae5c03fb490c3794ba9 100644 (file)
@@ -17909,10 +17909,10 @@ file that set values:
 @group
 ;; Set calendar highlighting colors
 (setq calendar-load-hook
-      '(lambda ()
-         (set-face-foreground 'diary-face   "skyblue")
-         (set-face-background 'holiday-face "slate blue")
-         (set-face-foreground 'holiday-face "white")))
+      (lambda ()
+        (set-face-foreground 'diary-face   "skyblue")
+        (set-face-background 'holiday-face "slate blue")
+        (set-face-foreground 'holiday-face "white")))
 @end group
 @end smallexample
 
@@ -20947,7 +20947,7 @@ not yet seen, @code{mapcar} and @code{lambda}.
 @group
 (defun one-fiftieth (full-range)
   "Return list, each number one-fiftieth of previous."
- (mapcar '(lambda (arg) (/ arg 50)) full-range))
+ (mapcar (lambda (arg) (/ arg 50)) full-range))
 @end group
 @end smallexample
 
@@ -21168,7 +21168,7 @@ and the second argument is @code{full-range}, which will be bound to
 The whole expression looks like this:
 
 @smallexample
-(mapcar '(lambda (arg) (/ arg 50)) full-range))
+(mapcar (lambda (arg) (/ arg 50)) full-range))
 @end smallexample
 
 @xref{Mapping Functions, , Mapping Functions, elisp, The GNU Emacs
@@ -21840,7 +21840,7 @@ each column."
 @group
 (defun one-fiftieth (full-range)
   "Return list, each number of which is 1/50th previous."
- (mapcar '(lambda (arg) (/ arg 50)) full-range))
+ (mapcar (lambda (arg) (/ arg 50)) full-range))
 @end group
 @end smallexample
 
index a767bbf1fce466695ebb6962f24594f5095053c1..26765e7a3841ee879aee293d30a073e7e2fefd61 100644 (file)
@@ -1,3 +1,7 @@
+2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * hooks.texi (Standard Hooks): Clarify that -hooks is deprecated.
+
 2012-10-23  Paul Eggert  <eggert@cs.ucla.edu>
 
        Fix outdated timestamp documentation in Elisp manual (bug#12706).
index c94e46dad1883edf51df2859198f179b555052ff..623106b6d0668823e673ff545147aba5f1c8a39c 100644 (file)
@@ -978,7 +978,7 @@ anonymous function by quoting it as a list:
 @example
 @group
 (defun double-property (symbol prop)
-  (change-property symbol prop '(lambda (x) (* 2 x))))
+  (change-property symbol prop (lambda (x) (* 2 x))))
 @end group
 @end example
 
index 7c91b51b290bb59b978170ac0844a222217f4de3..a7f012436416cb51c579bc70e7af2e6a7e3a3aeb 100644 (file)
@@ -17,11 +17,11 @@ arguments and their values are completely ignored.  The recommended way
 to put a new function on such a hook is to call @code{add-hook}.
 @xref{Hooks}, for more information about using hooks.
 
-The variables whose names end in @samp{-hooks} or @samp{-functions} are
-usually @dfn{abnormal hooks}; their values are lists of functions, but
-these functions are called in a special way (they are passed arguments,
-or their values are used). The variables whose names end in
-@samp{-function} have single functions as their values.
+The variables whose names end in @samp{-functions} are usually @dfn{abnormal
+hooks} (some old code may also use the deprecated @samp{-hooks} suffix); their
+values are lists of functions, but these functions are called in a special way
+(they are passed arguments, or their return values are used).  The variables
+whose names end in @samp{-function} have single functions as their values.
 
 This is not an exhaustive list, it only covers the more general hooks.
 For example, every major mode defines a hook named
index aa243185359d12b57bd8cbfa10c4b27e02c6d090..77a31cfde7a57632101d31669dc8f246ad6ac839 100644 (file)
@@ -897,8 +897,8 @@ It then restores any autoloads formerly associated with those symbols.
 
 Before restoring the previous definitions, @code{unload-feature} runs
 @code{remove-hook} to remove functions in the library from certain
-hooks.  These hooks include variables whose names end in @samp{hook}
-or @samp{-hooks}, plus those listed in
+hooks.  These hooks include variables whose names end in @samp{-hook}
+(or the deprecated suffix @samp{-hooks}), plus those listed in
 @code{unload-feature-special-hooks}, as well as
 @code{auto-mode-alist}.  This is to prevent Emacs from ceasing to
 function because important hooks refer to functions that are no longer
index 8b5e3da493a3b0458b691f588a59fbc224a9e262..4e4d700aade6a018e2ec8386d8ad8b330ca2be6e 100644 (file)
@@ -70,9 +70,9 @@ called.  You can use @code{add-hook} to add a function to an abnormal
 hook, but you must write the function to follow the hook's calling
 convention.
 
-  By convention, abnormal hook names end in @samp{-functions} or
-@samp{-hooks}.  If the variable's name ends in @samp{-function}, then
-its value is just a single function, not a list of functions.
+  By convention, abnormal hook names end in @samp{-functions}.  If the
+variable's name ends in @samp{-function}, then its value is just a single
+function, not a list of functions.
 
 @menu
 * Running Hooks::    How to run a hook.
index 865e99a3aa60a2c9aa5320c4df3f7531be3f3c80..1f9a401df904bd26180d60ae364bbee5ba9f5a88 100644 (file)
@@ -1981,7 +1981,7 @@ usually not desired.  D-Bus errors in events can be made visible by
 setting the variable @code{dbus-debug} to @code{t}.  They can also be
 handled by a hook function.
 
-@defvar dbus-event-error-hooks
+@defvar dbus-event-error-functions
 This hook variable keeps a list of functions, which are called when a
 D-Bus error happens in the event handler.  Every function must accept
 two arguments, the event and the error variable caught in
@@ -1997,7 +1997,7 @@ Example:
     (message "my-dbus-event-error-handler: %S %S" event error)
     (signal 'file-error (cdr error))))
 
-(add-hook 'dbus-event-error-hooks 'my-dbus-event-error-handler)
+(add-hook 'dbus-event-error-functions 'my-dbus-event-error-handler)
 @end lisp
 @end defvar
 
index 046cdc994142216578700403f65a8d8fc8f8bb83..1299f2ff0625c3e5f71c9ae69fba6def0767c96d 100644 (file)
@@ -1248,7 +1248,7 @@ detection scheme works like this:
 
 @table @asis
 @item Step 1:
-@code{find-file-hooks} calls @code{ede-turn-on-hook} on BUFFER.
+@code{find-file-hook} calls @code{ede-turn-on-hook} on BUFFER.
 @item Step 2:
 @code{ede-turn-on-hook} turns on @code{ede-minor-mode}
 @item Step 3:
index 01349e3146839e801461945b2c8ccaa7a8e7df21..0afcdd923d6ed63466e9f0dbaa736bfeb51b9bb0 100644 (file)
@@ -1248,7 +1248,7 @@ This hook is run just before @code{ediff-quit-hook}.  This is a good
 place to do various cleanups, such as deleting the variant buffers.
 Ediff provides a function, @code{ediff-janitor}, as one such possible
 hook, which you can add to @code{ediff-cleanup-hook} with
-@code{add-hooks}.
+@code{add-hook}.
 
 @findex ediff-janitor
 This function kills buffers A, B, and, possibly, C, if these buffers aren't
index bcb8d8974ea19d7d9ca439e05257d4233d2b6dde..11c3782dd7eb1e3d4a89f563c1a6c8890cfb2040 100644 (file)
@@ -170,8 +170,8 @@ of the buffer are parsed using the specifications in
 @code{forms-format-list}, and the data file is updated.  If the record
 has fields that aren't included in the display, they are not changed.
 
-@vindex forms-mode-hooks
-Entering Forms mode runs the normal hook @code{forms-mode-hooks} to
+@vindex forms-mode-hook
+Entering Forms mode runs the normal hook @code{forms-mode-hook} to
 perform user-defined customization.
 
 To save any modified data, you can use @kbd{C-x C-s}
index afc324e3fb4c216d7f9496fc6465cbc1d4d894f2..a9cd0d3567c313512aea02d97c0accfd5a1ecc10 100644 (file)
@@ -3148,7 +3148,7 @@ following is added to a group parameter
 
 @lisp
 (gnus-summary-prepared-hook
-  '(lambda nil (local-set-key "d" (local-key-binding "n"))))
+  (lambda nil (local-set-key "d" (local-key-binding "n"))))
 @end lisp
 
 when the group is entered, the 'd' key will not mark the article as
index f6adc43578980dca8ab02819eed95caece18d0d0..e59b312889d294be37ce49aa4033aba97ccee412 100644 (file)
@@ -429,7 +429,7 @@ for a description about @dfn{normal hooks} and @dfn{abnormal hooks}.
 MH-E uses normal hooks in nearly all cases, so you can assume that we
 are talking about normal hooks unless we explicitly mention that a
 hook is abnormal. We also follow the conventions described in that
-section: the name of the abnormal hooks end in @code{-hooks} and all
+section: the name of the abnormal hooks end in @code{-functions} and all
 the rest of the MH-E hooks end in @code{-hook}. You can add hooks with
 either @code{customize-option} or @code{add-hook}.
 
@@ -3749,9 +3749,9 @@ when you press @key{TAB} when prompted for a folder name.
 
 @findex mh-search-p
 @kindex k
-@vindex mh-kill-folder-suppress-prompt-hooks
+@vindex mh-kill-folder-suppress-prompt-functions
 
-The hook @code{mh-kill-folder-suppress-prompt-hooks} is an abnormal
+The hook @code{mh-kill-folder-suppress-prompt-functions} is an abnormal
 hook run at the beginning of the command @kbd{k}. The hook functions
 are called with no arguments and should return a non-nil value to
 suppress the normal prompt when you remove a folder. This is useful
index 9f4dc72fea34523eca04107dede2aa70ae5ad3d2..9d6fb11db50916ec9bcffd1d55a4839d87bdfce0 100644 (file)
@@ -277,7 +277,7 @@ variable.  This allows SemanticDB to save tag caches in directories
 controlled by them.
 @end defvar
 
-@deffn Option semanticdb-save-database-hooks
+@deffn Option semanticdb-save-database-functions
 Abnormal hook run after a database is saved.  Each function is called
 with one argument, the object representing the database recently
 written.
index 530b8fdd6c2419738b4a5855438cc4f221074fc5..46f99acbb87acdabec49b0986c3623183ff90386 100644 (file)
@@ -3007,10 +3007,10 @@ checksum.
 
 @lisp
 (add-hook
- 'find-file-hooks
'(lambda ()
-    (when (file-remote-p default-directory)
-      (set (make-local-variable 'file-precious-flag) t))))
+ 'find-file-hook
+ (lambda ()
+   (when (file-remote-p default-directory)
+     (set (make-local-variable 'file-precious-flag) t))))
 @end lisp
 @end itemize
 
@@ -3126,7 +3126,7 @@ into your @file{~/.emacs}:
     (setq mode-line-format
           (format-mode-line mode-line-format 'font-lock-warning-face))))
 
-(add-hook 'find-file-hooks 'my-mode-line-function)
+(add-hook 'find-file-hook 'my-mode-line-function)
 (add-hook 'dired-mode-hook 'my-mode-line-function)
 @end lisp
 @end ifset
@@ -3159,10 +3159,10 @@ should put it into your @file{~/.emacs}:
 
 (add-hook
  'dired-mode-hook
'(lambda ()
-    (setq
-     mode-line-buffer-identification
-     my-mode-line-buffer-identification)))
+ (lambda ()
+   (setq
+    mode-line-buffer-identification
+    my-mode-line-buffer-identification)))
 @end lisp
 
 Since @value{emacsname} 23.1, the mode line contains an indication if
@@ -3195,9 +3195,9 @@ like this:
 @lisp
 (add-hook
  'dired-before-readin-hook
'(lambda ()
-    (when (file-remote-p default-directory)
-      (setq dired-actual-switches "-al"))))
+ (lambda ()
+   (when (file-remote-p default-directory)
+     (setq dired-actual-switches "-al"))))
 @end lisp
 @end ifset
 
@@ -3329,9 +3329,9 @@ minibuffer:
 
 (add-hook
  'minibuffer-setup-hook
'(lambda ()
-    (abbrev-mode 1)
-    (setq local-abbrev-table my-tramp-abbrev-table)))
+ (lambda ()
+   (abbrev-mode 1)
+   (setq local-abbrev-table my-tramp-abbrev-table)))
 
 (defadvice minibuffer-complete
   (before my-minibuffer-complete activate)
@@ -3398,7 +3398,7 @@ their readability through a remote access:
 @ifset xemacs
 (recent-files-initialize)
 (add-hook
- 'find-file-hooks
+ 'find-file-hook
  (lambda ()
    (when (file-remote-p (buffer-file-name))
      (recent-files-make-permanent)))
index d79c4ba694d627fda8b6b039c41e69b48012cf1a..4fd7e13f8cafd915fe0e1b9cd5b6df0e47eb8a18 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -621,6 +621,29 @@ enabled.
 
 ** FIXME something happened to ses.el, 2012-04-17.
 
+** Hooks renamed to avoid obsolete "-hooks" suffix:
+*** semantic-lex-reset-hooks -> semantic-lex-reset-functions
+*** semantic-change-hooks -> semantic-change-functions
+*** semantic-edits-new-change-hooks -> semantic-edits-new-change-functions
+*** semantic-edits-delete-change-hooks -> semantic-edits-delete-change-functions
+*** semantic-edits-reparse-change-hooks -> semantic-edits-reparse-change-functions
+*** semanticdb-save-database-hooks -> semanticdb-save-database-functions
+*** c-prepare-bug-report-hooks -> c-prepare-bug-report-hook
+*** rcirc-sentinel-hooks -> rcirc-sentinel-functions
+*** rcirc-receive-message-hooks -> rcirc-receive-message-functions
+*** rcirc-activity-hooks -> rcirc-activity-functions
+*** rcirc-print-hooks -> rcirc-print-functions
+*** dbus-event-error-hooks -> dbus-event-error-functions
+*** eieio-pre-method-execution-hooks -> eieio-pre-method-execution-functions
+*** checkdoc-style-hooks -> checkdoc-style-functions
+*** checkdoc-comment-style-hooks -> checkdoc-comment-style-functions
+*** archive-extract-hooks -> archive-extract-hook
+*** filesets-cache-fill-content-hooks -> filesets-cache-fill-content-hook
+*** hfy-post-html-hooks -> hfy-post-html-hook
+*** nndiary-request-create-group-hooks -> nndiary-request-create-group-functions
+*** nndiary-request-update-info-hooks -> nndiary-request-update-info-functions
+*** nndiary-request-accept-article-hooks -> nndiary-request-accept-article-functions
+*** gnus-subscribe-newsgroup-hooks -> gnus-subscribe-newsgroup-functions
 
 ** Obsolete packages:
 +++
index 39c6b96fba437fd1fc8c78ce362af35255c8b9e7..16c4983d3859aa7de06f94ca48de26c837de9ccd 100644 (file)
@@ -1,7 +1,23 @@
+2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * htmlfontify.el (hfy-post-html-hook):
+       * filesets.el (filesets-cache-fill-content-hook):
+       * arc-mode.el (archive-extract-hook):
+       * progmodes/cc-mode.el (c-prepare-bug-report-hook):
+       * net/rcirc.el (rcirc-sentinel-functions)
+       (rcirc-receive-message-functions, rcirc-activity-functions)
+       (rcirc-print-functions):
+       * net/dbus.el (dbus-event-error-functions):
+       * emacs-lisp/eieio.el (eieio-pre-method-execution-functions):
+       * emacs-lisp/checkdoc.el (checkdoc-style-functions)
+       (checkdoc-comment-style-functions): Don't use "-hooks" suffix.
+       * term/sun.el (sun-raw-prefix-hooks):
+       * mail/sendmail.el (mail-yank-hooks): Use make-obsolete-variable.
+
 2012-10-23  Michael Albinus  <michael.albinus@gmx.de>
 
-       * net/tramp-smb.el (tramp-smb-maybe-open-connection): Set
-       `tramp-chunksize' to 1.  This improves the performance.
+       * net/tramp-smb.el (tramp-smb-maybe-open-connection):
+       Set `tramp-chunksize' to 1.  This improves the performance.
        (tramp-smb-wait-for-output): Add timeout to
        `tramp-accept-process-output' calls.
 
index c04cd8dcf9d2962fca10c0eb8adfd3a7c76d6c17..cebd4302d0c96414b0ca1c941a0d7a9a6c9f67bc 100644 (file)
@@ -140,8 +140,10 @@ A local copy of the archive will be used when updating."
   :type 'regexp
   :group 'archive)
 
-(defcustom archive-extract-hooks nil
-  "Hooks to run when an archive member has been extracted."
+(define-obsolete-variable-alias 'archive-extract-hooks
+  'archive-extract-hook "24.3")
+(defcustom archive-extract-hook nil
+  "Hook run when an archive member has been extracted."
   :type 'hook
   :group 'archive)
 ;; ------------------------------
@@ -1078,7 +1080,7 @@ using `make-temp-file', and the generated name is returned."
               ;; We will write out the archive ourselves if it is
               ;; part of another archive.
               (remove-hook 'write-contents-functions 'archive-write-file t))
-            (run-hooks 'archive-extract-hooks)
+            (run-hooks 'archive-extract-hook)
            (if archive-read-only
                (message "Note: altering this archive is not implemented."))))
        (archive-maybe-update t))
index e89e8ed258bd7a67b539da40db59b64e6063c10e..7656248cac5a20d3be82272a8bf64117a9dfd89a 100644 (file)
@@ -1,14 +1,23 @@
+2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * semantic/db-file.el (semanticdb-save-database-functions):
+       * semantic/lex.el (semantic-lex-reset-functions):
+       * semantic/edit.el (semantic-change-functions)
+       (semantic-edits-new-change-functions)
+       (semantic-edits-delete-change-functions)
+       (semantic-edits-reparse-change-functions): Don't use "-hooks" suffix.
+
 2012-10-14  David Engster  <deng@randomsample.de>
 
-       * semantic.el (semantic-error-if-unparsed): New function.  Raise
-       error if buffer was not parsed by Semantic (bug #12045).
+       * semantic.el (semantic-error-if-unparsed): New function.
+       Raise error if buffer was not parsed by Semantic (bug #12045).
        (navigate-menu, edit-menu, cedet-menu-map): Enable Semantic items
        only if buffer was parsed.  Also, replace ':active' with ':enable'
        where necessary.
 
        * semantic/wisent/python.el
-       (semantic-python-get-system-include-path): Use
-       `python-shell-internal-send-string' if available to query Python
+       (semantic-python-get-system-include-path):
+       Use `python-shell-internal-send-string' if available to query Python
        for system paths.
 
        * semantic/senator.el (senator-next-tag, senator-previous-tag)
@@ -57,8 +66,8 @@
 2012-10-06  Chong Yidong  <cyd@gnu.org>
 
        * semantic/bovine/grammar.el:
-       * semantic/wisent/grammar.el: Move from admin/grammars.  Add
-       autoloads for bovine-grammar-mode and wisent-grammar-mode.
+       * semantic/wisent/grammar.el: Move from admin/grammars.
+       Add autoloads for bovine-grammar-mode and wisent-grammar-mode.
 
 2012-10-02  Chong Yidong  <cyd@gnu.org>
 
        (-scheme, -makefile-misc, ede-proj-target-makefile-program)
        (-makefile-archive, -makefile-shared-object)
        (ede-proj-target-makefile-info, -grammar): New autoloads.
-        (ede-proj-project): Inherit from eieio-persistent-read.  Specify
-       extension and header line.
+        (ede-proj-project): Inherit from eieio-persistent-read.
+       Specify extension and header line.
         (ede-proj-load, ede-proj-save): Replace with impl using
        eieio-persistent-read.
 
        (navigate-menu): Add menu item for Stickyfunc mode.
 
        * semantic/analyze/debug.el
-       (semantic-analyzer-debug-insert-include-summary): Before
-       dereferencing tableinner, make sure it has a value.
+       (semantic-analyzer-debug-insert-include-summary):
+       Before dereferencing tableinner, make sure it has a value.
 
        * semantic/analyze/refs.el
        (semantic-analyze-tag-references-default): When doing a lookup,
        specify noerror.
        (semantic--analyze-refs-full-lookup): Add optional noerror input
        argument.  Pass to to full-lookup-simple.
-       (semantic-analyze-refs-impl, semantic-analyze-refs-proto): Ignore
-       :typemodifiers during compare.
+       (semantic-analyze-refs-impl, semantic-analyze-refs-proto):
+       Ignore :typemodifiers during compare.
 
        * semantic/bovine/c.el (semantic-lex-cpp-define): Specify limits
        to looking back for comment chars.
        (semantic--tag-similar-names-p, semantic--tag-similar-names-p-default)
        (semantic--tag-attribute-similar-p): New.
        (semantic-c-describe-environment): Handle list value of ede-object.
-       (semantic-lex-c-preprocessor-symbol-map-builtin): Add
-       __attribute_pure__.
+       (semantic-lex-c-preprocessor-symbol-map-builtin):
+       Add __attribute_pure__.
 
-       * semantic/bovine/scm.el (semantic-format-tag-prototype): Add
-       parent and color argument.  Pass them through.
+       * semantic/bovine/scm.el (semantic-format-tag-prototype):
+       Add parent and color argument.  Pass them through.
 
        * semantic/complete.el (semantic-collector-calculate-completions):
        Search for more matches if new prefix is a substring of old one.
        the (%d tags) extra string.
        (semanticdb-project-database): Specify :type for table.
        (semanticdb-create-table-for-file): Specify file-truename.
-       (semanticdb-synchronize, semanticdb-partial-synchronize): Restore
-       code that refreshes references to include files.
+       (semanticdb-synchronize, semanticdb-partial-synchronize):
+       Restore code that refreshes references to include files.
 
        * semantic/decorate/include.el
        (semantic-decoration-on-fileless-includes): New face.
        (semantic-decoration-on-fileless-include-map)
        (semantic-decoration-on-fileless-include-menu): New variables.
-       (semantic-decoration-on-includes-highlight-default): Support
-       includes that have a table, but are not associated with a file.
+       (semantic-decoration-on-includes-highlight-default):
+       Support includes that have a table, but are not associated with a file.
        (semantic-decoration-fileless-include-describe)
        (semantic-decoration-fileless-include-menu): New functions.
        (semantic-decoration-all-include-summary): Add arrows to indicate
        * semantic/tag.el (semantic-create-tag-proxy)
        (semantic-tag-set-proxy, semantic-tag-resolve-proxy): New.
 
-       * semantic/util.el (semantic-describe-buffer): Add
-       semantic-new-buffer-fcn-was-run.
+       * semantic/util.el (semantic-describe-buffer):
+       Add semantic-new-buffer-fcn-was-run.
 
-       * semantic/wisent/java-tags.el (semantic-get-local-variables): Add
-       `this' to the local variable context.
+       * semantic/wisent/java-tags.el (semantic-get-local-variables):
+       Add `this' to the local variable context.
        (semantic-analyze-split-name, semantic-analyze-unsplit-name): New.
 
-       * semantic/wisent/python.el (semantic-python-expand-tag): New
-       function.
+       * semantic/wisent/python.el (semantic-python-expand-tag):
+       New function.
 
        * srecode/compile.el (srecode-compile-templates): Add "framework"
        special variable support.
        (srecode-semantic-handle-:cpp): New functions.
        (srecode-semantic-apply-tag-to-dict): Move from cpp-mode function
        to c-mode function.
-       (srecode-c-apply-templates): Renamed from srecode-cpp-apply-templates.
+       (srecode-c-apply-templates): Rename from srecode-cpp-apply-templates.
 
        * srecode/dictionary.el (initialize-instance): Remove bogus error
        condition.
 
        * srecode/mode.el (srecode-minor-mode): Support the m3 menu.
 
-       * srecode/semantic.el (srecode-semantic-insert-tag): Support
-       system includes.
+       * srecode/semantic.el (srecode-semantic-insert-tag):
+       Support system includes.
 
        * srecode/srt-mode.el (srecode-font-lock-keywords): Update.
 
        * ede/proj-comp.el (ede-proj-makefile-insert-rules): Fix insertion
        of phony rule.
 
-       * ede/proj-elisp.el (ede-proj-target-elisp): Remove
-       ede-emacs-preload-compiler.
+       * ede/proj-elisp.el (ede-proj-target-elisp):
+       Remove ede-emacs-preload-compiler.
        (ede-proj-makefile-insert-rules, ede-proj-makefile-dependencies):
        New methods.
        (ede-emacs-compiler): Add 'require' macro to variables and pattern
         (semantic-cpp-lexer): Add semantic-lex-c-ifdef.
        (semantic-expand-c-tag): Check if tag is non-nil before adding it
        to return list
-       (semantic-expand-c-extern-C, semantic-expand-c-complex-type): New
-       functions, copied from semantic-expand-c-tag.
+       (semantic-expand-c-extern-C, semantic-expand-c-complex-type):
+       New functions, copied from semantic-expand-c-tag.
        (semantic-find-tags-included): New override which also searches
        for include tags inside of namespaces.
        (semantic-c-dereference-typedef): Use semantic-tag-prototype-p.
 
        * semantic/bovine/el.el: Remove emacs-lisp-mode-hook.
 
-       * semantic/complete.el (semantic-complete-post-command-hook): Exit
-       completion when user has deleted all characters from the prefix.
+       * semantic/complete.el (semantic-complete-post-command-hook):
+       Exit completion when user has deleted all characters from the prefix.
        (semantic-displayor-focus-request): Return to previous window when
        focussing tags.
 
        * semantic/db-el.el (semanticdb-normalize-one-tag): Make obsolete.
        (semanticdb-elisp-sym->tag): Use help-function-arglist instead.
 
-       * semantic/db-file.el (semanticdb-create-database): Use
-       semantic-tag-version instead of just semantic-version as the
+       * semantic/db-file.el (semanticdb-create-database):
+       Use semantic-tag-version instead of just semantic-version as the
        initializer for the :semantic-tag-version slot.
 
        * semantic/db-find.el (semanticdb-find-tags-by-class-method):
        (semanticdb-save-current-db, semanticdb-save-all-db): Only emit
        message when running interactively.
 
-       * semantic/decorate/mode.el (semantic-decoration-mode): Activate
-       decoration of includes by default.
+       * semantic/decorate/mode.el (semantic-decoration-mode):
+       Activate decoration of includes by default.
 
-       * semantic/doc.el (semantic-doc-snarf-comment-for-tag): Remove
-       comment delimiter at the end of the text.
+       * semantic/doc.el (semantic-doc-snarf-comment-for-tag):
+       Remove comment delimiter at the end of the text.
 
        * semantic/ede-grammar.el (semantic-ede-proj-target-grammar):
        Change aux- and pre-load-packages.
        (ede-proj-makefile-insert-rules): Add target specific EMACSFLAGS
        to raise max-specpdl-size and max-lisp-eval-depth.
 
-       * semantic/find.el (semantic-find-tags-included): Make
-       overridable.
+       * semantic/find.el (semantic-find-tags-included):
+       Make overridable.
 
        * semantic/fw.el (semantic-alias-obsolete)
        (semantic-varalias-obsolete): Use byte-compile-warn.
        (semantic-find-file-noselect): Disable font lock by calling
        global-font-lock-mode.
 
-       * semantic/grammar.el (semantic-grammar-create-package): Fix
-       message.
+       * semantic/grammar.el (semantic-grammar-create-package):
+       Fix message.
        (semantic-grammar-batch-build-one-package): When generating
        parsers in batch-mode, ignore version control and make sure we do
        not use cached versions.
        (semantic-lex-spp-lex-text-string): Instead of only setting the
        lexer, call the major mode's setup function.
 
-       * semantic/scope.el (semantic-analyze-scoped-types-default): Use
-       semantic-tag-prototype-p.
+       * semantic/scope.el (semantic-analyze-scoped-types-default):
+       Use semantic-tag-prototype-p.
        (semantic-analyze-scope-nested-tags-default): Make sure we don't
        return tags we already have in scopetypes.
 
        * semantic/symref/filter.el
        (semantic-symref-test-count-hits-in-tag): Restore.
 
-       * semantic/wisent/comp.el (wisent-BITS-PER-WORD): Use
-       most-positive-fixnum if available.
+       * semantic/wisent/comp.el (wisent-BITS-PER-WORD):
+       Use most-positive-fixnum if available.
 
        * semantic/wisent/javascript.el (semantic-tag-protection)
        (semantic-analyze-scope-calculate-access)
 2012-10-01 Jan Moringen  <jan.moringen@uni-bielefeld.de>
 
        * semantic/idle.el
-       (semantic-idle-breadcrumbs--display-in-header-line): Escape
-       %-characters to avoid erroneous expansion in header line.
+       (semantic-idle-breadcrumbs--display-in-header-line):
+       Escape %-characters to avoid erroneous expansion in header line.
        (semantic-idle-breadcrumbs--display-in-mode-line): Likewise.
 
        * semantic/wisent/python.el (wisent-python-reconstitute-function-tag)
 
        * semantic/wisent/python.el (wisent-python-string-start-re)
        (wisent-python-string-re, wisent-python-forward-string)
-       (wisent-python-forward-line,wisent-python-lex-string): New
-       variables.
+       (wisent-python-forward-line,wisent-python-lex-string):
+       New variables.
        (wisent-python-forward-balanced-expression): New function.
 
 2012-10-01  Pete Beardmore  <elbeardmorez@msn.com>
        (semantic-displayor-tooltip-mode)
        (semantic-displayor-tooltip-initial-max-tags)
        (semantic-displayor-tooltip-max-tags): New defcustoms.
-       (semantic-displayor-tooltip): Use new variables as initforms.  Use
-       new slot `mode' instead of `force-show'.  Rename `max-tags' to
+       (semantic-displayor-tooltip): Use new variables as initforms.
+       Use new slot `mode' instead of `force-show'.  Rename `max-tags' to
        `max-tags-initial'.
        (semantic-displayor-show-request): Display completions according
        to new modes, and make variable names clearer.
        (semantic-displayor-tooltip::semantic-displayor-scroll-request):
        Use new max-tags-initial slot.
 
-       * semantic/idle.el (semantic-idle-local-symbol-highlight): Make
-       sure there actually is a tag at point.
+       * semantic/idle.el (semantic-idle-local-symbol-highlight):
+       Make sure there actually is a tag at point.
        (semantic-idle-completion-list-default): Report errors as messages
        if semantic-idle-scheduler-verbose-flag is non-nil.
 
 
 2012-10-01  Alex Ott  <alexott@gmail.com>
 
-       * semantic/idle.el (semantic-idle-scheduler-enabled-p): Fix
-       file-checking.
+       * semantic/idle.el (semantic-idle-scheduler-enabled-p):
+       Fix file-checking.
 
 2012-10-01  Darren Hoo  <darren.hoo@gmail.com>  (tiny change)
 
-       * semantic/db-find.el (semanticdb-find-default-throttle): Make
-       buffer-local.
+       * semantic/db-find.el (semanticdb-find-default-throttle):
+       Make buffer-local.
        (semanticdb-strip-find-results): Check for existing :filename
        attribute, so that file information from GNU Global is not lost.
 
        (ede-customize-forms-menu): Prevent error if there is no project.
        (ede-load-project-file): Set ede-constructing to the thing being
        constructed, instead of t.
-       (ede-project-force-load): Deleted.
+       (ede-project-force-load): Delete.
 
        * ede/base.el:
        * ede/auto.el:
        (autoconf-parameters-for-macro): Parse multiline parameters of
        macros.  Optionally ignore case and at bol for macro.
        (autoconf-parameter-strip): Use greedy match for newlines.
-       (autoconf-new-automake-string): Deleted.
+       (autoconf-new-automake-string): Delete.
        (autoconf-new-program): Use SRecode to fill an empty file.
 
        * ede/cpp-root.el (ede-create-lots-of-projects-under-dir):
        (project-am-scan-for-targets): Scan also over
        project-am-meta-type-alist.
        (ede-system-include-path): Simple implementation.
-       (ede-find-target): Deleted.  EDE core takes care of this.
+       (ede-find-target): Delete.  EDE core takes care of this.
        (ede-buffer-mine): Create the searched filename as relative.
        (project-am-load): Simplify, using autoconf-edit.
        (project-am-extract-package-info): Fix separators.
        (ede-proj-target-makefile-objectcode): Quote initforms.
        Support lex and yacc.
 
-       * ede/proj-prog.el (ede-proj-makefile-insert-rules): Removed.
+       * ede/proj-prog.el (ede-proj-makefile-insert-rules): Remove.
        (ede-proj-makefile-insert-variables): New, add LDDEPS.
        (ede-proj-makefile-insert-automake-post-variables): Add LDADD
        variable.  Use ldlibs-local slot.  Add a -l to ldlibs strings.
 
        * semantic/util.el (semantic-hack-search)
        (semantic-recursive-find-nonterminal-by-name)
-       (semantic-current-tag-interactive): Deleted.
+       (semantic-current-tag-interactive): Delete.
        (semantic-describe-buffer): Fix expand-nonterminal.
        Add lex-syntax-mods, type relation separator char, and command
        separation char.
        (semantic-idle-truncate-long-summaries): New option.
 
        * semantic/ia.el (semantic-ia-cache)
-       (semantic-ia-get-completions): Deleted.  Callers changed.
+       (semantic-ia-get-completions): Delete.  Callers changed.
        (semantic-ia-show-variants): New command.
        (semantic-ia-show-doc): If doc is empty, don't make a temp buffer.
        (semantic-ia-show-summary): If there isn't anything to show, say so.
index 7b4a47bd260b71d01d82724c010cea960934fbc5..4f8e93dc391a87eed0e61edda3a78ef971ff2131 100644 (file)
@@ -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)
       )
index 23b6784fe2a09330767e916b88924e2ae96b00ee..5b39dec26285643b619b394686fb7c89519a1d42 100644 (file)
@@ -72,7 +72,9 @@ updated in the current buffer.
 
 For language specific hooks, make sure you define this as a local hook.")
 
-(defvar semantic-change-hooks
+(define-obsolete-variable-alias 'semantic-change-hooks
+  'semantic-change-functions "24.3")
+(defvar semantic-change-functions
   '(semantic-edits-change-function-handle-changes)
   "Abnormal hook run when semantic detects a change in a buffer.
 Each hook function must take three arguments, identical to the
@@ -89,11 +91,15 @@ If the hook returns non-nil, then declare that a reparse is needed.
 For language specific hooks, make sure you define this as a local hook.
 Not used yet; part of the next generation reparse mechanism.")
 
-(defvar semantic-edits-new-change-hooks nil
+(define-obsolete-variable-alias 'semantic-edits-new-change-hooks
+  'semantic-edits-new-change-functions "24.3")
+(defvar semantic-edits-new-change-functions nil
   "Abnormal hook run when a new change is found.
 Functions must take one argument representing an overlay on that change.")
 
-(defvar semantic-edits-delete-change-hooks nil
+(define-obsolete-variable-alias 'semantic-edits-delete-change-hooks
+  'semantic-edits-delete-change-functions "24.3")
+(defvar semantic-edits-delete-change-functions nil
   "Abnormal hook run before a change overlay is deleted.
 Deleted changes occur when multiple changes are merged.
 Functions must take one argument representing an overlay being deleted.")
@@ -104,7 +110,9 @@ Changes move when a new change overlaps an old change.  The old change
 will be moved.
 Functions must take one argument representing an overlay being moved.")
 
-(defvar semantic-edits-reparse-change-hooks nil
+(define-obsolete-variable-alias 'semantic-edits-reparse-change-hooks
+  'semantic-edits-reparse-change-functions "24.3")
+(defvar semantic-edits-reparse-change-functions nil
   "Abnormal hook run after a change results in a reparse.
 Functions are called before the overlay is deleted, and after the
 incremental reparse.")
@@ -133,7 +141,7 @@ Argument START, END, and LENGTH specify the bounds of the change."
    (setq semantic-unmatched-syntax-cache-check t)
    (let ((inhibit-point-motion-hooks t)
         )
-     (run-hook-with-args 'semantic-change-hooks start end length)
+     (run-hook-with-args 'semantic-change-functions start end length)
      ))
 
 (defun semantic-changes-in-region (start end &optional buffer)
@@ -168,7 +176,7 @@ Argument START, END, and LENGTH specify the bounds of the change."
          ;; function will be removed from the list of active change
          ;; functions.
          (condition-case nil
-             (run-hook-with-args 'semantic-edits-new-change-hooks o)
+             (run-hook-with-args 'semantic-edits-new-change-functions o)
            (error nil)))
       (let ((tmp changes-in-change))
        ;; Find greatest bounds of all changes
@@ -188,7 +196,7 @@ Argument START, END, and LENGTH specify the bounds of the change."
        ;; Delete other changes.  They are now all bound here.
        (while changes-in-change
          (condition-case nil
-             (run-hook-with-args 'semantic-edits-delete-change-hooks
+             (run-hook-with-args 'semantic-edits-delete-change-functions
                                  (car changes-in-change))
            (error nil))
          (semantic-overlay-delete (car changes-in-change))
@@ -198,7 +206,7 @@ Argument START, END, and LENGTH specify the bounds of the change."
 (defsubst semantic-edits-flush-change (change)
   "Flush the CHANGE overlay."
   (condition-case nil
-      (run-hook-with-args 'semantic-edits-delete-change-hooks
+      (run-hook-with-args 'semantic-edits-delete-change-functions
                          change)
     (error nil))
   (semantic-overlay-delete change))
index d7ab5911a67bebeb05538056b8a81858bf279ae4..274df35590142503b0dd486b24697d59297c5ed7 100644 (file)
@@ -729,7 +729,9 @@ This is an alist of (ANCHOR . STREAM) elements where ANCHOR is the
 start position of the block, and STREAM is the list of tokens in that
 block.")
 
-(defvar semantic-lex-reset-hooks nil
+(define-obsolete-variable-alias 'semantic-lex-reset-hooks
+  'semantic-lex-reset-functions "24.3")
+(defvar semantic-lex-reset-functions nil
   "Abnormal hook used by major-modes to reset lexical analyzers.
 Hook functions are called with START and END values for the
 current lexical pass.  Should be set with `add-hook', specifying
@@ -771,7 +773,7 @@ analyzer which might mistake a number for as a symbol."
      ;; Make sure the state of block parsing starts over.
      (setq semantic-lex-block-streams nil)
      ;; Allow specialty reset items.
-     (run-hook-with-args 'semantic-lex-reset-hooks start end)
+     (run-hook-with-args 'semantic-lex-reset-functions start end)
      ;; Lexing state.
      (let* (;(starttime (current-time))
            (starting-position (point))
index ee8cbd2c3bceb3596bb0dbc68f34270d9f669136..6250edc8792d79af4a02f70741664c1a31035863 100644 (file)
 ;; Adding your own checks:
 ;;
 ;;   You can experiment with adding your own checks by setting the
-;; hooks `checkdoc-style-hooks' and `checkdoc-comment-style-hooks'.
+;; hooks `checkdoc-style-functions' and `checkdoc-comment-style-hooks'.
 ;; Return a string which is the error you wish to report.  The cursor
 ;; position should be preserved.
 ;;
@@ -274,17 +274,21 @@ made in the style guide relating to order."
   :type 'boolean)
 ;;;###autoload(put 'checkdoc-arguments-in-order-flag 'safe-local-variable 'booleanp)
 
-(defvar checkdoc-style-hooks nil
-  "Hooks called after the standard style check is completed.
-All hooks must return nil or a string representing the error found.
+(define-obsolete-variable-alias 'checkdoc-style-hooks
+  'checkdoc-style-functions "24.3")
+(defvar checkdoc-style-functions nil
+  "Hook run after the standard style check is completed.
+All functions must return nil or a string representing the error found.
 Useful for adding new user implemented commands.
 
 Each hook is called with two parameters, (DEFUNINFO ENDPOINT).
 DEFUNINFO is the return value of `checkdoc-defun-info'.  ENDPOINT is the
 location of end of the documentation string.")
 
-(defvar checkdoc-comment-style-hooks nil
-  "Hooks called after the standard comment style check is completed.
+(define-obsolete-variable-alias 'checkdoc-comment-style-hooks
+  checkdoc-comment-style-functions "24.3")
+(defvar checkdoc-comment-style-functions nil
+  "Hook run after the standard comment style check is completed.
 Must return nil if no errors are found, or a string describing the
 problem discovered.  This is useful for adding additional checks.")
 
@@ -1843,7 +1847,7 @@ Replace with \"%s\"? " original replace)
      ;; and reliance on the Ispell program.
      (checkdoc-ispell-docstring-engine e)
      ;; User supplied checks
-     (save-excursion (checkdoc-run-hooks 'checkdoc-style-hooks fp e))
+     (save-excursion (checkdoc-run-hooks 'checkdoc-style-functions fp e))
      ;; Done!
      )))
 
@@ -2353,7 +2357,7 @@ Code:, and others referenced in the style guide."
        err
        (or
        ;; Generic Full-file checks (should be comment related)
-       (checkdoc-run-hooks 'checkdoc-comment-style-hooks)
+       (checkdoc-run-hooks 'checkdoc-comment-style-functions)
        err))
       ;; Done with full file comment checks
       err)))
index 5f8cbea7c27e76c5b20d0a39628dcf4f81982796..608134bd54fd762dbd5e0eb8f6361b6ac2f21b0b 100644 (file)
@@ -2066,7 +2066,9 @@ Keys are a number representing :before, :primary, and :after methods.")
 During executions, the list is first generated, then as each next method
 is called, the next method is popped off the stack.")
 
-(defvar eieio-pre-method-execution-hooks nil
+(define-obsolete-variable-alias 'eieio-pre-method-execution-hooks
+  'eieio-pre-method-execution-functions "24.3")
+(defvar eieio-pre-method-execution-functions nil
   "Abnormal hook run just before an EIEIO method is executed.
 The hook function must accept one argument, the list of forms
 about to be executed.")
@@ -2172,7 +2174,7 @@ This should only be called from a generic function."
              (eieiomt-method-list method method-primary nil)))
       )
 
-    (run-hook-with-args 'eieio-pre-method-execution-hooks
+    (run-hook-with-args 'eieio-pre-method-execution-functions
                        primarymethodlist)
 
     ;; Now loop through all occurrences forms which we must execute
@@ -2277,7 +2279,7 @@ for this common case to improve performance."
 
        ;; Do the regular implementation here.
 
-       (run-hook-with-args 'eieio-pre-method-execution-hooks
+       (run-hook-with-args 'eieio-pre-method-execution-functions
                            lambdas)
 
        (setq lastval (apply (car lambdas) newargs))
index a91d8cf0fcba8df609d2c53cd66d8794942f9504..7f695cf33dd7e40f788f470f3b2c5271bf5726aa 100644 (file)
@@ -403,8 +403,10 @@ Don't forget to check out `filesets-menu-ensure-use-cached'."
                  (sexp :tag "Other" :value nil)))
   :group 'filesets)
 
-(defcustom filesets-cache-fill-content-hooks nil
-  "Hooks to run when writing the contents of filesets' cache file.
+(define-obsolete-variable-alias 'filesets-cache-fill-content-hooks
+  'filesets-cache-fill-content-hook "24.3")
+(defcustom filesets-cache-fill-content-hook nil
+  "Hook run when writing the contents of filesets' cache file.
 
 The hook is called with the cache file as current buffer and the cursor
 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."
       (when filesets-cache-hostname-flag
        (insert (format "(setq filesets-cache-hostname %S)" (system-name)))
        (newline 2))
-      (run-hooks 'filesets-cache-fill-content-hooks)
+      (run-hooks 'filesets-cache-fill-content-hook)
       (write-file filesets-menu-cache-file))
     (setq filesets-has-changed-flag nil)
     (setq filesets-update-cache-file-flag nil)))
index dade2b4bbe5521699da7ad163c8141f70def822b..8cb53de85fa1a2aed7f23ca997a73d957de74b9e 100644 (file)
@@ -1,3 +1,11 @@
+2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * nndiary.el (nndiary-request-create-group-functions)
+       (nndiary-request-update-info-functions)
+       (nndiary-request-accept-article-functions):
+       * gnus-start.el (gnus-subscribe-newsgroup-functions): Don't use
+       "-hooks" suffix.
+
 2012-10-17  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>  (tiny change)
 
        * starttls.el (starttls-extra-arguments): Doc fix.
 
 2012-09-05  Martin Stjernholm  <mast@lysator.liu.se>
 
-       * gnus-demon.el (gnus-demon-init): Fixed regression when IDLE is t and
+       * gnus-demon.el (gnus-demon-init): Fix regression when IDLE is t and
        TIME is set.
 
 2012-09-05  Juri Linkov  <juri@jurta.org>
        * gnus.el: Register gnus-registry functions.
 
        * gnus-registry.el (gnus-try-warping-via-registry):
-       Moved here and indent.
+       Move here and indent.
 
        * gnus-int.el (gnus-warp-to-article):
        Check whether the registry is enabled before warping.
        (message-multi-smtp-send-mail): Respect the X-Message-SMTP-Method
        header to implement multi-SMTP functionality.
 
-       * gnus-agent.el (gnus-agent-send-mail-function): Removed.
+       * gnus-agent.el (gnus-agent-send-mail-function): Remove.
        (gnus-agentize): Don't set it.
        (gnus-agent-send-mail): Don't use it.
 
 
 2012-06-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
-       * gnus-group.el (gnus-group-get-new-news): Respect
-       `gnus-group-use-permanent-levels', as documented (bug#11638).
+       * gnus-group.el (gnus-group-get-new-news):
+       Respect `gnus-group-use-permanent-levels', as documented (bug#11638).
 
 2012-06-10  Dave Abrahams  <dave@boostpro.com>
 
        (shr-insert): Allow the natural width to be computed for tables again.
        (shr-tag-table-1): Rework how the natural widths are computed by
        rendering the table a third time.
-       (shr-natural-width): Removed.
+       (shr-natural-width): Remove.
        (shr-buffer-width): New function.
        (shr-expand-newlines): Use it.
 
 
 2012-01-04  Wolfgang Jenkner  <wjenkner@inode.at>  (tiny change)
 
-       * gnus-agent.el (gnus-agent-load-local): Recompute
-       gnus-agent-article-local on changing method.
+       * gnus-agent.el (gnus-agent-load-local):
+       Recompute gnus-agent-article-local on changing method.
 
 2012-01-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 
 2011-09-27  Daiki Ueno  <ueno@unixuser.org>
 
-       * plstore.el (plstore-select-keys, plstore-encrypt-to): Clarify
-       documentation.
+       * plstore.el (plstore-select-keys, plstore-encrypt-to):
+       Clarify documentation.
 
 2011-09-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
index 40ee78bb6952eebd9fdd698656b5b139d59e57c9..eaf17d9e5793e437b214b320a5fa1b4351d0ec68 100644 (file)
@@ -291,7 +291,9 @@ claim them."
                function
                (repeat function)))
 
-(defcustom gnus-subscribe-newsgroup-hooks nil
+(define-obsolete-variable-alias 'gnus-subscribe-newsgroup-hooks
+  'gnus-subscribe-newsgroup-functions "24.3")
+(defcustom gnus-subscribe-newsgroup-functions nil
   "*Hooks run after you subscribe to a new group.
 The hooks will be called with new group's name as argument."
   :version "22.1"
@@ -639,7 +641,7 @@ the first newsgroup."
      gnus-level-killed (gnus-group-entry (or next "dummy.group")))
     (gnus-request-update-group-status newsgroup 'subscribe)
     (gnus-message 5 "Subscribe newsgroup: %s" newsgroup)
-    (run-hook-with-args 'gnus-subscribe-newsgroup-hooks newsgroup)
+    (run-hook-with-args 'gnus-subscribe-newsgroup-functions newsgroup)
     t))
 
 (defun gnus-read-active-file-p ()
index 8752972c3c8a7c8561b5831d90a765a52583a8e6..73dd2921b68daf240132277f4eb0aa6e4a6f95bb 100644 (file)
@@ -179,22 +179,28 @@ In order to make this clear, here are some examples:
   :group 'nndiary)
 
 
-(defcustom nndiary-request-create-group-hooks nil
-  "*Hooks to run after `nndiary-request-create-group' is executed.
-The hooks will be called with the full group name as argument."
+(define-obsolete-variable-alias 'nndiary-request-create-group-hooks
+  'nndiary-request-create-group-functions "24.3")
+(defcustom nndiary-request-create-group-functions nil
+  "*Hook run after `nndiary-request-create-group' is executed.
+The hook functions will be called with the full group name as argument."
   :group 'nndiary
   :type 'hook)
 
-(defcustom nndiary-request-update-info-hooks nil
-  "*Hooks to run after `nndiary-request-update-info-group' is executed.
-The hooks will be called with the full group name as argument."
+(define-obsolete-variable-alias 'nndiary-request-update-info-hooks
+  'nndiary-request-update-info-functions "24.3")
+(defcustom nndiary-request-update-info-functions nil
+  "*Hook run after `nndiary-request-update-info-group' is executed.
+The hook functions will be called with the full group name as argument."
   :group 'nndiary
   :type 'hook)
 
-(defcustom nndiary-request-accept-article-hooks nil
-  "*Hooks to run before accepting an article.
+(define-obsolete-variable-alias 'nndiary-request-accept-article-hooks
+  'nndiary-request-accept-article-functions "24.3")
+(defcustom nndiary-request-accept-article-functions nil
+  "*Hook run before accepting an article.
 Executed near the beginning of `nndiary-request-accept-article'.
-The hooks will be called with the article in the current buffer."
+The hook functions will be called with the article in the current buffer."
   :group 'nndiary
   :type 'hook)
 
@@ -541,7 +547,7 @@ all.  This may very well take some time.")
          (setcar active (apply 'min articles))
          (setcdr active (apply 'max articles))))
       (nnmail-save-active nndiary-group-alist nndiary-active-file)
-      (run-hook-with-args 'nndiary-request-create-group-hooks
+      (run-hook-with-args 'nndiary-request-create-group-functions
                          (gnus-group-prefixed-name group
                                                    (list "nndiary" server)))
       t))
@@ -633,7 +639,7 @@ all.  This may very well take some time.")
 (deffoo nndiary-request-accept-article (group &optional server last)
   (nndiary-possibly-change-directory group server)
   (nnmail-check-syntax)
-  (run-hooks 'nndiary-request-accept-article-hooks)
+  (run-hooks 'nndiary-request-accept-article-functions)
   (when (nndiary-schedule)
     (let (result)
       (when nnmail-cache-accepted-message-ids
@@ -804,7 +810,7 @@ all.  This may very well take some time.")
             (gnus-info-set-read info (gnus-update-read-articles
                                       (gnus-info-group info) unread t)))
        ))
-    (run-hook-with-args 'nndiary-request-update-info-hooks
+    (run-hook-with-args 'nndiary-request-update-info-functions
                        (gnus-info-group info))
     t))
 
index b0bc5b6b3b386ba0e2a7a01c0ba69a401e699ec8..a1853a6e04b6eec8eebcd85d5c8c888753e6c2d4 100644 (file)
@@ -249,7 +249,8 @@ when not running under a window system."
   :tag   "init-kludge-hooks"
   :type  '(hook))
 
-(defcustom hfy-post-html-hooks nil
+(define-obsolete-variable-alias 'hfy-post-html-hooks 'hfy-post-html-hook "24.3")
+(defcustom hfy-post-html-hook nil
   "List of functions to call after creating and filling the HTML buffer.
 These functions will be called with the HTML buffer as the current buffer."
   :group   'htmlfontify
@@ -1786,7 +1787,7 @@ FILE, if set, is the file name."
       ;;(message "inserting footer")
       (insert (funcall hfy-page-footer file)))
     ;; call any post html-generation hooks:
-    (run-hooks 'hfy-post-html-hooks)
+    (run-hooks 'hfy-post-html-hook)
     ;; return the html buffer
     (set-buffer-modified-p nil)
     html-buffer))
index 331754fb1b5305e52dc286af9b4c43f00dba4ec3..afa13fe4e043c3d8d445ded79fa21aa29fb3a9d1 100644 (file)
@@ -243,15 +243,14 @@ Used by `mail-yank-original' via `mail-indent-citation'."
   :type 'integer
   :group 'sendmail)
 
-;; FIXME make it really obsolete.
 (defvar mail-yank-hooks nil
   "Obsolete hook for modifying a citation just inserted in the mail buffer.
 Each hook function can find the citation between (point) and (mark t).
 And each hook function should leave point and mark around the citation
 text as modified.
-
 This is a normal hook, misnamed for historical reasons.
-It is semi-obsolete and mail agents should no longer use it.")
+It is obsolete and mail agents should no longer use it.")
+(make-obsolete-variable 'mail-yank-hooks 'mail-citation-hook "19.34")
 
 ;;;###autoload
 (defcustom mail-citation-hook nil
index 6eedef1980e971a92a77d20690b9d5aa8ee679bf..adc8707f01104a2b8cfd56ed8d576ede0c318706 100644 (file)
@@ -1,3 +1,7 @@
+2012-10-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mh-letter.el (mh-yank-hooks): Use make-obsolete-variable.
+
 2012-04-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * mh-utils.el (minibuffer-completing-file-name): Don't declare, unused.
index 2723fb5e684caa9ab1f1e5e714e1910078af8bcd..705c92b0b4cea40bf30e02f0e0efbd2ace2c77ef 100644 (file)
@@ -3189,7 +3189,9 @@ function used to insert the signature with
   :group 'mh-letter
   :package-version '(MH-E . "8.0"))
 
-(defcustom-mh mh-kill-folder-suppress-prompt-hooks '(mh-search-p)
+(define-obsolete-variable-alias 'mh-kill-folder-suppress-prompt-hooks
+  'mh-kill-folder-suppress-prompt-functions "24.3")
+(defcustom-mh mh-kill-folder-suppress-prompt-functions '(mh-search-p)
   "Abnormal hook run at the beginning of \\<mh-folder-mode-map>\\[mh-kill-folder].
 
 The hook functions are called with no arguments and should return
index 8aed18733480b7de1b7659298f95a07eac58fc47..490bfc075602a24448837e8d7703c2520ab203ce 100644 (file)
@@ -66,8 +66,9 @@ Each hook function can find the citation between point and mark.
 And each hook function should leave point and mark around the
 citation text as modified.
 
-This is a normal hook, misnamed for historical reasons. It is
-semi-obsolete and is only used if `mail-citation-hook' is nil.")
+This is a normal hook, misnamed for historical reasons.
+It is obsolete and is only used if `mail-citation-hook' is nil.")
+(make-obsolete-variable 'mh-yank-hooks 'mail-citation-hook "19.34")
 
 \f
 
index 772a0a9c6268909a6a7d39846b6b3ca3f400282d..c95e901c39d85ec9a5c9e3e8fb758743c3911a39 100644 (file)
@@ -152,7 +152,9 @@ Otherwise, return result of last form in BODY, or all other errors."
      (dbus-error (when dbus-debug (signal (car err) (cdr err))))))
 (font-lock-add-keywords 'emacs-lisp-mode '("\\<dbus-ignore-errors\\>"))
 
-(defvar dbus-event-error-hooks nil
+(define-obsolete-variable-alias 'dbus-event-error-hooks
+  'dbus-event-error-functions "24.3")
+(defvar dbus-event-error-functions nil
   "Functions to be called when a D-Bus error happens in the event handler.
 Every function must accept two arguments, the event and the error variable
 caught in `condition-case' by `dbus-error'.")
@@ -947,7 +949,7 @@ If the HANDLER returns a `dbus-error', it is propagated as return message."
         (dbus-method-error-internal
          (nth 1 event) (nth 4 event) (nth 3 event) (cadr err))))
      ;; Propagate D-Bus error messages.
-     (run-hook-with-args 'dbus-event-error-hooks event err)
+     (run-hook-with-args 'dbus-event-error-functions event err)
      (when (or dbus-debug (= dbus-message-type-error (nth 2 event)))
        (signal (car err) (cdr err))))))
 
index dd345630b9b9e27acafaed7bc69b4bf055fbd684..e9828c5f813a6e272d9d8113104dad37439461aa 100644 (file)
@@ -300,7 +300,9 @@ See `rcirc-dim-nick' face."
   :type '(repeat string)
   :group 'rcirc)
 
-(defcustom rcirc-print-hooks nil
+(define-obsolete-variable-alias 'rcirc-print-hooks
+  'rcirc-print-functions "24.3")
+(defcustom rcirc-print-functions nil
   "Hook run after text is printed.
 Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT."
   :type 'hook
@@ -647,7 +649,9 @@ is non-nil."
               "] "
               text)))))
 
-(defvar rcirc-sentinel-hooks nil
+(define-obsolete-variable-alias 'rcirc-sentinel-hooks
+  'rcirc-sentinel-functions "24.3")
+(defvar rcirc-sentinel-functions nil
   "Hook functions called when the process sentinel is called.
 Functions are called with PROCESS and SENTINEL arguments.")
 
@@ -664,7 +668,7 @@ Functions are called with PROCESS and SENTINEL arguments.")
                               sentinel
                               (process-status process)) (not rcirc-target))
          (rcirc-disconnect-buffer)))
-      (run-hook-with-args 'rcirc-sentinel-hooks process sentinel))))
+      (run-hook-with-args 'rcirc-sentinel-functions process sentinel))))
 
 (defun rcirc-disconnect-buffer (&optional buffer)
   (with-current-buffer (or buffer (current-buffer))
@@ -684,7 +688,9 @@ Functions are called with PROCESS and SENTINEL arguments.")
           (process-list))
     ps))
 
-(defvar rcirc-receive-message-hooks nil
+(define-obsolete-variable-alias 'rcirc-receive-message-hooks
+  'rcirc-receive-message-functions "24.3")
+(defvar rcirc-receive-message-functions nil
   "Hook functions run when a message is received from server.
 Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.")
 (defun rcirc-filter (process output)
@@ -738,7 +744,7 @@ Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.")
         (if (not (fboundp handler))
             (rcirc-handler-generic process cmd sender args text)
           (funcall handler process sender args text))
-        (run-hook-with-args 'rcirc-receive-message-hooks
+        (run-hook-with-args 'rcirc-receive-message-functions
                             process cmd sender args text)))
     (message "UNHANDLED: %s" text)))
 
@@ -1625,7 +1631,7 @@ record activity."
          (rcirc-log process sender response target text))
 
        (sit-for 0)                     ; displayed text before hook
-       (run-hook-with-args 'rcirc-print-hooks
+       (run-hook-with-args 'rcirc-print-functions
                            process sender response target text)))))
 
 (defun rcirc-generate-log-filename (process target)
@@ -1927,7 +1933,9 @@ With prefix ARG, go to the next low priority buffer with activity."
                          (key-description (this-command-keys))
                          " for low priority activity."))))))))
 
-(defvar rcirc-activity-hooks nil
+(define-obsolete-variable-alias 'rcirc-activity-hooks
+  'rcirc-activity-functions "24.3")
+(defvar rcirc-activity-functions nil
   "Hook to be run when there is channel activity.
 
 Functions are called with a single argument, the buffer with the
@@ -1950,7 +1958,7 @@ activity.  Only run if the buffer is not visible and
        (unless (and (equal rcirc-activity old-activity)
                     (member type old-types))
          (rcirc-update-activity-string)))))
-  (run-hook-with-args 'rcirc-activity-hooks buffer))
+  (run-hook-with-args 'rcirc-activity-functions buffer))
 
 (defun rcirc-clear-activity (buffer)
   "Clear the BUFFER activity."
index 2a000957589e50b2a56e4cd1c0811490ecef5da8..50eaebe4dec7de714b3f3e98de8784f4cbeb87ca 100644 (file)
@@ -1703,7 +1703,9 @@ Key bindings:
   (message "Using CC Mode version %s" c-version)
   (c-keep-region-active))
 
-(defvar c-prepare-bug-report-hooks nil)
+(define-obsolete-variable-alias 'c-prepare-bug-report-hooks
+  'c-prepare-bug-report-hook "24.3")
+(defvar c-prepare-bug-report-hook nil)
 
 ;; Dynamic variables used by reporter.
 (defvar reporter-prompt-for-summary-p)
@@ -1770,7 +1772,7 @@ Key bindings:
                lookup-syntax-properties))
        vars)
       (lambda ()
-       (run-hooks 'c-prepare-bug-report-hooks)
+       (run-hooks 'c-prepare-bug-report-hook)
        (insert (format "Buffer Style: %s\nc-emacs-features: %s\n"
                        style c-features)))))))
 
index 0f30976b023571ae1bdf66a1f451d20a312c830b..94012fc47dea9785c60e2128d9fa67fe8fe5f06f 100644 (file)
@@ -1260,12 +1260,10 @@ is converted into a string by expressing it in decimal."
 (define-obsolete-variable-alias 'executing-macro 'executing-kbd-macro
   "before 19.34")
 
-(defvaralias 'x-lost-selection-hooks 'x-lost-selection-functions)
-(make-obsolete-variable 'x-lost-selection-hooks
-                       'x-lost-selection-functions "22.1")
-(defvaralias 'x-sent-selection-hooks 'x-sent-selection-functions)
-(make-obsolete-variable 'x-sent-selection-hooks
-                       'x-sent-selection-functions "22.1")
+(define-obsolete-variable-alias 'x-lost-selection-hooks
+  'x-lost-selection-functions "22.1")
+(define-obsolete-variable-alias 'x-sent-selection-hooks
+  'x-sent-selection-functions "22.1")
 
 ;; This was introduced in 21.4 for pre-unicode unification.  That
 ;; usage was rendered obsolete in 23.1 which uses Unicode internally.
index 4bd22c1d8da7486627c1d4d635b6bda4a56a99f3..dfe7a63ac1b460089a76bd4adf14669ef518f6ef 100644 (file)
 
 (defvar sun-raw-prefix-hooks nil
   "List of forms to evaluate after setting sun-raw-prefix.")
+(make-obsolete-variable 'sun-raw-prefix-hooks 'term-setup-hook "21.1")
 
 \f
 
index 9e6f5769c8f1b2600b17defd26cf211d2dd4c6df..5c471664fdce82f1157c3a5c7b0d96b5786c791b 100644 (file)
@@ -217,8 +217,9 @@ This can be toggled with `ediff-toggle-filename-truncation'."
   :type 'hook
   :group 'ediff-mult)
 
-(defcustom ediff-before-session-group-setup-hooks nil
-  "Hooks to run before Ediff arranges the window for group-level operations.
+(defcustom ediff-before-session-group-setup-hooks
+  nil ;FIXME: Bad name (should be -hook or -functions) and never run??
+  "Hook run before Ediff arranges the window for group-level operations.
 It is used by commands such as `ediff-directories'.
 This hook can be used to save the previous window config, which can be restored
 on `ediff-quit', `ediff-suspend', or `ediff-quit-session-group-hook'."