diff options
| author | Chong Yidong | 2012-04-09 21:05:48 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-04-09 21:05:48 +0800 |
| commit | fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5 (patch) | |
| tree | eba43d1fa2427a77f1f6b1468838426b33ea5973 /lisp/emulation | |
| parent | a18ecafa99e7e7c3caa35ed68dd8a7b9b5d2b8e3 (diff) | |
| download | emacs-fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5.tar.gz emacs-fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5.zip | |
Remove * characters from the front of variable docstrings.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/viper-ex.el | 4 | ||||
| -rw-r--r-- | lisp/emulation/viper-init.el | 58 | ||||
| -rw-r--r-- | lisp/emulation/viper-keym.el | 8 | ||||
| -rw-r--r-- | lisp/emulation/viper-mous.el | 8 | ||||
| -rw-r--r-- | lisp/emulation/viper-util.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/viper.el | 4 |
7 files changed, 43 insertions, 43 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 68f40349454..111ce34dc1a 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el | |||
| @@ -2119,7 +2119,7 @@ Undo previous insertion and inserts new." | |||
| 2119 | (defcustom viper-smart-suffix-list | 2119 | (defcustom viper-smart-suffix-list |
| 2120 | '("" "tex" "c" "cc" "C" "java" "el" "html" "htm" "xml" | 2120 | '("" "tex" "c" "cc" "C" "java" "el" "html" "htm" "xml" |
| 2121 | "pl" "flr" "P" "p" "h" "H") | 2121 | "pl" "flr" "P" "p" "h" "H") |
| 2122 | "*List of suffixes that Viper tries to append to filenames ending with a `.'. | 2122 | "List of suffixes that Viper tries to append to filenames ending with a `.'. |
| 2123 | This is useful when the current directory contains files with the same | 2123 | This is useful when the current directory contains files with the same |
| 2124 | prefix and many different suffixes. Usually, only one of the suffixes | 2124 | prefix and many different suffixes. Usually, only one of the suffixes |
| 2125 | represents an editable file. However, file completion will stop at the `.' | 2125 | represents an editable file. However, file completion will stop at the `.' |
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el index 3d538f1bd0d..acaedde3004 100644 --- a/lisp/emulation/viper-ex.el +++ b/lisp/emulation/viper-ex.el | |||
| @@ -368,14 +368,14 @@ corresponding function symbol." | |||
| 368 | (defvar viper-keep-reading-filename nil) | 368 | (defvar viper-keep-reading-filename nil) |
| 369 | 369 | ||
| 370 | (defcustom ex-cycle-other-window t | 370 | (defcustom ex-cycle-other-window t |
| 371 | "*If t, :n and :b cycles through files and buffers in other window. | 371 | "If t, :n and :b cycles through files and buffers in other window. |
| 372 | Then :N and :B cycles in the current window. If nil, this behavior is | 372 | Then :N and :B cycles in the current window. If nil, this behavior is |
| 373 | reversed." | 373 | reversed." |
| 374 | :type 'boolean | 374 | :type 'boolean |
| 375 | :group 'viper-ex) | 375 | :group 'viper-ex) |
| 376 | 376 | ||
| 377 | (defcustom ex-cycle-through-non-files nil | 377 | (defcustom ex-cycle-through-non-files nil |
| 378 | "*Cycle through *scratch* and other buffers that don't visit any file." | 378 | "Cycle through *scratch* and other buffers that don't visit any file." |
| 379 | :type 'boolean | 379 | :type 'boolean |
| 380 | :group 'viper-ex) | 380 | :group 'viper-ex) |
| 381 | 381 | ||
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index f8ab5a1f805..76a8c410676 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el | |||
| @@ -372,7 +372,7 @@ Use `M-x viper-set-expert-level' to change this.") | |||
| 372 | (defconst viper-buffer-undo-list-mark 'viper) | 372 | (defconst viper-buffer-undo-list-mark 'viper) |
| 373 | 373 | ||
| 374 | (defcustom viper-keep-point-on-undo nil | 374 | (defcustom viper-keep-point-on-undo nil |
| 375 | "*Non-nil means not to move point while undoing commands. | 375 | "Non-nil means not to move point while undoing commands. |
| 376 | This style is different from Emacs and Vi. Try it to see if | 376 | This style is different from Emacs and Vi. Try it to see if |
| 377 | it better fits your working style." | 377 | it better fits your working style." |
| 378 | :type 'boolean | 378 | :type 'boolean |
| @@ -403,7 +403,7 @@ delete the text being replaced, as in standard Vi." | |||
| 403 | :group 'viper) | 403 | :group 'viper) |
| 404 | 404 | ||
| 405 | (defcustom viper-replace-overlay-cursor-color "Red" | 405 | (defcustom viper-replace-overlay-cursor-color "Red" |
| 406 | "*Cursor color when Viper is in Replace state." | 406 | "Cursor color when Viper is in Replace state." |
| 407 | :type 'string | 407 | :type 'string |
| 408 | :group 'viper) | 408 | :group 'viper) |
| 409 | 409 | ||
| @@ -450,7 +450,7 @@ is non-nil." | |||
| 450 | (defcustom viper-use-replace-region-delimiters | 450 | (defcustom viper-use-replace-region-delimiters |
| 451 | (or (not (viper-has-face-support-p)) | 451 | (or (not (viper-has-face-support-p)) |
| 452 | (and (featurep 'xemacs) (eq (viper-device-type) 'tty))) | 452 | (and (featurep 'xemacs) (eq (viper-device-type) 'tty))) |
| 453 | "*If non-nil, Viper will always use `viper-replace-region-end-delimiter' and | 453 | "If non-nil, Viper will always use `viper-replace-region-end-delimiter' and |
| 454 | `viper-replace-region-start-delimiter' to delimit replacement regions, even on | 454 | `viper-replace-region-start-delimiter' to delimit replacement regions, even on |
| 455 | color displays. By default, the delimiters are used only on TTYs." | 455 | color displays. By default, the delimiters are used only on TTYs." |
| 456 | :type 'boolean | 456 | :type 'boolean |
| @@ -519,7 +519,7 @@ text." | |||
| 519 | 519 | ||
| 520 | ;; Fast keyseq and ESC keyseq timeouts | 520 | ;; Fast keyseq and ESC keyseq timeouts |
| 521 | (defcustom viper-fast-keyseq-timeout 200 | 521 | (defcustom viper-fast-keyseq-timeout 200 |
| 522 | "*Key sequence separated by no more than this many milliseconds is viewed as a Vi-style macro, if such a macro is defined. | 522 | "Key sequence separated by no more than this many milliseconds is viewed as a Vi-style macro, if such a macro is defined. |
| 523 | Setting this too high may slow down your typing. Setting this value too low | 523 | Setting this too high may slow down your typing. Setting this value too low |
| 524 | will make it hard to use Vi-style timeout macros." | 524 | will make it hard to use Vi-style timeout macros." |
| 525 | :type 'integer | 525 | :type 'integer |
| @@ -549,14 +549,14 @@ will make it hard to use Vi-style timeout macros." | |||
| 549 | 549 | ||
| 550 | (viper-deflocalvar viper-auto-indent nil "") | 550 | (viper-deflocalvar viper-auto-indent nil "") |
| 551 | (defcustom viper-auto-indent nil | 551 | (defcustom viper-auto-indent nil |
| 552 | "*Enable autoindent, if t. | 552 | "Enable autoindent, if t. |
| 553 | This is a buffer-local variable." | 553 | This is a buffer-local variable." |
| 554 | :type 'boolean | 554 | :type 'boolean |
| 555 | :group 'viper) | 555 | :group 'viper) |
| 556 | 556 | ||
| 557 | (viper-deflocalvar viper-electric-mode t "") | 557 | (viper-deflocalvar viper-electric-mode t "") |
| 558 | (defcustom viper-electric-mode t | 558 | (defcustom viper-electric-mode t |
| 559 | "*If t, electrify Viper. | 559 | "If t, electrify Viper. |
| 560 | Currently, this only electrifies auto-indentation, making it appropriate to the | 560 | Currently, this only electrifies auto-indentation, making it appropriate to the |
| 561 | mode of the buffer. | 561 | mode of the buffer. |
| 562 | This means that auto-indentation will depart from standard Vi and will indent | 562 | This means that auto-indentation will depart from standard Vi and will indent |
| @@ -566,7 +566,7 @@ programs and LaTeX documents." | |||
| 566 | :group 'viper) | 566 | :group 'viper) |
| 567 | 567 | ||
| 568 | (defcustom viper-shift-width 8 | 568 | (defcustom viper-shift-width 8 |
| 569 | "*The value of the shiftwidth. | 569 | "The value of the shiftwidth. |
| 570 | This determines the number of columns by which the Ctl-t moves the cursor in | 570 | This determines the number of columns by which the Ctl-t moves the cursor in |
| 571 | the Insert state." | 571 | the Insert state." |
| 572 | :type 'integer | 572 | :type 'integer |
| @@ -575,7 +575,7 @@ the Insert state." | |||
| 575 | ;; Variables for repeating destructive commands | 575 | ;; Variables for repeating destructive commands |
| 576 | 576 | ||
| 577 | (defcustom viper-keep-point-on-repeat t | 577 | (defcustom viper-keep-point-on-repeat t |
| 578 | "*If t, don't move point when repeating previous command. | 578 | "If t, don't move point when repeating previous command. |
| 579 | This is useful for doing repeated changes with the '.' key. | 579 | This is useful for doing repeated changes with the '.' key. |
| 580 | The user can change this to nil, if she likes when the cursor moves | 580 | The user can change this to nil, if she likes when the cursor moves |
| 581 | to a new place after repeating previous Vi command." | 581 | to a new place after repeating previous Vi command." |
| @@ -668,18 +668,18 @@ to a new place after repeating previous Vi command." | |||
| 668 | (defvar viper-s-forward nil) | 668 | (defvar viper-s-forward nil) |
| 669 | 669 | ||
| 670 | (defcustom viper-case-fold-search nil | 670 | (defcustom viper-case-fold-search nil |
| 671 | "*If not nil, search ignores cases." | 671 | "If not nil, search ignores cases." |
| 672 | :type 'boolean | 672 | :type 'boolean |
| 673 | :group 'viper-search) | 673 | :group 'viper-search) |
| 674 | 674 | ||
| 675 | (defcustom viper-re-search t | 675 | (defcustom viper-re-search t |
| 676 | "*If not nil, search is regexp search, otherwise vanilla search." | 676 | "If not nil, search is regexp search, otherwise vanilla search." |
| 677 | :type 'boolean | 677 | :type 'boolean |
| 678 | :tag "Regexp Search" | 678 | :tag "Regexp Search" |
| 679 | :group 'viper-search) | 679 | :group 'viper-search) |
| 680 | 680 | ||
| 681 | (defcustom viper-search-scroll-threshold 2 | 681 | (defcustom viper-search-scroll-threshold 2 |
| 682 | "*If search lands within this threshold from the window top/bottom, | 682 | "If search lands within this threshold from the window top/bottom, |
| 683 | the window will be scrolled up or down appropriately, to reveal context. | 683 | the window will be scrolled up or down appropriately, to reveal context. |
| 684 | If you want Viper search to behave as usual in Vi, set this variable to a | 684 | If you want Viper search to behave as usual in Vi, set this variable to a |
| 685 | negative number." | 685 | negative number." |
| @@ -687,32 +687,32 @@ negative number." | |||
| 687 | :group 'viper-search) | 687 | :group 'viper-search) |
| 688 | 688 | ||
| 689 | (defcustom viper-re-query-replace t | 689 | (defcustom viper-re-query-replace t |
| 690 | "*If t then do regexp replace, if nil then do string replace." | 690 | "If t then do regexp replace, if nil then do string replace." |
| 691 | :type 'boolean | 691 | :type 'boolean |
| 692 | :tag "Regexp Query Replace" | 692 | :tag "Regexp Query Replace" |
| 693 | :group 'viper-search) | 693 | :group 'viper-search) |
| 694 | 694 | ||
| 695 | (defcustom viper-re-replace t | 695 | (defcustom viper-re-replace t |
| 696 | "*If t, do regexp replace. nil means do string replace." | 696 | "If t, do regexp replace. nil means do string replace." |
| 697 | :type 'boolean | 697 | :type 'boolean |
| 698 | :tag "Regexp Replace" | 698 | :tag "Regexp Replace" |
| 699 | :group 'viper-search) | 699 | :group 'viper-search) |
| 700 | 700 | ||
| 701 | (defcustom viper-parse-sexp-ignore-comments t | 701 | (defcustom viper-parse-sexp-ignore-comments t |
| 702 | "*If t, `%' ignores the parentheses that occur inside comments." | 702 | "If t, `%' ignores the parentheses that occur inside comments." |
| 703 | :type 'boolean | 703 | :type 'boolean |
| 704 | :group 'viper) | 704 | :group 'viper) |
| 705 | 705 | ||
| 706 | (viper-deflocalvar viper-ex-style-motion t "") | 706 | (viper-deflocalvar viper-ex-style-motion t "") |
| 707 | (defcustom viper-ex-style-motion t | 707 | (defcustom viper-ex-style-motion t |
| 708 | "*If t, the commands l,h do not cross lines, etc (Ex-style). | 708 | "If t, the commands l,h do not cross lines, etc (Ex-style). |
| 709 | If nil, these commands cross line boundaries." | 709 | If nil, these commands cross line boundaries." |
| 710 | :type 'boolean | 710 | :type 'boolean |
| 711 | :group 'viper) | 711 | :group 'viper) |
| 712 | 712 | ||
| 713 | (viper-deflocalvar viper-ex-style-editing t "") | 713 | (viper-deflocalvar viper-ex-style-editing t "") |
| 714 | (defcustom viper-ex-style-editing t | 714 | (defcustom viper-ex-style-editing t |
| 715 | "*If t, Ex-style behavior while editing in Vi command and insert states. | 715 | "If t, Ex-style behavior while editing in Vi command and insert states. |
| 716 | `Backspace' and `Delete' don't cross line boundaries in insert. | 716 | `Backspace' and `Delete' don't cross line boundaries in insert. |
| 717 | `X' and `x' can't delete characters across line boundary in Vi, etc. | 717 | `X' and `x' can't delete characters across line boundary in Vi, etc. |
| 718 | Note: this doesn't preclude `Backspace' and `Delete' from deleting characters | 718 | Note: this doesn't preclude `Backspace' and `Delete' from deleting characters |
| @@ -724,32 +724,32 @@ If nil, the above commands can work across lines." | |||
| 724 | 724 | ||
| 725 | (viper-deflocalvar viper-ESC-moves-cursor-back viper-ex-style-editing "") | 725 | (viper-deflocalvar viper-ESC-moves-cursor-back viper-ex-style-editing "") |
| 726 | (defcustom viper-ESC-moves-cursor-back nil | 726 | (defcustom viper-ESC-moves-cursor-back nil |
| 727 | "*If t, ESC moves cursor back when changing from insert to vi state. | 727 | "If t, ESC moves cursor back when changing from insert to vi state. |
| 728 | If nil, the cursor stays where it was when ESC was hit." | 728 | If nil, the cursor stays where it was when ESC was hit." |
| 729 | :type 'boolean | 729 | :type 'boolean |
| 730 | :group 'viper) | 730 | :group 'viper) |
| 731 | 731 | ||
| 732 | (viper-deflocalvar viper-delete-backwards-in-replace nil "") | 732 | (viper-deflocalvar viper-delete-backwards-in-replace nil "") |
| 733 | (defcustom viper-delete-backwards-in-replace nil | 733 | (defcustom viper-delete-backwards-in-replace nil |
| 734 | "*If t, DEL key will delete characters while moving the cursor backwards. | 734 | "If t, DEL key will delete characters while moving the cursor backwards. |
| 735 | If nil, the cursor will move backwards without deleting anything." | 735 | If nil, the cursor will move backwards without deleting anything." |
| 736 | :type 'boolean | 736 | :type 'boolean |
| 737 | :group 'viper) | 737 | :group 'viper) |
| 738 | 738 | ||
| 739 | (defcustom viper-buffer-search-char nil | 739 | (defcustom viper-buffer-search-char nil |
| 740 | "*Key used for buffer-searching. Must be a character type, e.g., ?g." | 740 | "Key used for buffer-searching. Must be a character type, e.g., ?g." |
| 741 | :type '(choice (const nil) character) | 741 | :type '(choice (const nil) character) |
| 742 | :group 'viper-search) | 742 | :group 'viper-search) |
| 743 | 743 | ||
| 744 | (defcustom viper-search-wrap-around t | 744 | (defcustom viper-search-wrap-around t |
| 745 | "*If t, search wraps around." | 745 | "If t, search wraps around." |
| 746 | :type 'boolean | 746 | :type 'boolean |
| 747 | :tag "Search Wraps Around" | 747 | :tag "Search Wraps Around" |
| 748 | :group 'viper-search) | 748 | :group 'viper-search) |
| 749 | 749 | ||
| 750 | (viper-deflocalvar viper-related-files-and-buffers-ring nil "") | 750 | (viper-deflocalvar viper-related-files-and-buffers-ring nil "") |
| 751 | (defcustom viper-related-files-and-buffers-ring nil | 751 | (defcustom viper-related-files-and-buffers-ring nil |
| 752 | "*List of file and buffer names that are considered to be related to the current buffer. | 752 | "List of file and buffer names that are considered to be related to the current buffer. |
| 753 | Related buffers can be cycled through via :R and :P commands." | 753 | Related buffers can be cycled through via :R and :P commands." |
| 754 | :type 'boolean | 754 | :type 'boolean |
| 755 | :group 'viper-misc) | 755 | :group 'viper-misc) |
| @@ -771,7 +771,7 @@ Related buffers can be cycled through via :R and :P commands." | |||
| 771 | "^\\\\[sb][a-z]*{.*}\\s-*$\\|" ; latex | 771 | "^\\\\[sb][a-z]*{.*}\\s-*$\\|" ; latex |
| 772 | "^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ; texinfo | 772 | "^@node\\|@table\\|^@m?enu\\|^@itemize\\|^@if\\|" ; texinfo |
| 773 | "^.+:-") ; prolog | 773 | "^.+:-") ; prolog |
| 774 | "*Regexps for Headings. Used by \[\[ and \]\].") | 774 | "Regexps for Headings. Used by \[\[ and \]\].") |
| 775 | 775 | ||
| 776 | (defvar viper-heading-end | 776 | (defvar viper-heading-end |
| 777 | (concat "^}\\|" ; C/C++ | 777 | (concat "^}\\|" ; C/C++ |
| @@ -826,7 +826,7 @@ Related buffers can be cycled through via :R and :P commands." | |||
| 826 | (defface viper-search | 826 | (defface viper-search |
| 827 | '((((class color)) (:foreground "Black" :background "khaki")) | 827 | '((((class color)) (:foreground "Black" :background "khaki")) |
| 828 | (t (:underline t :stipple "gray3"))) | 828 | (t (:underline t :stipple "gray3"))) |
| 829 | "*Face used to flash out the search pattern." | 829 | "Face used to flash out the search pattern." |
| 830 | :group 'viper-highlighting) | 830 | :group 'viper-highlighting) |
| 831 | ;; An internal variable. Viper takes the face from here. | 831 | ;; An internal variable. Viper takes the face from here. |
| 832 | (defvar viper-search-face 'viper-search | 832 | (defvar viper-search-face 'viper-search |
| @@ -838,7 +838,7 @@ this variable represents.") | |||
| 838 | (defface viper-replace-overlay | 838 | (defface viper-replace-overlay |
| 839 | '((((class color)) (:foreground "Black" :background "darkseagreen2")) | 839 | '((((class color)) (:foreground "Black" :background "darkseagreen2")) |
| 840 | (t (:underline t :stipple "gray3"))) | 840 | (t (:underline t :stipple "gray3"))) |
| 841 | "*Face for highlighting replace regions on a window display." | 841 | "Face for highlighting replace regions on a window display." |
| 842 | :group 'viper-highlighting) | 842 | :group 'viper-highlighting) |
| 843 | ;; An internal variable. Viper takes the face from here. | 843 | ;; An internal variable. Viper takes the face from here. |
| 844 | (defvar viper-replace-overlay-face 'viper-replace-overlay | 844 | (defvar viper-replace-overlay-face 'viper-replace-overlay |
| @@ -946,19 +946,19 @@ Should be set in `~/.viper' file." | |||
| 946 | :group 'viper) | 946 | :group 'viper) |
| 947 | 947 | ||
| 948 | (defcustom viper-vi-state-hook 'viper-restore-cursor-type | 948 | (defcustom viper-vi-state-hook 'viper-restore-cursor-type |
| 949 | "*Hooks run just before the switch to Vi mode is completed." | 949 | "Hooks run just before the switch to Vi mode is completed." |
| 950 | :type 'hook | 950 | :type 'hook |
| 951 | :group 'viper-hooks) | 951 | :group 'viper-hooks) |
| 952 | (defcustom viper-insert-state-hook 'viper-set-insert-cursor-type | 952 | (defcustom viper-insert-state-hook 'viper-set-insert-cursor-type |
| 953 | "*Hooks run just before the switch to Insert mode is completed." | 953 | "Hooks run just before the switch to Insert mode is completed." |
| 954 | :type 'hook | 954 | :type 'hook |
| 955 | :group 'viper-hooks) | 955 | :group 'viper-hooks) |
| 956 | (defcustom viper-replace-state-hook 'viper-restore-cursor-type | 956 | (defcustom viper-replace-state-hook 'viper-restore-cursor-type |
| 957 | "*Hooks run just before the switch to Replace mode is completed." | 957 | "Hooks run just before the switch to Replace mode is completed." |
| 958 | :type 'hook | 958 | :type 'hook |
| 959 | :group 'viper-hooks) | 959 | :group 'viper-hooks) |
| 960 | (defcustom viper-emacs-state-hook 'viper-restore-cursor-type | 960 | (defcustom viper-emacs-state-hook 'viper-restore-cursor-type |
| 961 | "*Hooks run just before the switch to Emacs mode is completed." | 961 | "Hooks run just before the switch to Emacs mode is completed." |
| 962 | :type 'hook | 962 | :type 'hook |
| 963 | :group 'viper-hooks) | 963 | :group 'viper-hooks) |
| 964 | 964 | ||
| @@ -980,7 +980,7 @@ Should be set in `~/.viper' file." | |||
| 980 | (setq cursor-type '(bar . 2)))) | 980 | (setq cursor-type '(bar . 2)))) |
| 981 | 981 | ||
| 982 | (defun viper-ESC-keyseq-timeout () | 982 | (defun viper-ESC-keyseq-timeout () |
| 983 | "*Key sequence beginning with ESC and separated by no more than this many milliseconds is considered to be generated by a keyboard function key. | 983 | "Key sequence beginning with ESC and separated by no more than this many milliseconds is considered to be generated by a keyboard function key. |
| 984 | Setting this too high may slow down switching from insert to vi state. Setting | 984 | Setting this too high may slow down switching from insert to vi state. Setting |
| 985 | this value too low will make it impossible to use function keys in insert mode | 985 | this value too low will make it impossible to use function keys in insert mode |
| 986 | on a dumb terminal." | 986 | on a dumb terminal." |
diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el index 65638dfff3c..ad1e32b5546 100644 --- a/lisp/emulation/viper-keym.el +++ b/lisp/emulation/viper-keym.el | |||
| @@ -48,19 +48,19 @@ | |||
| 48 | ;;; Emacs keys in other states. | 48 | ;;; Emacs keys in other states. |
| 49 | 49 | ||
| 50 | (defcustom viper-want-emacs-keys-in-insert t | 50 | (defcustom viper-want-emacs-keys-in-insert t |
| 51 | "*Set to nil if you want complete Vi compatibility in insert mode. | 51 | "Set to nil if you want complete Vi compatibility in insert mode. |
| 52 | Complete compatibility with Vi is not recommended for power use of Viper." | 52 | Complete compatibility with Vi is not recommended for power use of Viper." |
| 53 | :type 'boolean | 53 | :type 'boolean |
| 54 | :group 'viper) | 54 | :group 'viper) |
| 55 | 55 | ||
| 56 | (defcustom viper-want-emacs-keys-in-vi t | 56 | (defcustom viper-want-emacs-keys-in-vi t |
| 57 | "*Set to nil if you want complete Vi compatibility in Vi mode. | 57 | "Set to nil if you want complete Vi compatibility in Vi mode. |
| 58 | Full Vi compatibility is not recommended for power use of Viper." | 58 | Full Vi compatibility is not recommended for power use of Viper." |
| 59 | :type 'boolean | 59 | :type 'boolean |
| 60 | :group 'viper) | 60 | :group 'viper) |
| 61 | 61 | ||
| 62 | (defcustom viper-no-multiple-ESC t | 62 | (defcustom viper-no-multiple-ESC t |
| 63 | "*If true, multiple ESC in Vi mode will cause bell to ring. | 63 | "If true, multiple ESC in Vi mode will cause bell to ring. |
| 64 | This is set to t on a windowing terminal and to 'twice on a dumb | 64 | This is set to t on a windowing terminal and to 'twice on a dumb |
| 65 | terminal (unless the user level is 1, 2, or 5). On a dumb terminal, this | 65 | terminal (unless the user level is 1, 2, or 5). On a dumb terminal, this |
| 66 | enables cursor keys and is generally more convenient, as terminals usually | 66 | enables cursor keys and is generally more convenient, as terminals usually |
| @@ -71,7 +71,7 @@ as is allowed by the major mode in effect." | |||
| 71 | :group 'viper) | 71 | :group 'viper) |
| 72 | 72 | ||
| 73 | (defcustom viper-want-ctl-h-help nil | 73 | (defcustom viper-want-ctl-h-help nil |
| 74 | "*If non-nil, C-h gets bound to help-command; otherwise, C-h gets the usual Vi bindings." | 74 | "If non-nil, C-h gets bound to help-command; otherwise, C-h gets the usual Vi bindings." |
| 75 | :type 'boolean | 75 | :type 'boolean |
| 76 | :group 'viper) | 76 | :group 'viper) |
| 77 | 77 | ||
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index 58d8fb45b92..eda1a7ec937 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el | |||
| @@ -63,7 +63,7 @@ | |||
| 63 | (defvar viper-current-frame-saved (selected-frame)) | 63 | (defvar viper-current-frame-saved (selected-frame)) |
| 64 | 64 | ||
| 65 | (defcustom viper-surrounding-word-function 'viper-surrounding-word | 65 | (defcustom viper-surrounding-word-function 'viper-surrounding-word |
| 66 | "*Function that determines what constitutes a word for clicking events. | 66 | "Function that determines what constitutes a word for clicking events. |
| 67 | Takes two parameters: a COUNT, indicating how many words to return, | 67 | Takes two parameters: a COUNT, indicating how many words to return, |
| 68 | and CLICK-COUNT, telling whether this is the first click, a double-click, | 68 | and CLICK-COUNT, telling whether this is the first click, a double-click, |
| 69 | or a triple-click." | 69 | or a triple-click." |
| @@ -77,7 +77,7 @@ or a triple-click." | |||
| 77 | mouse-track-multi-click-time | 77 | mouse-track-multi-click-time |
| 78 | double-click-time) | 78 | double-click-time) |
| 79 | 500) | 79 | 500) |
| 80 | "*Time interval in millisecond within which successive mouse clicks are | 80 | "Time interval in millisecond within which successive mouse clicks are |
| 81 | considered related." | 81 | considered related." |
| 82 | :type 'integer | 82 | :type 'integer |
| 83 | :group 'viper-mouse) | 83 | :group 'viper-mouse) |
| @@ -624,7 +624,7 @@ bindings in the Viper manual." | |||
| 624 | 624 | ||
| 625 | 625 | ||
| 626 | (defcustom viper-mouse-search-key '(meta shift 1) | 626 | (defcustom viper-mouse-search-key '(meta shift 1) |
| 627 | "*Key used to click-search in Viper. | 627 | "Key used to click-search in Viper. |
| 628 | This must be a list that specifies the mouse button and modifiers. | 628 | This must be a list that specifies the mouse button and modifiers. |
| 629 | The supported modifiers are `meta', `shift', and `control'. | 629 | The supported modifiers are `meta', `shift', and `control'. |
| 630 | For instance, `(meta shift 1)' means that holding the meta and shift | 630 | For instance, `(meta shift 1)' means that holding the meta and shift |
| @@ -640,7 +640,7 @@ This buffer may be different from the one where the click occurred." | |||
| 640 | :group 'viper-mouse) | 640 | :group 'viper-mouse) |
| 641 | 641 | ||
| 642 | (defcustom viper-mouse-insert-key '(meta shift 2) | 642 | (defcustom viper-mouse-insert-key '(meta shift 2) |
| 643 | "*Key used to click-insert in Viper. | 643 | "Key used to click-insert in Viper. |
| 644 | Must be a list that specifies the mouse button and modifiers. | 644 | Must be a list that specifies the mouse button and modifiers. |
| 645 | The supported modifiers are `meta', `shift', and `control'. | 645 | The supported modifiers are `meta', `shift', and `control'. |
| 646 | For instance, `(meta shift 2)' means that holding the meta and shift keys | 646 | For instance, `(meta shift 2)' means that holding the meta and shift keys |
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index cdeef733bc5..4afa379f389 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el | |||
| @@ -1323,7 +1323,7 @@ sets the default value." | |||
| 1323 | (viper-update-syntax-classes)) | 1323 | (viper-update-syntax-classes)) |
| 1324 | 1324 | ||
| 1325 | (defcustom viper-syntax-preference 'reformed-vi | 1325 | (defcustom viper-syntax-preference 'reformed-vi |
| 1326 | "*Syntax type characterizing Viper's alphanumeric symbols. | 1326 | "Syntax type characterizing Viper's alphanumeric symbols. |
| 1327 | Affects movement and change commands that deal with Vi-style words. | 1327 | Affects movement and change commands that deal with Vi-style words. |
| 1328 | Works best when set in the hooks to various major modes. | 1328 | Works best when set in the hooks to various major modes. |
| 1329 | 1329 | ||
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index 12c186e234e..9cf6c91265e 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el | |||
| @@ -435,7 +435,7 @@ widget." | |||
| 435 | view-mode | 435 | view-mode |
| 436 | vm-mode | 436 | vm-mode |
| 437 | vm-summary-mode) | 437 | vm-summary-mode) |
| 438 | "*A list of major modes that should come up in Emacs state. | 438 | "A list of major modes that should come up in Emacs state. |
| 439 | Normally, Viper would bring buffers up in Emacs state, unless the corresponding | 439 | Normally, Viper would bring buffers up in Emacs state, unless the corresponding |
| 440 | major mode has been placed on `viper-vi-state-mode-list' or | 440 | major mode has been placed on `viper-vi-state-mode-list' or |
| 441 | `viper-insert-state-mode-list'. So, don't place a new mode on this list, | 441 | `viper-insert-state-mode-list'. So, don't place a new mode on this list, |
| @@ -451,7 +451,7 @@ unless it is coming up in a wrong Viper state." | |||
| 451 | erc-mode | 451 | erc-mode |
| 452 | eshell-mode | 452 | eshell-mode |
| 453 | shell-mode) | 453 | shell-mode) |
| 454 | "*A list of major modes that should come up in Vi Insert state." | 454 | "A list of major modes that should come up in Vi Insert state." |
| 455 | :type '(repeat symbol) | 455 | :type '(repeat symbol) |
| 456 | :group 'viper-misc) | 456 | :group 'viper-misc) |
| 457 | 457 | ||