emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Nick Roberts
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el
Date: Sun, 29 May 2005 06:48:29 -0400

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.73 emacs/lisp/progmodes/gdb-ui.el:1.74
*** emacs/lisp/progmodes/gdb-ui.el:1.73 Sat May 28 12:15:33 2005
--- emacs/lisp/progmodes/gdb-ui.el      Sun May 29 10:48:29 2005
***************
*** 1766,1772 ****
    gdb-read-memory-handler
    gdb-read-memory-custom)
  
! (defun gdb-read-memory-custom ())
  
  (defvar gdb-memory-mode-map
    (let ((map (make-sparse-keymap)))
--- 1766,1776 ----
    gdb-read-memory-handler
    gdb-read-memory-custom)
  
! (defun gdb-read-memory-custom ()
!   (save-excursion
!     (goto-char (point-min))
!     (if (looking-at "0x[[:xdigit:]]+")
!       (setq gdb-memory-address (match-string 0)))))
  
  (defvar gdb-memory-mode-map
    (let ((map (make-sparse-keymap)))
***************
*** 1790,1797 ****
      (select-window (posn-window (event-start event)))
      (let* ((arg (read-from-minibuffer "Repeat count: "))
          (count (string-to-number arg)))
!       (if (< count 0)
!         (error "Non-negative numbers only")
        (customize-set-variable 'gdb-memory-repeat-count count)
        (gdb-invalidate-memory)))))
  
--- 1794,1801 ----
      (select-window (posn-window (event-start event)))
      (let* ((arg (read-from-minibuffer "Repeat count: "))
          (count (string-to-number arg)))
!       (if (<= count 0)
!         (error "Positive numbers only")
        (customize-set-variable 'gdb-memory-repeat-count count)
        (gdb-invalidate-memory)))))
  
***************
*** 1944,1950 ****
    (setq header-line-format
        '(:eval
          (concat
!          "Read address: "
           (propertize gdb-memory-address
                       'face font-lock-warning-face
                       'help-echo "mouse-1: Set memory address"
--- 1948,1985 ----
    (setq header-line-format
        '(:eval
          (concat
!          "Read address["
!          (propertize
!           "-"
!           'face font-lock-warning-face
!           'help-echo "mouse-1: Decrement address"
!           'mouse-face 'mode-line-highlight
!           'local-map
!           (gdb-make-header-line-mouse-map
!            'mouse-1
!            #'(lambda () (interactive)
!                (let ((gdb-memory-address
!                       ;; let GDB do the arithmetic
!                       (concat
!                        gdb-memory-address " - "
!                        (number-to-string
!                         (* gdb-memory-repeat-count
!                            (cond ((string= gdb-memory-unit "b") 1)
!                                  ((string= gdb-memory-unit "h") 2)
!                                  ((string= gdb-memory-unit "w") 4)
!                                  ((string= gdb-memory-unit "g") 8)))))))
!                      (gdb-invalidate-memory)))))
!          "|"
!          (propertize "+"
!                      'face font-lock-warning-face
!                      'help-echo "mouse-1: Increment address"
!                      'mouse-face 'mode-line-highlight
!                      'local-map (gdb-make-header-line-mouse-map
!                                  'mouse-1
!                                  #'(lambda () (interactive)
!                                      (let ((gdb-memory-address nil))
!                                        (gdb-invalidate-memory)))))
!          "]: "
           (propertize gdb-memory-address
                       'face font-lock-warning-face
                       'help-echo "mouse-1: Set memory address"




reply via email to

[Prev in Thread] Current Thread [Next in Thread]