[elpa] master db933b6 084/433: (mmm-make-temp-buffer): Added as workaround for make-indirect-buffer.

[Dmitry Gutov]

branch: master
commit db933b6e8ff0d543b2480339022e230251008759
Author: mas <mas>
Commit: mas <mas>

    (mmm-make-temp-buffer): Added as workaround for make-indirect-buffer.
---
 mmm-compat.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/mmm-compat.el b/mmm-compat.el
index 2d34dc2..c18501e 100644
--- a/mmm-compat.el
+++ b/mmm-compat.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-compat.el,v 1.3 2000/07/11 02:44:06 mas Exp $
+;; Version: $Id: mmm-compat.el,v 1.4 2000/07/11 21:57:28 mas Exp $
 
 ;;{{{ GPL
 
@@ -27,9 +27,9 @@
 ;;; Commentary:
 
 ;; This file provides a number of hacks that are necessary for MMM
-;; Mode to function in different Emacsen. MMM Mode is designed for FSF
+;; Mode to function in different Emacsen.  MMM Mode is designed for
 ;; Emacs 20, but these hacks usually enable it to work almost
-;; perfectly in FSF Emacs 19 or XEmacs.
+;; perfectly in Emacs 19 and XEmacs 20 or 21.
 
 ;;; Code:
 
@@ -153,6 +153,17 @@ This makes `@' in skeletons act approximately like it does 
in FSF."
                     '(@ ''(push (point) skeleton-positions)))))
 
 ;;}}}
+
+(defmacro mmm-make-temp-buffer (buffer name)
+  "Return a buffer called NAME including the text of BUFFER.
+This text should not be modified."
+  (if (fboundp 'make-indirect-buffer)
+      `(make-indirect-buffer ,buffer ,name)
+    `(save-excursion
+       (set-buffer (get-buffer-create ,name))
+       (insert-buffer ,buffer)
+       (current-buffer))))
+
 ;;{{{ Font Lock (Emacs w/o X)
 
 (defvar mmm-font-lock-available-p (or window-system mmm-xemacs)