Handle curved quotes in info files

* lisp/calc/calc-help.el (calc-describe-thing):
* lisp/info.el (Info-find-index-name)
(Info-try-follow-nearest-node, Info-fontify-node):
* lisp/vc/ediff-help.el (ediff-help-for-quick-help):
In info files, process quotes ‘like this’ the same way we process
quotes `like this'.  This catches a few places we missed earlier.

1 files changed, 41 insertions, 41 deletions

diff --git a/lisp/vc/ediff-help.el b/lisp/vc/ediff-help.el
index c981d89f50a..67acc6663a3 100644
--- a/lisp/vc/ediff-help.el
+++ b/lisp/vc/ediff-help.el
@@ -195,47 +195,47 @@ the value of this variable and the variables `ediff-help-message-*' in
     (ediff-documentation "Quick Help Commands")
 
     (let (case-fold-search)
-      (cond ((string= cmd "?") (re-search-forward "^`\\?'"))
-	    ((string= cmd "G") (re-search-forward "^`G'"))
-	    ((string= cmd "E") (re-search-forward "^`E'"))
-	    ((string= cmd "wd") (re-search-forward "^`wd'"))
-	    ((string= cmd "wx") (re-search-forward "^`wa'"))
-	    ((string= cmd "a/b") (re-search-forward "^`a'"))
-	    ((string= cmd "x") (re-search-forward "^`a'"))
-	    ((string= cmd "xy") (re-search-forward "^`ab'"))
-	    ((string= cmd "p,DEL") (re-search-forward "^`p'"))
-	    ((string= cmd "n,SPC") (re-search-forward "^`n'"))
-	    ((string= cmd "j") (re-search-forward "^`j'"))
-	    ((string= cmd "gx") (re-search-forward "^`ga'"))
-	    ((string= cmd "!") (re-search-forward "^`!'"))
-	    ((string= cmd "*") (re-search-forward "^`\\*'"))
-	    ((string= cmd "m") (re-search-forward "^`m'"))
-	    ((string= cmd "|") (re-search-forward "^`|'"))
-	    ((string= cmd "@") (re-search-forward "^`@'"))
-	    ((string= cmd "h") (re-search-forward "^`h'"))
-	    ((string= cmd "r") (re-search-forward "^`r'"))
-	    ((string= cmd "rx") (re-search-forward "^`ra'"))
-	    ((string= cmd "##") (re-search-forward "^`##'"))
-	    ((string= cmd "#c") (re-search-forward "^`#c'"))
-	    ((string= cmd "#f/#h") (re-search-forward "^`#f'"))
-	    ((string= cmd "X") (re-search-forward "^`A'"))
-	    ((string= cmd "v/V") (re-search-forward "^`v'"))
-	    ((string= cmd "</>") (re-search-forward "^`<'"))
-	    ((string= cmd "~") (re-search-forward "^`~'"))
-	    ((string= cmd "i") (re-search-forward "^`i'"))
-	    ((string= cmd "D") (re-search-forward "^`D'"))
-	    ((string= cmd "R") (re-search-forward "^`R'"))
-	    ((string= cmd "M") (re-search-forward "^`M'"))
-	    ((string= cmd "z/q") (re-search-forward "^`z'"))
-	    ((string= cmd "%") (re-search-forward "^`%'"))
-	    ((string= cmd "C-l") (re-search-forward "^`C-l'"))
-	    ((string= cmd "$$") (re-search-forward "^`\\$\\$'"))
-	    ((string= cmd "$*") (re-search-forward "^`\\$\\*'"))
-	    ((string= cmd "/") (re-search-forward "^`/'"))
-	    ((string= cmd "&") (re-search-forward "^`&'"))
-	    ((string= cmd "s") (re-search-forward "^`s'"))
-	    ((string= cmd "+") (re-search-forward "^`\\+'"))
-	    ((string= cmd "=") (re-search-forward "^`='"))
+      (cond ((string= cmd "?") (re-search-forward "^[`‘]\\?['’]"))
+	    ((string= cmd "G") (re-search-forward "^[`‘]G['’]"))
+	    ((string= cmd "E") (re-search-forward "^[`‘]E['’]"))
+	    ((string= cmd "wd") (re-search-forward "^[`‘]wd['’]"))
+	    ((string= cmd "wx") (re-search-forward "^[`‘]wa['’]"))
+	    ((string= cmd "a/b") (re-search-forward "^[`‘]a['’]"))
+	    ((string= cmd "x") (re-search-forward "^[`‘]a['’]"))
+	    ((string= cmd "xy") (re-search-forward "^[`‘]ab['’]"))
+	    ((string= cmd "p,DEL") (re-search-forward "^[`‘]p['’]"))
+	    ((string= cmd "n,SPC") (re-search-forward "^[`‘]n['’]"))
+	    ((string= cmd "j") (re-search-forward "^[`‘]j['’]"))
+	    ((string= cmd "gx") (re-search-forward "^[`‘]ga['’]"))
+	    ((string= cmd "!") (re-search-forward "^[`‘]!['’]"))
+	    ((string= cmd "*") (re-search-forward "^[`‘]\\*['’]"))
+	    ((string= cmd "m") (re-search-forward "^[`‘]m['’]"))
+	    ((string= cmd "|") (re-search-forward "^[`‘]|['’]"))
+	    ((string= cmd "@") (re-search-forward "^[`‘]@['’]"))
+	    ((string= cmd "h") (re-search-forward "^[`‘]h['’]"))
+	    ((string= cmd "r") (re-search-forward "^[`‘]r['’]"))
+	    ((string= cmd "rx") (re-search-forward "^[`‘]ra['’]"))
+	    ((string= cmd "##") (re-search-forward "^[`‘]##['’]"))
+	    ((string= cmd "#c") (re-search-forward "^[`‘]#c['’]"))
+	    ((string= cmd "#f/#h") (re-search-forward "^[`‘]#f['’]"))
+	    ((string= cmd "X") (re-search-forward "^[`‘]A['’]"))
+	    ((string= cmd "v/V") (re-search-forward "^[`‘]v['’]"))
+	    ((string= cmd "</>") (re-search-forward "^[`‘]<['’]"))
+	    ((string= cmd "~") (re-search-forward "^[`‘]~['’]"))
+	    ((string= cmd "i") (re-search-forward "^[`‘]i['’]"))
+	    ((string= cmd "D") (re-search-forward "^[`‘]D['’]"))
+	    ((string= cmd "R") (re-search-forward "^[`‘]R['’]"))
+	    ((string= cmd "M") (re-search-forward "^[`‘]M['’]"))
+	    ((string= cmd "z/q") (re-search-forward "^[`‘]z['’]"))
+	    ((string= cmd "%") (re-search-forward "^[`‘]%['’]"))
+	    ((string= cmd "C-l") (re-search-forward "^[`‘]C-l['’]"))
+	    ((string= cmd "$$") (re-search-forward "^[`‘]\\$\\$['’]"))
+	    ((string= cmd "$*") (re-search-forward "^[`‘]\\$\\*['’]"))
+	    ((string= cmd "/") (re-search-forward "^[`‘]/['’]"))
+	    ((string= cmd "&") (re-search-forward "^[`‘]&['’]"))
+	    ((string= cmd "s") (re-search-forward "^[`‘]s['’]"))
+	    ((string= cmd "+") (re-search-forward "^[`‘]\\+['’]"))
+	    ((string= cmd "=") (re-search-forward "^[`‘]=['’]"))
 	    (t (error "Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer")))
       ) ; let case-fold-search
     ))