diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 11:56:13 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 11:56:36 +0100 |
| commit | bd586121ac21e046f60f75eeb0200866c38d6f9f (patch) | |
| tree | b770f80ff30dd13d4eb2791ba092af113c4132c8 /lisp/emacs-lisp | |
| parent | a604e877cd1f8096f8c428c88c5b960307c12f85 (diff) | |
| download | emacs-bd586121ac21e046f60f75eeb0200866c38d6f9f.tar.gz emacs-bd586121ac21e046f60f75eeb0200866c38d6f9f.tar.bz2 emacs-bd586121ac21e046f60f75eeb0200866c38d6f9f.zip | |
Make the test for existing multisession variables more sensible
* lisp/emacs-lisp/multisession.el (multisession-edit-value):
Unconfuse the code.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/multisession.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el index 4a293796a83..25307594c6d 100644 --- a/lisp/emacs-lisp/multisession.el +++ b/lisp/emacs-lisp/multisession.el @@ -437,8 +437,8 @@ storage method to list." (let* ((object (or ;; If the multisession variable already exists, use ;; it (so that we update it). - (and (boundp (intern-soft (cdr id))) - (symbol-value (intern (cdr id)))) + (and (intern-soft (cdr id)) + (bound-and-true-p (intern (cdr id)))) ;; Create a new object. (make-multisession :package (car id) |