Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 3bb7ccffb0c0
children 8eaf7971accc
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
186 186
187 (define-key help-mode-map "q" 'help-mode-quit) 187 (define-key help-mode-map "q" 'help-mode-quit)
188 (define-key help-mode-map 'delete 'scroll-down) 188 (define-key help-mode-map 'delete 'scroll-down)
189 189
190 (defun help-mode-quit () 190 (defun help-mode-quit ()
191 "Exits from help mode, possibly restoring the previous window configuration." 191 "Exits from help mode, possibly restoring the previous window configuration.
192 (interactive) 192 Bury the help buffer to the end of the buffer list."
193 (cond ((frame-property (selected-frame) 'help-window-config) 193 (interactive)
194 (let ((buf (current-buffer)))
195 (cond ((frame-property (selected-frame) 'help-window-config)
194 (set-window-configuration 196 (set-window-configuration
195 (frame-property (selected-frame) 'help-window-config)) 197 (frame-property (selected-frame) 'help-window-config))
196 (set-frame-property (selected-frame) 'help-window-config nil)) 198 (set-frame-property (selected-frame) 'help-window-config nil))
197 ((one-window-p) 199 ((not (one-window-p))
198 (bury-buffer)) 200 (delete-window)))
199 (t 201 (bury-buffer buf)))
200 (delete-window))))
201 202
202 (defun help-quit () 203 (defun help-quit ()
203 (interactive) 204 (interactive)
204 nil) 205 nil)
205 206