Mercurial > hg > xemacs-beta

comparison lisp/prim/minibuf.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 318232e2a3f0
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1785 result) 1785 result)
1786 (t file)))) 1786 (t file))))
1787 1787
1788 (defun mouse-file-display-completion-list (window dir minibuf user-data) 1788 (defun mouse-file-display-completion-list (window dir minibuf user-data)
1789 (let ((standard-output (window-buffer window))) 1789 (let ((standard-output (window-buffer window)))
1790 (display-completion-list 1790 (condition-case nil
1791 (directory-files dir nil nil nil t) 1791 (display-completion-list
1792 :window-width (* 2 (window-width window)) 1792 (directory-files dir nil nil nil t)
1793 :activate-callback 1793 :window-width (* 2 (window-width window))
1794 'mouse-read-file-name-activate-callback 1794 :activate-callback
1795 :user-data user-data 1795 'mouse-read-file-name-activate-callback
1796 :reference-buffer minibuf 1796 :user-data user-data
1797 :help-string ""))) 1797 :reference-buffer minibuf
1798 :help-string "")
1799 (t nil))))
1798 1800
1799 (defun mouse-directory-display-completion-list (window dir minibuf user-data) 1801 (defun mouse-directory-display-completion-list (window dir minibuf user-data)
1800 (let ((standard-output (window-buffer window))) 1802 (let ((standard-output (window-buffer window)))
1801 (display-completion-list 1803 (condition-case nil
1802 (delete "." (directory-files dir nil nil nil 1)) 1804 (display-completion-list
1803 :window-width (window-width window) 1805 (delete "." (directory-files dir nil nil nil 1))
1804 :activate-callback 1806 :window-width (window-width window)
1805 'mouse-read-file-name-activate-callback 1807 :activate-callback
1806 :user-data user-data 1808 'mouse-read-file-name-activate-callback
1807 :reference-buffer minibuf 1809 :user-data user-data
1808 :help-string ""))) 1810 :reference-buffer minibuf
1811 :help-string "")
1812 (t nil))))
1809 1813
1810 (defun mouse-read-file-name-activate-callback (event extent user-data) 1814 (defun mouse-read-file-name-activate-callback (event extent user-data)
1811 (let* ((file (extent-string extent)) 1815 (let* ((file (extent-string extent))
1812 (minibuf (symbol-value-in-buffer 'completion-reference-buffer 1816 (minibuf (symbol-value-in-buffer 'completion-reference-buffer
1813 (extent-object extent))) 1817 (extent-object extent)))