From e1f185f9105db5ef945c731ff6ca347ed3704adf Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 16 Dec 2015 08:47:56 +0000 Subject: [PATCH] dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work for (function nconc) as well as (quote nconc). --- lisp/ChangeLog | 5 +++++ lisp/dgnushack.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc261cb2c..4e1430e10 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-12-16 Katsumi Yamaoka + + * dgnushack.el (byte-optimize-apply): Make the use-mapcan advice work + for (function nconc) as well as (quote nconc). + 2015-12-04 Daiki Ueno * qp.el (quoted-printable-encode-region): Bind `case-fold-search' to diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index ec791a867..b2c73e035 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) -- 2.11.4.GIT