Mercurial > emacs
changeset 6671:5b26038687ed
(edebug-emacs-19-specific): Renamed from edebug-fsf19-specific.
(edebug-emacs-version-specific): Test for not-version-18.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Apr 1994 01:21:06 +0000 |
| parents | b2c5fca3c10c |
| children | 12aafd560832 |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 15 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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)