Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
51fa3961
Commit
51fa3961
authored
Mar 29, 2002
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(play-sound-file): Moved to simple.el.
parent
afa717ec
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
15 deletions
+1
-15
lisp/subr.el
lisp/subr.el
+1
-15
No files found.
lisp/subr.el
View file @
51fa3961
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment