Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
calc	[ DIR ]	drwxr-xr-x
calendar	[ DIR ]	drwxr-xr-x
cedet	[ DIR ]	drwxr-xr-x
emacs-lisp	[ DIR ]	drwxr-xr-x
emulation	[ DIR ]	drwxr-xr-x
erc	[ DIR ]	drwxr-xr-x
eshell	[ DIR ]	drwxr-xr-x
gnus	[ DIR ]	drwxr-xr-x
image	[ DIR ]	drwxr-xr-x
international	[ DIR ]	drwxr-xr-x
language	[ DIR ]	drwxr-xr-x
leim	[ DIR ]	drwxr-xr-x
mail	[ DIR ]	drwxr-xr-x
mh-e	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nxml	[ DIR ]	drwxr-xr-x
obsolete	[ DIR ]	drwxr-xr-x
org	[ DIR ]	drwxr-xr-x
play	[ DIR ]	drwxr-xr-x
progmodes	[ DIR ]	drwxr-xr-x
term	[ DIR ]	drwxr-xr-x
textmodes	[ DIR ]	drwxr-xr-x
url	[ DIR ]	drwxr-xr-x
vc	[ DIR ]	drwxr-xr-x
COPYING	34.32 KB	-rw-r--r--
README	537 B	-rw-r--r--
abbrev.elc	34.55 KB	-rw-r--r--
align.elc	39.88 KB	-rw-r--r--
allout-widgets.elc	62.37 KB	-rw-r--r--
allout.elc	203.33 KB	-rw-r--r--
ansi-color.elc	17.12 KB	-rw-r--r--
apropos.elc	37.42 KB	-rw-r--r--
arc-mode.elc	58.06 KB	-rw-r--r--
array.elc	27.07 KB	-rw-r--r--
auth-source-pass.elc	11.68 KB	-rw-r--r--
auth-source.elc	64.32 KB	-rw-r--r--
autoarg.elc	6.63 KB	-rw-r--r--
autoinsert.elc	13.41 KB	-rw-r--r--
autorevert.elc	30.71 KB	-rw-r--r--
avoid.elc	11.62 KB	-rw-r--r--
battery.elc	24.42 KB	-rw-r--r--
bindings.elc	42.76 KB	-rw-r--r--
bookmark.elc	77.09 KB	-rw-r--r--
bs.elc	49.32 KB	-rw-r--r--
buff-menu.elc	27.02 KB	-rw-r--r--
button.elc	14.97 KB	-rw-r--r--
calculator.elc	53.9 KB	-rw-r--r--
case-table.elc	4.99 KB	-rw-r--r--
cdl.elc	1.07 KB	-rw-r--r--
char-fold.elc	311.81 KB	-rw-r--r--
chistory.elc	8.16 KB	-rw-r--r--
cmuscheme.elc	18.07 KB	-rw-r--r--
color.elc	12.83 KB	-rw-r--r--
comint.elc	114.46 KB	-rw-r--r--
completion.elc	41.12 KB	-rw-r--r--
composite.elc	27.94 KB	-rw-r--r--
cus-dep.elc	6.42 KB	-rw-r--r--
cus-edit.elc	139.04 KB	-rw-r--r--
cus-face.elc	10.54 KB	-rw-r--r--
cus-load.el	85.19 KB	-rw-r--r--
cus-start.elc	21.92 KB	-rw-r--r--
cus-theme.elc	25.05 KB	-rw-r--r--
custom.elc	47.41 KB	-rw-r--r--
dabbrev.elc	22.28 KB	-rw-r--r--
delim-col.elc	8.95 KB	-rw-r--r--
delsel.elc	9.2 KB	-rw-r--r--
descr-text.elc	26.87 KB	-rw-r--r--
desktop.elc	47.64 KB	-rw-r--r--
dframe.elc	19.92 KB	-rw-r--r--
dired-aux.elc	85.75 KB	-rw-r--r--
dired-loaddefs.el	22.29 KB	-rw-r--r--
dired-x.elc	44.53 KB	-rw-r--r--
dired.elc	127.27 KB	-rw-r--r--
dirtrack.elc	7.75 KB	-rw-r--r--
disp-table.elc	8.76 KB	-rw-r--r--
display-fill-column-indicator....	8.32 KB	-rw-r--r--
display-line-numbers.elc	8.67 KB	-rw-r--r--
dnd.elc	7.13 KB	-rw-r--r--
doc-view.elc	65.25 KB	-rw-r--r--
dom.elc	7.36 KB	-rw-r--r--
dos-fns.elc	6.14 KB	-rw-r--r--
dos-vars.elc	1.1 KB	-rw-r--r--
dos-w32.elc	11.67 KB	-rw-r--r--
double.elc	4.34 KB	-rw-r--r--
dynamic-setting.elc	2.2 KB	-rw-r--r--
ebuff-menu.elc	10.46 KB	-rw-r--r--
echistory.elc	4.75 KB	-rw-r--r--
ecomplete.elc	7.1 KB	-rw-r--r--
edmacro.elc	19.94 KB	-rw-r--r--
ehelp.elc	11.32 KB	-rw-r--r--
elec-pair.elc	21.41 KB	-rw-r--r--
electric.elc	23.69 KB	-rw-r--r--
elide-head.elc	2.65 KB	-rw-r--r--
emacs-lock.elc	9.29 KB	-rw-r--r--
env.elc	6.12 KB	-rw-r--r--
epa-dired.elc	1.62 KB	-rw-r--r--
epa-file.elc	8.65 KB	-rw-r--r--
epa-hook.elc	4.63 KB	-rw-r--r--
epa-mail.elc	9.43 KB	-rw-r--r--
epa.elc	45.25 KB	-rw-r--r--
epg-config.elc	8.97 KB	-rw-r--r--
epg.elc	166.06 KB	-rw-r--r--
expand.elc	9.07 KB	-rw-r--r--
ezimage.elc	9.65 KB	-rw-r--r--
face-remap.elc	16.58 KB	-rw-r--r--
facemenu.elc	27.89 KB	-rw-r--r--
faces.elc	90.21 KB	-rw-r--r--
ffap.elc	50.3 KB	-rw-r--r--
filecache.elc	16.69 KB	-rw-r--r--
fileloop.elc	6.62 KB	-rw-r--r--
filenotify.elc	28.49 KB	-rw-r--r--
files-x.elc	21.9 KB	-rw-r--r--
files.elc	236.95 KB	-rw-r--r--
filesets.elc	72.57 KB	-rw-r--r--
find-cmd.elc	4.9 KB	-rw-r--r--
find-dired.elc	10.41 KB	-rw-r--r--
find-file.elc	18.33 KB	-rw-r--r--
find-lisp.elc	7.66 KB	-rw-r--r--
finder-inf.el	41.27 KB	-rw-r--r--
finder.elc	14.73 KB	-rw-r--r--
flow-ctrl.elc	2.26 KB	-rw-r--r--
foldout.elc	7.25 KB	-rw-r--r--
follow.elc	40.63 KB	-rw-r--r--
font-core.elc	12.41 KB	-rw-r--r--
font-lock.elc	61.63 KB	-rw-r--r--
format-spec.elc	3.93 KB	-rw-r--r--
format.elc	27.56 KB	-rw-r--r--
forms.elc	35.1 KB	-rw-r--r--
frame.elc	85.94 KB	-rw-r--r--
frameset.elc	48.02 KB	-rw-r--r--
fringe.elc	10.23 KB	-rw-r--r--
generic-x.elc	40.27 KB	-rw-r--r--
help-at-pt.elc	11.15 KB	-rw-r--r--
help-fns.elc	45.35 KB	-rw-r--r--
help-macro.elc	4.25 KB	-rw-r--r--
help-mode.elc	23.89 KB	-rw-r--r--
help.elc	52.22 KB	-rw-r--r--
hex-util.elc	1.3 KB	-rw-r--r--
hexl.elc	35.39 KB	-rw-r--r--
hfy-cmap.elc	25.45 KB	-rw-r--r--
hi-lock.elc	29.38 KB	-rw-r--r--
hilit-chg.elc	28.77 KB	-rw-r--r--
hippie-exp.elc	21.52 KB	-rw-r--r--
hl-line.elc	11.23 KB	-rw-r--r--
htmlfontify-loaddefs.el	808 B	-rw-r--r--
htmlfontify.elc	67.51 KB	-rw-r--r--
ibuf-ext.elc	77.15 KB	-rw-r--r--
ibuf-macs.elc	12.47 KB	-rw-r--r--
ibuffer-loaddefs.el	12.68 KB	-rw-r--r--
ibuffer.elc	98.62 KB	-rw-r--r--
icomplete.elc	22.83 KB	-rw-r--r--
ido.elc	127.92 KB	-rw-r--r--
ielm.elc	19.2 KB	-rw-r--r--
iimage.elc	4.92 KB	-rw-r--r--
image-dired.elc	92.97 KB	-rw-r--r--
image-file.elc	6.53 KB	-rw-r--r--
image-mode.elc	42.56 KB	-rw-r--r--
image.elc	34.45 KB	-rw-r--r--
imenu.elc	24.94 KB	-rw-r--r--
indent.elc	23.63 KB	-rw-r--r--
info-look.elc	28.18 KB	-rw-r--r--
info-xref.elc	16.59 KB	-rw-r--r--
info.elc	144.48 KB	-rw-r--r--
informat.elc	9.73 KB	-rw-r--r--
isearch.elc	147.85 KB	-rw-r--r--
isearchb.elc	4.73 KB	-rw-r--r--
jit-lock.elc	23.49 KB	-rw-r--r--
jka-cmpr-hook.elc	13.07 KB	-rw-r--r--
jka-compr.elc	12.09 KB	-rw-r--r--
json.elc	22.76 KB	-rw-r--r--
jsonrpc.elc	31.65 KB	-rw-r--r--
kermit.elc	2.92 KB	-rw-r--r--
kmacro.elc	35.15 KB	-rw-r--r--
ldefs-boot.el	1.41 MB	-rw-r--r--
linum.elc	10.77 KB	-rw-r--r--
loaddefs.el	1.41 MB	-rw-r--r--
loadhist.elc	9.77 KB	-rw-r--r--
loadup.el	20.08 KB	-rw-r--r--
locate.elc	19.57 KB	-rw-r--r--
lpr.elc	9.44 KB	-rw-r--r--
ls-lisp.elc	22.7 KB	-rw-r--r--
macros.elc	7.23 KB	-rw-r--r--
makesum.elc	2.47 KB	-rw-r--r--
man.elc	53.85 KB	-rw-r--r--
master.elc	4.58 KB	-rw-r--r--
mb-depth.elc	3.56 KB	-rw-r--r--
md4.elc	8.12 KB	-rw-r--r--
menu-bar.elc	86.61 KB	-rw-r--r--
midnight.elc	10.22 KB	-rw-r--r--
minibuf-eldef.elc	6.43 KB	-rw-r--r--
minibuffer.elc	104.08 KB	-rw-r--r--
misc.elc	5.4 KB	-rw-r--r--
misearch.elc	12.37 KB	-rw-r--r--
mouse-copy.elc	3.61 KB	-rw-r--r--
mouse-drag.elc	6.43 KB	-rw-r--r--
mouse.elc	71.3 KB	-rw-r--r--
mpc.elc	79.29 KB	-rw-r--r--
msb.elc	26.76 KB	-rw-r--r--
mwheel.elc	12.83 KB	-rw-r--r--
newcomment.elc	39.43 KB	-rw-r--r--
notifications.elc	13.78 KB	-rw-r--r--
novice.elc	4.43 KB	-rw-r--r--
obarray.elc	1.71 KB	-rw-r--r--
outline.elc	37.04 KB	-rw-r--r--
paren.elc	8.69 KB	-rw-r--r--
password-cache.elc	3.57 KB	-rw-r--r--
pcmpl-cvs.elc	6.17 KB	-rw-r--r--
pcmpl-gnu.elc	12.96 KB	-rw-r--r--
pcmpl-linux.elc	3.09 KB	-rw-r--r--
pcmpl-rpm.elc	11.17 KB	-rw-r--r--
pcmpl-unix.elc	7.52 KB	-rw-r--r--
pcmpl-x.elc	8.95 KB	-rw-r--r--
pcomplete.elc	36.16 KB	-rw-r--r--
pixel-scroll.elc	10.82 KB	-rw-r--r--
plstore.elc	14.75 KB	-rw-r--r--
printing.elc	157.7 KB	-rw-r--r--
proced.elc	62.85 KB	-rw-r--r--
profiler.elc	42.81 KB	-rw-r--r--
ps-bdf.elc	12.69 KB	-rw-r--r--
ps-def.elc	2.23 KB	-rw-r--r--
ps-mule.elc	34.89 KB	-rw-r--r--
ps-print-loaddefs.el	2.6 KB	-rw-r--r--
ps-print.elc	141.17 KB	-rw-r--r--
ps-samp.elc	5.26 KB	-rw-r--r--
recentf.elc	48.73 KB	-rw-r--r--
rect.elc	26.88 KB	-rw-r--r--
register.elc	27.63 KB	-rw-r--r--
registry.elc	10.41 KB	-rw-r--r--
repeat.elc	5.14 KB	-rw-r--r--
replace.elc	84.62 KB	-rw-r--r--
reposition.elc	2.66 KB	-rw-r--r--
reveal.elc	7.16 KB	-rw-r--r--
rfn-eshadow.elc	7.23 KB	-rw-r--r--
rot13.elc	2.56 KB	-rw-r--r--
rtree.elc	4.09 KB	-rw-r--r--
ruler-mode.elc	21.87 KB	-rw-r--r--
savehist.elc	10.83 KB	-rw-r--r--
saveplace.elc	11.87 KB	-rw-r--r--
sb-image.elc	2.75 KB	-rw-r--r--
scroll-all.elc	4.41 KB	-rw-r--r--
scroll-bar.elc	16.68 KB	-rw-r--r--
scroll-lock.elc	5.41 KB	-rw-r--r--
select.elc	18.75 KB	-rw-r--r--
server.elc	47.56 KB	-rw-r--r--
ses.elc	131.12 KB	-rw-r--r--
shadowfile.elc	31.16 KB	-rw-r--r--
shell.elc	41.53 KB	-rw-r--r--
simple.elc	301.78 KB	-rw-r--r--
skeleton.elc	15.76 KB	-rw-r--r--
so-long.elc	47.15 KB	-rw-r--r--
sort.elc	15.49 KB	-rw-r--r--
soundex.elc	1.14 KB	-rw-r--r--
speedbar.elc	115.02 KB	-rw-r--r--
startup.elc	68.51 KB	-rw-r--r--
strokes.elc	44.03 KB	-rw-r--r--
subdirs.el	450 B	-rw-r--r--
subr.elc	186.63 KB	-rw-r--r--
svg.elc	12.71 KB	-rw-r--r--
t-mouse.elc	3.8 KB	-rw-r--r--
tab-bar.elc	52.48 KB	-rw-r--r--
tab-line.elc	29.85 KB	-rw-r--r--
tabify.elc	2.17 KB	-rw-r--r--
talk.elc	2.99 KB	-rw-r--r--
tar-mode.elc	57.2 KB	-rw-r--r--
tempo.elc	19.18 KB	-rw-r--r--
term.elc	107.99 KB	-rw-r--r--
thingatpt.elc	16.88 KB	-rw-r--r--
thread.elc	8.08 KB	-rw-r--r--
thumbs.elc	25.74 KB	-rw-r--r--
time-stamp.elc	18.69 KB	-rw-r--r--
time.elc	20.87 KB	-rw-r--r--
timezone.elc	10.94 KB	-rw-r--r--
tmm.elc	13.39 KB	-rw-r--r--
tool-bar.elc	9.76 KB	-rw-r--r--
tooltip.elc	13.19 KB	-rw-r--r--
tree-widget.elc	19.84 KB	-rw-r--r--
tutorial.elc	22.28 KB	-rw-r--r--
type-break.elc	37.35 KB	-rw-r--r--
uniquify.elc	17.68 KB	-rw-r--r--
userlock.elc	6.33 KB	-rw-r--r--
vcursor.elc	23.92 KB	-rw-r--r--
version.elc	6.01 KB	-rw-r--r--
view.elc	34.69 KB	-rw-r--r--
vt-control.elc	1.99 KB	-rw-r--r--
vt100-led.elc	1.33 KB	-rw-r--r--
w32-fns.elc	11.01 KB	-rw-r--r--
w32-vars.elc	5.16 KB	-rw-r--r--
wdired.elc	23.52 KB	-rw-r--r--
whitespace.elc	69.06 KB	-rw-r--r--
wid-browse.elc	8.48 KB	-rw-r--r--
wid-edit.elc	99.52 KB	-rw-r--r--
widget.elc	1.4 KB	-rw-r--r--
windmove.elc	19.82 KB	-rw-r--r--
window.elc	294.5 KB	-rw-r--r--
winner.elc	12.04 KB	-rw-r--r--
woman.elc	109.43 KB	-rw-r--r--
x-dnd.elc	19.56 KB	-rw-r--r--
xdg.elc	10.14 KB	-rw-r--r--
xml.elc	25.31 KB	-rw-r--r--
xt-mouse.elc	14.1 KB	-rw-r--r--
xwidget.elc	18.9 KB	-rw-r--r--

Code Editor : loadup.el

;;; loadup.el --- load up standardly loaded Lisp files for Emacs

;; Copyright (C) 1985-1986, 1992, 1994, 2001-2020 Free Software
;; Foundation, Inc.

;; Maintainer: emacs-devel@gnu.org
;; Keywords: internal
;; Package: emacs

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; This is loaded into a bare Emacs to make a dumpable one.

;; Emacs injects the variable `dump-mode' to tell us how to dump.
;; We unintern it before allowing user code to run.

;; If you add a file to be loaded here, keep the following points in mind:

;; i) If the file is no-byte-compile, explicitly load the .el version.
;; Such files should (where possible) obey the doc-string conventions
;; expected by make-docfile.  They should also be added to the
;; uncompiled[] list in make-docfile.c.

;; ii) If the file is dumped with Emacs (on any platform), put the
;; load statement at the start of a line (leading whitespace is ok).

;; iii) If the file is _not_ dumped with Emacs, make sure the load
;; statement is _not_ at the start of a line.  See pcase for an example.

;; These rules are so that src/Makefile can construct lisp.mk automatically.
;; This ensures both that the Lisp files are compiled (if necessary)
;; before the emacs executable is dumped, and that they are passed to
;; make-docfile.  (Any that are not processed for DOC will not have
;; doc strings in the dumped Emacs.)

;;; Code:

;; This is used in xdisp.c to determine when bidi reordering is safe.
;; (It starts non-nil in temacs, but we set it non-nil here anyway, in
;; case someone loads loadup one more time.)  We reset it after
;; successfully loading charprop.el, which defines the Unicode tables
;; bidi.c needs for its job.
(setq redisplay--inhibit-bidi t)

(message "dump mode: %s" dump-mode)

;; Add subdirectories to the load-path for files that might get
;; autoloaded when bootstrapping or running Emacs normally.
;; This is because PATH_DUMPLOADSEARCH is just "../lisp".
(if (or (member dump-mode '("bootstrap" "pbootstrap"))
	;; FIXME this is irritatingly fragile.
        (and (stringp (nth 4 command-line-args))
             (string-match "^unidata-gen\$\\.elc?\$?$"
                           (nth 4 command-line-args)))
        (member (nth 7 command-line-args) '("unidata-gen-file"
                                            "unidata-gen-charprop"))
        (null dump-mode))
    (progn
      ;; Find the entry in load-path that contains Emacs elisp and
      ;; splice some additional directories in there for the benefit
      ;; of autoload and regular Emacs use.
      (let ((subdirs '("emacs-lisp"
                       "progmodes"
                       "language"
                       "international"
                       "textmodes"
                       "vc"))
            (iter load-path))
        (while iter
          (let ((dir (car iter))
                (subdirs subdirs)
                esubdirs esubdir)
            (while subdirs
              (setq esubdir (expand-file-name (car subdirs) dir))
              (setq subdirs (cdr subdirs))
              (if (file-directory-p esubdir)
                  (setq esubdirs (cons esubdir esubdirs))
                (setq subdirs nil esubdirs nil)))
            (if esubdirs
                (progn
                  (setcdr iter (nconc (nreverse esubdirs) (cdr iter)))
                  (setq iter nil))
              (setq iter (cdr iter))
              (if (null iter)
                  (signal
                   'error (list
                           (format-message
                            "Could not find elisp load-path: searched %S"
                            load-path))))))))
      ;; We'll probably overflow the pure space.
      (setq purify-flag nil)
      ;; Value of max-lisp-eval-depth when compiling initially.
      ;; During bootstrapping the byte-compiler is run interpreted
      ;; when compiling itself, which uses a lot more stack
      ;; than usual.
      (setq max-lisp-eval-depth 2200)))

(if (eq t purify-flag)
    ;; Hash consing saved around 11% of pure space in my tests.
    (setq purify-flag (make-hash-table :test 'equal :size 80000)))

(message "Using load-path %s" load-path)

(if dump-mode
    (progn
      ;; To reduce the size of dumped Emacs, we avoid making huge char-tables.
      (setq inhibit-load-charset-map t)
      ;; --eval gets handled too late.
      (defvar load--prefer-newer load-prefer-newer)
      (setq load-prefer-newer t)))

;; We don't want to have any undo records in the dumped Emacs.
(set-buffer "*scratch*")
(setq buffer-undo-list t)

(load "emacs-lisp/byte-run")
(load "emacs-lisp/backquote")
(load "subr")

;; Do it after subr, since both after-load-functions and add-hook are
;; implemented in subr.el.
(add-hook 'after-load-functions (lambda (f) (garbage-collect)))

(load "version")

(load "widget")
(load "custom")
(load "emacs-lisp/map-ynp")
(load "international/mule")
(load "international/mule-conf")
(load "env")
(load "format")
(load "bindings")
(load "window")  ; Needed here for `replace-buffer-in-windows'.
;; We are now capable of resizing the mini-windows, so give the
;; variable its advertised default value (it starts as nil, see
;; xdisp.c).
(setq resize-mini-windows 'grow-only)
(setq load-source-file-function 'load-with-code-conversion)
(load "files")

;; Load-time macro-expansion can only take effect after setting
;; load-source-file-function because of where it is called in lread.c.
(load "emacs-lisp/macroexp")
(if (byte-code-function-p (symbol-function 'macroexpand-all))
    nil
  ;; Since loaddefs is not yet loaded, macroexp's uses of pcase will simply
  ;; fail until pcase is explicitly loaded.  This also means that we have to
  ;; disable eager macro-expansion while loading pcase.
  (let ((macroexp--pending-eager-loads '(skip))) (load "emacs-lisp/pcase"))
  ;; Re-load macroexp so as to eagerly macro-expand its uses of pcase.
  (let ((max-lisp-eval-depth (* 2 max-lisp-eval-depth)))
    (load "emacs-lisp/macroexp")))

(load "cus-face")
(load "faces")  ; after here, `defface' may be used.

(load "button")

;; We don't want to store loaddefs.el in the repository because it is
;; a generated file; but it is required in order to compile the lisp files.
;; When bootstrapping, we cannot generate loaddefs.el until an
;; emacs binary has been built.  We therefore compromise and keep
;; ldefs-boot.el in the repository.  This does not need to be updated
;; as often as the real loaddefs.el would.  Bootstrap should always
;; work with ldefs-boot.el.  Therefore, whenever a new autoload cookie
;; gets added that is necessary during bootstrapping, ldefs-boot.el
;; should be updated by overwriting it with an up-to-date copy of
;; loaddefs.el that is not corrupted by local changes.
;; admin/update_autogen can be used to update ldefs-boot.el periodically.
(condition-case nil (load "loaddefs.el")
  ;; In case loaddefs hasn't been generated yet.
  (file-error (load "ldefs-boot.el")))

(let ((new (make-hash-table :test 'equal)))
  ;; Now that loaddefs has populated definition-prefixes, purify its contents.
  (maphash (lambda (k v) (puthash (purecopy k) (purecopy v) new))
           definition-prefixes)
  (setq definition-prefixes new))

(load "emacs-lisp/nadvice")
(load "emacs-lisp/cl-preloaded")
(load "obarray")        ;abbrev.el is implemented in terms of obarrays.
(load "abbrev")         ;lisp-mode.el and simple.el use define-abbrev-table.
(load "simple")

(load "help")

(load "jka-cmpr-hook")
(load "epa-hook")
;; Any Emacs Lisp source file (*.el) loaded here after can contain
;; multilingual text.
(load "international/mule-cmds")
(load "case-table")
;; This file doesn't exist when building a development version of Emacs
;; from the repository.  It is generated just after temacs is built.
(load "international/charprop.el" t)
(if (featurep 'charprop)
    (setq redisplay--inhibit-bidi nil))
(load "international/characters")
(load "composite")

;; Load language-specific files.
(load "language/chinese")
(load "language/cyrillic")
(load "language/indian")
(load "language/sinhala")
(load "language/english")
(load "language/ethiopic")
(load "language/european")
(load "language/czech")
(load "language/slovak")
(load "language/romanian")
(load "language/greek")
(load "language/hebrew")
(load "international/cp51932")
(load "international/eucjp-ms")
(load "language/japanese")
(load "language/korean")
(load "language/lao")
(load "language/tai-viet")
(load "language/thai")
(load "language/tibetan")
(load "language/vietnamese")
(load "language/misc-lang")
(load "language/utf-8-lang")
(load "language/georgian")
(load "language/khmer")
(load "language/burmese")
(load "language/cham")

(load "indent")
(let ((max-specpdl-size (max max-specpdl-size 1800)))
  ;; A particularly demanding file to load; 1600 does not seem to be enough.
  (load "emacs-lisp/cl-generic"))
(load "minibuffer") ;Needs cl-generic (and define-minor-mode).
(load "frame")
(load "startup")
(load "term/tty-colors")
(load "font-core")
;; facemenu must be loaded before font-lock, because `facemenu-keymap'
;; needs to be defined when font-lock is loaded.
(load "facemenu")
(load "emacs-lisp/syntax")
(load "font-lock")
(load "jit-lock")

(load "mouse")
(if (boundp 'x-toolkit-scroll-bars)
    (load "scroll-bar"))
(load "select")
(load "emacs-lisp/timer")
(load "isearch")
(load "rfn-eshadow")

(load "menu-bar")
(load "tab-bar")
(load "emacs-lisp/lisp")
(load "textmodes/page")
(load "register")
(load "textmodes/paragraphs")
(load "progmodes/prog-mode")
(load "emacs-lisp/lisp-mode")
(load "progmodes/elisp-mode")
(load "textmodes/text-mode")
(load "textmodes/fill")
(load "newcomment")

(load "replace")
(load "emacs-lisp/tabulated-list")
(load "buff-menu")

(if (fboundp 'x-create-frame)
    (progn
      (load "fringe")
      ;; Needed by `imagemagick-register-types'
      (load "emacs-lisp/regexp-opt")
      (load "image")
      (load "international/fontset")
      (load "dnd")
      (load "tool-bar")))

(if (featurep 'dynamic-setting)
    (load "dynamic-setting"))

(if (featurep 'x)
    (progn
      (load "x-dnd")
      (load "term/common-win")
      (load "term/x-win")))

(if (or (eq system-type 'windows-nt)
        (featurep 'w32))
    (progn
      (load "term/common-win")
      (load "w32-vars")
      (load "term/w32-win")
      (load "disp-table")
      (when (eq system-type 'windows-nt)
        (load "w32-fns")
        (load "ls-lisp")
        (load "dos-w32"))))
(if (eq system-type 'ms-dos)
    (progn
      (load "dos-w32")
      (load "dos-fns")
      (load "dos-vars")
      ;; Don't load term/common-win: it isn't appropriate for the `pc'
      ;; ``window system'', which generally behaves like a terminal.
      (load "term/internal")
      (load "term/pc-win")
      (load "ls-lisp")
      (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el
(if (featurep 'ns)
    (progn
      (load "term/common-win")
      ;; Don't load ucs-normalize.el unless uni-*.el files were
      ;; already produced, because it needs uni-*.el files that might
      ;; not be built early enough during bootstrap.
      (when (featurep 'charprop)
        (load "international/mule-util")
        (load "international/ucs-normalize")
        (load "term/ns-win"))))
(if (fboundp 'x-create-frame)
    ;; Do it after loading term/foo-win.el since the value of the
    ;; mouse-wheel-*-event vars depends on those files being loaded or not.
    (load "mwheel"))
;; Preload some constants and floating point functions.
(load "emacs-lisp/float-sup")

(load "vc/vc-hooks")
(load "vc/ediff-hook")
(load "uniquify")
(load "electric")
(load "emacs-lisp/eldoc")
(load "cus-start") ;Late to reduce customize-rogue (needs loaddefs.el anyway)
(if (not (eq system-type 'ms-dos))
    (load "tooltip"))

;; This file doesn't exist when building a development version of Emacs
;; from the repository.  It is generated just after temacs is built.
(load "leim/leim-list.el" t)

;; If you want additional libraries to be preloaded and their
;; doc strings kept in the DOC file rather than in core,
;; you may load them with a "site-load.el" file.
;; But you must also cause them to be scanned when the DOC file
;; is generated.
(let ((lp load-path))
  (load "site-load" t)
  ;; We reset load-path after dumping.
  ;; For a permanent change in load-path, use configure's
  ;; --enable-locallisppath option.
  ;; See https://debbugs.gnu.org/16107 for more details.
  (or (equal lp load-path)
      (message "Warning: Change in load-path due to site-load will be \
lost after dumping")))

;; Make sure default-directory is unibyte when dumping.  This is
;; because we cannot decode and encode it correctly (since the locale
;; environment is not, and should not be, set up).  default-directory
;; is used every time we call expand-file-name, which we do in every
;; file primitive.  So the only workable solution to support building
;; in non-ASCII directories is to manipulate unibyte strings in the
;; current locale's encoding.
(if (and dump-mode (multibyte-string-p default-directory))
    (error "default-directory must be unibyte when dumping Emacs!"))

;; Determine which build number to use
;; based on the executables that now exist.
(if (and (or
          (and (equal dump-mode "dump")
               (fboundp 'dump-emacs))
          (and (equal dump-mode "pdump")
               (fboundp 'dump-emacs-portable)))
	 (not (eq system-type 'ms-dos)))
    (let* ((base (concat "emacs-" emacs-version "."))
	   (exelen (if (eq system-type 'windows-nt) -4))
	   (files (file-name-all-completions base default-directory))
	   (versions (mapcar (lambda (name)
                               (string-to-number
                                (substring name (length base) exelen)))
			     files)))
      (setq emacs-repository-version (ignore-errors (emacs-repository-get-version))
            emacs-repository-branch (ignore-errors (emacs-repository-get-branch)))
      ;; A constant, so we shouldn't change it with `setq'.
      (defconst emacs-build-number
	(if versions (1+ (apply 'max versions)) 1))))

(message "Finding pointers to doc strings...")
(if (and (or (and (fboundp 'dump-emacs)
                  (equal dump-mode "dump"))
             (and (fboundp 'dump-emacs-portable)
                  (equal dump-mode "pdump"))))
    (Snarf-documentation "DOC")
  (condition-case nil
      (Snarf-documentation "DOC")
    (error nil)))
(message "Finding pointers to doc strings...done")

;; Note: You can cause additional libraries to be preloaded
;; by writing a site-init.el that loads them.
;; See also "site-load" above
(let ((lp load-path))
  (load "site-init" t)
  (or (equal lp load-path)
      (message "Warning: Change in load-path due to site-init will be \
lost after dumping")))

(setq current-load-list nil)
;; Avoid storing references to build directory in the binary.
(setq custom-current-group-alist nil)

;; We keep the load-history data in PURE space.
;; Make sure that the spine of the list is not in pure space because it can
;; be destructively mutated in lread.c:build_load_history.
(setq load-history (mapcar 'purecopy load-history))

(set-buffer-modified-p nil)

(remove-hook 'after-load-functions (lambda (f) (garbage-collect)))

(if (boundp 'load--prefer-newer)
    (progn
      (setq load-prefer-newer load--prefer-newer)
      (put 'load-prefer-newer 'standard-value load--prefer-newer)
      (makunbound 'load--prefer-newer)))

(setq inhibit-load-charset-map nil)
(clear-charset-maps)
(garbage-collect)

;; At this point, we're ready to resume undo recording for scratch.
(buffer-enable-undo "*scratch*")

(when (hash-table-p purify-flag)
  (let ((strings 0)
        (vectors 0)
        (bytecodes 0)
        (conses 0)
        (others 0))
    (maphash (lambda (k v)
               (cond
                ((stringp k) (setq strings (1+ strings)))
                ((vectorp k) (setq vectors (1+ vectors)))
                ((consp k)   (setq conses  (1+ conses)))
                ((byte-code-function-p v) (setq bytecodes (1+ bytecodes)))
                (t           (setq others  (1+ others)))))
             purify-flag)
    (message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others"
             strings vectors conses bytecodes others)))

;; Avoid error if user loads some more libraries now and make sure the
;; hash-consing hash table is GC'd.
(setq purify-flag nil)

(if (null (garbage-collect))
    (setq pure-space-overflow t))

;; Make sure we will attempt bidi reordering henceforth.
(setq redisplay--inhibit-bidi nil)

(if dump-mode
    (let ((output (cond ((equal dump-mode "pdump") "emacs.pdmp")
                        ((equal dump-mode "dump") "emacs")
                        ((equal dump-mode "bootstrap") "emacs")
                        ((equal dump-mode "pbootstrap") "bootstrap-emacs.pdmp")
                        (t (error "unrecognized dump mode %s" dump-mode)))))
      (message "Dumping under the name %s" output)
      (condition-case ()
          (delete-file output)
        (file-error nil))
      ;; On MS-Windows, the current directory is not necessarily the
      ;; same as invocation-directory.
      (let (success)
        (unwind-protect
             (let ((tmp-dump-mode dump-mode)
                   (dump-mode nil))
               (if (member tmp-dump-mode '("pdump" "pbootstrap"))
                   (dump-emacs-portable (expand-file-name output invocation-directory))
                 (dump-emacs output "temacs")
                 (message "%d pure bytes used" pure-bytes-used))
               (setq success t))
          (unless success
            (ignore-errors
              (delete-file output)))))
      ;; Recompute NAME now, so that it isn't set when we dump.
      (if (not (or (eq system-type 'ms-dos)
                   ;; Don't bother adding another name if we're just
                   ;; building bootstrap-emacs.
                   (member dump-mode '("pbootstrap" "bootstrap"))))
          (let ((name (format "emacs-%s.%d" emacs-version emacs-build-number))
                (exe (if (eq system-type 'windows-nt) ".exe" "")))
            (while (string-match "[^-+_.a-zA-Z0-9]+" name)
              (setq name (concat (downcase (substring name 0 (match-beginning 0)))
                                 "-"
                                 (substring name (match-end 0)))))
            (message "Adding name %s" (concat name exe))
            ;; When this runs on Windows, invocation-directory is not
            ;; necessarily the current directory.
            (add-name-to-file (expand-file-name (concat "emacs" exe)
                                                invocation-directory)
                              (expand-file-name (concat name exe)
                                                invocation-directory)
                              t)
            (when (equal dump-mode "pdump")
              (message "Adding name %s" (concat name ".pdmp"))
              (add-name-to-file (expand-file-name "emacs.pdmp"
                                                  invocation-directory)
                                (expand-file-name (concat name ".pdmp")
                                                  invocation-directory)
                                t))))
      (kill-emacs)))

;; This file must be loaded each time Emacs is run from scratch, e.g., temacs.
;; So run the startup code now.  First, remove `-l loadup' from args.

(if (and (member (nth 1 command-line-args) '("-l" "--load"))
	 (equal (nth 2 command-line-args) "loadup"))
    (setcdr command-line-args (nthcdr 3 command-line-args)))

;; Don't keep `load-file-name' set during the top-level session!
;; Otherwise, it breaks a lot of code which does things like
;; (or load-file-name byte-compile-current-file).
(setq load-file-name nil)
(eval top-level)

;; Local Variables:
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:

;;; loadup.el ends here

${this.title}

Code Editor : loadup.el