diff options
Diffstat (limited to 'lisp/progmodes/pascal.el')
| -rw-r--r-- | lisp/progmodes/pascal.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 01ac96f09ae..26fb0a88c53 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -117,7 +117,7 @@ (defconst pascal-beg-block-re "\\<\\(begin\\|case\\|record\\|repeat\\)\\>") (defconst pascal-end-block-re "\\<\\(end\\|until\\)\\>") (defconst pascal-declaration-re "\\<\\(const\\|label\\|type\\|var\\)\\>") -(defconst pascal-progbeg-re "\\<\\program\\>") +(defconst pascal-progbeg-re "\\<program\\>") (defconst pascal-defun-re "\\<\\(function\\|procedure\\|program\\)\\>") (defconst pascal-sub-block-re "\\<\\(if\\|else\\|for\\|while\\|with\\)\\>") (defconst pascal-noindent-re "\\<\\(begin\\|end\\|until\\|else\\)\\>") @@ -510,9 +510,7 @@ This puts the mark at the end, and point at the beginning." (push-mark) (pascal-end-of-defun) (push-mark) - (pascal-beg-of-defun) - (when (featurep 'xemacs) - (zmacs-activate-region))) + (pascal-beg-of-defun)) (defun pascal-comment-area (start end) "Put the region into a Pascal comment.\\<pascal-mode-map> @@ -1403,12 +1401,8 @@ The default is a name found in the buffer around point." map) "Keymap used in Pascal Outline mode.") -(define-obsolete-function-alias 'pascal-outline 'pascal-outline-mode "22.1") (define-minor-mode pascal-outline-mode "Outline-line minor mode for Pascal mode. -With a prefix argument ARG, enable the mode if ARG is positive, -and disable it otherwise. If called from Lisp, enable the mode -if ARG is omitted or nil. When enabled, portions of the text being edited may be made invisible.\\<pascal-outline-map> |