Mercurial > emacs

comparison lisp/emulation/viper.el @ 10792:70977216c215

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use single semicolon in comments.
author Karl Heuer <kwzh@gnu.org>
date Wed, 22 Feb 1995 00:31:07 +0000
parents af7c0bb1059f
children e79aca68f09c
comparison
equal deleted inserted replaced
10791:1d1db37a4bb7 10792:70977216c215
1 ;;; viper.el --- A full-featured Vi emulator for GNU Emacs 19 and XEmacs 19, 1 ;;; viper.el --- A full-featured Vi emulator for GNU Emacs 19 and XEmacs 19,
2 ;; a VI Plan for Emacs Rescue, 2 ;; a VI Plan for Emacs Rescue,
3 ;; and a venomous VI PERil. 3 ;; and a venomous VI PERil.
4 ;; Viper Is also a Package for Emacs Rebels. 4 ;; Viper Is also a Package for Emacs Rebels.
5 5
6 ;; Version: 2.71 6 ;; Version: 2.72
7 ;; Keywords: emulations 7 ;; Keywords: emulations
8 ;; Author: Michael Kifer <kifer@cs.sunysb.edu> 8 ;; Author: Michael Kifer <kifer@cs.sunysb.edu>
9 9
10 ;; LCD Archive Entry: 10 ;; LCD Archive Entry:
11 ;; viper|Michael Kifer|kifer@cs.sunysb.edu| 11 ;; viper|Michael Kifer|kifer@cs.sunysb.edu|
12 ;; A full-featured Vi emulator for GNU Emacs 19 and XEmacs 19| 12 ;; A full-featured Vi emulator for GNU Emacs 19 and XEmacs 19|
13 ;; 17-February-95|2.71|~/modes/viper.tar.Z| 13 ;; 19-February-95|2.72|~/modes/viper.tar.Z|
14 14
15 (defconst viper-version "2.71 of February 17, 1995" 15 (defconst viper-version "2.72 of February 19, 1995"
16 "The current version of Viper") 16 "The current version of Viper")
17 17
18 ;; This file is part of GNU Emacs. 18 ;; This file is part of GNU Emacs.
19 19
20 ;; GNU Emacs is free software; you can redistribute it and/or modify 20 ;; GNU Emacs is free software; you can redistribute it and/or modify
734 ;; the search overlay 734 ;; the search overlay
735 (vip-deflocalvar vip-search-overlay nil) 735 (vip-deflocalvar vip-search-overlay nil)
736 736
737 737
738 (defvar vip-heading-start 738 (defvar vip-heading-start
739 (concat "^\\s-*(\\s-*defun\\s-\\|" ;; lisp 739 (concat "^\\s-*(\\s-*defun\\s-\\|" ; lisp
740 "^{\\s-*$\\|^[_a-zA-Z][^()]*[()].*{\\s-*$\\|" ;; C/C++ 740 "^{\\s-*$\\|^[_a-zA-Z][^()]*[()].*{\\s-*$\\|" ; C/C++
741 "^\\s-*class.*{\\|^\\s-*struct.*{\\|^\\s-*enum.*{\\|" 741 "^\\s-*class.*{\\|^\\s-*struct.*{\\|^\\s-*enum.*{\\|"
742 "^\\\\[sb][a-z]*{.*}\\s-*$\\|" ;; latex 742 "^\\\\[sb][a-z]*{.*}\\s-*$\\|" ; latex
743 "^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ;; texinfo 743 "^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ; texinfo
744 "^.+:-") ;; prolog 744 "^.+:-") ; prolog
745 "*Regexps for Headings. Used by \[\[ and \]\].") 745 "*Regexps for Headings. Used by \[\[ and \]\].")
746 746
747 (defvar vip-heading-end 747 (defvar vip-heading-end
748 (concat "^}\\|" ;; C/C++ 748 (concat "^}\\|" ; C/C++
749 "^\\\\end{\\|" ;; latex 749 "^\\\\end{\\|" ; latex
750 "^@end \\|" ;; texinfo 750 "^@end \\|" ; texinfo
751 ")\n\n[ \t\n]*\\|" ;; lisp 751 ")\n\n[ \t\n]*\\|" ; lisp
752 "\\.\\s-*$") ;; prolog 752 "\\.\\s-*$") ; prolog
753 "*Regexps to end Headings/Sections. Used by \[\].") 753 "*Regexps to end Headings/Sections. Used by \[\].")
754 754
755 755
756 ;; These two vars control the interaction of jumps performed by ' and `. 756 ;; These two vars control the interaction of jumps performed by ' and `.
757 ;; In this new version, '' doesn't erase the marks set by ``, so one can 757 ;; In this new version, '' doesn't erase the marks set by ``, so one can