mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Remove some compat code from uudecode.el and binhex.el

Browse source 
* lisp/mail/uudecode.el (uudecode-char-int): Make obsolete.
(uudecode-decode-region-internal): Adjust callers.
* lisp/mail/binhex.el (binhex-char-int): Make obsolete.
(binhex-string-big-endian, binhex-string-little-endian)
(binhex-header): Adjust callers.
This commit is contained in:
Stefan Kangas 2020-10-21 15:37:13 +02:00
parent 29cb2fdd0c
commit 234cf74918
2 changed files with 10 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mail/uudecode.el
View file

@ -24,11 +24,6 @@
;;; Code:
(defalias 'uudecode-char-int
(if (fboundp 'char-int)
'char-int
'identity))
(defgroup uudecode nil
"Decoding of uuencoded data."
:group 'mail
@ -140,7 +135,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
((> (skip-chars-forward uudecode-alphabet end) 0)
(setq lim (point))
(setq remain
(logand (- (uudecode-char-int (char-after inputpos)) 32)
(logand (- (char-after inputpos) 32)
63))
(setq inputpos (1+ inputpos))
(if (= remain 0) (setq done t))
@ -148,7 +143,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
(setq bits (+ bits
(logand
(-
(uudecode-char-int (char-after inputpos)) 32)
(char-after inputpos) 32)
63)))
(if (/= counter 0) (setq remain (1- remain)))
(setq counter (1+ counter)
@ -201,6 +196,8 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
(uudecode-decode-region-external start end file-name)
(uudecode-decode-region-internal start end file-name)))
(define-obsolete-function-alias 'uudecode-char-int #'identity "28.1")
(provide 'uudecode)
;;; uudecode.el ends here