Mercurial > hg > xemacs-beta

comparison lisp/packages/info.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children 9f59509498e1
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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))