From 63f419f1339cbd0a7d1e64586854a4f01b3f80d1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 14 Sep 2021 08:43:18 +0200 Subject: ; Minor stylistic fixes found by checkdoc --- lisp/progmodes/prolog.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lisp/progmodes/prolog.el') diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 2e23c2e2cab..33ca01cc754 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1272,7 +1272,7 @@ using the commands `send-region', `send-string' and \\[prolog-consult-region]. Commands: Tab indents for Prolog; with argument, shifts rest of expression rigidly with the current line. -Paragraphs are separated only by blank lines and `%%'. `%'s start comments. +Paragraphs are separated only by blank lines and `%%'. `%'s start comments. Return at end of buffer sends line as input. Return not at end copies rest of line to end and sends it. @@ -1352,7 +1352,7 @@ the variable `prolog-prompt-regexp'." (let ((pname (prolog-program-name)) (pswitches (prolog-program-switches))) (if (null pname) - (error "This Prolog system has defined no interpreter.")) + (error "This Prolog system has defined no interpreter")) (unless (comint-check-proc "*prolog*") (with-current-buffer (get-buffer-create "*prolog*") (prolog-inferior-mode) @@ -1641,7 +1641,7 @@ region. This function must be called from the source code buffer." (if prolog-process-flag - (error "Another Prolog task is running.")) + (error "Another Prolog task is running")) (prolog-ensure-process t) (let* ((buffer (get-buffer-create prolog-compilation-buffer)) (real-file buffer-file-name) @@ -2355,7 +2355,7 @@ In effect it sets the `fill-prefix' when inside comments and then calls ) (if prolog-help-function-i (funcall prolog-help-function-i predicate) - (error "Sorry, no help method defined for this Prolog system.")))) + (error "Sorry, no help method defined for this Prolog system")))) )) @@ -2369,7 +2369,7 @@ In effect it sets the `fill-prefix' when inside comments and then calls (pop-to-buffer nil) (Info-goto-node prolog-info-predicate-index) (if (not (re-search-forward str nil t)) - (error "Help on predicate `%s' not found." predicate)) + (error "Help on predicate `%s' not found" predicate)) (setq oldp (point)) (if (re-search-forward str nil t) @@ -2413,7 +2413,7 @@ This function is only available when `prolog-system' is set to `swi'." (process-send-string "prolog" (concat "apropos(" string ").\n")) (display-buffer "*prolog*")) (t - (error "Sorry, no Prolog apropos available for this Prolog system.")))) + (error "Sorry, no Prolog apropos available for this Prolog system")))) (defun prolog-atom-under-point () "Return the atom under or left to the point." @@ -3289,7 +3289,7 @@ PREFIX is the prefix of the search regexp." (easy-menu-define prolog-edit-menu-runtime prolog-mode-map - "Runtime Prolog commands available from the editing buffer" + "Runtime Prolog commands available from the editing buffer." ;; FIXME: Don't use a whole menu for just "Run Mercury". --Stef `("System" ;; Runtime menu name. -- cgit v1.2.3