mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Use new backquote syntax.

Browse source 
(forms--make-format-elt-using-text-properties):
Treat `intangible' differently.
This commit is contained in:
Gerd Moellmann 1999-11-13 22:07:05 +00:00
parent a3f8903ea9
commit 5658a814fd
2 changed files with 95 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
1999-01-15 Johan Vromans <jvromans@squirrel.nl>
* forms.el (forms--make-format-elt-using-text-properties):
Treat `intangible' differently.
* forms.el: Use new backquote syntax.
1999-11-13 Gerd Moellmann <gerd@gnu.org>
* textmodes/scribe.el (scribe-mode): Doc-fix.

176
lisp/forms.el
View file

@ -301,10 +301,10 @@
(provide 'forms) ;;; official
(provide 'forms-mode) ;;; for compatibility
(defconst forms-version (substring "$Revision: 2.38 $" 11 -2)
(defconst forms-version (substring "$Revision: 2.39 $" 11 -2)
"The version number of forms-mode (as string). The complete RCS id is:
$Id: forms.el,v 2.38 1999/05/01 01:11:12 kwzh Exp eliz $")
$Id: forms.el,v 2.39 1999/05/31 08:34:19 eliz Exp $")
(defcustom forms-mode-hooks nil
"Hook functions to be run upon entering Forms mode."
@ -923,23 +923,23 @@ Commands: Equivalent keys in read-only mode:
(setq
forms--format
(if forms-use-text-properties
(` (lambda (arg)
(let ((inhibit-read-only t))
(,@ (apply 'append
(mapcar 'forms--make-format-elt-using-text-properties
forms-format-list)))
;; Prevent insertion before the first text.
(,@ (if (numberp (car forms-format-list))
nil
'((add-text-properties (point-min) (1+ (point-min))
'(front-sticky (read-only intangible))))))
;; Prevent insertion after the last text.
(remove-text-properties (1- (point)) (point)
'(rear-nonsticky)))
(setq forms--iif-start nil)))
(` (lambda (arg)
(,@ (apply 'append
(mapcar 'forms--make-format-elt forms-format-list)))))))
`(lambda (arg)
(let ((inhibit-read-only t))
,@(apply 'append
(mapcar 'forms--make-format-elt-using-text-properties
forms-format-list))
;; Prevent insertion before the first text.
,@(if (numberp (car forms-format-list))
nil
'((add-text-properties (point-min) (1+ (point-min))
'(front-sticky (read-only intangible)))))
;; Prevent insertion after the last text.
(remove-text-properties (1- (point)) (point)
'(rear-nonsticky)))
(setq forms--iif-start nil))
`(lambda (arg)
,@(apply 'append
(mapcar 'forms--make-format-elt forms-format-list)))))
;; We have tallied the number of markers and dynamic texts,
;; so we can allocate the arrays now.
@ -1009,46 +1009,46 @@ Commands: Equivalent keys in read-only mode:
(cond
((stringp el)
(` ((set-text-properties
(point) ; start at point
(progn ; until after insertion
(insert (, el))
(point))
(list 'face forms--ro-face ; read-only appearance
'read-only (,@ (list (1+ forms--marker)))
'intangible t
'insert-in-front-hooks '(forms--iif-hook)
'rear-nonsticky '(face read-only insert-in-front-hooks
intangible))))))
`((set-text-properties
(point) ; start at point
(progn ; until after insertion
(insert ,el)
(point))
(list 'face forms--ro-face ; read-only appearance
'read-only ,@(list (1+ forms--marker))
'intangible ,@(list (1+ forms--marker))
'insert-in-front-hooks '(forms--iif-hook)
'rear-nonsticky '(face read-only insert-in-front-hooks
intangible)))))
((numberp el)
(` ((let ((here (point)))
(aset forms--markers
(, (prog1 forms--marker
(setq forms--marker (1+ forms--marker))))
(point-marker))
(insert (elt arg (, (1- el))))
(or (= (point) here)
(set-text-properties
here (point)
(list 'face forms--rw-face
'front-sticky '(face))))))))
`((let ((here (point)))
(aset forms--markers
,(prog1 forms--marker
(setq forms--marker (1+ forms--marker)))
(point-marker))
(insert (elt arg ,(1- el)))
(or (= (point) here)
(set-text-properties
here (point)
(list 'face forms--rw-face
'front-sticky '(face)))))))
((listp el)
(` ((set-text-properties
(point)
(progn
(insert (aset forms--dyntexts
(, (prog1 forms--dyntext
(setq forms--dyntext (1+ forms--dyntext))))
(, el)))
(point))
(list 'face forms--ro-face
'read-only (,@ (list (1+ forms--marker)))
'intangible t
'insert-in-front-hooks '(forms--iif-hook)
'rear-nonsticky '(read-only face insert-in-front-hooks
intangible))))))
`((set-text-properties
(point)
(progn
(insert (aset forms--dyntexts
,(prog1 forms--dyntext
(setq forms--dyntext (1+ forms--dyntext)))
,el))
(point))
(list 'face forms--ro-face
'read-only ,@(list (1+ forms--marker))
'intangible ,@(list (1+ forms--marker))
'insert-in-front-hooks '(forms--iif-hook)
'rear-nonsticky '(read-only face insert-in-front-hooks
intangible)))))
;; end of cond
))
@ -1073,15 +1073,15 @@ Commands: Equivalent keys in read-only mode:
(cond
((stringp el)
(` ((insert (, el)))))
`((insert ,el)))
((numberp el)
(prog1
(` ((aset forms--markers (, forms--marker) (point-marker))
(insert (elt arg (, (1- el))))))
`((aset forms--markers ,forms--marker (point-marker))
(insert (elt arg ,(1- el))))
(setq forms--marker (1+ forms--marker))))
((listp el)
(prog1
(` ((insert (aset forms--dyntexts (, forms--dyntext) (, el)))))
`((insert (aset forms--dyntexts ,forms--dyntext ,el)))
(setq forms--dyntext (1+ forms--dyntext))))))
(defvar forms--field)
@ -1106,13 +1106,13 @@ Commands: Equivalent keys in read-only mode:
;; Note: we add a nil element to the list passed to `mapcar',
;; see `forms--make-parser-elt' for details.
(` (lambda nil
(let (here)
(goto-char (point-min))
(,@ (apply 'append
(mapcar
'forms--make-parser-elt
(append forms-format-list (list nil)))))))))))
`(lambda nil
(let (here)
(goto-char (point-min))
,@(apply 'append
(mapcar
'forms--make-parser-elt
(append forms-format-list (list nil)))))))))
(forms--debug 'forms--parser))
@ -1171,15 +1171,15 @@ Commands: Equivalent keys in read-only mode:
((stringp el)
(prog1
(if forms--field
(` ((setq here (point))
(if (not (search-forward (, el) nil t nil))
(error "Parse error: cannot find `%s'" (, el)))
(aset forms--recordv (, (1- forms--field))
(buffer-substring-no-properties here
(- (point) (, (length el)))))))
(` ((if (not (looking-at (, (regexp-quote el))))
(error "Parse error: not looking at `%s'" (, el)))
(forward-char (, (length el))))))
`((setq here (point))
(if (not (search-forward ,el nil t nil))
(error "Parse error: cannot find `%s'" ,el))
(aset forms--recordv ,(1- forms--field)
(buffer-substring-no-properties here
(- (point) ,(length el)))))
`((if (not (looking-at ,(regexp-quote el)))
(error "Parse error: not looking at `%s'" ,el))
(forward-char ,(length el))))
(setq forms--seen-text t)
(setq forms--field nil)))
((numberp el)
@ -1190,22 +1190,22 @@ Commands: Equivalent keys in read-only mode:
nil))
((null el)
(if forms--field
(` ((aset forms--recordv (, (1- forms--field))
(buffer-substring-no-properties (point) (point-max)))))))
`((aset forms--recordv ,(1- forms--field)
(buffer-substring-no-properties (point) (point-max))))))
((listp el)
(prog1
(if forms--field
(` ((let ((here (point))
(forms--dyntext (aref forms--dyntexts (, forms--dyntext))))
(if (not (search-forward forms--dyntext nil t nil))
(error "Parse error: cannot find `%s'" forms--dyntext))
(aset forms--recordv (, (1- forms--field))
(buffer-substring-no-properties here
(- (point) (length forms--dyntext)))))))
(` ((let ((forms--dyntext (aref forms--dyntexts (, forms--dyntext))))
(if (not (looking-at (regexp-quote forms--dyntext)))
(error "Parse error: not looking at `%s'" forms--dyntext))
(forward-char (length forms--dyntext))))))
`((let ((here (point))
(forms--dyntext (aref forms--dyntexts ,forms--dyntext)))
(if (not (search-forward forms--dyntext nil t nil))
(error "Parse error: cannot find `%s'" forms--dyntext))
(aset forms--recordv ,(1- forms--field)
(buffer-substring-no-properties here
(- (point) (length forms--dyntext))))))
`((let ((forms--dyntext (aref forms--dyntexts ,forms--dyntext)))
(if (not (looking-at (regexp-quote forms--dyntext)))
(error "Parse error: not looking at `%s'" forms--dyntext))
(forward-char (length forms--dyntext)))))
(setq forms--dyntext (1+ forms--dyntext))
(setq forms--seen-text t)
(setq forms--field nil)))