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

(mm-with-unibyte-buffer, mm-with-multibyte-buffer):

Browse source 
Prefer mm-(en|dis)able-multibyte to default-enable-multibyte-characters.
This commit is contained in:
Stefan Monnier 2008-04-05 20:15:57 +00:00
parent 33e2f72c04
commit d37ded9e93
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View file

@ -1,5 +1,8 @@
2008-04-05 Stefan Monnier <monnier@iro.umontreal.ca>
* mm-util.el (mm-with-unibyte-buffer, mm-with-multibyte-buffer):
Prefer mm-(en|dis)able-multibyte to default-enable-multibyte-characters.
* nnheader.el (nnheader-init-server-buffer): Change buffer's multibyteness
after rather than before erasing it.

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

@ -1053,16 +1053,18 @@ charset, and a longer list means no appropriate charset."
(defmacro mm-with-unibyte-buffer (&rest forms)
"Create a temporary buffer, and evaluate FORMS there like `progn'.
Use unibyte mode for this."
`(let (default-enable-multibyte-characters)
(with-temp-buffer ,@forms)))
`(with-temp-buffer
(mm-disable-multibyte)
,@forms))
(put 'mm-with-unibyte-buffer 'lisp-indent-function 0)
(put 'mm-with-unibyte-buffer 'edebug-form-spec '(body))
(defmacro mm-with-multibyte-buffer (&rest forms)
"Create a temporary buffer, and evaluate FORMS there like `progn'.
Use multibyte mode for this."
`(let ((default-enable-multibyte-characters t))
(with-temp-buffer ,@forms)))
`(with-temp-buffer
(mm-enable-multibyte)
,@forms))
(put 'mm-with-multibyte-buffer 'lisp-indent-function 0)
(put 'mm-with-multibyte-buffer 'edebug-form-spec '(body))