Permalink
Browse files

Correct trepan.pl breakpoint command. Change fringe string in prepara…

…tion for toggling breakpoint fringe area.
  • Loading branch information...
rocky committed Sep 26, 2012
1 parent 128e80a commit b1d0c94cfd1e301be580b41ea265db57284fefd0
Showing with 4 additions and 3 deletions.
  1. +1 −1 dbgr/common/bp.el
  2. +3 −2 dbgr/debugger/trepan.pl/init.el
View
@@ -86,7 +86,7 @@ also attached to the icon via its display string."
('t (format "%d:" bp-num))))
(brkpt-icon)
(bp-str)
- (help-string "mouse-1: clear bkpt, mouse-3: enable/disable bkpt")
+ (help-string "mouse-1: enable/disable bkpt")
)
(with-current-buffer buf
(unless dbgr-bp-enabled-icon (set-bp-icons))
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2011 Rocky Bernstein <rocky@gnu.org>
+;;; Copyright (C) 2011-2012 Rocky Bernstein <rocky@gnu.org>
;;; Trepanning Perl debugger
(eval-when-compile (require 'cl))
@@ -183,7 +183,8 @@ backtrace listing.")
"Hash key is command name like 'quit' and the value is
the trepanpl command to use, like 'quit!'")
-(setf (gethash "quit" dbgr-trepanpl-command-hash) "quit!")
+(setf (gethash "break" dbgr-trepanpl-command-hash) "break %f %l")
+(setf (gethash "quit" dbgr-trepanpl-command-hash) "quit!")
(setf (gethash dbgr-trepanpl-debugger-name
dbgr-command-hash) dbgr-trepanpl-command-hash)

0 comments on commit b1d0c94

Please sign in to comment.