1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

(play-sound-file): Moved to simple.el.

This commit is contained in:
Richard M. Stallman 2002-03-29 23:13:26 +00:00
parent afa717ec93
commit 51fa39614f

View File

@ -456,6 +456,7 @@ The order of bindings in a keymap matters when it is used as a menu."
(setq inserted t)))
(setq tail (cdr tail)))))
(defmacro kbd (keys)
"Convert KEYS to the internal Emacs key representation.
KEYS should be a string constant in the format used for
@ -1868,21 +1869,6 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
(setq minor-mode-map-alist (cons (cons toggle keymap)
minor-mode-map-alist))))))))
;; XEmacs compatibility/convenience.
(if (fboundp 'play-sound)
(defun play-sound-file (file &optional volume device)
"Play sound stored in FILE.
VOLUME and DEVICE correspond to the keywords of the sound
specification for `play-sound'."
(interactive "fPlay sound file: ")
(let ((sound (list :file file)))
(if volume
(plist-put sound :volume volume))
(if device
(plist-put sound :device device))
(push 'sound sound)
(play-sound sound))))
;; Clones ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun text-clone-maintain (ol1 after beg end &optional len)