Mercurial > hg > xemacs-beta

comparison lisp/electric/electric.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents b9518feda344
children 59463afc5666
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
141 (if (eq (car conditions) 'error) 141 (if (eq (car conditions) 'error)
142 (car (cdr conditions)) 142 (car (cdr conditions))
143 (prin1-to-string conditions))) 143 (prin1-to-string conditions)))
144 (sit-for 2)))) 144 (sit-for 2))))
145 (ding)) 145 (ding))
146 (and (not (eq (current-buffer) electrified-buffer)) ; XEmacs -
147 (not (eq (selected-window) (minibuffer-window)))
148 (progn (ding nil 'quit)
149 (message "Leaving electric command loop %s."
150 "because buffer has changed")
151 (sit-for 2)
152 (throw return-tag nil)))
146 (if loop-function (funcall loop-function loop-state err)))) 153 (if loop-function (funcall loop-function loop-state err))))
147 ;; XEmacs - huh? It should be impossible to ever get here... 154 ;; XEmacs - huh? It should be impossible to ever get here...
148 (ding nil 'alarm) 155 (ding nil 'alarm)
149 (throw return-tag nil)) 156 (throw return-tag nil))
150 157