📄 00000027.htm

📁 一份很好的linux入门资料
💻 HTM
字号:
<HTML><HEAD>  <TITLE>BBS水木清华站∶精华区</TITLE></HEAD><BODY><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER>发信人:&nbsp;althea&nbsp;(稻草人),&nbsp;信区:&nbsp;Linux&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>标&nbsp;&nbsp;题:&nbsp;[part&nbsp;1]&nbsp;emacsport.el&nbsp;<BR>发信站:&nbsp;BBS&nbsp;水木清华站&nbsp;(Fri&nbsp;Dec&nbsp;29&nbsp;23:40:40&nbsp;2000)&nbsp;<BR>&nbsp;<BR>;;;&nbsp;emacsport.el&nbsp;---&nbsp;run&nbsp;emacsport&nbsp;server&nbsp;to&nbsp;wait&nbsp;incoming&nbsp;requests&nbsp;<BR>&nbsp;<BR>;;&nbsp;Copyright&nbsp;(C)&nbsp;2000&nbsp;Free&nbsp;Software&nbsp;Foundation,&nbsp;Inc.&nbsp;<BR>&nbsp;<BR>;;&nbsp;Author:&nbsp;&nbsp;&lt;<A HREF="mailto:pact@pact3.cs.pku.edu.cn>">pact@pact3.cs.pku.edu.cn></A>&nbsp;<BR>;;&nbsp;Keywords:&nbsp;convenience,&nbsp;frames,&nbsp;processes&nbsp;<BR>&nbsp;<BR>;;&nbsp;This&nbsp;file&nbsp;is&nbsp;free&nbsp;software;&nbsp;you&nbsp;can&nbsp;redistribute&nbsp;it&nbsp;and/or&nbsp;modify&nbsp;<BR>;;&nbsp;it&nbsp;under&nbsp;the&nbsp;terms&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;as&nbsp;published&nbsp;by&nbsp;<BR>;;&nbsp;the&nbsp;Free&nbsp;Software&nbsp;Foundation;&nbsp;either&nbsp;version&nbsp;2,&nbsp;or&nbsp;(at&nbsp;your&nbsp;option)&nbsp;<BR>;;&nbsp;any&nbsp;later&nbsp;version.&nbsp;<BR>&nbsp;<BR>;;&nbsp;This&nbsp;file&nbsp;is&nbsp;distributed&nbsp;in&nbsp;the&nbsp;hope&nbsp;that&nbsp;it&nbsp;will&nbsp;be&nbsp;useful,&nbsp;<BR>;;&nbsp;but&nbsp;WITHOUT&nbsp;ANY&nbsp;WARRANTY;&nbsp;without&nbsp;even&nbsp;the&nbsp;implied&nbsp;warranty&nbsp;of&nbsp;<BR>;;&nbsp;MERCHANTABILITY&nbsp;or&nbsp;FITNESS&nbsp;FOR&nbsp;A&nbsp;PARTICULAR&nbsp;PURPOSE.&nbsp;&nbsp;See&nbsp;the&nbsp;<BR>;;&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;for&nbsp;more&nbsp;details.&nbsp;<BR>&nbsp;<BR>;;&nbsp;You&nbsp;should&nbsp;have&nbsp;received&nbsp;a&nbsp;copy&nbsp;of&nbsp;the&nbsp;GNU&nbsp;General&nbsp;Public&nbsp;License&nbsp;<BR>;;&nbsp;along&nbsp;with&nbsp;GNU&nbsp;Emacs;&nbsp;see&nbsp;the&nbsp;file&nbsp;COPYING.&nbsp;&nbsp;If&nbsp;not,&nbsp;write&nbsp;to&nbsp;<BR>;;&nbsp;the&nbsp;Free&nbsp;Software&nbsp;Foundation,&nbsp;Inc.,&nbsp;59&nbsp;Temple&nbsp;Place&nbsp;-&nbsp;Suite&nbsp;330,&nbsp;<BR>;;&nbsp;Boston,&nbsp;MA&nbsp;02111-1307,&nbsp;USA.&nbsp;<BR>&nbsp;<BR>;;;&nbsp;Commentary:&nbsp;<BR>&nbsp;<BR>;;&nbsp;&nbsp;<BR>&nbsp;<BR>;;;&nbsp;Code:&nbsp;<BR>&nbsp;<BR>(defcustom&nbsp;ep-server-program&nbsp;&quot;/usr/local/bin/epserver&quot;&nbsp;<BR>&nbsp;&nbsp;&quot;*The&nbsp;program&nbsp;to&nbsp;use&nbsp;as&nbsp;the&nbsp;emacsport&nbsp;server.&nbsp;<BR>Put&nbsp;these&nbsp;lines&nbsp;into&nbsp;your&nbsp;~/.emacs.el:&nbsp;<BR>&nbsp;&nbsp;(require&nbsp;'emacsport)&nbsp;<BR>&nbsp;&nbsp;(ep-server-start)&quot;&nbsp;<BR>&nbsp;&nbsp;:group&nbsp;'server&nbsp;<BR>&nbsp;&nbsp;:type&nbsp;'string)&nbsp;<BR>&nbsp;<BR>(defvar&nbsp;ep-server-process&nbsp;nil&nbsp;<BR>&nbsp;&nbsp;&quot;the&nbsp;current&nbsp;emacsport&nbsp;server&nbsp;process&quot;)&nbsp;<BR>&nbsp;<BR>(defvar&nbsp;ep-server-previous-string&nbsp;&quot;&quot;)&nbsp;<BR>&nbsp;<BR>(defun&nbsp;ep-server-start&nbsp;()&nbsp;<BR>&nbsp;&nbsp;&quot;&quot;&nbsp;<BR>&nbsp;&nbsp;(interactive)&nbsp;<BR>&nbsp;&nbsp;;;&nbsp;Kill&nbsp;it&nbsp;first&nbsp;<BR>&nbsp;&nbsp;(if&nbsp;ep-server-process&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(progn&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(condition-case&nbsp;()&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(delete-process&nbsp;ep-server-process)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;nil))))&nbsp;<BR>&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;(let&nbsp;((euid&nbsp;(user-uid)))&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;(condition-case&nbsp;()&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(delete-file&nbsp;(format&nbsp;&quot;/tmp/ep-%d&quot;&nbsp;euid))&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;nil)))&nbsp;<BR>&nbsp;<BR>&nbsp;&nbsp;(let&nbsp;((process-connection-type&nbsp;nil))&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;(setq&nbsp;ep-server-process&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(start-process&nbsp;&quot;epserver&quot;&nbsp;nil&nbsp;ep-server-program)))&nbsp;<BR>&nbsp;&nbsp;(set-process-filter&nbsp;ep-server-process&nbsp;'ep-server-process-filter)&nbsp;<BR>&nbsp;&nbsp;(set-process-coding-system&nbsp;ep-server-process&nbsp;'raw-text&nbsp;'raw-text))&nbsp;<BR>&nbsp;<BR>(defun&nbsp;ep-server-process-filter&nbsp;(proc&nbsp;string)&nbsp;<BR>&nbsp;&nbsp;(setq&nbsp;string&nbsp;(concat&nbsp;ep-server-previous-string&nbsp;string))&nbsp;<BR>&nbsp;&nbsp;(while&nbsp;(string-match&nbsp;&quot;\n&quot;&nbsp;string)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;((request&nbsp;(substring&nbsp;string&nbsp;0&nbsp;(match-beginning&nbsp;0))))&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(setq&nbsp;string&nbsp;(substring&nbsp;string&nbsp;(match-end&nbsp;0)))&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(condition-case&nbsp;()&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(make-frame-on-display&nbsp;request)&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(error&nbsp;nil))))&nbsp;<BR>&nbsp;&nbsp;;;&nbsp;Save&nbsp;for&nbsp;later&nbsp;any&nbsp;partial&nbsp;line&nbsp;that&nbsp;remains.&nbsp;<BR>&nbsp;&nbsp;(setq&nbsp;ep-server-previous-string&nbsp;string))&nbsp;<BR>&nbsp;<BR>(provide&nbsp;'emacsport)&nbsp;<BR>&nbsp;<BR>;;;&nbsp;emacsport.el&nbsp;ends&nbsp;here&nbsp;<BR>&nbsp;<BR>--&nbsp;<BR>Look&nbsp;Ma,&nbsp;this&nbsp;man&nbsp;can&nbsp;twist&nbsp;his&nbsp;fingers&nbsp;as&nbsp;if&nbsp;they&nbsp;were&nbsp;made&nbsp;of&nbsp;rubber,&nbsp;<BR>isn't&nbsp;that&nbsp;amazing?&nbsp;--&nbsp;Not&nbsp;really,&nbsp;he's&nbsp;been&nbsp;using&nbsp;emacs&nbsp;for&nbsp;years...!&nbsp;<BR>&nbsp;<BR>&nbsp;<BR>※&nbsp;来源:·BBS&nbsp;水木清华站&nbsp;smth.org·[FROM:&nbsp;162.105.203.100]&nbsp;<BR><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER></BODY></HTML>
⌨️ 快捷键说明

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