gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use cl-subseq instead of subseq

Browse Source
This commit is contained in:
Gergely Polonkai 2018-07-02 09:46:00 +02:00
parent 21c227eff4
commit 6d3e1f56fc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
init.el
View File

@ -290,6 +290,7 @@
(list "^:Proj:python/" ":Proj:Py:") (list "^:Proj:python/" ":Proj:Py:")
t) t)
(sml/setup) (sml/setup)
(require 'cl-lib)
(setq-default header-line-format (setq-default header-line-format
'("" '(""
mode-line-mule-info mode-line-mule-info
@ -312,7 +313,7 @@
;; Add sml/pre-id-separator after mode-line-front-space ;; Add sml/pre-id-separator after mode-line-front-space
(let* ((front-space-position (1+ (cl-position 'mode-line-front-space mode-line-format))) (let* ((front-space-position (1+ (cl-position 'mode-line-front-space mode-line-format)))
(mode-line-rest (nthcdr front-space-position mode-line-format)) (mode-line-rest (nthcdr front-space-position mode-line-format))
(mode-line-beg (subseq mode-line-format 0 front-space-position))) (mode-line-beg (cl-subseq mode-line-format 0 front-space-position)))
(setq-default mode-line-format (nconc mode-line-beg (setq-default mode-line-format (nconc mode-line-beg
(list sml/pre-id-separator) (list sml/pre-id-separator)
mode-line-rest)))) mode-line-rest))))