diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 3dd87d65617..7e7dbd145a6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -72,7 +72,7 @@ For more information, see Info node `(elisp)Declaring Functions'." If FORM does return, signal an error." (declare (debug t)) `(prog1 ,form - (error "Form marked with `noreturn' did return"))) + (error "Form marked with ‘noreturn’ did return"))) (defmacro 1value (form) "Evaluate FORM, expecting a constant return value. @@ -320,7 +320,7 @@ Defaults to `error'." (mapcar (lambda (parent) (cons parent (or (get parent 'error-conditions) - (error "Unknown signal `%s'" parent)))) + (error "Unknown signal ‘%s’" parent)))) parent)) (cons parent (get parent 'error-conditions))))) (put name 'error-conditions @@ -1606,7 +1606,7 @@ can do the job." exp (let* ((sym (cadr list-var)) (append (eval append)) - (msg (format "`add-to-list' can't use lexical var `%s'; use `push' or `cl-pushnew'" + (msg (format "‘add-to-list’ can't use lexical var ‘%s’; use ‘push’ or ‘cl-pushnew’" sym)) ;; Big ugly hack so we only output a warning during ;; byte-compilation, and so we can use @@ -2207,7 +2207,7 @@ Any input that is not one of CHARS is ignored. If optional argument INHIBIT-KEYBOARD-QUIT is non-nil, ignore keyboard-quit events while waiting for a valid input." (unless (consp chars) - (error "Called `read-char-choice' without valid char choices")) + (error "Called ‘read-char-choice’ without valid char choices")) (let (char done show-help (helpbuf " *Char Help*")) (let ((cursor-in-echo-area t) (executing-kbd-macro executing-kbd-macro) |