Mercurial > emacs
changeset 32424:c49acc0abcf8
(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.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 12 Oct 2000 13:38:29 +0000 |
| parents | d2b20e36535e |
| children | 5f777a66c3c1 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)