From: Glenn Morris Date: Thu, 19 Sep 2013 02:38:25 +0000 (-0700) Subject: * eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1526 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e51b5d087612619a37e4fbb767d1dad8488f110;p=emacs.git * eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'. Update callers. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 736df0d05f6..29c32718f89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-09-19 Glenn Morris + * eshell/em-hist.el (eshell-hist-parse-arguments): + Remove unused arg `silent'. Update callers. + * eshell/em-ls.el (eshell-ls-use-in-dired): Use `symbol' arg. Fix (f)boundp mix-up. diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el index 12ec8ce1f35..31eb1e1ff10 100644 --- a/lisp/eshell/em-hist.el +++ b/lisp/eshell/em-hist.el @@ -531,7 +531,7 @@ See also `eshell-read-history'." ((string= "%" ref) (error "`%%' history word designator not yet implemented")))) -(defun eshell-hist-parse-arguments (&optional silent b e) +(defun eshell-hist-parse-arguments (&optional b e) "Parse current command arguments in a history-code-friendly way." (let ((end (or e (point))) (begin (or b (save-excursion (eshell-bol) (point)))) @@ -571,7 +571,7 @@ See also `eshell-read-history'." (defun eshell-expand-history-references (beg end) "Parse and expand any history references in current input." - (let ((result (eshell-hist-parse-arguments t beg end))) + (let ((result (eshell-hist-parse-arguments beg end))) (when result (let ((textargs (nreverse (nth 0 result))) (posb (nreverse (nth 1 result))) @@ -699,7 +699,7 @@ matched." (here (point)) textargs) (insert hist) - (setq textargs (car (eshell-hist-parse-arguments nil here (point)))) + (setq textargs (car (eshell-hist-parse-arguments here (point)))) (delete-region here (point)) (if (string= nth "*") (if mth