andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tmm-inactive, tmm-remove-inactive-mouse-face):

Browse source 
Rename `tmm-inactive-face' to `tmm-inactive'.
This commit is contained in:
Juri Linkov 2005-06-06 16:28:26 +00:00
parent 6e005d5617
commit e43cbeae69
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-06-06 Juri Linkov <juri@jurta.org>
* tmm.el (tmm-inactive, tmm-remove-inactive-mouse-face):
Rename `tmm-inactive-face' to `tmm-inactive'.
2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
* iswitchb.el: Rename faces.

4
lisp/tmm.el
View file

@ -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)))