emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el [gnus-5_10-branch]


From: Reiner Steib
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el [gnus-5_10-branch]
Date: Tue, 31 Aug 2004 10:58:16 -0400

Index: emacs/lisp/gnus/mm-util.el
diff -c emacs/lisp/gnus/mm-util.el:1.29.2.1 emacs/lisp/gnus/mm-util.el:1.29.2.2
*** emacs/lisp/gnus/mm-util.el:1.29.2.1 Thu Jul 22 16:45:51 2004
--- emacs/lisp/gnus/mm-util.el  Tue Aug 31 14:47:59 2004
***************
*** 1,5 ****
  ;;; mm-util.el --- Utility functions for Mule and low level things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
  ;;   Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; mm-util.el --- Utility functions for Mule and low level things
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;   Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 611,616 ****
--- 611,624 ----
  (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)))
+ (put 'mm-with-multibyte-buffer 'lisp-indent-function 0)
+ (put 'mm-with-multibyte-buffer 'edebug-form-spec '(body))
+ 
  (defmacro mm-with-unibyte-current-buffer (&rest forms)
    "Evaluate FORMS with current buffer temporarily made unibyte.
  Also bind `default-enable-multibyte-characters' to nil.
***************
*** 632,643 ****
  (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
  
  (defmacro mm-with-unibyte (&rest forms)
!   "Eval the FORMS with the default value of `enable-multibyte-characters' 
nil, ."
    `(let (default-enable-multibyte-characters)
       ,@forms))
  (put 'mm-with-unibyte 'lisp-indent-function 0)
  (put 'mm-with-unibyte 'edebug-form-spec '(body))
  
  (defun mm-find-charset-region (b e)
    "Return a list of Emacs charsets in the region B to E."
    (cond
--- 640,658 ----
  (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body))
  
  (defmacro mm-with-unibyte (&rest forms)
!   "Eval the FORMS with the default value of `enable-multibyte-characters' 
nil."
    `(let (default-enable-multibyte-characters)
       ,@forms))
  (put 'mm-with-unibyte 'lisp-indent-function 0)
  (put 'mm-with-unibyte 'edebug-form-spec '(body))
  
+ (defmacro mm-with-multibyte (&rest forms)
+   "Eval the FORMS with the default value of `enable-multibyte-characters' t."
+   `(let ((default-enable-multibyte-characters t))
+      ,@forms))
+ (put 'mm-with-multibyte 'lisp-indent-function 0)
+ (put 'mm-with-multibyte 'edebug-form-spec '(body))
+ 
  (defun mm-find-charset-region (b e)
    "Return a list of Emacs charsets in the region B to E."
    (cond




reply via email to

[Prev in Thread] Current Thread [Next in Thread]