Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-sysdp.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents d95e72db5c07
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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)