我正在编写一个函数,用于测试组织模式缓冲区中断开的链接:
(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)))
你为什么不通过异常处理condition-case
块来捕获错误?