From d2265df75a530ffcc8bc22ff3e92da19c1c05222 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 22 Jan 2019 15:42:56 +0100 Subject: [PATCH] Update dired-narrow. Signed-off-by: Andreas Gerler --- .../dired-narrow-autoloads.el | 0 .../dired-narrow-pkg.el | 2 +- .../dired-narrow.el | 11 ++++++++--- 3 files changed, 9 insertions(+), 4 deletions(-) rename elpa/{dired-narrow-20170309.1129 => dired-narrow-20181114.1723}/dired-narrow-autoloads.el (100%) rename elpa/{dired-narrow-20170309.1129 => dired-narrow-20181114.1723}/dired-narrow-pkg.el (64%) rename elpa/{dired-narrow-20170309.1129 => dired-narrow-20181114.1723}/dired-narrow.el (97%) diff --git a/elpa/dired-narrow-20170309.1129/dired-narrow-autoloads.el b/elpa/dired-narrow-20181114.1723/dired-narrow-autoloads.el similarity index 100% rename from elpa/dired-narrow-20170309.1129/dired-narrow-autoloads.el rename to elpa/dired-narrow-20181114.1723/dired-narrow-autoloads.el diff --git a/elpa/dired-narrow-20170309.1129/dired-narrow-pkg.el b/elpa/dired-narrow-20181114.1723/dired-narrow-pkg.el similarity index 64% rename from elpa/dired-narrow-20170309.1129/dired-narrow-pkg.el rename to elpa/dired-narrow-20181114.1723/dired-narrow-pkg.el index d39edaf4..f40be819 100644 --- a/elpa/dired-narrow-20170309.1129/dired-narrow-pkg.el +++ b/elpa/dired-narrow-20181114.1723/dired-narrow-pkg.el @@ -1,2 +1,2 @@ ;;; -*- no-byte-compile: t -*- -(define-package "dired-narrow" "20170309.1129" "Live-narrowing of search results for dired" '((dash "2.7.0") (dired-hacks-utils "0.0.1")) :commit "c5e9dcdf2ee6fd5660e2bfbb8c635674053df7c9" :keywords '("files") :authors '(("Matúš Goljer" . "matus.goljer@gmail.com")) :maintainer '("Matúš Goljer" . "matus.goljer@gmail.com")) +(define-package "dired-narrow" "20181114.1723" "Live-narrowing of search results for dired" '((dash "2.7.0") (dired-hacks-utils "0.0.1")) :commit "c7184dc8f6ed3f2330db8d8f21f01c4b08056dd3" :keywords '("files") :authors '(("Matúš Goljer" . "matus.goljer@gmail.com")) :maintainer '("Matúš Goljer" . "matus.goljer@gmail.com")) diff --git a/elpa/dired-narrow-20170309.1129/dired-narrow.el b/elpa/dired-narrow-20181114.1723/dired-narrow.el similarity index 97% rename from elpa/dired-narrow-20170309.1129/dired-narrow.el rename to elpa/dired-narrow-20181114.1723/dired-narrow.el index 223f8190..e4d2d8a1 100644 --- a/elpa/dired-narrow-20170309.1129/dired-narrow.el +++ b/elpa/dired-narrow-20181114.1723/dired-narrow.el @@ -5,7 +5,7 @@ ;; Author: Matúš Goljer ;; Maintainer: Matúš Goljer ;; Version: 0.0.1 -;; Package-Version: 20170309.1129 +;; Package-Version: 20181114.1723 ;; Created: 14th February 2014 ;; Package-requires: ((dash "2.7.0") (dired-hacks-utils "0.0.1")) ;; Keywords: files @@ -175,7 +175,8 @@ when `dired-narrow-exit-when-one-left' and `dired-narrow-enable-blinking' are tr (defun dired-narrow--restore () "Restore the invisible files of the current buffer." (let ((inhibit-read-only t)) - (remove-text-properties (point-min) (point-max) '(invisible)) + (remove-list-of-text-properties (point-min) (point-max) + '(invisible :dired-narrow)) (when (fboundp 'dired-insert-set-properties) (dired-insert-set-properties (point-min) (point-max))))) @@ -264,7 +265,11 @@ read from minibuffer." ;; Interactive (defun dired-narrow--regexp-filter (filter) - (re-search-forward filter (line-end-position) t)) + (condition-case nil + (string-match-p filter (dired-utils-get-filename 'no-dir)) + ;; Return t if your regexp is incomplete/has errors, thus + ;; filtering nothing until you fix the regexp. + (invalid-regexp t))) ;;;###autoload (defun dired-narrow-regexp () -- 2.47.3