Mercurial > hg > xemacs-beta

comparison lisp/utils/facemenu.el @ 131:869e1851236b xemacs-20-1p4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p4
author cvs
date Mon, 13 Aug 2007 09:29:07 +0200
parents 1370575f1259
children e45d5e7c476e
comparison
equal deleted inserted replaced
130:4ae9a57f18b2 131:869e1851236b
267 (facemenu-update-facemenu-menu) 267 (facemenu-update-facemenu-menu)
268 268
269 ;; Global bindings: 269 ;; Global bindings:
270 (if (string-match "XEmacs" emacs-version) 270 (if (string-match "XEmacs" emacs-version)
271 (easy-menu-change '("Edit") (car facemenu-menu) (cdr facemenu-menu)) 271 (easy-menu-change '("Edit") (car facemenu-menu) (cdr facemenu-menu))
272 (define-key global-map [C-down-mouse-2] 'facemenu-menu)) 272 (define-key global-map [C-down-mouse-2] 'facemenu-menu)))
273 (if facemenu-key (define-key global-map facemenu-key 'facemenu-keymap)))
274 273
275 (fset 'facemenu-region-active-p 274 (fset 'facemenu-region-active-p
276 (if (string-match "XEmacs" emacs-version) 275 (if (string-match "XEmacs" emacs-version)
277 'region-active-p 276 'region-active-p
278 #'(lambda () 277 #'(lambda ()