Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 4675:9a1a59b4b75d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct an ancient typo workaround, thank you Julian Bradfield! lisp/ChangeLog addition: 2009-08-14 Aidan Kehoe <kehoea@parhasard.net> * minibuf.el (read-from-minibuffer): Use buffer (format " *Minibuf-%d*" (minibuffer-depth)), regardless of depth.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 14 Aug 2009 19:14:51 +0100
parents c7e65155cb35
children 3c92890f3750
comparison
equal deleted inserted replaced
4674:e95ddfd6a409 4675:9a1a59b4b75d
403 )) 403 ))
404 (let* ((dir default-directory) 404 (let* ((dir default-directory)
405 (owindow (selected-window)) 405 (owindow (selected-window))
406 (oframe (selected-frame)) 406 (oframe (selected-frame))
407 (window (minibuffer-window)) 407 (window (minibuffer-window))
408 (buffer (if (eq (minibuffer-depth) 0) 408 (buffer (get-buffer-create (format " *Minibuf-%d*"
409 (window-buffer window) 409 (minibuffer-depth))))
410 (get-buffer-create (format " *Minibuf-%d"
411 (minibuffer-depth)))))
412 (frame (window-frame window)) 410 (frame (window-frame window))
413 (mconfig (if (eq frame (selected-frame)) 411 (mconfig (if (eq frame (selected-frame))
414 nil (current-window-configuration frame))) 412 nil (current-window-configuration frame)))
415 (oconfig (current-window-configuration)) 413 (oconfig (current-window-configuration))
416 ;; dynamic scope sucks sucks sucks sucks sucks sucks. 414 ;; dynamic scope sucks sucks sucks sucks sucks sucks.