Function: tmm-remove-inactive-mouse-face

tmm-remove-inactive-mouse-face is a byte-compiled function defined in tmm.el.gz.

Signature

(tmm-remove-inactive-mouse-face)

Documentation

Remove the mouse-face property from inactive menu items.

Source Code

;; Defined in /usr/src/emacs/lisp/tmm.el.gz
(defun tmm-remove-inactive-mouse-face ()
  "Remove the mouse-face property from inactive menu items."
  (let ((inhibit-read-only t)
        (inactive-string
         (concat " " (make-string (length tmm-mid-prompt) ?\-)))
        next)
    (save-excursion
      (goto-char (point-min))
      (while (not (eobp))
        (setq next (next-single-char-property-change (point) 'mouse-face))
        (when (looking-at inactive-string)
          (remove-text-properties (point) next '(mouse-face nil))
          (add-text-properties (point) next '(face tmm-inactive)))
        (goto-char next)))
    (set-buffer-modified-p nil)))