(custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(adaptive-fill-mode t) '(aquamacs-additional-fontsets nil t) '(aquamacs-customization-version-id 213 t) '(aquamacs-tool-bar-user-customization nil t) '(auto-save-interval 100) '(before-save-hook (quote (time-stamp))) '(buffer-offer-save nil) '(cc-search-directories (quote ("." "/usr/include" "/usr/local/include/*" "/usr/peter/" "/usr/peter/dos writings"))) '(confirm-kill-emacs (quote y-or-n-p)) '(cursor-in-non-selected-windows t) '(cursor-type (quote box)) '(default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 1) (width . 100) (height . 200)))) '(delete-auto-save-files nil) '(delete-by-moving-to-trash t) '(display-battery-mode t) '(display-buffer-reuse-frames nil) '(display-mm-dimensions-alist (quote (("default" 120 . 200)))) '(display-time-24hr-format t) '(display-time-day-and-date t) '(display-time-interval 1) '(display-time-mode t) '(even-window-heights nil) '(face-font-family-alternatives (quote (("Times New Roman" "courier" "fixed") ("courier" "CMU Typewriter Text" "fixed") ("Sans Serif" "helv" "helvetica" "arial" "fixed") ("helv" "helvetica" "arial" "fixed")))) '(face-font-selection-order (quote (:width :height :weight :slant))) '(ff-always-in-other-window t) '(fill-column 80) '(initial-frame-alist (quote ((menu-bar-lines . 1) (nil)))) '(minibuffer-auto-raise t) '(ns-tool-bar-display-mode nil t) '(ns-tool-bar-size-mode nil t) '(partial-completion-mode t) '(pop-up-frame-alist (quote ((width . 100) (height . 190)))) '(ps-print-footer t) '(save-place t nil (saveplace)) '(search-upper-case nil) '(sentence-end-without-period t) '(size-indication-mode t) '(split-height-threshold 0) '(split-width-threshold 85) '(split-window-horizontally t) '(split-window-preferred-function (quote split-window-horizontally)) '(tabbar-mode t nil (tabbar)) '(text-mode-hook (quote (turn-on-flyspell auto-detect-wrap))) '(version-control t) '(visible-cursor nil) '(visual-line-mode nil t) '(word-wrap t) '(x-stretch-cursor t)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(default ((t (:inherit nil :stipple nil :background "Black" :foreground "Green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 180 :width normal :foundry "apple" :family "Times_New_Roman")))) '(autoface-default ((t (:inherit default)))) '(cursor ((t (:foreground "blue")))) '(fundamental-mode-default ((t (:inherit autoface-default))) t) '(isearch ((((class color) (min-colors 88) (background dark)) (:background "black" :foreground "white")))) '(mouse ((t (:background "black" :foreground "yellow")))) '(vcursor ((((class color)) (:background "blue" :foreground "blue" :underline nil))))) ;;bind the Function key ;;(global-unset-key [f1]) (global-set-key [(f1)] 'find-file) (global-set-key [(f2)] 'save-buffer) (global-set-key [(f3)] 'backward-word) (global-set-key [(f4)] 'undo) (global-set-key [(f5)] 'forward-word) (global-set-key [(f6)] 'end-of-line) (global-set-key [(f7)] 'kill-word) (global-set-key [(f8)] 'kill-line) (global-set-key [(f9)] 'backward-kill-word) (global-set-key [(f10)] 'fill-paragraph) (global-set-key [(f11)] 'spellcheck-now) (global-set-key [(f12)] 'set-mark) (global-set-key [(f13)] 'beginning-of-line) (global-set-key [(f16)] 'set-cursor-color) ;;bind Shift-Function keys (global-set-key (kbd "S-") 'kill-buffer) (global-set-key (kbd "S-") 'insert-file) (global-set-key (kbd "S-") 'goto-char) (global-set-key (kbd "S-") 'rename-buffer) (global-set-key (kbd "S-") 'list-buffers) (global-set-key (kbd "S-") 'find-file-other-frame) (global-set-key (kbd "S-") 'switch-to-buffer) (global-set-key (kbd "S-") 'isearch-forward) (global-set-key (kbd "S-") 'isearch-backward) (global-set-key (kbd "S-") 'query-replace-regular-expression) ;;(global-set-key (kbd "S-") ' ;;(global-set-key (kbd "S-") ' ;;(global-set-key (kbd "S-") ' (global-set-key (kbd "S-") ' ;;bind Control-Function keys (global-set-key [(control f1)] 'split-window-vertical) (global-set-key [(control f2)] 'delete-other-windows) (global-set-key [(control f3)] 'what-cursor-position) (global-set-key [(control f4)] 'other-window) (global-set-key [(control f5)] 'copy-to-register) (global-set-key [(control f6)] 'insert-register) (global-set-key [(control f7)] 'copy-register) (global-set-key [(control f8)] 'copy-region-as-kill) (global-set-key [(control f9)] 'kill-region) (global-set-key [(control f10)] 'yank) ;;(global-set-key [(control f11)] ' ;;(global-set-key [(control f12)] ' ;;(global-set-key [(control f13)] ' (global-set-key [(control f16)] ' ;;bind Alt-Function keys (global-set-key [(meta f1)] 'save-buffers-kill-emacs) (global-set-key [(meta f2)] 'what-cursor-position) (global-set-key [(meta f3)] 'what-line) (global-set-key [(meta f4)] 'goto-line) (global-set-key [(meta f5)] 'exchange-point-and-mark) (global-set-key [(meta f6)] 'dired) (global-set-key [(meta f7)] 'split-window-horizontally) (global-set-key [(meta f8)] 'start-keyboard-macro) (global-set-key [(meta f9)] 'end-keyboard-macro) (global-set-key [(meta f10)] 'call-last-keyboard-macro) ;;(global-set-key (kbd "") ' ;;(global-set-key (kbd "") ' ;;(global-set-key (kbd "") (global-set-key (kbd "")