Mercurial > hg > xemacs-beta

comparison lisp/mule/visual-mode.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children 6608ceec7cf8
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
507 (skip-direction-forward r-dir) 507 (skip-direction-forward r-dir)
508 (insert ch tmp) 508 (insert ch tmp)
509 (backward-char 1))))) 509 (backward-char 1)))))
510 510
511 (defun delete-direction-forward (dir) 511 (defun delete-direction-forward (dir)
512 "From current point, delete DIR-direction charaters forward. 512 "From current point, delete DIR-direction characters forward.
513 Returns the deleted string." 513 Returns the deleted string."
514 (let ((p (point))) 514 (let ((p (point)))
515 (skip-direction-forward dir) 515 (skip-direction-forward dir)
516 (prog1 516 (prog1
517 (buffer-substring (point) p) 517 (buffer-substring (point) p)