diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-02-14 02:12:47 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-02-14 02:12:47 -0500 |
commit | cb6c7d8b3feeb869dc7218f9686461d2ede3aaac (patch) | |
tree | 875fbd40aaef38b0ab01ccd885c076e8854d6d61 /org-link-edit.el | |
parent | a8b65ff0682019ab912ebc1a3693262d9dd501d6 (diff) | |
download | org-link-edit-cb6c7d8b3feeb869dc7218f9686461d2ede3aaac.tar.gz |
backward-slurp-word: Fix whitespace check
Don't fail when there is no description and the slurped word isn't
separated by a non-word character.
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))) |