emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/gtags-mode 3c68518562: Remove nil buffers from project-


From: ELPA Syncer
Subject: [elpa] externals/gtags-mode 3c68518562: Remove nil buffers from project-buffers
Date: Sun, 31 Mar 2024 21:58:08 -0400 (EDT)

branch: externals/gtags-mode
commit 3c685185625e03343c995974ee1d026c9ef808c4
Author: Jimmy Aguilar Mena <kratsbinovish@gmail.com>
Commit: Jimmy Aguilar Mena <kratsbinovish@gmail.com>

    Remove nil buffers from project-buffers
    
    The output form project-buffers is not intended to have nil entries; but
    mapcar keeps the conditions evaluated as nil, so it requires to filter
    them.
---
 gtags-mode.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/gtags-mode.el b/gtags-mode.el
index 5c446e8968..abed23ec16 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -5,7 +5,7 @@
 ;; Author: Jimmy Aguilar Mena
 ;; URL: https://github.com/Ergus/gtags-mode
 ;; Keywords: xref, project, imenu, gtags, global
-;; Version: 1.1
+;; Version: 1.2
 ;; Package-Requires: ((emacs "28"))
 
 ;; This program is free software: you can redistribute it and/or modify
@@ -328,14 +328,15 @@ Return as a list of xref location objects."
 
 (cl-defmethod project-buffers ((project (head :gtagsroot)))
   "Return the list of all live buffers that belong to PROJECT."
-  (mapcar (lambda (buff)
-           (cond
-            ((eq (buffer-local-value 'gtags-mode--plist buff) project) buff)
-            ((local-variable-p 'gtags-mode--plist buff) nil)
-            (t (with-current-buffer buff
-                 (when (eq (gtags-mode--local-plist) project)
-                   (current-buffer))))))
-         (buffer-list)))
+  (delq nil
+       (mapcar (lambda (buff)
+                 (cond
+                  ((eq (buffer-local-value 'gtags-mode--plist buff) project) 
buff)
+                  ((local-variable-p 'gtags-mode--plist buff) nil)
+                  (t (with-current-buffer buff
+                       (when (eq (gtags-mode--local-plist) project)
+                         (current-buffer))))))
+               (buffer-list))))
 
 ;; Completion-at-point-function (capf) ===============================
 (defun gtags-mode-completion-function ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]