Lines Matching +defs:save +defs:point
217 If nil, pressing TAB indents the current line if point is at the left margin.
337 (define-key dcl-mode-map [menu-bar dcl dcl-save-all-options]
338 '("Save all options" . dcl-save-all-options))
339 (define-key dcl-mode-map [menu-bar dcl dcl-save-nondefault-options]
340 '("Save changed options" . dcl-save-nondefault-options))
497 \\[dcl-save-nondefault-options]\t\tSave changed options
498 \\[dcl-save-all-options]\t\tSave all options
499 \\[dcl-save-option]\t\t\tSave any option
500 \\[dcl-save-mode]\t\t\tSave buffer mode
540 If nil, pressing TAB indents the current line if point is at the left
676 "Move point to beginning of current command."
687 "Move point to end of current command or next command if not on a command."
690 (start (point)))
702 Move point to the preceding command line that is not a comment line,
706 Returns point of the found command line or nil if not able to move."
708 (let ((start (point))
719 (setq done t retval (point)))
723 (setq done t retval (point)))
734 (setq retval (point))))
746 Move point to the end of the next command line that is not a comment line,
750 Returns point of the found command line or nil if not able to move."
752 (let ((start (point))
759 (save-excursion
766 (setq retval (point)))
771 (setq retval (point)))
782 (setq retval (point)))))
793 "Move point to the first non-whitespace character on this line.
798 Typing \\[dcl-back-to-indentation] several times in a row will move point to other
800 rightmost point again.
802 E.g. on the following line, point would go to the positions indicated
809 (dcl-back-to-indentation-1 (point))
827 (let* ((default-limit (save-excursion (end-of-line) (1+ (point))))
829 (last-good-point (point))
830 (opoint (point)))
834 ;; If we already were at the outermost indentation point then we
835 ;; start searching for the innermost point again.
836 (if (= (point) opoint)
839 (if (< (point) limit)
840 (setq last-good-point (point)))
847 (if (< (point) limit)
848 (setq last-good-point (point))))
854 (if (< (point) limit)
855 (setq last-good-point (point)))
866 (if (< (point) limit)
867 (setq last-good-point (point)))
872 (if (< (point) limit)
873 (setq last-good-point (point)))))
874 (goto-char last-good-point)))
892 (save-excursion
898 (save-excursion
903 (save-excursion
908 (let ((opoint (point)))
911 (if (>= (point) opoint)
914 (save-excursion
931 (defun dcl-indentation-point ()
932 "Return point of first non-`whitespace' on this line."
933 (save-excursion
935 (point)))
968 (indent-type cur-indent extra-indent last-point this-point)
999 (indent-type cur-indent extra-indent last-point this-point)
1018 (save-excursion
1024 (goto-char this-point)
1028 (goto-char last-point)
1033 (goto-char last-point)
1041 (goto-char this-point)
1075 the first word. Save this buffer position as `last-point'.
1086 `this-point'.
1105 (save-excursion
1111 indent-type last-point this-point extra-indent2 cur-indent2
1116 this-point (dcl-indentation-point))
1117 (save-excursion
1142 last-point (dcl-indentation-point))
1151 last-point (1+ (match-beginning 1))))
1163 (setq last-point (point))
1177 (setq this-point (dcl-indentation-point))
1189 this-point (1+ (match-beginning 1)))))
1195 last-point this-point))
1205 last-point this-point))
1239 (save-excursion
1241 (let ((end (save-excursion (forward-line 1) (point))))
1265 (if (= (char-after (point)) ?/)
1271 (save-excursion
1273 (let* ((start (save-excursion (dcl-beginning-of-statement) (point)))
1275 (par-pos (nth 1 (parse-partial-sexp start (point)))))
1277 (setq indent (save-excursion
1293 (save-excursion
1300 (save-excursion
1347 (pos (- (point-max) (point))))
1348 (save-excursion
1365 (if (> (- (point-max) pos) (point))
1366 (goto-char (- (point-max) pos)))
1377 (save-excursion
1386 "Delete all characters in the set CHARS around point."
1388 (delete-region (point) (progn (skip-chars-forward chars) (point))))
1416 "Indents the complete command line that point is on.
1423 (save-excursion
1426 (point))
1427 (progn (dcl-end-of-statement) (point))
1435 If nil, indent the current line only if point is at the left margin or in
1439 (start-point (point)))
1446 (let ((search-end-point
1447 (save-excursion
1449 (re-search-forward "^\\$?[ \t]*" start-point t))))
1451 (and search-end-point
1452 (>= search-end-point start-point)))
1489 (save-excursion
1503 "Break line at point and insert text to keep the syntax valid.
1513 (save-excursion (dcl-beginning-of-statement) (point))
1514 (point))))
1524 (= (char-after (point)) ?\")
1525 (= (char-after (1- (point))) ?\"))
1559 (= (char-after (1- (point))) ?-))
1571 (save-excursion
1574 (this-indent (save-excursion
1578 (prev-indent (save-excursion
1583 (next-indent (save-excursion
1608 (save-excursion
1620 (save-excursion
1637 (save-excursion
1640 ;; can't handle that case very good, so there is no point in
1681 ((save-excursion
1687 ((save-excursion
1691 (save-excursion
1695 ((save-excursion
1703 ((save-excursion
1715 (save-excursion
1717 (let* ((this-indent (save-excursion
1720 (prev-indent (save-excursion
1725 (next-indent (save-excursion
1773 (defun dcl-save-local-variable (var &optional def-prefix def-suffix)
1778 (save-excursion
1779 (goto-char (point-max))
1780 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move)
1790 (setq suffix-string (buffer-substring (point)
1791 (progn (end-of-line) (point)))))
1795 (buffer-substring (point)
1796 (progn (beginning-of-line) (point)))))
1813 (setq beg (point))
1817 (let* ((str (buffer-substring beg (point)))
1837 (delete-region (point) (progn (read (current-buffer))
1838 (point)))
1848 (goto-char (point-max))
1879 (defun dcl-save-all-options ()
1886 (dcl-save-local-variable option "$! ")))
1891 (defun dcl-save-nondefault-options ()
1908 (dcl-save-local-variable option "$! "))))
1913 (defun dcl-save-option (option)
1920 (dcl-save-local-variable option))
1924 (defun dcl-save-mode ()
1932 (dcl-save-option 'mode))
2163 "Return t if point is at the beginning of a command.
2171 "Check if point is at the end of a command.
2172 Return t if point is at the end of a command, either the end of an
2181 (save-excursion
2188 "Check if point is on a command line.
2189 Return t if point is on a command line or a continuation line,
2198 (save-excursion
2199 (let ((start (point))