mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
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.
This commit is contained in:
parent
f7eac6d887
commit
d106953274
40 changed files with 315 additions and 201 deletions
|
|
@ -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."
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue