Re: [PATCH] find-file-noselect-1

[Nick Roberts]

 > Where could I add such a hook, so that it would always be included?

Answering my own question: it can be added in gdb-ui.el. The following patch
is only for gdb-ui.el, but it adds a function to find-file-hook. I guess it
could still break find-file, if its not right.

Is it OK to install this?

Nick

*** /home/nick/emacs/lisp/progmodes/gdb-ui.el.~1.47.~   2005-02-10 
08:22:54.000000000 +1300
--- /home/nick/emacs/lisp/progmodes/gdb-ui.el   2005-02-11 15:53:01.000000000 
+1300
***************
*** 2085,2090 ****
--- 2085,2113 ----
        (goto-line (string-to-number line))
        (gdb-put-breakpoint-icon (eq flag ?y) bptno))))
  
+ (add-hook 'find-file-hook 'gdb-find-file-hook)
+ 
+ (defun gdb-find-file-hook ()
+   (if (and (boundp 'gud-comint-buffer)
+          (buffer-name gud-comint-buffer)
+          (with-current-buffer gud-comint-buffer
+            (eq gud-minor-mode 'gdba)))
+       (progn
+       (gdb-enqueue-input
+        (list (concat "list " (file-name-nondirectory buffer-file-name)
+                      ":1\n")
+              `(lambda () (gdb-set-gud-minor-mode ,buffer-file-name)))))))
+ 
+ (defun gdb-set-gud-minor-mode (file)
+   "Set gud-minor-mode from find-file if appropriate."
+   (goto-char (point-min))
+   (unless (search-forward "No source file named " nil t)
+       (with-current-buffer
+         (find-file-noselect file)
+       (save-current-buffer
+         (set (make-local-variable 'gud-minor-mode) 'gdba)
+         (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)))))
+ 
  ;;from put-image
  (defun gdb-put-string (putstring pos &optional dprop)
    "Put string PUTSTRING in front of POS in the current buffer.