mirror of
https://git.freebsd.org/ports.git
synced 2025-06-30 09:00:33 -04:00
31 lines
1.1 KiB
Text
31 lines
1.1 KiB
Text
--- lisp/jde-db.el.orig Mon Jan 7 17:18:11 2002
|
|
+++ lisp/jde-db.el Tue Jan 8 14:03:16 2002
|
|
@@ -728,6 +728,10 @@
|
|
(jde-db-pkg-to-path package) curr-dir)))))
|
|
(setq n (1+ n))))))
|
|
|
|
+(defun gud-new-keymap (map)
|
|
+ "Return a new keymap which inherits from MAP and has name `Gud'."
|
|
+ (nconc (make-sparse-keymap "Gud") map))
|
|
+
|
|
;; Fixes a bug in gud-make-debug-menu
|
|
(defun jde-db-make-debug-menu ()
|
|
"Make sure the current local map has a [menu-bar debug] submap.
|
|
@@ -748,7 +752,7 @@
|
|
(jde-db-search-src-dirs f jde-db-last-package)))
|
|
(if source-dir
|
|
(let ((source-file
|
|
- (concat source-dir f)))
|
|
+ (expand-file-name f source-dir)))
|
|
(save-excursion
|
|
(let ((buf (find-file-noselect source-file)))
|
|
(set-buffer buf)
|
|
@@ -760,6 +764,8 @@
|
|
(add-menu nil "Jdb" jde-db-xemacs-menu)))
|
|
(progn
|
|
(jde-db-make-debug-menu)
|
|
+ (local-set-key [menu-bar debug finish] nil)
|
|
+ (local-set-key [menu-bar debug tbreak] nil)
|
|
(local-set-key [menu-bar debug refresh] nil)
|
|
(local-set-key [menu-bar debug stepi] nil)
|
|
(local-set-key [menu-bar debug up] '("Up Stack" . gud-up))
|