home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / emacs / emacs19 / emacs19-perldb.patches < prev   
Encoding:
Internet Message Format  |  1994-10-18  |  3.8 KB
  1. From dmm0t@rincewind.mech.virginia.edu Fri Jul 16 23:17:10 1993
  2. Path: paperboy.osf.org!bloom-beacon.mit.edu!biosci!uwm.edu!ux1.cso.uiuc.edu!howland.reston.ans.net!darwin.sura.net!news-feed-2.peachnet.edu!concert!uvaarpa!murdoch!rincewind.mech.virginia.edu!dmm0t
  3. From: dmm0t@rincewind.mech.virginia.edu (David Meyer)
  4. Newsgroups: gnu.emacs.sources
  5. Subject: patches to perldb.el for emacs-19
  6. Message-ID: <CA7uq9.30J@murdoch.acc.Virginia.EDU>
  7. Date: 15 Jul 93 17:18:07 GMT
  8. Sender: usenet@murdoch.acc.Virginia.EDU
  9. Organization: University of Virginia
  10. Lines: 97
  11.  
  12.  
  13. Here are my patches to perldb.el (the perl debugger mode that comes
  14. with perl 4.0xx).  Basically, all I've done is to hack perldb.el to
  15. use comint.el stuff rather than the old shell.el stuff (i.e. change
  16. shell-mode-map to comint-mode-map).
  17.  
  18. I've been using my patched version without problem, but if anyone sees
  19. something I've missed, please post or send e-mail.
  20.  
  21.                 Thanks,
  22.                         Dave
  23.  
  24.  
  25. *** /Users/dmm0t/perldb.el    Thu Jul 15 13:06:59 1993
  26. --- perldb.el    Tue Jul  6 22:24:41 1993
  27. ***************
  28. *** 65,71 ****
  29.   
  30.   (if perldb-mode-map
  31.      nil
  32. !   (setq perldb-mode-map (copy-keymap shell-mode-map))
  33.     (define-key perldb-mode-map "\C-l" 'perldb-refresh))
  34.   
  35.   (define-key ctl-x-map " " 'perldb-break)
  36. --- 65,71 ----
  37.   
  38.   (if perldb-mode-map
  39.      nil
  40. !   (setq perldb-mode-map (copy-keymap comint-mode-map))
  41.     (define-key perldb-mode-map "\C-l" 'perldb-refresh))
  42.   
  43.   (define-key ctl-x-map " " 'perldb-break)
  44. ***************
  45. *** 122,131 ****
  46.     (setq mode-name "Inferior Perl")
  47.     (setq mode-line-process '(": %s"))
  48.     (use-local-map perldb-mode-map)
  49. !   (make-local-variable 'last-input-start)
  50. !   (setq last-input-start (make-marker))
  51. !   (make-local-variable 'last-input-end)
  52. !   (setq last-input-end (make-marker))
  53.     (make-local-variable 'perldb-last-frame)
  54.     (setq perldb-last-frame nil)
  55.     (make-local-variable 'perldb-last-frame-displayed-p)
  56. --- 122,131 ----
  57.     (setq mode-name "Inferior Perl")
  58.     (setq mode-line-process '(": %s"))
  59.     (use-local-map perldb-mode-map)
  60. !   (make-local-variable 'comint-last-input-start)
  61. !   (setq comint-last-input-start (make-marker))
  62. !   (make-local-variable 'comint-last-input-end)
  63. !   (setq comint-last-input-end (make-marker))
  64.     (make-local-variable 'perldb-last-frame)
  65.     (setq perldb-last-frame nil)
  66.     (make-local-variable 'perldb-last-frame-displayed-p)
  67. ***************
  68. *** 134,142 ****
  69.     (setq perldb-delete-prompt-marker nil)
  70.     (make-local-variable 'perldb-filter-accumulator)
  71.     (setq perldb-filter-accumulator nil)
  72. !   (make-local-variable 'shell-prompt-pattern)
  73. !   (setq shell-prompt-pattern perldb-prompt-pattern)
  74. !   (run-hooks 'shell-mode-hook 'perldb-mode-hook))
  75.   
  76.   (defvar current-perldb-buffer nil)
  77.   
  78. --- 134,142 ----
  79.     (setq perldb-delete-prompt-marker nil)
  80.     (make-local-variable 'perldb-filter-accumulator)
  81.     (setq perldb-filter-accumulator nil)
  82. !   (make-local-variable 'comint-prompt-regexp)
  83. !   (setq comint-prompt-regexp perldb-prompt-pattern)
  84. !   (run-hooks 'comint-mode-hook 'perldb-mode-hook))
  85.   
  86.   (defvar current-perldb-buffer nil)
  87.   
  88. ***************
  89. *** 189,195 ****
  90.       (setq default-directory dir)
  91.       (or (bolp) (newline))
  92.       (insert "Current directory is " default-directory "\n")
  93. !     (apply 'make-shell
  94.          (concat "perldb-" file) perldb-command-name nil "-d" path "-emacs"
  95.          (parse-args args))
  96.       (perldb-mode)
  97. --- 189,195 ----
  98.       (setq default-directory dir)
  99.       (or (bolp) (newline))
  100.       (insert "Current directory is " default-directory "\n")
  101. !     (apply 'make-comint
  102.          (concat "perldb-" file) perldb-command-name nil "-d" path "-emacs"
  103.          (parse-args args))
  104.       (perldb-mode)
  105. -- 
  106. David M. Meyer                             Mechanical & Aerospace Engineering
  107. dmm0t@rincewind.mech.virginia.edu          University of Virginia
  108. NeXTmail ok
  109.  
  110.