diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-19 22:24:50 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-19 22:24:50 +0200 |
| commit | 43a251ccf3e54e519572f431a415fc121450d2b0 (patch) | |
| tree | 5e1558d68cd7b0fc4be9afffc6841a6e5025d7ca | |
| parent | e46fc9b01774d0e6de8db877ca6a86b36ee832ff (diff) | |
| download | emacs-43a251ccf3e54e519572f431a415fc121450d2b0.tar.gz | |
Remove XEmacs compat code from epa.el
* lisp/epa.el (epa-key-list-mode, epa-key-mode)
(epa--find-coding-system-for-mime-charset): Remove XEmacs compat
code and comments.
| -rw-r--r-- | lisp/epa.el | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index ad67c238dc2..97d0b544930 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -291,8 +291,6 @@ You should bind this variable with `let', but do not set it globally.") (setq truncate-lines t buffer-read-only t) (setq-local font-lock-defaults '(epa-font-lock-keywords t)) - ;; In XEmacs, auto-initialization of font-lock is not effective - ;; if buffer-file-name is not set. (font-lock-set-defaults) (make-local-variable 'epa-exit-buffer-function) (setq-local revert-buffer-function #'epa--key-list-revert-buffer)) @@ -303,8 +301,6 @@ You should bind this variable with `let', but do not set it globally.") (setq truncate-lines t buffer-read-only t) (setq-local font-lock-defaults '(epa-font-lock-keywords t)) - ;; In XEmacs, auto-initialization of font-lock is not effective - ;; if buffer-file-name is not set. (font-lock-set-defaults) (make-local-variable 'epa-exit-buffer-function)) @@ -872,16 +868,13 @@ For example: (epg-context-result-for context 'verify))))))) (defun epa--find-coding-system-for-mime-charset (mime-charset) - (if (featurep 'xemacs) - (if (fboundp 'find-coding-system) - (find-coding-system mime-charset)) - ;; Find the first coding system which corresponds to MIME-CHARSET. - (let ((pointer (coding-system-list))) - (while (and pointer - (not (eq (coding-system-get (car pointer) 'mime-charset) - mime-charset))) - (setq pointer (cdr pointer))) - (car pointer)))) + ;; Find the first coding system which corresponds to MIME-CHARSET. + (let ((pointer (coding-system-list))) + (while (and pointer + (not (eq (coding-system-get (car pointer) 'mime-charset) + mime-charset))) + (setq pointer (cdr pointer))) + (car pointer))) ;;;###autoload (defun epa-decrypt-armor-in-region (start end) |