summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2018-12-02 14:03:53 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-12-02 14:03:53 +0100
commitdf7b8cdf7001899b1fa0f4c3464d5d8572157ecb (patch)
tree935d2266a018576b123baaf8bb5a1ebbf88015b7
parenta253f4f7ff2fbf01f5351f2eebda87b56e7def38 (diff)
downloadorg-mode-df7b8cdf7001899b1fa0f4c3464d5d8572157ecb.tar.gz
org-colview: Remove `org-columns-compact-links'
* lisp/org-colview.el (org-columns--displayed-value): Use `org-link-display-format' instead.
-rw-r--r--lisp/org-colview.el10
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 5b3cf51..bc55f5f 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)