Browse Source

bs-show: use files-and-specials by default

pull/15/head
10sr 7 years ago
parent
commit
bcbce91f96
1 changed files with 4 additions and 1 deletions
  1. +4
    -1
      emacs.el

+ 4
- 1
emacs.el View File

@@ -1064,9 +1064,12 @@ found, otherwise returns nil."
(when (autoload-eval-lazily 'bs '(bs-show) (when (autoload-eval-lazily 'bs '(bs-show)
(add-to-list 'bs-configurations (add-to-list 'bs-configurations
'("specials" "^\\*" nil ".*" nil nil)) '("specials" "^\\*" nil ".*" nil nil))
(add-to-list 'bs-configurations
'("files-and-specials" "^\\*" buffer-file-name ".*" nil nil))
(defvar bs-mode-map) (defvar bs-mode-map)
(defvar bs-current-configuration) (defvar bs-current-configuration)
(define-key bs-mode-map (kbd "t") (define-key bs-mode-map (kbd "t")
;; TODO: fix toggle feature
(lambda () (lambda ()
(interactive) (interactive)
(if (string= "specials" (if (string= "specials"
@@ -1082,7 +1085,7 @@ found, otherwise returns nil."
;; bs-visits-non-file bs-sort-buffer-interns-are-last))) ;; bs-visits-non-file bs-sort-buffer-interns-are-last)))
) )
(defalias 'list-buffers 'bs-show) (defalias 'list-buffers 'bs-show)
(set-variable 'bs-default-configuration "files")
(set-variable 'bs-default-configuration "files-and-specials")
(set-variable 'bs-default-sort-name "by nothing") (set-variable 'bs-default-sort-name "by nothing")
(add-hook 'bs-mode-hook (add-hook 'bs-mode-hook
(lambda () (lambda ()


Loading…
Cancel
Save