diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-12-02 14:03:53 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-12-02 14:03:53 +0100 |
commit | df7b8cdf7001899b1fa0f4c3464d5d8572157ecb (patch) | |
tree | 935d2266a018576b123baaf8bb5a1ebbf88015b7 | |
parent | a253f4f7ff2fbf01f5351f2eebda87b56e7def38 (diff) | |
download | org-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.el | 10 |
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) |