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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b643a48b7894ae9d84c0690254a4416892ac14de..833bf120a105e62678378440443f5f1164f1bb2a 100644 (file)
--- 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 3f47bc0de4c4efdd8b677aa4c2be08480c1571d5..58e1b0b9f89ead0027f00c1da932b35cfd3ffcab 100644 (file)
--- 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."
 \f
 ;; 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.