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

30
lisp/ledger.el
View file

@ -1133,20 +1133,22 @@ 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)
(progn (if (null current-prefix-arg)
(let ((text (buffer-substring (line-beginning-position) (ledger-entries) ; this completes against entry names
(line-end-position)))) (progn
(delete-region (line-beginning-position) (let ((text (buffer-substring (line-beginning-position)
(line-end-position)) (line-end-position))))
(condition-case err (delete-region (line-beginning-position)
(ledger-add-entry text t) (line-end-position))
((error) (condition-case err
(insert text)))) (ledger-add-entry text t)
(forward-line) ((error)
(goto-char (line-end-position)) (insert text))))
(search-backward ";" (line-beginning-position) t) (forward-line)
(skip-chars-backward " \t0123456789.,") (goto-char (line-end-position))
(throw 'pcompleted t)) (search-backward ";" (line-beginning-position) t)
(skip-chars-backward " \t0123456789.,")
(throw 'pcompleted t)))
(ledger-accounts))))) (ledger-accounts)))))
(defun ledger-fully-complete-entry () (defun ledger-fully-complete-entry ()