Mercurial > emacs
comparison lisp/hilit-chg.el @ 93626:49c6cb8751f6
(global-highlight-changes-mode, highlight-changes-passive-string,
highlight-changes-active-string): Mark as obsolete since 23.1, not 22.1.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 04 Apr 2008 00:26:17 +0000 |
| parents | cb11f55e7732 |
| children | 6ab801933124 |
comparison
equal
deleted
inserted
replaced
| 93625:18398143e88a | 93626:49c6cb8751f6 |
|---|---|
| 268 :type '(choice string | 268 :type '(choice string |
| 269 (const :tag "None" nil)) | 269 (const :tag "None" nil)) |
| 270 :group 'highlight-changes) | 270 :group 'highlight-changes) |
| 271 | 271 |
| 272 (define-obsolete-variable-alias 'highlight-changes-active-string | 272 (define-obsolete-variable-alias 'highlight-changes-active-string |
| 273 'highlight-changes-visible-string "22.1") | 273 'highlight-changes-visible-string "23.1") |
| 274 | 274 |
| 275 (defcustom highlight-changes-invisible-string " -Chg" | 275 (defcustom highlight-changes-invisible-string " -Chg" |
| 276 "The string used when in Highlight Changes mode and changes are hidden. | 276 "The string used when in Highlight Changes mode and changes are hidden. |
| 277 This should be set to nil if no indication is desired, or to | 277 This should be set to nil if no indication is desired, or to |
| 278 a string with a leading space." | 278 a string with a leading space." |
| 279 :type '(choice string | 279 :type '(choice string |
| 280 (const :tag "None" nil)) | 280 (const :tag "None" nil)) |
| 281 :group 'highlight-changes) | 281 :group 'highlight-changes) |
| 282 | 282 |
| 283 (define-obsolete-variable-alias 'highlight-changes-passive-string | 283 (define-obsolete-variable-alias 'highlight-changes-passive-string |
| 284 'highlight-changes-invisible-string "22.1") | 284 'highlight-changes-invisible-string "23.1") |
| 285 | 285 |
| 286 | 286 |
| 287 | 287 |
| 288 (defcustom highlight-changes-global-modes t | 288 (defcustom highlight-changes-global-modes t |
| 289 "Determine whether a buffer is suitable for global Highlight Changes mode. | 289 "Determine whether a buffer is suitable for global Highlight Changes mode. |
| 996 )) | 996 )) |
| 997 | 997 |
| 998 ;; ======================= global-highlight-changes-mode ============== | 998 ;; ======================= global-highlight-changes-mode ============== |
| 999 | 999 |
| 1000 ;;;###autoload | 1000 ;;;###autoload |
| 1001 (define-globalized-minor-mode global-highlight-changes-mode | 1001 (define-globalized-minor-mode global-highlight-changes-mode |
| 1002 highlight-changes-mode highlight-changes-mode-turn-on) | 1002 highlight-changes-mode highlight-changes-mode-turn-on) |
| 1003 | 1003 |
| 1004 (define-obsolete-function-alias | 1004 (define-obsolete-function-alias |
| 1005 'global-highlight-changes | 1005 'global-highlight-changes |
| 1006 'global-highlight-changes-mode "22.1") | 1006 'global-highlight-changes-mode "23.1") |
| 1007 | 1007 |
| 1008 (defun highlight-changes-mode-turn-on () | 1008 (defun highlight-changes-mode-turn-on () |
| 1009 "See if Highlight Changes mode should be turned on for this buffer. | 1009 "See if Highlight Changes mode should be turned on for this buffer. |
| 1010 This is called when `global-highlight-changes-mode' is turned on." | 1010 This is called when `global-highlight-changes-mode' is turned on." |
| 1011 (or highlight-changes-mode ; do nothing if already on | 1011 (or highlight-changes-mode ; do nothing if already on |