X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu.el;h=ebb93a2a5e98a33031f8244627d1e76ebef77c12;hb=0a4eb2274f8da9ed843d71c8551148e862882e09;hp=bf1df7078baecf1dc26f8df16721ce848c53512b;hpb=f514b6d1370cc43ee8aca5d91f2cc8583841f203;p=elisp%2Fapel.git

diff --git a/emu.el b/emu.el
index bf1df70..ebb93a2 100644
--- a/emu.el
+++ b/emu.el
@@ -289,6 +289,16 @@ If STRING is multibyte, the result is STRING itself.
 \[Emacs 20.3 emulating macro]"
   string)
 
+(defsubst-maybe set-buffer-multibyte (flag)
+  "Set the multibyte flag of the current buffer to FLAG.
+If FLAG is t, this makes the buffer a multibyte buffer.
+If FLAG is nil, this makes the buffer a single-byte buffer.
+The buffer contents remain unchanged as a sequence of bytes
+but the contents viewed as characters do change.
+\[Emacs 20.3 emulating function]"
+  (setq enable-multibyte-characters flag)
+  )
+
 
 ;;; @ XEmacs emulation
 ;;;