Mercurial > emacs
comparison lisp/ielm.el @ 85762:29e75576e47f
* calc/calc.el (calc-emacs-type-lucid): Remove.
(calc-digit-map, calcDigit-start, calc-read-key)
(calc-clear-unread-commands):
* calc/calc-ext.el (calc-user-key-map): Replace uses of
calc-emacs-type-lucid with (featurep 'xemacs)
* emulation/tpu-mapper.el: Replace tpu-lucid-emacs19-p with
(featurep 'xemacs).
(tpu-lucid-emacs19-p): Remove.
(tpu-map-key): Make it a function instead of using fset. Inline
tpu-emacs-map-key and tpu-lucid-map-key. Use featurep 'xemacs.
(tpu-emacs-map-key, tpu-lucid-map-key): Remove.
* ielm.el: Use featurep 'xemacs.
* progmodes/cperl-mode.el (cperl-xemacs-p): Remove.
(condition-case, cperl-can-font-lock, cperl-singly-quote-face)
(cperl-define-key, cperl-mode-map, cperl-mode, cperl-init-faces)
(cperl-write-tags, cperl-tags-hier-init, cperl-perldoc): Replace
cperl-xemacs-p with (featurep 'xemacs).
(font-lock-cache-position): Pacify byte compiler.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 29 Oct 2007 15:33:04 +0000 |
parents | 9355f9b7bbff |
children | 107ccd98fa12 880960b70474 |
comparison
equal
deleted
inserted
replaced
85761:7d711fbfe5b5 | 85762:29e75576e47f |
---|---|
167 "*** Welcome to IELM *** Type (describe-mode) for help.\n" | 167 "*** Welcome to IELM *** Type (describe-mode) for help.\n" |
168 "Message to display when IELM is started.") | 168 "Message to display when IELM is started.") |
169 | 169 |
170 (defvar ielm-map nil) | 170 (defvar ielm-map nil) |
171 (if ielm-map nil | 171 (if ielm-map nil |
172 (if (string-match "Lucid" emacs-version) | 172 (if (featurep 'xemacs) |
173 ;; Lemacs | 173 ;; Lemacs |
174 (progn | 174 (progn |
175 (setq ielm-map (make-sparse-keymap)) | 175 (setq ielm-map (make-sparse-keymap)) |
176 (set-keymap-parent ielm-map comint-mode-map)) | 176 (set-keymap-parent ielm-map comint-mode-map)) |
177 ;; FSF | 177 ;; FSF |