mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-12-27 20:01:42 +01:00
74 lines
2.7 KiB
EmacsLisp
74 lines
2.7 KiB
EmacsLisp
|
;; Compatibility functions for emacs 23 and 24 pre 24.4
|
||
|
|
|
||
|
|
;; The functions in this file are copied from eamcs 24.4 and are
|
||
|
|
;; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2014 Free Software
|
||
|
|
;; Foundation, Inc.
|
||
|
|
|
||
|
|
(if (fboundp 'setq-local)
|
||
|
|
(defalias 'notmuch-setq-local 'setq-local)
|
||
|
|
(defmacro notmuch-setq-local (var val)
|
||
|
|
"Set variable VAR to value VAL in current buffer.
|
||
|
|
|
||
|
|
Backport of setq-local for emacs without setq-local (pre 24.3)."
|
||
|
|
`(set (make-local-variable ',var) ,val)))
|
||
|
|
|
||
|
|
(if (fboundp 'read-char-choice)
|
||
|
|
(defalias 'notmuch-read-char-choice 'read-char-choice)
|
||
|
|
(defun notmuch-read-char-choice (prompt chars &optional inhibit-keyboard-quit)
|
||
|
|
"Read and return one of CHARS, prompting for PROMPT.
|
||
|
|
Any input that is not one of CHARS is ignored.
|
||
|
|
|
||
|
|
If optional argument INHIBIT-KEYBOARD-QUIT is non-nil, ignore
|
||
|
|
keyboard-quit events while waiting for a valid input.
|
||
|
|
|
||
|
|
This is an exact copy of this function from emacs 24 for use on
|
||
|
|
emacs 23, except with the one emacs 24 only function it calls
|
||
|
|
inlined."
|
||
|
|
(unless (consp chars)
|
||
|
|
(error "Called `read-char-choice' without valid char choices"))
|
||
|
|
(let (char done show-help (helpbuf " *Char Help*"))
|
||
|
|
(let ((cursor-in-echo-area t)
|
||
|
|
(executing-kbd-macro executing-kbd-macro)
|
||
|
|
(esc-flag nil))
|
||
|
|
(save-window-excursion ; in case we call help-form-show
|
||
|
|
(while (not done)
|
||
|
|
(unless (get-text-property 0 'face prompt)
|
||
|
|
(setq prompt (propertize prompt 'face 'minibuffer-prompt)))
|
||
|
|
(setq char (let ((inhibit-quit inhibit-keyboard-quit))
|
||
|
|
(read-key prompt)))
|
||
|
|
(and show-help (buffer-live-p (get-buffer helpbuf))
|
||
|
|
(kill-buffer helpbuf))
|
||
|
|
(cond
|
||
|
|
((not (numberp char)))
|
||
|
|
;; If caller has set help-form, that's enough.
|
||
|
|
;; They don't explicitly have to add help-char to chars.
|
||
|
|
((and help-form
|
||
|
|
(eq char help-char)
|
||
|
|
(setq show-help t)
|
||
|
|
;; This is an inlined copy of help-form-show as that
|
||
|
|
;; was introduced in emacs 24 too.
|
||
|
|
(let ((msg (eval help-form)))
|
||
|
|
(if (stringp msg)
|
||
|
|
(with-output-to-temp-buffer " *Char Help*"
|
||
|
|
(princ msg))))))
|
||
|
|
((memq char chars)
|
||
|
|
(setq done t))
|
||
|
|
((and executing-kbd-macro (= char -1))
|
||
|
|
;; read-event returns -1 if we are in a kbd macro and
|
||
|
|
;; there are no more events in the macro. Attempt to
|
||
|
|
;; get an event interactively.
|
||
|
|
(setq executing-kbd-macro nil))
|
||
|
|
((not inhibit-keyboard-quit)
|
||
|
|
(cond
|
||
|
|
((and (null esc-flag) (eq char ?\e))
|
||
|
|
(setq esc-flag t))
|
||
|
|
((memq char '(?\C-g ?\e))
|
||
|
|
(keyboard-quit))))))))
|
||
|
|
;; Display the question with the answer. But without cursor-in-echo-area.
|
||
|
|
(message "%s%s" prompt (char-to-string char))
|
||
|
|
char)))
|
||
|
|
|
||
|
|
;; End of compatibility functions
|
||
|
|
|
||
|
|
(provide 'notmuch-compat)
|