[Emacs-diffs] trunk r116427: * lisp/apropos.el (apropos-read-pattern): Fix error message for empty string.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116427
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2014-02-13 06:23:06 +0100
message:
  * lisp/apropos.el (apropos-read-pattern): Fix error message for empty string.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/apropos.el                apropos.el-20091113204419-o5vbwnq5f7feedwu-273

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-13 03:29:47 +0000
+++ b/lisp/ChangeLog    2014-02-13 05:23:06 +0000
@@ -1,3 +1,9 @@
+2014-02-13  Juanma Barranquero  <address@hidden>
+
+       * apropos.el (apropos-read-pattern): When the user passes an empty
+       string, give a more helpful error message than "Wrong type
+       argument: stringp, nil".
+
 2014-02-13  Stefan Monnier  <address@hidden>
 
        * jit-lock.el (jit-lock-mode): Keep it disabled in indirect buffers.

=== modified file 'lisp/apropos.el'
--- a/lisp/apropos.el   2014-01-06 23:34:05 +0000
+++ b/lisp/apropos.el   2014-02-13 05:23:06 +0000
@@ -370,7 +370,8 @@
         (read-string (concat "Search for " subject " (word list or regexp): 
"))))
     (if (string-equal (regexp-quote pattern) pattern)
        ;; Split into words
-       (split-string pattern "[ \t]+" t)
+       (or (split-string pattern "[ \t]+" t)
+           (user-error "No word list given"))
       pattern)))
 
 (defun apropos-parse-pattern (pattern)