From: Gerd Moellmann Date: Mon, 23 Apr 2001 12:31:27 +0000 (+0000) Subject: (fortune-from-region): Use `eq' instead of `eql'. X-Git-Tag: emacs-pretest-21.0.103~145 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d14e80c95d5b611a2ada9b6f6277f512a7a1a3d;p=emacs.git (fortune-from-region): Use `eq' instead of `eql'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 507640f684c..a680a9249e7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2001-04-23 Gerd Moellmann + * play/fortune.el (fortune-from-region): Use `eq' instead of `eql'. + * textmodes/ispell.el, emacs-lisp/checkdoc.el, * progmodes/ebrowse.el, play/fortune.el: Fix autoload cookies. diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 0ae1a841f43..3ab616b9b31 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -201,9 +201,9 @@ read the file name to use. Otherwise use the value of `fortune-file'." (point-max) t)) (if help-point (setq newsgroup (buffer-substring (match-beginning 1) help-point)) - (setq newsgroup (if (or (eql major-mode 'gnus-article-mode) - (eql major-mode 'vm-mode) - (eql major-mode 'rmail-mode)) + (setq newsgroup (if (or (eq major-mode 'gnus-article-mode) + (eq major-mode 'vm-mode) + (eq major-mode 'rmail-mode)) fortune-from-mail "unknown"))))