Mercurial > hg > xemacs-beta
diff lisp/packages/mode-motion+.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:18:39 +0200 |
parents | 6a378aca36af |
children |
line wrap: on
line diff
--- a/lisp/packages/mode-motion+.el Mon Aug 13 09:17:27 2007 +0200 +++ b/lisp/packages/mode-motion+.el Mon Aug 13 09:18:39 2007 +0200 @@ -160,7 +160,7 @@ ; Minibuffer name matching improved. Made `tcl-boundaries' smarter by ; use of new function `tcl-forward-sexp1'. `tcl-commands' list updated ; -- should be complete now. A message is printed if the syntax scanner -; matched or failed for known tcl/tk commands. Seperated `tcl-commands' +; matched or failed for known tcl/tk commands. Separated `tcl-commands' ; from `tk-commands' -- `tk-commands' not yet complete. New motion ; handler `raise-LaTeX' added, for tex-mode. ; @@ -1313,7 +1313,7 @@ (defun mode-motion-insert-text (text) "Insert TEXT at point. Also insert one space if the -preceeding character is a word constituent or a closing paren." +preceding character is a word constituent or a closing paren." (or text (error "No highlighted text to copy.")) (let ((prec-char-syntax (char-syntax (preceding-char)))) (if (memq prec-char-syntax '(?w ?\))) (insert " "))