From c6a99e30d93ab0b598afa20488563d0aa55c004b Mon Sep 17 00:00:00 2001 From: tastytea Date: Mon, 15 Jul 2019 00:27:30 +0200 Subject: [PATCH] Re-worded skippable-bufers section. --- init.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/init.el b/init.el index 5835a38..c1d3d1f 100644 --- a/init.el +++ b/init.el @@ -1,5 +1,5 @@ ;;; init.el --- tastytea's Emacs init file. -;; Time-stamp: <2019-07-13T19:28:42+00:00> +;; Time-stamp: <2019-07-14T22:25:59+00:00> ;;; Commentary: ;; I am using this file with Emacs 26, but most of it will probably work with @@ -137,17 +137,17 @@ (defvar my/never-skippable-buffers '("^\\*scratch\\*$") "Buffer names never ignored by `next-buffer' and `previous-buffer'.") (defun my/buffer-predicate (buffer) - "Returns nil if `buffer'-name matches expression in `my/skippable-buffers'." - (catch 'my-catch + "Returns nil if buffer-name matches expression in `my/skippable-buffers'." + (catch 'return ;; Return t if buffer-name is on never-skippable list. (dolist (expression my/never-skippable-buffers) (if (string-match expression (buffer-name buffer)) - (throw 'my-catch t) + (throw 'return t) )) ;; Return nil if buffer-name is on skippable list. (dolist (expression my/skippable-buffers) (if (string-match expression (buffer-name buffer)) - (throw 'my-catch nil) + (throw 'return nil) )) t)) (set-frame-parameter nil 'buffer-predicate 'my/buffer-predicate)