From 52320f942b4d8a303c1fb0ea4fba745856d4b85e Mon Sep 17 00:00:00 2001 From: Bastien Date: Tue, 11 Feb 2020 08:51:30 +0100 Subject: [PATCH] lisp/ob-lilypond.el: Fix initialization bug * lisp/ob-lilypond.el (org-babel-lilypond-commands): Fix the :set function. Thanks to Victor A. Stoichita for reporting this. --- lisp/ob-lilypond.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el index eb3372fa7..e207784f4 100644 --- a/lisp/ob-lilypond.el +++ b/lisp/ob-lilypond.el @@ -67,12 +67,15 @@ the midi file is not automatically played. Default value is t") (defvar org-babel-lilypond-ly-command "" "Command to execute lilypond on your system. Do not set it directly. Customize `org-babel-lilypond-commands' instead.") + (defvar org-babel-lilypond-pdf-command "" "Command to show a PDF file on your system. Do not set it directly. Customize `org-babel-lilypond-commands' instead.") + (defvar org-babel-lilypond-midi-command "" "Command to play a MIDI file on your system. Do not set it directly. Customize `org-babel-lilypond-commands' instead.") + (defcustom org-babel-lilypond-commands (cond ((eq system-type 'darwin) @@ -94,7 +97,8 @@ you can leave the string empty on this case." :version "24.4" :package-version '(Org . "8.2.7") :set - (lambda (_symbol value) + (lambda (symbol value) + (set symbol value) (setq org-babel-lilypond-ly-command (nth 0 value) org-babel-lilypond-pdf-command (nth 1 value)