diff options
| author | Glenn Morris <[email protected]> | 2009-09-01 03:16:07 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2009-09-01 03:16:07 +0000 |
| commit | b0f3d955cb68459c7bac57946ea704c6dfeb85bb (patch) | |
| tree | 637409456b00e89d922b51fdc1c4f70fa4d6e0e4 /lisp/net/eudc-bob.el | |
| parent | a2e01f7e5e0c1fc313d3245e262591b8b8f10cc1 (diff) | |
(eudc-bob-generic-menu, eudc-bob-image-menu)
(eudc-bob-sound-menu): Use defvar rather than defconst, since
easy-menu-define wants to modify these.
Diffstat (limited to 'lisp/net/eudc-bob.el')
| -rw-r--r-- | lisp/net/eudc-bob.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index 86a7db1507..8c30819dd2 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el @@ -1,7 +1,7 @@ ;;; eudc-bob.el --- Binary Objects Support for EUDC -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <[email protected]> ;; Maintainer: Pavel Jan�k <[email protected]> @@ -46,20 +46,20 @@ (defvar eudc-bob-mail-keymap nil "Keymap for inline e-mail addresses.") -(defconst eudc-bob-generic-menu +(defvar eudc-bob-generic-menu '("EUDC Binary Object Menu" ["---" nil nil] ["Pipe to external program" eudc-bob-pipe-object-to-external-program t] ["Save object" eudc-bob-save-object t])) -(defconst eudc-bob-image-menu +(defvar eudc-bob-image-menu `("EUDC Image Menu" ["---" nil nil] ["Toggle inline display" eudc-bob-toggle-inline-display (eudc-bob-can-display-inline-images)] ,@(cdr (cdr eudc-bob-generic-menu)))) -(defconst eudc-bob-sound-menu +(defvar eudc-bob-sound-menu `("EUDC Sound Menu" ["---" nil nil] ["Play sound" eudc-bob-play-sound-at-point @@ -317,6 +317,8 @@ display a button." (set-keymap-parent eudc-bob-image-keymap eudc-bob-generic-keymap) (set-keymap-parent eudc-bob-sound-keymap eudc-bob-generic-keymap) +;; If the first arguments can be nil here, then these 3 can be +;; defconsts once more. (when (not (featurep 'xemacs)) (easy-menu-define eudc-bob-generic-menu eudc-bob-generic-keymap |