我正在编写一个函数来测试组织模式缓冲区中的断开链接:
(setq urls '("http://google.com" "http://bing.com" "http://www.yahoo.com" "http://thisdoesntexist.net"))
(while (setq nextlink (car urls))
(if (url-http-file-exists-p nextlink)
(message "Link works: %s" nextlink)
(message "Broken Link found: %s" nextlink))
(setq urls (cdr urls)))
除非遇到不存在的 Web 服务器,否则此方法有效。然后它抛出一个 lisp 错误并打开一个回溯缓冲区。
我想要的是首先测试服务器是否存在,如果存在则使用 url-http-file-exists-p 检查特定文档。
谢谢
- 编辑添加适合我的解决方案。谢谢多夫!
(while (setq nextlink (car urls)) (condition-case nil (if (url-http-file-exists-p nextlink) (message "Link works: %s" nextlink) (message "Broken Link found: %s" nextlink)) ((error) (message "Server not found: %s" nextlink))) (setq urls (cdr urls)))