[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el |
Date: |
Mon, 24 Oct 2005 18:06:47 -0400 |
Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.98 emacs/lisp/progmodes/gdb-ui.el:1.99
*** emacs/lisp/progmodes/gdb-ui.el:1.98 Mon Oct 24 08:54:18 2005
--- emacs/lisp/progmodes/gdb-ui.el Mon Oct 24 22:06:47 2005
***************
*** 350,359 ****
(define-key gud-minor-mode-map [left-fringe mouse-1]
'gdb-mouse-set-clear-breakpoint)
(define-key gud-minor-mode-map [left-margin mouse-3]
! 'gdb-mouse-toggle-breakpoint)
! ; Currently only works in margin.
! ; (define-key gud-minor-mode-map [left-fringe mouse-3]
! ; 'gdb-mouse-toggle-breakpoint)
(setq comint-input-sender 'gdb-send)
;;
--- 350,358 ----
(define-key gud-minor-mode-map [left-fringe mouse-1]
'gdb-mouse-set-clear-breakpoint)
(define-key gud-minor-mode-map [left-margin mouse-3]
! 'gdb-mouse-toggle-breakpoint-margin)
! (define-key gud-minor-mode-map [left-fringe mouse-3]
! 'gdb-mouse-toggle-breakpoint-fringe)
(setq comint-input-sender 'gdb-send)
;;
***************
*** 1400,1407 ****
(gud-remove nil)
(gud-break nil)))))))
! (defun gdb-mouse-toggle-breakpoint (event)
! "Enable/disable breakpoint in left fringe/margin with mouse click."
(interactive "e")
(mouse-minibuffer-check event)
(let ((posn (event-end event)))
--- 1399,1406 ----
(gud-remove nil)
(gud-break nil)))))))
! (defun gdb-mouse-toggle-breakpoint-margin (event)
! "Enable/disable breakpoint in left margin with mouse click."
(interactive "e")
(mouse-minibuffer-check event)
(let ((posn (event-end event)))
***************
*** 1419,1425 ****
0 'gdb-enabled (car (posn-string posn)))
"disable "
"enable ")
! bptno "\n")) 'ignore))))))))
(defun gdb-breakpoints-buffer-name ()
(with-current-buffer gud-comint-buffer
--- 1418,1450 ----
0 'gdb-enabled (car (posn-string posn)))
"disable "
"enable ")
! bptno "\n"))
! 'ignore))))))))
!
! (defun gdb-mouse-toggle-breakpoint-fringe (event)
! "Enable/disable breakpoint in left fringe with mouse click."
! (interactive "e")
! (mouse-minibuffer-check event)
! (let* ((posn (event-end event))
! (pos (posn-point posn))
! obj)
! (when (numberp pos)
! (with-selected-window (posn-window posn)
! (save-excursion
! (set-buffer (window-buffer (selected-window)))
! (goto-char pos)
! (dolist (overlay (overlays-in pos pos))
! (when (overlay-get overlay 'put-break)
! (setq obj (overlay-get overlay 'before-string))))
! (when (stringp obj)
! (gdb-enqueue-input
! (list
! (concat
! (if (get-text-property 0 'gdb-enabled obj)
! "disable "
! "enable ")
! (get-text-property 0 'gdb-bptno obj) "\n")
! 'ignore))))))))
(defun gdb-breakpoints-buffer-name ()
(with-current-buffer gud-comint-buffer
***************
*** 2456,2462 ****
(error (setq gdb-find-file-unhook t)))))
;;from put-image
! (defun gdb-put-string (putstring pos &optional dprop)
"Put string PUTSTRING in front of POS in the current buffer.
PUTSTRING is displayed by putting an overlay into the current buffer with a
`before-string' string that has a `display' property whose value is
--- 2481,2487 ----
(error (setq gdb-find-file-unhook t)))))
;;from put-image
! (defun gdb-put-string (putstring pos &optional dprop &rest sprops)
"Put string PUTSTRING in front of POS in the current buffer.
PUTSTRING is displayed by putting an overlay into the current buffer with a
`before-string' string that has a `display' property whose value is
***************
*** 2467,2473 ****
(let ((overlay (make-overlay pos pos buffer))
(prop (or dprop
(list (list 'margin 'left-margin) putstring))))
! (put-text-property 0 (length string) 'display prop string)
(overlay-put overlay 'put-break t)
(overlay-put overlay 'before-string string))))
--- 2492,2500 ----
(let ((overlay (make-overlay pos pos buffer))
(prop (or dprop
(list (list 'margin 'left-margin) putstring))))
! (put-text-property 0 1 'display prop string)
! (if sprops
! (add-text-properties 0 1 sprops string))
(overlay-put overlay 'put-break t)
(overlay-put overlay 'before-string string))))
***************
*** 2490,2510 ****
(add-text-properties
0 1 '(help-echo "mouse-1: set/clear bkpt, mouse-3: enable/disable bkpt")
putstring)
! (if enabled (add-text-properties
! 0 1 `(gdb-bptno ,bptno gdb-enabled t) putstring)
(add-text-properties
0 1 `(gdb-bptno ,bptno gdb-enabled nil) putstring))
(gdb-remove-breakpoint-icons start end)
(if (display-images-p)
(if (>= (or left-fringe-width
! (if source-window (car (window-fringes source-window)))
! gdb-buffer-fringe-width) 8)
(gdb-put-string
nil (1+ start)
`(left-fringe breakpoint
,(if enabled
'breakpoint-enabled
! 'breakpoint-disabled)))
(when (< left-margin-width 2)
(save-current-buffer
(setq left-margin-width 2)
--- 2517,2540 ----
(add-text-properties
0 1 '(help-echo "mouse-1: set/clear bkpt, mouse-3: enable/disable bkpt")
putstring)
! (if enabled
! (add-text-properties
! 0 1 `(gdb-bptno ,bptno gdb-enabled t) putstring)
(add-text-properties
0 1 `(gdb-bptno ,bptno gdb-enabled nil) putstring))
(gdb-remove-breakpoint-icons start end)
(if (display-images-p)
(if (>= (or left-fringe-width
! (if source-window (car (window-fringes source-window)))
! gdb-buffer-fringe-width) 8)
(gdb-put-string
nil (1+ start)
`(left-fringe breakpoint
,(if enabled
'breakpoint-enabled
! 'breakpoint-disabled))
! 'gdb-bptno bptno
! 'gdb-enabled enabled)
(when (< left-margin-width 2)
(save-current-buffer
(setq left-margin-width 2)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Masatake YAMATO, 2005/10/05
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/05
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/06
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Juanma Barranquero, 2005/10/06
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/06
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/10
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/17
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el,
Kim F . Storm <=
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/24
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/25
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/30
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/31
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, Nick Roberts, 2005/10/31