Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hpath.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 131b0175ea99
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 1-Nov-91 at 00:44:23 11 ;; ORIG-DATE: 1-Nov-91 at 00:44:23
12 ;; LAST-MOD: 9-Mar-97 at 01:38:33 by Bob Weiner 12 ;; LAST-MOD: 20-Mar-97 at 11:52:51 by Bob Weiner
13 13
14 ;;; ************************************************************************ 14 ;;; ************************************************************************
15 ;;; Public variables 15 ;;; Public variables
16 ;;; ************************************************************************ 16 ;;; ************************************************************************
17 17
558 ;; Avoid [a-z]:/path patterns since these may be disk paths on OS/2, DOS or 558 ;; Avoid [a-z]:/path patterns since these may be disk paths on OS/2, DOS or
559 ;; Windows. 559 ;; Windows.
560 (if (looking-at "\\(URL:\\)?\\([a-zA-Z][a-zA-Z]+\\)://?\\([^@/: \t\n\^M]+@\\)?\\([^/:@ \t\n\^M\"`']+\\)\\(:[0-9]+\\)?\\([/~][^]@ \t\n\^M\"`'\)\}>]*\\)?") 560 (if (looking-at "\\(URL:\\)?\\([a-zA-Z][a-zA-Z]+\\)://?\\([^@/: \t\n\^M]+@\\)?\\([^/:@ \t\n\^M\"`']+\\)\\(:[0-9]+\\)?\\([/~][^]@ \t\n\^M\"`'\)\}>]*\\)?")
561 (save-excursion 561 (save-excursion
562 (goto-char (match-end 0)) 562 (goto-char (match-end 0))
563 (skip-chars-backward ".?#!*()") 563 (skip-chars-backward ".,?#!*()")
564 (buffer-substring (match-beginning 2) (point))))) 564 (buffer-substring (match-beginning 2) (point)))))
565 565
566 (defun hpath:url-p (obj) 566 (defun hpath:url-p (obj)
567 "Return t if OBJ is a world-wide-web universal resource locator (url) string, else nil. 567 "Return t if OBJ is a world-wide-web universal resource locator (url) string, else nil.
568 Use string-match with match-beginning and match-end on the following groupings: 568 Use string-match with match-beginning and match-end on the following groupings: