Changeset 4200 for trunk/lisp/compare-w.el
- Timestamp:
- 04/07/07 15:49:28 (2 years ago)
- Files:
-
- trunk/lisp/compare-w.el (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/compare-w.el
r4190 r4200 33 33 ;;; Code: 34 34 35 (defgroup compare-w nil35 (defgroup compare-windows nil 36 36 "Compare text between windows." 37 37 :prefix "compare-" … … 53 53 whitespace is considered to match, and is skipped." 54 54 :type '(choice regexp function) 55 :group 'compare-w )55 :group 'compare-windows) 56 56 57 57 (defcustom compare-ignore-whitespace nil 58 58 "*Non-nil means `compare-windows' ignores whitespace." 59 59 :type 'boolean 60 :group 'compare-w 60 :group 'compare-windows 61 61 :version "22.1") 62 62 … … 64 64 "*Non-nil means `compare-windows' ignores case differences." 65 65 :type 'boolean 66 :group 'compare-w )66 :group 'compare-windows) 67 67 68 68 (defcustom compare-windows-sync 'compare-windows-sync-default-function … … 88 88 be made buffer-local. 89 89 90 If the value of this variable is `nil', then function `ding' is 91 called to beep or flash the screen when points are mismatched." 92 :type '(choice regexp function) 93 :group 'compare-w 90 If the value of this variable is `nil' (option \"No sync\"), then 91 no synchronization is performed, and the function `ding' is called 92 to beep or flash the screen when points are mismatched." 93 :type '(choice function regexp (const :tag "No sync" nil)) 94 :group 'compare-windows 94 95 :version "22.1") 95 96 … … 103 104 The default value 32 is good for the most cases." 104 105 :type 'integer 105 :group 'compare-w 106 :group 'compare-windows 106 107 :version "22.1") 107 108 … … 114 115 and the value `((4) (4))' for horizontally split windows." 115 116 :type '(list sexp sexp) 116 :group 'compare-w 117 :group 'compare-windows 117 118 :version "22.1") 118 119 … … 126 127 (const :tag "Persistent highlighting" persistent) 127 128 (other :tag "Highlight until next command" t)) 128 :group 'compare-w 129 :group 'compare-windows 129 130 :version "22.1") 130 131 … … 132 133 '((t :inherit lazy-highlight)) 133 134 "Face for highlighting of compare-windows difference regions." 134 :group 'compare-w 135 :group 'compare-windows 135 136 :version "22.1") 136 137
