[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net eudc-bob.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/net eudc-bob.el |
Date: |
Tue, 01 Sep 2009 03:16:08 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/01 03:16:08
Modified files:
lisp/net : eudc-bob.el
Log message:
(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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/eudc-bob.el?cvsroot=emacs&r1=1.22&r2=1.23
Patches:
Index: eudc-bob.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/eudc-bob.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- eudc-bob.el 5 Jan 2009 03:22:43 -0000 1.22
+++ eudc-bob.el 1 Sep 2009 03:16:07 -0000 1.23
@@ -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 <address@hidden>
;; Maintainer: Pavel JanÃk <address@hidden>
@@ -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 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/net eudc-bob.el,
Glenn Morris <=