Mercurial > hg > xemacs-beta

comparison lisp/comint/gdb.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents bcdc7deadc19
children 131b0175ea99
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
265 (delete-extent gdb-arrow-extent)) 265 (delete-extent gdb-arrow-extent))
266 (setq gdb-arrow-extent nil) 266 (setq gdb-arrow-extent nil)
267 ;; XEmacs change: 267 ;; XEmacs change:
268 (make-local-hook 'kill-buffer-hook) 268 (make-local-hook 'kill-buffer-hook)
269 (add-hook 'kill-buffer-hook 'gdb-delete-arrow-extent nil t) 269 (add-hook 'kill-buffer-hook 'gdb-delete-arrow-extent nil t)
270 (setq comint-input-sentinel 'shell-directory-tracker) 270 (add-hook 'comint-input-filter-functions 'shell-directory-tracker nil t)
271 (run-hooks 'gdb-mode-hook)) 271 (run-hooks 'gdb-mode-hook))
272 272
273 (defun gdb-delete-arrow-extent () 273 (defun gdb-delete-arrow-extent ()
274 (let ((inhibit-quit t)) 274 (let ((inhibit-quit t))
275 (if gdb-arrow-extent 275 (if gdb-arrow-extent
650 (t (setq comm addr))) 650 (t (setq comm addr)))
651 (switch-to-buffer current-gdb-buffer) 651 (switch-to-buffer current-gdb-buffer)
652 (goto-char (point-max)) 652 (goto-char (point-max))
653 (insert comm))) 653 (insert comm)))
654 654
655 (defun gdb-control-c-subjob () 655 (fset 'gdb-control-c-subjob 'comint-interrupt-subjob)
656 "Send a Control-C to the subprocess." 656
657 (interactive) 657 ;(defun gdb-control-c-subjob ()
658 (process-send-string (get-buffer-process (current-buffer)) 658 ; "Send a Control-C to the subprocess."
659 "\C-c")) 659 ; (interactive)
660 ; (process-send-string (get-buffer-process (current-buffer))
661 ; "\C-c"))
660 662
661 (defun gdb-toolbar-break () 663 (defun gdb-toolbar-break ()
662 (interactive) 664 (interactive)
663 (save-excursion 665 (save-excursion
664 (message (car gdb-last-frame)) 666 (message (car gdb-last-frame))