(Info-mode): Add a no-clone-indirect property.

2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b643a48b789..833bf120a10 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-11-12  Richard M. Stallman  <rms@gnu.org>
+
+        * simple.el (clone-indirect-buffer): Error if major mode symbol
+        has a no-clone-indirect property.
+        (clone-buffer): Check for obvious errors before reading clone name.
+
+        * info.el (Info-mode): Add a no-clone-indirect property.
+
 2001-11-12  Sam Steingold  <sds@gnu.org>
 
         * vc.el (vc-print-log): Bind `inhibit-read-only' to t before and
diff --git a/lisp/info.el b/lisp/info.el
index 3f47bc0de4c..58e1b0b9f89 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2230,6 +2230,7 @@ The name of the info file is prepended to the node name in parentheses."
 
 ;; Info mode is suitable only for specially formatted data.
 (put 'Info-mode 'mode-class 'special)
+(put 'Info-mode 'no-clone-indirect t)
 
 (defun Info-mode ()
   "Info mode provides commands for browsing through the Info documentation tree.