From xemacs-m  Thu Jul 10 21:22:39 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA16147
	for <xemacs-beta@xemacs.org>; Thu, 10 Jul 1997 21:22:37 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id TAA23372;
	Thu, 10 Jul 1997 19:21:50 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [PATCH] `Info-minibuffer-history'
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Thu_Jul_10_19:21:48_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 10 Jul 1997 19:21:49 -0700
Message-ID: <874ta272gy.fsf@bittersweet.inetarena.com>
Lines: 120
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

--Multipart_Thu_Jul_10_19:21:48_1997-1
Content-Type: text/plain; charset=US-ASCII


 :-)


--Multipart_Thu_Jul_10_19:21:48_1997-1
Content-Type: text/plain; charset=US-ASCII

1997-07-10  Karl M. Hegbloom  <karlheg@inetarena.com>

	* packages/info.el: Added `Info-minibuffer-history', and made it
 	the minibuffer history variable in the `completing-read' calls.

	* utils/savehist.el: Added `Info-minibuffer-history' to default
 	value of `savehist-history-variables'.


--Multipart_Thu_Jul_10_19:21:48_1997-1
Content-Type: text/plain; charset=US-ASCII

--- lisp/packages/info.el.orig	Thu Jun 26 02:44:34 1997
+++ lisp/packages/info.el	Thu Jul 10 19:04:19 1997
@@ -297,6 +297,11 @@
 ;; Fixed up Info-next-reference to work sanely when n < 0.
 ;; Added S-tab binding.
 
+;; Modified 1997-07-10 by Karl M. Hegbloom
+;;
+;; Added `Info-minibuffer-history'
+;; (also added to defaults in "lisp/utils/savehist.el")
+
 ;; Code:
 
 (defgroup info nil
@@ -321,6 +326,9 @@
   "Non-nil if Info-find-node should modify Info-history.
 This is for use only by certain internal Info routines.")
 
+(defvar Info-minibuffer-history nil
+  "Minibuffer history for Info.")
+
 (defcustom Info-enable-edit nil
   "*Non-nil means the \\<Info-mode-map>\\[Info-edit] command in Info
 can edit the current node.
@@ -918,11 +926,11 @@
 
 (defun Info-goto-bookmark ()
   (interactive)
-  
   (let ((completion-ignore-case nil)
 	(tag (completing-read "Goto tag: "
 			      (Info-build-annotation-completions)
-			      nil t)))
+			      nil t nil
+			      'Info-minibuffer-history)))
     (or (equal tag "") (Info-find-node nil (format "<<%s>>" tag)))))
 
 ;;;###autoload
@@ -953,7 +961,10 @@
 (defun Info-read-node-name (prompt &optional default)
   (Info-setup-initial)
   (let* ((completion-ignore-case t)
-	 (nodename (completing-read prompt (Info-build-node-completions))))
+	 (nodename (completing-read prompt
+				    (Info-build-node-completions)
+				    nil nil nil
+				    'Info-minibuffer-history)))
     (if (equal nodename "")
 	(or default
 	    (Info-read-node-name prompt))
@@ -1193,7 +1204,8 @@
 					  (concat "Follow reference named: ("
 						  default ") ")
 					"Follow reference named: ")
-				      completions nil t)))
+				      completions nil t nil
+				      'Info-minibuffer-history)))
 	   (if (and (string= item "") default)
 	       (list default)
 	     (list item)))
@@ -1319,7 +1331,8 @@
 					   (format "Menu item (default %s): "
 						   default)
 					   "Menu item: ")
-				       completions nil t)))
+				       completions nil t nil
+				       'Info-minibuffer-history)))
 	 ;; we rely on the fact that completing-read accepts an input
 	 ;; of "" even when the require-match argument is true and ""
 	 ;; is not a valid possibility


--Multipart_Thu_Jul_10_19:21:48_1997-1
Content-Type: text/plain; charset=US-ASCII

--- lisp/utils/savehist.el.orig	Wed Jul  9 00:36:24 1997
+++ lisp/utils/savehist.el	Thu Jul 10 18:49:50 1997
@@ -95,6 +95,9 @@
     ;; Extended commands
     read-command-history
 
+    ;; Info, lookup, and bookmark historys
+    Info-minibuffer-history
+
     ;; GNU Emacs-specific:
     ;; Extended commands
     extended-command-history)


--Multipart_Thu_Jul_10_19:21:48_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg+sig@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3  Linux 2.1.36 AMD K5 PR-133

--Multipart_Thu_Jul_10_19:21:48_1997-1--

