Emacs: Predicate buffers also for the first frame.

This commit is contained in:
tastytea 2020-08-03 00:20:22 +02:00
parent 7a339a4aba
commit e32acbd18b

View File

@ -1,6 +1,6 @@
;;; buffers.el --- Default settings for buffers. -*- lexical-binding: t; -*- ;;; buffers.el --- Default settings for buffers. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-08-02T00:42:18+0200> ;; Time-stamp: <2020-08-03T00:19:52+0200>
;;; Commentary: ;;; Commentary:
;; * Setup scratch buffer. ;; * Setup scratch buffer.
@ -35,6 +35,7 @@
(if (string-match expression (buffer-name buffer)) (if (string-match expression (buffer-name buffer))
(throw 'return nil))) (throw 'return nil)))
t)) t))
(set-frame-parameter nil 'buffer-predicate 'my/buffer-predicate)
; Doesn't work with use-package? ; Doesn't work with use-package?
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)