[Emacs-diffs] trunk r114383: * eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'.

[Glenn Morris]

------------------------------------------------------------
revno: 114383
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-09-18 19:38:25 -0700
message:
  * eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'.
  Update callers.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/eshell/em-hist.el         emhist.el-20091113204419-o5vbwnq5f7feedwu-1857

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-19 02:28:20 +0000
+++ b/lisp/ChangeLog    2013-09-19 02:38:25 +0000
@@ -1,5 +1,8 @@
 2013-09-19  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/eshell/em-hist.el'
--- a/lisp/eshell/em-hist.el    2013-09-18 01:48:00 +0000
+++ b/lisp/eshell/em-hist.el    2013-09-19 02:38:25 +0000
@@ -531,7 +531,7 @@
    ((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 @@
 
 (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 @@
          (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