[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark 514b130 4/4: Merge pull request #410 from minad/
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark 514b130 4/4: Merge pull request #410 from minad/fix-var-export |
Date: |
Wed, 17 Nov 2021 11:57:21 -0500 (EST) |
branch: externals/embark
commit 514b1308e97e322c89e691d1022b29586c72de14
Merge: b4a9d0e 5eda761
Author: Omar AntolĂn Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #410 from minad/fix-var-export
embark-export-customize-variable: Check if the variable can be properly
deserialized
---
embark.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/embark.el b/embark.el
index b90a0c3..03c8495 100644
--- a/embark.el
+++ b/embark.el
@@ -2904,7 +2904,16 @@ PRED is a predicate function used to filter the items."
(defun embark-export-customize-variable (variables)
"Create a customization buffer listing VARIABLES."
- (embark--export-customize variables "Variables" 'custom-variable #'boundp))
+ (embark--export-customize
+ variables "Variables" 'custom-variable
+ (lambda (sym)
+ (and (boundp sym)
+ (condition-case nil
+ ;; Check if variable can be properly deserialized.
+ ;; The customization widget relies on this.
+ (let ((val (symbol-value sym)))
+ (or (read (format "%S" val)) t))
+ (t nil))))))
(defun embark-export-ibuffer (buffers)
"Create an ibuffer buffer listing BUFFERS."