 can contain other `tempo' attributes.  Please see the function
 `tempo-define-template' for a description of the `(l ...)' attribute."
   (let ((res '())
-	entry)
+        entry)
     (while args
       (setq entry (car args))
       (while entry
-	(setq res (cons (car entry) res))
-	(setq entry (cdr entry)))
+        (setq res (cons (car entry) res))
+        (setq entry (cdr entry)))
       (setq args (cdr args)))
     (cons 'l (nreverse res))))
 

    ;; This was previously cautioned against in the Lisp manual.  It
    ;; has been sorted out in Emacs 21.  -- fx
    (let ((comint-eol-on-send nil)
	  (comint-input-filter (if hist comint-input-filter 'ignore)))
      (if (and (not erlang-xemacs-p)
	       (>= emacs-major-version 22))
	  (comint-send-input nil t)
	(comint-send-input)))
    ;; Adjust all windows whose points are incorrect.
    (if (null comint-process-echoes)
	(walk-windows
	 (function
	  (lambda (window)
	    (if (and (eq (window-buffer window) inferior-erlang-buffer)
		     (= (window-point window) insert-point))
		(set-window-point window
				  (+ insert-point insert-length)))))
	 nil t))
    (set-buffer old-buffer)
    (+ insert-point insert-length)))


  ;; Some older versions of comint don't have an input ring.
  (if (fboundp 'comint-read-input-ring)
      (progn
        (setq comint-input-ring-file-name erlang-input-ring-file-name)
        (comint-read-input-ring t)
        (make-local-variable 'kill-buffer-hook)
        (add-hook 'kill-buffer-hook 'comint-write-input-ring)))
  ;; At least in Emacs 21, we need to be in `compilation-minor-mode'
  ;; for `next-error' to work.  We can avoid it clobbering the shell
  ;; keys thus.
  (when inferior-erlang-use-cmm
    (compilation-minor-mode 1)
    (set (make-local-variable 'minor-mode-overriding-map-alist)
         `((compilation-minor-mode
            . ,(let ((map (make-sparse-keymap)))
                 ;; It would be useful to put keymap properties on the
                 ;; error lines so that we could use RET and mouse-2
                 ;; on them directly.
                 (when (boundp 'compilation-skip-threshold) ; new compile.el
                   (define-key map [mouse-2] #'erlang-mouse-2-command)
                   (define-key map "\C-m" #'erlang-RET-command))
                 (if (boundp 'compilation-menu-map)
                     (define-key map [menu-bar compilation]
                       (cons "Errors" compilation-menu-map)))
                 map)))))
  (erlang-tags-init)
  (run-hooks 'erlang-shell-mode-hook))

