Mercurial > hg > xemacs-beta

comparison lisp/comint/gdbsrc.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 441bb1e64a06
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
292 ;; this can be used as a hook for gdb-mode.... 292 ;; this can be used as a hook for gdb-mode....
293 (or current-gdb-buffer 293 (or current-gdb-buffer
294 (and (eq major-mode 'gdb-mode) ; doesn't work w/ energize yet 294 (and (eq major-mode 'gdb-mode) ; doesn't work w/ energize yet
295 (setq current-gdb-buffer (current-buffer)) 295 (setq current-gdb-buffer (current-buffer))
296 ;; XEmacs change: 296 ;; XEmacs change:
297 (make-local-hook 'kill-buffer-hook) 297 (progn
298 (add-hook 'kill-buffer-hook 'gdbsrc-reset nil t)) 298 (make-local-hook 'kill-buffer-hook)
299 (add-hook 'kill-buffer-hook 'gdbsrc-reset nil t)))
299 (error "Cannot determine current-gdb-buffer")) 300 (error "Cannot determine current-gdb-buffer"))
300 ;;; (set-process-filter 301 ;;; (set-process-filter
301 ;;; (get-buffer-process current-gdb-buffer) 'gdbsrc-mode-filter) 302 ;;; (get-buffer-process current-gdb-buffer) 'gdbsrc-mode-filter)
302 ;;; (set-process-sentinel 303 ;;; (set-process-sentinel
303 ;;; (get-buffer-process current-gdb-buffer) 'gdbsrc-mode-sentinel) 304 ;;; (get-buffer-process current-gdb-buffer) 'gdbsrc-mode-sentinel)
497 (epnt (event-point click))) 498 (epnt (event-point click)))
498 (and ewin 499 (and ewin
499 epnt 500 epnt
500 extent 501 extent
501 (eq (window-buffer ewin) 502 (eq (window-buffer ewin)
502 (extent-buffer extent)) 503 (extent-object extent))
503 (extent-start-position extent) 504 (extent-start-position extent)
504 (> epnt (extent-start-position extent)) 505 (> epnt (extent-start-position extent))
505 (> (extent-end-position extent) epnt)))) 506 (> (extent-end-position extent) epnt))))
506 507
507 (defun point-inside-extent-p (extent) 508 (defun point-inside-extent-p (extent)
508 "Returns non-nil if the point is within or just after the bounds of the 509 "Returns non-nil if the point is within or just after the bounds of the
509 primary selection-extent, nil otherwise." 510 primary selection-extent, nil otherwise."
510 ;; stig@hackvan.com 511 ;; stig@hackvan.com
511 (and extent ; FIXME - I'm such a sinner... 512 (and extent ; FIXME - I'm such a sinner...
512 (eq (current-buffer) 513 (eq (current-buffer)
513 (extent-buffer extent)) 514 (extent-object extent))
514 (> (point) (extent-start-position extent)) 515 (> (point) (extent-start-position extent))
515 (>= (extent-end-position extent) (point)))) 516 (>= (extent-end-position extent) (point))))
516 517
517 (defun gdbsrc-select-or-yank (ee) 518 (defun gdbsrc-select-or-yank (ee)
518 ;; by Stig@hackvan.com 519 ;; by Stig@hackvan.com
558 ;; by Stig@hackvan.com 559 ;; by Stig@hackvan.com
559 (interactive) 560 (interactive)
560 (let ((gbuf (or gdbsrc-associated-buffer current-gdb-buffer))) 561 (let ((gbuf (or gdbsrc-associated-buffer current-gdb-buffer)))
561 (cond ((eq (current-buffer) gbuf) 562 (cond ((eq (current-buffer) gbuf)
562 (and gdb-arrow-extent 563 (and gdb-arrow-extent
563 (extent-buffer gdb-arrow-extent) 564 (extent-object gdb-arrow-extent)
564 (progn (pop-to-buffer (extent-buffer gdb-arrow-extent)) 565 (progn (pop-to-buffer (extent-object gdb-arrow-extent))
565 (goto-char (extent-start-position gdb-arrow-extent))))) 566 (goto-char (extent-start-position gdb-arrow-extent)))))
566 ((buffer-name gbuf) (pop-to-buffer gbuf)) 567 ((buffer-name gbuf) (pop-to-buffer gbuf))
567 ((y-or-n-p "No debugger. Start a new one? ") 568 ((y-or-n-p "No debugger. Start a new one? ")
568 (call-interactively 'gdbsrc)) 569 (call-interactively 'gdbsrc))
569 (t (error "No gdb buffer.")) 570 (t (error "No gdb buffer."))
838 "Advised to select the source buffer instead of the gdb-buffer" 839 "Advised to select the source buffer instead of the gdb-buffer"
839 ;; by Stig@hackvan.com 840 ;; by Stig@hackvan.com
840 (ad-set-arg 2 'source) ; tell it not to select the gdb window 841 (ad-set-arg 2 'source) ; tell it not to select the gdb window
841 ad-do-it 842 ad-do-it
842 (save-excursion 843 (save-excursion
843 (let* ((buf (extent-buffer gdb-arrow-extent)) 844 (let* ((buf (extent-object gdb-arrow-extent))
844 (win (get-buffer-window buf))) 845 (win (get-buffer-window buf)))
845 (setq gdbsrc-last-src-buffer buf) 846 (setq gdbsrc-last-src-buffer buf)
846 (select-window win) 847 (select-window win)
847 (set-window-point win (extent-start-position gdb-arrow-extent)) 848 (set-window-point win (extent-start-position gdb-arrow-extent))
848 (set-buffer buf)) 849 (set-buffer buf))