Mercurial > emacs
changeset 70376:64d64506f4b1
(perl-beginning-of-function): Skip anonymous subs.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 04 May 2006 21:58:34 +0000 |
| parents | 87734376b1be |
| children | 1b78f3a87f16 |
| files | lisp/ChangeLog lisp/progmodes/perl-mode.el |
| diffstat | 2 files changed, 19 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu May 04 13:39:36 2006 +0000 +++ b/lisp/ChangeLog Thu May 04 21:58:34 2006 +0000 @@ -1,3 +1,8 @@ +2006-05-04 Karl Chen <quarl@NOSPAM.quarl.org> + + * progmodes/perl-mode.el (perl-beginning-of-function): + Skip anonymous subs. + 2006-05-04 Dan Nicolaescu <dann@ics.uci.edu> * ibuffer.el (ibuffer-compressed-file-name-regexp): Avoid loading @@ -44,20 +49,17 @@ 2006-05-02 Chong Yidong <cyd@mit.edu> - * msb.el (msb): If EVENT is a down event, read and discard the up - event. + * msb.el (msb): If EVENT is a down event, read and discard the up event. 2006-05-02 Reiner Steib <Reiner.Steib@gmx.de> * startup.el (command-line-1): Refer to Lisp manual when pure-space-overflow occurs. - * files.el (byte-compile-dynamic) - (byte-compile-dynamic-docstrings, byte-compile-warnings) - (find-file-visit-truename, indent-tabs-mode, left-margin) - (no-byte-compile no-update-autoloads, truncate-lines) - (version-control): Don't use `t' for safe-local-variable - declarations. + * files.el (byte-compile-dynamic, byte-compile-dynamic-docstrings) + (byte-compile-warnings, find-file-visit-truename, indent-tabs-mode) + (left-margin, no-byte-compile, no-update-autoloads, truncate-lines) + (version-control): Don't use `t' for safe-local-variable declarations. 2006-05-01 Richard Stallman <rms@gnu.org> @@ -91,10 +93,10 @@ Returning "/" only doesn't need to be necessary any longer. (tramp-file-name-handler): Make special attention when in hostname completion mode. - (tramp-completion-file-name-handler): Revert patch from 2006-04-28. - (tramp-register-file-name-handlers): Register - `tramp-completion-file-name-handler' only when - `partial-completion-mode is enabled. + (tramp-completion-file-name-handler): Revert patch from 2006-04-28. + (tramp-register-file-name-handlers): + Register `tramp-completion-file-name-handler' only when + `partial-completion-mode' is enabled. (tramp-completion-handle-file-name-all-completions): Delete directory part from results. (tramp-get-completion-methods, tramp-get-completion-user-host): @@ -108,8 +110,8 @@ 2006-05-01 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> - * term/mac-win.el (mac-ae-open-documents, mac-drag-n-drop): Use - select-frame-set-input-focus instead of raise-frame. + * term/mac-win.el (mac-ae-open-documents, mac-drag-n-drop): + Use select-frame-set-input-focus instead of raise-frame. (global-map): Bind M-drag-n-drop to mac-drag-n-drop. 2006-05-01 Nick Roberts <nickrob@snap.net.nz>
--- a/lisp/progmodes/perl-mode.el Thu May 04 13:39:36 2006 +0000 +++ b/lisp/progmodes/perl-mode.el Thu May 04 21:58:34 2006 +0000 @@ -923,8 +923,9 @@ (or arg (setq arg 1)) (if (< arg 0) (forward-char 1)) (and (/= arg 0) - (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\." - nil 'move arg) + (re-search-backward + "^\\s(\\|^\\s-*sub\\b[ \t\n]*\\_<[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\." + nil 'move arg) (goto-char (1- (match-end 0)))) (point))