diff options
| author | Alex Branham <alex.branham@gmail.com> | 2019-07-08 07:29:18 -0500 |
|---|---|---|
| committer | Alex Branham <alex.branham@gmail.com> | 2019-07-08 07:30:22 -0500 |
| commit | 9d5d0684fdb66b30f93c6bf0dbde8d2c4b7472b1 (patch) | |
| tree | 14e201f3f000d7a4b0b27a050f2a4b6da757141d /lisp/ess-mode.el | |
| parent | 973d1eb73df7539b6310c7930f5d4d69fab1abd0 (diff) | |
Fix ess-narrow-to-defun-or-para and add test
Closes #949
Diffstat (limited to 'lisp/ess-mode.el')
| -rw-r--r-- | lisp/ess-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ess-mode.el b/lisp/ess-mode.el index 458ae72..c18d83a 100644 --- a/lisp/ess-mode.el +++ b/lisp/ess-mode.el @@ -398,8 +398,10 @@ current function." (interactive) (save-excursion (widen) - (let* ((beg (ess-goto-beginning-of-function-or-para)) - (end (ess-goto-end-of-function-or-para))) + (let* ((beg (progn (ess-goto-beginning-of-function-or-para) + (point))) + (end (progn (ess-goto-end-of-function-or-para) + (point)))) (narrow-to-region beg end)))) (define-obsolete-function-alias 'ess-narrow-to-defun 'ess-narrow-to-defun-or-para "15.09") |