Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/visual-mode.el	Mon Aug 13 09:31:13 2007 +0200
+++ b/lisp/mule/visual-mode.el	Mon Aug 13 09:31:46 2007 +0200
@@ -305,7 +305,7 @@
 (defvar *visual-punctuations*
   '(?  ?. ?, ?: ?; ?? ?! ?- ?_ ?' ?\" ?/ ?( ?) ?[ ?] ?{ ?} ?\n ?\t ; ASCII
     ?  ?. ?, ?: ?; ?? ?! ?- ?_ ?' ?" ?( ?) ?[ ?]		   ; Hebrew
-    ?[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
+    ?›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
 
 (defun visual-forward-word (arg)
   "Move the cursor visually forward by ARG (integer) words.
@@ -535,6 +535,9 @@
   (if display-direction
       (visual-backward-char arg)))
 
+;; wire us into pending-delete
+(put 'visual-self-insert-command 'pending-delete t)
+
 (defun visual-newline (arg)
   "newline command for visual-mode.
 With ARG (integer), insert that many newlines."