[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.74 emacs/lisp/progmodes/gdb-ui.el:1.75
*** emacs/lisp/progmodes/gdb-ui.el:1.74 Sun May 29 10:48:29 2005
--- emacs/lisp/progmodes/gdb-ui.el      Mon May 30 06:11:01 2005
***************
*** 1446,1454 ****
    (save-excursion
      (beginning-of-line 1)
      (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
!           (looking-at "\\([0-9]+\\).*point\\s-*\\S-*\\s-*\\(.\\)")
          (looking-at
!      
"\\([0-9]+\\)\\s-*\\S-*\\s-*\\S-*\\s-*\\(.\\)\\s-*\\S-*\\s-*\\S-*:[0-9]+"))
        (gdb-enqueue-input
         (list
          (concat gdb-server-prefix
--- 1446,1454 ----
    (save-excursion
      (beginning-of-line 1)
      (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
!           (looking-at "\\([0-9]+\\).*?point\\s-+\\S-+\\s-+\\(.\\)\\s-+")
          (looking-at
!      
"\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)\\s-+\\S-+\\s-+\\S-+:[0-9]+"))
        (gdb-enqueue-input
         (list
          (concat gdb-server-prefix
***************
*** 2554,2565 ****
--- 2554,2567 ----
  (defun gdb-display-assembler-buffer ()
    "Display disassembly view."
    (interactive)
+   (setq gdb-previous-frame nil)
    (gdb-display-buffer
     (gdb-get-create-buffer 'gdb-assembler-buffer)))
  
  (defun gdb-frame-assembler-buffer ()
    "Display disassembly view in a new frame."
    (interactive)
+   (setq gdb-previous-frame nil)
    (let ((special-display-regexps (append special-display-regexps '(".*")))
        (special-display-frame-alist gdb-frame-parameters))
      (display-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))))