Mercurial > hg > xemacs-beta

comparison lisp/packages/mode-motion+.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 6a378aca36af
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
158 ; 158 ;
159 ; Revision 2.14 1993/10/29 20:04:59 bosch 159 ; Revision 2.14 1993/10/29 20:04:59 bosch
160 ; Minibuffer name matching improved. Made `tcl-boundaries' smarter by 160 ; Minibuffer name matching improved. Made `tcl-boundaries' smarter by
161 ; use of new function `tcl-forward-sexp1'. `tcl-commands' list updated 161 ; use of new function `tcl-forward-sexp1'. `tcl-commands' list updated
162 ; -- should be complete now. A message is printed if the syntax scanner 162 ; -- should be complete now. A message is printed if the syntax scanner
163 ; matched or failed for known tcl/tk commands. Separated `tcl-commands' 163 ; matched or failed for known tcl/tk commands. Seperated `tcl-commands'
164 ; from `tk-commands' -- `tk-commands' not yet complete. New motion 164 ; from `tk-commands' -- `tk-commands' not yet complete. New motion
165 ; handler `raise-LaTeX' added, for tex-mode. 165 ; handler `raise-LaTeX' added, for tex-mode.
166 ; 166 ;
167 ; Revision 2.13 1993/10/08 09:43:00 bosch 167 ; Revision 2.13 1993/10/08 09:43:00 bosch
168 ; New user option `mode-motion-setup-cut-and-paste-bindings'. Function 168 ; New user option `mode-motion-setup-cut-and-paste-bindings'. Function
1310 (set-buffer old-buf) 1310 (set-buffer old-buf)
1311 (select-window old-window)))) 1311 (select-window old-window))))
1312 1312
1313 (defun mode-motion-insert-text (text) 1313 (defun mode-motion-insert-text (text)
1314 "Insert TEXT at point. Also insert one space if the 1314 "Insert TEXT at point. Also insert one space if the
1315 preceding character is a word constituent or a closing paren." 1315 preceeding character is a word constituent or a closing paren."
1316 (or text (error "No highlighted text to copy.")) 1316 (or text (error "No highlighted text to copy."))
1317 (let ((prec-char-syntax (char-syntax (preceding-char)))) 1317 (let ((prec-char-syntax (char-syntax (preceding-char))))
1318 (if (memq prec-char-syntax '(?w ?\))) (insert " ")) 1318 (if (memq prec-char-syntax '(?w ?\))) (insert " "))
1319 (insert text))) 1319 (insert text)))
1320 1320