\r
\f\r
;;; Code:\r
-(eval-when-compile\r
- (require 'subr-x))\r
\r
;;; Predicates\r
(defun sotlisp--auto-paired-p ()\r
(ignore-errors (forward-sexp -1)\r
(looking-at-p "#'")))\r
(thing-at-point 'symbol)\r
- (if-let ((fcap (function-called-at-point)))\r
- (symbol-name fcap)\r
- (thing-at-point 'symbol))))\r
+ (let ((fcap (function-called-at-point)))\r
+ (if fcap\r
+ (symbol-name fcap)\r
+ (thing-at-point 'symbol)))))\r
\r
(defun sotlisp-find-or-define-function (&optional prefix)\r
"If symbol under point is a defined function, go to it, otherwise define it.\r