diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-05-18 08:05:54 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-05-18 08:05:54 +0000 |
| commit | 17b1725804cc726fa23158e4bcddf1a27ae94ca1 (patch) | |
| tree | ddc8479e0907a16a81f11c0e76d93c5297915d98 /lisp/forms.el | |
| parent | dacec5966e2e4978bb3c4a7476c3986c3a97b79d (diff) | |
| download | emacs-17b1725804cc726fa23158e4bcddf1a27ae94ca1.tar.gz | |
(forms-jump-record, forms-insert-record, forms-delete-record): Calculate
lines from the beginning of the accessible portion rather than from the
beginning of the buffer.
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/forms.el b/lisp/forms.el index 0a25e77bd73..8b75766590c 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -301,10 +301,10 @@ (provide 'forms) ;;; official (provide 'forms-mode) ;;; for compatibility -(defconst forms-version (substring "$Revision: 2.41 $" 11 -2) +(defconst forms-version (substring "$Revision: 2.42 $" 11 -2) "The version number of forms-mode (as string). The complete RCS id is: - $Id: forms.el,v 2.41 2001/02/07 23:40:52 fx Exp $") + $Id: forms.el,v 2.42 2001/07/16 12:22:58 pj Exp $") (defcustom forms-mode-hooks nil "Hook run upon entering Forms mode." @@ -1700,7 +1700,8 @@ As a side effect: sets `forms--the-record-list'." (if (zerop disp) nil (setq cur (+ cur disp (- (forward-line disp))))) - (setq cur (+ cur disp (- (goto-line arg))))) + (goto-char (point-min)) + (setq cur (+ cur disp (- (forward-line (1- arg)))))) (forms--get-record))) @@ -1810,7 +1811,8 @@ after the current record." (save-excursion (set-buffer forms--file-buffer) - (goto-line ln) + (goto-char (point-min)) + (forward-line (1- ln)) (open-line 1) (insert the-record) (beginning-of-line)) @@ -1833,7 +1835,8 @@ after the current record." (let ((ln forms--current-record)) (save-excursion (set-buffer forms--file-buffer) - (goto-line ln) + (goto-char (point-min)) + (forward-line (1- ln)) ;; Use delete-region instead of kill-region, to avoid ;; adding junk to the kill-ring. (delete-region (progn (beginning-of-line) (point)) |