Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.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 d7a9135ec789
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
1348 ;; at the beginning of the field -- we would get an error here. 1348 ;; at the beginning of the field -- we would get an error here.
1349 (error "Cannot transpose at beginning of field")) 1349 (error "Cannot transpose at beginning of field"))
1350 (t 1350 (t
1351 (when (and (null arg) 1351 (when (and (null arg)
1352 (= last-non-space (point))) 1352 (= last-non-space (point)))
1353 (forward-char -1)) 1353 (backward-char 1))
1354 (transpose-chars arg))))) 1354 (transpose-chars arg)))))
1355 1355
1356 (defcustom widget-complete-field (lookup-key global-map "\M-\t") 1356 (defcustom widget-complete-field (lookup-key global-map "\M-\t")
1357 "Default function to call for completion inside fields." 1357 "Default function to call for completion inside fields."
1358 :options '(ispell-complete-word complete-tag lisp-complete-symbol) 1358 :options '(ispell-complete-word complete-tag lisp-complete-symbol)