Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 0e522484dd2a
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
1932 (setq filewin (frame-highest-window frame)) 1932 (setq filewin (frame-highest-window frame))
1933 (set-window-buffer filewin filebuf)) 1933 (set-window-buffer filewin filebuf))
1934 (setq user-data (list filebuf dirbuff filewin dirwin)) 1934 (setq user-data (list filebuf dirbuff filewin dirwin))
1935 (set-window-buffer (frame-lowest-window frame) butbuff) 1935 (set-window-buffer (frame-lowest-window frame) butbuff)
1936 (set-buffer butbuff) 1936 (set-buffer butbuff)
1937 (when dir
1938 (setq default-directory dir))
1937 (when (featurep 'scrollbar) 1939 (when (featurep 'scrollbar)
1938 (set-specifier scrollbar-width 0 butbuff)) 1940 (set-specifier scrollbar-width 0 butbuff))
1939 (insert " ") 1941 (insert " ")
1940 (insert-gui-button (make-gui-button "OK" 1942 (insert-gui-button (make-gui-button "OK"
1941 (lambda (foo) 1943 (lambda (foo)