Lines Matching defs:global
120 ;; 2. You can use the function `global-highlight-changes'
122 ;; This function, which is fashioned after the way `global-font-lock' works,
123 ;; toggles on or off global Highlight Changes mode. When activated, it turns
128 ;; `highlight-changes-global-modes', as follows. If the variable is
144 ;; (global-set-key '[C-right] 'highlight-changes-next-change)
145 ;; (global-set-key '[C-left] 'highlight-changes-previous-change)
189 ;; - global mode and various stuff added
271 (defcustom highlight-changes-global-initial-state 'passive
272 "*What state global Highlight Changes mode should start in.
273 This is used if `global-highlight-changes' is called with no argument.
296 (defcustom highlight-changes-global-modes t
297 "*Determine whether a buffer is suitable for global Highlight Changes mode.
309 A value of nil means no buffers are suitable for `global-highlight-changes'
328 (defvar global-highlight-changes nil)
330 (defcustom highlight-changes-global-changes-existing-buffers nil
331 "*If non-nil, toggling global Highlight Changes mode affects existing buffers.
332 Normally, `global-highlight-changes' affects only new buffers (to be
333 created). However, if `highlight-changes-global-changes-existing-buffers'
334 is non-nil, then turning on `global-highlight-changes' will turn on
601 ;; on many buffers from `global-highlight-changes'.
1036 (hilit-chg-turn-on-maybe highlight-changes-global-initial-state))))
1038 (defun hilit-chg-check-global ()
1040 (hilit-chg-turn-on-maybe highlight-changes-global-initial-state))
1044 (defun global-highlight-changes (&optional arg)
1045 "Turn on or off global Highlight Changes mode.
1048 - if no prefix, toggle global Highlight Changes mode on or off
1059 When global Highlight Changes mode is enabled, Highlight Changes mode is turned
1061 variable `highlight-changes-global-changes-existing-buffers' is non-nil).
1062 \"Suitability\" is determined by variable `highlight-changes-global-modes'."
1069 (setq global-highlight-changes (not global-highlight-changes)))
1072 (setq global-highlight-changes t)
1076 (setq global-highlight-changes t)
1080 (setq global-highlight-changes nil)
1086 (setq highlight-changes-global-initial-state 'active)
1088 (setq highlight-changes-global-initial-state 'passive)))
1089 (setq global-highlight-changes t)
1091 highlight-changes-global-initial-state)
1094 (add-hook 'find-file-hook 'hilit-chg-check-global)
1095 (if highlight-changes-global-changes-existing-buffers
1097 highlight-changes-global-initial-state)))
1099 (message "Turning OFF global Highlight Changes mode")
1103 (remove-hook 'find-file-hook 'hilit-chg-check-global)
1104 (if highlight-changes-global-changes-existing-buffers
1115 `highlight-changes-global-modes',
1119 from `global-highlight-changes' when turning on global Highlight Changes mode."
1123 ((null highlight-changes-global-modes)
1125 ((functionp highlight-changes-global-modes)
1126 (funcall highlight-changes-global-modes))
1127 ((listp highlight-changes-global-modes)
1128 (if (eq (car-safe highlight-changes-global-modes) 'not)
1129 (not (memq major-mode (cdr highlight-changes-global-modes)))
1130 (memq major-mode highlight-changes-global-modes)))