# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 971357909 0
# Node ID c49acc0abcf88136566bcfff9824f2381d155088
# Parent  d2b20e36535e116402c524b12b0aadf2c89befd4
(normal-top-level-add-subdirs-to-load-path): Use
character class, not ASCII when matching file names.
(fancy-splash-head): Add trailing slash to URL.
(command-line): Don't require XPM support for toolbar.

diff -r d2b20e36535e -r c49acc0abcf8 lisp/startup.el
--- a/lisp/startup.el	Thu Oct 12 13:10:22 2000 +0000
+++ b/lisp/startup.el	Thu Oct 12 13:38:29 2000 +0000
@@ -360,7 +360,7 @@
 		(cons attrs normal-top-level-add-subdirs-inode-list))
 	  (while contents
 	    (unless (member (car contents) '("." ".." "RCS" "CVS"))
-	      (when (and (string-match "\\`[a-zA-Z0-9]" (car contents))
+	      (when (and (string-match "\\`[[:alnum:]]" (car contents))
 			 ;; Avoid doing a `stat' when it isn't necessary
 			 ;; because that can cause trouble when an NFS server
 			 ;; is down.
@@ -656,7 +656,6 @@
   ;; If frame was created with a tool bar, switch tool-bar-mode on.
   (when (and (not noninteractive)
 	     (memq window-system '(x w32))
-	     (image-type-available-p 'xpm)
 	     (> (frame-parameter nil 'tool-bar-lines) 0))
     (tool-bar-mode t))
 
@@ -943,11 +942,11 @@
 
 	;; Insert the image with a help-echo and a keymap.
 	(let ((map (make-sparse-keymap))
-	      (help-echo "mouse-2: browse http://www.gnu.org"))
+	      (help-echo "mouse-2: browse http://www.gnu.org/"))
 	  (define-key map [mouse-2]
 	    (lambda ()
 	      (interactive)
-	      (browse-url "http://www.gnu.org")
+	      (browse-url "http://www.gnu.org/")
 	      (throw 'exit nil)))
 	  (define-key map [down-mouse-2] 'ignore)
 	  (define-key map [up-mouse-2] 'ignore)