[elpa] master 23d1ac7: Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir
branch: master commit 23d1ac7fcea75496d76014ec8edf070944f9432c Author: Michael Heerdegen Commit: Michael Heerdegen Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir --- packages/el-search/el-search.el | 8 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index 23a7962..2f12bf9 100644 --- a/packages/el-search/el-search.el +++ b/packages/el-search/el-search.el @@ -2662,14 +2662,14 @@ With prefix arg RECURSIVELY non-nil, search subdirectories recursively." (defun el-search-emacs-elisp-sources (pattern) "Search Emacs elisp sources for PATTERN. This command recursively searches all elisp files under -\(expand-file-name \"lisp/\" source-directory\)." +`source-directory'." (interactive (list (el-search--read-pattern-for-interactive))) (el-search-setup-search pattern (lambda () - (el-search-stream-of-directory-files - (expand-file-name "lisp/" source-directory) - t)) + (seq-filter + #'el-search--elisp-file-p + (el-search-stream-of-directory-files source-directory t))) (lambda (search) (setf (alist-get 'description (el-search-object-properties search)) "Search the Emacs Elisp sources"
[elpa] externals/ebdb d88895d: Fix ebdb-load and manipulation of ebdb-db-list, bump version
branch: externals/ebdb commit d88895d1927a2c51cb8575d575dd7920c0515cb4 Author: Eric Abrahamsen Commit: Eric Abrahamsen Fix ebdb-load and manipulation of ebdb-db-list, bump version * ebdb.el (ebdb-load): Strange no one hit this, everyone must be migrating. Bump to 0.4.2. --- ebdb.el | 8 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ebdb.el b/ebdb.el index 1d9feaa..e5f379a 100644 --- a/ebdb.el +++ b/ebdb.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2016-2017 Free Software Foundation, Inc. -;; Version: 0.4.1 +;; Version: 0.4.2 ;; Package-Requires: ((emacs "25.1") (cl-lib "0.5") (seq "2.15")) ;; Maintainer: Eric Abrahamsen @@ -4884,13 +4884,13 @@ important work is done by the `ebdb-db-load' method." (progn (setq s (eieio-persistent-read auto-save-file 'ebdb-db t)) (setf (slot-value s 'file) orig-filename) (setf (slot-value s 'dirty) t)) -(setq s (eieio-persistent-read s 'ebdb-db t))) - (cl-pushnew s ebdb-db-list)) +(setq s (eieio-persistent-read s 'ebdb-db t ;; Handle new/nonexistent databases. (when (yes-or-no-p (format "%s does not exist, create? " s)) (setq s (make-instance 'ebdb-db-file :file s :dirty t)) ;; Try to get it on disk first. -(ebdb-db-save s +(ebdb-db-save s))) +(cl-pushnew s ebdb-db-list)) ((null (and (eieio-object-p s) (object-of-class-p s 'ebdb-db))) (error "Source %s must be a filename or instance of `ebdb-db'." s)))