Changeset 4079 for trunk/lisp/progmodes/perl-mode.el
- Timestamp:
- 05/13/06 11:31:18 (3 years ago)
- Files:
-
- trunk/lisp/progmodes/perl-mode.el (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/progmodes/perl-mode.el
r4058 r4079 924 924 (if (< arg 0) (forward-char 1)) 925 925 (and (/= arg 0) 926 (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\." 927 nil 'move arg) 926 (re-search-backward 927 "^\\s(\\|^\\s-*sub\\b[ \t\n]*\\_<[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\." 928 nil 'move arg) 928 929 (goto-char (1- (match-end 0)))) 929 930 (point))
