TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[core] fix functions missed for byte-compiled core-spacemacs-buffer.el

This commit is contained in:
Lin Sun 2022-06-14 00:00:47 +00:00 committed by Maxi Wolff
parent e75e925e37
commit 22eaeb8ef2
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
core/core-spacemacs-buffer.el
View File

@ -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.