Server IP : 111.118.215.189 / Your IP : 18.217.207.112 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/cedet/srecode/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:28 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/args.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'srecode/dictionary) #@192 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. (defalias 'srecode-semantic-handle-:blank #[(dict) "\301\302\303#\207" [dict srecode-dictionary-set-value "BLANK" t] 4 (#$ . 592)]) #@54 Add macros into the dictionary DICT for indentation. (defalias 'srecode-semantic-handle-:indent #[(dict) "\301\302\303#\207" [dict srecode-dictionary-set-value "INDENT" t] 4 (#$ . 922)]) #@65 Non-nil means do region handling w/out the region being active. (defvar srecode-handle-region-when-non-active-flag nil (#$ . 1116)) #@67 Add macros into the dictionary DICT based on the current :region. (defalias 'srecode-semantic-handle-:region #[(dict) "\204 \306=\204 \n\205, \205, \307\f\310\"\210\311\f\312\313`\314 \"#\210 p=\205, \315`\314 \"\207" [srecode-handle-region-when-non-active-flag last-command transient-mark-mode mark-active dict standard-output mouse-drag-region srecode-dictionary-show-section "REGION" srecode-dictionary-set-value "REGIONTEXT" buffer-substring-no-properties mark kill-region] 6 (#$ . 1254)]) #@65 Add macros into the dictionary DICT based on the current :user. (defalias 'srecode-semantic-handle-:user #[(dict) "\303\304\305 #\210\303\306\307 #\210\303\310 #\210\303\311\n#\210\303\312\313 #\207" [dict user-mail-address user-init-file srecode-dictionary-set-value "AUTHOR" user-full-name "LOGIN" user-login-name "EMAIL" "EMACSINITFILE" "UID" user-uid] 4 (#$ . 1759)]) #@65 Add macros into the dictionary DICT based on the current :time. (defalias 'srecode-semantic-handle-:time #[(dict) "\301\302\303\304\305 \"#\210\301\306\303\307\305 \"#\210\301\310\303\311\305 \"#\210\301\312\303\313\305 \"#\210\301\314\303\315\305 \"#\210\301\316\303\317\305 \"#\210\301\320\303\321\305 \"#\210\301\322\303\323\305 \"#\210\301\324\303\325\305 \"#\210\301\326\303\327\305 \"#\210\301\330\303\331\305 \"#\210\301\332\303\333\305 \"#\210\301\334\303\335\305 \"#\207" [dict srecode-dictionary-set-value "YEAR" format-time-string "%Y" current-time "MONTHNAME" "%B" "MONTH" "%m" "DAY" "%d" "WEEKDAY" "%a" "HOUR" "%H" "HOUR12" "%l" "AMPM" "%p" "MINUTE" "%M" "SECOND" "%S" "TIMEZONE" "%Z" "DATE" "%D" "TIME" "%X"] 6 (#$ . 2142)]) #@65 Add macros into the dictionary DICT based on the current :file. (defalias 'srecode-semantic-handle-:file #[(dict) "\306 \307!\310!\311\312 #\210\311\313\314 !#\210\311\315\316 !#\210\311\317\n#\210\311\320\321\f!#\210\311\322\321\f!\323\324 \"\211\203H \325O\202I *#\210\326\327!\204X \326\330!\205\\ \331\330\"+\207" [bfn file dir dict 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 match] 7 (#$ . 2900)]) #@67 Add macros into the dictionary DICT based on the current :system. (defalias 'srecode-semantic-handle-:system #[(dict) "\304\305 #\210\304\306\n#\210\304\307\310 #\210\304\311\206 \310 #\207" [dict system-configuration system-type mail-host-address srecode-dictionary-set-value "SYSTEMCONF" "SYSTEMTYPE" "SYSTEMNAME" system-name "MAILHOST"] 4 (#$ . 3594)]) #@61 Add macros into the dictionary DICT based on the kill ring. (defalias 'srecode-semantic-handle-:kill #[(dict) "\302\303 @#\210\302\304 A@#\210\302\305\306 8#\210\302\307\310 8#\207" [dict kill-ring srecode-dictionary-set-value "KILL" "KILL2" "KILL3" 2 "KILL4" 3] 5 (#$ . 3962)]) (provide 'srecode/args)