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

[emacs] Don't define unprefixed "string-empty-p" function

Browse source
This commit is contained in:
Steve Purcell 2014-12-18 12:55:31 +00:00
parent acec078200
commit 833f66d30e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ledger-report.el
View file

@ -196,7 +196,7 @@ used to generate the buffer, navigating the buffer, etc."
(setq buffer-read-only t) (setq buffer-read-only t)
(message "q to quit; r to redo; e to edit; k to kill; s to save; SPC and DEL to scroll")))) (message "q to quit; r to redo; e to edit; k to kill; s to save; SPC and DEL to scroll"))))
(defun string-empty-p (s) (defun ledger-report-string-empty-p (s)
"Check S for the empty string." "Check S for the empty string."
(string-equal "" s)) (string-equal "" s))
@ -205,7 +205,7 @@ used to generate the buffer, navigating the buffer, etc."
If name exists, returns the object naming the report, If name exists, returns the object naming the report,
otherwise returns nil." otherwise returns nil."
(unless (string-empty-p name) (unless (ledger-report-string-empty-p name)
(car (assoc name ledger-reports)))) (car (assoc name ledger-reports))))
(defun ledger-reports-add (name cmd) (defun ledger-reports-add (name cmd)
@ -296,7 +296,7 @@ Optional EDIT the command."
(setq ledger-report-saved nil)) ;; this is a new report, or edited report (setq ledger-report-saved nil)) ;; this is a new report, or edited report
(setq report-cmd (ledger-report-expand-format-specifiers report-cmd)) (setq report-cmd (ledger-report-expand-format-specifiers report-cmd))
(set (make-local-variable 'ledger-report-cmd) report-cmd) (set (make-local-variable 'ledger-report-cmd) report-cmd)
(or (string-empty-p report-name) (or (ledger-report-string-empty-p report-name)
(ledger-report-name-exists report-name) (ledger-report-name-exists report-name)
(progn (progn
(ledger-reports-add report-name report-cmd) (ledger-reports-add report-name report-cmd)
@ -409,7 +409,7 @@ Optional EDIT the command."
(defun ledger-report-read-new-name () (defun ledger-report-read-new-name ()
"Read the name for a new report from the minibuffer." "Read the name for a new report from the minibuffer."
(let ((name "")) (let ((name ""))
(while (string-empty-p name) (while (ledger-report-string-empty-p name)
(setq name (read-from-minibuffer "Report name: " nil nil nil (setq name (read-from-minibuffer "Report name: " nil nil nil
'ledger-report-name-prompt-history))) 'ledger-report-name-prompt-history)))
name)) name))
@ -419,7 +419,7 @@ Optional EDIT the command."
(interactive) (interactive)
(ledger-report-goto) (ledger-report-goto)
(let (existing-name) (let (existing-name)
(when (string-empty-p ledger-report-name) (when (ledger-report-string-empty-p ledger-report-name)
(setq ledger-report-name (ledger-report-read-new-name))) (setq ledger-report-name (ledger-report-read-new-name)))
(if (setq existing-name (ledger-report-name-exists ledger-report-name)) (if (setq existing-name (ledger-report-name-exists ledger-report-name))