X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/1289a9cbad2c7019c10fb051f9d2b3099e9418e3..f10533854f4c7bb54247a11981191bf37b70cb36:/packages/ediprolog/ediprolog.el diff --git a/packages/ediprolog/ediprolog.el b/packages/ediprolog/ediprolog.el index 681805278..448a15790 100644 --- a/packages/ediprolog/ediprolog.el +++ b/packages/ediprolog/ediprolog.el @@ -101,7 +101,7 @@ (defcustom ediprolog-program-switches nil "List of switches passed to the Prolog process. Example: -'(\"-G128M\" \"-O\")" +(\"-G128M\" \"-O\")" :group 'ediprolog :type '(repeat string)) @@ -246,7 +246,7 @@ default Prolog prompt.") (erase-buffer) (insert str) (goto-char (point-min)) - ;; remove normal consult status lines, which start with "%" + ;; remove normal consult status lines, which start with "%" (while (re-search-forward "^[\t ]*%.*\n" nil t) (delete-region (match-beginning 0) (match-end 0)))) (setq str (buffer-string)))