[elpa] externals/exwm 4f854e9: Fix issue with managed tray icons

[Chris Feng]

branch: externals/exwm
commit 4f854e9fffe540da8acca9bee6a340754ff86810
Author: Chris Feng 
Commit: Chris Feng 

Fix issue with managed tray icons

* exwm-input.el (exwm-input--on-ButtonPress): Replay button events
destined for managed tray icons.
---
 exwm-input.el | 13 ++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/exwm-input.el b/exwm-input.el
index 39fcbad..a950d42 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -382,6 +382,7 @@ ARGS are additional arguments to CALLBACK."
 buffer (exwm--id->buffer event)
 window (get-buffer-window buffer t))
   (cond ((and (eq button-event exwm-input-move-event)
+  buffer
   ;; Either an undecorated or a floating X window.
   (with-current-buffer buffer
 (or (not (derived-mode-p 'exwm-mode))
@@ -390,12 +391,13 @@ ARGS are additional arguments to CALLBACK."
  (exwm-floating--start-moveresize
   event xcb:ewmh:_NET_WM_MOVERESIZE_MOVE))
 ((and (eq button-event exwm-input-resize-event)
+  buffer
   (with-current-buffer buffer
 (or (not (derived-mode-p 'exwm-mode))
 exwm--floating-frame)))
  ;; Resize
  (exwm-floating--start-moveresize event))
-(t
+(buffer
  ;; Click to focus
  (unless (eq window (selected-window))
(setq frame (window-frame window))
@@ -414,13 +416,18 @@ ARGS are additional arguments to CALLBACK."
(select-window window)
  (setq window (get-buffer-window buffer t))
  (when window (select-window window
+ ;; Also process keybindings.
  (with-current-buffer buffer
(when (derived-mode-p 'exwm-mode)
  (cl-case exwm--input-mode
(line-mode
-(setq mode (exwm-input--on-ButtonPress-line-mode buffer 
button-event)))
+(setq mode (exwm-input--on-ButtonPress-line-mode
+buffer button-event)))
(char-mode
-(setq mode (exwm-input--on-ButtonPress-char-mode)
+(setq mode (exwm-input--on-ButtonPress-char-mode)))
+(t
+ ;; Replay this event by default.
+ (setq mode xcb:Allow:ReplayPointer
 (xcb:+request exwm--connection
 (make-instance 'xcb:AllowEvents :mode mode :time xcb:Time:CurrentTime))
 (xcb:flush exwm--connection)))

[elpa] master aed66bd: In path-iterator, fix header comment syntax, add Commentary

[Stephen Leake]

branch: master
commit aed66bd7124bce35185c23c0ac82c65d9fa3a9cb
Author: Stephen Leake 
Commit: Stephen Leake 

In path-iterator, fix header comment syntax, add Commentary

* packages/path-iterator/path-iterator.el: Fix comment syntax, add 
Commentary.
(path-iter--to-truename): Rename with --; not part of public API.
---
 packages/path-iterator/path-iterator.el | 57 -
 1 file changed, 49 insertions(+), 8 deletions(-)

diff --git a/packages/path-iterator/path-iterator.el 
b/packages/path-iterator/path-iterator.el
index abfdff1..ca208e4 100644
--- a/packages/path-iterator/path-iterator.el
+++ b/packages/path-iterator/path-iterator.el
@@ -1,6 +1,6 @@
-;; path-iterator.el --- An iterator for traversing a directory path.  
-*-lexical-binding:t-*-
+;;; path-iterator.el --- An iterator for traversing a directory path.  
-*-lexical-binding:t-*-
 
-;; Copyright (C) 2015 - 2017 Free Software Foundation, Inc.
+;; Copyright (C) 2015 - 2017, 2019 Free Software Foundation, Inc.
 ;;
 ;; Author: Stephen Leake 
 ;; Maintainer: Stephen Leake 
@@ -23,9 +23,50 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs.  If not, see .
 
-;;; Code:
+;;; Commentary:
 
-(require 'cl-generic)
+;; A path-iterator object is created by `make-path-iterator', which
+;; takes keyword arguments:
+;;
+;; user-path-non-recursive: list of directories to return, in order given
+;;
+;; user-path-recursive: list of root directory trees to return; trees
+;; are explored in depth-first order, after all directories in
+;; `user-path-non-recursive' are returned.
+;;
+;; ignore-function: a function that takes one argument (an absolute
+;; directory name), and returns nil if directory should be returned,
+;; non-nil if not.
+;;
+;; Other functions:
+;;
+;; path-iter-done: non-nil if the iterator is done (all directories
+;; have been returned).
+;;
+;; path-iter-next: return the next directory, or nil if done.
+;;
+;; path-iter-restart: restart iterator; next call to `path-iter-next'
+;; will return the first directory.
+;;
+;; path-iter-reset: clear internal caches; recompute the path. In
+;; normal operation, the directories returned from both the
+;; non-recursive and recursive path are cached in an array in the
+;; first iteration, and subsequent iterations just return items in
+;; that array. This avoids calling `directory-files' and the
+;; ignore-function on iterations after the first. `path-iter-reset'
+;; should be called if directories are added/deleted in the recursive
+;; path, or if the ignore-function is changed,
+;;
+;; path-iter-contains-root: non-nil if the iterator directory lists
+;; contain the given directory. For both the non-recursive and
+;; recursive lists, the given directory must be in the list; nested
+;; directories return nil.
+;;
+;; path-iter-expand-filename: expand a given filename against all the
+;; directories returned by the iterator, return the first one that
+;; exists, or nil if the filename exists in none of the directories.
+
+;;; Code:
 
 (cl-defstruct
 (path-iterator
@@ -38,9 +79,9 @@
user-path-recursive
ignore-function

-   (path-non-recursive-init (path-iter-to-truename 
user-path-non-recursive))
+   (path-non-recursive-init (path-iter--to-truename 
user-path-non-recursive))
(path-non-recursive path-non-recursive-init)
-   (path-recursive-init (path-iter-to-truename 
user-path-recursive))
+   (path-recursive-init (path-iter--to-truename 
user-path-recursive))
(path-recursive path-recursive-init)
(visited nil)
(current nil)
@@ -76,7 +117,7 @@
   (member root (path-iter-path-non-recursive-init iter))
   ))
 
-(defun path-iter-to-truename (path)
+(defun path-iter--to-truename (path)
   "Convert each existing element of PATH to an absolute directory file 
truename,
 return the resulting list.  Elements of PATH are either absolute or
 relative to `default-directory'.
@@ -245,4 +286,4 @@ Return a list of absolute filenames or nil if none found."
 result))
 
 (provide 'path-iterator)
-;; path-iterator.el ends here
+;;; path-iterator.el ends here.

[elpa] externals/ebdb updated (753c049 -> d376d69)

[Eric Abrahamsen]

girzel pushed a change to branch externals/ebdb.

  from  753c049   Bump to 0.6.3, flush recent changes
   new  d9fc7e0   Don't add Gnus window configurations if ebdb-mua-pop-up 
is nil
   new  d376d69   Update vCard formatter classes, bump to 0.6.4


Summary of changes:
 ebdb-gnus.el| 11 +++
 ebdb-message.el | 20 
 ebdb-vcard.el   |  2 +-
 ebdb.el |  2 +-
 4 files changed, 21 insertions(+), 14 deletions(-)

[elpa] externals/ebdb d376d69 2/2: Update vCard formatter classes, bump to 0.6.4

[Eric Abrahamsen]

branch: externals/ebdb
commit d376d694f59fe55d952e6e44df7e8415d18b373a
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Update vCard formatter classes, bump to 0.6.4

Fixes #75

* ebdb-vcard.el (ebdb-formatter-vcard): Forgot to update for the new
  formatters.
---
 ebdb-vcard.el | 2 +-
 ebdb.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ebdb-vcard.el b/ebdb-vcard.el
index aaac522..1313b78 100644
--- a/ebdb-vcard.el
+++ b/ebdb-vcard.el
@@ -31,7 +31,7 @@
 
 (autoload 'calendar-gregorian-from-absolute "calendar")
 
-(defclass ebdb-formatter-vcard (ebdb-formatter)
+(defclass ebdb-formatter-vcard (ebdb-formatter-freeform)
   ((coding-system :initform 'utf-8-dos)
(version-string
 :type string
diff --git a/ebdb.el b/ebdb.el
index 1adc8da..329c023 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2016-2018  Free Software Foundation, Inc.
 
-;; Version: 0.6.3
+;; Version: 0.6.4
 ;; Package-Requires: ((emacs "25.1") (cl-lib "0.5") (seq "2.15"))
 
 ;; Maintainer: Eric Abrahamsen 

[elpa] externals/ebdb d9fc7e0 1/2: Don't add Gnus window configurations if ebdb-mua-pop-up is nil

[Eric Abrahamsen]

branch: externals/ebdb
commit d9fc7e0f2a754e577fde13a289b27f3c609c18c4
Author: Eric Abrahamsen 
Commit: Eric Abrahamsen 

Don't add Gnus window configurations if ebdb-mua-pop-up is nil

Otherwise, Gnus will still open an empty window, even if EBDB doesn't
think it's popping up.

* ebdb-gnus.el (ebdb-after-load-hook):
* ebdb-message.el (ebdb-after-load-hook): Move the config into the
  ebdb-after-load-hook.
---
 ebdb-gnus.el| 11 +++
 ebdb-message.el | 20 
 2 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/ebdb-gnus.el b/ebdb-gnus.el
index c034143..5e2fe66 100644
--- a/ebdb-gnus.el
+++ b/ebdb-gnus.el
@@ -233,10 +233,13 @@ Note that `\( is the backquote, NOT the quote '\(."
   (format "*%s-Gnus*" ebdb-buffer-name))
 
 ;; Tell Gnus how to display the *EBDB-Gnus* buffer.
-(with-eval-after-load "gnus-win"
-  (add-to-list 'gnus-window-to-buffer
-  `(ebdb-gnus . ,(ebdb-gnus-buffer-name)))
-  (gnus-add-configuration ebdb-gnus-window-configuration))
+(add-hook 'ebdb-after-load-hook
+ (lambda ()
+  (with-eval-after-load "gnus-win"
+(when ebdb-mua-pop-up
+  (add-to-list 'gnus-window-to-buffer
+   `(ebdb-gnus . ,(ebdb-gnus-buffer-name)))
+  (gnus-add-configuration ebdb-gnus-window-configuration)
 
 (cl-defmethod ebdb-make-buffer-name ( (major-mode gnus-summary-mode))
   "Produce a EBDB buffer name associated with Gnus."
diff --git a/ebdb-message.el b/ebdb-message.el
index cdc3c8e..1cbecd5 100644
--- a/ebdb-message.el
+++ b/ebdb-message.el
@@ -120,16 +120,20 @@ See Gnus' manual for details."
 ;; *EBDB-Message* buffer after the message-mode buffer is created.
 ;; The gnus window configuration stanza makes sure it's displayed
 ;; after the message buffer is set up.
-(with-eval-after-load 'gnus-win
-  (add-to-list 'gnus-window-to-buffer
-  `(ebdb-message . ,(ebdb-message-buffer-name)))
-  (add-hook 'message-header-setup-hook 'ebdb-mua-auto-update)
+(add-hook 'ebdb-after-load-hook
+ (lambda ()
+   (with-eval-after-load "gnus-win"
+ (add-hook 'message-header-setup-hook 'ebdb-mua-auto-update)
 
-  (gnus-add-configuration
-   ebdb-message-reply-window-config)
+ (when ebdb-mua-pop-up
+   (add-to-list 'gnus-window-to-buffer
+`(ebdb-message . ,(ebdb-message-buffer-name)))
 
-  (gnus-add-configuration
-   ebdb-message-reply-yank-window-config))
+   (gnus-add-configuration
+ebdb-message-reply-window-config)
+
+   (gnus-add-configuration
+ebdb-message-reply-yank-window-config)
 
 (provide 'ebdb-message)
 ;;; ebdb-message.el ends here