From 22eaeb8ef2e1c90a953ff7ba172aa1654af167d0 Mon Sep 17 00:00:00 2001 From: Lin Sun Date: Tue, 14 Jun 2022 00:00:47 +0000 Subject: [PATCH] [core] fix functions missed for byte-compiled core-spacemacs-buffer.el --- core/core-spacemacs-buffer.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/core/core-spacemacs-buffer.el b/core/core-spacemacs-buffer.el index c667a6cbc..101895ec4 100644 --- a/core/core-spacemacs-buffer.el +++ b/core/core-spacemacs-buffer.el @@ -838,16 +838,16 @@ in for example the `view-lossage' (C-h l) buffer: instead of: r ;; anonymous-command p ;; anonymous-command" - (let* ((func-name (spacemacs-buffer//startup-list-jump-func-name search-label)) - (func-name-symbol (intern func-name))) - (eval `(defun ,func-name-symbol () - (interactive) - (unless (search-forward ,search-label (point-max) t) - (search-backward ,search-label (point-min) t)) - ,@(unless no-next-line - '((forward-line 1))) - (back-to-indentation))) - `(define-key spacemacs-buffer-mode-map ,shortcut-char ',func-name-symbol))) + (let ((func-name-symbol + (intern (spacemacs-buffer//startup-list-jump-func-name search-label)))) + `(progn (defun ,func-name-symbol () + (interactive) + (unless (search-forward ,search-label (point-max) t) + (search-backward ,search-label (point-min) t)) + ,@(unless no-next-line + '((forward-line 1))) + (back-to-indentation)) + (define-key spacemacs-buffer-mode-map ,shortcut-char ',func-name-symbol)))) (defun spacemacs-buffer//center-line (&optional real-width) "When point is at the end of a line, center it.