From 51fa39614fdaacef2e26e6aba3d08189d4ec4ba8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Mar 2002 23:13:26 +0000 Subject: [PATCH] (play-sound-file): Moved to simple.el. --- lisp/subr.el | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index ad6e07437ab..51297611edb 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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) -- 2.39.2