Lines Matching +defs:imenu +defs:el
1 ;;; woman.el --- browse UN*X manual pages `wo (without) man'
181 ;; appropriate for installing a dynamic menu using `imenu' (although
182 ;; it is better to use the built-in WoMan imenu support).
185 ;; current man page (using imenu). Alternatively, if you set the
186 ;; variable `woman-imenu' to `t' then WoMan will do it automatically
188 ;; `woman-imenu-title', which is "CONTENTS" by default. By default,
190 ;; this by changing the value of `woman-imenu-generic-expression'.
194 ;; WoMan is configured not to replace spaces in an imenu *Completion*
195 ;; buffer. For further documentation of the use of imenu, such as
196 ;; menu sorting, see the source file imenu.el, which is distributed
206 ;; (setq woman-imenu-generic-expression
210 ;; name hierarchy. If you just want .SH in the imenu then use:
212 ;; (setq woman-imenu-generic-expression
283 ;; (a) check that you are running the latest version of woman.el
366 ;; perform the required formatting. Based originally on enriched.el
367 ;; and format.el.
494 ;; Code taken from w32-symlinks.el
705 filename is \"~/.wmncach.el\". Remember that a prefix argument forces
708 (const :tag "~/.wmncach.el" "~/.wmncach.el")
722 (defcustom woman-imenu-generic-expression
727 see the documentation for `imenu-generic-expression'."
731 (defcustom woman-imenu nil
733 It does this by calling `imenu-add-to-menubar'. Default is nil."
737 (defcustom woman-imenu-title "CONTENTS"
1071 (defvar woman-imenu-done nil
1072 "Buffer-local: set to true if function `woman-imenu' has been called.")
1073 (make-variable-buffer-local 'woman-imenu-done)
1075 ;; From imenu.el -- needed when reformatting a file in its old buffer.
1078 (require 'imenu))
1079 (make-variable-buffer-local 'imenu--last-menubar-index-alist)
1098 ;;; Fast deletion without saving on the kill ring (cf. simple.el):
1104 ;; This is a non-interactive version of kill-line in simple.el that
1125 ;; cf. delete-horizontal-space in simple.el:
1560 ;; dired-get-filename is defined in dired.el
1709 ;; (Code lifted from man.el, with trivial changes.)
1740 ;; (cf. `woman-imenu-generic-expression'):
1840 ["Make Contents Menu" (woman-imenu t) (not woman-imenu-done)]
1919 (set (make-local-variable 'imenu-generic-expression)
1920 ;; `make-local-variable' in case imenu not yet loaded!
1921 woman-imenu-generic-expression)
1922 (set (make-local-variable 'imenu-space-replacement) " ")
1925 (setq imenu--last-menubar-index-alist nil)
1926 ;; necessary to avoid re-installing the same imenu:
1927 (setq woman-imenu-done nil)
1928 (if woman-imenu (woman-imenu))
1934 (defun woman-imenu (&optional redraw)
1938 (if woman-imenu-done
1939 ;; This is PRIMARILY to avoid a bug in imenu-add-to-menubar that
1943 (setq woman-imenu-done t)
1944 (imenu-add-to-menubar woman-imenu-title)
1957 ;; Based on apropos-command in apropos.el
2246 ;; Must return the new end of file. See format.el for details.
2509 "^[.'][ \t]*\\(ig\\|if\\|ie\\|el\\|so\\|rn\\|de\\|am")
2532 ((string= request "el") (woman0-el))
2571 Remember condition for use by a subsequent `.el'.
2642 ;; Interpret bogus `el \}' as `el \{',
2644 "\\(\\\\{\\|el[ \t]*\\\\}\\)\\|\\(\n[.']\\)?[ \t]*\\\\}[ \t]*")
2652 ;; Process matching .el anything:
2655 (cond ((re-search-forward "^[.'][ \t]*el[ \t]*" nil t)
2657 (woman-if-body "el" nil (not delete)))))
2660 ((string= request "el")
2661 (cond ((re-search-forward "^[.'][ \t]*el[ \t]*" nil t)
2663 (woman-if-body "el" nil t))))
2668 (defun woman0-el ()
2669 "Isolated .el request -- should not happen!"
2670 (WoMan-warn "el request without matching `ie' rejected!")
2674 (woman-if-body "el" nil t))
3795 ;; .el .nr PD .4v>?\n[.V]
4138 ;; `fill-region-as-paragraph' in `fill.el' appears to be the principal
4479 ;; Based on tab-to-tab-stop in indent.el.
4594 ;; The basis for this logging code was shamelessly pirated from bytecomp.el
4668 ;;; woman.el ends here