Mercurial > hg > xemacs-beta

comparison etc/sample.emacs @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
287 (bg (cond (root-p "coral2") 287 (bg (cond (root-p "coral2")
288 (remote-p "palegreen1") 288 (remote-p "palegreen1")
289 (t nil)))) 289 (t nil))))
290 (cond (bg 290 (cond (bg
291 (let ((def (color-name (face-background 'default))) 291 (let ((def (color-name (face-background 'default)))
292 (faces (list-faces))) 292 (faces (face-list)))
293 (while faces 293 (while faces
294 (let ((obg (face-background (car faces)))) 294 (let ((obg (face-background (car faces))))
295 (if (and obg (equal def (color-name obg))) 295 (if (and obg (equal def (color-name obg)))
296 (set-face-background (car faces) bg))) 296 (set-face-background (car faces) bg)))
297 (setq faces (cdr faces))))))))) 297 (setq faces (cdr faces)))))))))
366 ;; The environment variable EMAIL_ADDRESS is used as the password 366 ;; The environment variable EMAIL_ADDRESS is used as the password
367 ;; for access to anonymous ftp sites, if it is set. If not, one is 367 ;; for access to anonymous ftp sites, if it is set. If not, one is
368 ;; constructed using the environment variables USER and DOMAINNAME 368 ;; constructed using the environment variables USER and DOMAINNAME
369 ;; (e.g. turner@lanl.gov), if set. 369 ;; (e.g. turner@lanl.gov), if set.
370 370
371 (if (and running-xemacs (< emacs-major-version 20) (>= emacs-minor-version 15)) 371 (if (and running-xemacs
372 (or (and (= emacs-major-version 20) (>= emacs-minor-version 1))
373 (and (= emacs-major-version 19) (>= emacs-minor-version 15))))
372 (progn 374 (progn
373 (message "Loading and configuring bundled packages... efs") 375 (message "Loading and configuring bundled packages... efs")
374 (require 'efs-auto) 376 (require 'efs-auto)
375 (if (getenv "USER") 377 (if (getenv "USER")
376 (setq efs-default-user (getenv "USER"))) 378 (setq efs-default-user (getenv "USER")))
378 (setq efs-generate-anonymous-password (getenv "EMAIL_ADDRESS")) 380 (setq efs-generate-anonymous-password (getenv "EMAIL_ADDRESS"))
379 (if (and (getenv "USER") 381 (if (and (getenv "USER")
380 (getenv "DOMAINNAME")) 382 (getenv "DOMAINNAME"))
381 (setq efs-generate-anonymous-password 383 (setq efs-generate-anonymous-password
382 (concat (getenv "USER")"@"(getenv "DOMAINNAME"))))) 384 (concat (getenv "USER")"@"(getenv "DOMAINNAME")))))
383 (setq efs-auto-save 1) 385 (setq efs-auto-save 1))
384 )) 386 (progn
385 (if (and running-xemacs (< emacs-major-version 20) (< emacs-minor-version 15)) 387 (message "Loading and configuring bundled packages... ange-ftp")
386 (progn 388 (require 'ange-ftp)
387 (message "Loading and configuring bundled packages... ange-ftp") 389 (if (getenv "USER")
388 (require 'ange-ftp) 390 (setq ange-ftp-default-user (getenv "USER")))
389 (if (getenv "USER") 391 (if (getenv "EMAIL_ADDRESS")
390 (setq ange-ftp-default-user (getenv "USER"))) 392 (setq ange-ftp-generate-anonymous-password (getenv "EMAIL_ADDRESS"))
391 (if (getenv "EMAIL_ADDRESS") 393 (if (and (getenv "USER")
392 (setq ange-ftp-generate-anonymous-password (getenv "EMAIL_ADDRESS")) 394 (getenv "DOMAINNAME"))
393 (if (and (getenv "USER") 395 (setq ange-ftp-generate-anonymous-password
394 (getenv "DOMAINNAME")) 396 (concat (getenv "USER")"@"(getenv "DOMAINNAME")))))
395 (setq ange-ftp-generate-anonymous-password 397 (setq ange-ftp-auto-save 1)
396 (concat (getenv "USER")"@"(getenv "DOMAINNAME"))))) 398 )
397 (setq ange-ftp-auto-save 1)
398 )
399 ) 399 )
400 400
401 401
402 ;;; ******************** 402 ;;; ********************
403 ;;; Load the auto-save.el package, which lets you put all of your autosave 403 ;;; Load the auto-save.el package, which lets you put all of your autosave