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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/02/24 10:09:07

Index: lisp/progmodes/gdb-ui.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.222
retrieving revision 1.223
diff -u -b -r1.222 -r1.223
--- lisp/progmodes/gdb-ui.el    19 Feb 2008 04:30:49 -0000      1.222
+++ lisp/progmodes/gdb-ui.el    24 Feb 2008 10:08:50 -0000      1.223
@@ -326,6 +326,10 @@
   (setq gud-filter-pending-text nil)
   (run-hooks 'gdb-mode-hook))
 
+;; Keep as an alias for compatibility with Emacs 22.1.
+;;;###autoload
+(defalias 'gdba 'gdb)
+
 (defcustom gdb-debug-log-max 128
   "Maximum size of `gdb-debug-log'.  If nil, size is unlimited."
   :group 'gud
@@ -1981,6 +1985,7 @@
   (interactive "e")
   (mouse-minibuffer-check event)
   (let ((posn (event-end event)))
+    (if (buffer-file-name)
     (if (numberp (posn-point posn))
        (with-selected-window (posn-window posn)
          (save-excursion
@@ -1989,7 +1994,8 @@
                    (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
                        'breakpoint))
                (gud-remove nil)
-             (gud-break nil)))))))
+                 (gud-break nil)))))
+      (posn-set-point posn))))
 
 (defun gdb-mouse-toggle-breakpoint-margin (event)
   "Enable/disable breakpoint in left margin with mouse click."