From: ueno <ueno>
Date: Wed, 12 Apr 2006 05:46:29 +0000 (+0000)
Subject: Use eq instead of eql.
X-Git-Tag: epgsm-branchpoint~132
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fd7f3c8821d346a008af1ada3128a88ad5be7bdf;p=elisp%2Fepg.git

Use eq instead of eql.
---

diff --git a/epg-file.el b/epg-file.el
index 19cda1c..f7790ed 100644
--- a/epg-file.el
+++ b/epg-file.el
@@ -160,7 +160,7 @@ Part of the job of this function is setting `buffer-undo-list' appropriately."
           ;; remove it and get ready to replace it later.
           ;; In the mean time, turn off undo recording.
           (let ((last (car-safe buffer-undo-list)))
-            (if (and (consp last) (eql (car last) from) (eql (cdr last) to))
+            (if (and (consp last) (eq (car last) from) (eq (cdr last) to))
                 (setq undo-list-saved (cdr buffer-undo-list)
                       buffer-undo-list t))))
         (narrow-to-region from to)