Mercurial > hg > xemacs-beta

comparison lisp/packages/info.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
1824 (defun Info-exit () 1824 (defun Info-exit ()
1825 "Exit Info by selecting some other buffer." 1825 "Exit Info by selecting some other buffer."
1826 (interactive) 1826 (interactive)
1827 (if Info-standalone 1827 (if Info-standalone
1828 (save-buffers-kill-emacs) 1828 (save-buffers-kill-emacs)
1829 (switch-to-buffer (prog1 (other-buffer (current-buffer)) 1829 (bury-buffer (current-buffer))
1830 (bury-buffer (current-buffer)) 1830 (if (and (featurep 'toolbar)
1831 (if (featurep 'toolbar) 1831 (eq toolbar-info-frame (selected-frame)))
1832 (if (frame-live-p toolbar-info-frame) 1832 (delete-frame toolbar-info-frame)
1833 (delete-frame toolbar-info-frame))))))) 1833 (switch-to-buffer (other-buffer (current-buffer))))))
1834 1834
1835 (defun Info-undefined () 1835 (defun Info-undefined ()
1836 "Make command be undefined in Info." 1836 "Make command be undefined in Info."
1837 (interactive) 1837 (interactive)
1838 (ding)) 1838 (ding))