Use eq instead of eql.
authorueno <ueno>
Wed, 12 Apr 2006 05:46:29 +0000 (05:46 +0000)
committerueno <ueno>
Wed, 12 Apr 2006 05:46:29 +0000 (05:46 +0000)
epg-file.el

index 19cda1c..f7790ed 100644 (file)
@@ -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)