Emacs: Predicate buffers for every frame.
This commit is contained in:
parent
9544a6ab83
commit
7a339a4aba
|
@ -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-06-03T17:54:14+0200>
|
;; Time-stamp: <2020-08-02T00:42:18+0200>
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
;; * Setup scratch buffer.
|
;; * Setup scratch buffer.
|
||||||
|
@ -35,7 +35,11 @@
|
||||||
(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?
|
||||||
|
(add-hook 'after-make-frame-functions
|
||||||
|
(lambda (frame)
|
||||||
|
(set-frame-parameter
|
||||||
|
frame 'buffer-predicate 'my/buffer-predicate)))
|
||||||
|
|
||||||
(defun my/truncate-lines ()
|
(defun my/truncate-lines ()
|
||||||
"Truncate lines in local buffer instead of wrapping them."
|
"Truncate lines in local buffer instead of wrapping them."
|
||||||
|
|
Loading…
Reference in New Issue
Block a user