Commit 6acae80a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(pascal-insert-block): Fixed space-deletion bug in

front of the "begin" string.
(pascal-beg-of-defun): Used to locate the beginning of a function
incorrectly when a function contained several begin-end blocks.  Fixed.
parent c1c4693e
;;; pascal.el --- major mode for editing pascal source in Emacs
;; Copyright (C) 1993, 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994, 95, 96, 97, 1998 Free Software Foundation, Inc.
;; Author: Espen Skoglund <espensk@stud.cs.uit.no>
;; Keywords: languages
......@@ -481,11 +481,10 @@ no args, if that value is non-nil."
(defun pascal-insert-block ()
"Insert Pascal begin ... end; block in the code with right indentation."
(interactive)
(pascal-indent-line)
(insert "begin")
(electric-pascal-terminate-line)
(save-excursion
(electric-pascal-terminate-line)
(newline)
(insert "end;")
(beginning-of-line)
(pascal-indent-line)))
......@@ -610,7 +609,7 @@ area. See also `pascal-comment-area'."
(setq func (1+ func)))
(setq nest (1- nest)))
((match-end 3) ; function|procedure
(if (= 0 func)
(if (or (> nest 0) (= 0 func))
(throw 'found t)
(setq func (1- func)))))))
nil))
......
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