Mercurial > emacs
comparison lisp/comint.el @ 104740:dc5b8d58abfe
(comint-exec-1): Check command is non-null first.
Part of gdb-mi.el change (2009-08-28).
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 30 Aug 2009 22:24:05 +0000 |
| parents | f1f277c6c9fe |
| children | 5b4bbf79ac2a |
comparison
equal
deleted
inserted
replaced
| 104739:329b26389fdb | 104740:dc5b8d58abfe |
|---|---|
| 788 (default-directory | 788 (default-directory |
| 789 (if (file-accessible-directory-p default-directory) | 789 (if (file-accessible-directory-p default-directory) |
| 790 default-directory | 790 default-directory |
| 791 "/")) | 791 "/")) |
| 792 proc decoding encoding changed) | 792 proc decoding encoding changed) |
| 793 (let ((exec-path (if (file-name-directory command) | 793 (let ((exec-path (if (and command (file-name-directory command)) |
| 794 ;; If the command has slashes, make sure we | 794 ;; If the command has slashes, make sure we |
| 795 ;; first look relative to the current directory. | 795 ;; first look relative to the current directory. |
| 796 (cons default-directory exec-path) exec-path))) | 796 (cons default-directory exec-path) exec-path))) |
| 797 (setq proc (apply 'start-file-process name buffer command switches))) | 797 (setq proc (apply 'start-file-process name buffer command switches))) |
| 798 ;; Some file name handler cannot start a process, fe ange-ftp. | 798 ;; Some file name handler cannot start a process, fe ange-ftp. |