diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 0b57ea35fc1..cd95f8cfb7b 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;;; Code: | 28 | ;;; Code: |
| 29 | 29 | ||
| 30 | (defcustom case-replace t | 30 | (defcustom case-replace t |
| 31 | "*Non-nil means `query-replace' should preserve case in replacements." | 31 | "Non-nil means `query-replace' should preserve case in replacements." |
| 32 | :type 'boolean | 32 | :type 'boolean |
| 33 | :group 'matching) | 33 | :group 'matching) |
| 34 | 34 | ||
| @@ -62,24 +62,24 @@ strings or patterns." | |||
| 62 | :version "20.3") | 62 | :version "20.3") |
| 63 | 63 | ||
| 64 | (defcustom query-replace-skip-read-only nil | 64 | (defcustom query-replace-skip-read-only nil |
| 65 | "*Non-nil means `query-replace' and friends ignore read-only matches." | 65 | "Non-nil means `query-replace' and friends ignore read-only matches." |
| 66 | :type 'boolean | 66 | :type 'boolean |
| 67 | :group 'matching | 67 | :group 'matching |
| 68 | :version "22.1") | 68 | :version "22.1") |
| 69 | 69 | ||
| 70 | (defcustom query-replace-show-replacement t | 70 | (defcustom query-replace-show-replacement t |
| 71 | "*Non-nil means to show what actual replacement text will be." | 71 | "Non-nil means to show what actual replacement text will be." |
| 72 | :type 'boolean | 72 | :type 'boolean |
| 73 | :group 'matching | 73 | :group 'matching |
| 74 | :version "23.1") | 74 | :version "23.1") |
| 75 | 75 | ||
| 76 | (defcustom query-replace-highlight t | 76 | (defcustom query-replace-highlight t |
| 77 | "*Non-nil means to highlight matches during query replacement." | 77 | "Non-nil means to highlight matches during query replacement." |
| 78 | :type 'boolean | 78 | :type 'boolean |
| 79 | :group 'matching) | 79 | :group 'matching) |
| 80 | 80 | ||
| 81 | (defcustom query-replace-lazy-highlight t | 81 | (defcustom query-replace-lazy-highlight t |
| 82 | "*Controls the lazy-highlighting during query replacements. | 82 | "Controls the lazy-highlighting during query replacements. |
| 83 | When non-nil, all text in the buffer matching the current match | 83 | When non-nil, all text in the buffer matching the current match |
| 84 | is highlighted lazily using isearch lazy highlighting (see | 84 | is highlighted lazily using isearch lazy highlighting (see |
| 85 | `lazy-highlight-initial-delay' and `lazy-highlight-interval')." | 85 | `lazy-highlight-initial-delay' and `lazy-highlight-interval')." |
| @@ -773,19 +773,19 @@ a previously found match." | |||
| 773 | "Auto Occurrence Display" | 773 | "Auto Occurrence Display" |
| 774 | "Display another occurrence when moving the cursor")) | 774 | "Display another occurrence when moving the cursor")) |
| 775 | (define-key map [separator-1] '("--")) | 775 | (define-key map [separator-1] '("--")) |
| 776 | (define-key map [kill-this-buffer] | 776 | (define-key map [kill-this-buffer] |
| 777 | '(menu-item "Kill occur buffer" kill-this-buffer | 777 | '(menu-item "Kill occur buffer" kill-this-buffer |
| 778 | :help "Kill the current *Occur* buffer")) | 778 | :help "Kill the current *Occur* buffer")) |
| 779 | (define-key map [quit-window] | 779 | (define-key map [quit-window] |
| 780 | '(menu-item "Quit occur window" quit-window | 780 | '(menu-item "Quit occur window" quit-window |
| 781 | :help "Quit the current *Occur* buffer. Bury it, and maybe delete the selected frame")) | 781 | :help "Quit the current *Occur* buffer. Bury it, and maybe delete the selected frame")) |
| 782 | (define-key map [revert-buffer] | 782 | (define-key map [revert-buffer] |
| 783 | '(menu-item "Revert occur buffer" revert-buffer | 783 | '(menu-item "Revert occur buffer" revert-buffer |
| 784 | :help "Replace the text in the *Occur* buffer with the results of rerunning occur")) | 784 | :help "Replace the text in the *Occur* buffer with the results of rerunning occur")) |
| 785 | (define-key map [clone-buffer] | 785 | (define-key map [clone-buffer] |
| 786 | '(menu-item "Clone occur buffer" clone-buffer | 786 | '(menu-item "Clone occur buffer" clone-buffer |
| 787 | :help "Create and return a twin copy of the current *Occur* buffer")) | 787 | :help "Create and return a twin copy of the current *Occur* buffer")) |
| 788 | (define-key map [occur-rename-buffer] | 788 | (define-key map [occur-rename-buffer] |
| 789 | '(menu-item "Rename occur buffer" occur-rename-buffer | 789 | '(menu-item "Rename occur buffer" occur-rename-buffer |
| 790 | :help "Rename the current *Occur* buffer to *Occur: original-buffer-name*.")) | 790 | :help "Rename the current *Occur* buffer to *Occur: original-buffer-name*.")) |
| 791 | (define-key map [separator-2] '("--")) | 791 | (define-key map [separator-2] '("--")) |
| @@ -798,10 +798,10 @@ a previously found match." | |||
| 798 | (define-key map [occur-mode-display-occurrence] | 798 | (define-key map [occur-mode-display-occurrence] |
| 799 | '(menu-item "Display Occurrence" occur-mode-display-occurrence | 799 | '(menu-item "Display Occurrence" occur-mode-display-occurrence |
| 800 | :help "Display in another window the occurrence the current line describes")) | 800 | :help "Display in another window the occurrence the current line describes")) |
| 801 | (define-key map [occur-next] | 801 | (define-key map [occur-next] |
| 802 | '(menu-item "Move to next match" occur-next | 802 | '(menu-item "Move to next match" occur-next |
| 803 | :help "Move to the Nth (default 1) next match in an Occur mode buffer")) | 803 | :help "Move to the Nth (default 1) next match in an Occur mode buffer")) |
| 804 | (define-key map [occur-prev] | 804 | (define-key map [occur-prev] |
| 805 | '(menu-item "Move to previous match" occur-prev | 805 | '(menu-item "Move to previous match" occur-prev |
| 806 | :help "Move to the Nth (default 1) previous match in an Occur mode buffer")) | 806 | :help "Move to the Nth (default 1) previous match in an Occur mode buffer")) |
| 807 | map) | 807 | map) |
| @@ -970,7 +970,7 @@ Compatibility function for \\[next-error] invocations." | |||
| 970 | :version "22.1") | 970 | :version "22.1") |
| 971 | 971 | ||
| 972 | (defcustom list-matching-lines-default-context-lines 0 | 972 | (defcustom list-matching-lines-default-context-lines 0 |
| 973 | "*Default number of context lines included around `list-matching-lines' matches. | 973 | "Default number of context lines included around `list-matching-lines' matches. |
| 974 | A negative number means to include that many lines before the match. | 974 | A negative number means to include that many lines before the match. |
| 975 | A positive number means to include that many lines both before and after." | 975 | A positive number means to include that many lines both before and after." |
| 976 | :type 'integer | 976 | :type 'integer |
| @@ -979,13 +979,13 @@ A positive number means to include that many lines both before and after." | |||
| 979 | (defalias 'list-matching-lines 'occur) | 979 | (defalias 'list-matching-lines 'occur) |
| 980 | 980 | ||
| 981 | (defcustom list-matching-lines-face 'match | 981 | (defcustom list-matching-lines-face 'match |
| 982 | "*Face used by \\[list-matching-lines] to show the text that matches. | 982 | "Face used by \\[list-matching-lines] to show the text that matches. |
| 983 | If the value is nil, don't highlight the matching portions specially." | 983 | If the value is nil, don't highlight the matching portions specially." |
| 984 | :type 'face | 984 | :type 'face |
| 985 | :group 'matching) | 985 | :group 'matching) |
| 986 | 986 | ||
| 987 | (defcustom list-matching-lines-buffer-name-face 'underline | 987 | (defcustom list-matching-lines-buffer-name-face 'underline |
| 988 | "*Face used by \\[list-matching-lines] to show the names of buffers. | 988 | "Face used by \\[list-matching-lines] to show the names of buffers. |
| 989 | If the value is nil, don't highlight the buffer names specially." | 989 | If the value is nil, don't highlight the buffer names specially." |
| 990 | :type 'face | 990 | :type 'face |
| 991 | :group 'matching) | 991 | :group 'matching) |
| @@ -993,7 +993,7 @@ If the value is nil, don't highlight the buffer names specially." | |||
| 993 | (defcustom occur-excluded-properties | 993 | (defcustom occur-excluded-properties |
| 994 | '(read-only invisible intangible field mouse-face help-echo local-map keymap | 994 | '(read-only invisible intangible field mouse-face help-echo local-map keymap |
| 995 | yank-handler follow-link) | 995 | yank-handler follow-link) |
| 996 | "*Text properties to discard when copying lines to the *Occur* buffer. | 996 | "Text properties to discard when copying lines to the *Occur* buffer. |
| 997 | The value should be a list of text properties to discard or t, | 997 | The value should be a list of text properties to discard or t, |
| 998 | which means to discard all text properties." | 998 | which means to discard all text properties." |
| 999 | :type '(choice (const :tag "All" t) (repeat symbol)) | 999 | :type '(choice (const :tag "All" t) (repeat symbol)) |