diff options
| author | Brent Westbrook | 2022-11-19 09:23:57 -0500 |
|---|---|---|
| committer | Thomas Fitzsimmons | 2022-11-19 09:26:55 -0500 |
| commit | db3ff76dc7d3184e51cb7ed17c78ef76babb9032 (patch) | |
| tree | 398f5e1d5e2eab0e417e5a50c754be0e8a47ca1c | |
| parent | 91c3a276dd5cdeb6eab40d921ff2def47500a4c4 (diff) | |
| download | emacs-db3ff76dc7d3184e51cb7ed17c78ef76babb9032.tar.gz emacs-db3ff76dc7d3184e51cb7ed17c78ef76babb9032.zip | |
EUDC: Fix a void-variable error
* lisp/net/eudcb-mailabbrev.el (eudc-mailabbrev-query-internal):
Check if symbol is bound before taking its value. (Bug#59369)
| -rw-r--r-- | lisp/net/eudcb-mailabbrev.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/eudcb-mailabbrev.el b/lisp/net/eudcb-mailabbrev.el index 64b50af09bc..4a2dd9ad4a4 100644 --- a/lisp/net/eudcb-mailabbrev.el +++ b/lisp/net/eudcb-mailabbrev.el | |||
| @@ -78,7 +78,10 @@ RETURN-ATTRS is a list of attributes to return, defaulting to | |||
| 78 | (dolist (term query) | 78 | (dolist (term query) |
| 79 | (let* ((attr (car term)) | 79 | (let* ((attr (car term)) |
| 80 | (value (cdr term)) | 80 | (value (cdr term)) |
| 81 | (raw-matches (symbol-value (intern-soft value mail-abbrevs)))) | 81 | (soft (intern-soft value mail-abbrevs)) |
| 82 | (raw-matches (and | ||
| 83 | (boundp soft) | ||
| 84 | (symbol-value soft)))) | ||
| 82 | (when (and raw-matches | 85 | (when (and raw-matches |
| 83 | (memq attr '(email firstname name))) | 86 | (memq attr '(email firstname name))) |
| 84 | (let* ((matches (split-string raw-matches ", ")) | 87 | (let* ((matches (split-string raw-matches ", ")) |