diff options
| author | Glenn Morris | 2013-09-18 19:38:25 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-09-18 19:38:25 -0700 |
| commit | 8e51b5d087612619a37e4fbb767d1dad8488f110 (patch) | |
| tree | e57b14d94805166e1b2f6ccb348edb7d6683e4d3 | |
| parent | 0bc8d75810cd7ffbb768f6a734363977d6ce2007 (diff) | |
| download | emacs-8e51b5d087612619a37e4fbb767d1dad8488f110.tar.gz emacs-8e51b5d087612619a37e4fbb767d1dad8488f110.zip | |
* eshell/em-hist.el (eshell-hist-parse-arguments): Remove unused arg `silent'.
Update callers.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/eshell/em-hist.el | 6 |
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 @@ | |||
| 1 | 2013-09-19 Glenn Morris <rgm@gnu.org> | 1 | 2013-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 |