diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-19 23:52:57 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 12:51:38 +0200 |
| commit | ec45664d281e343035f2162e7f9d76754d110423 (patch) | |
| tree | 18d1d29f4ac2f635a9c35d14b48a05c48e6395f4 | |
| parent | ac3219c0e8f051fefed87a58590a3e66e5eff2e1 (diff) | |
| download | emacs-ec45664d281e343035f2162e7f9d76754d110423.tar.gz | |
Remove XEmacs compat code from binhex.el
* lisp/mail/binhex.el (binhex-insert-char): Remove XEmacs compat
code and made into a function instead of a defalias.
(binhex-decode-region-internal): Remove XEmacs compat code.
| -rw-r--r-- | lisp/mail/binhex.el | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el index 19fcbaaf475..1cf50aa0678 100644 --- a/lisp/mail/binhex.el +++ b/lisp/mail/binhex.el @@ -88,16 +88,12 @@ input and write the converted data to its standard output." ((boundp 'temporary-file-directory) temporary-file-directory) ("/tmp/"))) -(eval-and-compile - (defalias 'binhex-insert-char - (if (featurep 'xemacs) - 'insert-char - (lambda (char &optional count ignored buffer) - "Insert COUNT copies of CHARACTER into BUFFER." - (if (or (null buffer) (eq buffer (current-buffer))) - (insert-char char count) - (with-current-buffer buffer - (insert-char char count))))))) +(defun binhex-insert-char (char &optional count ignored buffer) + "Insert COUNT copies of CHARACTER into BUFFER." + (if (or (null buffer) (eq buffer (current-buffer))) + (insert-char char count) + (with-current-buffer buffer + (insert-char char count)))) (defvar binhex-crc-table [0 4129 8258 12387 16516 20645 24774 28903 @@ -224,8 +220,8 @@ If HEADER-ONLY is non-nil only decode header and return filename." (goto-char start) (when (re-search-forward binhex-begin-line end t) (setq work-buffer (generate-new-buffer " *binhex-work*")) - (unless (featurep 'xemacs) - (with-current-buffer work-buffer (set-buffer-multibyte nil))) + (with-current-buffer work-buffer + (set-buffer-multibyte nil)) (beginning-of-line) (setq bits 0 counter 0) (while tmp |