ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/srecode/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/srecode/args.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require srecode/dictionary ede] 2)
#@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 (#$ . 487)])
#@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 (#$ . 817)])
#@65 Non-nil means do region handling w/out the region being active.
(defvar srecode-handle-region-when-non-active-flag nil (#$ . 1011))
#@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 (#$ . 1149)])
#@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 (#$ . 1654)])
#@65 Add macros into the dictionary DICT based on the current :time.
(defalias 'srecode-semantic-handle-:time #[(dict) "\302 \303 \304\305\306\"#\210\303 \307\305\310\"#\210\303 \311\305\312\"#\210\303 \313\305\314\"#\210\303 \315\305\316\"#\210\303 \317\305\320\"#\210\303 \321\305\322\"#\210\303 \323\305\324\"#\210\303 \325\305\326\"#\210\303 \327\305\330\"#\210\303 \331\305\332\"#\210\303 \333\305\334\"#\210\303 \335\305\336\"#)\207" [now dict 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"] 6 (#$ . 2037)])
#@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 (#$ . 2754)])
#@71 Add macros into the dictionary DICT based on the current ede project.
(defalias 'srecode-semantic-handle-:project #[(dict) "\306 \307!\310 \203@ \311\n!\312 \" \312 \" \313\314\f#\210\313\315
#\210\313\316\317\310 !#\210\313\320\321\310 \322\"#+\202[ \313\314#\210\313\315 #\210\313\316\323#\210\313\320\324#*\207" [bfn dir default-directory projecttop relfname reldir 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" dict] 6 (#$ . 3448)])
#@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 (#$ . 4100)])
#@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 (#$ . 4468)])
(provide 'srecode/args)
Kontol Shell Bypass