diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-10-28 14:20:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-10-28 14:20:39 +0000 |
| commit | 36656ee3bcb7c8bae14b5b4e7eb3c443bd240062 (patch) | |
| tree | 2ee4941bd81f798a907cc2181baeeb9b997b3c89 /lisp/mail/supercite.el | |
| parent | 46f90d0ff316746d282ae0831c47f33ad7864c24 (diff) | |
| download | emacs-36656ee3bcb7c8bae14b5b4e7eb3c443bd240062.tar.gz emacs-36656ee3bcb7c8bae14b5b4e7eb3c443bd240062.tar.bz2 emacs-36656ee3bcb7c8bae14b5b4e7eb3c443bd240062.zip | |
(sc-emacs-features): Test for "Emacs 19"
by really checking that it is not version 18.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 11 |
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." (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 @@ string." "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 |