diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-11 01:32:14 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-11 01:32:14 +0100 |
| commit | ba13256d20ce53c7a35092ae2d23debe64c764a5 (patch) | |
| tree | ed96722677274a3bac15a88569fe4281468ab7b7 /elisp/geiser-base.el | |
| parent | e48d59af292ca82e77733070cf3444ac2e0ba7df (diff) | |
| download | geiser-guile-ba13256d20ce53c7a35092ae2d23debe64c764a5.tar.gz geiser-guile-ba13256d20ce53c7a35092ae2d23debe64c764a5.tar.bz2 | |
Compile file.
Diffstat (limited to 'elisp/geiser-base.el')
| -rw-r--r-- | elisp/geiser-base.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el index 4634a29..439a047 100644 --- a/elisp/geiser-base.el +++ b/elisp/geiser-base.el @@ -77,6 +77,9 @@ ;;; Utilities: +(defsubst geiser--chomp (str) + (if (string-match-p ".*\n$" str) (substring str 0 -1) str)) + (defun geiser--shorten-str (str len &optional sep) (let ((str-len (length str))) (if (<= str-len len) |