branch: externals/ampc
commit 4e6430c6f67635421c782b59f367cc1af33982e3
Author: Christopher Schmidt <christop...@ch.ristopher.com>
Commit: Christopher Schmidt <christop...@ch.ristopher.com>
* ampc.el (ampc-insert): Minor code simplification.
---
ampc.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/ampc.el b/ampc.el
index 056536fece..d2080c0dae 100644
--- a/ampc.el
+++ b/ampc.el
@@ -956,11 +956,10 @@ all the time!"
(insert element "\n")
(put-text-property start (point) 'data (if (eq cmp t)
`(,data)
- data)))
- nil)
- (update t
- (remove-text-properties (point) (1+ (point)) '(updated))
- (equal (buffer-substring (point) (1+ (point))) "*")))))
+ data))))
+ (update
+ (remove-text-properties (point) (1+ (point)) '(updated))
+ (equal (buffer-substring (point) (1+ (point))) "*")))))
(defun ampc-fill-tag (trees)
(put-text-property (point-min) (point-max) 'data nil)
