(require 'gawd-lists)
(setq enable-recursive-minibuffers t minibuffer-max-depth nil backup-by-copying nil backup-by-copying-when-linked t backup-by-copying-when-mismatch t backup-by-copying-when-privileged-mismatch 98 line-number-mode t column-number-mode t next-line-add-newlines nil bar-cursor 2 paren-mode 'blink-paren find-file-use-truenames nil find-file-compare-truenames t auto-save-timeout 300 blink-matching-paren-distance 50000 gnus-select-method '(nntp "news.srvr.nix") mail-signature t Info-auto-generate-directory nil make-tags-files-invisible t shifted-motion-keys-select-region nil modeline-scrolling-method t mail-user-agent 'message-user-agent progress-feedback-use-echo-area t bell-volume 0 buffers-menu-submenus-for-groups-p 10 x-selection-strict-motif-ownership nil focus-follows-mouse t uniquify-buffer-name-style 'post-forward-angle-brackets uniquify-after-kill-buffer-p t uniquify-ignore-buffers-re "^\s-.*$" desktop-missing-file-warning nil kill-word-into-kill-ring nil tramp-shell-prompt-pattern "^%?[^#$%>\n]*[#$%>] *\\(\\[[0-9;]*[a-zA-Z] *\\)*"
power-macros-file "~/.emacs.power-macros" read-quoted-char-radix 16)
(if (featurep 'xemacs)
(setq resize-minibuffer-window-max-height 0 resize-minibuffer-frame t complex-buffers-menu-p t auto-save-directory (expand-file-name "~/.emacs-autosave/") auto-save-directory-fallback (expand-file-name "/tmp") auto-save-offer-delete t scroll-in-place t delete-key-deletes-forward t) (setq resize-mini-windows t auto-save-file-name-transforms '((".*" "~/.emacs-autosave/\\&" t)) line-move-visual nil history-length 100 history-delete-duplicates t apropos-do-all t kill-do-not-save-duplicates t scroll-preserve-screen-position 'in-place scroll-error-top-bottom t isearch-allow-scroll t line-number-display-limit-width 2000 kill-read-only-ok t)
(setq-default indent-tabs-mode nil)
(if (featurep 'xemacs)
(progn
(resize-minibuffer-mode)) (setq-default cursor-type 'bar) (setq blink-cursor-delay 500) (blink-cursor-mode 1) (winner-mode 1))
(gnuserv-start)
(set-coding-priority-list '(utf-8 iso-8-1 utf-8-bom)) (set-language-environment "English") (set-default-buffer-file-coding-system 'utf-8) (setq file-name-coding-system 'utf-8 default-file-name-coding-system 'utf-8)
(add-to-list 'log-message-ignore-labels 'font-lock)
(mapc #'(lambda (to-zap)
(setq desktop-globals-to-save (delq to-zap desktop-globals-to-save)))
'(tags-file-name tags-table-list))
(add-to-list 'desktop-globals-to-save 'tag-table-alist)
(setq-default save-place t) (setq save-place-limit 200)
(ignore-errors (read-abbrev-file abbrev-file-name t))
(set-glyph-image modeline-pointer-glyph "leftbutton" nil 'x) (set-glyph-image gc-pointer-glyph (expand-file-name "trash.xpm" data-directory) nil 'x)
(setq tag-table-alist '(("^/usr/src/linux[^/]*/.*/*.\.[ch]$" . "/usr/src/linux/")
("^/usr/lib/xemacs/.*\.el$" . "/usr/lib/xemacs/")
("^/usr/lib/xemacs-version-specific/.*\.el$" . "/usr/lib/xemacs/")
("^/usr/lib/xemacs-[0-9.]*/.*\.el$" . "/usr/lib/xemacs/")))
(setcar (last modeline-format)
(list (replace-in-string (car (last modeline-format))
"%-$" "" t)))
(setq-default modeline-format (append modeline-format (list "%-")))
(setq-default modeline-format (list-shuffle-equal (cons modeline-position-status-extent 'modeline-position-status)
'global-mode-string modeline-format))
(setq-default modeline-position-status
(cons 11 (list
" " (cons modeline-line-number-extent
'modeline-line-number)
(cons modeline-column-number-extent
'modeline-column-number)
(cons modeline-percentage-extent
'modeline-percentage) " ")))
(defvar inhibit-default-init-portions nil
"A list of parts of `default.el' to skip.
This provides finer-grained control over initialization than
does `inhibit-default-init', allowing portions of `default.el'
to be skipped, as it is doing several things, and the user
might reasonably want to disable some without disabling the
others.
Currently, you can skip
key-bindings Key bindings
all-key-bindings All key bindings, including for specific modes
desktop-load Automatic desktop loading
icomplete Incremental minibuffer completion
macro-load Automatic keyboard macro loading")
(provide 'gawd-misc)