diff options
| author | Chong Yidong | 2012-06-12 13:47:14 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-06-12 13:47:14 +0800 |
| commit | f1a4e679f3b0696089b4fd73717307ba5d23e1cf (patch) | |
| tree | dc44016b20723e38247300b6c6eaec3cd4e98761 /lisp/erc | |
| parent | bf67e61f291a82a9e90a7918f5188714853f0094 (diff) | |
| download | emacs-f1a4e679f3b0696089b4fd73717307ba5d23e1cf.tar.gz emacs-f1a4e679f3b0696089b4fd73717307ba5d23e1cf.zip | |
Various minor variable/hook cleanups.
* lisp/emacs-lisp/edebug.el (edebug-inhibit-emacs-lisp-mode-bindings):
Rename from gud-inhibit-global-bindings.
* lisp/emacs-lisp/eieio.el (eieio-pre-method-execution-hooks): Doc fix.
* lisp/erc/erc-dcc.el (erc-dcc-chat-filter-functions): Rename from
erc-dcc-chat-filter-hook, since this is an abnormal hook.
* lisp/nxml/nxml-glyph.el (nxml-glyph-set-functions): Rename abnormal
hook from nxml-glyph-set-hook.
* lisp/progmodes/cwarn.el (cwarn-mode): Remove redundant variable
declaration.
* lisp/progmodes/pascal.el (pascal-toggle-completions): Doc fix.
* lisp/textmodes/bibtex.el (bibtex-string-file-path, bibtex-file-path):
Convert to defcustom.
* lisp/url/url-handlers.el (url-handler-regexp):
* lisp/url/url-nfs.el (url-nfs-automounter-directory-spec):
* lisp/url/url-vars.el (url-load-hook): Convert to defcustom.
Diffstat (limited to 'lisp/erc')
| -rw-r--r-- | lisp/erc/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/erc/erc-dcc.el | 15 |
2 files changed, 15 insertions, 5 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index d8cca31499d..fbc5baa6a79 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-06-12 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * erc-dcc.el (erc-dcc-chat-filter-functions): Rename from | ||
| 4 | erc-dcc-chat-filter-hook, since this is an abnormal hook. | ||
| 5 | |||
| 1 | 2012-06-08 Chong Yidong <cyd@gnu.org> | 6 | 2012-06-08 Chong Yidong <cyd@gnu.org> |
| 2 | 7 | ||
| 3 | * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) | 8 | * erc.el (erc-direct-msg-face, erc-header-line, erc-input-face) |
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index d1ef1a99548..66256ee270e 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el | |||
| @@ -627,7 +627,7 @@ separated by a space." | |||
| 627 | 627 | ||
| 628 | ;;;###autoload | 628 | ;;;###autoload |
| 629 | (defvar erc-ctcp-query-DCC-hook '(erc-ctcp-query-DCC) | 629 | (defvar erc-ctcp-query-DCC-hook '(erc-ctcp-query-DCC) |
| 630 | "Hook variable for CTCP DCC queries") | 630 | "Hook variable for CTCP DCC queries.") |
| 631 | 631 | ||
| 632 | (defvar erc-dcc-query-handler-alist | 632 | (defvar erc-dcc-query-handler-alist |
| 633 | '(("SEND" . erc-dcc-handle-ctcp-send) | 633 | '(("SEND" . erc-dcc-handle-ctcp-send) |
| @@ -1099,8 +1099,13 @@ Possible values are: ask, auto, ignore." | |||
| 1099 | (pcomplete-here '("auto" "ask" "ignore"))) | 1099 | (pcomplete-here '("auto" "ask" "ignore"))) |
| 1100 | (defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ) | 1100 | (defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ) |
| 1101 | 1101 | ||
| 1102 | (defvar erc-dcc-chat-filter-hook '(erc-dcc-chat-parse-output) | 1102 | (defvar erc-dcc-chat-filter-functions '(erc-dcc-chat-parse-output) |
| 1103 | "Hook to run after doing parsing (and possible insertion) of DCC messages.") | 1103 | "Abnormal hook run after parsing (and maybe inserting) a DCC message. |
| 1104 | Each function is called with two arguments: the ERC process and | ||
| 1105 | the unprocessed output.") | ||
| 1106 | |||
| 1107 | (define-obsolete-variable-alias 'erc-dcc-chat-filter-hook | ||
| 1108 | 'erc-dcc-chat-filter-functions "24.2") | ||
| 1104 | 1109 | ||
| 1105 | (defvar erc-dcc-chat-mode-map | 1110 | (defvar erc-dcc-chat-mode-map |
| 1106 | (let ((map (make-sparse-keymap))) | 1111 | (let ((map (make-sparse-keymap))) |
| @@ -1195,8 +1200,8 @@ other client." | |||
| 1195 | (set-buffer (process-buffer proc)) | 1200 | (set-buffer (process-buffer proc)) |
| 1196 | (setq erc-dcc-unprocessed-output | 1201 | (setq erc-dcc-unprocessed-output |
| 1197 | (concat erc-dcc-unprocessed-output str)) | 1202 | (concat erc-dcc-unprocessed-output str)) |
| 1198 | (run-hook-with-args 'erc-dcc-chat-filter-hook proc | 1203 | (run-hook-with-args 'erc-dcc-chat-filter-functions |
| 1199 | erc-dcc-unprocessed-output)) | 1204 | proc erc-dcc-unprocessed-output)) |
| 1200 | (set-buffer orig-buffer)))) | 1205 | (set-buffer orig-buffer)))) |
| 1201 | 1206 | ||
| 1202 | (defun erc-dcc-chat-parse-output (proc str) | 1207 | (defun erc-dcc-chat-parse-output (proc str) |