Mercurial > hg > xemacs-beta

comparison lisp/prim/help.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents 49a24b4fd526
children 0293115a14e9
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
178 ) 178 )
179 179
180 (define-key help-mode-map "q" 'help-mode-quit) 180 (define-key help-mode-map "q" 'help-mode-quit)
181 181
182 (defun help-mode-quit () 182 (defun help-mode-quit ()
183 "Exits from help mode, possiblely restoring the previous window configuration." 183 "Exits from help mode, possibly restoring the previous window configuration."
184 (interactive) 184 (interactive)
185 (cond ((local-variable-p 'help-window-config (current-buffer)) 185 (cond ((local-variable-p 'help-window-config (current-buffer))
186 (let ((config help-window-config)) 186 (let ((config help-window-config))
187 (kill-local-variable 'help-window-config) 187 (kill-local-variable 'help-window-config)
188 (bury-buffer)
188 (set-window-configuration config))) 189 (set-window-configuration config)))
189 ((one-window-p) 190 ((one-window-p)
190 (bury-buffer)) 191 (bury-buffer))
191 (t 192 (t
192 (delete-window)))) 193 (delete-window))))