branch: externals/dicom
commit a3a88e7bee6e5395c0859f5b3253677375205eeb
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Replace newlines in DICOM fields
---
dicom.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/dicom.el b/dicom.el
index 345ff9d4c9..d7925e6dcd 100644
--- a/dicom.el
+++ b/dicom.el
@@ -306,7 +306,10 @@ progress:${percent-pos}%%' %s) & disown"
(setq name (intern name))
(unless (memq name dicom-hidden-fields)
(setq hidden nil))
- (push (cons name (string-replace "^" " " (dom-text elem)))
alist))))
+ (push (cons name (replace-regexp-in-string
+ "\\s-+" " "
+ (string-replace "^" " " (dom-text elem))))
+ alist))))
(unless hidden
(push (sort alist (lambda (x y) (string< (car x) (car y)))) items))))
(nreverse items)))
