diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-19 14:36:47 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-10-19 14:36:47 +0000 |
| commit | cecd4c20234b5dc8373f4137206b09d88e0f363e (patch) | |
| tree | 445a289244dcb37839f7c72093001114528f6159 /lisp/calc/calc.el | |
| parent | f1625eaa20d8b2d43bc7f0a439129eeab4d5948b (diff) | |
| download | emacs-cecd4c20234b5dc8373f4137206b09d88e0f363e.tar.gz emacs-cecd4c20234b5dc8373f4137206b09d88e0f363e.tar.bz2 emacs-cecd4c20234b5dc8373f4137206b09d88e0f363e.zip | |
(calc-emacs-type-19, calc-emacs-type-epoch, calc-emacs-type-gnu19):
Removed.
(calc-digit-map, calc-read-key-sequence, calc-read-key): Removed
check for old emacs versions.
Diffstat (limited to 'lisp/calc/calc.el')
| -rw-r--r-- | lisp/calc/calc.el | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index c17449a8450..c1669f78f08 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -656,12 +656,7 @@ If nil, selections displayed but ignored.") ;; Verify that Calc is running on the right kind of system. -(defconst calc-emacs-type-epoch (and (fboundp 'epoch::version) epoch::version)) -(defvar calc-emacs-type-19 (not (or calc-emacs-type-epoch - (string-lessp emacs-version "19")))) (defvar calc-emacs-type-lucid (not (not (string-match "Lucid" emacs-version)))) -(defvar calc-emacs-type-gnu19 (and calc-emacs-type-19 - (not calc-emacs-type-lucid))) ;; Set up the standard keystroke (M-#) to run the Calculator, if that key ;; has not yet been bound to anything. For best results, the user should @@ -827,8 +822,8 @@ If nil, selections displayed but ignored.") (if (eq bind 'undefined) 'undefined 'calcDigit-nondigit)))) calc-mode-map) - (let ((cmap (if calc-emacs-type-19 (nth 1 calc-mode-map) calc-mode-map)) - (dmap (if calc-emacs-type-19 (nth 1 map) map)) + (let ((cmap (nth 1 calc-mode-map)) + (dmap (nth 1 map)) (i 0)) (while (< i 128) (aset dmap i @@ -998,9 +993,7 @@ If nil, selections displayed but ignored.") (use-global-map map) (use-local-map nil) (read-key-sequence - (if (commandp (key-binding (if calc-emacs-type-19 - (vector (cdr key)) - (char-to-string (cdr key))))) + (if (commandp (key-binding (vector (cdr key)))) "" prompt2))) (use-global-map glob) (use-local-map loc))))) @@ -3425,11 +3418,8 @@ Also looks for the equivalent TeX words, \\gets and \\evalto." (let ((key (event-to-character event t t))) (or key optkey (error "Expected a plain keystroke")) (cons key event)))) - (calc-emacs-type-gnu19 - (let ((key (read-event))) - (cons key key))) (t - (let ((key (read-char))) + (let ((key (read-event))) (cons key key))))) (defun calc-unread-command (&optional input) |