Minor reformatting

This commit is contained in:
Bastien Guerry 2014-05-24 11:52:36 +02:00
parent 2c33442ae2
commit dd179e81f3
1 changed files with 2 additions and 1 deletions

View File

@ -845,7 +845,8 @@ When nil, simply write \"#ERROR\" in corrupted fields.")
(> (org-string-width xx) fmax))
(org-add-props xx nil
'help-echo
(concat "Clipped table field, use C-c ` to edit. Full value is:\n" (org-no-properties (copy-sequence xx))))
(concat "Clipped table field, use C-c ` to edit. Full value is:\n"
(org-no-properties (copy-sequence xx))))
(setq f1 (min fmax (or (string-match org-bracket-link-regexp xx) fmax)))
(unless (> f1 1)
(user-error "Cannot narrow field starting with wide link \"%s\""