Mercurial > emacs

changeset 18926:e597d4b325df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change eql calls to eq.
author Richard M. Stallman <rms@gnu.org>
date Wed, 23 Jul 1997 21:40:04 +0000
parents 82814d4f6e51
children 45fd6af9ccde
files lisp/mail/mh-utils.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mh-utils.el	Wed Jul 23 21:39:50 1997 +0000
+++ b/lisp/mail/mh-utils.el	Wed Jul 23 21:40:04 1997 +0000
@@ -280,7 +280,7 @@
   (let ((folder mh-current-folder)
 	(clean-message-header mh-clean-message-header)
 	(show-window (get-buffer-window mh-show-buffer)))
-    (if (not (eql (next-window (minibuffer-window)) (selected-window)))
+    (if (not (eq (next-window (minibuffer-window)) (selected-window)))
 	(delete-other-windows))		; force ourself to the top window
     (mh-in-show-buffer (mh-show-buffer)
       (if (and show-window
@@ -434,8 +434,8 @@
   ;; Like recenter but with two improvements: nil arg means recenter,
   ;; and only does anything if the current buffer is in the selected
   ;; window.  (Commands like save-some-buffers can make this false.)
-  (if (eql (get-buffer-window (current-buffer))
-	   (selected-window))
+  (if (eq (get-buffer-window (current-buffer))
+	  (selected-window))
       (recenter (if arg arg '(t)))))
 
 
@@ -714,7 +714,7 @@
 	   (setq read-name (format "+%s" read-name))))
     (setq folder-name read-name)
     (cond ((and (> (length folder-name) 0)
-		(eql (aref folder-name (1- (length folder-name))) ?/))
+		(eq (aref folder-name (1- (length folder-name))) ?/))
 	   (setq folder-name (substring folder-name 0 -1))))
     (let ((new-file-p (not (file-exists-p (mh-expand-file-name folder-name)))))
       (cond ((and new-file-p
@@ -816,9 +816,9 @@
   ;; Return non-NIL if NAME is possibly the name of a folder.
   ;; A name (a string or symbol) can be a folder name if it begins with "+".
   (if (symbolp name)
-      (eql (aref (symbol-name name) 0) ?+)
+      (eq (aref (symbol-name name) 0) ?+)
     (and (> (length name) 0)
-	 (eql (aref name 0) ?+))))
+	 (eq (aref name 0) ?+))))
 
 
 ;;; Issue commands to MH.
@@ -924,7 +924,7 @@
   ;; STATUS is return value from call-process.
   ;; Program output is in current buffer.
   ;; If output is too long to include in error message, display the buffer.
-  (cond ((eql status 0)			;success
+  (cond ((eq status 0)			;success
 	 status)
 	((stringp status)		;kill string
 	 (error "%s: %s" command status))