/[emacs]/emacs/lisp/array.el
ViewVC logotype

Diff of /emacs/lisp/array.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by lute, Mon Jul 4 23:08:52 2005 UTC revision 1.27 by lektu, Mon Jul 18 09:35:43 2005 UTC
# Line 638  If optional ARG is given, copy through A Line 638  If optional ARG is given, copy through A
638    "Reconfigure the state of `array-rows-numbered' and `array-columns-per-line'.    "Reconfigure the state of `array-rows-numbered' and `array-columns-per-line'.
639  NEW-COLUMNS-PER-LINE is the desired value of `array-columns-per-line' and  NEW-COLUMNS-PER-LINE is the desired value of `array-columns-per-line' and
640  NEW-ROWS-NUMBERED (a character, either ?y or ?n) is the desired value  NEW-ROWS-NUMBERED (a character, either ?y or ?n) is the desired value
641  of array-rows-numbered."  of `array-rows-numbered'."
642    (interactive "nColumns per line: \ncRows numbered? (y or n) ")    (interactive "nColumns per line: \ncRows numbered? (y or n) ")
643    ;; Check on new-columns-per-line    ;; Check on new-columns-per-line
644    (let ((check t))    (let ((check t))
# Line 717  of array-rows-numbered." Line 717  of array-rows-numbered."
717      (let ((inhibit-quit t))      (let ((inhibit-quit t))
718        (set-buffer main-buffer)        (set-buffer main-buffer)
719        (erase-buffer)        (erase-buffer)
720        (insert-buffer temp-buffer)        (insert-buffer-substring temp-buffer)
721        ;; Update local variables.        ;; Update local variables.
722        (setq array-columns-per-line new-columns-per-line)        (setq array-columns-per-line new-columns-per-line)
723        (setq array-rows-numbered new-rows-numbered)        (setq array-rows-numbered new-rows-numbered)
# Line 767  Return COLUMN." Line 767  Return COLUMN."
767            (move-to-column column)))))            (move-to-column column)))))
768    
769  (defun untabify-backward ()  (defun untabify-backward ()
770    "Untabify the preceding tab."    "Untabify the preceding TAB."
771    (save-excursion    (save-excursion
772      (let ((start (point)))      (let ((start (point)))
773        (backward-char 1)        (backward-char 1)
# Line 817  NOT recognized as integers or real numbe Line 817  NOT recognized as integers or real numbe
817    The array MUST reside at the top of the buffer.    The array MUST reside at the top of the buffer.
818    
819    TABs are not respected, and may be converted into spaces at any time.    TABs are not respected, and may be converted into spaces at any time.
820  Setting the variable 'array-respect-tabs to non-nil will prevent TAB conversion,  Setting the variable `array-respect-tabs' to non-nil will prevent TAB conversion,
821  but will cause many functions to give errors if they encounter one.  but will cause many functions to give errors if they encounter one.
822    
823    Upon entering array mode, you will be prompted for the values of    Upon entering array mode, you will be prompted for the values of

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26