*** empty log message ***

[gnu-emacs] / lisp / eshell / esh-mode.el

diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 97219d85532258b1512d7b779886d84b9373023b..9a7a52ee72d424943e97d82e9db39daa7c24ab9f 100644 (file)
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -281,8 +281,8 @@ This is used by `eshell-watch-for-password-prompt'."
         (function
          (lambda (key val)
            (and (if (consp key)
-                   (and (>= (car key) 128)
-                        (/= (char-syntax (car key)) ?w))
+                    (and (>= (car key) 128)
+                         (/= (char-syntax (car key)) ?w))
                   (and (>= key 256)
                        (/= (char-syntax key) ?w)))
                 (modify-syntax-entry key "_   "
@@ -308,7 +308,7 @@ This is used by `eshell-watch-for-password-prompt'."
 
   (when eshell-status-in-modeline
     (make-local-variable 'eshell-command-running-string)
-    (let ((fmt (eshell-copy-list mode-line-format)))
+    (let ((fmt (copy-sequence mode-line-format)))
       (make-local-variable 'mode-line-format)
       (setq mode-line-format fmt))
     (let ((modeline (memq 'mode-line-modified mode-line-format)))
@@ -385,7 +385,7 @@ This is used by `eshell-watch-for-password-prompt'."
   (set (make-local-variable 'eshell-last-output-end) (point-marker))
   (set (make-local-variable 'eshell-last-output-block-begin) (point))
 
-  (let ((modules-list (eshell-copy-list eshell-modules-list)))
+  (let ((modules-list (copy-sequence eshell-modules-list)))
     (make-local-variable 'eshell-modules-list)
     (setq eshell-modules-list modules-list))