Mercurial > emacs
comparison lisp/eshell/em-hist.el @ 53871:dbe1ef05fa24
(eshell-hist-word-reference): Fix format
string.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Feb 2004 22:40:55 +0000 |
| parents | 695cf19ef79e |
| children | f243dc772a99 |
comparison
equal
deleted
inserted
replaced
| 53870:94735a7620dd | 53871:dbe1ef05fa24 |
|---|---|
| 1 ;;; em-hist.el --- history list management | 1 ;;; em-hist.el --- history list management |
| 2 | 2 |
| 3 ;; Copyright (C) 1999, 2000 Free Software Foundation | 3 ;; Copyright (C) 1999, 2000, 2004 Free Software Foundation |
| 4 | 4 |
| 5 ;; Author: John Wiegley <johnw@gnu.org> | 5 ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | 6 |
| 7 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
| 8 | 8 |
| 521 ((string-match "^[0-9]+$" ref) | 521 ((string-match "^[0-9]+$" ref) |
| 522 (string-to-number ref)) | 522 (string-to-number ref)) |
| 523 ((string= "^" ref) 1) | 523 ((string= "^" ref) 1) |
| 524 ((string= "$" ref) nil) | 524 ((string= "$" ref) nil) |
| 525 ((string= "%" ref) | 525 ((string= "%" ref) |
| 526 (error "`%' history word designator not yet implemented")))) | 526 (error "`%%' history word designator not yet implemented")))) |
| 527 | 527 |
| 528 (defun eshell-hist-parse-arguments (&optional silent b e) | 528 (defun eshell-hist-parse-arguments (&optional silent b e) |
| 529 "Parse current command arguments in a history-code-friendly way." | 529 "Parse current command arguments in a history-code-friendly way." |
| 530 (let ((end (or e (point))) | 530 (let ((end (or e (point))) |
| 531 (begin (or b (save-excursion (eshell-bol) (point)))) | 531 (begin (or b (save-excursion (eshell-bol) (point)))) |