# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765508866 0
# Node ID 5b26038687ed2ed8d135b8b58dc02dd09f8e1c30
# Parent  b2c5fca3c10cddeefc835094f58007fa6c3e6b5e
(edebug-emacs-19-specific): Renamed from edebug-fsf19-specific.
(edebug-emacs-version-specific): Test for not-version-18.

diff -r b2c5fca3c10c -r 5b26038687ed lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Tue Apr 05 00:49:58 1994 +0000
+++ b/lisp/emacs-lisp/edebug.el	Tue Apr 05 01:21:06 1994 +0000
@@ -8,9 +8,9 @@
 ;; LCD Archive Entry:
 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
 ;; |A source level debugger for Emacs Lisp.
-;; |$Date: 1994/04/04 21:39:52 $|3.5|~/modes/edebug.el|
-
-;; Version 3.5 ($Revision: 3.5 $ from FSF Emacs 19)
+;; |$Date: 1994/04/04 21:52:06 $|3.5|~/modes/edebug.el|
+
+;; Version 3.5 ($Revision: 1.18 $ from Emacs 19)
 
 ;; This file is part of GNU Emacs.
 
@@ -2759,9 +2759,14 @@
 (defvar edebug-outside-this-command)
 (defvar edebug-outside-last-input-char)
 
+;; Note: here we have defvars for variables that are
+;; built-in in certain versions.
+;; Each defvar makes a difference
+;; in versions where the variable is *not* built-in.
+
 ;; Emacs 18
 (defvar edebug-outside-unread-command-char)
-(defvar unread-command-char -1)  ;; Define for lemacs 19.9
+(defvar unread-command-char -1)
 
 ;; Lucid Emacs
 (defvar edebug-outside-unread-command-event)  ;; like unread-command-events
@@ -4344,7 +4349,7 @@
 ;; to functions like mark and read-from-minibuffer.  These warnings
 ;; may be ignored because the right call should always be made.
 
-(defun edebug-fsf19-specific ()
+(defun edebug-emacs-19-specific ()
 
   (defalias 'edebug-window-live-p 'window-live-p)
 
@@ -4429,15 +4434,14 @@
 
 (defun edebug-emacs-version-specific ()
   (cond 
-   ;; Test Lucid first.
-   ((string-match "Lucid" emacs-version);; lemacs
+   ((string-match "Lucid" emacs-version);; Lucid Emacs
     (edebug-lemacs-specific))
 
-   ((string-match "^19" emacs-version);; Emacs 19
-    (edebug-fsf19-specific))
-
    ((and (boundp 'epoch::version) epoch::version)
-    (require 'edebug-epoch))))
+    (require 'edebug-epoch))
+
+   ((not (string-match "^18" emacs-version))
+    (edebug-emacs-19-specific))))
 
 (edebug-emacs-version-specific)