From 88996863d706c5a23b82537612f932419b48915e Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 3 Feb 2022 20:04:58 +0000 Subject: jao-lyrics: more informative error message --- lib/media/jao-lyrics.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/media/jao-lyrics.el b/lib/media/jao-lyrics.el index dd85da1..5008fae 100644 --- a/lib/media/jao-lyrics.el +++ b/lib/media/jao-lyrics.el @@ -1,6 +1,6 @@ ;; jao-lyrics.el -- simple show lyrics using glyrc -;; Copyright (C) 2009, 2010, 2017, 2019, 2020 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2017, 2019, 2020, 2022 Jose Antonio Ortega Ruiz ;; Author: Jose Antonio Ortega Ruiz ;; Start date: Sat Jul 04, 2009 13:41 @@ -121,9 +121,11 @@ ;;;###autoload (defun jao-show-lyrics (&optional force info-function) (interactive "P") - (let* ((a/t (funcall (or info-function - jao-lyrics--info-function - jao-lyrics-info-function))) + (let* ((fun (or info-function + jao-lyrics--info-function + jao-lyrics-info-function)) + (a/t (when fun (funcall fun))) + (_ (unless a/t (user-error "No info returned by %s" fun))) (artist (car a/t)) (title (cdr a/t)) (artist (if force (read-string "Artist: " artist) artist)) -- cgit v1.2.3