Commit 5a97a3c2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(help-xref-on-pp): Catch and ignore errors in scanning the buffer.

parent 2a7c85e3
2001-12-25 Richard M. Stallman <rms@gnu.org> 2001-12-25 Richard M. Stallman <rms@gnu.org>
   
* help-mode.el (help-xref-on-pp): Catch and ignore errors in scanning
the buffer.
* startup.el (command-line): Convert command line args * startup.el (command-line): Convert command line args
to Emacs internal representation using locale-coding-system. to Emacs internal representation using locale-coding-system.
   
......
...@@ -463,21 +463,23 @@ See `help-make-xrefs'." ...@@ -463,21 +463,23 @@ See `help-make-xrefs'."
(set-syntax-table emacs-lisp-mode-syntax-table) (set-syntax-table emacs-lisp-mode-syntax-table)
(narrow-to-region from to) (narrow-to-region from to)
(goto-char (point-min)) (goto-char (point-min))
(while (not (eobp)) (condition-case nil
(cond (while (not (eobp))
((looking-at "\"") (forward-sexp 1)) (cond
((looking-at "#<") (search-forward ">" nil 'move)) ((looking-at "\"") (forward-sexp 1))
((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)") ((looking-at "#<") (search-forward ">" nil 'move))
(let* ((sym (intern-soft (match-string 1))) ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")
(type (cond ((fboundp sym) 'help-function) (let* ((sym (intern-soft (match-string 1)))
((or (memq sym '(t nil)) (type (cond ((fboundp sym) 'help-function)
(keywordp sym)) ((or (memq sym '(t nil))
nil) (keywordp sym))
((and sym (boundp sym)) nil)
'help-variable)))) ((and sym (boundp sym))
(when type (help-xref-button 1 type sym))) 'help-variable))))
(goto-char (match-end 1))) (when type (help-xref-button 1 type sym)))
(t (forward-char 1)))))) (goto-char (match-end 1)))
(t (forward-char 1))))
(error nil))))
(set-syntax-table ost)))) (set-syntax-table ost))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment