Mercurial > hg > xemacs-beta

comparison lisp/prim/cmdloop.el @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 8eaf7971accc
children
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
86 (abort-recursive-edit)) 86 (abort-recursive-edit))
87 (current-prefix-arg 87 (current-prefix-arg
88 nil) 88 nil)
89 ((region-active-p) 89 ((region-active-p)
90 (zmacs-deactivate-region)) 90 (zmacs-deactivate-region))
91 ((> (recursion-depth) 0)
92 (exit-recursive-edit))
91 (buffer-quit-function 93 (buffer-quit-function
92 (funcall buffer-quit-function)) 94 (funcall buffer-quit-function))
93 ((not (one-window-p t)) 95 ((not (one-window-p t))
94 (delete-other-windows)))) 96 (delete-other-windows))
97 ((string-match "^ \\*" (buffer-name (current-buffer)))
98 (bury-buffer))))
95 99
96 ;;#### This should really be a ring of last errors. 100 ;;#### This should really be a ring of last errors.
97 (defvar last-error nil 101 (defvar last-error nil
98 "#### Document me.") 102 "#### Document me.")
99 103