mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 17:24:04 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/gnus/mm-util.el (mm-with-unibyte-current-buffer): Don't emit a warning.

Browse source 
We already get an obsolescence message.  Use `declare'.
This commit is contained in:
Stefan Monnier 2015-02-04 14:44:24 -05:00
parent ebbdc6c30d
commit df179332d4
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2015-02-04 Stefan Monnier <monnier@iro.umontreal.ca>
* mm-util.el (mm-with-unibyte-current-buffer): Don't emit a warning
message, since we already get an obsolescence message. Use `declare'.
2015-02-04 Eric Abrahamsen <eric@ericabrahamsen.net>
* nnir.el: Revert "Enable non-ASCII IMAP searches".

5
lisp/gnus/mm-util.el
View file

@ -1241,9 +1241,9 @@ better ways to do a similar thing. The previous version of this macro
bound the default value of `enable-multibyte-characters' to nil while
evaluating FORMS but it is no longer done. So, some programs assuming
it if any may malfunction."
(declare (obsolete nil "25.1") (indent 0) (debug t))
(if (featurep 'xemacs)
`(progn ,@forms)
(message "Warning: Using brain-dead macro `mm-with-unibyte-current-buffer'!")
(let ((multibyte (make-symbol "multibyte")))
`(let ((,multibyte enable-multibyte-characters))
(when ,multibyte
@ -1252,9 +1252,6 @@ it if any may malfunction."
(progn ,@forms)
(when ,multibyte
(set-buffer-multibyte t)))))))
(put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0)
(put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
(make-obsolete 'mm-with-unibyte-current-buffer nil "25.1")
(defun mm-find-charset-region (b e)
"Return a list of Emacs charsets in the region B to E."