aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2013-09-18 19:38:25 -0700
committerGlenn Morris2013-09-18 19:38:25 -0700
commit8e51b5d087612619a37e4fbb767d1dad8488f110 (patch)
treee57b14d94805166e1b2f6ccb348edb7d6683e4d3
parent0bc8d75810cd7ffbb768f6a734363977d6ce2007 (diff)
downloademacs-8e51b5d087612619a37e4fbb767d1dad8488f110.tar.gz
emacs-8e51b5d087612619a37e4fbb767d1dad8488f110.zip
* eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'.
Update callers.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/eshell/em-hist.el6
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 736df0d05f6..29c32718f89 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12013-09-19 Glenn Morris <rgm@gnu.org> 12013-09-19 Glenn Morris <rgm@gnu.org>
2 2
3 * eshell/em-hist.el (eshell-hist-parse-arguments):
4 Remove unused arg `silent'. Update callers.
5
3 * eshell/em-ls.el (eshell-ls-use-in-dired): Use `symbol' arg. 6 * eshell/em-ls.el (eshell-ls-use-in-dired): Use `symbol' arg.
4 Fix (f)boundp mix-up. 7 Fix (f)boundp mix-up.
5 8
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'."
531 ((string= "%" ref) 531 ((string= "%" ref)
532 (error "`%%' history word designator not yet implemented")))) 532 (error "`%%' history word designator not yet implemented"))))
533 533
534(defun eshell-hist-parse-arguments (&optional silent b e) 534(defun eshell-hist-parse-arguments (&optional b e)
535 "Parse current command arguments in a history-code-friendly way." 535 "Parse current command arguments in a history-code-friendly way."
536 (let ((end (or e (point))) 536 (let ((end (or e (point)))
537 (begin (or b (save-excursion (eshell-bol) (point)))) 537 (begin (or b (save-excursion (eshell-bol) (point))))
@@ -571,7 +571,7 @@ See also `eshell-read-history'."
571 571
572(defun eshell-expand-history-references (beg end) 572(defun eshell-expand-history-references (beg end)
573 "Parse and expand any history references in current input." 573 "Parse and expand any history references in current input."
574 (let ((result (eshell-hist-parse-arguments t beg end))) 574 (let ((result (eshell-hist-parse-arguments beg end)))
575 (when result 575 (when result
576 (let ((textargs (nreverse (nth 0 result))) 576 (let ((textargs (nreverse (nth 0 result)))
577 (posb (nreverse (nth 1 result))) 577 (posb (nreverse (nth 1 result)))
@@ -699,7 +699,7 @@ matched."
699 (here (point)) 699 (here (point))
700 textargs) 700 textargs)
701 (insert hist) 701 (insert hist)
702 (setq textargs (car (eshell-hist-parse-arguments nil here (point)))) 702 (setq textargs (car (eshell-hist-parse-arguments here (point))))
703 (delete-region here (point)) 703 (delete-region here (point))
704 (if (string= nth "*") 704 (if (string= nth "*")
705 (if mth 705 (if mth