Commit 2e952aac authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(pascal-declaration-end): Now locates the end of a parameterlist correctly.

(electric-pascal-tab): Never indented a line when
pascal-tab-always-indent was set to nil.
(pascal-indent-case): Now locates the end of a case-statement correctly.
parent 65953053
......@@ -244,7 +244,8 @@ Pascal program are completed runtime and should not be added to this list.")
(save-excursion (end-of-line 2) (point)) t))
(cond ((match-beginning 1) (setq nest (1+ nest)))
((match-beginning 2) (setq nest (1- nest)))))))
((match-beginning 2) (setq nest (1- nest)))
((looking-at "[^(\n]+)") (setq nest 0))))))
(defun pascal-declaration-beg ()
......@@ -427,7 +428,11 @@ no args, if that value is non-nil."
(insert "\t"))
(if (save-excursion
(skip-chars-backward " \t")
(insert "\t")))
......@@ -903,10 +908,12 @@ column number the line should be indented to."
"^[ \t]*[^ \t,:]+[ \t]*\\(,[ \t]*[^ \t,:]+[ \t]*\\)*:"
(marker-position end) 'move)
(forward-char -1))
(if (> (current-column) ind)
(setq ind (current-column)))
(if (< (point) (marker-position end))
(if (> (current-column) ind)
(setq ind (current-column)))
(goto-char beg)
(setq oldpos (marker-position end))
;; Indent all case statements
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment