(hs-set-up-overlay): New user var.

[gnu-emacs] / lisp / array.el

diff --git a/lisp/array.el b/lisp/array.el
index b1182c7f16ea9f0b03c82a6cdc1dc8d3a9bc3b0f..3aa5d4bd319706098e32616388b9cebe0392cd97 100644 (file)
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -1,4 +1,4 @@
-;;; array.el --- array editing commands for Gnu Emacs
+;;; array.el --- array editing commands for GNU Emacs
 
 ;; Copyright (C) 1987, 2000 Free Software Foundation, Inc.
 
@@ -58,7 +58,7 @@
   (defvar array-respect-tabs))
 
 ;;; Internal information functions.
-  
+
 (defun array-cursor-in-array-range ()
   "Return t if the cursor is in a valid array cell.
 Its ok to be on a row number line."
@@ -385,7 +385,7 @@ Leave point at the beginning of the field."
        (insert array-copy-string))
       (move-to-column array-buffer-column)
       (setq count (1- count)))))
-       
+
 (defun array-copy-to-column (a-column)
   "Copy current field horizontally into every cell up to and including A-COLUMN.
 Leave point at the beginning of the field."
@@ -688,7 +688,7 @@ of array-rows-numbered."
        (kill-line 1))
        (t
        ;; Add the row number.
-       (insert-string (format "%d:\n" this-row))))
+       (insert (format "%d:\n" this-row))))
       ;; Deal with the array columns in this row.
       (cond
        ((= old-columns-per-line new-columns-per-line)
@@ -822,7 +822,7 @@ but will cause many functions to give errors if they encounter one.
 
   Upon entering array mode, you will be prompted for the values of
 several variables.  Others will be calculated based on the values you
-supply.  These variables are all local the the buffer.  Other buffer
+supply.  These variables are all local to the buffer.  Other buffer
 in array mode may have different values assigned to the variables.
 The variables are:
 
@@ -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)
@@ -964,4 +964,5 @@ Entering array mode calls the function `array-mode-hook'."
 
 (provide 'array)
 
+;;; arch-tag: 0086605d-79fe-4a1a-992a-456417261f80
 ;;; array.el ends here