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

Merge pull request #238 from mbork/master

Browse source 
Add option ledger-complete-ignore-case

Thanks!  This works very well.
This commit is contained in:
Craig Earls 2014-02-04 06:15:36 -08:00
commit 1003c24103
1 changed files with 42 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ledger-complete.el
View file

@ -213,11 +213,17 @@ Does not use ledger xact"
(goto-char (match-end 0)))))) (goto-char (match-end 0))))))
(defcustom ledger-complete-ignore-case t
"Non-nil means that ledger-complete-at-point will be case-insensitive"
:type 'boolean
:group 'ledger)
(defun ledger-pcomplete (&optional interactively) (defun ledger-pcomplete (&optional interactively)
"Complete rip-off of pcomplete from pcomplete.el, only added "Complete rip-off of pcomplete from pcomplete.el, only added
ledger-magic-tab in the previous commands list so that ledger-magic-tab in the previous commands list so that
ledger-magic-tab would cycle properly" ledger-magic-tab would cycle properly"
(interactive "p") (interactive "p")
(let ((pcomplete-ignore-case ledger-complete-ignore-case))
(if (and interactively (if (and interactively
pcomplete-cycle-completions pcomplete-cycle-completions
pcomplete-current-completions pcomplete-current-completions
@ -255,7 +261,7 @@ ledger-magic-tab would cycle properly"
(pcomplete-insert-entry pcomplete-stub (cdr result) (pcomplete-insert-entry pcomplete-stub (cdr result)
(memq (car result) (memq (car result)
'(sole shortest)) '(sole shortest))
pcomplete-last-completion-raw)))))) pcomplete-last-completion-raw)))))))
(provide 'ledger-complete) (provide 'ledger-complete)