Mercurial > emacs

changeset 40410:c2c136a07481

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sc-emacs-features): Test for "Emacs 19" by really checking that it is not version 18.
author Richard M. Stallman <rms@gnu.org>
date Sun, 28 Oct 2001 14:16:14 +0000
parents 216728b10960
children 61922b29fc83
files lisp/mail/supercite.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Sun Oct 28 14:15:14 2001 +0000
+++ b/lisp/mail/supercite.el	Sun Oct 28 14:16:14 2001 +0000
@@ -513,9 +513,8 @@
 (defconst sc-emacs-features
   (let ((version 'v18)
 	(flavor  'GNU))
-    (if (or
-	 (string= (substring emacs-version 0 2) "19")
-	 (string= (substring emacs-version 0 2) "20"))
+    (if (not
+	 (string= (substring emacs-version 0 2) "18"))
 	(setq version 'v19))
     (if (string-match "Lucid" emacs-version)
 	(setq flavor 'Lucid))
@@ -524,9 +523,9 @@
   "A list describing what version of Emacs we're running on.
 Known flavors are:
 
-Emacs 18        : (v18 GNU)
-Emacs 19 or 20  : (v19 GNU)
-Lucid 19 or 20  : (v19 Lucid)")
+Emacs 18           : (v18 GNU)
+Emacs 19 or later  : (v19 GNU)
+Lucid 19 or later  : (v19 Lucid)")
 
 
 (defvar sc-tmp-nested-regexp nil