diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-06-06 23:28:07 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-06-06 23:28:07 +0000 |
| commit | 352d5a3ab0aab9889c59e847643d265e062cec0b (patch) | |
| tree | e0189b7c762b8e87cf461b329640d6efdfab3520 /emacs | |
| parent | 6e21c824d91ef0b4ae60b95b347e344e5bb4d38a (diff) | |
| download | perl-352d5a3ab0aab9889c59e847643d265e062cec0b.tar.gz | |
perl 4.0 patch 7: patch #4, continued
See patch #4.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/perl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/emacs/perl-mode.el b/emacs/perl-mode.el index 5d7078cf3c..cb6195dec3 100644 --- a/emacs/perl-mode.el +++ b/emacs/perl-mode.el @@ -572,7 +572,7 @@ Returns new value of point in all cases." (or arg (setq arg 1)) (if (< arg 0) (forward-char 1)) (and (/= arg 0) - (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=" + (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\." nil 'move arg) (goto-char (1- (match-end 0)))) (point)) |