aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/erc
diff options
context:
space:
mode:
authorPaul Eggert2016-11-04 15:02:03 -0700
committerPaul Eggert2016-11-04 15:02:03 -0700
commitae0a1a890ec7b885e85cd945a21ca42fed80df3d (patch)
tree495f1d851cb3a43a0e677bff9c09d4211a35fbde /lisp/erc
parent66b5222c3cd72839bf72e0b2a03912719c930451 (diff)
parentacae275b2752357497a2411876b83240ce7c8aec (diff)
downloademacs-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.el6
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
1064Finds hooks by looking in the `erc-server-responses' hashtable." 1064Finds 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