home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1077 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  60.6 KB
  1. From: djs@nimbus3.uucp (Doug)
  2. Newsgroups: comp.editors,gnu.emacs,comp.emacs,alt.sources
  3. Subject: Yet another vi emulator for GNU emacs (part 1 of 3)
  4. Message-ID: <1990Mar27.233001.6233@nimbus3.uucp>
  5. Date: 27 Mar 90 23:30:01 GMT
  6.  
  7. This is yet another vi emulator for GNU emacs.  It tries to be much closer
  8. to the real thing on fine cursor movement.  This is accomplished by adding
  9. C code.
  10.  
  11. # This is a shell archive.  Remove anything before this line, then
  12. # unpack it by saving it in a file and typing "sh file".  (Files
  13. # unpacked will be owned by you and have default permissions.)
  14. #
  15. # This archive contains:
  16. # README dot.emacs doug-misc.el loadup.patch mvi.man mvi.patch
  17.  
  18. echo x - README
  19. cat > "README" << '//E*O*F README//'
  20. This is yet another vi emulator for GNU Emacs named mvi for "my vi".
  21. Hopefully, you will find it useful.
  22.  
  23. 1. Background
  24.  
  25. I was a commited vi user for some time until I decided that I couldn't
  26. live without some of emacs' features.  So, one day I decided to make
  27. the big switch to GNU emacs.  After switching, I noticed that my speed
  28. of editing had dropped drastically.  I figured that it was because I
  29. needed to get used to the new keystrokes.  After a couple of months of
  30. this I decided that I would never be able to edit as fast as I could
  31. with vi because of the different editing model they employed (moded
  32. vs. non-moded).  Not to set off a flame war, but I liked modedness.
  33. At this point I tried the vi emulators that are distributed with GNU.
  34. They helped, but I still didn't like the feel of the cursor motion.
  35. At that point I started to hack on GNU to make a *REAL* vi emulator.
  36. I decided that what was really necessary was to get the low level
  37. cursor motion correct, with reasonable speed, I was going to have to
  38. add some C code.  Thus, to use this package, you're going to have to
  39. patch the emacs source and rebuild it :-(.
  40.  
  41. 2. Implementation
  42.  
  43. This is not a vi clone.  Vi has plenty of brain damage floating around
  44. in its code and I felt no need to carry that forward.  In the manual,
  45. I'll try to explain the differences between mvi and real vi.  Mvi
  46. supports none of the ex commands.  It seemed pointless, since emacs
  47. has far more powerful versions of everything I ever did with ex.
  48. Thus, you can't escape learning some emacs if you want to use this
  49. package.  DON'T PANIC, in most respects, emacs is far more consistent
  50. and powerful than vi, I just couldn't deal with all the keystrokes it
  51. took to do trivial editing chores.
  52.  
  53. 3. Manifest
  54.  
  55. As distributed, you should have the folowing files:
  56.  
  57. README - this file
  58. mvi.man - a quick and dirty manual for mvi.
  59. mvi.el.1 - part 1 of the mvi emacs lisp code.
  60. mvi.el.2 - part 2 of the mvi emacs lisp code.
  61. mvi.patch - the c source patches.
  62. loadup.patch - a patch for loadup.el to make mvi part of the compiled code.
  63. dot.emacs - some stuff out of my .emacs to make it a little nicer.
  64. doug-misc.el - some miscelanious stuff that might prove useful.
  65.  
  66. 4. Building
  67.  
  68. You're going to need the source to GNU emacs.  I recommend 18.55 since
  69. that was the version that the patches were generated from.  If for
  70. some reason you want to leave an already existing emacs unadulterated,
  71. you can build another version of emacs and call it something else and
  72. use all the same support code/texinfo from the other version.  This
  73. can be done by reusing the same paths.h file that was used to build
  74. the distributed version.  Then you will have two executables sharing
  75. the same support files.  You will however need to save the
  76. etc/DOC-18.??.? file that is built at compile time and move it into
  77. the etc directory for the online help to work.
  78.  
  79. To build mvi, follow these instructions:
  80.  
  81. 1. cat mvi.el.1 mvi.el.2 > mvi.el
  82. 2. Edit mvi.el.  Search for the function mvi-dump-emacs.  Edit the path
  83.    name to point to the source directory where temacs will be.
  84. 3. move mvi.el into the emacs lisp directory
  85. 4. use emacs to byte compile mvi.el into mvi.elc, try ESC-x 
  86.    byte-compile-file; that is, escape followed by x followed by 
  87.    byte-compile-file.
  88. 5. use patch < loadup.patch in the emacs lisp directory.
  89. 6. Increase PURESIZE in config.h to about 180000.
  90. 7. go to the src directory. use patch < mvi.patch to apply the patches.
  91. 8. in the source directory, type make.  Hopefully, this will build
  92.    a working emacs.
  93. //E*O*F README//
  94.  
  95. echo x - dot.emacs
  96. cat > "dot.emacs" << '//E*O*F dot.emacs//'
  97. ; use it if you like it delete it otherwise
  98.  
  99. ; turn on flow control
  100.  
  101. (set-input-mode nil t)
  102.  
  103. ; Remap ^S and ^Q to ^\ and ^^ and exchange bacspace and delete
  104.  
  105. (setq keyboard-translate-table "\000\001\002\003\004\005\006\007\177\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\023\035\021\037 !\042#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\134]^_`abcdefghijklmnopqrstuvwxyz{|}~\010")
  106.  
  107. ; more vi like, deleating will get emacs behaviour
  108.  
  109. (setq scroll-step 1)
  110.  
  111. ; a directory of lisp stuff that can be loaded
  112.  
  113. (setq load-path (append (list "/usr/djs/GNUmacs") load-path))
  114.  
  115. ; go into vi mode when a file is read in
  116.  
  117. (setq find-file-hooks '(mvi-emacs-to-vi))
  118.  
  119. ; a vi like indent fuction for fundamental mode
  120.  
  121. (setq indent-line-function 'doug-indent)
  122.  
  123. ; load the indent function
  124.  
  125. (load "doug-misc")
  126.  
  127. ;  Needed for proper auto indent
  128.  
  129. (global-set-key "\C-m" 'doug-newline)
  130. //E*O*F dot.emacs//
  131.  
  132. echo x - doug-misc.el
  133. cat > "doug-misc.el" << '//E*O*F doug-misc.el//'
  134. ; you should byte compile this file for efficiency sake
  135.  
  136. ; needed for auto indent
  137.  
  138. (defun doug-newline ()
  139.   "Perform newline and indent."
  140.   (interactive)
  141.   (newline)
  142.   (indent-according-to-mode))
  143.  
  144. ; a vi like indent fuction for fundamental mode
  145.  
  146. (defun doug-indent ()
  147.   "Perform indent."
  148.   (interactive)
  149.   (let ((tmp))
  150.     (cond
  151.      ((equal mode-line-buffer-identification '("Insert:%17b"))
  152.       (save-excursion
  153.     (mvi-forward-line -1)
  154.     (setq tmp (current-column)))
  155.       (indent-to tmp 0))
  156.      ((eq this-command 'mvi-O)
  157.       (save-excursion
  158.     (mvi-forward-line 1)
  159.     (setq tmp (current-column)))
  160.       (indent-to tmp 0))
  161.      (t
  162.       (save-excursion
  163.     (mvi-forward-line -1)
  164.     (setq tmp (current-column)))
  165.       (mvi-forward-line 0)
  166.       (delete-region (point) (progn (beginning-of-line) (point)))
  167.       (indent-to tmp 0)))))
  168.  
  169. ; an example of setup for use with the nroff mm macro package.
  170. ; illistrates the use of the text sexp stuff
  171.  
  172. (defun mm-mode ()
  173.   (interactive)
  174.   (make-variable-buffer-local 'paragraph-start)
  175.   (setq paragraph-start "^\\.P$\\|^\\.H ")
  176.   (make-variable-buffer-local 'page-delimiter)
  177.   (setq page-delimiter "^\\.H ")
  178.   (setq outline-regexp "\\.H 1\\|\\.H 2 \\|\\.H 3 .\\|\\.H 4 ..\\|\\.H 5 ...")
  179.   (make-variable-buffer-local 'text-sexp-delim)
  180.   (setq text-sexp-delim "^\\.H [12345]\\|^\\.[ABV]L\\|^\\.LE\\|^\\.D[SFE]")
  181.   (make-variable-buffer-local 'text-sexp-data)
  182.   (setq text-sexp-data '(
  183.          (".H 1" . ("^\\.H 1" t "\\.LE\\|\\.DE" nil nil t)) 
  184.          (".H 2" . ("^\\.H [12]" t "\\.LE\\|\\.DE" nil nil t)) 
  185.          (".H 3" . ("^\\.H [123]" t "\\.LE\\|\\.DE" nil nil t)) 
  186.          (".H 4" . ("^\\.H [1234]" t "\\.LE\\|\\.DE" nil nil t)) 
  187.          (".H 5" . ("^\\.H [12345]" t "\\.LE\\|\\.DE" nil nil t)) 
  188.          (".AL" . ("^\\.LE" t "\\.H" t nil nil))
  189.          (".BL" . ("^\\.LE" t "\\.H" t nil nil))
  190.          (".VL" . ("^\\.LE" t "\\.H" t nil nil))
  191.          (".DS" . ("^\\.DE" t "\\.H" t nil nil))
  192.          (".DF" . ("^\\.DE" t "\\.H" t nil nil))
  193.          )))
  194. //E*O*F doug-misc.el//
  195.  
  196. echo x - loadup.patch
  197. cat > "loadup.patch" << '//E*O*F loadup.patch//'
  198. *** loadup.el.orig    Fri Nov 17 15:50:22 1989
  199. --- loadup.el    Fri Nov 17 15:54:31 1989
  200. ***************
  201. *** 30,35
  202.   (garbage-collect)
  203.   (load "files")
  204.   (garbage-collect)
  205.   (load "indent")
  206.   (load "window")
  207.   (load "paths.el")  ;Don't get confused if someone compiled paths by mistake.
  208.  
  209. --- 30,37 -----
  210.   (garbage-collect)
  211.   (load "files")
  212.   (garbage-collect)
  213. + (load "mvi")
  214. + (garbage-collect)
  215.   (load "indent")
  216.   (load "window")
  217.   (load "paths.el")  ;Don't get confused if someone compiled paths by mistake.
  218. //E*O*F loadup.patch//
  219.  
  220. echo x - mvi.man
  221. cat > "mvi.man" << '//E*O*F mvi.man//'
  222.  
  223.  
  224.                   MVI Manual
  225.                  Version 1.0
  226.                 March 26, 1990
  227.              Author: Doug Scofea
  228.             Phone: +1 614 459 1889
  229.               Email: osu-cis!nimbus3!djs
  230.                   
  231.                   
  232. 1. Introduction
  233.  
  234. This is not a vi clone.  Vi has enough brain damage floating around
  235. in its code that I felt no need to carry forward.  In this manual,
  236. I'll try to explain the differences between mvi and real vi.  Mvi
  237. supports none of the ex commands.  It seemed pointless, since emacs
  238. has far more powerful versions of everything I ever did with ex.
  239. Thus, you can't escape learning some emacs if you want to use this
  240. package.  DON'T PANIC, in most respects, emacs is far more consistent
  241. and powerful than vi, I just couldn't deal with all the keystrokes it
  242. took to do trivial editing chores.
  243.  
  244. 2. Keys in Mvi Mode
  245.  
  246. From emacs mode ^Z will enter you into mvi mode and while in mvi mode
  247. ^Z will take you back to emacs mode.  While in mvi mode all of emacs
  248. commands are still available.  All commands that are in emacs global
  249. map are bound to ^A.  All commands that were bound to escape in emacs
  250. mode are now bound to ^_.  The ^X, and ^C commands remain the same
  251. since these keys are not used for vi editing.
  252.  
  253. While in insert mode, all commands that were bound to escape in emacs
  254. mode are now bound to ^_.  The ^X, and ^C commands remain the same
  255. since these keys are not used for vi editing.
  256.  
  257. 3. Fold Mode
  258.  
  259. Mvi has a crude form of folding.  It uses the control characters ^M to
  260. ^Z embedded in the text to indicate fold depth.  To use folding, one
  261. must first use the fold-mode command.  When executed, folding is
  262. turned on in the given buffer, with numeric argument, folding is
  263. turned off.  If folding is enabled, characters in the ^M to ^Z range
  264. will automatically be written out as ^J characters when the file is
  265. written.  To save the fold information between edit sessions, one can
  266. turn off fold mode before the file is written.  This will preserve the
  267. fold information.  However, it will mess up about any other command
  268. that might want to use the file.  On re-entry, you will be warned that
  269. the file contains characters in the range ^M to ^Z.  Hopefully, they
  270. were put there from previous folding operations.  Otherwise, they will
  271. cause problems when the file is written out.
  272.  
  273. 4. Editing in Mvi
  274.  
  275. Mvi, like real vi supports two basic kinds of actions.  Those that are
  276. motions that accept optional commands (like c for change, d for
  277. delete), and all the rest.  Mvi tries to make logical use of all
  278. motion modifiers.  If a motion modifier makes no sense it is generally
  279. ignored.  If an action does not allow a modifier, it is generally
  280. flagged as an error.  All motions that accept commands have the
  281. following format:
  282.  
  283. "[a-zA-Z] g number command motion
  284.  
  285. The " modifier is a register where the text between the beginning and
  286. ending point is stored.  If the letter is capital [A-Z], any
  287. pre-existing text in the register is appended to, otherwise it is
  288. overwritten.  In the case of a put command, this can indicate the
  289. source of the text.
  290.  
  291. The g modifier means to take the point back to the place where the
  292. command started after it is done.
  293.  
  294. The number is used for such things as 5G would take you to line 5.
  295. Numeric arguments can also be negative by preceding them with a minus
  296. sign, the special case of a minus by itself results in a numeric
  297. argument of -1.  Some motions do not need a numeric argument.  If one
  298. is entered for it, it may be ignored or used for some other purpose.
  299.  
  300. The command part allows you to do something to or with the text
  301. between the starting and ending point.  These would include the
  302. standard c for change, y for yank, etc.
  303.  
  304. The order shown above for the motion modifiers is arbitrary and they
  305. may be entered in any order desired.  The following key sequences will
  306. all accomplish the same thing:
  307.  
  308.     "a5dw
  309.     5"adw
  310.     "ad5w
  311.  
  312. The motion part is the actual movement such as 'a, j, etc.  If there
  313. is no command, the motion will mearly move the point.
  314.  
  315. Since mvi has many more commands/motions than standard vi, I had to
  316. find some place to bind them.  In mvi q is a prefix for many of the
  317. commands/motions that could not be fit on the standard keys.  They are
  318. used just like the ordinary ones, they just require more key strokes.
  319. Upper case region is bound to qU.  So to uppercase 3 words you would
  320. type 3qU.
  321.  
  322. One hybrid form of command/motion is the dd, cc and likewise commands.
  323. These work in mvi as expected.  However, commands entered from using
  324. the q prefix would be entered like:
  325.     
  326.     3qUqU would uppercase three lines.
  327.  
  328. 5. Commands
  329.  
  330. Below is a list of commands.  In general, any command can be used with
  331. any motion.  A letter preceded by ^ means it is a control character:
  332.  
  333. c   - Change. Delete text and insert new.
  334. d   - Delete.
  335. K   - Like d, except successive K commands without an intervening motion
  336.       concatenates the text together into one chunk on the kill stack.
  337. y   - Yank.
  338. ^K  - Like y, except successive ^K commands without an intervening motion
  339.       concatenates the text together into one chunk on the kill stack.
  340. >   - Hard tab in region.
  341. <   - Hard tab out region.
  342. q^I - Tabify region according to mode.
  343. !   - Send region of text through shell command, replacing it in buffer.
  344. |   - Send region of text through shell command, don't replace it in buffer.
  345. qU  - Uppercase region.
  346. ql  - Lowercase region.
  347. qC  - Capitalize region.
  348. q5  - Center each line in region.
  349. q_  - Underline region.
  350. q+  - Un-underline region.
  351. qF  - Fill region, see fill column in emacs manual.
  352. qw  - Write region to a file.
  353. qa  - Append region, to a file.
  354. qn  - Narrow region.  Make text outside the region invisible.  Very useful for
  355.       query replace type commands.
  356. qf  - Fold region.  Make portions of the buffer invisible.
  357. qu  - Unfold region.
  358. qG  - Execute the last keyboard macro on each line in the region.
  359. qr  - Make region be the mark and point.
  360. qR  - Make region be the mark and point, but expand it to full lines.
  361.  
  362. 6. Motions
  363.  
  364. Most of the motions are essentially the same as in vi.  Any of these motions
  365. can be used with any of the commands.
  366.  
  367. h   -  Move cursor left.
  368. j   -  Move cursor down.
  369. k   -  Move cursor up.
  370. l   -  Move cursor right.
  371. ^?  -  Same as h.
  372. ^J  -  Same as j.
  373. sp  -  Same as l.
  374.  
  375. w   -  Forward word.
  376. b   -  Backward word.
  377. e   -  End of word.
  378. v   -  End of previous word.
  379. W   -  Move forward, stopping after whitespace.
  380. B   -  Move backward, stopping before whitespace.
  381. E   -  Move to end of word, whitespace delimited.
  382. V   -  Move to end of word, whitespace delimited, backwards.
  383.  
  384. f   -  Move to character.
  385. t   -  Move to character, stopping before it.
  386. F   -  Move to character backwards.
  387. T   -  Move to character backwards, stopping before it.
  388. ;   -  Repeat last f,t,F, or T command.
  389. ,   -  Repeat last f,t,F, or T command in the opposite direction.
  390.  
  391. ^   -  Move to beginning of line.
  392. 0   -  Move to the first non-whitespace character.
  393. #   -  Move to column given by numeric argument.  Columns start with 0.
  394. $   -  End of line.
  395.  
  396. '   -  Move to line saved in register.
  397. `   -  Move to point saved in register.
  398.  
  399. H   -  Goto top of window.
  400. L   -  Move to bottom of window.
  401. M   -  Move to middle of window.
  402.  
  403. )   -  Forward sentence.  This is controlled by the sentence-end variable.
  404. (   -  Backward sentence.
  405. ]   -  Forward paragraph.  This is controlled by the paragraph-start and
  406.        paragraph-separate variable.
  407. [   -  Backward paragraph.
  408. }   -  Forward page.  This is controlled by the page-delimiter variable.
  409. {   -  Backward page.
  410.  
  411. %   -  Move to matching parenthetical character in the set "{[(0]}".
  412. +   -  Forward list, like % but more powerful.
  413. _   -  Backward list.
  414. q)  -  Forward sub-expression.  Refer to the emacs manual for a description
  415.        of sub-expressions.
  416. q(  -  Backward sub-expression.
  417. q]  -  Forward text sub-expression.  Refer to the function forward-text-sexp
  418.        for a description of how this works.
  419. q[  -  Backward text sub-expression.
  420.  
  421. /   -  Search forward, stopping at the beginning of the match.
  422. ?   -  Search backward, stopping at the beginning of the match.
  423. q/  -  Search forward, stopping at the end of the match.
  424. q?  -  Search backward, stopping at the end of the match.
  425.  
  426. G   -  Goto line; without numeric argument, goto last.
  427. ^@  -  Set mark - with command, perform command on area between mark and point.
  428.        Without command, without numeric argument, set mark; with numeric
  429.        argument, jump to mark.
  430. &   -  Move to the end of the last text that was put.  With numeric argument,
  431.        move to the beginning of the last text that was put.
  432. \   -  Move to the place where the last command began.
  433.        
  434. 7. Shorthand Commands
  435.  
  436. C   -  Change to end of line.
  437. D   -  Delete to end of line.
  438. Y   -  Yank to end of line.
  439.  
  440. r   -  Replace number (default 1) character.
  441. s   -  Substitute number (default 1) characters
  442. x   -  Delete number (default 1) character at cursor.
  443. X   -  Delete number (default 1) character before cursor.
  444. ~   -  Toggle case of number (default 1) character.
  445.  
  446.  
  447. 8. Insert Commands
  448.  
  449. A   -  Append to the end of a line.
  450. I   -  Insert at beginning of line.
  451. a   -  Append text after point.
  452. i   -  Insert text before point.
  453. o   -  Open a line below point.
  454. O   -  Open a line above point.
  455. ^O  -  Open a line at point.
  456. R   -  Overwrite text.
  457.  
  458. 9. Scrolling Commands
  459.  
  460. ^F  -  Scroll number (default 1) pages forward.
  461. ^B  -  Scroll number (default 1) pages backward.
  462. ^U  -  Scroll number (default 1) half pages up.
  463. ^D  -  Scroll number (default 1) half pages down.
  464. ^E  -  Scroll number (default 1) lines up.
  465. ^E  -  Scroll number (default 1) lines down.
  466. ^L  -  Redraw the screen.
  467.  
  468. 10. Miscellaneous
  469.  
  470. ESC -  Cancel any partially formed command.
  471. qESC - Cancel any partially formed command.
  472. ^G  -  Signal an interrupt.
  473. u   -  Undo. Repeating undo, undoes more.  As a special case, the sequence
  474.        .u. steps back through the old mvi commands for re-execution. 
  475. U   -  Step back through previous marks.  Certain commands save the position
  476.        they were at in the mark ring.  Repeated Us allow you to retrace
  477.        your steps. -U reverses this direction.
  478.        
  479. Q   -  Emacs query replace.
  480. qQ  -  Emacs query replace with regular expressions.
  481.  
  482. p   -  Put text after/below cursor.
  483. P   -  Put text before/above cursor.
  484. ^P  -  Put text before cursor no matter how it was saved.
  485. qp  -  Undo last put command; if a different put command (i.e. a qp
  486.        following a P command) do that instead; with register argument, put 
  487.        contents of register instead; with numeric argument different from the
  488.        original put, put that many instead; otherwise, rotate kill ring
  489.        and put that instead; with negative numeric argument, rotate kill 
  490.        ring in opposite direction and put that instead.
  491. qP  -  Similar to above put do a P.
  492. q^P -  Similar to above put do a ^P.
  493.  
  494. =   -  Exchange point and mark.  Similar to vi `` command.
  495. S   -  Suspend emacs, bring up interactive shell.
  496.  
  497. z   -  Fold line.
  498. Z   -  Unfold line.
  499.  
  500. n   -  Repeat last search.
  501. N   -  Repeat last search in opposite direction.
  502.  
  503. m   -  Save cursor position in register, allows more than just a to z.
  504.  
  505. ^A  -  Prefix for emacs global key map.  ^A^E would take you to the end of
  506.        the line. 
  507. ^X  -  Prefix for emacs ^X key map.
  508. ^C  -  Prefix for emacs ^C key map.
  509. ^_  -  Prefix for emacs ESC key map.
  510.  
  511. J   -  Join lines together; with numeric argument, join that many line 
  512.        together.
  513.        
  514. ^I  -  Indent line according to mode.
  515.  
  516. q^S -  Incremental search regular expression forward.
  517. q^R -  Incremental search regular expression backward.
  518.  
  519. q!  -  Execute a shell command.  With numeric argument, insert output in
  520.        buffer.
  521.  
  522. :   -  Emacs execute extended command.
  523. q.  -  Edit previous mvi commands.
  524. q;  -  Edit previous complex commands.
  525. q:  -  Edit previous complex commands by searching.
  526.  
  527. q-  -  Move backward out of one level of parentheses.  With argument, do 
  528.        this that many times.  A negative argument means move forward but 
  529.        still to a less deep spot.
  530.        
  531. qt  -  Move the point to number (default 1) lines from the top of the window.
  532. qb  -  Move the point to number (default 1) lines from the bottom of 
  533.        the window.
  534. qm  -  Move the point to number (default 1) lines from the middle of 
  535.        the window.
  536. qT  -  After a search, move the point to number (default 1) lines from the
  537.        top of the window.
  538. qB  -  After a search, move the point to number (default 1) lines from the
  539.        bottom of the window.
  540. qM  -  After a search, move the point to number (default 1) lines from the
  541.        middle of the window.
  542. q<sp> - Cancel placement after searching.
  543.  
  544. q@  -  Bind the last keyboard macro to a subcommand of @.
  545. qi  -  Insert a macro into the current buffer as text.  This allows one
  546.        to save and restore previously defined keyboard macros.  See the
  547.        end of mvi.el for an example of how to have them loaded back in
  548.        when a file is read.
  549. qI  -  Insert all existing keyboard macros into the current buffer.
  550.  
  551. qg  -  Display current line.
  552. q#  -  Display current column number.
  553.  
  554. ^H  -  Access online help.
  555. ^T  -  Universal argument.  Useful for emacs some emacs commands.
  556. ^Z  -  Return to emacs mode.
  557.  
  558. qv  -  Set variable.
  559. qx  -  Execute a saved mvi command.
  560.  
  561. q^T -  Toggle debug.
  562. q^V -  Print mvi version number.
  563. q^Z -  Dump an executable form of the running emacs.
  564.  
  565. 11. Keystrokes While Inserting
  566.  
  567. While in insert mode, most keys are bound to what they would be if you
  568. were in emacs mode.  This has many advantages.  Emacs binds certain
  569. keys depending on what mode the buffer is in to do special things.  For
  570. instance, in C mode, things like brace and tab are set up to
  571. automatically indent in a proper mode for C programming.  A few keys
  572. are overridden to accommodate vi style features.  ^H deletes the
  573. previous word, ^Z inserts what was inserted in the last mvi insert
  574. command, tab just inserts a tab, escape returns you to command
  575. mode, and ^_ gives you access to emacs escape key commands.  All the 
  576. rest of the keys are bound to what they would be in emacs mode.
  577.  
  578. 12. Minibuffer Operation
  579.  
  580. Many commands in emacs prompt you on the last line of the screen for
  581. additional information.  This is known as the mini-buffer.  It is a
  582. true buffer and thus can be edited in.  By default, you are in insert
  583. mode when in this buffer.  To enter vi mode, simply press the escape
  584. key.  You should now have full vi editing including the registers,
  585. repeat, and kill ring.  Generally, undo information is not kept for
  586. this buffer.  You can even do things like this: You need to search
  587. for some long identifier.  Instead of retyping the stupid thing, just
  588. do a yank on it, press the / for search, press escape then p.  At this
  589. point, you can edit it further or just submit it.  This works for file
  590. names and most other operations.  Also, it is very worthwhile
  591. learning emacs command, file name, and variable name completion.
  592.  
  593. 13. Command History
  594.  
  595. Emacs saves a command history of what it calls complex commands.
  596. These are commands that require prompting.  Emacs allows you to recall
  597. these, edit them and re-execute them.  For convenience, q; is bound to
  598. repeat-complex-command.  This will display the last complex command.
  599. You can edit it and resubmit it.  If it is not the correct one ^P and
  600. ^N take you to the previous and next commands respectively.  Full vi
  601. editing is available with a press of the escape key.  You can also
  602. search for a command by name by pressing q:.
  603.  
  604. Mvi also maintains a command history.  It is most commonly used by
  605. pressing the . key.  This will re-execute the last mvi command.  Not
  606. all commands can be repeated, only those that get saved in the command
  607. history.  Unlike real vi, mvi allows you to alter any of the motion
  608. modifiers for the previous command.  For instance, if the last
  609. command executed was 3dw (delete 3 words), if one typed ., 3 more
  610. words would be deleted.  However, if one typed 2.  2 words would be
  611. deleted.  If one typed "a. 3 words would be deleted and saved in
  612. register a.  Any motion modifiers given to . override the ones that
  613. were saved when the command was executed.
  614.  
  615. The mvi history can also be displayed, edited, resubmitted, and saved.
  616. To edit old commands q. is used, ^P and ^N take you to the previous
  617. and next command respectively while in insert mode.  qk and qj do the
  618. same in command mode.  q\ allows you to search for an old command, qN
  619. repeats the same search, and qV allows you to save the command as a
  620. named variable for execution at any time with the qx command.
  621.  
  622. 14. Mvi Variables
  623.  
  624. Mvi uses some variables that can be set by the user to control its
  625. action.  These are set to defaults at startup.  Changing one will only
  626. change it in that buffer.  The value seen by the other buffers will
  627. remain unchanged.
  628.  
  629. The variables and what they affect are given below:
  630.  
  631. mvi-ai      - when set to t, auto indent is performed by the o, O, and ^O
  632.               commands.  Default t.
  633.           
  634. mvi-magic   - when t, searches are regular expression.  Default t.
  635.  
  636. mvi-wrap    - when t, if a search hits the end of the buffer before
  637.               completing, it is continued from the other end of the buffer.
  638.           Default t.
  639.           
  640. search-skip-fold  - when t, folded text is skipped during searches.
  641.                     Default nil.
  642.  
  643. 15. Emacs Commands for Ex Users
  644.  
  645. Since mvi makes no attempt to duplicate the ex functionality, I thought
  646. I would at least list some commands that might be used in there place:
  647.  
  648. query-replace
  649. query-replace-regexp
  650. delete-matching-lines
  651. delete-non-matching-lines
  652. list-matching-lines
  653.  
  654. There are many more functions that are really powerful.  The emacs tags
  655. facility is very nice.  You should spend some time perusing an emacs
  656. manual to discover all these things.
  657.  
  658. 16. Emacs Crutch
  659.  
  660. Here is just enough for a vi user to get started without opening the
  661. emacs manual:
  662.  
  663. ^X^F  -  Read in a file.
  664. ^X^C  -  Quit emacs, offer to save buffers associated with files.
  665. ^X^S  -  Save the current buffer.
  666. ^X^W  -  Save the current buffer under a new file name.
  667. ^Xi   -  Insert a file before the cursor.
  668. ^X2   -  Split the screen horizontally.
  669. ^X0   -  Kill the current window.
  670. ^X1   -  Make the current window the whole screen.
  671. ^Xk   -  kill buffer.
  672. ^Xb   -  select buffer.
  673. ^X^B  -  list buffers.
  674.  
  675. //E*O*F mvi.man//
  676.  
  677. echo x - mvi.patch
  678. cat > "mvi.patch" << '//E*O*F mvi.patch//'
  679. *** buffer.c.or    Mon Feb 13 10:33:36 1989
  680. --- buffer.c    Mon Feb 13 10:33:36 1989
  681. ***************
  682. *** 1096,1101 ****
  683. --- 1096,1102 ----
  684.     buffer_defaults.selective_display = Qnil;
  685.     buffer_defaults.selective_display_ellipses = Qt;
  686.     buffer_defaults.abbrev_table = Qnil;
  687. +   buffer_defaults.folded_display = Qnil;
  688.   
  689.     XFASTINT (buffer_defaults.tab_width) = 8;
  690.     buffer_defaults.truncate_lines = Qnil;
  691. ***************
  692. *** 1136,1141 ****
  693. --- 1137,1143 ----
  694.     XFASTINT (buffer_local_flags.fill_column) = 0x400;
  695.     XFASTINT (buffer_local_flags.left_margin) = 0x800;
  696.     XFASTINT (buffer_local_flags.abbrev_table) = 0x1000;
  697. +   XFASTINT (buffer_local_flags.folded_display) = 0x2000;
  698.   
  699.     Vbuffer_alist = Qnil;
  700.     bf_cur = 0;
  701. ***************
  702. *** 1351,1356 ****
  703. --- 1353,1362 ----
  704.     DEFVAR_PER_BUFFER ("overwrite-mode", &bf_cur->overwrite_mode,
  705.       "Non-nil if self-insertion should replace existing text.\n\
  706.   Automatically becomes local when set in any fashion.");
  707. + 
  708. +   DEFVAR_PER_BUFFER ("folded-display", &bf_cur->folded_display,
  709. +     "t enables folding of display:\n\
  710. + all text following ^M - ^Z, to the end of the line is made invisible.");
  711.   
  712.   /*DEFVAR_LISP ("debug-check-symbol", &Vcheck_symbol,
  713.       "Don't ask.");
  714. *** buffer.h.or    Mon Feb 13 10:33:36 1989
  715. --- buffer.h    Mon Feb 13 10:33:36 1989
  716. ***************
  717. *** 153,158 ****
  718. --- 153,161 ----
  719.       Lisp_Object overwrite_mode;
  720.       /* non-nil means abbrev mode is on.  Expand abbrevs automatically. */
  721.       Lisp_Object abbrev_mode;
  722. +     /* Non-nil means do folded display;
  723. +        See doc string in syms_of_buffer (buffer.c) for details.  */
  724. +     Lisp_Object folded_display;
  725.   };
  726.   
  727.   extern struct buffer *bf_cur;        /* points to the current buffer */
  728. *** callint.c.or    Mon Feb 13 10:33:36 1989
  729. --- callint.c    Mon Feb 13 10:33:36 1989
  730. ***************
  731. *** 77,82 ****
  732. --- 77,83 ----
  733.   s -- Any string.\n\
  734.   S -- Any symbol.\n\
  735.   v -- Variable name: symbol that is user-variable-p.\n\
  736. + V -- Same as p, except a nil as a first member of a prefix list returns 1.\n\
  737.   x -- Lisp expression read but not evaluated.\n\
  738.   X -- Lisp expression read and evaluated.\n\
  739.   In addition, if the first character of the string is '*' then an error is\n\
  740. ***************
  741. *** 399,404 ****
  742. --- 400,413 ----
  743.                      user-variable-p. */
  744.         args[i] = Fread_variable (build_string (prompt));
  745.         visargs[i] = last_minibuf_string;
  746. +       break;
  747. + 
  748. +     case 'V':        /* Prefix arg converted to number. nil
  749. +                     in list converted to 1 No I/O. */
  750. +       args[i] = Fprefix_numeric_value (prefix_arg);
  751. +       if(args[i] == Qnil) args[i] = 1;
  752. +       /* visargs[i] = Qnil; */
  753. +       varies[i] = -1;
  754.         break;
  755.   
  756.       case 'x':        /* Lisp expression read but not evaluated */
  757. *** cmds.c.or    Mon Feb 13 10:33:36 1989
  758. --- cmds.c    Mon Feb 13 10:33:36 1989
  759. ***************
  760. *** 144,149 ****
  761. --- 144,176 ----
  762.     return Qnil;
  763.   }
  764.   
  765. + DEFUN ("mvi-forward-line", Fmvi_forward_line, Smvi_forward_line,
  766. +   0, 1, "p",
  767. +   "Move point to the beginning of line skipping over white space.\n\
  768. + With argument ARG not nil or 1, move forward ARG lines first.\n\
  769. + If scan reaches end of buffer, stop there without error.")
  770. +   (n)
  771. +      Lisp_Object n;
  772. + {
  773. +   register int pos;
  774. +   register int stop;
  775. + 
  776. +   if (NULL (n))
  777. +     XFASTINT (n) = 0;
  778. +   else
  779. +     CHECK_NUMBER (n, 0);
  780. + 
  781. + Fforward_line (make_number (XINT (n)));
  782. + 
  783. +   pos = point;
  784. +   stop = NumCharacters + 1;
  785. +   while (pos < stop && CharAt (pos) != '\n' && 
  786. +     (CharAt (pos) == ' ' || CharAt(pos) == '\t')) pos++;
  787. +   SetPoint (pos);
  788. + 
  789. +   return Qnil;
  790. + }
  791. + 
  792.   DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP",
  793.     "Delete the following ARG characters (previous, with negative arg).\n\
  794.   Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\
  795. ***************
  796. *** 318,323 ****
  797. --- 345,351 ----
  798.     defsubr (&Sforward_line);
  799.     defsubr (&Sbeginning_of_line);
  800.     defsubr (&Send_of_line);
  801. +   defsubr (&Smvi_forward_line);
  802.   
  803.     defsubr (&Sdelete_char);
  804.     defsubr (&Sdelete_backward_char);
  805. *** editfns.c.or    Mon Feb 13 10:33:36 1989
  806. --- editfns.c    Mon Feb 13 10:33:36 1989
  807. ***************
  808. *** 639,644 ****
  809. --- 639,724 ----
  810.     return Qnil;
  811.   }
  812.   
  813. + DEFUN ("fold-region", Ffold_region, Sfold_region, 2, 3, 0,
  814. +   "From START to END, fold all new lines each time it occurs.\n\
  815. + If optional arg NOUNDO is non-nil, don't record this change for undo\n\
  816. + and don't mark the buffer as really changed.")
  817. +   (start, end, noundo)
  818. +      Lisp_Object start, end, noundo;
  819. + {
  820. +   register int pos, stop; 
  821. +   register char c;
  822. + 
  823. +   validate_region (&start, &end);
  824. + 
  825. +   pos = XINT (start);
  826. +   stop = XINT (end);
  827. + 
  828. +   modify_region (pos, stop);
  829. +   if (! NULL (noundo))
  830. +     bf_modified--;
  831. + 
  832. +   while (pos < stop)
  833. +     {
  834. +       c = CharAt (pos);
  835. +       if (c == '\n')
  836. +     {
  837. +       if (NULL (noundo))
  838. +         record_change (pos, 1);
  839. +       CharAt (pos) = '\015';
  840. +     }
  841. +       else if (c <= '\031' && c >= '\015')
  842. +     {
  843. +       if (NULL (noundo))
  844. +         record_change (pos, 1);
  845. +       CharAt (pos) = c + 1;
  846. +     }
  847. +       pos++;
  848. +     }
  849. + 
  850. +   return Qnil;
  851. + }
  852. + 
  853. + DEFUN ("unfold-region", Funfold_region, Sunfold_region, 3, 4, 0,
  854. +   "From START to END, unfold N times each time it occurs.\n\
  855. + If optional arg NOUNDO is non-nil, don't record this change for undo\n\
  856. + and don't mark the buffer as really changed.")
  857. +   (start, end, count, noundo)
  858. +      Lisp_Object start, end, count, noundo;
  859. + {
  860. +   register int pos, stop, n, c_int;
  861. +   char c;
  862. + 
  863. +   validate_region (&start, &end);
  864. +   CHECK_NUMBER (count, 2);
  865. + 
  866. +   pos = XINT (start);
  867. +   stop = XINT (end);
  868. +   n = XINT (count);
  869. + 
  870. +   modify_region (pos, stop);
  871. +   if (! NULL (noundo))
  872. +     bf_modified--;
  873. + 
  874. +   while (pos < stop)
  875. +     {
  876. +       c = CharAt (pos);
  877. +       if (c <= '\032' && c >= '\015')
  878. +     {
  879. +       if (NULL (noundo))
  880. +         record_change (pos, 1);
  881. +       c_int = (int) c - n;
  882. +       c -= n;
  883. +       if(c_int < 015) c = '\n';
  884. +       CharAt (pos) = c;
  885. +     }
  886. +       pos++;
  887. +     }
  888. + 
  889. +   return Qnil;
  890. + }
  891. + 
  892. + 
  893.   DEFUN ("subst-char-in-region", Fsubst_char_in_region,
  894.     Ssubst_char_in_region, 4, 5, 0,
  895.     "From START to END, replace FROMCHAR with TOCHAR each time it occurs.\n\
  896. ***************
  897. *** 1030,1035 ****
  898. --- 1110,1117 ----
  899.   #endif
  900.   
  901.     defsubr (&Sinsert_buffer_substring);
  902. +   defsubr (&Sfold_region);
  903. +   defsubr (&Sunfold_region);
  904.     defsubr (&Ssubst_char_in_region);
  905.     defsubr (&Sdelete_region);
  906.     defsubr (&Swiden);
  907. *** fileio.c.or    Mon Feb 13 10:33:36 1989
  908. --- fileio.c    Mon Feb 13 10:33:36 1989
  909. ***************
  910. *** 1798,1804 ****
  911.        register int len;
  912.   {
  913.     char buf[16 * 1024];
  914. !   register char *p, *end;
  915.   
  916.     if (!EQ (bf_cur->selective_display, Qt))
  917.       return write (fd, addr, len) - len;
  918. --- 1798,1805 ----
  919.        register int len;
  920.   {
  921.     char buf[16 * 1024];
  922. !   register char *p, *end, c;
  923. !   int folded = !NULL (bf_cur->folded_display);
  924.   
  925.     if (!EQ (bf_cur->selective_display, Qt))
  926.       return write (fd, addr, len) - len;
  927. ***************
  928. *** 1814,1822 ****
  929.           return -1;
  930.             p = buf;
  931.           }
  932. !       *p = *addr++;
  933. !       if (*p++ == '\015')
  934. !         p[-1] = '\n';
  935.       }
  936.         if (p != buf)
  937.       if (write (fd, buf, p - buf) != p - buf)
  938. --- 1815,1825 ----
  939.           return -1;
  940.             p = buf;
  941.           }
  942. !       c = *addr++;
  943. !       if ((c == '\015') || (c <= '\032' && c >= '\015' && folded))
  944. !         *p++ = '\n';
  945. !       else
  946. !         *p++ = c;
  947.       }
  948.         if (p != buf)
  949.       if (write (fd, buf, p - buf) != p - buf)
  950. *** fns.c.or    Mon Feb 13 10:33:36 1989
  951. --- fns.c    Mon Feb 13 10:33:36 1989
  952. ***************
  953. *** 453,458 ****
  954. --- 453,479 ----
  955.     return Fcar (Fnthcdr (n, list));
  956.   }
  957.   
  958. + DEFUN ("mvi-nth", Fmvi_nth, Smvi_nth, 2, 2, 0,
  959. +   "Returns the Nth element of LIST.\n\
  960. + N counts from zero.  If LIST is not that long, nil is returned.\n\
  961. + If LIST is an integer and N is 0, it is returned, otherwise, nil is returned.")
  962. +   (n, list)
  963. +      Lisp_Object n, list;
  964. + {
  965. +   register int num;
  966. +   if (XTYPE (list) == Lisp_Int)
  967. +     {
  968. +       CHECK_NUMBER (n, 0);
  969. +       num = XINT (n);
  970. +       if (num == 0)
  971. +     return list;
  972. +       else
  973. +     return Qnil;
  974. +     }
  975. +   else
  976. +     return Fcar (Fnthcdr (n, list));
  977. + }
  978. + 
  979.   DEFUN ("elt", Felt, Selt, 2, 2, 0,
  980.     "Returns element of SEQUENCE at index N.")
  981.     (seq, n)
  982. ***************
  983. *** 1334,1339 ****
  984. --- 1355,1361 ----
  985.     defsubr (&Ssubstring);
  986.     defsubr (&Snthcdr);
  987.     defsubr (&Snth);
  988. +   defsubr (&Smvi_nth);
  989.     defsubr (&Selt);
  990.     defsubr (&Smemq);
  991.     defsubr (&Sassq);
  992. *** indent.c.or    Mon Feb 13 10:33:36 1989
  993. --- indent.c    Mon Feb 13 10:33:36 1989
  994. ***************
  995. *** 97,104 ****
  996.       }
  997.         else if (c == '\n')
  998.       break;
  999. !       else if (c == '\r' && EQ (bf_cur->selective_display, Qt))
  1000. !     break;
  1001.         else if (c == '\t')
  1002.       {
  1003.         if (tab_seen)
  1004. --- 97,106 ----
  1005.       }
  1006.         else if (c == '\n')
  1007.       break;
  1008. !       else 
  1009. !     if ((c == '\r' && EQ (bf_cur->selective_display, Qt)) ||
  1010. !         (c <= '\032' && c >= '\015' && EQ (bf_cur->folded_display, Qt))) 
  1011. !       break;
  1012.         else if (c == '\t')
  1013.       {
  1014.         if (tab_seen)
  1015. ***************
  1016. *** 249,255 ****
  1017.         int c = CharAt (pos);
  1018.         if (c == '\n')
  1019.       break;
  1020. !       if (c == '\r' && EQ (bf_cur->selective_display, Qt))
  1021.       break;
  1022.         pos++;
  1023.         col++;
  1024. --- 251,258 ----
  1025.         int c = CharAt (pos);
  1026.         if (c == '\n')
  1027.       break;
  1028. !       if ((c == '\r' && EQ (bf_cur->selective_display, Qt)) ||
  1029. !       (c <= '\032' && c >= '\015' && EQ (bf_cur->folded_display, Qt))) 
  1030.       break;
  1031.         pos++;
  1032.         col++;
  1033. ***************
  1034. *** 311,316 ****
  1035. --- 314,320 ----
  1036.       = XTYPE (bf_cur->selective_display) == Lisp_Int
  1037.         ? XINT (bf_cur->selective_display)
  1038.       : !NULL (bf_cur->selective_display) ? -1 : 0;
  1039. +   int folded = !NULL (bf_cur->folded_display);
  1040.     int prevpos;
  1041.   
  1042.     if (tab_width <= 0 || tab_width > 20) tab_width = 8;
  1043. ***************
  1044. *** 355,361 ****
  1045.         if (hscroll > 0) cpos++; /* Count the ! on column 0 */
  1046.         tab_offset = 0;
  1047.       }
  1048. !       else if (c == CR && selective < 0)
  1049.       {
  1050.         /* In selective display mode,
  1051.            everything from a ^M to the end of the line is invisible */
  1052. --- 359,367 ----
  1053.         if (hscroll > 0) cpos++; /* Count the ! on column 0 */
  1054.         tab_offset = 0;
  1055.       }
  1056. !       else 
  1057. !     if ((c == CR && selective < 0) ||
  1058. !         (c <= '\032' && c >= '\015' && folded)) 
  1059.       {
  1060.         /* In selective display mode,
  1061.            everything from a ^M to the end of the line is invisible */
  1062. *** lread.c.or    Mon Feb 13 10:33:36 1989
  1063. --- lread.c    Mon Feb 13 10:33:36 1989
  1064. ***************
  1065. *** 1077,1083 ****
  1066.     return Qnil;
  1067.   }
  1068.   
  1069. ! #define OBARRAY_SIZE 511
  1070.   
  1071.   void
  1072.   init_obarray ()
  1073. --- 1077,1083 ----
  1074.     return Qnil;
  1075.   }
  1076.   
  1077. ! #define OBARRAY_SIZE 1031
  1078.   
  1079.   void
  1080.   init_obarray ()
  1081. *** scroll.c.or    Mon Feb 13 10:33:37 1989
  1082. --- scroll.c    Mon Feb 13 10:33:37 1989
  1083. ***************
  1084. *** 316,327 ****
  1085.     /* Put new lines' hash codes in hash table.  */
  1086.     for (i = start; i < end; i++)
  1087.       {
  1088. !       if (cost[i] > 20)
  1089. !     {
  1090. !       h = newhash[i] & 0777;
  1091. !       lines[h].hash = newhash[i];
  1092. !       lines[h].count++;
  1093. !     }
  1094.       }
  1095.   
  1096.     /* Look up old line hash codes in the hash table.
  1097. --- 316,324 ----
  1098.     /* Put new lines' hash codes in hash table.  */
  1099.     for (i = start; i < end; i++)
  1100.       {
  1101. !       h = newhash[i] & 0777;
  1102. !       lines[h].hash = newhash[i];
  1103. !       lines[h].count++;
  1104.       }
  1105.   
  1106.     /* Look up old line hash codes in the hash table.
  1107. *** syntax.c.or    Mon Feb 13 10:33:37 1989
  1108. --- syntax.c    Mon Feb 13 10:33:37 1989
  1109. ***************
  1110. *** 18,24 ****
  1111. --- 18,79 ----
  1112.   file named COPYING.  Among other things, the copyright notice
  1113.   and this notice must be preserved on all copies.  */
  1114.   
  1115. + /* mvi syntax table for use in mvi word commands */
  1116.   
  1117. + char mvi_syntax_table[256]={
  1118. + 'c','c','c','c','c','c','c','c',
  1119. + 'c','s','s','c','c','c','c','c',
  1120. + 'c','c','c','c','c','c','c','c',
  1121. + 'c','c','c','c','c','c','c','c',
  1122. + /* space */
  1123. + 's','p','p','p','p','p','p','p',
  1124. + /* ( */
  1125. + 'p','p','p','p','p','p','p','p',
  1126. + /* 0 */
  1127. + 'w','w','w','w','w','w','w','w',
  1128. + /* 8 */
  1129. + 'w','w','p','p','p','p','p','p',
  1130. + /* @ */
  1131. + 'p','w','w','w','w','w','w','w',
  1132. + /* H */
  1133. + 'w','w','w','w','w','w','w','w',
  1134. + /* P */
  1135. + 'w','w','w','w','w','w','w','w',
  1136. + /* X */
  1137. + 'w','w','w','p','p','p','p','w',
  1138. + /* ` */
  1139. + 'p','w','w','w','w','w','w','w',
  1140. + /* h */
  1141. + 'w','w','w','w','w','w','w','w',
  1142. + /* p */
  1143. + 'w','w','w','w','w','w','w','w',
  1144. + /* x */
  1145. + 'w','w','w','p','p','p','p','c',
  1146. + 'b','b','b','b','b','b','b','b',
  1147. + 'b','b','b','b','b','b','b','b',
  1148. + 'b','b','b','b','b','b','b','b',
  1149. + 'b','b','b','b','b','b','b','b',
  1150. + 'b','b','b','b','b','b','b','b',
  1151. + 'b','b','b','b','b','b','b','b',
  1152. + 'b','b','b','b','b','b','b','b',
  1153. + 'b','b','b','b','b','b','b','b',
  1154. + 'b','b','b','b','b','b','b','b',
  1155. + 'b','b','b','b','b','b','b','b',
  1156. + 'b','b','b','b','b','b','b','b',
  1157. + 'b','b','b','b','b','b','b','b',
  1158. + 'b','b','b','b','b','b','b','b',
  1159. + 'b','b','b','b','b','b','b','b',
  1160. + 'b','b','b','b','b','b','b','b',
  1161. + 'b','b','b','b','b','b','b','b'};
  1162. + 
  1163. + /* mvi syntax table defines for use in mvi word commands */
  1164. + 
  1165. + #define MVI_BIN 'b'
  1166. + #define MVI_CNTRL 'c'
  1167. + #define MVI_SPACE 's'
  1168. + #define MVI_PUNC 'p'
  1169. + #define MVI_WORD 'w'
  1170. + 
  1171.   #include "config.h"
  1172.   #include <ctype.h>
  1173.   #include "lisp.h"
  1174. ***************
  1175. *** 444,449 ****
  1176. --- 499,1211 ----
  1177.     return Qt;
  1178.   }
  1179.   
  1180. + /* Return the position across `count' vi style words from `from'.
  1181. +    If that many words cannot be found before the end of the buffer, return 0.
  1182. +    `count' negative means scan backward and stop at word beginning.  */
  1183. + 
  1184. + mvi_scan_words (from, count, is_command)
  1185. +      register int from, count;
  1186. +      int is_command;
  1187. + {
  1188. +   register int beg = FirstCharacter;
  1189. +   register int end = NumCharacters + 1;
  1190. +   char start_type;
  1191. + 
  1192. +   immediate_quit = 1;
  1193. +   QUIT;
  1194. + 
  1195. +   if ((is_command && count < 0 && from != beg && CharAt (from - 1) == '\n') ||
  1196. +       (is_command && count > 0 && from != end && CharAt (from) == '\n'))
  1197. +         is_command = 0;
  1198. + 
  1199. +   while (count > 0)
  1200. +     {
  1201. +       start_type = mvi_syntax_table[CharAt (from)];
  1202. +       if (start_type != MVI_SPACE)
  1203. +       {
  1204. +           while (1)
  1205. +         {
  1206. +           if (from == end)
  1207. +             {
  1208. +               immediate_quit = 0;
  1209. +               return 0;
  1210. +             }
  1211. +           if (mvi_syntax_table[CharAt (from)] != start_type)
  1212. +             break;
  1213. +           from++;
  1214. +         }
  1215. +       }
  1216. +       while (1)
  1217. +     {
  1218. +       if (from == end) break;
  1219. +       if (is_command && count == 1 && CharAt (from) == '\n')
  1220. +         break;
  1221. +       if (mvi_syntax_table[CharAt (from)] != MVI_SPACE)
  1222. +         break;
  1223. +       from++;
  1224. +     }
  1225. +       count--;
  1226. +     }
  1227. +   while (count < 0)
  1228. +     {
  1229. +       while (1)
  1230. +     {
  1231. +       if (from == beg)
  1232. +         {
  1233. +           immediate_quit = 0;
  1234. +           return 0;
  1235. +         }
  1236. +       if (is_command && count == -1 && CharAt (from - 1) == '\n')
  1237. +         goto done;
  1238. +       if (mvi_syntax_table[CharAt (from - 1)] != MVI_SPACE)
  1239. +         break;
  1240. +       from--;
  1241. +     }
  1242. +       start_type = mvi_syntax_table[CharAt (from - 1)];
  1243. +       while (1)
  1244. +     {
  1245. +       if (from == beg) break;
  1246. +       if (mvi_syntax_table[CharAt (from - 1)] != start_type)
  1247. +         break;
  1248. +       from--;
  1249. +     }
  1250. +       count++;
  1251. +     }
  1252. + 
  1253. + done:
  1254. + 
  1255. +   immediate_quit = 0;
  1256. + 
  1257. +   return from;
  1258. + }
  1259. + 
  1260. + DEFUN ("mvi-forward-word", Fmvi_forward_word, Smvi_forward_word, 1, 2, "p\nP",
  1261. +   "Move point forward ARG vi style words (backward if ARG is negative).\n\
  1262. + Normally returns t.\n\
  1263. + If an edge of the buffer is reached, point is left there\n\
  1264. + and nil is returned.")
  1265. +   (count, command)
  1266. +      Lisp_Object count, command;
  1267. + {
  1268. +   int val;
  1269. +   int is_command;
  1270. + 
  1271. +   CHECK_NUMBER (count, 0);
  1272. + 
  1273. +   if (NULL (command)) 
  1274. +     is_command = 0;
  1275. +   else 
  1276. +     is_command = XINT (command);
  1277. + 
  1278. +   if(is_command == 'c' && (XINT (count)) > 0 
  1279. +      && mvi_syntax_table[CharAt (point)] != MVI_SPACE)
  1280. +       {
  1281. +       if (!(val = mvi_scan_end (point, XINT (count), is_command)))
  1282. +         {
  1283. +           SetPoint (XINT (count) > 0 ? NumCharacters + 1 : FirstCharacter);
  1284. +           return Qnil;
  1285. +         }
  1286. +       SetPoint (val);
  1287. +       return Qt;
  1288. +     }
  1289. + else
  1290. +     {
  1291. +       if (!(val = mvi_scan_words (point, XINT (count), is_command)))
  1292. +         {
  1293. +           SetPoint (XINT (count) > 0 ? NumCharacters + 1 : FirstCharacter);
  1294. +           return Qnil;
  1295. +         }
  1296. +       SetPoint (val);
  1297. +       return Qt;
  1298. +     }
  1299. + }
  1300. + 
  1301. + /* Return the position across `count' vi style WORDS from `from'.
  1302. +    If that many words cannot be found before the end of the buffer, return 0.
  1303. +    `count' negative means scan backward and stop at word beginning.  */
  1304. + 
  1305. + mvi_scan_Words (from, count, is_command)
  1306. +      register int from, count;
  1307. +      int is_command;
  1308. + {
  1309. +   register int beg = FirstCharacter;
  1310. +   register int end = NumCharacters + 1;
  1311. + 
  1312. +   immediate_quit = 1;
  1313. +   QUIT;
  1314. + 
  1315. +   if ((is_command && count < 0 && from != beg && CharAt (from - 1) == '\n') ||
  1316. +       (is_command && count > 0 && from != end && CharAt (from) == '\n'))
  1317. +         is_command = 0;
  1318. + 
  1319. +   while (count > 0)
  1320. +     {
  1321. +       while (1)
  1322. +     {
  1323. +       if (from == end)
  1324. +         {
  1325. +           immediate_quit = 0;
  1326. +           return 0;
  1327. +         }
  1328. +       if (mvi_syntax_table[CharAt (from)] == MVI_SPACE)
  1329. +         break;
  1330. +       from++;
  1331. +     }
  1332. +       while (1)
  1333. +     {
  1334. +       if (from == end) break;
  1335. +       if (is_command && count == 1 && CharAt (from) == '\n')
  1336. +         break;
  1337. +       if (mvi_syntax_table[CharAt (from)] != MVI_SPACE)
  1338. +         break;
  1339. +       from++;
  1340. +     }
  1341. +       count--;
  1342. +     }
  1343. +   while (count < 0)
  1344. +     {
  1345. +       while (1)
  1346. +     {
  1347. +       if (from == beg)
  1348. +         {
  1349. +           immediate_quit = 0;
  1350. +           return 0;
  1351. +         }
  1352. +       if (is_command && count == -1 && CharAt (from - 1) == '\n')
  1353. +         goto done;
  1354. +       if (mvi_syntax_table[CharAt (from - 1)] != MVI_SPACE)
  1355. +         break;
  1356. +       from--;
  1357. +     }
  1358. +       while (1)
  1359. +     {
  1360. +       if (from == beg) break;
  1361. +       if (mvi_syntax_table[CharAt (from - 1)] == MVI_SPACE)
  1362. +         break;
  1363. +       from--;
  1364. +     }
  1365. +       count++;
  1366. +     }
  1367. + 
  1368. + done:
  1369. + 
  1370. +   immediate_quit = 0;
  1371. + 
  1372. +   return from;
  1373. + }
  1374. + 
  1375. + DEFUN ("mvi-forward-Word", Fmvi_forward_Word, Smvi_forward_Word, 1, 2, "p\nP",
  1376. +   "Move point forward ARG vi style WORDS (backward if ARG is negative).\n\
  1377. + Normally returns t.\n\
  1378. + If an edge of the buffer is reached, point is left there\n\
  1379. + and nil is returned.")
  1380. +   (count, command)
  1381. +      Lisp_Object count, command;
  1382. + {
  1383. +   int val;
  1384. +   int is_command;
  1385. + 
  1386. +   CHECK_NUMBER (count, 0);
  1387. + 
  1388. +   if (NULL (command)) 
  1389. +     is_command = 0;
  1390. +   else 
  1391. +     is_command = XINT (command);
  1392. + 
  1393. +   if(is_command == 'c' && (XINT (count)) > 0
  1394. +      && mvi_syntax_table[CharAt (point)] != MVI_SPACE)
  1395. +       {
  1396. +       if (!(val = mvi_scan_End (point, XINT (count), is_command)))
  1397. +         {
  1398. +           SetPoint (XINT (count) > 0 ? NumCharacters + 1 : FirstCharacter);
  1399. +           return Qnil;
  1400. +         }
  1401. +       SetPoint (val);
  1402. +       return Qt;
  1403. +     }
  1404. + else
  1405. +     {
  1406. +       if (!(val = mvi_scan_Words (point, XINT (count), is_command)))
  1407. +         {
  1408. +           SetPoint (XINT (count) > 0 ? NumCharacters + 1 : FirstCharacter);
  1409. +           return Qnil;
  1410. +         }
  1411. +       SetPoint (val);
  1412. +       return Qt;
  1413. +     }
  1414. + }
  1415. + 
  1416. + /* Return the position to the end of `count' vi style words from `from'.
  1417. +    If that many words cannot be found before the end of the buffer, return 0.
  1418. +    `count' negative means scan backward and stop at word beginning.  */
  1419. + 
  1420. + mvi_scan_end (from, count, is_command)
  1421. +      register int from, count;
  1422. +      int is_command;
  1423. + {
  1424. +   register int beg = FirstCharacter;
  1425. +   register int end = NumCharacters + 1;
  1426. +   char start_type;
  1427. + 
  1428. +   immediate_quit = 1;
  1429. +   QUIT;
  1430. + 
  1431. +   if(is_command)
  1432. +   {
  1433. +       while (count > 0)
  1434. +         {
  1435. +           while (1)
  1436. +         {
  1437. +           if (from == end)
  1438. +             {
  1439. +               immediate_quit = 0;
  1440. +               return 0;
  1441. +             }
  1442. +           if (mvi_syntax_table[CharAt (from)] != MVI_SPACE)
  1443. +             break;
  1444. +           from++;
  1445. +         }
  1446. +           start_type = mvi_syntax_table[CharAt (from)];
  1447. +           while (1)
  1448. +         {
  1449. +           if (from == end) break;
  1450. +           if (mvi_syntax_table[CharAt (from)] != start_type)
  1451. +             break;
  1452. +           from++;
  1453. +         }
  1454. +           count--;
  1455. +         }
  1456. +       while (count < 0)
  1457. +         {
  1458. +           if (from != beg) 
  1459. +         start_type = mvi_syntax_table[CharAt (from - 1)];
  1460. +           while (1)
  1461. +         {
  1462. +           if (from == beg)
  1463. +             {
  1464. +               immediate_quit = 0;
  1465. +               return 0;
  1466. +             }
  1467. +           if (mvi_syntax_table[CharAt (from - 1)] != start_type)
  1468. +             break;
  1469. +           from--;
  1470. +         }
  1471. +           while (1)
  1472. +         {
  1473. +           if (from == beg) break;
  1474. +           if (mvi_syntax_table[CharAt (from - 1)] != MVI_SPACE)
  1475. +             break;
  1476. +           from--;
  1477. +         }
  1478. +           count++;
  1479. +         }
  1480. +   }
  1481. +   else
  1482. +   {
  1483. +       while (count > 0)
  1484. +         {
  1485. +           while (1)
  1486. +         {
  1487. +           if (from == end || from == (end - 1))
  1488. +             {
  1489. +               immediate_quit = 0;
  1490. +               return 0;
  1491. +             }
  1492. +           if (mvi_syntax_table[CharAt (from + 1)] != MVI_SPACE)
  1493. +             break;
  1494. +           from++;
  1495. +         }
  1496. +           start_type = mvi_syntax_table[CharAt (from + 1)];
  1497. +           while (1)
  1498. +         {
  1499. +           if (from == end || from == (end - 1)) break;
  1500. +           if (mvi_syntax_table[CharAt (from + 1)] != start_type)
  1501. +             break;
  1502. +           from++;
  1503. +         }
  1504. +           count--;
  1505. +         }
  1506. +       while (count < 0)
  1507. +         {
  1508. +           start_type = mvi_syntax_table[CharAt (from)];
  1509. +           while (1)
  1510. +         {
  1511. +           if (from == beg)
  1512. +             {
  1513. +               immediate_quit = 0;
  1514. +               return 0;
  1515. +             }
  1516. +           if (mvi_syntax_table[CharAt (from)] != start_type)
  1517. +             break;
  1518. +           from--;
  1519. +         }
  1520. +           while (1)
  1521. +         {
  1522. +           if (from == beg) break;
  1523. +           if (mvi_syntax_table[CharAt (from)] != MVI_SPACE)
  1524. +             break;
  1525. +           from--;
  1526. +         }
  1527. +           count++;
  1528. +         }
  1529. +   }
  1530. + 
  1531. +   immediate_quit = 0;
  1532. + 
  1533. +   return from;
  1534. + }
  1535. + 
  1536. + DEFUN ("mvi-forward-end", Fmvi_forward_end, Smvi_forward_end, 1, 2, "p\nP",
  1537. +   "Move point forward ARG vi style words (backward if ARG is negative)\n\
  1538. + leaving the point at the end of the word.\n\
  1539. + Normally returns t.\n\
  1540. + If an edge of the buffer is reached, point is left there\n\
  1541. + and nil is returned.")
  1542. +   (count, command)
  1543. +      Lisp_Object count, command;
  1544. + {
  1545. +   int val;
  1546. +   int is_command;
  1547. + 
  1548. +   CHECK_NUMBER (count, 0);
  1549. + 
  1550. +   if (NULL (command)) 
  1551. +     is_command = 0;
  1552. +   else 
  1553. +     is_command = 1;
  1554. + 
  1555. +   if (!(val = mvi_scan_end (point, XINT (count), is_command)))
  1556. +     {
  1557. +       SetPoint (XINT (count) > 0 ? NumCharacters + 1 : FirstCharacter);
  1558. +       return Qnil;
  1559. +     }
  1560. +   SetPoint (val);
  1561. +   return Qt;
  1562. + }
  1563. + 
  1564. + /* Return the position to the END of `count' vi style words from `from'.
  1565. +    If that many words cannot be found before the end of the buffer, return 0.
  1566. +    `count' negative means scan backward and stop at word beginning.  */
  1567. + 
  1568. + mvi_scan_End (from, count, is_command)
  1569. +      register int from, count;
  1570. +      int is_command;
  1571. + {
  1572. +   register int beg = FirstCharacter;
  1573. +   register int end = NumCharacters + 1;
  1574. + 
  1575. +   immediate_quit = 1;
  1576. +   QUIT;
  1577. + 
  1578. +   if(is_command)
  1579. +   {
  1580. +       while (count > 0)
  1581. +         {
  1582. +           while (1)
  1583. +         {
  1584. +           if (from == end)
  1585. +             {
  1586. +               immediate_quit = 0;
  1587. +               return 0;
  1588. +             }
  1589. +           if (mvi_syntax_table[CharAt (from)] != MVI_SPACE)
  1590. +             break;
  1591. +           from++;
  1592. +         }
  1593. +           while (1)
  1594. +         {
  1595. +           if (from == end) break;
  1596. +           if (mvi_syntax_table[CharAt (from)] == MVI_SPACE)
  1597. +             break;
  1598. +           from++;
  1599. +         }
  1600. +           count--;
  1601. +         }
  1602. +       while (count < 0)
  1603. +         {
  1604. +           while (1)
  1605. +         {
  1606. +           if (from == beg)
  1607. +             {
  1608. +               immediate_quit = 0;
  1609. +               return 0;
  1610. +             }
  1611. +           if (mvi_syntax_table[CharAt (from - 1)] == MVI_SPACE)
  1612. +             break;
  1613. +           from--;
  1614. +         }
  1615. +           while (1)
  1616. +         {
  1617. +           if (from == beg) break;
  1618. +           if (mvi_syntax_table[CharAt (from - 1)] != MVI_SPACE)
  1619. +             break;
  1620. +           from--;
  1621. +         }
  1622. +           count++;
  1623. +         }
  1624. +   }
  1625. +   else
  1626. +   {
  1627. +       while (count > 0)
  1628. +         {
  1629. +           while (1)
  1630. +         {
  1631. +           if (from == end || from == (end - 1))
  1632. +             {
  1633. +               immediate_quit = 0;
  1634. +               return 0;
  1635. +             }
  1636. +           if (mvi_syntax_table[CharAt (from + 1)] != MVI_SPACE)
  1637. +             break;
  1638. +           from++;
  1639. +         }
  1640. +           while (1)
  1641. +         {
  1642. +           if (from == end || from == (end - 1)) break;
  1643. +           if (mvi_syntax_table[CharAt (from + 1)] == MVI_SPACE)
  1644. +             break;
  1645. +           from++;
  1646. +         }
  1647. +           count--;
  1648. +         }
  1649. +       while (count < 0)
  1650. +         {
  1651. +           while (1)
  1652. +         {
  1653. +           if (from == beg)
  1654. +             {
  1655. +               immediate_quit = 0;
  1656. +               return 0;
  1657. +             }
  1658. +           if (mvi_syntax_table[CharAt (from)] == MVI_SPACE)
  1659. +             break;
  1660. +           from--;
  1661. +         }
  1662. +           while (1)
  1663. +         {
  1664. +           if (from == beg) break;
  1665. +           if (mvi_syntax_table[CharAt (from)] != MVI_SPACE)
  1666. +             break;
  1667. +           from--;
  1668. +         }
  1669. +           count++;
  1670. +         }
  1671. +   }
  1672. + 
  1673. +   immediate_quit = 0;
  1674. + 
  1675. +   return from;
  1676. + }
  1677. + 
  1678. + DEFUN ("mvi-forward-End", Fmvi_forward_End, Smvi_forward_End, 1, 2, "p\nP",
  1679. +   "Move point forward ARG vi style WORDS (backward if ARG is negative\n\
  1680. + leaving the point at the end of the WORD.\n\
  1681. + Normally returns t.\n\
  1682. + If an edge of the buffer is reached, point is left there\n\
  1683. + and nil is returned.")
  1684. +   (count, command)
  1685. +      Lisp_Object count, command;
  1686. + {
  1687. +   int val;
  1688. +   int is_command;
  1689. + 
  1690. +   CHECK_NUMBER (count, 0);
  1691. + 
  1692. +   if (NULL (command)) 
  1693. +     is_command = 0;
  1694. +   else 
  1695. +     is_command = 1;
  1696. + 
  1697. +   if (!(val = mvi_scan_End (point, XINT (count), is_command)))
  1698. +     {
  1699. +       SetPoint (XINT (count) > 0 ? NumCharacters + 1 : FirstCharacter);
  1700. +       return Qnil;
  1701. +     }
  1702. +   SetPoint (val);
  1703. +   return Qt;
  1704. + }
  1705. + 
  1706. + /* Return the position to the END of `count' vi style words from `from'.
  1707. +    If that many words cannot be found before the end of the buffer, return 0.
  1708. +    `count' negative means scan backward and stop at word beginning.  */
  1709. + 
  1710. + mvi_scan_find (from, count, c, is_command)
  1711. +      register int from, count, c;
  1712. +      int is_command;
  1713. + {
  1714. +   register int beg = FirstCharacter;
  1715. +   register int end = NumCharacters + 1;
  1716. +   int orig_count;
  1717. + 
  1718. +   orig_count = count;
  1719. +   immediate_quit = 1;
  1720. +   QUIT;
  1721. + 
  1722. +   while (count > 0)
  1723. +     {
  1724. +       while (1)
  1725. +     {
  1726. +       from++;
  1727. +       if (from >= end)
  1728. +         {
  1729. +           immediate_quit = 0;
  1730. +           return 0;
  1731. +         }
  1732. +       if (CharAt (from) == c) break;
  1733. +       if (CharAt (from) == '\n') return 0;
  1734. +     }
  1735. +       count--;
  1736. +     }
  1737. +   while (count < 0)
  1738. +     {
  1739. +       while (1)
  1740. +     {
  1741. +       if (from == beg)
  1742. +         {
  1743. +           immediate_quit = 0;
  1744. +           return 0;
  1745. +         }
  1746. +       from--;
  1747. +       if (CharAt (from) == c) break;
  1748. +       if (CharAt (from) == '\n') return 0;
  1749. +     }
  1750. +       count++;
  1751. +     }
  1752. + 
  1753. +   if(is_command && orig_count > 0) from++;
  1754. + 
  1755. +   immediate_quit = 0;
  1756. + 
  1757. +   return from;
  1758. + }
  1759. + 
  1760. + DEFUN ("mvi-find", Fmvi_find, Smvi_find, 2, 3, "p\ncFind char:\nP",
  1761. +   "Move point forward to the character, backwards if negative.\n\
  1762. + Normally returns t.\n\
  1763. + If the search fails, error is signalled and the point is left where it is.")
  1764. +   (count, c, command)
  1765. +      Lisp_Object count, c, command;
  1766. + {
  1767. +   int val;
  1768. +   int is_command;
  1769. +   char *error_message;
  1770. + 
  1771. +   CHECK_NUMBER (count, 0);
  1772. + 
  1773. +   if (NULL (command)) 
  1774. +     is_command = 0;
  1775. +   else 
  1776. +     is_command = 1;
  1777. + 
  1778. +   if (!(val = mvi_scan_find (point, XINT (count), XINT (c), is_command)))
  1779. +     {
  1780. + 
  1781. +          if(XINT (c))
  1782. +     {
  1783. +           error_message = "Character   not found";
  1784. +           error_message[10] = (char) XINT (c);
  1785. +           error(error_message); 
  1786. +     }
  1787. +     else
  1788. +     {
  1789. +           error("Character ^@ not found");
  1790. +     }
  1791. +     }
  1792. +   SetPoint (val);
  1793. +   return Qt;
  1794. + }
  1795. + 
  1796. + /* Return the position to the END of `count' vi style words from `from'.
  1797. +    If that many words cannot be found before the end of the buffer, return 0.
  1798. +    `count' negative means scan backward and stop at word beginning.  */
  1799. + 
  1800. + mvi_scan_to (from, count, c, is_command)
  1801. +      register int from, count, c;
  1802. +      int is_command;
  1803. + {
  1804. +   register int beg = FirstCharacter;
  1805. +   register int end = NumCharacters;
  1806. +   int orig_count;
  1807. + 
  1808. +   orig_count = count;
  1809. +   immediate_quit = 1;
  1810. +   QUIT;
  1811. + 
  1812. +   while (count > 0)
  1813. +     {
  1814. +       while (1)
  1815. +     {
  1816. +       from++;
  1817. +       if (from >= end)
  1818. +         {
  1819. +           immediate_quit = 0;
  1820. +           return 0;
  1821. +         }
  1822. +       if (CharAt (from + 1) == c) break;
  1823. +       if (CharAt (from + 1) == '\n') return 0;
  1824. +     }
  1825. +       count--;
  1826. +     }
  1827. +   while (count < 0)
  1828. +     {
  1829. +       while (1)
  1830. +     {
  1831. +       from--;
  1832. +       if (from <= beg)
  1833. +         {
  1834. +           immediate_quit = 0;
  1835. +           return 0;
  1836. +         }
  1837. +       if (CharAt (from - 1) == c) break;
  1838. +       if (CharAt (from - 1) == '\n') return 0;
  1839. +     }
  1840. +       count++;
  1841. +     }
  1842. + 
  1843. +   if(is_command && orig_count > 0) from++;
  1844. + 
  1845. +   immediate_quit = 0;
  1846. + 
  1847. +   return from;
  1848. + }
  1849. + 
  1850. + DEFUN ("mvi-to", Fmvi_to, Smvi_to, 2, 3, "p\ncFind char:\nP",
  1851. +   "Move point forward to the character (backward if ARG is negative).\n\
  1852. + Normally returns t.\n\
  1853. + If the character cannot be found error is signalled and the point is left\n\
  1854. + where it is at.")
  1855. +   (count, c, command)
  1856. +      Lisp_Object count, c, command;
  1857. + {
  1858. +   int val;
  1859. +   int is_command;
  1860. +   char *error_message;
  1861. + 
  1862. +   CHECK_NUMBER (count, 0);
  1863. + 
  1864. +   if (NULL (command)) 
  1865. +     is_command = 0;
  1866. +   else 
  1867. +     is_command = 1;
  1868. + 
  1869. +   if (!(val = mvi_scan_to (point, XINT (count), XINT (c), is_command)))
  1870. +     {
  1871. + 
  1872. +          if(XINT (c))
  1873. +     {
  1874. +           error_message = "Character   not found";
  1875. +           error_message[10] = (char) XINT (c);
  1876. +           error(error_message); 
  1877. +     }
  1878. +     else
  1879. +     {
  1880. +           error("Character ^@ not found");
  1881. +     }
  1882. +     }
  1883. +   SetPoint (val);
  1884. +   return Qt;
  1885. + }
  1886. + 
  1887.   int parse_sexp_ignore_comments;
  1888.   
  1889.   Lisp_Object
  1890. ***************
  1891. *** 713,718 ****
  1892. --- 1475,1524 ----
  1893.       pos--, quoted = !quoted;
  1894.     return quoted;
  1895.   }
  1896. + 
  1897. + 
  1898. + DEFUN ("folded-p", Ffolded_p, Sfolded_p, 0, 1, 0,
  1899. +   "Return t if position POS is currently in a folded region.\n\
  1900. + Returns nil if that position is not in a fold.\n\
  1901. + POS defaults to point.")
  1902. +   (pos)
  1903. +      Lisp_Object pos;
  1904. + {
  1905. +   register int posint;
  1906. +   register int beg = FirstCharacter;
  1907. +   
  1908. +   if (NULL (pos))
  1909. +     posint = point;
  1910. +   else
  1911. +     {
  1912. +       CHECK_NUMBER_COERCE_MARKER (pos, 0);
  1913. +       posint = XINT (pos);
  1914. +     }
  1915. + 
  1916. +   immediate_quit = 1;
  1917. +   QUIT;
  1918. + 
  1919. +   while (1)
  1920. +     {
  1921. +       if (posint == beg)
  1922. +     {
  1923. +       immediate_quit = 0;
  1924. +       return Qnil;
  1925. +     }
  1926. +       if (CharAt (posint - 1) <= '\032' && CharAt (posint - 1) >= '\015')
  1927. +     {
  1928. +       immediate_quit = 0;
  1929. +       return Qt;
  1930. +     }
  1931. +       if (CharAt (posint - 1) == '\n') 
  1932. +     {
  1933. +       immediate_quit = 0;
  1934. +       return Qnil;
  1935. +     }
  1936. +       posint--;
  1937. +     }
  1938. + }
  1939. + 
  1940.   
  1941.   DEFUN ("scan-lists", Fscan_lists, Sscan_lists, 3, 3, 0,
  1942.     "Scan from character number FROM by COUNT lists.\n\
  1943. ***************
  1944. *** 1126,1131 ****
  1945. --- 1932,1944 ----
  1946.     defsubr (&Sdescribe_syntax);
  1947.   
  1948.     defsubr (&Sforward_word);
  1949. +   defsubr (&Smvi_forward_word);
  1950. +   defsubr (&Smvi_forward_Word);
  1951. +   defsubr (&Smvi_forward_end);
  1952. +   defsubr (&Smvi_forward_End);
  1953. +   defsubr (&Smvi_find);
  1954. +   defsubr (&Smvi_to);
  1955. +   defsubr (&Sfolded_p);
  1956.   
  1957.     defsubr (&Sscan_lists);
  1958.     defsubr (&Sscan_sexps);
  1959. *** sysdep.c.or    Mon Feb 13 10:33:37 1989
  1960. --- sysdep.c    Mon Feb 13 10:33:37 1989
  1961. ***************
  1962. *** 112,117 ****
  1963. --- 112,118 ----
  1964.   
  1965.   #ifdef HAVE_TERMIO
  1966.   #include <termio.h>
  1967. + #undef TIOCGETC
  1968.   #undef TIOCGETP
  1969.   #define TIOCGETP TCGETA
  1970.   #undef TIOCSETN
  1971. ***************
  1972. *** 150,156 ****
  1973.   /* Some USG systems with TIOCGWINSZ need this file; some don't have it.
  1974.      We don't know how to distinguish them.
  1975.      If this #include gets an error, just delete it.  */
  1976. ! #include <sys/sioctl.h>
  1977.   #endif
  1978.   #endif
  1979.   #endif
  1980. --- 151,158 ----
  1981.   /* Some USG systems with TIOCGWINSZ need this file; some don't have it.
  1982.      We don't know how to distinguish them.
  1983.      If this #include gets an error, just delete it.  */
  1984. ! #include <sys/stream.h>
  1985. ! #include <sys/ptem.h>
  1986.   #endif
  1987.   #endif
  1988.   #endif
  1989. *** xdisp.c.or    Mon Feb 13 10:33:37 1989
  1990. --- xdisp.c    Mon Feb 13 10:33:37 1989
  1991. ***************
  1992. *** 561,566 ****
  1993. --- 561,568 ----
  1994.     int inhibit_hairy_id = 0;
  1995.     int opoint;
  1996.     int tem;
  1997. + int mvi_scroll_step;
  1998. + int mvi_scroll_step_max;
  1999.   
  2000.     if (screen_height == 0) abort (); /* Some bug zeros some core */
  2001.   
  2002. ***************
  2003. *** 733,749 ****
  2004.   
  2005.     /* Try to scroll by specified few lines */
  2006.   
  2007. !   if (scroll_step && !clip_changed)
  2008.       {
  2009.         if (point > startp)
  2010.       {
  2011.         pos = *vmotion (bf_s1 + bf_s2 + 1 - XFASTINT (w->window_end_pos),
  2012. !               scroll_step, width, hscroll, window);
  2013.         if (pos.vpos >= height)
  2014.           goto scroll_fail;
  2015.       }
  2016.   
  2017. !       pos = *vmotion (startp, point < startp ? - scroll_step : scroll_step,
  2018.                 width, hscroll, window);
  2019.   
  2020.         if (point >= pos.bufpos)
  2021. --- 735,760 ----
  2022.   
  2023.     /* Try to scroll by specified few lines */
  2024.   
  2025. !  if(scroll_step <= 0)
  2026. !    mvi_scroll_step_max = 0;
  2027. ! else
  2028. !    mvi_scroll_step_max = height / 2;
  2029. ! 
  2030. ! mvi_scroll_step = scroll_step;
  2031. ! mvi_top:;
  2032. ! 
  2033. !   if (mvi_scroll_step && !clip_changed)
  2034.       {
  2035.         if (point > startp)
  2036.       {
  2037.         pos = *vmotion (bf_s1 + bf_s2 + 1 - XFASTINT (w->window_end_pos),
  2038. !               mvi_scroll_step, width, hscroll, window);
  2039.         if (pos.vpos >= height)
  2040.           goto scroll_fail;
  2041.       }
  2042.   
  2043. !       pos = *vmotion (startp, point < startp ? 
  2044. !               - mvi_scroll_step : mvi_scroll_step,
  2045.                 width, hscroll, window);
  2046.   
  2047.         if (point >= pos.bufpos)
  2048. ***************
  2049. *** 751,761 ****
  2050.         if (try_window (window, pos.bufpos))
  2051.           goto done;
  2052.         else
  2053. !         cancel_my_columns (w);
  2054.       }
  2055.       scroll_fail: ;
  2056.       }
  2057.   
  2058.     /* Finally, just choose place to start which centers point */
  2059.   
  2060.   recenter:
  2061. --- 762,775 ----
  2062.         if (try_window (window, pos.bufpos))
  2063.           goto done;
  2064.         else
  2065. !           cancel_my_columns (w);
  2066.       }
  2067.       scroll_fail: ;
  2068.       }
  2069.   
  2070. +   mvi_scroll_step++;
  2071. +   if(mvi_scroll_step <= mvi_scroll_step_max) goto mvi_top;
  2072. + 
  2073.     /* Finally, just choose place to start which centers point */
  2074.   
  2075.   recenter:
  2076. ***************
  2077. *** 1219,1224 ****
  2078. --- 1233,1239 ----
  2079.         ? XINT (bf_cur->selective_display)
  2080.       : !NULL (bf_cur->selective_display) ? -1 : 0;
  2081.     int selective_e = selective && !NULL (bf_cur->selective_display_ellipses);
  2082. +   int folded = !NULL (bf_cur->folded_display);
  2083.   
  2084.     hpos += XFASTINT (w->left);
  2085.     line = get_display_line (vpos, XFASTINT (w->left));
  2086. ***************
  2087. *** 1305,1311 ****
  2088.         while ((p1 - startp + taboffset + hscroll - (hscroll > 0))
  2089.            % tab_width);
  2090.       }
  2091. !       else if (c == Ctl('M') && selective == -1)
  2092.       {
  2093.         pos = find_next_newline (pos, 1);
  2094.         if (CharAt (pos - 1) == '\n')
  2095. --- 1320,1327 ----
  2096.         while ((p1 - startp + taboffset + hscroll - (hscroll > 0))
  2097.            % tab_width);
  2098.       }
  2099. !       else if ((c == Ctl('M') && selective == -1)
  2100. !            || (c <= Ctl('Z') && c >= Ctl('M') && folded))
  2101.       {
  2102.         pos = find_next_newline (pos, 1);
  2103.         if (CharAt (pos - 1) == '\n')
  2104. *** ymakefile.or    Mon Feb 13 10:33:37 1989
  2105. --- ymakefile    Mon Feb 13 10:33:37 1989
  2106. ***************
  2107. *** 142,148 ****
  2108.   SHORT= shortnames
  2109.   #endif /* SHORTNAMES */
  2110.   
  2111. ! CFLAGS= C_DEBUG_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM
  2112.   /* DO NOT use -R.  There is a special hack described in lastfile.c
  2113.      which is used instead.  Some initialized data areas are modified
  2114.      at initial startup, then labeled as part of the text area when
  2115. --- 142,148 ----
  2116.   SHORT= shortnames
  2117.   #endif /* SHORTNAMES */
  2118.   
  2119. ! CFLAGS= C_OPTIMIZE_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM
  2120.   /* DO NOT use -R.  There is a special hack described in lastfile.c
  2121.      which is used instead.  Some initialized data areas are modified
  2122.      at initial startup, then labeled as part of the text area when
  2123. ***************
  2124. *** 251,257 ****
  2125.       ${lispdir}paragraphs.elc ${lispdir}lisp-mode.elc \
  2126.       ${lispdir}text-mode.elc ${lispdir}fill.elc \
  2127.       ${lispdir}c-mode.elc ${lispdir}isearch.elc \
  2128. !     ${lispdir}replace.elc ${lispdir}abbrev.elc \
  2129.       ${lispdir}buff-menu.elc ${lispdir}subr.elc
  2130.   
  2131.   /* just to be sure the sh is used */
  2132. --- 251,257 ----
  2133.       ${lispdir}paragraphs.elc ${lispdir}lisp-mode.elc \
  2134.       ${lispdir}text-mode.elc ${lispdir}fill.elc \
  2135.       ${lispdir}c-mode.elc ${lispdir}isearch.elc \
  2136. !     ${lispdir}replace.elc ${lispdir}abbrev.elc ${lispdir}mvi.elc \
  2137.       ${lispdir}buff-menu.elc ${lispdir}subr.elc
  2138.   
  2139.   /* just to be sure the sh is used */
  2140. //E*O*F mvi.patch//
  2141.  
  2142. exit 0
  2143. -- 
  2144. Doug Scofea   Email: nimbus3!djs@cis.ohio-state.edu    Phone:+1 614 459-1889
  2145.