mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 2002-03-29 23:13:26 +00:00
parent afa717ec93
commit 51fa39614f
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/subr.el
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 inserted t)))
(setq tail (cdr tail))))) (setq tail (cdr tail)))))
(defmacro kbd (keys) (defmacro kbd (keys)
"Convert KEYS to the internal Emacs key representation. "Convert KEYS to the internal Emacs key representation.
KEYS should be a string constant in the format used for 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) (setq minor-mode-map-alist (cons (cons toggle keymap)
minor-mode-map-alist)))))))) 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Clones ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun text-clone-maintain (ol1 after beg end &optional len) (defun text-clone-maintain (ol1 after beg end &optional len)