(help-make-xrefs): Don't make hyperlinks for incorrect coding systems.

880c345e · Kenichi Handa · 9941d4c7 · 880c345e
Commit 880c345e authored Aug 31, 2000 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/help.el lisp/help.el +2 -2

No files found.
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1134,7 +1134,7 @@ that."
 			     (sym (intern-soft data)))
 			(cond
 			 ((match-string 3) ; coding system
-			  (and (coding-system-p sym)
+			  (and sym (coding-system-p sym)
 			       (help-xref-button
 				5 #'describe-coding-system sym
 				"mouse-2, RET: describe this coding system")))
@@ -1143,7 +1143,7 @@ that."
 			       (help-xref-button
 				5 #'describe-input-method data
 				"mouse-2, RET: describe this input method")))
-			 ((coding-system-p sym)
+			 ((and sym (coding-system-p sym))
 			  (help-xref-button
 			   5 #'describe-coding-system sym
 			   "mouse-2, RET: describe this coding system"))