Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-sysdp.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents b980b6286996
children 5a88923fcbfe
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
278 (sysdep-defalias 'x-set-frame-pointer 'x-set-screen-pointer) 278 (sysdep-defalias 'x-set-frame-pointer 'x-set-screen-pointer)
279 (sysdep-defalias 'x-display-color-p 'x-color-display-p) 279 (sysdep-defalias 'x-display-color-p 'x-color-display-p)
280 (sysdep-defalias 'x-display-grayscale-p 'x-grayscale-display-p) 280 (sysdep-defalias 'x-display-grayscale-p 'x-grayscale-display-p)
281 (sysdep-defalias 'menu-event-p 'misc-user-event-p) 281 (sysdep-defalias 'menu-event-p 'misc-user-event-p)
282 282
283 ;; WMP - commention these out so that Emacs 19 doesn't get screwed by them. 283 (sysdep-defun event-point (event)
284 (let ((posn (event-end event)))
285 (if posn
286 (posn-point posn))))
287
288 ;; WMP - commenting these out so that Emacs 19 doesn't get screwed by them.
284 ;; In particular, this makes the 'custom' package blow up quite well. 289 ;; In particular, this makes the 'custom' package blow up quite well.
285 ;;(sysdep-defun add-submenu (menu-path submenu &optional before) 290 ;;(sysdep-defun add-submenu (menu-path submenu &optional before)
286 ;; "Add a menu to the menubar or one of its submenus. 291 ;; "Add a menu to the menubar or one of its submenus.
287 ;;If the named menu exists already, it is changed. 292 ;;If the named menu exists already, it is changed.
288 ;;MENU-PATH identifies the menu under which the new menu should be inserted. 293 ;;MENU-PATH identifies the menu under which the new menu should be inserted.