diff options
author | Pavel Janík <Pavel@Janik.cz> | 2002-01-06 15:08:06 +0000 |
---|---|---|
committer | Pavel Janík <Pavel@Janik.cz> | 2002-01-06 15:08:06 +0000 |
commit | aed3fbc3874448cbc20d0d0b884174ace026564e (patch) | |
tree | 8c7054699925fbae8239e9ccaeed1d22f372401b /lisp/net/eudc-bob.el | |
parent | 82d72d650c92b33282cfb7de0f40df8a8b8eedb6 (diff) | |
download | emacs-aed3fbc3874448cbc20d0d0b884174ace026564e.tar.gz |
Remove unnecessary whitespaces.
Diffstat (limited to 'lisp/net/eudc-bob.el')
-rw-r--r-- | lisp/net/eudc-bob.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index 822a6e7db1e..a005e7f4523 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el @@ -56,14 +56,14 @@ ["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 `("EUDC Sound Menu" ["---" nil nil] ["Play sound" eudc-bob-play-sound-at-point (fboundp 'play-sound)] ,@(cdr (cdr eudc-bob-generic-menu)))) - + (defun eudc-jump-to-event (event) "Jump to the window and point where EVENT occurred." (if eudc-xemacs-p @@ -270,7 +270,7 @@ display a button." (defun eudc-bob-menu () "Retrieve the menu attached to a binary object." (eudc-bob-get-overlay-prop 'menu)) - + (defun eudc-bob-popup-menu (event) "Pop-up a menu of EUDC multimedia commands." (interactive "@e") @@ -321,7 +321,6 @@ 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 eudc-emacs-p (progn (easy-menu-define eudc-bob-generic-menu @@ -362,5 +361,5 @@ display a button." (defun eudc-display-jpeg-as-button (data) "Display a button for the JPEG DATA." (eudc-bob-display-jpeg data nil)) - + ;;; eudc-bob.el ends here |