sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Only invoke new completion behavior if C-u is used

Browse source
This commit is contained in:
John Wiegley 2009-02-15 18:00:05 -04:00
parent f232d558a8
commit c1fd59666e
1 changed files with 16 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ledger.el
View file

@ -1133,6 +1133,8 @@ the default."
(while (pcomplete-here (while (pcomplete-here
(if (eq (save-excursion (if (eq (save-excursion
(ledger-thing-at-point)) 'entry) (ledger-thing-at-point)) 'entry)
(if (null current-prefix-arg)
(ledger-entries) ; this completes against entry names
(progn (progn
(let ((text (buffer-substring (line-beginning-position) (let ((text (buffer-substring (line-beginning-position)
(line-end-position)))) (line-end-position))))
@ -1146,7 +1148,7 @@ the default."
(goto-char (line-end-position)) (goto-char (line-end-position))
(search-backward ";" (line-beginning-position) t) (search-backward ";" (line-beginning-position) t)
(skip-chars-backward " \t0123456789.,") (skip-chars-backward " \t0123456789.,")
(throw 'pcompleted t)) (throw 'pcompleted t)))
(ledger-accounts))))) (ledger-accounts)))))
(defun ledger-fully-complete-entry () (defun ledger-fully-complete-entry ()