Mercurial > emacs

changeset 6238:fab2ffdf64d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb): Use a minibuffer map with TAB to complete a filename.
author Karl Heuer <kwzh@gnu.org>
date Mon, 07 Mar 1994 20:13:50 +0000
parents 7c95bb9f534b
children 31e12709b654
files lisp/gud.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Mon Mar 07 19:44:50 1994 +0000
+++ b/lisp/gud.el	Mon Mar 07 20:13:50 1994 +0000
@@ -213,6 +213,14 @@
 (defun gud-gdb-find-file (f)
   (find-file-noselect f))
 
+(defvar gdb-minibuffer-local-map nil
+  "Keymap for minibuffer prompting of gdb startup command.")
+(if gdb-minibuffer-local-map
+    ()
+  (setq gdb-minibuffer-local-map (copy-keymap minibuffer-local-map))
+  (define-key
+    gdb-minibuffer-local-map "\C-i" 'comint-dynamic-complete-filename))
+
 ;;;###autoload
 (defun gdb (command-line)
   "Run gdb on program FILE in buffer *gud-FILE*.
@@ -223,7 +231,7 @@
 			       (if (consp gud-gdb-history)
 				   (car gud-gdb-history)
 				 "gdb ")
-			       nil nil
+			       gdb-minibuffer-local-map nil
 			       '(gud-gdb-history . 1))))
   (gud-overload-functions '((gud-massage-args . gud-gdb-massage-args)
 			    (gud-marker-filter . gud-gdb-marker-filter)