From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 29 Oct 2001 09:08:16 +0000 (+0000)
Subject: (sc-emacs-features): Test for "Emacs 19"
X-Git-Tag: emacs-21.2~434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40f858da4dba8beabac0b61a6a05eb77482830b6;p=emacs.git

(sc-emacs-features): Test for "Emacs 19"
by really checking that it is not version 18.
---

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index dd5ce02946f..95427b14975 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -1,6 +1,6 @@
 ;;; supercite.el --- minor mode for citing mail and news replies
 
-;; Copyright (C) 1993, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1997, 2001 Free Software Foundation, Inc.
 
 ;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com>
 ;; Maintainer:    Mark Senn <mds@ecn.purdue.edu>
@@ -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