;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:42:16 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/visual.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`visual.el' was compiled for Emacs 19.29 or later")) #@28 non-nil if in visual-mode. (defvar visual-mode nil (#$ . 487)) (make-variable-buffer-local (quote visual-mode)) #@119 If non-nil, use visual-left-* and visual-right-* commands instead of visual-forward-* and visual-backward-* commands. (defvar visual-use-lr-commands nil (#$ . 606)) #@36 minor-mode-keymap for visual-mode. (defvar visual-mode-map (byte-code " \nW \n!#\nT # # # # # # # # # # # # # # # # # # # # # # # # #7 # # # # # # @A# BC# DE# FG# HI# JK# *" [make-keymap 32 i map 127 define-key vector visual-self-insert-command [4] visual-delete-char [11] visual-kill-line [13] visual-newline [15] visual-open-line [16] visual-previous-line [23] visual-kill-region [25] visual-yank [127] visual-backward-delete-char [-134217668] visual-beginning-of-buffer [-134217666] visual-end-of-buffer [-134217628] visual-kill-word [-134217609] visual-kill-ring-save [-134217607] visual-yank-pop [-134217601] visual-backward-kill-word [up] [down] visual-next-line [home] [end] [left] visual-move-to-left-char [right] visual-move-to-right-char [M-left] visual-move-to-left-word [M-right] visual-move-to-right-word [3 3] exit-visual-mode [3 60] l2r-mode [3 62] r2l-mode visual-use-lr-commands [1] visual-left-end-of-line [2] [5] visual-right-end-of-line [6] [-134217630] [-134217626] [1] visual-beginning-of-line [2] visual-backward-char [5] visual-end-of-line [6] visual-forward-char [-134217630] visual-backward-word [-134217626] visual-forward-word] 5) (#$ . 777)) (byte-code " \f\nB B" [visual-mode minor-mode-map-alist visual-mode-map] 2) #@50 string displayed in mode line. " l2r" or " r2l". (defvar visual-mode-indicator nil (#$ . 2223)) (byte-code "!  B\"!  B ʇ" [make-variable-buffer-local visual-mode-indicator visual-mode minor-mode-alist (visual-mode visual-mode-indicator) append (("\\.l2r$" . l2r-mode) ("\\.r2l$" . r2l-mode)) auto-mode-alist boundp visual-mode-hooks nil current-load-list] 3) #@73 Toggle visual-mode. With ARG, turn visual-mode on iff ARG is positive. (defalias 'visual-mode #[(&optional arg) " !V " [arg visual-mode exit-visual-mode enter-visual-mode prefix-numeric-value 0] 2 (#$ . 2615) "P"]) #@51 Enter visual-mode. Cursor moves in visual order. (defalias 'enter-visual-mode #[nil "?\n !" [visual-mode t display-direction " r2l" " l2r" visual-mode-indicator redraw-display run-hooks visual-mode-hooks] 2 (#$ . 2861) nil]) #@51 Exit visual-mode. Cursor moves in logical order. (defalias 'exit-visual-mode #[nil " " [visual-mode nil update-mode-lines] 1 (#$ . 3113) nil]) #@38 Set display-direction left to right. (defalias 'l2r-mode #[nil "  " [visual-mode enter-visual-mode nil display-direction " l2r" visual-mode-indicator redraw-display] 1 (#$ . 3271) nil]) #@38 Set display-direction right to left. (defalias 'r2l-mode #[nil "  " [visual-mode enter-visual-mode t display-direction " r2l" visual-mode-indicator redraw-display] 1 (#$ . 3475) nil]) #@98 Move the cursor visually forward by ARG (integer) characters. if ARG is negative, move backward. (defalias 'visual-forward-char #[(arg) "WW& TV& S" [arg 0 visual-backward-1-char visual-forward-1-char] 3 (#$ . 3677) "p"]) #@50 Move the cursor visually forward by 1 character. (defalias 'visual-forward-1-char #[nil "  \"!W =? =8!W !W =Uu !!Wu," [display-direction 0 1 visual-char-direction-after-point visual-char-direction-after-after-point visual-char-direction-before-point b-dir aa-dir a-dir r-dir error "end of buffer" backward-char skip-direction-forward] 4 (#$ . 3934)]) #@98 Move the cursor visually backward by ARG (integer) characters. if ARG is negative, move forward. (defalias 'visual-backward-char #[(arg) "WW& TV& S" [arg 0 visual-forward-1-char visual-backward-1-char] 3 (#$ . 4354) "p"]) #@51 Move the cursor visually backward by 1 character. (defalias 'visual-backward-1-char #[nil "   =K =,uh ! <!h !!!hV!h =e !h!," [display-direction 0 1 visual-char-direction-after-point visual-char-direction-after-after-point visual-char-direction-before-point b-dir aa-dir a-dir r-dir skip-direction-backward backward-char skip-direction-forward error "beginning of buffer"] 4 (#$ . 4612)]) #@96 Return the direction of CH (character). Newline's direction will be same as display-direction. (defalias 'visual-char-direction #[(ch) "U ćŇ!" [ch nil 10 display-direction 1 0 char-direction] 2 (#$ . 5080)]) #@83 Return the direction of after-point-character. 0: left-to-right, 1: right-to-left (defalias 'visual-char-direction-after-point #[nil "`f!" [visual-char-direction] 2 (#$ . 5313)]) #@89 Return the direction of after-after-point-character. 0: left-to-right, 1: right-to-left (defalias 'visual-char-direction-after-after-point #[nil "`dU?u`f!)" [1 visual-char-direction] 2 (#$ . 5500)]) #@84 Return the direction of before-point-character. 0: left-to-right, 1: right-to-left (defalias 'visual-char-direction-before-point #[nil "`!!" [visual-char-direction char-before] 3 (#$ . 5713)]) #@66 Move point forward as long as DIR-direction characters continue. (defalias 'skip-direction-forward #[(dir) " = u" [visual-char-direction-after-point dir 1] 2 (#$ . 5915)]) #@67 Move point backward as long as DIR-direction characters continue. (defalias 'skip-direction-backward #[(dir) " =!" [visual-char-direction-before-point dir backward-char 1] 2 (#$ . 6103)]) (byte-code "! B" [boundp *visual-punctuations* (32 46 44 58 59 63 33 45 95 39 34 47 40 41 91 93 123 125 10 9 6304 6318 6316 6330 6331 6335 6305 6317 6367 6311 6306 6312 6313 6363 6365 6817 6822 6821 6825 6818 6823 6824 6819 6820 6826 6827) current-load-list] 2) #@104 Move the cursor visually forward by ARG (integer) words. If ARG is negative, move the cursor backward. (defalias 'visual-forward-word #[(arg) "WW& TV& S" [arg 0 visual-backward-1-word visual-forward-1-word] 3 (#$ . 6583) "p"]) #@104 Move the cursor visually backward by ARG (integer) words. If ARG is negative, move the cursor forward. (defalias 'visual-backward-word #[(arg) "WW& TV& S" [arg 0 visual-forward-1-word visual-backward-1-word] 3 (#$ . 6847) "p"]) #@47 Move the cursor visually forward by one word. (defalias 'visual-forward-1-word #[nil " > >? " [visual-char-after *visual-punctuations* visual-forward-1-char] 2 (#$ . 7111)]) #@48 Move the cursor visually backward by one word. (defalias 'visual-backward-1-word #[nil " > >? " [visual-char-before *visual-punctuations* visual-backward-1-char] 2 (#$ . 7313)]) #@97 Return the character visually before the cursor. If such position is out of range, returns nil. (defalias 'visual-char-before #[nil " \n   =C =0u`fd ! d!`fdL̂d =^ !`fd!`f-" [display-direction 0 1 visual-char-direction-after-point visual-char-direction-after-after-point visual-char-direction-before-point b-dir aa-dir a-dir r-dir skip-direction-backward backward-char nil] 4 (#$ . 7519)]) #@87 Return the character under the cursor. If such position is out of range, returns nil. (defalias 'visual-char-after #[nil "`f" [] 1 (#$ . 7979)]) #@159 Move the cursor to the visual beginning of line. With ARG not nil, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'visual-beginning-of-line #[(&optional arg) " ! Ă(U?(!!*" [beginning-of-line arg visual-char-direction-after-point display-direction 1 0 d-dir a-dir skip-direction-forward backward-char] 3 (#$ . 8132) "P"]) (fset (quote visual-end-of-line) (quote end-of-line)) #@60 Move the cursor to the visual beginning of current buffer. (defalias 'visual-beginning-of-buffer #[nil " " [beginning-of-buffer visual-beginning-of-line] 1 (#$ . 8598) nil]) (fset (quote visual-end-of-buffer) (quote end-of-buffer)) #@48 temporary-goal-column command for visual-mode. (defvar visual-temporary-goal-column 0 (#$ . 8841)) #@36 next-line command for visual-mode. (defalias 'visual-next-line #[(arg) "== !\f!" [last-command visual-next-line visual-previous-line visual-current-column visual-temporary-goal-column next-line arg visual-goto-column] 2 (#$ . 8946) "p"]) #@40 previous-line command for visual-mode. (defalias 'visual-previous-line #[(arg) "== !\f!" [last-command visual-next-line visual-previous-line visual-current-column visual-temporary-goal-column previous-line arg visual-goto-column] 2 (#$ . 9208) "p"]) #@52 Return the current column counted in visual order. (defalias 'visual-current-column #[nil "` ` U\n !\\ \n*" [0 p c visual-beginning-of-line char-width visual-char-after visual-forward-1-char] 3 (#$ . 9482)]) #@173 Move the cursor to visual column N (integer) in the current line. If it is impossible to go to column N, the cursor is put on the nearest column M (M < N). Returns N - M. (defalias 'visual-goto-column #[(col) "W\n! \fW&l&\f !\\ \fV6 \f !Z\fZ)" [col 0 error "argument must be positive." c visual-beginning-of-line char-width visual-char-after visual-forward-1-char visual-backward-1-char] 3 (#$ . 9714)]) #@97 Insert character CH visually before the cursor. With ARG (integer) insert that many characters. (defalias 'visual-insert-char #[(ch arg) "W\n!V !S " [arg 0 error "arg must be >= 0." visual-insert-1-char ch] 3 (#$ . 10159)]) #@84 Insert character CH visually before the cursor. The cursor moves visually forward. (defalias 'visual-insert-1-char #[(ch) " !\n Â\f  \n =A =2u c!l\n! c\n!l=P\n=U clu ! ! !," [visual-char-direction ch display-direction 0 1 visual-char-direction-after-point nil tmp a-dir r-dir c-dir backward-char 2 skip-direction-backward skip-direction-forward delete-direction-backward] 5 (#$ . 10409)]) #@89 From current point, delete DIR-direction charaters forward. Returns the deleted string. (defalias 'delete-direction-forward #[(dir) "`\n!`{`|)" [p skip-direction-forward dir] 3 (#$ . 10871)]) #@90 From current point, delete DIR-direction characters backward. Return the deleted string. (defalias 'delete-direction-backward #[(dir) "`\n!`{`|)" [p skip-direction-backward dir] 3 (#$ . 11076)]) #@162 Insert this character (32 <= CH < 127). With ARG (integer), insert that many characters. If display-direction is non-nil, the cursor stays at the same position. (defalias 'visual-self-insert-command #[(arg) " \n\" \f\n!" [visual-insert-char last-command-char arg display-direction visual-backward-char] 3 (#$ . 11285) "*p"]) #@81 newline command for visual-mode. With ARG (integer), insert that many newlines. (defalias 'visual-newline #[(arg) "\n\"" [visual-insert-char 10 arg] 3 (#$ . 11622) "*p"]) #@83 open-line command for visual-mode. With arg (integer), insert that many newlines. (defalias 'visual-open-line #[(arg) "\n\"\n!" [visual-insert-char 10 arg visual-backward-char] 3 (#$ . 11802) "*p"]) #@88 Delete ARG (integer) characters visually forward. If ARG is negative, delete backward. (defalias 'visual-delete-char #[(arg) "WW& TV& S" [arg 0 visual-backward-delete-1-char visual-delete-1-char] 3 (#$ . 12012) "*p"]) #@88 Delete ARG (integer) characters visually backward. If arg is negative, delete forward. (defalias 'visual-backward-delete-char #[(arg) "WW& TV& S" [arg 0 visual-delete-1-char visual-backward-delete-1-char] 3 (#$ . 12266) "*p"]) (fset (quote visual-delete-backward-char) (quote visual-backward-delete-char)) #@85 Delete a character visually before the cursor. Ther cursor moves visually backward. (defalias 'visual-backward-delete-1-char #[nil " ‚  \n \f\n =  =Bu!! !! \f=Y  =)yu !! !c! !! !!! = !! !!." [display-direction 1 0 visual-char-direction-after-point visual-char-direction-after-after-point visual-char-direction-before-point nil tmp b-dir aa-dir a-dir r-dir d-dir delete-char backward-char skip-direction-backward delete-direction-backward delete-backward-char skip-direction-forward error "beginning of buffer"] 6 (#$ . 12608)]) (fset (quote visual-delete-backward-1-char) (quote visual-backward-delete-1-char)) #@87 Delete a character under the cursor. Visually, the cursor stays at the same position. (defalias 'visual-delete-1-char #[nil " ‚  \n \f\n0!\n =U =J!!! !  =c! =! ! !c!! !!." [display-direction 1 0 visual-char-direction-after-point visual-char-direction-after-after-point visual-char-direction-before-point nil tmp b-dir aa-dir a-dir r-dir d-dir error "end of buffer" delete-char backward-char skip-direction-forward delete-direction-forward skip-direction-backward] 6 (#$ . 13354)]) #@40 delete-region command for visual-mode. (defalias 'visual-delete-region #[(beg end) "b   b   V0 UD\f\nVD   \n\f b!  !\f!!y` T!`|!!-" [nil l endc endl begc begl beg current-line visual-current-column end visual-insert-1-char 10 visual-backward-1-char goto-line visual-goto-column 0 backward-char 1 visual-delete-char 2] 5 (#$ . 13947) "*r"]) #@58 Return the current line number (in the buffer) of point. (defalias 'current-line #[nil "y`\"T)" [0 count-lines 1] 3 (#$ . 14366) nil]) #@38 kill-region command for visual-mode. (defalias 'visual-kill-region #[(beg end) "b   b   V0 UD\f\nVD   \n\f b\nN Y $r \"l! !  !\f!!y` T!`\"!!-ى" [nil l endc endl begc begl beg current-line visual-current-column end buffer-read-only inhibit-read-only text-property-not-all read-only visual-copy-region-as-kill kill-read-only-ok message "Read only text copied to kill ring" barf-if-buffer-read-only visual-insert-1-char 10 visual-backward-1-char goto-line visual-goto-column 0 kill-region backward-char 1 visual-delete-char 2 this-command] 5 (#$ . 14513) "r"]) #@79 Kill ARG (integer) words visually forward. If ARG is negative, kill backward. (defalias 'visual-kill-word #[(arg) "`\n!`\"" [visual-kill-region visual-forward-word arg] 4 (#$ . 15189) "*p"]) #@79 Kill ARG (integer) words visually backward. If ARG is negative, kill forward. (defalias 'visual-backward-kill-word #[(arg) "`\n!`\"" [visual-kill-region visual-backward-word arg] 4 (#$ . 15390) "*p"]) #@36 kill-line command for visual-mode. (defalias 'visual-kill-line #[(&optional arg) "`  !y *m\"l$ *y `\"" [visual-kill-region arg prefix-numeric-value visual-beginning-of-line signal end-of-buffer nil visual-end-of-line 1] 5 (#$ . 15601) "*P"]) #@46 copy-region-as-kill command for visual-mode. (defalias 'visual-copy-region-as-kill #[(beg end) "`\"!`\nU +" [nil 0 p auto-save-mode buffer-read-only visual-kill-region beg end visual-yank 1 exchange-point-and-mark] 3 (#$ . 15877) "r"]) #@41 kill-ring-save command for visual-mode. (defalias 'visual-kill-ring-save #[(beg end) " \n\"t|` U\n ` \"S `pb! p b\f{ {{ !{!G^` Uq[O\"zO\"*+" [visual-copy-region-as-kill beg end t inhibit-quit opoint other-end pos-visible-in-window-p selected-window mark-marker sit-for 1 quit-flag mark-active transient-mark-mode nil run-hooks deactivate-mark-hook current-kill 0 killed-text 40 message-len message "Saved text until \"%s\"" "Saved text from \"%s\""] 6 (#$ . 16140) "r"]) #@31 yank command for visual-mode. (defalias 'visual-yank #[(&optional arg) " ĉ\" <\"ς0=-т0S!c  ! `!ZU` \\!jS! !:{! `pb,ć" [t this-command current-line visual-current-column nil c2 l2 c1 l1 visual-insert-char 10 2 visual-backward-1-char current-kill arg 0 - -1 visual-delete-1-char goto-line push-mark 1 visual-goto-column mark mark-marker yank] 4 (#$ . 16696) "*P"]) #@35 yank-pop command for visual-mode. (defalias 'visual-yank-pop #[(arg) "=\n!ʼn \n  !b \n  \nVI\nUL VL)`!\" \n  \" !c  \n! `p\nZU \\!S!!! `pb-Ň" [last-command yank error "Previous command was not a yank" this-command nil before c2 l2 c1 l1 current-line visual-current-column mark t visual-delete-region visual-insert-char 10 2 visual-backward-1-char current-kill arg visual-delete-1-char goto-line mark-marker 1 visual-goto-column] 5 (#$ . 17152) "*p"]) #@50 Reverse the char order of the word before point. (defalias 'visual-reverse-direction-word #[nil "`` !`\"b" [reverse-region skip-direction-backward visual-char-direction-before-point] 5 (#$ . 17735) "*"]) #@51 Reverse the order of chars between BEGIN and END. (defalias 'visual-reverse-region #[(begin end) " \f{ \f|!\"" [apply insert string-to-char-list begin end] 6 (#$ . 17951) "*r"]) #@51 Return the character on the left of visual point. (defalias 'visual-char-left #[nil " " [display-direction visual-char-after visual-char-before] 1 (#$ . 18141)]) #@52 Return the character on the right of visual point. (defalias 'visual-char-right #[nil " " [display-direction visual-char-before visual-char-after] 1 (#$ . 18318)]) #@103 Move the cursor visually left by ARG (integer) characters. If ARG is negative, move the cursor right. (defalias 'visual-move-to-left-char #[(arg) "\n!\n!" [display-direction visual-forward-char arg visual-backward-char] 2 (#$ . 18498) "p"]) #@47 Move the cursor visually left by 1 character. (defalias 'visual-move-to-left-1-char #[nil " " [display-direction visual-forward-1-char visual-backward-1-char] 1 (#$ . 18753) "p"]) #@103 Move the cursor visually right by ARG (integer) characters. If ARG is negative, move the cursor left. (defalias 'visual-move-to-right-char #[(arg) "\n!\n!" [display-direction visual-backward-char arg visual-forward-char] 2 (#$ . 18949) "p"]) #@48 Move the cursor visually right by 1 character. (defalias 'visual-move-to-right-1-char #[nil " " [display-direction visual-backward-1-char visual-forward-1-char] 1 (#$ . 19205) "p"]) #@98 Move the cursor visually left by ARG (integer) words. If ARG is negative, move the cursor right. (defalias 'visual-move-to-left-word #[(arg) "\n!\n!" [display-direction visual-forward-word arg visual-backward-word] 2 (#$ . 19402) "p"]) #@98 Move the cursor visually right by ARG (integer) words. If ARG is negative, move the cursor left. (defalias 'visual-move-to-right-word #[(arg) "\n!\n!" [display-direction visual-backward-word arg visual-forward-word] 2 (#$ . 19652) "p"]) #@156 Move the line cursor to the left-end of line. With ARG not nil, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'visual-left-end-of-line #[(arg) "\n!\n!" [display-direction visual-end-of-line arg visual-beginning-of-line] 2 (#$ . 19904) "P"]) #@157 Move the line cursor to the right-end of line. With ARG not nil, move forward ARG - 1 lines first. If scan reaches end of buffer, stop there without error. (defalias 'visual-right-end-of-line #[(arg) "\n!\n!" [display-direction visual-beginning-of-line arg visual-end-of-line] 2 (#$ . 20215) "P"]) #@77 Insert CH (character) on the left of visual point as many as ARG (integer). (defalias 'visual-insert-char-left #[(ch arg) "W\n! \"!" [arg 0 error "ARG must be >= 0." visual-insert-char ch display-direction visual-backward-char] 3 (#$ . 20527)]) #@52 Insert CH (character) on the left of visual point. (defalias 'visual-insert-left-1-char #[(ch) " !\n\n " [visual-insert-1-char ch display-direction visual-backward-1-char] 2 (#$ . 20796)]) #@78 Insert CH (character) on the right of visual point as many as ARG (integer). (defalias 'visual-insert-char-right #[(ch arg) "W\n! \"!" [arg 0 error "ARG must be >= 0." visual-insert-char ch display-direction visual-backward-char] 3 (#$ . 20997)]) #@53 Insert CH (character) on the right of visual point. (defalias 'visual-insert-right-1-char #[(ch) " !\n\n " [visual-insert-1-char ch display-direction visual-backward-1-char] 2 (#$ . 21268)]) #@96 Delete ARG (integer) characters on the left of visual point. If ARG is negative, on the right. (defalias 'visual-delete-left-char #[(arg) "\n!\n!" [display-direction visual-delete-char arg visual-backward-delete-char] 2 (#$ . 21471) "*p"]) #@49 Delete 1 character on the left of visual point. (defalias 'visual-delete-left-1-char #[nil " " [display-direction visual-delete-1-char visual-backward-delete-1-char] 1 (#$ . 21725) "*p"]) #@96 Delete ARG (integer) characters on the right of visual point. If ARG is negative, on the left. (defalias 'visual-delete-right-char #[(arg) "\n!\n!" [display-direction visual-backward-delete-char arg visual-delete-char] 2 (#$ . 21928) "*p"]) #@50 Delete 1 character on the right of visual point. (defalias 'visual-delete-right-1-char #[nil " " [display-direction visual-backward-delete-1-char visual-delete-1-char] 1 (#$ . 22183) "*p"]) (defalias 'visual-replace-left-1-char '(macro . #[(ch) " DE" [progn (visual-delete-left-1-char) visual-insert-left-1-char ch] 4])) (defalias 'visual-replace-right-1-char '(macro . #[(ch) " DE" [progn (visual-delete-right-1-char) visual-insert-right-1-char ch] 4])) #@96 Kill ARG (integer) words on the left of visual pointer. If ARG is negative, kill on the right. (defalias 'visual-kill-left-word #[(arg) "\n!\n!" [display-direction visual-kill-word arg visual-backward-kill-word] 2 (#$ . 22661) "*p"]) #@94 Kill ARG (integer) words on the right of visual point. If ARG is negative, kill on the left. (defalias 'visual-kill-right-word #[(arg) "\n!\n!" [display-direction visual-backward-kill-word arg visual-kill-word] 2 (#$ . 22909) "*p"]) (provide (quote visual))