Skip to content

Commit

Permalink
track.el: Fix bug in dbgr-goto-line-for-loc-pat
Browse files Browse the repository at this point in the history
key.el, track-mode.el: temporary workaround for VMware keybinding mess up.
  • Loading branch information
rocky committed Dec 7, 2009
1 parent 5ab5700 commit e968d75
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 3 deletions.
1 change: 1 addition & 0 deletions key.el
Expand Up @@ -66,6 +66,7 @@ Nor does it touch prefix keys; for that see `dbgr-populate-keys-standard'"
(define-key map "s" 'dbgr-cmd-step)
(define-key map [M-down] 'dbgr-track-hist-newer)
(define-key map [M-up] 'dbgr-track-hist-older)
(define-key map [M-print] 'dbgr-track-hist-older)
(define-key map [M-S-down] 'dbgr-track-hist-newest)
(define-key map [M-S-up] 'dbgr-track-hist-oldest)
;; (define-key map [mouse-3] 'dbgr-variables-pretty-print-mouse)
Expand Down
1 change: 1 addition & 0 deletions track-mode.el
Expand Up @@ -13,6 +13,7 @@
(define-key map [M-right] 'dbgr-track-hist-newest)
(define-key map [M-down] 'dbgr-track-hist-newer)
(define-key map [M-up] 'dbgr-track-hist-older)
(define-key map [M-print] 'dbgr-track-hist-older)
(define-key map [M-S-down] 'dbgr-track-hist-newest)
(define-key map [M-S-up] 'dbgr-track-hist-oldest)
map)
Expand Down
6 changes: 3 additions & 3 deletions track.el
Expand Up @@ -207,8 +207,8 @@ Otherwise return nil."
nil))
nil))))

(defun dbgr-goto-line-for-loc-pat (pt loc-pat)
"Display the location mentioned in line described by PT. LOC-PAT is used
(defun dbgr-goto-line-for-loc-pat (pt dbgr-loc-pat)
"Display the location mentioned in line described by PT. DBGR-LOC-PAT is used
to get regular-expresion pattern matching information."
(interactive "d")
(save-excursion
Expand All @@ -218,7 +218,7 @@ to get regular-expresion pattern matching information."
(curr-proc (get-buffer-process cmdbuf))
(start (line-beginning-position))
(end (line-end-position))
;; FIXME check that loc-pat is not null and abort if it is.
;; FIXME check that dbgr-loc-pat is not null and abort if it is.
(loc (dbgr-track-loc (buffer-substring start end)
cmd-mark
(dbgr-sget 'loc-pat 'regexp)
Expand Down

0 comments on commit e968d75

Please sign in to comment.