Преглед изворни кода

Fix nyan-mode set length

master
10sr пре 4 година
родитељ
комит
88d8ae93d3
Signed by: 10sr GPG Key ID: C384BB17CBB19347
1 измењених фајлова са 9 додато и 4 уклоњено
  1. +9
    -4
      emacs.el

+ 9
- 4
emacs.el Прегледај датотеку

@@ -800,11 +800,16 @@ THEM are function and its args."
;; (when f
;; (abbreviate-file-name f))))
))
(defun my-nyan-set-length (&rest _)
"Set `nyan-mode' length to window width."
(set-variable 'nyan-bar-length
(- (window-size nil t) 4)
t))
(add-hook 'window-configuration-change-hook
(lambda ()
(set-variable 'nyan-bar-length
(- (window-size nil t) 4)
t))))
'my-nyan-set-length)
(add-hook 'switch-buffer-functions
'my-nyan-set-length)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; letters, font-lock mode and fonts


Loading…
Откажи
Сачувај