|
@@ -13730,10 +13730,7 @@ Returns the new tags string, or nil to not change the current settings."
|
|
(append (or buffer-tags
|
|
(append (or buffer-tags
|
|
(with-current-buffer buf
|
|
(with-current-buffer buf
|
|
(mapcar 'car (org-get-buffer-tags))))
|
|
(mapcar 'car (org-get-buffer-tags))))
|
|
- (delq nil
|
|
|
|
- (mapcar (lambda (x)
|
|
|
|
- (if (stringp
|
|
|
|
- (car x)) x)) table))))))
|
|
|
|
|
|
+ (mapcar 'car table)))))
|
|
(quit (setq tg "")))
|
|
(quit (setq tg "")))
|
|
(when (string-match "\\S-" tg)
|
|
(when (string-match "\\S-" tg)
|
|
(add-to-list 'buffer-tags (list tg))
|
|
(add-to-list 'buffer-tags (list tg))
|