📄 00000018.htm

📁 一份很好的linux入门资料
💻 HTM
📖 第 1 页 / 共 2 页
字号:
12 下一页
<HTML><HEAD>  <TITLE>BBS水木清华站∶精华区</TITLE></HEAD><BODY><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER>发信人:&nbsp;yanglc&nbsp;(魂归燕园),&nbsp;信区:&nbsp;Linux&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>标&nbsp;&nbsp;题:&nbsp;Steve's&nbsp;.emacs&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pure&nbsp;&nbsp;<BR>发信站:&nbsp;BBS&nbsp;水木清华站&nbsp;(Sat&nbsp;May&nbsp;13&nbsp;20:02:21&nbsp;2000)&nbsp;<BR>&nbsp;<BR>发信人:&nbsp;pure&nbsp;(青衣～&nbsp;Shadow&nbsp;in&nbsp;silence),&nbsp;信区:&nbsp;FreeBSD&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>标&nbsp;&nbsp;题:&nbsp;Steve's&nbsp;.emacs&nbsp;<BR>发信站:&nbsp;BBS&nbsp;水木清华站&nbsp;(Sat&nbsp;Apr&nbsp;17&nbsp;15:55:44&nbsp;1999)&nbsp;<BR>&nbsp;<BR>Steve's&nbsp;.emacs&nbsp;<BR>January&nbsp;27th&nbsp;1999,&nbsp;01:49:00&nbsp;PM&nbsp;<BR>Included&nbsp;in&nbsp;this&nbsp;.emacs&nbsp;are&nbsp;a&nbsp;couple&nbsp;of&nbsp;useful&nbsp;functions&nbsp;apart&nbsp;from&nbsp;simple&nbsp;&nbsp;<BR>key&nbsp;rebindings:&nbsp;&nbsp;<BR>&nbsp;<BR>1.&nbsp;Support&nbsp;for&nbsp;wheel&nbsp;mice&nbsp;(mouse&nbsp;buttons&nbsp;4&nbsp;&amp;&nbsp;5&nbsp;under&nbsp;X),&nbsp;&nbsp;<BR>to&nbsp;scroll&nbsp;windows,&nbsp;do&nbsp;really&nbsp;fast&nbsp;undo/redo,&nbsp;etc...&nbsp;&nbsp;<BR>&nbsp;<BR>2.&nbsp;Buffer&nbsp;switch&nbsp;fix.&nbsp;The&nbsp;default&nbsp;completion&nbsp;list&nbsp;includes&nbsp;the&nbsp;name&nbsp;of&nbsp;the&nbsp;&nbsp;<BR>buffer&nbsp;you're&nbsp;in.&nbsp;This&nbsp;is&nbsp;very&nbsp;annoying&nbsp;if&nbsp;you're&nbsp;editing&nbsp;prog.c,&nbsp;and&nbsp;prog.h&nbsp;&nbsp;<BR>since&nbsp;you&nbsp;have&nbsp;to&nbsp;type&nbsp;either&nbsp;c,&nbsp;or&nbsp;h&nbsp;to&nbsp;switch&nbsp;between&nbsp;these&nbsp;files.&nbsp;This&nbsp;fix&nbsp;<BR>removes&nbsp;the&nbsp;current&nbsp;buffer&nbsp;name&nbsp;from&nbsp;the&nbsp;completion&nbsp;list.&nbsp;&nbsp;<BR>&nbsp;<BR>3.&nbsp;Microsoft&nbsp;style&nbsp;highlighting.&nbsp;Hold&nbsp;down&nbsp;shift&nbsp;and&nbsp;move&nbsp;the&nbsp;cursor&nbsp;&nbsp;<BR>around&nbsp;to&nbsp;define&nbsp;a&nbsp;region.&nbsp;Defining&nbsp;a&nbsp;region&nbsp;then&nbsp;pasting&nbsp;text&nbsp;(via&nbsp;emacs&nbsp;&nbsp;<BR>kill&nbsp;ring,&nbsp;or&nbsp;X&nbsp;cut&nbsp;buffer)&nbsp;will&nbsp;replace&nbsp;the&nbsp;region,&nbsp;among&nbsp;other&nbsp;functions.&nbsp;&nbsp;<BR>Each&nbsp;of&nbsp;these&nbsp;is&nbsp;documented&nbsp;in&nbsp;the&nbsp;file&nbsp;itself.&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>;;&nbsp;Emacs&nbsp;customizations&nbsp;<BR>;;&nbsp;<BR>;;&nbsp;To&nbsp;use&nbsp;this:&nbsp;<BR>;;&nbsp;&nbsp;-&nbsp;byte&nbsp;compile&nbsp;this&nbsp;file&nbsp;into&nbsp;.emacs-source.elc&nbsp;<BR>;;&nbsp;&nbsp;&nbsp;&nbsp;i.e.&nbsp;go&nbsp;into&nbsp;the&nbsp;Emacs-Lisp&nbsp;menu&nbsp;and&nbsp;select&nbsp;&quot;Byte&nbsp;Compile&nbsp;This&nbsp;File&quot;&nbsp;<BR>;;&nbsp;&nbsp;-&nbsp;in&nbsp;your&nbsp;.emacs&nbsp;file&nbsp;put&nbsp;the&nbsp;line&nbsp;<BR>;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(load-file&nbsp;&quot;~/.emacs-source.elc&quot;)&nbsp;<BR>;;&nbsp;&nbsp;&nbsp;&nbsp;to&nbsp;load&nbsp;the&nbsp;byte&nbsp;compiled&nbsp;version&nbsp;of&nbsp;this.&nbsp;&nbsp;This&nbsp;reduces&nbsp;Emacs'&nbsp;start&nbsp;<BR>;;&nbsp;&nbsp;&nbsp;&nbsp;up&nbsp;time.&nbsp;<BR>;;&nbsp;<BR>;;&nbsp;Steve&nbsp;Dodd&nbsp;<BR>;;&nbsp;March&nbsp;1998&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>;;&nbsp;ASSORTED&nbsp;GLOBAL&nbsp;KEY&nbsp;BINDINGS&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>&nbsp;<BR>;;&nbsp;Make&nbsp;control+pageup/down&nbsp;scroll&nbsp;the&nbsp;other&nbsp;buffer&nbsp;<BR>(global-set-key&nbsp;[C-next]&nbsp;'scroll-other-window)&nbsp;<BR>(global-set-key&nbsp;[C-prior]&nbsp;'scroll-other-window-down)&nbsp;<BR>&nbsp;<BR>;;&nbsp;Rebind&nbsp;C-z&nbsp;to&nbsp;start&nbsp;a&nbsp;shell&nbsp;(use&nbsp;.emacs_shellname&nbsp;for&nbsp;the&nbsp;shells&nbsp;rc&nbsp;file)&nbsp;<BR>(global-set-key&nbsp;&quot;\C-z&quot;&nbsp;'shell)&nbsp;<BR>&nbsp;<BR>;;&nbsp;This&nbsp;binds&nbsp;word&nbsp;completions&nbsp;to&nbsp;Shift-Tab,&nbsp;and&nbsp;Ctrl+Space&nbsp;<BR>(global-set-key&nbsp;[S-iso-lefttab]&nbsp;'dabbrev-completion)&nbsp;<BR>(global-unset-key&nbsp;[?\C-\040])&nbsp;<BR>(global-set-key&nbsp;[?\C-\040]&nbsp;'dabbrev-completion)&nbsp;<BR>&nbsp;<BR>;;&nbsp;Set&nbsp;up&nbsp;some&nbsp;f-key&nbsp;shortcuts&nbsp;<BR>(global-set-key&nbsp;[f1]&nbsp;&nbsp;&nbsp;&nbsp;'help)&nbsp;<BR>(global-set-key&nbsp;[S-f1]&nbsp;&nbsp;'man)&nbsp;<BR>(global-set-key&nbsp;[f2]&nbsp;&nbsp;&nbsp;&nbsp;'save-buffer)&nbsp;<BR>(global-set-key&nbsp;[f3]&nbsp;&nbsp;&nbsp;&nbsp;'find-file)&nbsp;<BR>(global-set-key&nbsp;[f4]&nbsp;&nbsp;&nbsp;&nbsp;'kill-buffer)&nbsp;<BR>&nbsp;<BR>(global-set-key&nbsp;[f5]&nbsp;&nbsp;&nbsp;&nbsp;'compile)&nbsp;<BR>(global-set-key&nbsp;[f6]&nbsp;&nbsp;&nbsp;&nbsp;'first-error)&nbsp;<BR>(global-set-key&nbsp;[f7]&nbsp;&nbsp;&nbsp;&nbsp;'previous-error)&nbsp;<BR>(global-set-key&nbsp;[f8]&nbsp;&nbsp;&nbsp;&nbsp;'next-error)&nbsp;<BR>&nbsp;<BR>(global-set-key&nbsp;[f9]&nbsp;&nbsp;&nbsp;&nbsp;'new-frame)&nbsp;<BR>(global-set-key&nbsp;[S-f9]&nbsp;&nbsp;'delete-frame)&nbsp;<BR>(global-set-key&nbsp;[f10]&nbsp;&nbsp;&nbsp;'split-window-vertically)&nbsp;<BR>(global-set-key&nbsp;[S-f10]&nbsp;'delete-other-windows)&nbsp;<BR>(global-set-key&nbsp;[f11]&nbsp;&nbsp;&nbsp;'undo)&nbsp;<BR>(global-set-key&nbsp;[f12]&nbsp;&nbsp;&nbsp;'other-window)&nbsp;<BR>(global-set-key&nbsp;[S-f12]&nbsp;'delete-window)&nbsp;<BR>&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>;;&nbsp;GENERAL&nbsp;STUFF&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>&nbsp;<BR>;;&nbsp;Set&nbsp;email&nbsp;address&nbsp;<BR>(setq&nbsp;user-mail-address&nbsp;&quot;<A HREF="mailto:sdodd@undergrad.math.uwaterloo.ca");">sdodd@undergrad.math.uwaterloo.ca");</A>&nbsp;<BR>;;(setq&nbsp;sendmail-program&nbsp;&quot;/usr/sbin/sendmail&nbsp;-i&nbsp;-t&nbsp;-<A HREF="mailto:fsdodd@undergrad.uwaterloo">fsdodd@undergrad.uwaterloo</A>&nbsp;<BR>.ca&quot;)&nbsp;<BR>(setq&nbsp;sendmail-program&nbsp;&quot;/usr/sbin/sendmail&quot;)&nbsp;<BR>&nbsp;<BR>;;&nbsp;Set&nbsp;extensions&nbsp;<BR>(setq&nbsp;tex-dvi-view-command&nbsp;&quot;xdvi&quot;)&nbsp;<BR>(setq&nbsp;compile-command&nbsp;&quot;make&quot;)&nbsp;<BR>&nbsp;<BR>;;&nbsp;Show&nbsp;mark'ed&nbsp;text&nbsp;<BR>(setq&nbsp;transient-mark-mode&nbsp;'1)&nbsp;<BR>&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>;;&nbsp;DIRED&nbsp;MODE&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>(add-hook&nbsp;'dired-mode-hook&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'(lambda()&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(define-key&nbsp;dired-mode-map&nbsp;[delete]&nbsp;'dired-flag-file-deletion)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(define-key&nbsp;dired-mode-map&nbsp;[return]&nbsp;'dired-find-file-other-window&nbsp;<BR>)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(define-key&nbsp;dired-mode-map&nbsp;[C-down-mouse-1]&nbsp;'dired-mouse-find-fil&nbsp;<BR>e-other-window)))&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>;;&nbsp;GNUS&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>(setq&nbsp;gnus-select-method&nbsp;'(nnspool&nbsp;&quot;&quot;))&nbsp;<BR>(setq&nbsp;nnspool-inews-switches&nbsp;'(&quot;-h&quot;))&nbsp;<BR>&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>;;&nbsp;VM&nbsp;<BR>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;&nbsp;<BR>(setq&nbsp;load-path&nbsp;(append&nbsp;load-path&nbsp;'(&quot;/usr/share/emacs/site-lisp/vm&quot;)))&nbsp;<BR>&nbsp;<BR>(autoload&nbsp;'vm&nbsp;&quot;vm&quot;&nbsp;&quot;Start&nbsp;VM&nbsp;on&nbsp;your&nbsp;primary&nbsp;inbox.&quot;&nbsp;t)&nbsp;<BR>(autoload&nbsp;'vm-other-frame&nbsp;&quot;vm&quot;&nbsp;&quot;Like&nbsp;`vm'&nbsp;but&nbsp;starts&nbsp;in&nbsp;another&nbsp;frame.&quot;&nbsp;t)&nbsp;<BR>(autoload&nbsp;'vm-visit-folder&nbsp;&quot;vm&quot;&nbsp;&quot;Start&nbsp;VM&nbsp;on&nbsp;an&nbsp;arbitrary&nbsp;folder.&quot;&nbsp;t)&nbsp;<BR>(autoload&nbsp;'vm-visit-virtual-folder&nbsp;&quot;vm&quot;&nbsp;&quot;Visit&nbsp;a&nbsp;VM&nbsp;virtual&nbsp;folder.&quot;&nbsp;t)&nbsp;<BR>(autoload&nbsp;'vm-mode&nbsp;&quot;vm&quot;&nbsp;&quot;Ru;;&nbsp;<BR>&nbsp;<BR>(defun&nbsp;s-shift-scroll-up&nbsp;()&nbsp;<BR>&nbsp;&nbsp;(interactive)&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;(not&nbsp;mark-active)&nbsp;(set-mark-command&nbsp;nil)&nbsp;())&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;(condition-case&nbsp;nil&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(scroll-up)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;'t))&nbsp;(goto-char&nbsp;(point-max))&nbsp;()))&nbsp;<BR>(defun&nbsp;s-scroll-up&nbsp;()&nbsp;<BR>&nbsp;&nbsp;(interactive)&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;mark-active&nbsp;(set-mark&nbsp;nil)&nbsp;())&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;(condition-case&nbsp;nil&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(scroll-up)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;'t))&nbsp;(goto-char&nbsp;(point-max))&nbsp;()))&nbsp;<BR>&nbsp;<BR>(defun&nbsp;s-shift-scroll-down&nbsp;()&nbsp;<BR>&nbsp;&nbsp;(interactive)&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;(not&nbsp;mark-active)&nbsp;(set-mark-command&nbsp;nil)&nbsp;())&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;(condition-case&nbsp;nil&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(scroll-down)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;'t))&nbsp;(goto-char&nbsp;(point-min))&nbsp;()))&nbsp;<BR>(defun&nbsp;s-scroll-down&nbsp;()&nbsp;<BR>&nbsp;&nbsp;(interactive)&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;mark-active&nbsp;(set-mark&nbsp;nil)&nbsp;())&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;(condition-case&nbsp;nil&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(scroll-down)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;'t))&nbsp;(goto-char&nbsp;(point-min))&nbsp;()))&nbsp;<BR>&nbsp;<BR>;;&nbsp;<BR>;;&nbsp;Cut&nbsp;and&nbsp;paste&nbsp;functions&nbsp;<BR>;;&nbsp;<BR>&nbsp;<BR>(defun&nbsp;s-shift-delete&nbsp;()&nbsp;<BR>&nbsp;&nbsp;(interactive)&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;mark-active&nbsp;(kill-region&nbsp;(point)&nbsp;(mark))&nbsp;(kill-line))&nbsp;<BR>&nbsp;&nbsp;(setq&nbsp;s-prev-selection&nbsp;nil))&nbsp;<BR>(defun&nbsp;s-ctrl-delete&nbsp;()&nbsp;<BR>
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -