diff options
| author | Richard M. Stallman | 2001-10-28 14:20:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-10-28 14:20:39 +0000 |
| commit | 36656ee3bcb7c8bae14b5b4e7eb3c443bd240062 (patch) | |
| tree | 2ee4941bd81f798a907cc2181baeeb9b997b3c89 /lisp/mail | |
| parent | 46f90d0ff316746d282ae0831c47f33ad7864c24 (diff) | |
| download | emacs-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.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." | |||
| 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. |
| 525 | Known flavors are: | 524 | Known flavors are: |
| 526 | 525 | ||
| 527 | Emacs 18 : (v18 GNU) | 526 | Emacs 18 : (v18 GNU) |
| 528 | Emacs 19 or 20 : (v19 GNU) | 527 | Emacs 19 or later : (v19 GNU) |
| 529 | Lucid 19 or 20 : (v19 Lucid)") | 528 | Lucid 19 or later : (v19 Lucid)") |
| 530 | 529 | ||
| 531 | 530 | ||
| 532 | (defvar sc-tmp-nested-regexp nil | 531 | (defvar sc-tmp-nested-regexp nil |