Mercurial > emacs

changeset 44251:3900f65547f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(play-sound-file): Moved to simple.el.
author Richard M. Stallman <rms@gnu.org>
date Fri, 29 Mar 2002 23:13:26 +0000
parents 9221d899e94f
children 0cdafef85267
files lisp/subr.el
diffstat 1 files changed, 1 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Fri Mar 29 23:00:21 2002 +0000
+++ b/lisp/subr.el	Fri Mar 29 23:13:26 2002 +0000
@@ -456,6 +456,7 @@
 	    (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 @@
 	    (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)