Lines Matching +defs:command +defs:line
65 ;; "-*- forms -*-" in the first line of the control file.
113 ;; forms-multi-line [string, default "^K"]
200 ;; Normal operation is to transfer one line (record) from the data file,
270 ;; same command keys as in edit mode.
282 ;; don't need the C-c prefix for this command.
338 (defvar forms-multi-line "\C-k" "\
339 If not nil: use this character to separate multi-line fields (default C-k).")
496 (make-local-variable 'forms-multi-line)
554 (if forms-multi-line
555 (if (and (stringp forms-multi-line)
556 (eq (length forms-multi-line) 1))
557 (if (string= forms-multi-line forms-field-sep)
559 "`forms-multi-line' is equal to `forms-field-sep'")))
561 "`forms-multi-line' must be nil or a one-character string"))))
704 "Use " (substitute-command-keys "\\[forms-insert-record]")
850 ;; the new text gets the right face. The `post-command-hook' is
854 "Record start of modification command.")
882 ;; Enable `post-command-hook' to restore the properties.
883 (setq post-command-hook
884 (append (list 'forms--iif-post-command-hook) post-command-hook)))
889 (defun forms--iif-post-command-hook ()
890 "`post-command-hook' function for read-only segments."
892 ;; Disable `post-command-hook'.
893 (setq post-command-hook
894 (delq 'forms--iif-hook-post-command-hook post-command-hook))
1444 (message "%s" (substitute-command-keys (concat
1484 (beginning-of-line nil))
1487 (end-of-line)
1499 (if forms-multi-line
1500 (forms--trans the-record forms-multi-line "\n"))
1539 (setq mode-line-process
1588 ;; Handle multi-line fields, if allowed.
1589 (if forms-multi-line
1590 (forms--trans the-record "\n" forms-multi-line))
1594 (error "Multi-line fields in this record - update refused"))
1599 (delete-region (line-beginning-position) (line-end-position))
1601 (beginning-of-line))))
1660 (forward-line (- rn current))
1661 ;; goto-line does not do what we want when the buffer is narrowed.
1663 (forward-line (1- rn))))
1691 (beginning-of-line)
1803 (open-line 1)
1805 (beginning-of-line))
1827 (delete-region (progn (beginning-of-line) (point))
1828 (progn (beginning-of-line 2) (point))))
1848 (let (the-line the-record here)
1850 (end-of-line)
1859 (setq the-line (1+ (count-lines (point-min) (point))))
1864 (setq forms--current-record the-line)
1882 (let (the-line the-record here)
1884 (beginning-of-line)
1893 (setq the-line (1+ (count-lines (point-min) (point))))
1898 (setq forms--current-record the-line)