Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents 558f606b08ae
children 8626e4521993
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
103 (funcall buffer-quit-function)) 103 (funcall buffer-quit-function))
104 ((not (one-window-p t)) 104 ((not (one-window-p t))
105 (delete-other-windows)) 105 (delete-other-windows))
106 ((string-match "^ \\*" (buffer-name (current-buffer))) 106 ((string-match "^ \\*" (buffer-name (current-buffer)))
107 (bury-buffer)))) 107 (bury-buffer))))
108
109 ;; `cancel-mode-internal' is a function of a misc-user event, which is
110 ;; queued when window system directs XEmacs frame to cancel any modal
111 ;; behavior it exposes, like mouse pointer grabbing.
112 ;;
113 ;; This function does nothing at the top level, but the code which
114 ;; runs modal event loops, such as selection drag loop in `mouse-track',
115 ;; check if misc-user function symbol is `cancel-mode-internal', and
116 ;; takes necessary cleanup actions.
117 (defun cancel-mode-internal (object)
118 (setq zmacs-region-stays t))
108 119
109 ;; Someone wrote: "This should really be a ring of last errors." 120 ;; Someone wrote: "This should really be a ring of last errors."
110 ;; 121 ;;
111 ;; But why bother? This stuff is not all that necessary now that we 122 ;; But why bother? This stuff is not all that necessary now that we
112 ;; have message log, anyway. 123 ;; have message log, anyway.