mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

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

Browse Source 
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.
This commit is contained in:
Richard M. Stallman 1998-07-03 20:10:32 +00:00
parent c1c4693e69
commit 6acae80afe
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/progmodes/pascal.el
View File

@ -1,6 +1,6 @@
;;; 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))