anchor.diff:  (defmethod mode-hook-variable ((mode symbol))
     (assert (not (null mode)))
     (mode-hook-variable (get-mode-object mode)))
  -
  -(defun global-minor-mode-p (mode)
  -  (get mode 'global-minor-mode-p))
   
   (defun mode-active-p (buffer mode)
     (or (eq mode (buffer-major-mode buffer))
  
positive.code:         #'string<
          :key #'mode-identifier-name))
  
  (defun major-modes ()
    (mapcar #'mode-identifier-name (collect-modes #'major-mode-p)))
  
  (defun minor-modes ()
    (mapcar #'mode-identifier-name (collect-modes #'minor-mode-p)))
  
  (defmethod mode-name ((mode symbol))
    (assert (not (null mode)))
  
negative.code:           :disable-hook ,disable-hook))
         (register-mode ',minor-mode (make-instance ',minor-mode)))))
  
  (defvar *current-global-mode* nil)
  
  (defun current-global-mode ()
    *current-global-mode*)
  