;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 15:45:51 2008 ;;; from file /mnt/gmirror/ports/deskutils/howm/work/howm-1.3.4/howm-misc.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`howm-misc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'howm-common) (defalias 'howm-version #[nil "\301\302\"\207" [howm-version message "howm-%s"] 3 nil nil]) (defalias 'howm-keyword-file #[nil "\302!\204#\212\303!\210 \203eb\210 \304\261\210\305\306!\210\307 \210\310\311!\210)\207" [howm-keyword-file howm-menu-top file-exists-p find-file "\n" set-buffer-modified-p t save-buffer kill-buffer nil] 2]) (add-hook 'howm-view-open-hook 'howm-set-mode) (defalias 'howm-set-mode #[nil "\301 \205\f\302!\210\303\304!\207" [major-mode howm-set-mode-p howm-set-configuration-for-major-mode howm-mode 1] 2]) (defalias 'howm-set-mode-p #[(&optional buf) "r\206pq\210\302 @\303 \205\304 \303 \"*\207" [buf hdir howm-search-path buffer-file-name howm-folder-territory-p] 3]) (defalias 'howm-normalize-file-name #[(filename) "\304!\305\306 \"\203 \307\310O \310\311O\211\227\nP*\202 )\207" [filename f rest drive expand-file-name string-match "^[A-Z]:" 0 1 nil] 5]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list howm-configuration-for-major-mode boundp nil] 2) (defalias 'howm-set-configuration-for-file-name #[(f) "\302!\303 !)\207" [f mode howm-auto-mode howm-set-configuration-for-major-mode] 2]) (defalias 'howm-set-configuration-for-major-mode #[(mode) "\303 \"A\211\205\304\305\n\")\207" [mode howm-configuration-for-major-mode a assoc mapc #[(sv) "@A\303\n! L*\207" [sv value symbol make-local-variable] 2]] 4]) (byte-code "\303\301!\203\301B\303\301!\204\304\302B\303\302!\204(\303\301!\203& \202'\305\304\207" [current-load-list auto-mode-interpreter-regexp howm-auto-mode-interpreter-regexp boundp nil "#![ ]?\\([^ \n]*/bin/env[ ]\\)?\\([^ \n]+\\)"] 2) #@526 Major mode appropriate for current buffer. This checks for a -*- mode tag in the buffer's text, compares the filename against the entries in `auto-mode-alist', or checks the interpreter that runs this file against `interpreter-mode-alist'. It does not check for the `mode:' local variable in the Local Variables section of the file; for that, use `hack-local-variables'. If `enable-local-variables' is nil, this function does not check for a -*- mode tag. This function merely returns the mode; it does not set the mode.  (defalias 'howm-auto-mode #[(&optional file-name) "\306\211\211\211\211\212eb\210\307\306w\210 \203\366!\310\"\206\311!#$%\211&\203?\312&@#\"\204?&A\211&\204,&)\203P#\313\211\224O#\202$$\203h\312$@#\"\204h$A\211$\204U$*\204\366\314\315\212\316\317!\205x\320\210`)\321#\203\366\322\306w\210`\314\315\212\306\210`)\321#\203\366\323u\210\322\306x\210`\fb\210\212\314\324 \321#)\203\353\321'\316\325!\203\271\313\225b\206\276\326\327 \321#)\203\366\322\306w\210`\314\330 \321#\203\326\331u\210\202\331 b\210\322\306x\210\332\f`{\227\333P! B\202\252\332\f {\227\333P! B) \237\306(\211)\203)@(\334(!\203(\321)A\211)\204*\n\204\317\"\203\317\"\321*#\310#!#*\203\316\306*+\306(,-\335>'(\204\223,\203\223\312,@@#\"\203\213,@A:\203\202\320,@8\203\202,@A@(#\313\211\224O#\321*\202\213,@A(\306*,A,\202H)(\203\237(\202\312\212eb\210\316.!\203\260\336\320!\202\261\311)\306/0\337\3400!1\"\211/\203\311/A**\2023*-\207" [ans modes done end beg enable-local-variables nil " \n" file-name-sans-versions "" string-match 0 search-forward "-*-" looking-at "^#!" 2 t " " -3 ":" "mode:" re-search-forward "[ ;]mode:" ";" -1 intern "-mode" functionp (vax-vms windows-nt) match-string assoc file-name-nondirectory inhibit-first-line-modes-regexps file-name name temp inhibit-first-line-modes-suffixes sufs case-fold-search mode #1=#:--dolist-temp--13312 keep-going auto-mode-alist alist system-type howm-auto-mode-interpreter-regexp elt interpreter interpreter-mode-alist] 6 (#$ . 2313)]) (byte-code "\302\303!\204\n\303\304M\210\301B\305\301!\204\306\306\207" [current-load-list howm-kill-all-enable-force fboundp replace-regexp-in-string #[(regexp rep string &optional fixedcase literal subexp start) "G \206\306\307\211\211\211\310 \311\216 W\203n\312 #\203n\306\224\306\225\211 U\203: T^\312 \nO\211\"\210\313;\203Q\202X\314\306\f\"!\f% O BB\n\211\202 O B\315\316 \237\".\207" [string start me mb str matches 0 nil match-data ((set-match-data save-match-data-internal)) string-match replace-match match-string apply concat l save-match-data-internal regexp rep fixedcase literal subexp] 7 "Replace all matches for REGEXP with REP in STRING.\n\nReturn a new string containing the replacements.\n\nOptional arguments FIXEDCASE, LITERAL and SUBEXP are like the\narguments with the same names of function `replace-match'. If START\nis non-nil, start replacements at that index in STRING.\n\nREP is either a string used as the NEWTEXT arg of `replace-match' or a\nfunction. If it is a function it is applied to each match to generate\nthe replacement passed to `replace-match'; the match-data at this\npoint are such that match 0 is the function's argument.\n\nTo replace only the first match (if any), make REGEXP match up to \\'\nand replace a sub-expression, e.g.\n (replace-regexp-in-string \"\\(foo\\).*\\'\" \"bar\" \" foo foo\" nil nil 1)\n => \" bar foo\"\n"] boundp nil] 2) #@53 Kill all buffers which is howm-mode and unmodified. (defalias 'howm-kill-all #[(&optional force-p) "\205 \211\203\304\305!\202\306\307!\205( \310=\203\311 \210\312\313\314 \"\210\315\316!)\207" [force-p howm-kill-all-enable-force anyway major-mode yes-or-no-p "Discard all unsaved changes on howm-mode buffers? " y-or-n-p "Kill all howm-mode buffers? " howm-view-summary-mode howm-view-restore-window-configuration mapc #[(b) "\302!\205 \203\303!\210\304\305!\210\306!?\205\307!\207" [b anyway howm-buffer-p switch-to-buffer set-buffer-modified-p nil buffer-modified-p kill-buffer] 2] buffer-list message "Done."] 4 (#$ . 5897) "P"]) (defalias 'howm-toggle-buffer #[nil "\300 \203\301 \207\302 \207" [howm-buffer-p howm-switch-to-nonhowm-buffer howm-switch-to-howm-buffer] 1 nil nil]) (defalias 'howm-switch-to-howm-buffer #[nil "\301\302!\211\203\303!\202\304 )\207" [b howm-find-buffer howm-buffer-p switch-to-buffer howm-menu] 3 nil nil]) (defalias 'howm-switch-to-nonhowm-buffer #[nil "\300\301\302!\206\n\303\304!!\207" [switch-to-buffer howm-find-buffer #[(b) "\301!?\207" [b howm-buffer-p] 2] error "No nonhowm buffer"] 3 nil nil]) (defalias 'howm-find-buffer #[(pred) "\300\301\215\207" [:found (byte-code "\300\301\302 \"\210\303\207" [mapc #[(b) "\302!\203\303\207 !\203\304\305\"\207\306\207" [b pred howm-internal-buffer-p nil throw :found t] 3] buffer-list nil] 3)] 2]) (defalias 'howm-internal-buffer-p #[(buf) "\301!\302\303O\304\230\207" [buf buffer-name 0 1 " "] 3]) (defalias 'howm-buffer-p #[(&optional buf) "\306B\307\310 \"r \206pq\210\f\206 \311\235\206 \n\235+\207" [*howm-independent-directories* indep-dirs keyword-bufs buf howm-mode major-mode nil mapcar #[(d) "\206 \302 )\207" [d default-directory howm-keyword-buffer] 1] (howm-view-summary-mode howm-view-contents-mode)] 3]) (defalias 'howm-mode-add-font-lock #[nil "\205$\306 \n\307B \f\310BD \f\311BD \312BDF\"\313!)\207" [howm-use-color howm-user-font-lock-keywords howm-view-title-regexp howm-keyword-regexp howm-keyword-regexp-hilit-pos howm-ref-regexp append ((0 howm-mode-title-face prepend)) (howm-mode-keyword-face prepend) (howm-mode-ref-face prepend) (howm-mode-wiki-face prepend) cheat-font-lock-append-keywords howm-ref-regexp-hilit-pos howm-wiki-regexp howm-wiki-regexp-pos ks] 8]) (defalias 'howm-show-buffer-as-howm #[nil "\305 `\306ed\"\307\310\311\"!\211q\210\312 \210\313\314 \210\nc\210\315\316!\210\317 \210\320\313!\210\321 b\210\322 !,\207" [name pos s b buffer-read-only buffer-name buffer-substring-no-properties get-buffer-create format "*howm[%s]*" buffer-disable-undo nil erase-buffer howm-mode 1 howm-initialize-buffer set-buffer-modified-p t switch-to-buffer] 5 nil nil]) (defalias 'howm-narrow-to-memo #[nil "\300\301\302\303!\"\207" [apply narrow-to-region howm-view-paragraph-region t] 4 nil nil]) (defalias 'howm-toggle-narrow #[nil "\300 \203~\207\301 \207" [howm-narrow-p howm-narrow-to-memo] 1 nil nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put howm-narrow-to-memo disabled t howm-toggle-narrow] 4) (defalias 'howm-narrow-p #[nil "ed\214~\210 e\232\205d\232+?\207" [e b] 2]) (defalias 'howm-auto-narrow #[nil "\203\302\207 \303=\204\304 \235\205\305 \207" [*howm-view-item-privilege* howm-auto-narrow nil t howm-command howm-narrow-to-memo] 2]) (defalias 'howm-create-interactively #[(&optional use-current-directory) "\302\303\304?\205 \"!\210db\210\305 \207" [use-current-directory howm-directory find-file read-file-name "Memo file: " howm-create-here] 4 nil "P"]) (put 'howm-save-narrowing 'lisp-indent-hook 0) (defalias 'howm-save-narrowing '(macro . #[(&rest body) "\301\302\303\304\305B\306BBF\207" [body let ((narrowp (howm-narrow-p))) (when narrowp (widen)) unwind-protect progn ((when narrowp (howm-narrow-to-memo)))] 6])) (defalias 'howm-next-memo #[(n) "\303 \211\203 ~\210\304\216\305 !\203\nT\306 \307\211\n$*\207" [narrowp howm-view-title-regexp n howm-narrow-p ((byte-code "\203\301 \210\301\207" [narrowp howm-narrow-to-memo] 1)) looking-at re-search-forward nil] 6 nil "p"]) (defalias 'howm-previous-memo #[(n) "\303 \211\203 ~\210\304\216\305 !\204\nT\306 \307\211\n$*\207" [narrowp howm-view-title-regexp n howm-narrow-p ((byte-code "\203\301 \210\301\207" [narrowp howm-narrow-to-memo] 1)) looking-at re-search-backward nil] 6 nil "p"]) (defalias 'howm-first-memo #[nil "\301 \211\203 ~\210\302\216eb*\207" [narrowp howm-narrow-p ((byte-code "\203\301 \210\301\207" [narrowp howm-narrow-to-memo] 1))] 2 nil nil]) (defalias 'howm-last-memo #[nil "\302 \211\203 ~\210\303\216db\210*\304 !\207" [narrowp howm-view-title-regexp howm-narrow-p ((byte-code "\203\301 \210\301\207" [narrowp howm-narrow-to-memo] 1)) re-search-backward] 3 nil nil]) #@18 for internal use (defvar howm-random-walk-buf nil (#$ . 10714)) #@18 for internal use (defvar howm-random-walk-ro t (#$ . 10784)) (defalias 'howm-random-walk #[nil "\306 \307\310\311 !\211\205\n\312=?\205\313 ?)\205B\314\216 \315=\203*\316 \210\202:\f\2034\317 \210\202:\320 \210\316 \210)\321 !\210\202*\207" [howm-history-file orig-bufs v major-mode howm-mode howm-random-walk-wait buffer-list nil frame-visible-p selected-frame icon input-pending-p ((byte-code "\300\301\302 \"\207" [mapc #[(b) " \235?\205\302!?\205\303!\207" [b orig-bufs get-buffer-window kill-buffer] 2] buffer-list] 3)) howm-view-summary-mode howm-random-walk-summary howm-random-walk-text howm-list-all sit-for] 3 nil nil]) (defalias 'howm-random-walk-summary #[nil "\302 Geb\210\303\304!!\210\305 \210\306 !\210\307 )\207" [n howm-random-walk-wait riffle-item-list next-line random howm-view-summary-check sit-for howm-view-summary-open] 3]) (defalias 'howm-random-walk-text #[nil "\304 \305G!8deZe\305\n!\\b\210\306 \307\310#\203$\311\224b\210\202*\312 \307\310#\210\313 !\210\314 !+\207" [ks k d howm-random-walk-wait howm-keyword-for-goto random search-forward nil t 0 search-backward sit-for howm-keyword-search] 4]) #@73 Ask a file name and open it as howm note if it is under howm directory. (defalias 'howm-open-named-file #[nil "\305 \306=\203\307 !\202 \310=\203\311 !\202\n\312\313 \"\314\f!\210\315\f!\2032\316 \2028\317\320!\210\321 +\207" [item-dir major-mode howm-directory dir fname #[(item) "\301\302!!\207" [item file-name-directory howm-item-name] 3] howm-view-summary-mode howm-view-summary-current-item howm-view-contents-mode howm-view-contents-current-item read-file-name "Howm file name: " find-file file-exists-p howm-set-mode howm-insert-template "" howm-create-finish] 3 (#$ . 11948) nil]) #@18 for internal use (defvar howm-remember-wconf nil (#$ . 12560)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\311 \312 \313\314#\210\312 \315\316#\210\304B\306\304!\2043 )\305B\306\305!\204@\310\310\207" [current-load-list howm-remember-buffer-name howm-remember-mode-hook m howm-remember-mode-map howm-remember-first-line-to-title boundp "*howm-remember*" nil make-sparse-keymap define-key "" howm-remember-submit " " howm-remember-discard] 4) #@31 Add text to new note in howm. (defalias 'howm-remember #[nil "\302 \303\304 !!\210\305 \210\306\307\310\311\312\313\"B\"\207" [howm-remember-wconf howm-remember-buffer-name current-window-configuration switch-to-buffer-other-window get-buffer-create howm-remember-mode apply message "Remember (%s) or discard (%s)." mapcar #[(f) "\302\303 \304#!\207" [f howm-remember-mode-map key-description where-is-internal t] 5] (howm-remember-submit howm-remember-discard)] 6 (#$ . 13044) nil]) #@60 Major mode for `howm-remember'. \{howm-remember-mode-map} (defalias 'howm-remember-mode #[nil "\303 \210\304 \210\305!\210\306\307\310\311!\207" [howm-remember-mode-map major-mode mode-name kill-all-local-variables text-mode use-local-map howm-remember-mode "HowmRemember" run-hooks howm-remember-mode-hook] 2 (#$ . 13536) nil]) (defalias 'howm-remember-submit #[nil "\212\303 \304ed\"\305\n!\210\306!\210 \307\261\210\310 \210\311p!\210+\312 \207" [title s howm-remember-wconf howm-remember-get-title buffer-substring-no-properties set-window-configuration howm-create-file-with-title "\n" save-buffer kill-buffer howm-remember-discard] 3 nil nil]) (defalias 'howm-remember-get-title #[nil "\204\301\207eb\210\302e\303 \"\304y\210e`|\210\207" [howm-remember-first-line-to-title "" buffer-substring-no-properties line-end-position 1] 3]) (defalias 'howm-remember-discard #[nil "\301p!\210\302!\207" [howm-remember-wconf kill-buffer set-window-configuration] 2 nil nil]) (byte-code "\306\307C\"\310\311!\204\311\312M\210\302 B\313\302!\204\314\315\302!\210\316\317\320\321\314$\210\322\317\314\"\210\316\323\324\321\314$\210\322\323\314\"\210\303 B\313\303!\204D\314 \203v\325\326M\210\327\330M\210\316\331\332\321\314$\210\322\331\314\"\210\333\334M\210\316\335\336\321\314$\210\322\335\314\"\210\311\337\340\"\210\311\341\342\"\210\316\343\344\321\314$\210\322\343\314\"\210\304 B\313\304!\204\216\314\313\305!\203\240\305 B\313\305!\204\240\314\313\345!\203\263\345 B\313\345!\204\263\314%\314\207" [auto-mode-alist current-load-list action-lock-mode-before-canna howm-ime-fix howm-auto-save-buffers-disposed auto-save-buffers-regexp append ("\\.howm$" . text-mode) fboundp eval-after-load #[(file form) "\300\207" [nil] 1] boundp nil make-variable-buffer-local ad-add-advice canna:enter-canna-mode (action-lock-fix nil t (advice lambda nil (setq action-lock-mode-before-canna action-lock-mode) (setq action-lock-mode nil) ad-do-it)) around ad-activate canna:quit-canna-mode (action-lock-fix nil t (advice lambda nil (setq action-lock-mode action-lock-mode-before-canna) ad-do-it)) howm-raise-in-minor-mode-map-alist #[(mode) "\303 \"\211\205\n\304\n \"B\211)\207" [mode minor-mode-map-alist pair assoc remove] 5 "Raise MODE to the top in minor-mode-map-alist"] howm-canna-fix #[nil "\300\301\302\"\207" [mapc howm-raise-in-minor-mode-map-alist (canna:*fence-mode* canna:*select-mode*)] 3] canna-toggle-japanese-mode (howm-fix nil t (advice lambda nil (howm-canna-fix) ad-do-it (howm-canna-fix))) howm-yc-fix #[nil "\300\301\302\"\207" [mapc howm-raise-in-minor-mode-map-alist (yc-mode yc-henkan-mode yc-input-mode yc-edit-mode yc-select-mode yc-defword-mode yc-wclist-mode)] 3] yc-rK-trans (howm-fix nil t (advice lambda nil (howm-yc-fix) ad-do-it)) "egg" (mapc #'howm-raise-in-minor-mode-map-alist '(egg:henkan-mode-in-use egg-mode egg:*in-fence-mode*)) "anthy" (mapc #'howm-raise-in-minor-mode-map-alist '(anthy-minor-mode)) mcomplete-p (symbol-check nil t (advice lambda nil (and (symbolp this-command) ad-do-it))) auto-save-reject-buffers-regexp] 5) (defalias 'howm-auto-save-buffers-p #[nil "\303 \304\301!\205\305 \"\205\304\302!\203\305\n\"?\202\306)\207" [f auto-save-buffers-regexp auto-save-reject-buffers-regexp howm-file-name boundp string-match t] 3]) (defalias 'howm-auto-save-buffers-dispose #[nil "\303\303\304\305\306!\207" [howm-menu-refresh-after-save howm-refresh-after-save howm-auto-save-buffers-disposed nil t message "howm: Automatic refresh is disabled when auto-save-buffers is called."] 2]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice auto-save-buffers (howm-dispose nil t (advice lambda nil (if (or howm-auto-save-buffers-disposed (not (howm-auto-save-buffers-p))) ad-do-it (howm-auto-save-buffers-dispose)))) around nil ad-activate] 5) (defalias 'howm-basic-save-buffer #[nil "\301 \210\302K\303=\211\205\304 \210\305\306!)\207" [in-auto-save-buffers basic-save-buffer write-region auto-save-buffers-write-region set-visited-file-modtime set-buffer-modified-p nil] 3]) (defalias 'howm-setup-change-log #[nil "\306\307\310\311\312\313\314\315\315\316\317\320\321\315$\210\322\317\315\"\210\316\323\324\321\315$\210\322\323\315\"\210\316\325\326\321\315$\210\322\325\315\"\210\327\330\331\"\207" [howm-keyword-format howm-keyword-regexp howm-keyword-regexp-hilit-pos howm-keyword-regexp-pos howm-view-title-regexp howm-view-title-regexp-pos " * %s" "^ \\(\\*\\)[ ]+\\([^: \n]+\\)" 1 2 "^$" 0 sorry-not-yet nil ad-add-advice howm-exclude-p (change-log nil t (advice lambda (filename) (setq ad-return-value (not (find-if (lambda (dir) (string= (howm-file-name) (file-relative-name filename dir))) (howm-search-path)))))) around ad-activate howm-create-file-with-title (change-log nil t (advice lambda (title) (howm-create-file) (when (string-match howm-keyword-regexp title) (setq title (match-string-no-properties howm-keyword-regexp-pos title))) (insert title))) howm-create-file (change-log nil t (advice lambda (&optional keep-cursor-p) (let* ((default (howm-file-name)) (file (expand-file-name default howm-directory)) (dir (file-name-directory file)) (buffer-file-name file)) (make-directory dir t) (add-change-log-entry nil file)))) add-hook change-log-mode-hook howm-mode howm-view-title-regexp-grep howm-use-color howm-menu-top] 5]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-change-log-file-name boundp "ChangeLog"] 2) (defalias 'howm-to-change-log #[nil "\306 \307 \n\"\n\310\311 \",\207" [title howm-change-log-file-name howm-directory file buffer-file-name default-directory howm-title-at-current-point expand-file-name add-change-log-entry nil] 3 nil nil]) (defalias 'howm-from-change-log #[nil "\303\304\305\306 #\307\n!+\207" [title-regexp title-regexp-pos title "^ [*][ ]*\\(.*\\)$" 1 howm-title-at-current-point nil howm-create-file-with-title] 4 nil nil]) (defalias 'howm-test #[nil "\300 \210\301 \207" [howm-set-lang howm-bug-report] 1]) (defalias 'howm-set-lang #[nil "\300\301!\210\302\303!\210\304\305!\210\306\303!\210\307\303!\207" [set-language-environment "Japanese" set-default-coding-systems euc-jp set-buffer-file-coding-system euc-jp-unix set-terminal-coding-system set-keyboard-coding-system] 2]) (defalias 'howm-compiled-p #[nil "\300\301K!\207" [byte-code-function-p howm-compiled-p] 2]) (defalias 'howm-make-file-p #[nil "\300\207" ["t"] 1]) (defalias 'howm-test-p #[nil "\300\301!\207" [getenv "HOWM_TEST"] 2]) (defalias 'howm-bug-report #[(&optional show-sym) "\303\304!\305\306 !\210\307 \204\310\311 \"\210\312!\203!\313!\210\202$\314c\210db\210\315\316\317\320 B\321 B\"\210\n\203@db\210\322c\210\323 c\210eb*\207" [template report-buf show-sym format-time-string "howm-bug-report-%Y%m%d-%H%M%S" "sample/bug-report.txt" switch-to-buffer howm-buffer-empty-p error "Buffer %s exists (and not empty)." file-exists-p insert-file-contents "Please copy the following text to your bug report.\n\n" mapcar #[(sv) "\301\302@A#c\207" [sv format "%s: %s\n"] 4] "howm" howm-version-long honest-report-version-assoc "\n(List of variables)\n" howm-symbols-desc] 4 nil "P"]) (defalias 'howm-version-long #[nil "\301\302\303 \304 \305 %\207" [howm-version format "%s (compile: %s, make: %s, test: %s)" howm-compiled-p howm-make-file-p howm-test-p] 6]) (defalias 'howm-emacs-build-time #[nil ";\203\207\301\302\"\207" [emacs-build-time format-time-string "%Y-%m-%d"] 3]) (defalias 'howm-symbols-desc #[(&optional max-desc-len) "\204\301\302\303\304\305\306\307 \310\"\"\"\207" [max-desc-len 50 apply concat mapcar #[(sym) "\305!\2055\306\307J\"\n\247\203-\n GW\203-\n\310\245\n Z \311\fO\312 [\313OQ*\306\314\315! #)\207" [sym v max-desc-len tl hd boundp format "%S" 4 0 " ... " nil "%s: %s\n" symbol-name] 5] sort howm-symbols #[(x y) "\302!\302 !\231\207" [x y symbol-name] 3]] 7]) #@77 List of features which are required for, and distributed with, howm itself. (defvar howm-required-features '(cheat-font-lock action-lock riffle gfunc illusion) (#$ . 21450)) (defalias 'howm-prefix-names #[nil "\301\302\303B\"\207" [howm-required-features mapcar symbol-name howm] 4]) (defalias 'howm-symbols #[nil "\302\303\304\305 \306\"\"\307\310\311!\210 *\207" [reg a format "^%s" regexp-opt howm-prefix-names t nil mapatoms #[(s) "\303\304 !\"\205 \nB\211\207" [reg s a string-match symbol-name] 4]] 5]) (defalias 'howm-elp #[nil "\300\301\302 \"\207" [mapcar elp-instrument-package howm-prefix-names] 3 nil nil]) #@18 for internal use (defvar howm-sample-directory (expand-file-name "sample/") (#$ . 22082)) (defalias 'howm-bug-shot #[nil "\306\307 P\310 \205+\311\312 \"\313\n!\205*\314\315\316!!\317\216r q\210\320\n!\210\321ed\"+)\211\2037\322\fQ\2028\323\324 \"\210\325\326!,\207" [version howm-sample-directory f #1=#:temp-buffer init header "[howm] " howm-version-long howm-test-p expand-file-name "dot.emacs" file-readable-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-substring-no-properties "\n\n[init]\n" "--- your comment ---" honest-report message "Please copy this buffer to your report." footer] 4 nil nil]) (provide 'howm-misc)