424 |
(defvar woman-version "0.551 (beta)" "WoMan version information.") |
(defvar woman-version "0.551 (beta)" "WoMan version information.") |
425 |
|
|
426 |
(require 'man) |
(require 'man) |
427 |
|
(require 'button) |
428 |
|
(define-button-type 'WoMan-xref-man-page |
429 |
|
:supertype 'Man-abstract-xref-man-page |
430 |
|
'func 'woman) |
431 |
|
|
432 |
(eval-when-compile ; to avoid compiler warnings |
(eval-when-compile ; to avoid compiler warnings |
433 |
(require 'dired) |
(require 'dired) |
434 |
(require 'apropos)) |
(require 'apropos)) |
1869 |
(setq woman-imenu-done nil) |
(setq woman-imenu-done nil) |
1870 |
(if woman-imenu (woman-imenu)) |
(if woman-imenu (woman-imenu)) |
1871 |
(let (buffer-read-only) |
(let (buffer-read-only) |
1872 |
(Man-highlight-references)) |
(Man-highlight-references 'WoMan-xref-man-page)) |
1873 |
(set-buffer-modified-p nil) |
(set-buffer-modified-p nil) |
1874 |
(run-mode-hooks 'woman-mode-hook)) |
(run-mode-hooks 'woman-mode-hook)) |
1875 |
|
|