Mercurial > emacs
comparison lisp/emulation/viper.el @ 10792:70977216c215
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 |