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)))) |