diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2001-07-14 11:21:08 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2001-07-14 11:21:08 +0000 |
| commit | 1cd7adc68ae35528a20418b76f13f2b84db827dd (patch) | |
| tree | 72fa14e562d56aba99842bdd78f10522c60a9ea8 /lisp/shell.el | |
| parent | 07b1b9126d535f7ce7908a05cb4da8545ac1766e (diff) | |
| download | emacs-1cd7adc68ae35528a20418b76f13f2b84db827dd.tar.gz | |
Emacs lisp coding convention fixes.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 43b7f6ab064..f09e2c6b56e 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -1,8 +1,8 @@ -;;; shell.el --- specialized comint.el for running the shell. +;;; shell.el --- specialized comint.el for running the shell ;; Copyright (C) 1988, 93, 94, 95, 96, 1997, 2000 Free Software Foundation, Inc. -;; Author: Olin Shivers <shivers@cs.cmu.edu> then +;; Author: Olin Shivers <shivers@cs.cmu.edu> ;; Simon Marshall <simon@gnu.org> ;; Maintainer: FSF ;; Keywords: processes @@ -678,7 +678,7 @@ Environment variables are expanded, see function `substitute-in-file-name'." (cond ((> num (length shell-dirstack)) (message "Directory stack not that deep.")) ((= num 0) - (error (message "Couldn't cd."))) + (error (message "Couldn't cd"))) (shell-pushd-dextract (let ((dir (nth (1- num) shell-dirstack))) (shell-process-popd arg) @@ -774,7 +774,7 @@ command again." (setq shell-dirstack (cdr ds) shell-last-dir (car shell-dirstack)) (shell-dirstack-message)) - (error (message "Couldn't cd."))))))) + (error (message "Couldn't cd"))))))) ;;; For your typing convenience: (defalias 'dirs 'shell-resync-dirs) @@ -1003,7 +1003,7 @@ Returns t if successful." (cond ((null index) nil) ((>= index (length stack)) - (error "Directory stack not that deep.")) + (error "Directory stack not that deep")) (t (replace-match (file-name-as-directory (nth index stack)) t t) (message "Directory item: %d" index) |