diff options
| author | Bastien Guerry | 2008-02-16 16:17:37 +0000 |
|---|---|---|
| committer | Bastien Guerry | 2008-02-16 16:17:37 +0000 |
| commit | 2ef180f7e34960ac41779da625f12be4a04ea7a4 (patch) | |
| tree | a7f4200c6eae526ee78bc88397c0d87cc772d4f9 /lisp | |
| parent | bae9f9e311d370f625e442fecfe7d23d2ced2cf3 (diff) | |
| download | emacs-2ef180f7e34960ac41779da625f12be4a04ea7a4.tar.gz emacs-2ef180f7e34960ac41779da625f12be4a04ea7a4.zip | |
* ielm.el (ielm-is-whitespace-or-comment): Docstring fix.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | lisp/ielm.el | 2 |
2 files changed, 12 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2509add2580..9a1814162a6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-02-16 Lawrence Mitchell <wence@gmx.li> | ||
| 2 | |||
| 3 | * ielm.el (ielm-is-whitespace-or-comment): Docstring | ||
| 4 | fix. | ||
| 5 | |||
| 1 | 2008-02-16 Dan Nicolaescu <dann@ics.uci.edu> | 6 | 2008-02-16 Dan Nicolaescu <dann@ics.uci.edu> |
| 2 | 7 | ||
| 3 | * vc.el (vc-annotate): Add new argument. | 8 | * vc.el (vc-annotate): Add new argument. |
| @@ -36,6 +41,12 @@ | |||
| 36 | 41 | ||
| 37 | * bindings.el (mode-line-mule-info): Make the tooltips more explicit. | 42 | * bindings.el (mode-line-mule-info): Make the tooltips more explicit. |
| 38 | 43 | ||
| 44 | 2008-02-15 Lawrence Mitchell <wence@gmx.li> | ||
| 45 | |||
| 46 | * ielm.el (ielm-is-whitespace): Remove. | ||
| 47 | (ielm-is-whitespace-or-comment): New function. | ||
| 48 | (ielm-eval-input): Use it. | ||
| 49 | |||
| 39 | 2008-02-15 Jason Rumney <jasonr@gnu.org> | 50 | 2008-02-15 Jason Rumney <jasonr@gnu.org> |
| 40 | 51 | ||
| 41 | * term/mac-win.el: Fix coding tag. | 52 | * term/mac-win.el: Fix coding tag. |
diff --git a/lisp/ielm.el b/lisp/ielm.el index a9255587be5..5e1921e82f4 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el | |||
| @@ -301,7 +301,7 @@ simply inserts a newline." | |||
| 301 | ;;; Utility functions | 301 | ;;; Utility functions |
| 302 | 302 | ||
| 303 | (defun ielm-is-whitespace-or-comment (string) | 303 | (defun ielm-is-whitespace-or-comment (string) |
| 304 | "Return non-nil if STRING is all whitespace." | 304 | "Return non-nil if STRING is all whitespace or a comment." |
| 305 | (or (string= string "") | 305 | (or (string= string "") |
| 306 | (string-match "\\`[ \t\n]*\\(?:;.*\\)*\\'" string))) | 306 | (string-match "\\`[ \t\n]*\\(?:;.*\\)*\\'" string))) |
| 307 | 307 | ||