Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-sysdp.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 6a378aca36af
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
982 t))) 982 t)))
983 x)))) 983 x))))
984 (t 'identity))) ; All others 984 (t 'identity))) ; All others
985 985
986 ;; Misc. 986 ;; Misc.
987 ;; NT doesn't have make-symbolic-link
988 (sysdep-defalias 'make-symbolic-link 'copy-file)
989
987 (sysdep-defun split-string (string pattern) 990 (sysdep-defun split-string (string pattern)
988 "Return a list of substrings of STRING which are separated by PATTERN." 991 "Return a list of substrings of STRING which are separated by PATTERN."
989 (let (parts (start 0)) 992 (let (parts (start 0))
990 (while (string-match pattern string start) 993 (while (string-match pattern string start)
991 (setq parts (cons (substring string start (match-beginning 0)) parts) 994 (setq parts (cons (substring string start (match-beginning 0)) parts)