Parent Directory | Revision Log | Patch
revision 1.82 by pkazmier, Sat Jan 8 21:35:44 2005 UTC | revision 1.83 by pkazmier, Sun Jan 9 01:10:42 2005 UTC | |
---|---|---|
# | Line 820 Optional argument FOO ." | Line 820 Optional argument FOO ." |
820 | (string-match fs-web-page-title-p tgt)) | (string-match fs-web-page-title-p tgt)) |
821 | t)) | t)) |
822 | (let* ((case-fold-search t) | (let* ((case-fold-search t) |
823 | (url (some (lambda (e) | (url (some 'erbutils-html-url-p msg))) |
(when (string-match "^http://[^ ]+$" e) | ||
e)) | ||
msg))) | ||
824 | (when url | (when url |
825 | (setq leave-alone-p nil) | (setq leave-alone-p nil) |
826 | (setq msg (list "(" "web-page-title" (format "%S" url) ")"))))) | (setq msg (list "(" "web-page-title" (format "%S" url) ")"))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |