Mercurial > hg > xemacs-beta

comparison lisp/term/bg-mouse.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children d682c0f82a71
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
199 (cond 199 (cond
200 ((bolp) 200 ((bolp)
201 (indent-according-to-mode)) 201 (indent-according-to-mode))
202 ;; In Lisp assume double-quote is closing; in Text assume opening. 202 ;; In Lisp assume double-quote is closing; in Text assume opening.
203 ;; Why? Because it does the right thing most often. 203 ;; Why? Because it does the right thing most often.
204 ((save-excursion (forward-char -1) 204 ((save-excursion (backward-char 1)
205 (and (not (looking-at "\\s\"")) 205 (and (not (looking-at "\\s\""))
206 (looking-at "[`'\"\\]\\|\\s("))) 206 (looking-at "[`'\"\\]\\|\\s(")))
207 nil) 207 nil)
208 (t 208 (t
209 (insert-string " "))) 209 (insert-string " ")))