-----BEGIN PGP SIGNED MESSAGEHash: SHA1
Не пропускают аттачи... Кидаю так.
;; scrolling parameters
(setq-default scroll-conservatively 2)
(setq-default scroll-margin 1)
(hscroll-global-mode t)
;; tool-bar.el
(tool-bar-mode 0)
(codepage-setup 1251)
;(set-terminal-coding-system 'koi8-r)
(global-set-key [f6] 'set-justification-full)
(global-set-key [f8] 'toggle-truncate-lines)
;(set-language-environment `Cyrillic-KOI8)
;(set-foreground-color "Gray")
;(set-background-color "Black")
;(set-cursor-color "Yellow")
(global-font-lock-mode t)
(setq-default indent-tabs-mode nil)
(setq-default truncate-lines t)
(global-set-key [delete] 'delete-char)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer)
(global-set-key [f9] 'compile)
(global-set-key [C-f9] 'kill-compilation)
(global-set-key [f4] 'kill-this-buffer)
(global-set-key [M-f7] 'goto-line)
(font-lock-add-keywords 'c++-mode
'(("\\b[0-9]+\\b" . font-lock-constant-face)
("[][()&{}:;,+-*=]+" . font-lock-keyword-face)
("\\bDEBUG_LOG\\b" . font-lock-warning-face)
)
)
(font-lock-add-keywords 'java-mode
'(("\\b[0-9]+\\b" . font-lock-constant-face)
)
)
(defun my-scroll-up ()
"Scroll by 3 lines up"
(interactive)
(scroll-up 3)
)
(defun my-scroll-down ()
"Scroll by 3 lines up"
(interactive)
(scroll-down 3)
)
(defun my-revert-buffer ()
"Revert-buffer"
(interactive)
(revert-buffer t t)
)
(defun my-remove-trash ()
"Remove-trash"
(interactive)
(replace-regexp " [^ ]+ " "")
)
;; (defun my-view-url ()
;; "view current buffer url"
;; (interactive)
;; (browse-url)
;; )
;; (require 'kdvi-search)
;; (add-hook 'LaTeX-mode-hook (lambda ()
;; (local-set-key "\C-x\C-j" 'kdvi-jump-to-line)
;; ;; (local-set-key "\C-c\C-c" 'comment-region)
;; ;; (local-set-key "\C-cu" 'uncomment-region)
;; ))
;; (add-hook 'tex-mode-hook (lambda ()
;; (local-set-key "\C-x\C-j" 'kdvi-jump-to-line)
;; ;; (local-set-key "\C-c\C-c" 'comment-region)
;; ;; (local-set-key "\C-cu" 'uncomment-region)
;; ))
(global-set-key [mouse-4] 'my-scroll-down)
(global-set-key [mouse-5] 'my-scroll-up)
(global-set-key "\C-x\M-r" 'my-revert-buffer)
(global-set-key "\C-c\M-v" 'browse-url-of-buffer)
(global-set-key [f3] 'my-remove-trash)
;; (ispell-change-dictionary "russian")
(show-paren-mode)
(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.
'(browse-url-browser-function (quote browse-url-galeon))
'(c++-mode-hook (quote ((lambda nil (outline-minor-mode)) (lambda nil
(set-variable (quote c-basic-offset) 4)) (lambda nil (local-set-key [f5]
(quote hide-subtree))) (lambda nil (local-set-key [f6] (quote
show-subtree))))))
'(c-macro-prompt-flag t)
'(case-fold-search t)
'(current-language-environment "Cyrillic-KOI8")
'(default-input-method "cyrillic-jcuken")
'(font-lock-global-modes t)
'(frame-background-mode (quote light))
'(global-font-lock-mode t nil (font-lock))
'(scroll-bar-mode (quote right))
'(show-paren-delay 0)
'(show-paren-mode t nil (paren))
'(show-trailing-whitespace t)
'(speedbar-tag-hierarchy-method (quote (speedbar-trim-words-tag-hierarchy)))
'(tex-close-quote ">>")
'(tex-dvi-view-command "kdvi")
'(tex-open-quote "<<")
'(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
'(truncate-lines t)
'(utf-8-compose-scripts 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 (:stipple nil :background "#efefef" :foreground
"black" :inverse-video nil :box nil :strike-through nil :overline
nil :underline nil :slant normal :weight normal :height 166 :width
normal :family "monotype-courier new")))))
(autoload 'LaTeX-preview-setup "preview")
(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
(server-start)
; Emacs Development Environment
; eieio-1.3
;; (add-to-list `load-path "~/emacs/eieio-0.16")
;; ; semantic-1.3.3
;; (add-to-list 'load-path "~/emacs/semantic-1.3.3") ; so Emacs can find
semantic
;; ; change to actual install area.
;; (require 'semantic-c) ; for C code integration
;; (require 'semantic-el) ; for Emacs Lisp code integration
;; (require 'semantic-make) ; for Makefile integration
;; (require 'semantic-imenu) ; if you use imenu or wich-function
;; (add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
;; ; for speedbar integration
;; (autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form."
t)
;; (add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
;; ; for editing .bnf parser files.
;; (autoload 'semantic-minor-mode "semantic-mode" "Mode managing semantic
parsing." t)
;; ; for semantic-minor-mode
;; ; speedbar-0.13a
;; (add-to-list 'load-path "~/emacs/speedbar-0.13a")
;; (autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
;; (autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
;; (define-key-after (lookup-key global-map [menu-bar tools])
;; [speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
;; (global-set-key [(f4)] 'speedbar-get-focus)
;; ;; Texinfo fancy chapter tags
;; (add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
;; ; EDE
;; (add-to-list 'load-path "~/emacs/EDE-1.0.beta2")
;; (require `ede)
;; (global-ede-mode t)
;; (add-to-list 'load-path "~/emacs/")
-----BEGIN PGP SIGNATUREVersion: GnuPG v1.9.10 (GNU/Linux)
iD8DBQFBNAZ2Nd+FFof0p2gRAll0AKCIzxVe4ZAQIJGIqFjrwSdxZahTVACeLMwm
UR+qgTuNC9L8M1xj11Eu1oM=
=s0dd
-----END PGP SIGNATURE-*Название листа "Обсуждения и споры о свободных системах и всём сопутствующем"
Написать в лист: comp.soft.linux.debate-list@subscribe.ru
Архив Листа - http://subscribe.ru/archive/comp.soft.linux.debate Поиск: http://www.google.com
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.debate/rules
Номер письма: 1499; Возраст листа: 313; Участников: 707
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.debate/msg/221484
-*Информационный канал Subscribe.Ru
Адрес подписки:
Написать в лист: mailto:comp.soft.linux.debate-list@subscribe.ru
Отписать: mailto:comp.soft.linux.debate--unsub@subscribe.ru
http://subscribe.ru/ http://subscribe.ru/feedback
