Mercurial > emacs

comparison lisp/emacs-lisp/edebug.el @ 18399:feed0e356d1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edebug-version): Use the Emacs version.
author Richard M. Stallman <rms@gnu.org>
date Mon, 23 Jun 1997 02:04:50 +0000
parents 9ae76ef113f6
children 43149745d126
comparison
equal deleted inserted replaced
18398:3c18aa006200 18399:feed0e356d1b
3 ;; Copyright (C) 1988,'89,'90,'91,'92,'93,'94,'95,'97 3 ;; Copyright (C) 1988,'89,'90,'91,'92,'93,'94,'95,'97
4 ;; Free Software Foundation, Inc 4 ;; Free Software Foundation, Inc
5 5
6 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 6 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
7 ;; Keywords: lisp, tools, maint 7 ;; Keywords: lisp, tools, maint
8
9 ;; LCD Archive Entry:
10 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
11 ;; |A source level debugger for Emacs Lisp.
12 ;; |$Date: 1997/05/29 06:32:44 $|$Revision: 3.17 $|~/modes/edebug.el|
13 8
14 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
15 10
16 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
84 ;; For the early revision history, see edebug-history. 79 ;; For the early revision history, see edebug-history.
85 80
86 ;;; Code: 81 ;;; Code:
87 82
88 (defconst edebug-version 83 (defconst edebug-version
89 (let ((raw-version "$Revision: 3.17 $")) 84 (concat "In Emacs version " emacs-version))
90 (substring raw-version (string-match "[0-9.]*" raw-version)
91 (match-end 0))))
92 85
93 (require 'backquote) 86 (require 'backquote)
94 87
95 ;; Emacs 18 doesn't have defalias. 88 ;; Emacs 18 doesn't have defalias.
96 (eval-and-compile 89 (eval-and-compile