home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / cmushell.patch / text0000.txt < prev   
Encoding:
Text File  |  1990-07-22  |  4.2 KB  |  122 lines
  1. In the same vein of comint/cmushell hacks, I've been experimenting
  2. with setting my own personal process filters, and munging the
  3. environment.  The following patch adds hooks to allow this to happen,
  4. and it also deletes the first definition for comint-update-env (2 were
  5. shipped):
  6.  
  7. *** comint.el.~1~    Tue Jun 12 14:03:18 1990
  8. --- comint.el    Wed Jun 13 10:10:45 1990
  9. ***************
  10. *** 88,93 ****
  11. --- 88,95 ----
  12.   
  13.   ;;; comint-mode-hook is the comint mode hook. Basically for your keybindings.
  14.   ;;; comint-load-hook is run after loading in this package.
  15. + ;;; comint-exec-hook is run after the process is started.
  16. + ;;; comint-env-hook is run just before the process is started to change env.
  17.   
  18.   
  19.   ;;; Buffer Local Variables:
  20. ***************
  21. *** 154,159 ****
  22. --- 156,168 ----
  23.   (defvar comint-mode-hook '()
  24.     "Called upon entry into comint-mode")
  25.   
  26. + (defvar comint-exec-hook '()
  27. +   "Called when the comint process is started")
  28. + 
  29. + (defvar comint-env-hook '()
  30. +   "Called just before the comint process is started to change the environment,
  31. + which is in the local variable process-environment")
  32. + 
  33.   (defvar comint-mode-map nil)
  34.   
  35.   (defun comint-mode ()
  36. ***************
  37. *** 281,287 ****
  38.     "Fires up a process in buffer for comint modes.
  39.   Blasts any old process running in the buffer. Doesn't set the buffer mode.
  40.   You can use this to cheaply run a series of processes in the same comint
  41. ! buffer."
  42.     (save-excursion
  43.       (set-buffer buffer)
  44.       (let ((proc (get-buffer-process buffer)))    ; Blast any old process.
  45. --- 290,302 ----
  46.     "Fires up a process in buffer for comint modes.
  47.   Blasts any old process running in the buffer. Doesn't set the buffer mode.
  48.   You can use this to cheaply run a series of processes in the same comint
  49. ! buffer.
  50. ! 
  51. ! Upon entry, comint-exec-hook is run just after creating the process (to
  52. ! allow the establishment of a process filter), and comint-env-hook is run
  53. ! just before creating the process, to allow munging the environment passed
  54. ! to the child process."
  55. ! 
  56.     (save-excursion
  57.       (set-buffer buffer)
  58.       (let ((proc (get-buffer-process buffer)))    ; Blast any old process.
  59. ***************
  60. *** 293,301 ****
  61.                          (screen-width))
  62.                      "TERM=emacs"
  63.                      "EMACS=t")))
  64. !        (proc (apply 'start-process name buffer command switches)))
  65.         (make-variable-buffer-local 'comint-ptyp)
  66.         (setq comint-ptyp process-connection-type) ; T if pty, NIL if pipe.
  67.         ;; Jump to the end, and set the process mark.
  68.         (goto-char (point-max))
  69.         (set-marker (process-mark proc) (point)))
  70. --- 308,320 ----
  71.                          (screen-width))
  72.                      "TERM=emacs"
  73.                      "EMACS=t")))
  74. !        proc)
  75. ! 
  76. !       (run-hooks 'comint-env-hook)
  77. !       (setq proc (apply 'start-process name buffer command switches))
  78.         (make-variable-buffer-local 'comint-ptyp)
  79.         (setq comint-ptyp process-connection-type) ; T if pty, NIL if pipe.
  80. +       (run-hooks 'comint-exec-hook)
  81.         ;; Jump to the end, and set the process mark.
  82.         (goto-char (point-max))
  83.         (set-marker (process-mark proc) (point)))
  84. ***************
  85. *** 316,343 ****
  86.   
  87.   ;; This is just (append new old-env) that compresses out shadowed entries.
  88.   ;; It's also pretty ugly, mostly due to elisp's horrible iteration structures.
  89. - (defun comint-update-env (old-env new)
  90. -   (let ((ans (reverse new))
  91. -     (vars (mapcar (function (lambda (vv)
  92. -             (and (string-match "^[^=]*=" vv)
  93. -                  (substring vv 0 (match-end 0)))))
  94. -               new)))
  95. -     (while old-env
  96. -       (let* ((vv (car old-env)) ; vv is var=value
  97. -          (var (and (string-match "^[^=]*=" vv)
  98. -                (substring vv 0 (match-end 0)))))
  99. -     (setq old-env (cdr old-env))
  100. -     (catch 'already
  101. -       (if var
  102. -           (let ((vars vars))
  103. -         (while vars
  104. -           (let ((nvar (car vars)))
  105. -             (setq vars (cdr vars))
  106. -             (if (and nvar (string= var nvar)) (throw 'already nil))))))
  107. -       (setq vars (cons var vars))
  108. -       (setq ans (cons vv ans)))))
  109. -     (nreverse ans)))
  110. - 
  111.   (defun comint-update-env (old-env new)
  112.     (let ((ans (reverse new))
  113.       (vars (mapcar (function (lambda (vv)
  114. --- 335,340 ----
  115. --
  116. Michael Meissner    email: meissner@osf.org        phone: 617-621-8861
  117. Open Software Foundation, 11 Cambridge Center, Cambridge, MA
  118.  
  119. Catproof is an oxymoron, Childproof is nearly so
  120.  
  121.  
  122.