diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/dcl-mode.el | 7 | ||||
| -rw-r--r-- | lisp/progmodes/flymake.el | 24 | ||||
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 12 | ||||
| -rw-r--r-- | lisp/progmodes/grep.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/gud.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/ps-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 6 |
9 files changed, 31 insertions, 32 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 29ebe2eea1f..4916b1dabb8 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -7554,7 +7554,7 @@ comment at the start of cc-engine.el for more info." (defun c-maybe-re-mark-raw-string () ;; When this function is called, point is immediately after a " which opens - ;; a string. If this " is the characteristic " of of a raw string + ;; a string. If this " is the characteristic " of a raw string ;; opener, apply the pertinent `syntax-table' text properties to the ;; entire raw string (when properly terminated) or just the delimiter ;; (otherwise). In either of these cases, return t, otherwise return nil. diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index 864074fe191..85923ce9fe1 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -784,7 +784,7 @@ by the numbers in order 1-2-3-1-... : (dcl-back-to-indentation-1 (point)) (dcl-back-to-indentation-1))) (defun dcl-back-to-indentation-1 (&optional limit) - "Helper function for dcl-back-to-indentation" + "Helper function for `dcl-back-to-indentation'." ;; "Indentation points" that we will travel to ;; $ l: ! comment @@ -1074,8 +1074,7 @@ dcl-calc-command-indent-function is nil or returns nil set cur-indent to cur-indent+extra-indent. See also documentation for dcl-calc-command-indent-function. -The indent-type classification could probably be expanded upon. -" +The indent-type classification could probably be expanded upon." () (save-excursion (beginning-of-line) @@ -1458,7 +1457,7 @@ regexps in `dcl-electric-reindent-regexps'." ;;;------------------------------------------------------------------------- (defun dcl-indent-to (col &optional minimum) - "Like indent-to, but only indents if indentation would change" + "Like `indent-to', but only indents if indentation would change." (interactive) (let (cur-indent collapsed indent) (save-excursion diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 6d47c8bb170..6891e19fd1b 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -317,7 +317,7 @@ TYPE is a key to symbol and TEXT is a description of the problem detected in this region. DATA is any object that the caller wishes to attach to the created diagnostic for later retrieval. -OVERLAY-PROPERTIES is an an alist of properties attached to the +OVERLAY-PROPERTIES is an alist of properties attached to the created diagnostic, overriding the default properties and any properties of `flymake-overlay-control' of the diagnostic's type." @@ -358,7 +358,7 @@ diagnostics at BEG." (cl-defun flymake--overlays (&key beg end filter compare key) "Get flymake-related overlays. If BEG is non-nil and END is nil, consider only `overlays-at' -BEG. Otherwise consider `overlays-in' the region comprised by BEG +BEG. Otherwise consider `overlays-in' the region comprised by BEG and END, defaulting to the whole buffer. Remove all that do not verify FILTER, a function, and sort them by COMPARE (using KEY)." (save-restriction @@ -498,7 +498,7 @@ this buffer. To reset the list of disabled backends, turn `flymake-start' with a prefix argument. If the function returns, Flymake considers the backend to be -\"running\". If it has not done so already, the backend is +\"running\". If it has not done so already, the backend is expected to call the function REPORT-FN with a single argument REPORT-ACTION also followed by an optional list of keyword-value pairs in the form (:REPORT-KEY VALUE :REPORT-KEY2 VALUE2...). @@ -513,8 +513,8 @@ Currently accepted values for REPORT-ACTION are: A backend may call REPORT-FN repeatedly in this manner, but only until Flymake considers that the most recently requested buffer check is now obsolete because, say, buffer contents have - changed in the meantime. The backend is only given notice of - this via a renewed call to the backend function. Thus, to + changed in the meantime. The backend is only given notice of + this via a renewed call to the backend function. Thus, to prevent making obsolete reports and wasting resources, backend functions should first cancel any ongoing processing from previous calls. @@ -545,7 +545,7 @@ Currently accepted REPORT-KEY arguments are: (defvar flymake-diagnostic-types-alist '() "") (make-obsolete-variable 'flymake-diagnostic-types-alist - "Set properties on the diagnostic symbols instead. See Info + "Set properties on the diagnostic symbols instead. See Info Node `(Flymake)Flymake error types'" "27.1") @@ -666,12 +666,12 @@ associated `flymake-category' return DEFAULT." (defvar-local flymake--backend-state nil "Buffer-local hash table of a Flymake backend's state. The keys to this hash table are functions as found in -`flymake-diagnostic-functions'. The values are structures +`flymake-diagnostic-functions'. The values are structures of the type `flymake--backend-state', with these slots: `running', a symbol to keep track of a backend's replies via its -REPORT-FN argument. A backend is running if this key is -present. If nil, Flymake isn't expecting any replies from the +REPORT-FN argument. A backend is running if this key is +present. If nil, Flymake isn't expecting any replies from the backend. `diags', a (possibly empty) list of recent diagnostic objects @@ -700,7 +700,7 @@ backend is operating normally.") ,@body))) (defun flymake-is-running () - "Tell if Flymake has running backends in this buffer" + "Tell if Flymake has running backends in this buffer." (flymake-running-backends)) ;; FIXME: clone of `isearch-intesects-p'! Make this an util. @@ -804,7 +804,7 @@ different runs of the same backend." (defun flymake--collect (fn &optional message-prefix) "Collect Flymake backends matching FN. -If MESSAGE-PREFIX, echo a message using that prefix" +If MESSAGE-PREFIX, echo a message using that prefix." (unless flymake--backend-state (user-error "Flymake is not initialized")) (let (retval) @@ -979,7 +979,7 @@ buffer happens via the special hook Some backends may take longer than others to respond or complete, and some may decide to disable themselves if they are not -suitable for the current buffer. The commands +suitable for the current buffer. The commands `flymake-running-backends', `flymake-disabled-backends' and `flymake-reporting-backends' summarize the situation, as does the special *Flymake log* buffer." :group 'flymake :lighter diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 48c7dde9f51..1c8fad3069c 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -154,7 +154,7 @@ May be manually changed by user with `gdb-select-frame'.") "Associative list of threads provided by \"-thread-info\" MI command. Keys are thread numbers (in strings) and values are structures as -returned from -thread-info by `gdb-json-partial-output'. Updated in +returned from -thread-info by `gdb-json-partial-output'. Updated in `gdb-thread-list-handler-custom'.") (defvar gdb-running-threads-count nil @@ -378,18 +378,18 @@ Must be a list of pairs with cars being buffers and cdr's being valid signal handlers.") (defgroup gdb nil - "GDB graphical interface" + "GDB graphical interface." :group 'tools :link '(info-link "(emacs)GDB Graphical Interface") :version "23.2") (defgroup gdb-non-stop nil - "GDB non-stop debugging settings" + "GDB non-stop debugging settings." :group 'gdb :version "23.2") (defgroup gdb-buffers nil - "GDB buffers" + "GDB buffers." :group 'gdb :version "23.2") @@ -657,7 +657,7 @@ When `gdb-non-stop' is nil, return COMMAND unchanged." "`gud-call' wrapper which adds --thread/--all options between CMD1 and CMD2. NOALL is the same as in `gdb-gud-context-command'. -NOARG must be t when this macro is used outside `gud-def'" +NOARG must be t when this macro is used outside `gud-def'." `(gud-call (concat (gdb-gud-context-command ,cmd1 ,noall) " " ,cmd2) ,(when (not noarg) 'arg))) @@ -2681,7 +2681,7 @@ in MI messages, e.g.: [key=.., key=..]. -stack-list-frames and responses. If FIX-LIST is non-nil, \"FIX-LIST={..}\" is replaced with -\"FIX-LIST=[..]\" prior to parsing. This is used to fix broken +\"FIX-LIST=[..]\" prior to parsing. This is used to fix broken -break-info output when it contains breakpoint script field incompatible with GDB/MI output syntax. diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 306ae8fd50f..fec87bbd1ca 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -255,7 +255,7 @@ to limit saving to files located under `my-grep-root'." (defcustom grep-error-screen-columns nil "If non-nil, column numbers in grep hits are screen columns. -See `compilation-error-screen-columns'" +See `compilation-error-screen-columns'." :type '(choice (const :tag "Default" nil) integer) :version "22.1" diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 235546ef2e4..396141b3884 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -3069,7 +3069,7 @@ the character after the end of the expr." "Returns the previous expr, point is set to beginning of that expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies -the character after the end of the expr" +the character after the end of the expr." (let ((begin) (end)) (gud-backward-sexp) (setq begin (point)) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 7cbd30a0d1d..55ea3417ffd 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -500,7 +500,7 @@ "Indentation of Perl statements with respect to containing block." :type 'integer) -;; Is is not unusual to put both things like perl-indent-level and +;; It is not unusual to put both things like perl-indent-level and ;; cperl-indent-level in the local variable section of a file. If only ;; one of perl-mode and cperl-mode is in use, a warning will be issued ;; about the variable. Autoload these here, so that no warning is diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index b589cab9c25..7f9d880757e 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -496,7 +496,7 @@ The keymap for this second window is: When Ghostscript encounters an error it displays an error message -with a file position. Clicking mouse-2 on this number will bring +with a file position. Clicking mouse-2 on this number will bring point to the corresponding spot in the PostScript window, if input to the interpreter was sent from that window. Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect." @@ -606,7 +606,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number "To what column should text on current line be indented? Indentation is increased if the last token on the current line -defines the beginning of a group. These tokens are: { [ <<" +defines the beginning of a group. These tokens are: { [ <<" (save-excursion (beginning-of-line) (if (looking-at "[ \t]*\\(}\\|\\]\\|>>\\)") @@ -1068,7 +1068,7 @@ grestore (defun ps-run-goto-error () "Jump to buffer position read as integer at point. -Use line numbers if `ps-run-error-line-numbers' is not nil" +Use line numbers if `ps-run-error-line-numbers' is not nil." (interactive) (let ((p (point))) (unless (looking-at "[0-9]") diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index ec5d8c55512..ae5aff351c0 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -4415,7 +4415,7 @@ returns will be used. If not FORCE-PROCESS is passed what (defvar-local python-eldoc-get-doc t "Non-nil means eldoc should fetch the documentation - automatically. Set to nil by `python-eldoc-function' if + automatically. Set to nil by `python-eldoc-function' if `python-eldoc-function-timeout-permanent' is non-nil and `python-eldoc-function' times out.") @@ -4427,7 +4427,7 @@ returns will be used. If not FORCE-PROCESS is passed what (defcustom python-eldoc-function-timeout-permanent t "Non-nil means that when `python-eldoc-function' times out -`python-eldoc-get-doc' will be set to nil" +`python-eldoc-get-doc' will be set to nil." :group 'python :type 'boolean :version "25.1") @@ -4445,7 +4445,7 @@ function returns then if longer return the documentation at the point automatically. Set `python-eldoc-get-doc' to t to reenable eldoc documentation -fetching" +fetching." (when python-eldoc-get-doc (with-timeout (python-eldoc-function-timeout (if python-eldoc-function-timeout-permanent |