[23454] in Source-Commits
/svn/athena r23107 - trunk/debathena/config/emacs-config/debian
daemon@ATHENA.MIT.EDU (ghudson@MIT.EDU)
Fri Jul 25 11:44:48 2008
Date: Fri, 25 Jul 2008 11:44:11 -0400 (EDT)
From: ghudson@MIT.EDU
Message-Id: <200807251544.LAA21535@drugstore.mit.edu>
To: source-commits@MIT.EDU
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: ghudson
Date: 2008-07-25 11:44:10 -0400 (Fri, 25 Jul 2008)
New Revision: 23107
Modified:
trunk/debathena/config/emacs-config/debian/60debathena.el
trunk/debathena/config/emacs-config/debian/changelog
Log:
In emacs-config:
* Prune heavily.
Modified: trunk/debathena/config/emacs-config/debian/60debathena.el
===================================================================
--- trunk/debathena/config/emacs-config/debian/60debathena.el 2008-07-24 22:35:08 UTC (rev 23106)
+++ trunk/debathena/config/emacs-config/debian/60debathena.el 2008-07-25 15:44:10 UTC (rev 23107)
@@ -15,17 +15,10 @@
; Force outgoing mail domain to be "mit.edu" instead of local machine name.
(setq mail-host-address "mit.edu")
-; Force print command to be "lpr" on SysV sytems; "lp" doesn't work on Athena.
-(setq lpr-command "lpr")
-
; lpr -d doesn't do anything in the Athena environment; use dvips to print
; DVI files.
(setq tex-dvi-print-command "dvips")
-; Use htmlview to browse URLs.
-(setq browse-url-generic-program "htmlview")
-(setq browse-url-browser-function 'browse-url-generic)
-
; Athena likes different X paste behavior
(setq mouse-yank-at-point t)
@@ -33,11 +26,9 @@
; consistent with gnome-terminal, xterm, etc.)
(blink-cursor-mode 0)
-; Get info from the gnu locker as well as the normal places.
-(setq Info-default-directory-list
- (append '("/afs/athena.mit.edu/project/gnu/info")
- Info-default-directory-list))
-
+; Change the initial scratch buffer to avoid people losing text they
+; erroneously type into it. Also make it a text buffer instead of a
+; lisp buffer.
(setq initial-major-mode '(lambda ()
(text-mode)
(auto-fill-mode 1)
@@ -50,60 +41,15 @@
")
-; Include PO server in rmail inbox list as well as obvious mbox files.
-(setq local-inbox
- (cond ((file-accessible-directory-p "/var/mail/")
- (concat "/var/mail/" user-login-name))
- ((file-accessible-directory-p "/var/spool/mail/")
- (concat "/var/spool/mail/" user-login-name))
- ((file-accessible-directory-p "/usr/spool/mail/")
- (concat "/usr/spool/mail/" user-login-name))))
-(setq rmail-primary-inbox-list (list "~/mbox" local-inbox
- (concat "po:" user-login-name)))
-
-; Some gnus settings. We set gnus-mode-non-string-length to 27 to make room
-; for line-number-mode; this seems to be an oversight in the defaults
-; (understandable since line-number-mode wasn't on by default until 19.30).
-; We set gnus-use-long-filename to t to force consistent filenames on all
-; platforms, overriding the backward-compatible default for usg-unix-v
-; (Solaris). We set nnmail-crosspost-link-function to 'copy-file because
-; AFS does not support hard links. We set nnmail-spool-file to retrieve
-; mail from the same place rmail does.
-(setq news-inews-program "/afs/sipb.mit.edu/project/sipb/bin/inews"
- gnus-default-nntp-server "news.mit.edu"
+; Some gnus settings. We set nnmail-crosspost-link-function to
+; 'copy-file because AFS does not support hard links.
+(setq gnus-default-nntp-server "news.mit.edu"
gnus-local-organization "Massachusetts Institute of Technology"
- gnus-mode-non-string-length 27
- gnus-use-long-file-name t
- nnmail-crosspost-link-function 'copy-file
- nnmail-spool-file rmail-primary-inbox-list)
+ nnmail-crosspost-link-function 'copy-file)
-(autoload 'discuss "discuss" "Emacs Discuss" t)
-
-(autoload 'report-emacs-bug "emacsbug"
- "Report a bug in Gnu emacs."
- t)
-
-(autoload 'clu-mode "clu-mode"
- "Load CLU mode."
- t)
-(setq auto-mode-alist (append auto-mode-alist '(("\\.clu$" . clu-mode)
- ("\\.equ$" . clu-mode))))
-
-(autoload 'ispell-word "ispell"
- "Check the spelling of a word in the buffer."
- t)
-(autoload 'ispell-region "ispell"
- "Check the spelling of a region in the buffer."
- t)
-(autoload 'ispell-buffer "ispell"
- "Check the spelling of the entire buffer."
- t)
-
; Athena auto-save customizations
-(defconst auto-save-main-directory
- (cond ((file-accessible-directory-p "/var/tmp/") "/var/tmp/")
- ((file-accessible-directory-p "/tmp/") "/tmp/"))
+(defconst auto-save-main-directory "/var/tmp/"
"The root of the auto-save directory; nil means use old style.")
; Put .saves files in same place as auto-save files.
Modified: trunk/debathena/config/emacs-config/debian/changelog
===================================================================
--- trunk/debathena/config/emacs-config/debian/changelog 2008-07-24 22:35:08 UTC (rev 23106)
+++ trunk/debathena/config/emacs-config/debian/changelog 2008-07-25 15:44:10 UTC (rev 23107)
@@ -1,3 +1,9 @@
+debathena-emacs-config (1.1) unstable; urgency=low
+
+ * Prune heavily.
+
+ -- Greg Hudson <ghudson@mit.edu> Fri, 25 Jul 2008 11:41:49 -0400
+
debathena-emacs-config (1.0) unstable; urgency=low
* Initial release.
