Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

allow for symlinked audio-files, too

  • Loading branch information...
commit 2a8a2e3edfc931d6d4f9dfcfec40e4c26e4d32d7 1 parent ab5c195
@djcb authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 sauron.el
View
6 sauron.el
@@ -494,7 +494,7 @@ the Nth previous line."
(interactive "P")
(forward-line (or n 1))
(sauron-activate-event))
-
+
(defun sauron-switch-to-marker-or-buffer (mbn)
"Switch to MBN (marker-or-buffer-or-name) in another
frame/window."
@@ -652,7 +652,7 @@ Obviously, 'alert.el' must be loaded for this to work."
;; some convenience function sound/light fx in event hooks
(defun sauron-fx-aplay (path)
"Play a wav-file at PATH using program aplay."
- (unless (and (file-readable-p path) (file-regular-p path))
+ (unless (and (file-readable-p path))
(error "%s is not a playable file" path))
(unless (executable-find "aplay")
(error "aplay not found"))
@@ -674,7 +674,7 @@ Obviously, 'alert.el' must be loaded for this to work."
(defun sauron-fx-mplayer (path)
"Play a wav-file at PATH using program mplayer."
- (unless (and (file-readable-p path) (file-regular-p path))
+ (unless (and (file-readable-p path))
(error "%s is not a playable file" path))
(unless (executable-find "mplayer")
(error "mplayer not found"))
Please sign in to comment.
Something went wrong with that request. Please try again.