From: | "Ulrich Mueller (ulm)" <ulm@g.o> |
---|---|
To: | gentoo-commits@l.g.o |
Subject: | [gentoo-commits] gentoo-x86 commit in app-emacs/quilt-el/files: 50quilt-el-gentoo.el quilt-el-0.45.4-header-window.patch quilt-el-0.45.4-tramp-recursion.patch |
Date: | Tue, 18 Nov 2008 16:12:59 |
Message-Id: | E1L2TCC-0006ko-8l@stork.gentoo.org |
1 | ulm 08/11/18 16:12:56 |
2 | |
3 | Added: 50quilt-el-gentoo.el |
4 | quilt-el-0.45.4-header-window.patch |
5 | quilt-el-0.45.4-tramp-recursion.patch |
6 | Log: |
7 | Initial import. |
8 | (Portage version: 2.2_rc14/cvs/Linux 2.6.26-gentoo-r1 i686) |
9 | |
10 | Revision Changes Path |
11 | 1.1 app-emacs/quilt-el/files/50quilt-el-gentoo.el |
12 | |
13 | file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/quilt-el/files/50quilt-el-gentoo.el?rev=1.1&view=markup |
14 | plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/quilt-el/files/50quilt-el-gentoo.el?rev=1.1&content-type=text/plain |
15 | |
16 | Index: 50quilt-el-gentoo.el |
17 | =================================================================== |
18 | |
19 | ;;; quilt-el site-lisp configuration |
20 | |
21 | (add-to-list 'load-path "@SITELISP@") |
22 | (autoload 'quilt-mode "quilt" |
23 | "Toggle quilt-mode. With positive arg, enable quilt-mode." t) |
24 | (autoload 'quilt-hook "quilt" |
25 | "Enable quilt mode for quilt-controlled files.") |
26 | (add-hook 'find-file-hooks 'quilt-hook) |
27 | (add-hook 'after-revert-hook 'quilt-hook) |
28 | |
29 | |
30 | |
31 | 1.1 app-emacs/quilt-el/files/quilt-el-0.45.4-header-window.patch |
32 | |
33 | file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/quilt-el/files/quilt-el-0.45.4-header-window.patch?rev=1.1&view=markup |
34 | plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/quilt-el/files/quilt-el-0.45.4-header-window.patch?rev=1.1&content-type=text/plain |
35 | |
36 | Index: quilt-el-0.45.4-header-window.patch |
37 | =================================================================== |
38 | Index: quilt-el/quilt.el |
39 | =================================================================== |
40 | --- quilt-el.orig/quilt.el |
41 | +++ quilt-el/quilt.el |
42 | @@ -399,6 +399,7 @@ |
43 | (cd quilt-header-directory) |
44 | (shell-command (concat "EDITOR=cat quilt -r header <" tmp)) |
45 | (kill-buffer (current-buffer)) |
46 | + (delete-window) |
47 | (delete-file tmp))) |
48 | |
49 | (defvar quilt-header-mode-map (make-keymap)) |
50 | |
51 | |
52 | 1.1 app-emacs/quilt-el/files/quilt-el-0.45.4-tramp-recursion.patch |
53 | |
54 | file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/quilt-el/files/quilt-el-0.45.4-tramp-recursion.patch?rev=1.1&view=markup |
55 | plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/app-emacs/quilt-el/files/quilt-el-0.45.4-tramp-recursion.patch?rev=1.1&content-type=text/plain |
56 | |
57 | Index: quilt-el-0.45.4-tramp-recursion.patch |
58 | =================================================================== |
59 | Index: quilt-el/quilt.el |
60 | =================================================================== |
61 | --- quilt-el.orig/quilt.el |
62 | +++ quilt-el/quilt.el |
63 | @@ -25,7 +25,7 @@ |
64 | |
65 | (defun quilt-find-dir (fn) |
66 | "find the top level dir for quilt from fn" |
67 | - (if (or (not fn) (equal fn "/")) |
68 | + (if (or (not fn) (equal fn (file-name-directory fn))) |
69 | nil |
70 | (let ((d (file-name-directory fn))) |
71 | (if (file-accessible-directory-p (concat d "/.pc")) |