From df7b8cdf7001899b1fa0f4c3464d5d8572157ecb Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 2 Dec 2018 14:03:53 +0100 Subject: [PATCH] org-colview: Remove `org-columns-compact-links' * lisp/org-colview.el (org-columns--displayed-value): Use `org-link-display-format' instead. --- lisp/org-colview.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 5b3cf51e4..bc55f5f6b 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -247,7 +247,7 @@ display, as a string." (concat (make-string (1- (org-current-level)) (if org-hide-leading-stars ?\s ?*)) "* " - (org-columns-compact-links value))) + (org-link-display-format value))) (`(,_ ,_ ,_ ,_ nil) value) ;; If PRINTF is set, assume we are displaying a number and ;; obey to the format string. @@ -501,14 +501,6 @@ for the duration of the command.") (when (local-variable-p 'org-colview-initial-truncate-line-value) (setq truncate-lines org-colview-initial-truncate-line-value)))) -(defun org-columns-compact-links (s) - "Replace [[link][desc]] with [desc] or [link]." - (while (string-match org-bracket-link-regexp s) - (setq s (replace-match - (concat "[" (match-string (if (match-end 3) 3 1) s) "]") - t t s))) - s) - (defun org-columns-show-value () "Show the full value of the property." (interactive)