1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/bin/bash
set -e
### Historic cleanup code, delete files like:
# /usr/share/emacs/20.7/site-lisp/gri-mode.CompilationLog.gz
# /usr/share/xemacs21/site-lisp/gri-mode.CompilationLog.gz
clean_old_emacs_cruft () {
rm -f /usr/share/emacs/$1/site-lisp/gri-mode.CompilationLog.gz
rmdir --ignore-fail-on-non-empty --parents /usr/share/emacs/$1/site-lisp/
}
clean_old_xemacs_cruft () {
rm -f /usr/share/xemacs$1/site-lisp/gri-mode.CompilationLog.gz
rmdir --ignore-fail-on-non-empty --parents /usr/share/xemacs$1/site-lisp/
}
shopt -s nullglob
for i in /usr/share/emacs/*/site-lisp/gri-mode.CompilationLog.gz; do
i=${i#/usr/share/emacs/}
i=${i%/site-lisp/gri-mode.CompilationLog.gz}
test -e /usr/bin/emacs-$i || clean_old_emacs_cruft $i
done
for i in /usr/share/xemacs*/site-lisp/gri-mode.CompilationLog.gz; do
i=${i#/usr/share/xemacs}
i=${i%/site-lisp/gri-mode.CompilationLog.gz}
test -e /usr/bin/xemacs$i || clean_old_xemacs_cruft $i
done
### All done
#DEBHELPER#
|
