[Emacs-diffs] Changes to emacs/lisp/forms.el

[Pavel Janík]

Index: emacs/lisp/forms.el
diff -c emacs/lisp/forms.el:2.42 emacs/lisp/forms.el:2.43
*** emacs/lisp/forms.el:2.42    Mon Jul 16 08:22:58 2001
--- emacs/lisp/forms.el Sat May 18 04:04:49 2002
***************
*** 301,310 ****
  (provide 'forms)                      ;;; official
  (provide 'forms-mode)                 ;;; for compatibility
  
! (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.42 2001/07/16 12:22:58 pj Exp $")
  
  (defcustom forms-mode-hooks nil
    "Hook run upon entering Forms mode."
--- 301,310 ----
  (provide 'forms)                      ;;; official
  (provide 'forms-mode)                 ;;; for compatibility
  
! (defconst forms-version (substring "$Revision: 2.43 $" 11 -2)
    "The version number of forms-mode (as string).  The complete RCS id is:
  
!   $Id: forms.el,v 2.43 2002/05/18 08:04:49 pj Exp $")
  
  (defcustom forms-mode-hooks nil
    "Hook run upon entering Forms mode."
***************
*** 1700,1706 ****
           (if (zerop disp)
               nil
             (setq cur (+ cur disp (- (forward-line disp)))))
!        (setq cur (+ cur disp (- (goto-line arg)))))
  
         (forms--get-record)))
  
--- 1700,1707 ----
           (if (zerop disp)
               nil
             (setq cur (+ cur disp (- (forward-line disp)))))
!        (goto-char (point-min))
!        (setq cur (+ cur disp (- (forward-line (1- arg))))))
  
         (forms--get-record)))
  
***************
*** 1810,1816 ****
  
      (save-excursion
        (set-buffer forms--file-buffer)
!       (goto-line ln)
        (open-line 1)
        (insert the-record)
        (beginning-of-line))
--- 1811,1818 ----
  
      (save-excursion
        (set-buffer forms--file-buffer)
!       (goto-char (point-min))
!       (forward-line (1- ln))
        (open-line 1)
        (insert the-record)
        (beginning-of-line))
***************
*** 1833,1839 ****
        (let ((ln forms--current-record))
        (save-excursion
          (set-buffer forms--file-buffer)
!         (goto-line ln)
          ;; Use delete-region instead of kill-region, to avoid
          ;; adding junk to the kill-ring.
          (delete-region (progn (beginning-of-line) (point))
--- 1835,1842 ----
        (let ((ln forms--current-record))
        (save-excursion
          (set-buffer forms--file-buffer)
!         (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))