Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
play /
Delete
Unzip
Name
Size
Permission
Date
Action
5x5.elc
20.63
KB
-rw-r--r--
2023-06-07 04:11
animate.elc
4.37
KB
-rw-r--r--
2023-06-07 04:11
blackbox.elc
10.93
KB
-rw-r--r--
2023-06-07 04:11
bubbles.elc
43.68
KB
-rw-r--r--
2023-06-07 04:11
cookie1.elc
3.48
KB
-rw-r--r--
2023-06-07 04:11
decipher.elc
22.1
KB
-rw-r--r--
2023-06-07 04:11
dissociate.elc
1.96
KB
-rw-r--r--
2023-06-07 04:11
doctor.elc
49.27
KB
-rw-r--r--
2023-06-07 04:11
dunnet.elc
85.34
KB
-rw-r--r--
2023-06-07 04:11
fortune.elc
7.68
KB
-rw-r--r--
2023-06-07 04:11
gamegrid.elc
13.93
KB
-rw-r--r--
2023-06-07 04:11
gametree.elc
19.01
KB
-rw-r--r--
2023-06-07 04:11
gomoku.elc
28.9
KB
-rw-r--r--
2023-06-07 04:11
handwrite.elc
58.43
KB
-rw-r--r--
2023-06-07 04:11
hanoi.elc
9.37
KB
-rw-r--r--
2023-06-07 04:11
landmark.elc
39.89
KB
-rw-r--r--
2023-06-07 04:11
life.elc
6.84
KB
-rw-r--r--
2023-06-07 04:11
meese.elc
1.04
KB
-rw-r--r--
2023-06-07 04:11
morse.elc
4.22
KB
-rw-r--r--
2023-06-07 04:11
mpuz.elc
12.93
KB
-rw-r--r--
2023-06-07 04:11
pong.elc
9.94
KB
-rw-r--r--
2023-06-07 04:11
snake.elc
9.76
KB
-rw-r--r--
2023-06-07 04:11
solitaire.elc
13.38
KB
-rw-r--r--
2023-06-07 04:11
spook.elc
1.51
KB
-rw-r--r--
2023-06-07 04:11
studly.elc
1.37
KB
-rw-r--r--
2023-06-07 04:11
yow.elc
3.43
KB
-rw-r--r--
2023-06-07 04:11
zone.elc
14.97
KB
-rw-r--r--
2023-06-07 04:11
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:11:36 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/fortune.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\310\301\310\314&\210\315\316\317\320\321\322\310\301&\210\315\323\324\325\321\326\310\301&\210\315\327\330\331\321\332\310\301&\210\315\333\334\335\321\332\310\301&\210\315\336\302\337\321\340\306\341\310\301& \210\315\342\343\344\321\332\310\301&\210\315\345\346\347\321\332\310\301&\210\315\350\351\352\321\332\310\301&\210\315\353\354\355\321\356\310\301&\210\315\357\360\361\321\332\310\312&\210\315\362\363\364\321\365\310\312&\210\315\366\367\370\321\332\310\312&\210\315\371\346\372\321\332\310\312&\210\315\373\346\374\321\332\310\312&\207" [custom-declare-group fortune nil "Settings for fortune." :link (emacs-commentary-link "fortune.el") :version "21.1" :group games fortune-signature "Settings for use of fortune for signatures." mail custom-declare-variable fortune-dir "~/docs/ascii/misc/fortunes/" "The directory to look in for local fortune cookies files." :type directory fortune-file (expand-file-name "usenet" fortune-dir) "The file in which local fortune cookies will be stored." file fortune-database-extension ".dat" "The extension of the corresponding fortune database.\nNormally you won't have a reason to change it." string fortune-program "fortune" "Program to select a fortune cookie." fortune-program-options "List of options to pass to the fortune program." (choice (repeat (string :tag "Option")) (string :tag "Obsolete string of options")) "23.1" fortune-strfile "strfile" "Program to compute a new fortune database." fortune-strfile-options "" "Options to pass to the strfile program (a string)." fortune-quiet-strfile-options "> /dev/null" "Text added to the command for running `strfile'.\nBy default it discards the output produced by `strfile'.\nSet this to \"\" if you would like to see the output." fortune-always-compile t "Non-nil means automatically compile fortune files.\nIf nil, you must invoke `fortune-compile' manually to do that." boolean fortune-author-line-prefix " -- " "Prefix to put before the author name of a fortunate." fortune-fill-column fill-column "Fill column for fortune files." integer fortune-from-mail "private e-mail" "String to use to characterize that the fortune comes from an e-mail.\nNo need to add an `in'." fortune-sigstart "Some text to insert before the fortune cookie, in a mail signature." fortune-sigend "Some text to insert after the fortune cookie, in a mail signature."] 10) (defvar fortune-buffer-name "*fortune*") (defconst fortune-end-sep "\n%\n") #@108 Appends STRING to the fortune FILE. If INTERACTIVE is non-nil, don't compile the fortune file afterwards. (defalias 'fortune-append #[(string &optional interactive file) "\306\307\206 !!\310!\203 \311\312\"\210\n\203 \313!\210\202$ \314!\210\315!\211q\210db\210\f\316\317 \210\261\210\n?\205M \320 \210\205M \321!)\207" [file fortune-file interactive fortune-buffer fortune-fill-column fill-column expand-file-name substitute-in-file-name file-directory-p error "Cannot append fortune to directory %s" find-file-other-frame find-file-noselect get-file-buffer "^%" turn-on-auto-fill save-buffer fortune-compile auto-fill-inhibit-regexp string fortune-end-sep fortune-always-compile] 4 (#$ . 3091)]) #@32 Asks the user for a file-name. (defalias 'fortune-ask-file #[nil "\301\302\303\304\211\305%!\207" [fortune-dir expand-file-name read-file-name "Fortune file to use: " nil ""] 7 (#$ . 3819)]) #@157 Add STRING to a fortune file FILE. Interactively, if called with a prefix argument, read the file name to use. Otherwise use the value of `fortune-file'. (defalias 'fortune-add-fortune #[(string file) "\302\303 #\207" [string file fortune-append t] 4 (#$ . 4018) (list (read-string "Fortune: ") (if current-prefix-arg (fortune-ask-file)))]) #@183 Append the current region to a local fortune-like data file. Interactively, if called with a prefix argument, read the file name to use. Otherwise use the value of `fortune-file'. (defalias 'fortune-from-region #[(beg end file) " {\306\211\211 \212eb\210\307\310d\311#\211\203 \312\224\n{\202\" \313)\212eb\210\307\314d\311#\211\2039 \312\224\n{\202U \315=\204N \316=\204N \317=\203S \202T \320)\321 \321\322\f\323 \260\324 \311#,\207" [beg end help-point newsgroup author string nil search-forward-regexp "^From: \\(.*\\)$" t 1 "An unknown author" "^Newsgroups: \\(.*\\)$" gnus-article-mode vm-mode rmail-mode "unknown" "\"" "\n" " in " fortune-append major-mode fortune-from-mail fortune-author-line-prefix file] 9 (#$ . 4369) (list (region-beginning) (region-end) (if current-prefix-arg (fortune-ask-file)))]) #@165 Compile fortune file. If called with a prefix asks for the FILE to compile, otherwise uses the value of `fortune-file'. This currently cannot handle directories. (defalias 'fortune-compile #[(&optional file) "\306\307!!\306\307 \nP!!\310 !\2033 \310 !\2057 \311 \"\2057 \312\313 \"\210\314\f \315 \260!\2027 \316\317 \"*\207" [file fortune-file fortune-database-extension fortune-dat fortune-strfile fortune-strfile-options expand-file-name substitute-in-file-name file-exists-p file-newer-than-file-p message "Compiling new fortune database %s" shell-command " " error "Can't compile fortune file %s" fortune-quiet-strfile-options] 6 (#$ . 5216) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) #@318 Create signature from output of the fortune program. If called with a prefix asks for the FILE to choose the fortune from, otherwise uses the value of `fortune-file'. If you want to have fortune choose from a set of files in a directory, call interactively with prefix and choose the directory as the fortune-file. (defalias 'fortune-to-signature #[(&optional file) "\212\306\307\"\210 q\210\310 \n\fQ\211 \311\312!\205 \211\n+\207" [file fortune-buffer-name fortune fortune-sigstart fortune-sigend signature fortune-in-buffer t buffer-string boundp message-signature mail-signature] 4 (#$ . 5944) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) #@158 Put a fortune cookie in the *fortune* buffer. INTERACTIVE is ignored. Optional argument FILE, when supplied, specifies the file to choose the fortune from. (defalias 'fortune-in-buffer #[(_interactive &optional file) "\306!\206 \307!\310\311 \206 \n!! r\fq\210\312 \313 \210\203& \314 !\210\315\316\317\f\317\320;\203; \321!\202= C\"&,\207" [fortune-buffer-name file fortune-file fort-file fortune-buffer inhibit-read-only get-buffer generate-new-buffer expand-file-name substitute-in-file-name t erase-buffer fortune-compile apply call-process nil append split-string fortune-always-compile fortune-program fortune-program-options] 9 (#$ . 6624)]) #@290 Display a fortune cookie. If called with a prefix asks for the FILE to choose the fortune from, otherwise uses the value of `fortune-file'. If you want to have fortune choose from a set of files in a directory, call interactively with prefix and choose the directory as the fortune-file. (defalias 'fortune #[(&optional file) "\303\304\"\210\305\306 !!\210\304\211\207" [file fortune-buffer-name buffer-read-only fortune-in-buffer t switch-to-buffer get-buffer] 3 (#$ . 7298) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) (provide 'fortune)