procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/gnus/plstore.el: Fix buildbot failure with XEmacs

Browse source
This commit is contained in:
Daiki Ueno 2012-04-26 22:07:59 +00:00 • committed by Katsumi Yamaoka
parent 657c21e46b
commit 36d55cd479
2 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2012-04-26 Daiki Ueno <ueno@unixuser.org>
* plstore.el (plstore-called-interactively-p): New compat macro copied
from message.el.
(plstore-mode): Use it.
2012-04-26 Daiki Ueno <ueno@unixuser.org>
* plstore.el: Revive the editing feature.

14
lisp/gnus/plstore.el
View file

@ -547,6 +547,18 @@ If no one is selected, symmetric encryption will be performed. "
(plstore-mode-original)
(plstore-mode-decoded)))
(eval-when-compile
(defmacro plstore-called-interactively-p (kind)
(condition-case nil
(progn
(eval '(called-interactively-p 'any))
;; Emacs >=23.2
`(called-interactively-p ,kind))
;; Emacs <23.2
(wrong-number-of-arguments '(called-interactively-p))
;; XEmacs
(void-function '(interactive-p)))))
;;;###autoload
(define-derived-mode plstore-mode emacs-lisp-mode "PLSTORE"
"Major mode for editing PLSTORE files."
@ -554,7 +566,7 @@ If no one is selected, symmetric encryption will be performed. "
(add-hook 'write-contents-functions #'plstore--write-contents-functions)
(define-key plstore-mode-map "\C-c\C-c" #'plstore-mode-toggle-display)
;; to create a new file with plstore-mode, mark it as already decoded
(if (called-interactively-p 'any)
(if (plstore-called-interactively-p 'any)
(setq plstore-encoded t)
(plstore-mode-decoded)))