Mercurial > emacs
comparison lisp/speedbar.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | d8411455de48 |
comparison
equal
deleted
inserted
replaced
89908:ee1402f7b568 | 89909:68c22ea6027c |
---|---|
3408 ;; If this fails, then it is a non-standard click, and as such, | 3408 ;; If this fails, then it is a non-standard click, and as such, |
3409 ;; perfectly allowed. | 3409 ;; perfectly allowed. |
3410 (if (re-search-forward "[]>?}] [^ ]" | 3410 (if (re-search-forward "[]>?}] [^ ]" |
3411 (save-excursion (end-of-line) (point)) | 3411 (save-excursion (end-of-line) (point)) |
3412 t) | 3412 t) |
3413 (speedbar-do-function-pointer) | 3413 (progn |
3414 (forward-char -1) | |
3415 (speedbar-do-function-pointer)) | |
3414 nil)) | 3416 nil)) |
3415 (speedbar-do-function-pointer))) | 3417 (speedbar-do-function-pointer))) |
3416 | 3418 |
3417 (defun speedbar-expand-line (&optional arg) | 3419 (defun speedbar-expand-line (&optional arg) |
3418 "Expand the line under the cursor. | 3420 "Expand the line under the cursor. |
4337 (provide 'speedbar) | 4339 (provide 'speedbar) |
4338 | 4340 |
4339 ;; run load-time hooks | 4341 ;; run load-time hooks |
4340 (run-hooks 'speedbar-load-hook) | 4342 (run-hooks 'speedbar-load-hook) |
4341 | 4343 |
4344 ;;; arch-tag: 4477e6d1-f78c-48b9-a503-387d3c9767d5 | |
4342 ;;; speedbar.el ends here | 4345 ;;; speedbar.el ends here |