Revert "Extend ‘format’ to translate curved quotes"

This reverts commit 244c801689.
2015-08-23 13:43:34 +02:00 · 2015-08-23 13:43:34 +02:00 · 6b1765e05d
commit 6b1765e05d
parent 0b0c9565d0
7 changed files with 124 additions and 191 deletions
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@ -331,10 +331,9 @@ which more-or-less shadow%s %s's corresponding table%s."
 			"\n\nThis mode "
 		      (concat
 		       "\n\nIn addition to any hooks its parent mode "
-		       (if (string-match (concat "[`%‘]"
+		       (if (string-match (format "[`‘]%s['’]"
                                                 (regexp-quote
-						  (symbol-name parent))
-                                                 "['%’]")
+						  (symbol-name parent)))
 					 docstring)
                           nil
 			 (format "`%s' " parent))