Mercurial > hg > xemacs-beta

comparison lisp/utils/forms.el @ 179:9ad43877534d r20-3b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents b9518feda344
children
comparison
equal deleted inserted replaced
178:e703507b8a00 179:9ad43877534d
298 ;;; Global variables and constants: 298 ;;; Global variables and constants:
299 299
300 (provide 'forms) ;;; official 300 (provide 'forms) ;;; official
301 (provide 'forms-mode) ;;; for compatibility 301 (provide 'forms-mode) ;;; for compatibility
302 302
303 (defconst forms-version (substring "$Revision: 1.1.1.2 $" 11 -2) 303 (defconst forms-version (substring "$Revision: 1.2 $" 11 -2)
304 "The version number of forms-mode (as string). The complete RCS id is: 304 "The version number of forms-mode (as string). The complete RCS id is:
305 305
306 $Id: forms.el,v 1.1.1.2 1996/12/18 22:51:25 steve Exp $") 306 $Id: forms.el,v 1.2 1997/08/01 03:28:08 steve Exp $")
307 307
308 (defvar forms-mode-hooks nil 308 (defvar forms-mode-hooks nil
309 "Hook functions to be run upon entering Forms mode.") 309 "Hook functions to be run upon entering Forms mode.")
310 310
311 ;;; Mandatory variables - must be set by evaluating the control file. 311 ;;; Mandatory variables - must be set by evaluating the control file.
1675 1675
1676 (setq buffer-read-only nil) 1676 (setq buffer-read-only nil)
1677 (if forms-use-text-properties 1677 (if forms-use-text-properties
1678 (let ((inhibit-read-only t)) 1678 (let ((inhibit-read-only t))
1679 (set-text-properties (point-min) (point-max) nil))) 1679 (set-text-properties (point-min) (point-max) nil)))
1680 (if forms-use-extents
1681 (map-extents (lambda (x ignore) (detach-extent x) nil)))
1680 (erase-buffer) 1682 (erase-buffer)
1681 1683
1682 ;; Verify the number of fields, extend forms--the-record-list if needed. 1684 ;; Verify the number of fields, extend forms--the-record-list if needed.
1683 (if (= (length forms--the-record-list) forms-number-of-fields) 1685 (if (= (length forms--the-record-list) forms-number-of-fields)
1684 nil 1686 nil