procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert some stray curved quotes I missed earlier

Browse source 
Problem reported by David Kastrup in:
http://lists.gnu.org/archive/html/emacs-devel/2015-09/msg00440.html
* lisp/international/mule-cmds.el (leim-list-header):
Use format-message with an ASCII-only format.
This commit is contained in:
Paul Eggert 2015-09-10 10:10:54 -07:00
parent a1cd8c96ca
commit cdb0ae37ab
9 changed files with 22 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/advice.el
View file

@ -168,7 +168,8 @@
;; "Switch to non-existing buffers only upon confirmation."
;; (interactive "BSwitch to buffer: ")
;; (if (or (get-buffer (ad-get-arg 0))
;; (y-or-n-p (format "‘%s’ does not exist, create? " (ad-get-arg 0))))
;; (y-or-n-p (format-message "`%s' does not exist, create? "
;; (ad-get-arg 0))))
;; ad-do-it))
;;
;;(defadvice find-file (before existing-files-only activate)

6
lisp/emacs-lisp/bytecomp.el
View file

@ -1814,7 +1814,7 @@ The value is non-nil if there were no errors, nil if errors."
;; compile this file.
(if (with-current-buffer input-buffer no-byte-compile)
(progn
;; (message "%s not compiled because of ‘no-byte-compile: %s’"
;; (message "%s not compiled because of `no-byte-compile: %s'"
;; (byte-compile-abbreviate-file filename)
;; (with-current-buffer input-buffer no-byte-compile))
(when (file-exists-p target-file)
@ -4196,7 +4196,7 @@ binding slots have been popped."
;; (consp (get condition
;; 'error-conditions)))))
;; (byte-compile-warn
;; "‘%s’ is not a known condition name
;; "`%s' is not a known condition name
;; (in condition-case)"
;; condition))
)
@ -4235,7 +4235,7 @@ binding slots have been popped."
;; for the argument to `signal', not to `condition-case'.
;;(unless (consp (get c 'error-conditions))
;; (byte-compile-warn
;; "‘%s’ is not a known condition name (in condition-case)"
;; "`%s' is not a known condition name (in condition-case)"
;; c))
)
(byte-compile-push-constant condition))

2
lisp/emacs-lisp/cconv.el
View file

@ -679,7 +679,7 @@ and updates the data stored in ENV."
;; ((and `(quote ,v . ,_) (guard (assq v env)))
;; (byte-compile-log-warning
;; (format-message "Possible confusion variable/symbol for ‘%S’" v)))
;; (format-message "Possible confusion variable/symbol for `%S'" v)))
(`(quote . ,_) nil) ; quote form
(`(function . ,_) nil) ; same as quote

2
lisp/emacs-lisp/checkdoc.el
View file

@ -1663,7 +1663,7 @@ function,command,variable,option or symbol." ms1))))))
;; (concat "\\<" (regexp-quote (car fp)) "\\>")
;; newname))
;; (checkdoc-create-error
;; "Flag variable names should normally end in ‘-flag’" s
;; "Flag variable names should normally end in `-flag'" s
;; (marker-position e)))))
;; Done with variables
))

2
lisp/emacs-lisp/eieio-core.el
View file

@ -850,7 +850,7 @@ Fills in the default value in CLASS' in SLOT with VALUE."
;; gnus/registry.el, so it might be used elsewhere as well, so let's
;; keep it for now.
;; FIXME: Generate a compile-time warning for it!
;; (error "Can't ‘oset-default’ an instance-allocated slot: %S of %S"
;; (error "Can't `oset-default' an instance-allocated slot: %S of %S"
;; slot class)
(eieio--validate-slot-value class c value slot)
;; Set this into the storage for defaults.