> On 7 Jun 2019, at 12:35, Robert Weiner <[email protected]> wrote: > > >> (hbut:key-to-label (hbut:label-to-key '/i/src/sys/kern/kern_sig.c')) > > Just evaluate the above in the scratch buffer to see if this creates the > double underscore.
The single-quote causes 'Invalid read syntax' . Other edebug traces are included below. --8<---------------cut here---------------start------------->8--- (hpath:is-p "/i/src/sys/kern/kern_sig.c") ; Line 1036:64 result is "/i/src/sys/kern/kern_sig.c" ; Line 1036:65 result is "/i/src/sys/kern/kern_sig.c" ; Line 1036:66 result is "/i/src/sys/kern/kern_sig.c" ; Line 1036:67 result is "/i/src/sys/kern/kern_sig.c" ; Line 1087:42 result is "/i/src/sys/kern/kern_sig.c" (hbut:key-to-label (hbut:label-to-key "/i/src/sys/kern/kern_sig.c")) ; result is "/i/src/sys/kern/kern_sig.c" (hbut:key-to-label (hbut:label-to-key '/i/src/sys/kern/kern_sig.c')) ; result is 'Invalid read syntax: ")"' ; Debugger entered--Lisp error: (invalid-read-syntax ")") ; read(#<buffer *scratch*>) ; elisp--preceding-sexp() ; elisp--eval-last-sexp(nil) ; eval-last-sexp(nil) ; funcall-interactively(eval-last-sexp nil) ; call-interactively(eval-last-sexp nil nil) ; command-execute(eval-last-sexp) --8<---------------cut here---------------end--------------->8---
