Commit 471b6c16 authored by Glenn Morris's avatar Glenn Morris

; Replace non-ascii quote characters in doc strings etc

parent 7af7f5e1
......@@ -25,13 +25,13 @@
;;; Commentary:
;; Late 2016. In a recent build, the date in a ChangeLog file
;; is not fontified. Turns out the face change-log-date-face
;; is not fontified. Turns out the face `change-log-date-face'
;; was declared obsolete since 22.1 and removed 2016-06-23.
;; (compile "git show c430f7e23fc2c22f251ace4254e37dea1452dfc3")
;;
;; This library provides a command last-chance, which is a small
;; This library provides a command `last-chance', which is a small
;; combination of "git grep" and some regexp filtering. For example,
;; if point is on the symbol change-log-date-face in the form:
;; if point is on the symbol `change-log-date-face' in the form:
;;
;; (define-obsolete-face-alias 'change-log-date-face ...)
;;
......@@ -39,7 +39,7 @@
;;
;; M-x last-chance RET
;;
;; will show you any references to change-log-date-face in the
;; will show you any references to `change-log-date-face' in the
;; *.el files in a new buffer (in Grep mode). Hopefully you see
;; only the obsolete declaration and can proceed w/ its removal.
;; If not, please DTRT and refrain from the removal until those
......@@ -59,17 +59,17 @@ This should include -n, -H, -F.")
(defvar last-chance-uninteresting-regexps
'("ChangeLog[.0-9]*:"
"NEWS[-.0-9]*:"
;; Add more flush-lines args here.
;; Add more `flush-lines' args here.
)
"List of regexps that match uninteresting \"git grep\" hits.")
(defvar-local last-chance-symbol nil
"Symbol set by last-chance for last-chance-cleanup to DTRT.")
"Symbol set by `last-chance' for `last-chance-cleanup' to DTRT.")
(defun last-chance-cleanup (buffer status)
"Filter lines in BUFFER; append STATUS and count of removed lines.
If BUFFER does not seem to be one created by last-chance, do nothing.
This function is intended to be added to compilation-finish-functions."
If BUFFER does not seem to be one created by `last-chance', do nothing.
This function is intended to be added to `compilation-finish-functions'."
(let ((name (buffer-local-value 'last-chance-symbol buffer))
bef aft)
(when name
......@@ -90,10 +90,10 @@ This function is intended to be added to ‘compilation-finish-functions’."
(defun last-chance (symbol)
"Grep the repo for SYMBOL, filtering the hits.
This uses last-chance-grep-command to do the grep and the
regexps in last-chance-uninteresting-regexps to filter the hits.
Grepping is recursive starting under the dir that vc-root-dir
finds (or the default directory if vc-root-dir finds nothing).
This uses `last-chance-grep-command' to do the grep and the
regexps in `last-chance-uninteresting-regexps' to filter the hits.
Grepping is recursive starting under the dir that `vc-root-dir'
finds (or the default directory if `vc-root-dir' finds nothing).
Output goes to the *grep* buffer.
Interactively, Emacs queries for a symbol,
......
......@@ -1253,7 +1253,7 @@ function directly; use `byte-compile-warn' or
(defun byte-compile-report-error (error-info &optional fill)
"Report Lisp error in compilation.
ERROR-INFO is the error data, in the form of either (ERROR-SYMBOL . DATA)
or STRING. If FILL is non-nil, set warning-fill-prefix to four spaces
or STRING. If FILL is non-nil, set `warning-fill-prefix' to four spaces
when printing the error message."
(setq byte-compiler-error-flag t)
(byte-compile-log-warning
......
......@@ -6245,14 +6245,14 @@ they are."
(declare-function beginning-of-visual-line "simple" (&optional n))
(defun message-beginning-of-header (handle-folded)
"Move point to beginning of headers value.
"Move point to beginning of header's value.
When point is at the first header line, moves it after the colon
and spaces separating header name and header value.
When point is in a continuation line of a folded header (i.e. the
line starts with a space), the behavior depends on HANDLE-FOLDED
argument. If its nil, function moves the point to the start of
argument. If it's nil, function moves the point to the start of
the header continuation; otherwise, function locates the
beginning of the header and moves point past the colon as is the
case of single-line headers.
......@@ -6260,7 +6260,7 @@ case of single-line headers.
No check whether point is inside of a header or body of the
message is performed.
Returns point or nil if beginning of headers value could not be
Returns point or nil if beginning of header's value could not be
found. In the latter case, the point is still moved to the
beginning of line (possibly after attempting to move it to the
beginning of a folded header)."
......
......@@ -353,7 +353,7 @@ You may want to include buffer names such as *Help*, *Apropos*,
"Toggle Winner mode on or off.
With a prefix argument ARG, enable Winner mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil, and toggle it if ARG is toggle.
the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
Winner mode is a global minor mode that records the changes in
the window configuration (i.e. how the frames are partitioned
......
......@@ -26,8 +26,7 @@
;;; Code:
(ert-deftest bug23288-use-return-value ()
"If ‘mouse-on-link-p’ returns a string, its first character is
used."
"If `mouse-on-link-p' returns a string, its first character is used."
(cl-letf ((last-input-event '(down-mouse-1 nil 1))
(unread-command-events '((mouse-1 nil 1)))
(mouse-1-click-follows-link t)
......@@ -37,8 +36,8 @@ used."
(should (equal unread-command-events '(?a)))))
(ert-deftest bug23288-translate-to-mouse-2 ()
"If mouse-on-link-p doesnt return a string or vector,
translate mouse-1 events into mouse-2 events."
"If `mouse-on-link-p' doesn't return a string or vector,
translate `mouse-1' events into `mouse-2' events."
(cl-letf ((last-input-event '(down-mouse-1 nil 1))
(unread-command-events '((mouse-1 nil 1)))
(mouse-1-click-follows-link t)
......
......@@ -231,10 +231,9 @@ must evaluate to a regular expression string."
(point) (point-max))))))))
(ert-deftest module--test-assertions--load-non-live-object ()
"Check that -module-assertions verify that non-live objects
aren’t accessed."
"Check that -module-assertions verify that non-live objects aren't accessed."
(skip-unless (file-executable-p mod-test-emacs))
;; This doesnt yet cause undefined behavior.
;; This doesn't yet cause undefined behavior.
(should (eq (mod-test-invalid-store) 123))
(module--test-assertion (rx "Emacs value not found in "
(+ digit) " values of "
......
......@@ -28,14 +28,14 @@
(require 'ert)
(ert-deftest eval-tests--bug24673 ()
"Checks that Bug#24673 has been fixed."
"Check that Bug#24673 has been fixed."
;; This should not crash.
(should-error (funcall '(closure)) :type 'invalid-function))
(defvar byte-compile-debug)
(ert-deftest eval-tests--bugs-24912-and-24913 ()
"Checks that Emacs doesnt accept weird argument lists.
"Check that Emacs doesn't accept weird argument lists.
Bug#24912 and Bug#24913."
(dolist (args '((&optional) (&rest) (&optional &rest) (&rest &optional)
(&optional &rest a) (&optional a &rest)
......
......@@ -548,7 +548,7 @@
(should-error (nconc (cyc2 1 2) 'tail) :type 'circular-list))
(ert-deftest plist-get/odd-number-of-elements ()
"Test that plist-get doesnt signal an error on degenerate plists."
"Test that `plist-get' doesn't signal an error on degenerate plists."
(should-not (plist-get '(:foo 1 :bar) :bar)))
(ert-deftest lax-plist-get/odd-number-of-elements ()
......
......@@ -27,13 +27,13 @@
"Path to regex-resources directory next to the \"regex-tests.el\" file.")
(ert-deftest regex-word-cc-fallback-test ()
"Test that [[:cc:]]*x matches ‘x’ (bug#24020).
"Test that \"[[:cc:]]*x\" matches \"x\" (bug#24020).
Test that a regex of the form \"[[:cc:]]*x\" where CC is
a character class which matches a multibyte character X, matches
string \"x\".
For example, [[:word:]]*\u2620 regex (note: \u2620 is a word
For example, \"[[:word:]]*\u2620\" regex (note: \u2620 is a word
character) must match a string \"\u2420\"."
(dolist (class '("[[:word:]]" "\\sw"))
(dolist (repeat '("*" "+"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment