aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/mail
diff options
context:
space:
mode:
authorRichard M. Stallman2001-10-28 14:20:39 +0000
committerRichard M. Stallman2001-10-28 14:20:39 +0000
commit36656ee3bcb7c8bae14b5b4e7eb3c443bd240062 (patch)
tree2ee4941bd81f798a907cc2181baeeb9b997b3c89 /lisp/mail
parent46f90d0ff316746d282ae0831c47f33ad7864c24 (diff)
downloademacs-36656ee3bcb7c8bae14b5b4e7eb3c443bd240062.tar.gz
emacs-36656ee3bcb7c8bae14b5b4e7eb3c443bd240062.zip
(sc-emacs-features): Test for "Emacs 19"
by really checking that it is not version 18.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/supercite.el11
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index dd5ce02946f..db4a492de1d 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -513,9 +513,8 @@ string."
513(defconst sc-emacs-features 513(defconst sc-emacs-features
514 (let ((version 'v18) 514 (let ((version 'v18)
515 (flavor 'GNU)) 515 (flavor 'GNU))
516 (if (or 516 (if (not
517 (string= (substring emacs-version 0 2) "19") 517 (string= (substring emacs-version 0 2) "18"))
518 (string= (substring emacs-version 0 2) "20"))
519 (setq version 'v19)) 518 (setq version 'v19))
520 (if (string-match "Lucid" emacs-version) 519 (if (string-match "Lucid" emacs-version)
521 (setq flavor 'Lucid)) 520 (setq flavor 'Lucid))
@@ -524,9 +523,9 @@ string."
524 "A list describing what version of Emacs we're running on. 523 "A list describing what version of Emacs we're running on.
525Known flavors are: 524Known flavors are:
526 525
527Emacs 18 : (v18 GNU) 526Emacs 18 : (v18 GNU)
528Emacs 19 or 20 : (v19 GNU) 527Emacs 19 or later : (v19 GNU)
529Lucid 19 or 20 : (v19 Lucid)") 528Lucid 19 or later : (v19 Lucid)")
530 529
531 530
532(defvar sc-tmp-nested-regexp nil 531(defvar sc-tmp-nested-regexp nil