如何在global-pangu-spacing-mode启用的情况下禁用dired的pangu-spacing

amosbird · 2017 年10 月 13 日 12:05

这个mode非常影响dired的性能

twlz0ne · 2017 年10 月 13 日 12:53

通常是这样写的（但是我没用过这个包，不能保证100%正确）：

(defun maybe-enable-pangu-spacing-mode ()
  (when (not (memq major-mode
                   '(dired-mode ...)))
    (pangu-spacing-mode)))

(define-global-minor-mode my/global-pangu-spacing-mode
  global-pangu-spacing-mode maybe-enable-pangu-spacing-mode)

;; (global-pangu-spacing-mode 1)
(my/global-pangu-spacing-mode 1)

Update：

看了楼下的答案，原来已经有原生实现了

xuchunyang · 2017 年10 月 13 日 12:55

没用过这个包，不过看起来可以试试把 dired-mode 加入 pangu-spacing-inhibit-mode-alist：

github.com

coldnew/pangu-spacing/blob/a4463dbb74abdeddb6c1c132a1f8fcf67ed87498/pangu-spacing.el#L163


      
          (defcustom pangu-spacing-real-insert-separtor nil
            "Set t or nil to make space show only on overlay or insert in file.
          When you set t here, the space will be insert when you save file."
            :group 'pangu-spacing
            :type 'boolean)
          
          
(defface pangu-spacing-separator-face nil
            "Face for pangu-spacing-mode separator."
            :group 'pangu-spacing)
          
          
(defcustom pangu-spacing-inhibit-mode-alist '(eshell-mode shell-mode term-mode)
            "Inhibit mode alist for pangu-spacing-mode."
            :group 'pangu-spacing
            :type 'list)
          
          
;;;; Local variables
          
          
;; NOTE:
          ;; We use `chinse-two-byte' instead of `chinese-two-byte', since there
          ;; are some typo in emacs version 21.1-24.3. For more information,
          ;; see:

amosbird · 2017 年10 月 14 日 09:04

好的，谢谢！