diff options
| -rw-r--r-- | emacs/.emacs.d/init/ycp-buffer.el | 5 | ||||
| -rw-r--r-- | emacs/.emacs.d/init/ycp-markup.el | 3 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-buffer.el | 4 |
3 files changed, 10 insertions, 2 deletions
diff --git a/emacs/.emacs.d/init/ycp-buffer.el b/emacs/.emacs.d/init/ycp-buffer.el index 944a45e..b91e6aa 100644 --- a/emacs/.emacs.d/init/ycp-buffer.el +++ b/emacs/.emacs.d/init/ycp-buffer.el @@ -50,7 +50,7 @@ (my-configure (:delay 15) (my-keybind ctl-x-x-map - "f" #'follow-mode ; override `font-lock-update' + ;; "f" #'follow-mode ; override `font-lock-update' "r" #'rename-uniquely "l" #'visual-line-mode) @@ -98,6 +98,9 @@ (my-package follow (:delay 15) + (require 'my-buffer) + ;; Disable follow mode + (my-override follow-mode) ;; TODO: update this to adapt to number of windows (my-keybind follow-mode-map "C-v" #'follow-scroll-up diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el index 57f30cb..4922d6e 100644 --- a/emacs/.emacs.d/init/ycp-markup.el +++ b/emacs/.emacs.d/init/ycp-markup.el @@ -105,7 +105,8 @@ ;; No fill, so it requires visual line mode to look nice (setq nov-text-width t) (add-hook 'nov-mode-hook 'visual-line-mode) - (add-hook 'nov-mode-hook 'follow-mode) + ;; interfering with dbus + ;; (add-hook 'nov-mode-hook 'follow-mode) (add-hook 'nov-mode-hook (lambda () (setq line-spacing .1))) (add-hook 'nov-post-html-render-hook 'my-nov-set-margins) diff --git a/emacs/.emacs.d/lisp/my/my-buffer.el b/emacs/.emacs.d/lisp/my/my-buffer.el index a8683de..1c93abc 100644 --- a/emacs/.emacs.d/lisp/my/my-buffer.el +++ b/emacs/.emacs.d/lisp/my/my-buffer.el @@ -526,5 +526,9 @@ With double prefix arguments, create a new indirect buffer." (with-no-warnings (font-lock-fontify-buffer))) (buffer-string))) +;;; Disable follow mode +(defun my-follow-mode (&rest _) + (error "follow-mode is disabled.")) + (provide 'my-buffer) ;;; my-buffer.el ends here |