mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(edebug-emacs-19-specific): Renamed from edebug-fsf19-specific.

Browse source 
(edebug-emacs-version-specific): Test for not-version-18.
This commit is contained in:
Richard M. Stallman 1994-04-05 01:21:06 +00:00
parent ab94bf9f4c
commit 100aa77cf6
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/emacs-lisp/edebug.el
View file

@ -8,9 +8,9 @@
;; LCD Archive Entry: ;; LCD Archive Entry:
;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
;; |A source level debugger for Emacs Lisp. ;; |A source level debugger for Emacs Lisp.
;; |$Date: 1994/04/04 21:39:52 $|3.5|~/modes/edebug.el| ;; |$Date: 1994/04/04 21:52:06 $|3.5|~/modes/edebug.el|
;; Version 3.5 ($Revision: 3.5 $ from FSF Emacs 19) ;; Version 3.5 ($Revision: 1.18 $ from Emacs 19)
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -2759,9 +2759,14 @@ MSG is printed after `::::} '."
(defvar edebug-outside-this-command) (defvar edebug-outside-this-command)
(defvar edebug-outside-last-input-char) (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 ;; Emacs 18
(defvar edebug-outside-unread-command-char) (defvar edebug-outside-unread-command-char)
(defvar unread-command-char -1) ;; Define for lemacs 19.9 (defvar unread-command-char -1)
;; Lucid Emacs ;; Lucid Emacs
(defvar edebug-outside-unread-command-event) ;; like unread-command-events (defvar edebug-outside-unread-command-event) ;; like unread-command-events
@ -4344,7 +4349,7 @@ It is removed when you hit any char."
;; to functions like mark and read-from-minibuffer. These warnings ;; to functions like mark and read-from-minibuffer. These warnings
;; may be ignored because the right call should always be made. ;; 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) (defalias 'edebug-window-live-p 'window-live-p)
@ -4429,15 +4434,14 @@ Print result in minibuffer."
(defun edebug-emacs-version-specific () (defun edebug-emacs-version-specific ()
(cond (cond
;; Test Lucid first. ((string-match "Lucid" emacs-version);; Lucid Emacs
((string-match "Lucid" emacs-version);; lemacs
(edebug-lemacs-specific)) (edebug-lemacs-specific))
((string-match "^19" emacs-version);; Emacs 19
(edebug-fsf19-specific))
((and (boundp 'epoch::version) epoch::version) ((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) (edebug-emacs-version-specific)