(describe-function-1): Kluge around cases of functions fset to subrs

[gnu-emacs] / lisp / array.el

diff --git a/lisp/array.el b/lisp/array.el
index b1182c7f16ea9f0b03c82a6cdc1dc8d3a9bc3b0f..d6084650a59bb6a137de75c1f377b8b289d77079 100644 (file)
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -903,7 +903,7 @@ Entering array mode calls the function `array-mode-hook'."
   (setq major-mode 'array-mode)
   (setq mode-name "Array")
   (force-mode-line-update)
-  (make-variable-buffer-local 'truncate-lines)
+  (make-local-variable 'truncate-lines)
   (setq truncate-lines t)
   (setq overwrite-mode 'overwrite-mode-textual)
   (use-local-map array-mode-map)