Mercurial > emacs
comparison lisp/array.el @ 49588:37645a051842
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 11:26:42 +0000 |
| parents | 6d7f6edfdb45 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49587:e82b3fe06d4c | 49588:37645a051842 |
|---|---|
| 56 (defvar array-copy-string) | 56 (defvar array-copy-string) |
| 57 (defvar array-init-field) | 57 (defvar array-init-field) |
| 58 (defvar array-respect-tabs)) | 58 (defvar array-respect-tabs)) |
| 59 | 59 |
| 60 ;;; Internal information functions. | 60 ;;; Internal information functions. |
| 61 | 61 |
| 62 (defun array-cursor-in-array-range () | 62 (defun array-cursor-in-array-range () |
| 63 "Return t if the cursor is in a valid array cell. | 63 "Return t if the cursor is in a valid array cell. |
| 64 Its ok to be on a row number line." | 64 Its ok to be on a row number line." |
| 65 (let ((columns-last-line (% array-max-column array-columns-per-line))) | 65 (let ((columns-last-line (% array-max-column array-columns-per-line))) |
| 66 ;; Requires array-buffer-line and array-buffer-column to be current. | 66 ;; Requires array-buffer-line and array-buffer-column to be current. |
| 383 (let ((inhibit-quit t)) | 383 (let ((inhibit-quit t)) |
| 384 (delete-region (point) (save-excursion (array-end-of-field t) (point))) | 384 (delete-region (point) (save-excursion (array-end-of-field t) (point))) |
| 385 (insert array-copy-string)) | 385 (insert array-copy-string)) |
| 386 (move-to-column array-buffer-column) | 386 (move-to-column array-buffer-column) |
| 387 (setq count (1- count))))) | 387 (setq count (1- count))))) |
| 388 | 388 |
| 389 (defun array-copy-to-column (a-column) | 389 (defun array-copy-to-column (a-column) |
| 390 "Copy current field horizontally into every cell up to and including A-COLUMN. | 390 "Copy current field horizontally into every cell up to and including A-COLUMN. |
| 391 Leave point at the beginning of the field." | 391 Leave point at the beginning of the field." |
| 392 ;; Requires that array-buffer-line, array-buffer-column, array-column, and | 392 ;; Requires that array-buffer-line, array-buffer-column, array-column, and |
| 393 ;; array-copy-string be current. | 393 ;; array-copy-string be current. |