;;; forms.el --- Forms mode: edit a file as a form to fill in
;; Copyright (C) 1991, 1994, 1995, 1996, 1997, 2001, 2002, 2003,
-;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Johan Vromans <jvromans@squirrel.nl>
;;; Optional variables with default values.
(defcustom forms-check-number-of-fields t
- "*If non-nil, warn about records with wrong number of fields."
+ "If non-nil, warn about records with wrong number of fields."
:group 'forms
:type 'boolean)
If not nil: use this character to separate multi-line fields (default C-k).")
(defcustom forms-forms-scroll nil
- "*Non-nil means replace scroll-up/down commands in Forms mode.
+ "Non-nil means replace scroll-up/down commands in Forms mode.
The replacement commands performs forms-next/prev-record."
:group 'forms
:type 'boolean)
(defcustom forms-forms-jump nil
- "*Non-nil means redefine beginning/end-of-buffer in Forms mode.
+ "Non-nil means redefine beginning/end-of-buffer in Forms mode.
The replacement commands performs forms-first/last-record."
:group 'forms
:type 'boolean)
The contents may NOT be modified.")
(defcustom forms-use-text-properties t
- "*Non-nil means: use text properties.
+ "Non-nil means: use text properties.
Defaults to t if this Emacs is capable of handling text properties."
:group 'forms
:type 'boolean)
(defcustom forms-insert-after nil
- "*Non-nil means: inserts of new records go after current record.
+ "Non-nil means: inserts of new records go after current record.
Also, initial position is at last record."
:group 'forms
:type 'boolean)
(if forms-forms-scroll
(progn
(local-set-key [remap scroll-up] 'forms-next-record)
- (local-set-key [remap scroll-down] 'forms-prev-record)))
+ (local-set-key [remap scroll-down] 'forms-prev-record)
+ (local-set-key [remap scroll-up-command] 'forms-next-record)
+ (local-set-key [remap scroll-down-command] 'forms-prev-record)))
;;
;; beginning-of-buffer -> forms-first-record
;; end-of-buffer -> forms-end-record