[gnus git] branch master updated: m0-13-99-ge1f185f =1= dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work for (function nconc) as well as (quote nconc).

       via  e1f185f9105db5ef945c731ff6ca347ed3704adf (commit)
      from  54d52eadf3f42a9a8f8d972999b823fd229b9bfa (commit)


- Log -----------------------------------------------------------------
commit e1f185f9105db5ef945c731ff6ca347ed3704adf
Author: Katsumi Yamaoka <[email protected]>
Date:   Wed Dec 16 08:47:56 2015 +0000

    dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work
    for (function nconc) as well as (quote nconc).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc261cb..4e1430e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-12-16  Katsumi Yamaoka  <[email protected]>
+
+	* dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work
+	for (function nconc) as well as (quote nconc).
+
 2015-12-04  Daiki Ueno  <[email protected]>
 
 	* qp.el (quoted-printable-encode-region): Bind `case-fold-search' to
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index ec791a8..b2c73e0 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -272,7 +272,7 @@ in `defcustom' forms."
       (when (and (eq last (third form))
 		 (consp last)
 		 (eq 'mapcar (car last))
-		 (equal (nth 1 form) ''nconc))
+		 (member (nth 1 form) '(''nconc #'nconc)))
 	(setq form (cons 'mapcan (cdr last)))))))
 
 (if (featurep 'emacs)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    5 +++++
 lisp/dgnushack.el |    2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project