procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

erc-backend.el: Give hook-name a default value of nil and add-to-list unconditionally. Fixes debbugs:19363

Browse source
This commit is contained in:
Dima Kogan 2015-01-14 16:47:01 -05:00 • committed by kwhite
parent 61cc7bf8c4
commit d132c7b658
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/erc/ChangeLog
View file

@ -1,3 +1,8 @@
2015-01-14 Dima Kogan <dima@secretsauce.net>
* erc-backend.el (define-erc-response-handler): Give hook-name
default value of nil and add-to-list (bug#19363)
2014-11-10 Kelvin White <kwhite@gnu.org> 2014-11-10 Kelvin White <kwhite@gnu.org>
* erc-stamp.el (erc-timestamp-intangible): Change version tag to 24.5. * erc-stamp.el (erc-timestamp-intangible): Change version tag to 24.5.

7
lisp/erc/erc-backend.el
View file

@ -1162,8 +1162,11 @@ add things to `%s' instead."
(cl-loop for alias in aliases (cl-loop for alias in aliases
collect (intern (format "erc-server-%s-functions" alias))))) collect (intern (format "erc-server-%s-functions" alias)))))
`(prog2 `(prog2
;; Normal hook variable. ;; Normal hook variable. The variable may already have a
(defvar ,hook-name ',fn-name ,(format hook-doc name)) ;; value at this point, so I default to nil, and (add-hook)
;; unconditionally
(defvar ,hook-name nil ,(format hook-doc name))
(add-to-list ',hook-name ',fn-name)
;; Handler function ;; Handler function
(defun ,fn-name (proc parsed) (defun ,fn-name (proc parsed)
,fn-doc ,fn-doc