From e43cbeae69c62d0fd1de362cdf154623322ad059 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 6 Jun 2005 16:28:26 +0000 Subject: [PATCH] (tmm-inactive, tmm-remove-inactive-mouse-face): Rename `tmm-inactive-face' to `tmm-inactive'. --- lisp/ChangeLog | 5 +++++ lisp/tmm.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b778e51742..6d6996b2f54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-06-06 Juri Linkov + + * tmm.el (tmm-inactive, tmm-remove-inactive-mouse-face): + Rename `tmm-inactive-face' to `tmm-inactive'. + 2005-06-06 Matt Hodges * iswitchb.el: Rename faces. diff --git a/lisp/tmm.el b/lisp/tmm.el index 73eb404b14c..aa47012c642 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -133,7 +133,7 @@ specify nil for this variable." :type '(choice integer (const nil)) :group 'tmm) -(defface tmm-inactive-face +(defface tmm-inactive '((t :inherit shadow)) "Face used for inactive menu items." :group 'tmm) @@ -349,7 +349,7 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'." (setq next (next-single-char-property-change (point) 'mouse-face)) (when (looking-at inactive-string) (remove-text-properties (point) next '(mouse-face)) - (add-text-properties (point) next '(face tmm-inactive-face))) + (add-text-properties (point) next '(face tmm-inactive))) (goto-char next))) (set-buffer-modified-p nil))) -- 2.39.5