diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/mail/supercite.el | 11 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 10451ae119c..4c5ad596eff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,11 @@ | |||
| 1 | 2001-10-28 Richard M. Stallman <rms@gnu.org> | 1 | 2001-10-28 Richard M. Stallman <rms@gnu.org> |
| 2 | 2 | ||
| 3 | * textmodes/ispell.el (version18p, version20p): Vars deleted. | ||
| 4 | All uses removed--assume Emacs version is >= 20. | ||
| 5 | |||
| 6 | * mail/supercite.el (sc-emacs-features): Test for "Emacs 19" | ||
| 7 | by really checking that it is not version 18. | ||
| 8 | |||
| 3 | * emacs-lisp/lisp-mode.el (eval-defun): Doc fix. | 9 | * emacs-lisp/lisp-mode.el (eval-defun): Doc fix. |
| 4 | 10 | ||
| 5 | 2001-10-28 Miles Bader <miles@gnu.org> | 11 | 2001-10-28 Miles Bader <miles@gnu.org> |
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 |