diff options
author | Stefan Kangas <stefan@marxist.se> | 2020-11-19 06:42:46 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2020-11-19 20:43:51 +0100 |
commit | 75555b5b6bc517911404fc769b02f583e40f6c35 (patch) | |
tree | 024567695b0e966474688e1955398daf26321288 /lisp/mail/supercite.el | |
parent | 3963aea4f4a22da0c1fb8ca8ca80b59c58373811 (diff) | |
download | emacs-75555b5b6bc517911404fc769b02f583e40f6c35.tar.gz |
Remove some compat code for old versions and XEmacs
* lisp/ibuf-ext.el (ibuffer-old-saved-filters-warning)
(ibuffer-maybe-save-stuff): Assume customize-save-variable is
bound; it is autoloaded.
* lisp/cedet/semantic/symref/grep.el (semantic-symref-perform-search):
* lisp/password-cache.el (password-cache-remove):
* lisp/cedet/semantic/bovine/el.el (semantic-dependency-tag-file):
Remove Emacs 21 compat code.
* lisp/cedet/semantic/sort.el (semantic-string-lessp-ci):
Remove Emacs 20 compat code.
* test/lisp/cedet/semantic-utest.el (semantic-utest-temp-directory):
* lisp/mail/supercite.el (sc-ask): Remove XEmacs compat code.
* lisp/progmodes/idlw-shell.el (idlwave-shell-mode):
* lisp/progmodes/idlwave.el (idlwave-mode): Remove commented out
compat code.
Diffstat (limited to 'lisp/mail/supercite.el')
-rw-r--r-- | lisp/mail/supercite.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index b2ccd3d9934..9b7af0111e2 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -618,10 +618,7 @@ the list should be unique." (lambda (elt) (char-to-string (cdr elt))) alist "/") ") ")) (p prompt) - (event - (if (fboundp 'allocate-event) - (allocate-event) - nil))) + event) (while (stringp p) (if (let ((cursor-in-echo-area t) (inhibit-quit t)) @@ -630,8 +627,6 @@ the list should be unique." (prog1 quit-flag (setq quit-flag nil))) (progn (message "%s%s" p (single-key-description event)) - (if (fboundp 'deallocate-event) - (deallocate-event event)) (setq quit-flag nil) (signal 'quit '()))) (let ((char event) @@ -650,8 +645,6 @@ the list should be unique." (discard-input) (if (eq p prompt) (setq p (concat "Try again. " prompt))))))) - (if (fboundp 'deallocate-event) - (deallocate-event event)) p)) (defun sc-scan-info-alist (alist) |