X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Finfo.el;h=be66af10d87c0462fc2584596c7569466ebd4160;hb=bbfed888cf9e3be7b600cc20225a378880329cd5;hp=bc8f7653a84cc0b3b0e4bde72a88f67b223aff6f;hpb=1d9bc86590766427e2431876a50d78206a99edd5;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/info.el b/lisp/info.el
index bc8f765..be66af1 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2008,7 +2008,7 @@ NAME may be an abbreviation of the reference name."
 	    ;; Kludge.
 	    ;; Allow dots in node name not followed by whitespace.
 	    (re-search-forward
-	     (concat "\\(([^)]+)[^."
+	     (concat "\\(([^)]+)[^.,"
 		     (if multi-line "" "\n")
 		     "]*\\|\\([^.,\t"
 		     (if multi-line "" "\n")
@@ -2430,7 +2430,8 @@ This command is designed to be used whether you are already in Info or not."
 				    (if fn
 					(format " (default %s)" fn)
 				      ""))
-			    obarray 'fboundp t))
+			    obarray 'fboundp t
+                            nil nil (and fn (symbol-name fn))))
 		 (list (if (equal val "")
 			   fn (intern val)))))
   (save-window-excursion
@@ -3103,7 +3104,7 @@ The locations are of the format used in Info-history, i.e.
 	    (forward-char 1)
 	    (insert "\n")
 	    (just-one-space)
-	    (backward-delete-char 1)
+	    (delete-backward-char 1)
 	    (setq p (point)
 		  len 0))))
       (toggle-read-only 1)