From xemacs-m  Sun Jul 13 07:06:22 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 HAA14071
	for <xemacs-beta@xemacs.org>; Sun, 13 Jul 1997 07:06:12 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id FAA21244;
	Sun, 13 Jul 1997 05:05:31 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [PATCH] `read-from-minibuffer' proposed change
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_Sun_Jul_13_05:05:30_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg+xemacs@inetarena.com (Karl M. Hegbloom)
Date: 13 Jul 1997 05:05:30 -0700
Message-ID: <87g1tjqhrp.fsf@bittersweet.inetarena.com>
Lines: 58
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

--Multipart_Sun_Jul_13_05:05:30_1997-1
Content-Type: text/plain; charset=US-ASCII

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

	* prim/minibuf.el: (read-from-minibuffer) Corrected indentation,
 	History lists don't contain dups anymore, newest is put on top and
 	removed from the cdr.


--Multipart_Sun_Jul_13_05:05:30_1997-1
Content-Type: text/plain; charset=US-ASCII

--- lisp/prim/minibuf.el.orig	Sun Jul 13 04:13:53 1997
+++ lisp/prim/minibuf.el	Sun Jul 13 04:56:55 1997
@@ -363,8 +363,8 @@
          (window (minibuffer-window))
          (buffer (if (eq (minibuffer-depth) 0)
                      (window-buffer window)
-                     (get-buffer-create (format " *Minibuf-%d"
-                                                (minibuffer-depth)))))
+		   (get-buffer-create (format " *Minibuf-%d"
+					      (minibuffer-depth)))))
          (frame (window-frame window))
          (mconfig (if (eq frame (selected-frame)) 
                       nil (current-window-configuration frame)))
@@ -376,8 +376,7 @@
 	 (_history_ history))
     (unwind-protect
          (progn
-           (set-buffer buffer)
-           (reset-buffer buffer)
+           (set-buffer (reset-buffer buffer))
            (setq default-directory dir)
            (make-local-variable 'print-escape-newlines)
            (setq print-escape-newlines t)
@@ -481,7 +480,9 @@
 				minibuffer-history-minimum-string-length
 				(< (length val)
 				   minibuffer-history-minimum-string-length))
-			   (set minibuffer-history-variable (cons histval list)))))
+			   (set minibuffer-history-variable
+				(cons histval
+				      (remove histval list))))))
                  (if err (signal (car err) (cdr err)))
                  val))))
       ;; stupid display code requires this for some reason


--Multipart_Sun_Jul_13_05:05:30_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_Sun_Jul_13_05:05:30_1997-1--

