diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-18 22:32:23 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-18 22:32:23 -0400 |
| commit | 06a796398646fd1a5e17bc7321e12ae8e061e7f7 (patch) | |
| tree | c6d37953b3d11e3f5e7e3f390a421355a4d2769c /lisp/emacs-lisp | |
| parent | 32bb5a945a47b14fa85dc1c2f1776b6baa3b0dcc (diff) | |
| download | emacs-06a796398646fd1a5e17bc7321e12ae8e061e7f7.tar.gz emacs-06a796398646fd1a5e17bc7321e12ae8e061e7f7.tar.bz2 emacs-06a796398646fd1a5e17bc7321e12ae8e061e7f7.zip | |
Remove unused vars in cl-extra.el and tramp.el.
* lisp/emacs-lisp/cl-extra.el (cl--print-table): Remove unused vars.
* lisp/net/tramp.el (tramp-dissect-file-name): Remove unused `match'.
(outline-regexp, ls-lisp-use-insert-directory-program): Declare.
(tramp-find-foreign-file-name-handler): Mark unused arg, remove unused `v`.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 8b3d6eecf5c..021ef232749 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -877,16 +877,14 @@ including `cl-block' and `cl-eval-when'." (if (> newwidth curwidth) (setf (aref cols i) newwidth))))) (let ((formats '()) - (tmp-head header) (col 0)) (dotimes (i (length cols)) - (let ((head (pop tmp-head))) - (push (concat (propertize " " - 'display - `(space :align-to ,(+ col col-space))) - "%s") - formats) - (cl-incf col (+ col-space (aref cols i))))) + (push (concat (propertize " " + 'display + `(space :align-to ,(+ col col-space))) + "%s") + formats) + (cl-incf col (+ col-space (aref cols i)))) (let ((format (mapconcat #'identity (nreverse formats) ""))) (insert (apply #'format format (mapcar (lambda (str) (propertize str 'face 'italic)) |