[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master df17933: * lisp/gnus/mm-util.el (mm-with-unibyte-cu
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master df17933: * lisp/gnus/mm-util.el (mm-with-unibyte-current-buffer): Don't emit a warning. |
Date: |
Wed, 04 Feb 2015 19:44:29 +0000 |
branch: master
commit df179332d4e75b22cd5f990822667c8d280c8167
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/gnus/mm-util.el (mm-with-unibyte-current-buffer): Don't emit a
warning.
We already get an obsolescence message. Use `declare'.
---
lisp/gnus/ChangeLog | 5 +++++
lisp/gnus/mm-util.el | 5 +----
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b4cc341..841cff5 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-04 Stefan Monnier <address@hidden>
+
+ * 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 <address@hidden>
* nnir.el: Revert "Enable non-ASCII IMAP searches".
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index b2e0ee6..0b75901 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master df17933: * lisp/gnus/mm-util.el (mm-with-unibyte-current-buffer): Don't emit a warning.,
Stefan Monnier <=