[alt.sources] GNU Emacs forms-mode version 1.2, Patch03

jv@mh.nl (Johan Vromans) (05/21/91)

This is patch 3 to GNU Emacs 'forms-mode' version 1.2.
Note that forms-mode was posted to this group a few days ago
at patchlevel 2.

 Fixed bug:
  * Make argument to scroll-{up,down} &optional.


*** ../1.2.2/README	Mon May 20 11:17:10 1991
--- README	Tue May 21 15:05:09 1991
***************
*** 1,4 ****
! This is GNU Emacs 'forms-mode', version 1.2 (patchlevel 2).
  
  This GNU Emacs major mode implements editing a structured file (i.e. a
  file with 'records' and 'fields' in it) using a forms. 
--- 1,4 ----
! This is GNU Emacs 'forms-mode', version 1.2 (patchlevel 3).
  
  This GNU Emacs major mode implements editing a structured file (i.e. a
  file with 'records' and 'fields' in it) using a forms. 
***************
*** 34,39 ****
--- 34,44 ----
  
  HISTORY
  -------
+ 
+ 1.2.3  Released: May 21, 1991
+ 
+  Fixed bug:
+   * Make argument to scroll-{up,down} &optional.
  
  1.2.2  Released: May 20, 1991
  
*** ../1.2.2/forms.el	Mon May 20 11:17:13 1991
--- forms.el	Tue May 21 15:05:21 1991
***************
*** 1,4 ****
! ;;; Forms Mode - A GNU Emacs Major Mode		; @(#)@ forms	1.2.2
  ;;; Created 1989 - Johan Vromans <jv@mh.nl>
  ;;; See the docs for a list of other contributors.
  ;;;
--- 1,4 ----
! ;;; Forms Mode - A GNU Emacs Major Mode		; @(#)@ forms	1.2.3
  ;;; Created 1989 - Johan Vromans <jv@mh.nl>
  ;;; See the docs for a list of other contributors.
  ;;;
***************
*** 196,202 ****
  ;;;
  ;;; Global variables and constants
  
! (defconst forms-version "1.2.2"
    "Version of forms-mode implementation")
  
  (defvar forms-forms-scrolls t
--- 196,202 ----
  ;;;
  ;;; Global variables and constants
  
! (defconst forms-version "1.2.3"
    "Version of forms-mode implementation")
  
  (defvar forms-forms-scrolls t
***************
*** 699,705 ****
        nil
      (fset 'forms--scroll-down (symbol-function 'scroll-down))
      (fset 'scroll-down
! 	  '(lambda (arg) 
  	     (interactive "P")
  	     (if (and forms--mode-setup
  		      forms-forms-scroll)
--- 699,705 ----
        nil
      (fset 'forms--scroll-down (symbol-function 'scroll-down))
      (fset 'scroll-down
! 	  '(lambda (&optional arg) 
  	     (interactive "P")
  	     (if (and forms--mode-setup
  		      forms-forms-scroll)
***************
*** 712,718 ****
        nil
      (fset 'forms--scroll-up   (symbol-function 'scroll-up))
      (fset 'scroll-up
! 	  '(lambda (arg) 
  	     (interactive "P")
  	     (if (and forms--mode-setup
  		      forms-forms-scroll)
--- 712,718 ----
        nil
      (fset 'forms--scroll-up   (symbol-function 'scroll-up))
      (fset 'scroll-up
! 	  '(lambda (&optional arg) 
  	     (interactive "P")
  	     (if (and forms--mode-setup
  		      forms-forms-scroll)
*** ../1.2.2/forms.ti	Mon May 20 11:17:12 1991
--- forms.ti	Tue May 21 15:05:17 1991
***************
*** 1,4 ****
! \input texinfo			@c -*-texinfo-*- @(#)@ forms 1.2.2
  @comment %**start of header (This is for running Texinfo on a region.)
  @setfilename forms.info
  @settitle Forms Mode User's Manual
--- 1,4 ----
! \input texinfo			@c -*-texinfo-*- @(#)@ forms 1.2.3
  @comment %**start of header (This is for running Texinfo on a region.)
  @setfilename forms.info
  @settitle Forms Mode User's Manual
***************
*** 34,40 ****
  @sp 6
  @center @titlefont{Forms Mode User's Manual}
  @sp 4
! @center Forms-Mode version 1.2, patchlevel 2
  @sp 1
  @center May 1991
  @sp 5
--- 34,40 ----
  @sp 6
  @center @titlefont{Forms Mode User's Manual}
  @sp 4
! @center Forms-Mode version 1.2, patchlevel 3
  @sp 1
  @center May 1991
  @sp 5
-- 
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------