Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 6:27bc7f280385 r19-15b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b4
author cvs
date Mon, 13 Aug 2007 08:47:15 +0200
parents b82b59fe008d
children 859a2309aef8
comparison
equal deleted inserted replaced
5:49b78a777eb4 6:27bc7f280385
1213 (erase-buffer) 1213 (erase-buffer)
1214 (setq minibuffer-history-position narg) 1214 (setq minibuffer-history-position narg)
1215 (let ((elt (nth (1- minibuffer-history-position) 1215 (let ((elt (nth (1- minibuffer-history-position)
1216 (symbol-value minibuffer-history-variable)))) 1216 (symbol-value minibuffer-history-variable))))
1217 (insert 1217 (insert
1218 (if (and minibuffer-history-sexp-flag 1218 (if (not (stringp elt))
1219 ;; total kludge
1220 (not (stringp elt)))
1221 (let ((print-level nil)) 1219 (let ((print-level nil))
1222 (condition-case nil 1220 (condition-case nil
1223 (let ((print-readably t) 1221 (let ((print-readably t)
1224 (print-escape-newlines t)) 1222 (print-escape-newlines t))
1225 (prin1-to-string elt)) 1223 (prin1-to-string elt))