diff options
author | Thanos Apollo <[email protected]> | 2024-01-19 00:40:04 +0200 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2024-01-19 00:40:04 +0200 |
commit | e57b48ba4e5ea9a0de16d35913f120742e79f594 (patch) | |
tree | badf0226b5c4121c1390a798ef4918e2dc2c5efb /gnosis.el | |
parent | 980a29d48bbe12bdaae4dad18ca1dd12af5328fa (diff) |
gnosis-edit-note-contents: Use eq & null
Diffstat (limited to 'gnosis.el')
-rw-r--r-- | gnosis.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1119,7 +1119,7 @@ changes." (extra-notes ,extra-notes) (image ,image) (second-image ,second-image)) - do (cond ((equal field 'id) + do (cond ((eq field 'id) (insert (format (concat ":%s " (propertize "%s" 'read-only t) "\n") field value))) ((numberp value) (insert (format ":%s %s\n" field value))) @@ -1127,7 +1127,7 @@ changes." (not (equal value nil))) (insert (format ":%s '%s\n" field (format "%s" (cl-loop for item in value collect (format "\"%s\"" item)))))) - ((equal value nil) + ((null value) (insert (format ":%s %s\n" field 'nil))) (t (insert (format ":%s \"%s\"\n" field value))))) (delete-char -1) ;; delete extra line |