diff options
| author | Paul Eggert | 2016-11-04 15:02:03 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-11-04 15:02:03 -0700 |
| commit | ae0a1a890ec7b885e85cd945a21ca42fed80df3d (patch) | |
| tree | 495f1d851cb3a43a0e677bff9c09d4211a35fbde /lisp/erc | |
| parent | 66b5222c3cd72839bf72e0b2a03912719c930451 (diff) | |
| parent | acae275b2752357497a2411876b83240ce7c8aec (diff) | |
| download | emacs-ae0a1a890ec7b885e85cd945a21ca42fed80df3d.tar.gz emacs-ae0a1a890ec7b885e85cd945a21ca42fed80df3d.zip | |
Merge from origin/emacs-25
acae275 ; Spelling fixes
d8fac73 Update README for precompiled windows Emacs.
23570fd Clarify documentation of 'vc-responsible-backend' wrt symlinks
f708cb2 Clarify doc string of 'transpose-sexps'
cd05b1d Fix docstring of 'browse-url-firefox-new-window-is-tab'
bdc89eb Improve documentation of 'font-lock-remove-keywords'
4a0c590 Fix documentation of the command summary key
0221b7a Mark relocation workarounds with REL_ALLOC
Diffstat (limited to 'lisp/erc')
| -rw-r--r-- | lisp/erc/erc-backend.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 54c17bf73d9..288e8efe73e 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el | |||
| @@ -108,7 +108,7 @@ | |||
| 108 | ;;;; Variables and options | 108 | ;;;; Variables and options |
| 109 | 109 | ||
| 110 | (defvar erc-server-responses (make-hash-table :test #'equal) | 110 | (defvar erc-server-responses (make-hash-table :test #'equal) |
| 111 | "Hashtable mapping server responses to their handler hooks.") | 111 | "Hash table mapping server responses to their handler hooks.") |
| 112 | 112 | ||
| 113 | (cl-defstruct (erc-response (:conc-name erc-response.)) | 113 | (cl-defstruct (erc-response (:conc-name erc-response.)) |
| 114 | (unparsed "" :type string) | 114 | (unparsed "" :type string) |
| @@ -1061,7 +1061,7 @@ See also `erc-server-responses'." | |||
| 1061 | (defun erc-call-hooks (process message) | 1061 | (defun erc-call-hooks (process message) |
| 1062 | "Call hooks associated with MESSAGE in PROCESS. | 1062 | "Call hooks associated with MESSAGE in PROCESS. |
| 1063 | 1063 | ||
| 1064 | Finds hooks by looking in the `erc-server-responses' hashtable." | 1064 | Finds hooks by looking in the `erc-server-responses' hash table." |
| 1065 | (let ((hook (or (erc-get-hook (erc-response.command message)) | 1065 | (let ((hook (or (erc-get-hook (erc-response.command message)) |
| 1066 | 'erc-default-server-functions))) | 1066 | 'erc-default-server-functions))) |
| 1067 | (run-hook-with-args-until-success hook process message) | 1067 | (run-hook-with-args-until-success hook process message) |
| @@ -1218,7 +1218,7 @@ add things to `%s' instead." | |||
| 1218 | (put ',fn-name 'definition-name ',name) | 1218 | (put ',fn-name 'definition-name ',name) |
| 1219 | (put ',hook-name 'definition-name ',name) | 1219 | (put ',hook-name 'definition-name ',name) |
| 1220 | 1220 | ||
| 1221 | ;; Hashtable map of responses to hook variables | 1221 | ;; Hash table map of responses to hook variables |
| 1222 | ,@(cl-loop for response in (cons name aliases) | 1222 | ,@(cl-loop for response in (cons name aliases) |
| 1223 | for var in (cons hook-name var-alternates) | 1223 | for var in (cons hook-name var-alternates) |
| 1224 | collect `(puthash ,(format "%s" response) ',var | 1224 | collect `(puthash ,(format "%s" response) ',var |