emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r109939: * subr.el (add-to-history):


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r109939: * subr.el (add-to-history): Fix delete usage.
Date: Sat, 08 Sep 2012 22:30:09 +0800
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 109939
fixes bug: http://debbugs.gnu.org/12314
author: Drew Adams <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-09-08 22:30:09 +0800
message:
  * subr.el (add-to-history): Fix delete usage.
modified:
  lisp/ChangeLog
  lisp/subr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-08 14:23:01 +0000
+++ b/lisp/ChangeLog    2012-09-08 14:30:09 +0000
@@ -1,3 +1,7 @@
+2012-09-08  Drew Adams  <address@hidden>
+
+       * subr.el (add-to-history): Fix delete usage (Bug#12314).
+
 2012-09-08  Chong Yidong  <address@hidden>
 
        * subr.el (syntax-after, syntax-class): Doc fix.

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2012-09-08 14:23:01 +0000
+++ b/lisp/subr.el      2012-09-08 14:30:09 +0000
@@ -1548,7 +1548,7 @@
               (or keep-all
                   (not (equal (car history) newelt))))
       (if history-delete-duplicates
-         (delete newelt history))
+         (setq history (delete newelt history)))
       (setq history (cons newelt history))
       (when (integerp maxelt)
        (if (= 0 maxelt)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]