HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replace some colons in Texinfo index entries
[bpt/emacs.git]
/
lisp
/
array.el
diff --git
a/lisp/array.el
b/lisp/array.el
index
2111249
..
8c36b60
100644
(file)
--- a/
lisp/array.el
+++ b/
lisp/array.el
@@
-1,6
+1,6
@@
;;; array.el --- array editing commands for GNU Emacs
;;; array.el --- array editing commands for GNU Emacs
-;; Copyright (C) 1987, 2000-201
1
Free Software Foundation, Inc.
+;; Copyright (C) 1987, 2000-201
4
Free Software Foundation, Inc.
;; Author: David M. Brown
;; Maintainer: FSF
;; Author: David M. Brown
;; Maintainer: FSF
@@
-800,7
+800,7
@@
Return COLUMN."
(put 'array-mode 'mode-class 'special)
;;;###autoload
(put 'array-mode 'mode-class 'special)
;;;###autoload
-(def
un array-mode ()
+(def
ine-derived-mode array-mode fundamental-mode "Array"
"Major mode for editing arrays.
Array mode is a specialized mode for editing arrays. An array is
"Major mode for editing arrays.
Array mode is a specialized mode for editing arrays. An array is
@@
-863,9
+863,6
@@
take a numeric prefix argument):
\\[array-display-local-variables] Display the current values of local variables.
Entering array mode calls the function `array-mode-hook'."
\\[array-display-local-variables] Display the current values of local variables.
Entering array mode calls the function `array-mode-hook'."
-
- (interactive)
- (kill-all-local-variables)
(make-local-variable 'array-buffer-line)
(make-local-variable 'array-buffer-column)
(make-local-variable 'array-row)
(make-local-variable 'array-buffer-line)
(make-local-variable 'array-buffer-column)
(make-local-variable 'array-row)
@@
-888,13
+885,9
@@
Entering array mode calls the function `array-mode-hook'."
(+ (floor (1- array-max-column) array-columns-per-line)
(if array-rows-numbered 2 1)))
(message "")
(+ (floor (1- array-max-column) array-columns-per-line)
(if array-rows-numbered 2 1)))
(message "")
- (setq major-mode 'array-mode)
- (setq mode-name "Array")
(force-mode-line-update)
(set (make-local-variable 'truncate-lines) t)
(force-mode-line-update)
(set (make-local-variable 'truncate-lines) t)
- (setq overwrite-mode 'overwrite-mode-textual)
- (use-local-map array-mode-map)
- (run-mode-hooks 'array-mode-hook))
+ (setq overwrite-mode 'overwrite-mode-textual))
\f
\f