diff options
Diffstat (limited to 'lisp/cedet/ede/autoconf-edit.el')
| -rw-r--r-- | lisp/cedet/ede/autoconf-edit.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el index faf50edaa13..78edea1da8d 100644 --- a/lisp/cedet/ede/autoconf-edit.el +++ b/lisp/cedet/ede/autoconf-edit.el @@ -383,16 +383,16 @@ Optional argument BODY is the code to execute which edits the autoconf file." (beginning-of-line) (let* ((end-of-cmd (save-excursion - (if (re-search-forward "(" (point-at-eol) t) + (if (re-search-forward "(" (line-end-position) t) (progn (forward-char -1) (forward-sexp 1) (point)) ;; Else, just return EOL. - (point-at-eol)))) + (line-end-position)))) (cnt 0)) (save-restriction - (narrow-to-region (point-at-bol) end-of-cmd) + (narrow-to-region (line-beginning-position) end-of-cmd) (condition-case nil (progn (down-list 1) @@ -417,7 +417,7 @@ INDEX starts at 1." (down-list 1) (re-search-forward ", ?" nil nil (1- index)) (let ((end (save-excursion - (re-search-forward ",\\|)" (point-at-eol)) + (re-search-forward ",\\|)" (line-end-position)) (forward-char -1) (point)))) (setq autoconf-deleted-text (buffer-substring (point) end)) |