Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c0c698873ce1
children 0d2f883870bc
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
179 ) 179 )
180 180
181 (define-key help-mode-map "q" 'help-mode-quit) 181 (define-key help-mode-map "q" 'help-mode-quit)
182 182
183 (defun help-mode-quit () 183 (defun help-mode-quit ()
184 "Exits from help mode, possiblely restoring the previous window configuration." 184 "Exits from help mode, possibly restoring the previous window configuration."
185 (interactive) 185 (interactive)
186 (cond ((local-variable-p 'help-window-config (current-buffer)) 186 (cond ((local-variable-p 'help-window-config (current-buffer))
187 (let ((config help-window-config)) 187 (let ((config help-window-config))
188 (kill-local-variable 'help-window-config) 188 (kill-local-variable 'help-window-config)
189 (bury-buffer)
189 (set-window-configuration config))) 190 (set-window-configuration config)))
190 ((one-window-p) 191 ((one-window-p)
191 (bury-buffer)) 192 (bury-buffer))
192 (t 193 (t
193 (delete-window)))) 194 (delete-window))))