github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: Wrong number of arguments in info-nodes segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-06-27 03:48:10 +08:00
parent 2360bd543c
commit 4befbbbdce
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
doom-modeline-segments.el
View file

@ -1591,7 +1591,7 @@ mouse-3: Describe current input method")
"The topic and nodes in the Info buffer." "The topic and nodes in the Info buffer."
(let ((active (doom-modeline--active))) (let ((active (doom-modeline--active)))
(concat (concat
(propertize " (" (if active 'mode-line 'mode-line-inactive)) (propertize " (" 'face (if active 'mode-line 'mode-line-inactive))
;; topic ;; topic
(propertize (if (stringp Info-current-file) (propertize (if (stringp Info-current-file)
(replace-regexp-in-string (replace-regexp-in-string
@ -1600,17 +1600,16 @@ mouse-3: Describe current input method")
(file-name-nondirectory Info-current-file))) (file-name-nondirectory Info-current-file)))
(format "*%S*" Info-current-file)) (format "*%S*" Info-current-file))
'face (if active 'doom-modeline-info 'mode-line-inactive)) 'face (if active 'doom-modeline-info 'mode-line-inactive))
(propertize ") " (if active 'mode-line 'mode-line-inactive)) (propertize ") " 'face (if active 'mode-line 'mode-line-inactive))
;; node ;; node
(if Info-current-node (when Info-current-node
(propertize (replace-regexp-in-string (propertize (replace-regexp-in-string
"%" "%%" Info-current-node) "%" "%%" Info-current-node)
'face (if active 'doom-modeline-buffer-path 'mode-line-inactive) 'face (if active 'doom-modeline-buffer-path 'mode-line-inactive)
'help-echo 'help-echo
"mouse-1: scroll forward, mouse-3: scroll back" "mouse-1: scroll forward, mouse-3: scroll back"
'mouse-face 'mode-line-highlight 'mouse-face 'mode-line-highlight
'local-map Info-mode-line-node-keymap) 'local-map Info-mode-line-node-keymap)))))
""))))
;; ;;