## Construct the output directory.
assign releasepath $srcpath/dist-$build
-chmod -R +w $releasepath 2>/dev/null|| :
+chmod -R +w $releasepath 2>/dev/null || :
rm -rf $releasepath 2>/dev/null || :
mkdir $releasepath
case $verbose in
(trap (server-start))
(trap (progn
(require 'edit-server)
- (edit-server-start)))))
+ (edit-server-start)
+ (let ((edit (get-process "edit-server")))
+ (and edit
+ (set-process-query-on-exit-flag edit nil)))))))
;; Control backup behaviour.
(setq password-cache-expiry nil)
(setq-default proced-filter 'all
proced-sort 'user)
-(setq ispell-program-name "aspell"
+(setq ispell-program-name "aspell-hack"
ispell-local-dictionary "en_GB-ize-w_accents"
flyspell-default-dictionary "en_GB-ize-w_accents"
ispell-silently-savep t)
(setq shell-prompt-pattern "^[^]#$%>»}\n]*\\([]#$%»}]\\|>>?\\) *")
(setq comint-password-prompt-regexp
(concat "\\(\\([Ee]nter \\|[Oo]ld \\|[Nn]ew \\|[a-zA-Z0-9_]*'s \\|^\\)"
- "[Pp]assword\\|pass phrase\\):"))
+ "[Pp]assword\\|pass phrase\\):")
+ comint-file-name-chars "~/A-Za-z0-9+@:_.$#%,={}-"
+ shell-file-name-chars comint-file-name-chars)
;; Notice passwords, and make C-a work right.
gnus-sum-thread-tree-single-leaf "╰─>")
(setq gnus-sum-thread-tree-leaf-with-other "|->"
gnus-sum-thread-tree-vertical "| "
- gnus-sum-thread-tree-single-leaf "'->"))
+ gnus-sum-thread-tree-single-leaf "`->"))
;; Sort threads in a useful way.
(setq gnus-thread-sort-functions
start-clients-local () { :; }
+scsv=$(pick_program screensaver gnome-screensaver xscreensaver)
+case $scsv in
+ xscreensaver)
+ scsvopts="-no-splash"
+ ;;
+ *)
+ scsvopts=""
+ ;;
+esac
+
start-clients () {
## Mail notification.
run bginit mail-notification
case $vnc in
no)
run init xscreensaver-command -exit
- run bginit xscreensaver -no-splash
+ run bginit $scsv $scsvopts
;;
esac