aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBastien Guerry2008-02-16 16:17:37 +0000
committerBastien Guerry2008-02-16 16:17:37 +0000
commit2ef180f7e34960ac41779da625f12be4a04ea7a4 (patch)
treea7f4200c6eae526ee78bc88397c0d87cc772d4f9
parentbae9f9e311d370f625e442fecfe7d23d2ced2cf3 (diff)
downloademacs-2ef180f7e34960ac41779da625f12be4a04ea7a4.tar.gz
emacs-2ef180f7e34960ac41779da625f12be4a04ea7a4.zip
* ielm.el (ielm-is-whitespace-or-comment): Docstring fix.
-rw-r--r--lisp/ChangeLog11
-rw-r--r--lisp/ielm.el2
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 @@
12008-02-16 Lawrence Mitchell <wence@gmx.li>
2
3 * ielm.el (ielm-is-whitespace-or-comment): Docstring
4 fix.
5
12008-02-16 Dan Nicolaescu <dann@ics.uci.edu> 62008-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
442008-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
392008-02-15 Jason Rumney <jasonr@gnu.org> 502008-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