[gnu.emacs.bug] shell should use run-hooks to call hook function

gildea@BBN.COM (Stephen Gildea) (01/10/89)

GNU Emacs 18.52.1 of Tue Sep  6 1988 on alexander.bbn.com (berkeley-unix)

shell-send-input calls shell-set-directory-error-hook with funcall
instead of run-hooks.  This requires the hook, even if unused, to be a
valid function.

 < Stephen


diff -c2 /usr/local/emacs/lisp/shell.el shell.el
*** /usr/local/emacs/lisp/shell.el	Sun Jul  3 10:37:12 1988
--- shell.el	Mon Jan  9 14:43:20 1989
***************
*** 186,190
      buffer))
  
! (defvar shell-set-directory-error-hook 'ignore
    "Function called with no arguments when shell-send-input
  recognizes a change-directory command but gets an error

--- 186,190 -----
      buffer))
  
! (defvar shell-set-directory-error-hook nil
    "Function called with no arguments when shell-send-input
  recognizes a change-directory command but gets an error
***************
*** 226,230
  	(goto-char last-input-start)
  	(shell-set-directory))
!     (error (funcall shell-set-directory-error-hook)))
    (let ((process (get-buffer-process (current-buffer))))
      (process-send-region process last-input-start last-input-end)

--- 226,230 -----
  	(goto-char last-input-start)
  	(shell-set-directory))
!     (error (run-hooks shell-set-directory-error-hook)))
    (let ((process (get-buffer-process (current-buffer))))
      (process-send-region process last-input-start last-input-end)