;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303!\210\302\304!\210\305\306\307\310\311\312%\207" [provide ol-elisp-symbol require ol org org-link-set-parameters "elisp-symbol" :follow org-elisp-symbol-open :store org-elisp-symbol-store-link] 6) (defalias 'org-elisp-symbol-open #[(symbol arg) "\302 \"\207" [symbol arg org-link-open-as-file] 3]) #@45 Store a link to an emacs-lisp elisp-symbol. (defalias 'org-elisp-symbol-store-link #[nil "\306=\205W\212\307\310!\204\311 \210\307\312!\210\212\313 \314\216\315 \210`+\316\317!\316\320!\321\f!\322 !\2036\323\202i\324 !\203@\325\202i\326 !\203J\327\202i \330\230\203T\331\202i \332\230\203^\333\202i \334\230\203h\335\202i\336@\316\337!\203}\340\341\342\316\337!!\343#\202~\344A\324 !\203\220\345 !\206\240\346\202\240\347\350@\"\203\237\351 \352\"\202\240\353B\347\354B\"\205\257\316\317B\"C\212\311 \210\315 \210\355\356\n\357#\203\306\316\317!\202\307\360)D\212\311 \210\315 \210\355\361\n\357#\203\337\316\317!\202\340\362)E\363\211FG\363\211HI@\323\232\203 \364 !\211F\203\340\365F\343#\202 \366G\367\370J!\371 \343\f\260H@\372\fQI\373\374\375\376H\377I\201K \201L\f\201M@\201NA\201OG\201PB\201QC\201RD\201SE&.\207" [major-mode save-match-data-internal end def name sym-name emacs-lisp-mode looking-at "^(" beginning-of-defun "^(\\([a-z]+\\) \\([^)\n ]+\\) ?\n?[ ]*\\(?:(\\(.*\\))\\)?" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] end-of-defun match-string 1 2 intern-soft commandp "Command" functionp "Function" user-variable-p "User variable" "defvar" "Variable" "defmacro" "Macro" "defun" "Function or command" "Symbol" 3 mapconcat #[(a) "\301\302\"?\205 \207" [a string-match "^&"] 3] split-string " " "no arg" documentation "[no documentation]" string-match "[Vv]ariable" documentation-property variable-documentation "no documentation" "^\\([^\n]+\\)$" re-search-forward "^;+ ?FIXME[ :]*\\(.*\\)$" t "nothing to fix" "^;;+ ?\\(.*\\)$" "no comment" nil where-is-internal key-description "none" "file:" abbreviate-file-name "::" ": " org-store-link-props :type "elisp-symbol" :link :description stype args docstring doc fixme comment keys keys-desc link description buffer-file-name :def :name :stype :args :keys :docstring :doc :fixme :comment] 26 (#$ . 419)]) (provide 'org-elisp-symbol)