diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-16 08:59:50 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-16 09:00:14 -0700 |
commit | 9ce1d38890a77e93af0d20f51c53419c097200d3 (patch) | |
tree | 5f845e3286e199bfcd96f65b2c1396d2d5d86009 /lisp/faces.el | |
parent | 3a91d153106aee673e0ba2cca58d7f3986d7ee13 (diff) | |
download | emacs-9ce1d38890a77e93af0d20f51c53419c097200d3.tar.gz |
Use curved quotes in core elisp diagnostics
In the core elisp files, use curved quotes in diagnostic formats,
so that they follow user preference as per ‘text-quoting-style’
rather than being hard-coded to quote `like this'.
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/cus-start.el:
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl-generic-generalizers):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/env.el (setenv):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (face-documentation, read-face-name)
(face-read-string, read-face-font, face-spec-set-match-display)
(read-color, x-resolve-font-name):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-local-variables)
(hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file)
(basic-save-buffer, delete-directory, copy-directory)
(recover-session, recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/help.el (describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method):
* lisp/international/mule-conf.el (code-offset):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, compose-mail, set-variable)
(choose-completion-string, define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, )
(command-line, command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
Use curved quotes in diagnostics.
* lisp/international/mule.el (find-auto-coding):
Use " to quote in a diagnostic, to be consistent with the rest of
this file.
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 125b14d8085..15ed699aaa8 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -574,7 +574,7 @@ If FACE is a face-alias, get the documentation for the target face." (let ((alias (get face 'face-alias))) (if alias (let ((doc (get alias 'face-documentation))) - (format "%s is an alias for the face `%s'.%s" face alias + (format "%s is an alias for the face ‘%s’.%s" face alias (if doc (format "\n%s" doc) ""))) (get face 'face-documentation)))) @@ -1005,7 +1005,7 @@ a single face name." (setq default (car (split-string default crm-separator t)))) (let ((prompt (if default - (format "%s (default `%s'): " prompt default) + (format "%s (default ‘%s’): " prompt default) (format "%s: " prompt))) aliasfaces nonaliasfaces faces) ;; Build up the completion tables. @@ -1137,9 +1137,9 @@ Value is the new attribute value." (let* ((completion-ignore-case t) (value (completing-read (if default - (format "%s for face `%s' (default %s): " + (format "%s for face ‘%s’ (default %s): " name face default) - (format "%s for face `%s': " name face)) + (format "%s for face ‘%s’: " name face)) completion-alist nil nil nil nil default))) (if (equal value "") default value))) @@ -1224,7 +1224,8 @@ of a global face. Value is the new attribute value." "Read the name of a font for FACE on FRAME. If optional argument FRAME is nil or omitted, use the selected frame." (let ((completion-ignore-case t)) - (completing-read (format "Set font attributes of face `%s' from font: " face) + (completing-read (format "Set font attributes of face ‘%s’ from font: " + face) (append (fontset-list) (x-list-fonts "*" nil frame))))) @@ -1547,7 +1548,7 @@ If FRAME is nil, the current FRAME is used." options)) ((eq req 'supports) (display-supports-face-attributes-p options frame)) - (t (error "Unknown req `%S' with options `%S'" + (t (error "Unknown req ‘%S’ with options ‘%S’" req options))))) match)) @@ -1920,7 +1921,7 @@ resulting color name in the echo area." (logand 65535 (nth 0 components)) (logand 65535 (nth 1 components)) (logand 65535 (nth 2 components)))))))) - (when msg (message "Color: `%s'" color)) + (when msg (message "Color: ‘%s’" color)) color)) (defun face-at-point (&optional thing multiple) @@ -2773,13 +2774,13 @@ also the same size as FACE on FRAME, or fail." (if (string-match-p "\\*" pattern) (if (null (face-font face)) (error "No matching fonts are the same height as the frame default font") - (error "No matching fonts are the same height as face `%s'" face)) + (error "No matching fonts are the same height as face ‘%s’" face)) (if (null (face-font face)) - (error "Height of font `%s' doesn't match the frame default font" + (error "Height of font ‘%s’ doesn't match the frame default font" pattern) - (error "Height of font `%s' doesn't match face `%s'" + (error "Height of font ‘%s’ doesn't match face ‘%s’" pattern face))) - (error "No fonts match `%s'" pattern))) + (error "No fonts match ‘%s’" pattern))) (car fonts)) (cdr (assq 'font (frame-parameters (selected-frame)))))) |