From 4a6fd75f1db43176d8c6228f83876196bf4fc02a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 4 Jan 1996 23:46:19 +0000 Subject: [PATCH] (pascal-auto-newline, pascal-mode, electric-pascal-hash): Doc fix. --- lisp/progmodes/pascal.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index de280ac5be4..cb274328da4 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -176,8 +176,8 @@ "*Indentation for case statements.") (defvar pascal-auto-newline nil - "*Non-nil means automatically newline after simcolons and the punctation mark -after an end.") + "*Non-nil means automatically newline after semicolons and the punctuation +mark after an end.") (defvar pascal-tab-always-indent t "*Non-nil means TAB in Pascal mode should always reindent the current line, @@ -290,8 +290,8 @@ Variables controlling indentation/edit style: pascal-case-indent (default 2) Indentation for case statements. pascal-auto-newline (default nil) - Non-nil means automatically newline after simcolons and the punctation mark - after an end. + Non-nil means automatically newline after semicolons and the punctuation + mark after an end. pascal-tab-always-indent (default t) Non-nil means TAB in Pascal mode should always reindent the current line, regardless of where in the line point is when the TAB command is used. @@ -406,7 +406,7 @@ no args, if that value is non-nil." (pascal-indent-command)))) (defun electric-pascal-hash () - "Insert `#', and indent to coulmn 0 if this is a CPP directive." + "Insert `#', and indent to column 0 if this is a CPP directive." (interactive) (insert last-command-char) (if (save-excursion (beginning-of-line) (looking-at "^[ \t]*#")) @@ -1083,7 +1083,7 @@ indent of the current line in parameterlist." (defun pascal-get-completion-decl () ;; Macro for searching through current declaration (var, type or const) - ;; for matches of `str' and adding the occurence tp `all' + ;; for matches of `str' and adding the occurrence tp `all' (let ((end (save-excursion (pascal-declaration-end) (point))) match) @@ -1133,7 +1133,7 @@ indent of the current line in parameterlist." (save-excursion (if (> start (prog1 (save-excursion (pascal-end-of-defun) (point)))) - () ; Declarations not reacable + () ; Declarations not reachable (if (search-forward "(" (pascal-get-end-of-line) t) ;; Check parameterlist (pascal-get-completion-decl)) @@ -1172,7 +1172,7 @@ indent of the current line in parameterlist." (save-excursion (let ((pascal-all nil)) ;; Set buffer to use for searching labels. This should be set - ;; within functins which use pascal-completions + ;; within functions which use pascal-completions (set-buffer pascal-buffer-to-use) ;; Determine what should be completed @@ -1282,7 +1282,7 @@ indent of the current line in parameterlist." (insert "" pascal-last-word-shown) (insert "" pascal-str) (message "(No match)"))) - ;; The other form of completion does not necessarly do that. + ;; The other form of completion does not necessarily do that. ;; Insert match if found, or the original string if no match (if (or (null match) (equal match 't)) @@ -1358,7 +1358,7 @@ With optional second arg non-nil, STR is the complete name of the instruction." match) ;; Set buffer to use for searching labels. This should be set - ;; within functins which use pascal-completions + ;; within functions which use pascal-completions (set-buffer pascal-buffer-to-use) (let ((pascal-str pascal-str)) -- 2.39.2