diff options
| author | Matt Beshara <m@mfa.pw> | 2021-09-15T02·49+1000 |
|---|---|---|
| committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2021-10-25T16·05-0400 |
| commit | 8905e85d34082e6a0a175edc9954eb2d8d0e1473 (patch) | |
| tree | 04118bccf2f993e9ebae51a365bb500f116f7b23 | |
| parent | 182ffbed6c7334ee51cb5cd2645ba0ee42c4da13 (diff) | |
Rename variable using ‘exwm-workspace’ package prefix; add docstring
* exwm-workspace.el (exwm-workspace--client-p-hash-table): Rename `exwm--client-p-hash-table'.
| -rw-r--r-- | exwm-workspace.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index c1de5da9a3..ddf20ea409 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -165,18 +165,20 @@ NIL if FRAME is not a workspace" "Return t if FRAME is a workspace." (memq frame exwm-workspace--list)) -(defvar exwm--client-p-hash-table - (make-hash-table :test 'eq :weakness 'key)) +(defvar exwm-workspace--client-p-hash-table + (make-hash-table :test 'eq :weakness 'key) + "Used to cache the results of calling ‘exwm-workspace--client-p’.") (defsubst exwm-workspace--client-p (&optional frame) "Return non-nil if FRAME is an emacsclient frame." (let* ((frame (or frame (selected-frame))) - (cached-value (gethash frame exwm--client-p-hash-table 'absent))) + (cached-value + (gethash frame exwm-workspace--client-p-hash-table 'absent))) (if (eq cached-value 'absent) (puthash frame (or (frame-parameter frame 'client) (not (display-graphic-p frame))) - exwm--client-p-hash-table) + exwm-workspace--client-p-hash-table) cached-value))) (defvar exwm-workspace--switch-map nil |