257 |
) |
) |
258 |
|
|
259 |
;; mouse bindings so we can manipulate the items on each line |
;; mouse bindings so we can manipulate the items on each line |
260 |
(define-key map [down-mouse-1] 'dframe-double-click) |
;; (define-key map [down-mouse-1] 'dframe-double-click) |
261 |
|
(define-key map [follow-link] 'mouse-face) |
262 |
(define-key map [mouse-2] 'dframe-click) |
(define-key map [mouse-2] 'dframe-click) |
263 |
;; This is the power click for new frames, or refreshing a cache |
;; This is the power click for new frames, or refreshing a cache |
264 |
(define-key map [S-mouse-2] 'dframe-power-click) |
(define-key map [S-mouse-2] 'dframe-power-click) |
922 |
dframe-help-echo-function) |
dframe-help-echo-function) |
923 |
(let ((dframe-suppress-message-flag t)) |
(let ((dframe-suppress-message-flag t)) |
924 |
(with-current-buffer buffer |
(with-current-buffer buffer |
925 |
(if position (goto-char position)) |
(save-excursion |
926 |
(funcall dframe-help-echo-function))))) |
(if position (goto-char position)) |
927 |
|
(funcall dframe-help-echo-function)))))) |
928 |
|
|
929 |
(defun dframe-mouse-set-point (e) |
(defun dframe-mouse-set-point (e) |
930 |
"Set POINT based on event E. |
"Set POINT based on event E. |