comparison lisp/speedbar.el @ 53487:25ff62ff164d

(speedbar-edit-line): Change regexp to position the cursor on the first character of this line's button.
author Richard M. Stallman <rms@gnu.org>
date Sat, 03 Jan 2004 21:12:08 +0000
parents 695cf19ef79e
children d21a8e697065
comparison
equal deleted inserted replaced
53486:23376885b0f9 53487:25ff62ff164d
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.