Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 18399:feed0e356d1b
(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 |