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

Remove XEmacs compat code from binhex.el

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-06-19 23:52:57 +02:00
parent ac3219c0e8
commit ec45664d28
1 changed files with 8 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/mail/binhex.el
View file

@ -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