| Z | Ô | I | O | N |
################################################## # for gnu emacs lovers with autoloaded overactive libidos: # # if the funky eval gets added back, please make it the very last item # before the "# end:". # "localvariables:" after it aren't evaluated when one C-g's. # # Version control is exceedingly useful for the aliases file; # please don't turn it off. -mib # # Please don't delete the cute hacks. We like them and they're there # intentionally. --friedman # # So there. Nyaaahhh. -mib # # Well, they definitely have their own place in this file.. -mew # # Yes, at the end, like all local variables. Hmm... -mib # # You people are really inane. # # Oh, stop whining. -mib # # Len's comment about "the" funky eval is a little bit dated, doncha think? # -mib # # These are the best local variables we've had yet! --friedman # # local variables: # eval: (auto-fill-mode 0) # eval: (set-syntax-table (copy-syntax-table (syntax-table))) # eval: (modify-syntax-entry ?% ".") # compile-command: "/usr/local/etc/checkaliases -a /com/mailer/aliases" # indent-line-function: indent-relative-maybe # backup-by-copying: t # eval: (while (not (y-or-n-p "Eval silly local variables? ")) (progn (message "Invalid response.") (sleep-for 1))) # eval: (setq bizarre-gratuitous-variable '(miscellaneous gratuitous list)) # eval: (put 'mib-attributes 'twit t) # eval: (put 'roland-attributes 'red t) # eval: (put 'can-of-spam 'on-top-of 'nutrimat) # eval: (if (string= "roland" (user-login-name)) (message "Roland is red.")) # eval: (if (string= "mib" (user-login-name)) (message "Mib is a twit.")) # eval: (if (string= "roland" (user-login-name)) (progn (display-buffer (get-buffer-create "*Roland is permanently red.*")) (setq *orig-kill-buffer* (symbol-function 'kill-buffer)) (defun kill-buffer (arg) (interactive "bKill buffer: ") (let ((killing (if (bufferp arg) arg (get-buffer arg)))) (if (eq killing (get-buffer "*Roland is permanently red.*")) (error "Attempt to delete permanent buffer: %s" killing) (funcall *orig-kill-buffer* arg)))))) # eval: (setq elite-list '(friedman roland mib melissa tower gnulists tami)) # eval: (if (not (memq (intern (user-login-name)) elite-list)) (call-process "csh" nil 0 nil "-c" "if ($?DISPLAY) nohup xv -p /com/mailer/tower.pgm &; exit")) # eval: (setq gzpl* (current-buffer)) # eval: (if (string= "mib" (user-login-name)) (progn (or (fboundp 'real-newline) (fset 'real-newline (symbol-function 'newline))) (or (fboundp 'flame) (load "flame" t t)) (defun newline (&optional arg) (interactive "P") (prog1 (real-newline arg) (if (eq (current-buffer) gzpl*) (insert "# " (sentence-ify (string-ify (append-suffixes-hack (flatten (*flame))))) " -mib\n")))))) # end:
| contact ζωιον |