equal
deleted
inserted
replaced
25 (use-local-map debian-doc-mode-map) |
25 (use-local-map debian-doc-mode-map) |
26 (setq font-lock-defaults '((debian-doc-font-lock-keywords) t nil nil nil))) |
26 (setq font-lock-defaults '((debian-doc-font-lock-keywords) t nil nil nil))) |
27 |
27 |
28 (defvar debian-doc-completion-list nil) |
28 (defvar debian-doc-completion-list nil) |
29 |
29 |
|
30 ;;;###autoload |
30 (defun debian-doc (&optional prefix) |
31 (defun debian-doc (&optional prefix) |
31 "Build Debian-Doc buffer. |
32 "Build Debian-Doc buffer. |
32 |
33 |
33 With PREFIX force to rebuild buffer from doc-base files." |
34 With PREFIX force to rebuild buffer from doc-base files." |
34 (interactive "P") |
35 (interactive "P") |
50 (directory-files debian-doc-dir t))) |
51 (directory-files debian-doc-dir t))) |
51 (read-only-mode 1) |
52 (read-only-mode 1) |
52 (debian-doc-mode) |
53 (debian-doc-mode) |
53 (beginning-of-buffer))) |
54 (beginning-of-buffer))) |
54 |
55 |
|
56 ;;;###autoload |
55 (defun debian-doc-visit () |
57 (defun debian-doc-visit () |
56 "Prompt for Debian package which represent docs and visit its entry in Debian-oc buffer." |
58 "Prompt for Debian package which represent docs and visit its entry in Debian-oc buffer." |
57 (interactive) |
59 (interactive) |
58 (let (word start) |
60 (let (word start) |
59 (debian-doc) |
61 (debian-doc) |