;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require srecode/dictionary ede] 2)#@203 Add macros into the dictionary DICT specifying blank line spacing. The wrapgap means make sure the first and last lines of the macro do not contain any text from preceding or following text. (fn DICT) (defalias 'srecode-semantic-handle-:blank #[257 "\300\301\302#\207" [srecode-dictionary-set-value "BLANK" t] 5 (#$ . 160)])#@65 Add macros into the dictionary DICT for indentation. (fn DICT) (defalias 'srecode-semantic-handle-:indent #[257 "\300\301\302#\207" [srecode-dictionary-set-value "INDENT" t] 5 (#$ . 492)])#@65 Non-nil means do region handling w/out the region being active. (defvar srecode-handle-region-when-non-active-flag nil (#$ . 688))#@78 Add macros into the dictionary DICT based on the current :region. (fn DICT) (defalias 'srecode-semantic-handle-:region #[257 "\204 \305=\204\n\205, \205,\306\307\"\210\310\311\312`\313 \"#\210\fp=\205,\314`\313 \"\207" [srecode-handle-region-when-non-active-flag last-command transient-mark-mode mark-active standard-output mouse-drag-region srecode-dictionary-show-section "REGION" srecode-dictionary-set-value "REGIONTEXT" buffer-substring-no-properties mark kill-region] 7 (#$ . 824)])#@76 Add macros into the dictionary DICT based on the current :user. (fn DICT) (defalias 'srecode-semantic-handle-:user #[257 "\302\303\304 #\210\302\305\306 #\210\302\307#\210\302\310 #\210\302\311\312 #\207" [user-mail-address user-init-file srecode-dictionary-set-value "AUTHOR" user-full-name "LOGIN" user-login-name "EMAIL" "EMACSINITFILE" "UID" user-uid] 5 (#$ . 1329)])#@76 Add macros into the dictionary DICT based on the current :time. (fn DICT) (defalias 'srecode-semantic-handle-:time #[257 "\300 \301\302\303\304\"#\210\301\305\303\306\"#\210\301\307\303\310\"#\210\301\311\303\312\"#\210\301\313\303\314\"#\210\301\315\303\316\"#\210\301\317\303\320\"#\210\301\321\303\322\"#\210\301\323\303\324\"#\210\301\325\303\326\"#\210\301\327\303\330\"#\210\301\331\303\332\"#\210\301\333\303\334\"#\207" [current-time srecode-dictionary-set-value "YEAR" format-time-string "%Y" "MONTHNAME" "%B" "MONTH" "%m" "DAY" "%d" "WEEKDAY" "%a" "HOUR" "%H" "HOUR12" "%l" "AMPM" "%p" "MINUTE" "%M" "SECOND" "%S" "TIMEZONE" "%Z" "DATE" "%D" "TIME" "%X"] 8 (#$ . 1713)])#@76 Add macros into the dictionary DICT based on the current :file. (fn DICT) (defalias 'srecode-semantic-handle-:file #[257 "\302 \303!\304!\305\306#\210\305\307\310!#\210\305\311\312!#\210\305\313#\210\305\314\315!#\210\305\316\315!\317\320 \"\211\203B \321O\202C )\262#\210\322\323!\204T\322\324!\205X\325\324\"\207" [major-mode mode-name buffer-file-name file-name-nondirectory file-name-directory srecode-dictionary-set-value "FILENAME" "FILE" file-name-sans-extension "EXTENSION" file-name-extension "DIRECTORY" "MODE" symbol-name "SHORTMODE" string-match "-mode" 0 file-exists-p "CVS" "RCS" srecode-dictionary-show-section] 11 (#$ . 2426)])#@82 Add macros into the dictionary DICT based on the current ede project. (fn DICT) (defalias 'srecode-semantic-handle-:project #[257 "\301 \302!\303 \2038\304!\305\"\305\"\306\307#\210\306\310#\210\306\311\312\303 !#\210\306\313\314\303 \315\"#\207\306\307#\210\306\310#\210\306\311\316#\210\306\313\317#\207" [default-directory buffer-file-name file-name-directory ede-toplevel ede-toplevel-project file-relative-name srecode-dictionary-set-value "PROJECT_FILENAME" "PROJECT_DIRECTORY" "PROJECT_NAME" ede-name "PROJECT_VERSION" eieio-oref version "N/A" "1.0"] 12 (#$ . 3098)])#@78 Add macros into the dictionary DICT based on the current :system. (fn DICT) (defalias 'srecode-semantic-handle-:system #[257 "\303\304#\210\303\305 #\210\303\306\307 #\210\303\310\n\206\307 #\207" [system-configuration system-type mail-host-address srecode-dictionary-set-value "SYSTEMCONF" "SYSTEMTYPE" "SYSTEMNAME" system-name "MAILHOST"] 5 (#$ . 3702)])#@72 Add macros into the dictionary DICT based on the kill ring. (fn DICT) (defalias 'srecode-semantic-handle-:kill #[257 "\301\302@#\210\301\303A@#\210\301\304\3058#\210\301\306\3078#\207" [kill-ring srecode-dictionary-set-value "KILL" "KILL2" "KILL3" 2 "KILL4" 3] 6 (#$ . 4072)]) (provide 'srecode/args)