Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

…tion for toggling breakpoint fringe area.
  • Loading branch information...
commit b1d0c94cfd1e301be580b41ea265db57284fefd0 1 parent 128e80a
@rocky authored
Showing with 4 additions and 3 deletions.
  1. +1 −1  dbgr/common/bp.el
  2. +3 −2 dbgr/debugger/trepan.pl/init.el
View
2  dbgr/common/bp.el
@@ -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))
View
5 dbgr/debugger/trepan.pl/init.el
@@ -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)
Please sign in to comment.
Something went wrong with that request. Please try again.