diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index b8d4e741775..f80faae80d8 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1655,7 +1655,7 @@ invoking, give a prefix argument to `execute-extended-command'." (not executing-kbd-macro) (where-is-internal function overriding-local-map t)))) (unless (commandp function) - (error "‘%s’ is not a valid command name" command-name)) + (error "`%s' is not a valid command name" command-name)) (setq this-command function) ;; Normally `real-this-command' should never be changed, but here we really ;; want to pretend that M-x <cmd> RET is nothing more than a "key @@ -1689,7 +1689,7 @@ invoking, give a prefix argument to `execute-extended-command'." (symbol-name function) typed)))) (when binding (with-temp-message - (format-message "You can run the command ‘%s’ with %s" + (format-message "You can run the command `%s' with %s" function (if (stringp binding) (concat "M-x " binding " RET") @@ -2801,7 +2801,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.") (setq undo-extra-outer-limit (+ size 50000)) (if (let (use-dialog-box track-mouse executing-kbd-macro ) (yes-or-no-p (format-message - "Buffer ‘%s’ undo info is %d bytes long; discard it? " + "Buffer `%s' undo info is %d bytes long; discard it? " (buffer-name) size))) (progn (setq buffer-undo-list nil) (setq undo-extra-outer-limit nil) @@ -2810,7 +2810,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.") (display-warning '(undo discard-info) (concat (format-message - "Buffer ‘%s’ undo info was %d bytes long.\n" + "Buffer `%s' undo info was %d bytes long.\n" (buffer-name) size) "The undo info was discarded because it exceeded \ `undo-outer-limit'. @@ -3570,7 +3570,7 @@ Also, delete any process that is exited or signaled." `(,(buffer-name buf) face link help-echo ,(format-message - "Visit buffer ‘%s’" + "Visit buffer `%s'" (buffer-name buf)) follow-link t process-buffer ,buf @@ -7348,11 +7348,11 @@ buffer buried." (push var warn-vars))) (when warn-vars (display-warning 'mail - (format "\ + (format-message "\ The default mail mode is now Message mode. You have the following Mail mode variable%s customized: -\n %s\n\nTo use Mail mode, set ‘mail-user-agent’ to sendmail-user-agent. -To disable this warning, set ‘compose-mail-user-agent-warnings’ to nil." +\n %s\n\nTo use Mail mode, set `mail-user-agent' to sendmail-user-agent. +To disable this warning, set `compose-mail-user-agent-warnings' to nil." (if (> (length warn-vars) 1) "s" "") (mapconcat 'symbol-name warn-vars " ")))))) @@ -7423,8 +7423,8 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally." (t "globally")))) (val (progn (when obsolete - (message (concat "‘%S’ is obsolete; " - (if (symbolp obsolete) "use ‘%S’ instead" "%s")) + (message (concat "`%S' is obsolete; " + (if (symbolp obsolete) "use `%S' instead" "%s")) var obsolete) (sit-for 3)) (if prop @@ -7448,7 +7448,7 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally." (require 'cus-edit) (setq type (widget-convert type)) (unless (widget-apply type :match value) - (user-error "Value ‘%S’ does not match type %S of %S" + (user-error "Value `%S' does not match type %S of %S" value (car type) variable)))) (if make-local @@ -7659,7 +7659,7 @@ back on `completion-list-insert-choice-function' when nil." ;; `base-position'. It's difficult to make any use of `base-size', ;; so we just ignore it. (unless (consp base-position) - (message "Obsolete ‘base-size’ passed to choose-completion-string") + (message "Obsolete `base-size' passed to choose-completion-string") (setq base-position nil)) (let* ((buffer (or buffer completion-reference-buffer)) @@ -8384,7 +8384,7 @@ CUSTOMIZATIONS, if non-nil, should be composed of alternating `(progn (defcustom ,varalt-sym nil - ,(format "Alist of alternative implementations for the ‘%s’ command. + ,(format "Alist of alternative implementations for the `%s' command. Each entry must be a pair (ALTNAME . ALTFUN), where: ALTNAME - The name shown at user to describe the alternative implementation. @@ -8397,22 +8397,22 @@ ALTFUN - The function called to implement this alternative." (defvar ,varimp-sym nil "Internal use only.") (defun ,command (&optional arg) - ,(format "Run generic command ‘%s’. + ,(format "Run generic command `%s'. If used for the first time, or with interactive ARG, ask the user which -implementation to use for ‘%s’. The variable ‘%s’ +implementation to use for `%s'. The variable `%s' contains the list of implementations currently supported for this command." command-name command-name varalt-name) (interactive "P") (when (or arg (null ,varimp-sym)) (let ((val (completing-read ,(format-message - "Select implementation for command ‘%s’: " + "Select implementation for command `%s': " command-name) ,varalt-sym nil t))) (unless (string-equal val "") (when (null ,varimp-sym) (message - "Use ‘C-u M-x %s RET’ to select another implementation" + "Use C-u M-x %s RET`to select another implementation" ,command-name) (sit-for 3)) (customize-save-variable ',varimp-sym @@ -8420,7 +8420,7 @@ contains the list of implementations currently supported for this command." (if ,varimp-sym (call-interactively ,varimp-sym) (message "%s" ,(format-message - "No implementation selected for command ‘%s’" + "No implementation selected for command `%s'" command-name))))))) |