Mercurial > hg > xemacs-beta

comparison lisp/mule/visual-mode.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 360340f9fd5f
children 5a88923fcbfe
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
303 (backward-char 1))) 303 (backward-char 1)))
304 304
305 (defvar *visual-punctuations* 305 (defvar *visual-punctuations*
306 '(? ?. ?, ?: ?; ?? ?! ?- ?_ ?' ?\" ?/ ?( ?) ?[ ?] ?{ ?} ?\n ?\t ; ASCII 306 '(? ?. ?, ?: ?; ?? ?! ?- ?_ ?' ?\" ?/ ?( ?) ?[ ?] ?{ ?} ?\n ?\t ; ASCII
307 ? ?. ?, ?: ?; ?? ?! ?- ?_ ?' ?" ?( ?) ?[ ?] ; Hebrew 307 ? ?. ?, ?: ?; ?? ?! ?- ?_ ?' ?" ?( ?) ?[ ?] ; Hebrew
308 ?[2](3![0](B ?[2](3&[0](B ?[2](3%[0](B ?[2](3)[0](B ?[2](3"[0](B ?[2](3'[0](B ?[2](3([0](B ?[2](3#[0](B ?[2](3$[0](B ?[2](3*[0](B ?[2](3+[0](B )) ; Arabic 308 ?›2](3!›0](B ?›2](3&›0](B ?›2](3%›0](B ?›2](3)›0](B ?›2](3"›0](B ?›2](3'›0](B ?›2](3(›0](B ?›2](3#›0](B ?›2](3$›0](B ?›2](3*›0](B ?›2](3+›0](B )) ; Arabic
309 309
310 (defun visual-forward-word (arg) 310 (defun visual-forward-word (arg)
311 "Move the cursor visually forward by ARG (integer) words. 311 "Move the cursor visually forward by ARG (integer) words.
312 If ARG is negative, move the cursor backward." 312 If ARG is negative, move the cursor backward."
313 (interactive "p") 313 (interactive "p")
533 (interactive "*p") 533 (interactive "*p")
534 (visual-insert-char last-command-char arg) 534 (visual-insert-char last-command-char arg)
535 (if display-direction 535 (if display-direction
536 (visual-backward-char arg))) 536 (visual-backward-char arg)))
537 537
538 ;; wire us into pending-delete
539 (put 'visual-self-insert-command 'pending-delete t)
540
538 (defun visual-newline (arg) 541 (defun visual-newline (arg)
539 "newline command for visual-mode. 542 "newline command for visual-mode.
540 With ARG (integer), insert that many newlines." 543 With ARG (integer), insert that many newlines."
541 (interactive "*p") 544 (interactive "*p")
542 (visual-insert-char ?\n arg)) 545 (visual-insert-char ?\n arg))