From xemacs-m  Fri Dec 13 01:11:03 1996
Received: from atreides.mindspring.com (qmailr@atreides.mindspring.com [204.180.142.236]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with SMTP id BAA05663 for <xemacs-beta@xemacs.org>; Fri, 13 Dec 1996 01:11:02 -0600 (CST)
Received: (qmail 16113 invoked by uid 52477); 13 Dec 1996 07:11:01 -0000
Sender: sj@atreides.mindspring.com
To: XEmacs beta <xemacs-beta@xemacs.org>
Subject: next-history-element and minibuffer-history-sexp-flag 
From: Sudish Joseph <sudish@mindspring.com>
Date: 13 Dec 1996 02:11:01 -0500
Message-ID: <yviau3pqzzp6.fsf@atreides.mindspring.com>
Lines: 26
X-Mailer: Red Gnus v0.74/XEmacs 20.0

In XEmacs 20.0 [Lucid] (i586-unknown-linux2.0.27) 
	of Fri Dec 13 1996 on atreides

Minibuffer-history-sexp-flag isn't being set correctly.  But I don't
see why it's needed at all, since using prin1-to-string for all
non-strings encountered in next-history-element seems correct -- is
this an artifact of an earlier GNU Emacs synch?  More likely, it's
another deadly radiation attack by the masters of the clueless on the
metal in my fillings; patch with care.


--- lisp/prim/minibuf.el~	Fri Dec 13 01:58:14 1996
+++ lisp/prim/minibuf.el	Fri Dec 13 01:58:14 1996
@@ -1207,9 +1207,7 @@
 	  (let ((elt (nth (1- minibuffer-history-position)
 			  (symbol-value minibuffer-history-variable))))
 	    (insert
-	     (if (and minibuffer-history-sexp-flag
-		      ;; total kludge
-		      (not (stringp elt)))
+	     (if (not (stringp elt))
 		 (let ((print-level nil))
 		   (condition-case nil
 		       (let ((print-readably t)

-Sudish

