diff options
Diffstat (limited to 'org-link-edit.el')
-rw-r--r-- | org-link-edit.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/org-link-edit.el b/org-link-edit.el index 3df5a0f..180e289 100644 --- a/org-link-edit.el +++ b/org-link-edit.el @@ -166,9 +166,9 @@ words." (user-error "Not enough words before the link")) (point))) (let ((slurped (buffer-substring-no-properties (point) beg))) - (when (= (length desc) 0) - (setq slurped (progn (string-match "\\(.*\\w\\)\\W*$" slurped) - (match-string 1 slurped)))) + (when (and (= (length desc) 0) + (string-match "\\(.*\\w\\)\\W*$" slurped)) + (setq slurped (match-string 1 slurped))) (setq slurped (replace-regexp-in-string "\n" " " slurped)) (setq desc (concat slurped desc) beg (- beg (length slurped))) |