diff options
| author | Juri Linkov | 2005-06-06 16:28:26 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-06-06 16:28:26 +0000 |
| commit | e43cbeae69c62d0fd1de362cdf154623322ad059 (patch) | |
| tree | 2e06c109b2e6cb0c36c35bb6f9b0bd6797a7178f | |
| parent | 6e005d5617bf8b74c2633a17336671f34d003b1e (diff) | |
| download | emacs-e43cbeae69c62d0fd1de362cdf154623322ad059.tar.gz emacs-e43cbeae69c62d0fd1de362cdf154623322ad059.zip | |
(tmm-inactive, tmm-remove-inactive-mouse-face):
Rename `tmm-inactive-face' to `tmm-inactive'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2005-06-06 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * tmm.el (tmm-inactive, tmm-remove-inactive-mouse-face): | ||
| 4 | Rename `tmm-inactive-face' to `tmm-inactive'. | ||
| 5 | |||
| 1 | 2005-06-06 Matt Hodges <MPHodges@member.fsf.org> | 6 | 2005-06-06 Matt Hodges <MPHodges@member.fsf.org> |
| 2 | 7 | ||
| 3 | * iswitchb.el: Rename faces. | 8 | * 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." | |||
| 133 | :type '(choice integer (const nil)) | 133 | :type '(choice integer (const nil)) |
| 134 | :group 'tmm) | 134 | :group 'tmm) |
| 135 | 135 | ||
| 136 | (defface tmm-inactive-face | 136 | (defface tmm-inactive |
| 137 | '((t :inherit shadow)) | 137 | '((t :inherit shadow)) |
| 138 | "Face used for inactive menu items." | 138 | "Face used for inactive menu items." |
| 139 | :group 'tmm) | 139 | :group 'tmm) |
| @@ -349,7 +349,7 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'." | |||
| 349 | (setq next (next-single-char-property-change (point) 'mouse-face)) | 349 | (setq next (next-single-char-property-change (point) 'mouse-face)) |
| 350 | (when (looking-at inactive-string) | 350 | (when (looking-at inactive-string) |
| 351 | (remove-text-properties (point) next '(mouse-face)) | 351 | (remove-text-properties (point) next '(mouse-face)) |
| 352 | (add-text-properties (point) next '(face tmm-inactive-face))) | 352 | (add-text-properties (point) next '(face tmm-inactive))) |
| 353 | (goto-char next))) | 353 | (goto-char next))) |
| 354 | (set-buffer-modified-p nil))) | 354 | (set-buffer-modified-p nil))) |
| 355 | 355 | ||