Mercurial > hg > xemacs-beta
diff lisp/hyperbole/hpath.el @ 38:1a767b41a199 r19-15b102
Import from CVS: tag r19-15b102
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:54:01 +0200 |
| parents | c53a95d3c46d |
| children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/hyperbole/hpath.el Mon Aug 13 08:53:41 2007 +0200 +++ b/lisp/hyperbole/hpath.el Mon Aug 13 08:54:01 2007 +0200 @@ -9,7 +9,7 @@ ;; ORG: InfoDock Associates ;; ;; ORIG-DATE: 1-Nov-91 at 00:44:23 -;; LAST-MOD: 9-Mar-97 at 01:38:33 by Bob Weiner +;; LAST-MOD: 20-Mar-97 at 11:52:51 by Bob Weiner ;;; ************************************************************************ ;;; Public variables @@ -560,7 +560,7 @@ (if (looking-at "\\(URL:\\)?\\([a-zA-Z][a-zA-Z]+\\)://?\\([^@/: \t\n\^M]+@\\)?\\([^/:@ \t\n\^M\"`']+\\)\\(:[0-9]+\\)?\\([/~][^]@ \t\n\^M\"`'\)\}>]*\\)?") (save-excursion (goto-char (match-end 0)) - (skip-chars-backward ".?#!*()") + (skip-chars-backward ".,?#!*()") (buffer-substring (match-beginning 2) (point))))) (defun hpath:url-p (obj)