From 1d14e80c95d5b611a2ada9b6f6277f512a7a1a3d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 23 Apr 2001 12:31:27 +0000 Subject: [PATCH] (fortune-from-region): Use `eq' instead of `eql'. --- lisp/ChangeLog | 2 ++ lisp/play/fortune.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) 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")))) -- 2.39.2