;;; 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 ...)
;;
;;
;; 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
(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
(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,
(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
(declare-function beginning-of-visual-line "simple" (&optional n))
(defun message-beginning-of-header (handle-folded)
- "Move point to beginning of header’s 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 it’s 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.
No check whether point is inside of a header or body of the
message is performed.
-Returns point or nil if beginning of header’s 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)."
"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
;;; 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)
(should (equal unread-command-events '(?a)))))
(ert-deftest bug23288-translate-to-mouse-2 ()
- "If ‘mouse-on-link-p’ doesn’t 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)
(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 doesn’t 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 "
(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 doesn’t 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)
(should-error (nconc (cyc2 1 2) 'tail) :type 'circular-list))
(ert-deftest plist-get/odd-number-of-elements ()
- "Test that ‘plist-get’ doesn’t 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 ()
"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 '("*" "+"))
projects / emacs.git / commitdiff