[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.118 
emacs/lisp/progmodes/gdb-ui.el:1.119
*** emacs/lisp/progmodes/gdb-ui.el:1.118        Fri Nov 25 21:34:03 2005
--- emacs/lisp/progmodes/gdb-ui.el      Sun Nov 27 01:17:47 2005
***************
*** 1620,1626 ****
  (defun gdb-goto-breakpoint (&optional event)
    "Display the breakpoint location specified at current line."
    (interactive (list last-input-event))
!   (if event (mouse-set-point event))
    ;; Hack to stop gdb-goto-breakpoint displaying in GUD buffer.
    (let ((window (get-buffer-window gud-comint-buffer)))
      (if window (save-selected-window  (select-window window))))
--- 1620,1626 ----
  (defun gdb-goto-breakpoint (&optional event)
    "Display the breakpoint location specified at current line."
    (interactive (list last-input-event))
!   (if event (posn-set-point (event-end event)))
    ;; Hack to stop gdb-goto-breakpoint displaying in GUD buffer.
    (let ((window (get-buffer-window gud-comint-buffer)))
      (if window (save-selected-window  (select-window window))))
***************
*** 1745,1751 ****
  (defun gdb-frames-select (&optional event)
    "Select the frame and display the relevant source."
    (interactive (list last-input-event))
!   (if event (mouse-set-point event))
    (gdb-enqueue-input
     (list (concat gdb-server-prefix "frame "
                 (gdb-get-frame-number) "\n") 'ignore))
--- 1745,1751 ----
  (defun gdb-frames-select (&optional event)
    "Select the frame and display the relevant source."
    (interactive (list last-input-event))
!   (if event (posn-set-point (event-end event)))
    (gdb-enqueue-input
     (list (concat gdb-server-prefix "frame "
                 (gdb-get-frame-number) "\n") 'ignore))
***************
*** 1830,1836 ****
  (defun gdb-threads-select (&optional event)
    "Select the thread and display the relevant source."
    (interactive (list last-input-event))
!   (if event (mouse-set-point event))
    (gdb-enqueue-input
     (list (concat gdb-server-prefix "thread "
                 (gdb-get-thread-number) "\n") 'ignore))
--- 1830,1836 ----
  (defun gdb-threads-select (&optional event)
    "Select the thread and display the relevant source."
    (interactive (list last-input-event))
!   (if event (posn-set-point (event-end event)))
    (gdb-enqueue-input
     (list (concat gdb-server-prefix "thread "
                 (gdb-get-thread-number) "\n") 'ignore))