;;; tmm.el --- text mode access to menu-bar
-;; Copyright (C) 1994, 1995, 1996, 2000, 2001, 2002
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1996, 2000, 2001, 2002, 2003,
+;; 2004, 2005, 2006 Free Software Foundation, Inc.
;; Author: Ilya Zakharevich <ilya@math.mps.ohio-state.edu>
;; Maintainer: FSF
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
: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)
(if char (setq tmm-short-cuts (cons char tmm-short-cuts)))
(cons (concat (if char (concat (char-to-string char) tmm-mid-prompt)
;; keep them lined up in columns
- (make-string (1+ (length tmm-mid-prompt)) ?\ ))
+ (make-string (1+ (length tmm-mid-prompt)) ?\s))
str)
(cdr elt))))))
(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)))