[C pkgs] Adapt tramp-vc to new vc
17 years, 3 months
Ville Skyttä
COMMIT
On Thursday 06 September 2007, Michael Albinus wrote:
> Ville Skyttä <scop(a)xemacs.org> writes:
> >> (fboundp 'process-file) is a check for "GNU Emacs 22 existence", because
> >> it is a new function introduced there. Implicitely, it means "new vc
> >> existence". If there is a better check for the existence of "new vc", we
> >> should apply that instead.
> >
> > I think checking (fboundp 'vc-find-version) would be better. It exists
> > in the XEmacs "new vc" as well as in the one in GNU Emacs 22, but does
> > not exist in the XEmacs "old vc" nor in the GNU Emacs 21.3 one:
> > http://cvs.savannah.gnu.org/viewvc/emacs/lisp/vc.el?root=emacs&view=diff&
> >r1=1.311.4.9%3AEMACS_21_3&tr1=1.311.4.9&r2=1.424%3AEMACS_22_1&tr2=1.1&diff
> >_format=h
> >
> > Patch attached.
>
> Looks OK to me. If you install it in Tramp's XEmacs package repository
> (maybe a little bit more commentary), I'll be happy to apply it to
> upstream Tramp as well.
Ok, good. The revised patch I'm committing as I write this is attached.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
New package proposal: epg
17 years, 3 months
Daiki Ueno
Hello Norbert,
I would like to propose a new package epg which packages EasyPG. EasyPG
is an all-in-one GnuPG interface. See http://www.easypg.org for
details.
The attached is a tarball from the XEmacs packages tree. It should be built by
$ cd packages/xemacs-packages/
$ tar xf epg.tar.gz
$ cd epg
$ make bindist
Regards,
--
Daiki Ueno
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Re: New package proposal: epg
17 years, 3 months
Norbert Koch
* "Daiki Ueno" <ueno(a)unixuser.org>:
Hi!
> I would like to propose a new package epg which packages EasyPG. EasyPG
> is an all-in-one GnuPG interface. See http://www.easypg.org for
> details.
Thanks. I use easypg within Gnus. I'm quite happy with it although I
have not succeeded in convincing Gnus to remember my password. I have
to double-check with the manual.
I'll put it into the package base. This may take a couple of days,
though.
Best regards,
norbert.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[C] Remove bogus `leaf-p' argument from `add-menu-item-1'
17 years, 3 months
Michael Sperber
Cosmetic change. (The original code confused me when I was trying to
fix Dired's help menu.)
2007-09-05 Mike Sperber <mike(a)xemacs.org>
* menubar.el (add-menu-item-1): Remove bogus `leaf-p' argument.
(add-menu-button): Follow above change; also remove bogus
docstring talking about "leaf node".
(add-submenu): Follow above change.
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
Index: lisp/menubar.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/menubar.el,v
retrieving revision 1.12
diff -u -r1.12 menubar.el
--- lisp/menubar.el 7 Feb 2005 19:30:08 -0000 1.12
+++ lisp/menubar.el 5 Sep 2007 06:49:07 -0000
＠＠ -210,7 +210,7 ＠＠
(car item-path-list)))))
(cons result parent)))))
-(defun add-menu-item-1 (leaf-p menu-path new-item before in-menu)
+(defun add-menu-item-1 (menu-path new-item before in-menu)
;; This code looks like it could be cleaned up some more
;; Do we really need 6 calls to find-menu-item?
(let* ((item-name
＠＠ -283,20 +283,20 ＠＠
(set-menubar-dirty-flag)
new-item))
-(defun add-menu-button (menu-path menu-leaf &optional before in-menu)
+(defun add-menu-button (menu-path menu-item &optional before in-menu)
"Add a menu item to some menu, creating the menu first if necessary.
If the named item exists already, it is changed.
MENU-PATH identifies the menu under which the new menu item should be inserted.
It is a list of strings; for example, (\"File\") names the top-level \"File\"
menu. (\"File\" \"Foo\") names a hypothetical submenu of \"File\".
-MENU-LEAF is a menubar leaf node. See the documentation of `current-menubar'.
+MENU-ITEM is a menu or menu item. See the documentation of `current-menubar'.
BEFORE, if provided, is the name of a menu item before which this item should
be added, if this item is not on the menu already. If the item is already
present, it will not be moved.
IN-MENU, if provided, means use that instead of `current-menubar' as the
menu to change."
;; Note easymenu.el uses the fact that menu-leaf can be a submenu.
- (add-menu-item-1 t menu-path menu-leaf before in-menu))
+ (add-menu-item-1 menu-path menu-item before in-menu))
;; I actually liked the old name better, but the interface has changed too
;; drastically to keep it. --Stig
＠＠ -315,7 +315,8 ＠＠
IN-MENU, if provided, means use that instead of `current-menubar' as the
menu to change."
(check-menu-syntax submenu nil)
- (add-menu-item-1 nil menu-path submenu before in-menu))
+ (add-menu-item-1 menu-path submenu before in-menu))
+
;; purespace is no more, so this function is unnecessary
;(defun purecopy-menubar (x)
; ;; this calls purecopy on the strings, and the contents of the vectors,
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[PATCH] Eliminate a crash when profiling.
17 years, 3 months
Aidan Kehoe
This follows discussion with Adrian, and I’ll commit it later today.
src/ChangeLog addition:
2006-11-26 Aidan Kehoe <kehoea(a)parhasard.net>
* eval.c (Fcommand_execute):
* eval.c (Feval):
* eval.c (Ffuncall):
Use the PROFILE_DECLARE macro instead of declaring `struct
backtrace backtrace' by hand.
* profile.h:
* profile.h (PROFILE_EXIT_FUNCTION):
* profile.h (PROFILE_ENTER_FUNCTION):
Check do_backtrace before passing the backtrace structure to
profile_record_about_to_call, profile_record_just_called.
XEmacs Trunk source patch:
Diff command: cvs -q diff -Nu
Files affected: src/profile.h
===================================================================
RCS src/eval.c
===================================================================
RCS
Index: src/eval.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/eval.c,v
retrieving revision 1.93
diff -u -u -r1.93 eval.c
--- src/eval.c 2006/08/29 14:10:54 1.93
+++ src/eval.c 2006/11/26 10:05:42
＠＠ -3078,7 +3078,7 ＠＠
/* This function can GC */
Lisp_Object prefixarg;
Lisp_Object final = cmd;
- struct backtrace backtrace;
+ PROFILE_DECLARE();
struct console *con = XCONSOLE (Vselected_console);
prefixarg = con->prefix_arg;
＠＠ -3511,7 +3511,7 ＠＠
/* This function can GC */
Lisp_Object fun, val, original_fun, original_args;
int nargs;
- struct backtrace backtrace;
+ PROFILE_DECLARE();
#ifdef ERROR_CHECK_TRAPPING_PROBLEMS
check_proper_critical_section_lisp_protection ();
＠＠ -3806,7 +3806,7 ＠＠
/* This function can GC */
Lisp_Object fun;
Lisp_Object val;
- struct backtrace backtrace;
+ PROFILE_DECLARE();
int fun_nargs = nargs - 1;
Lisp_Object *fun_args = args + 1;
Index: src/profile.h
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/profile.h,v
retrieving revision 1.4
diff -u -u -r1.4 profile.h
--- src/profile.h 2006/03/14 19:31:43 1.4
+++ src/profile.h 2006/11/26 10:05:42
＠＠ -47,11 +47,18 ＠＠
This ensures correct behavior (e.g. we never modify the profiling info
when profiling is not active) because we seed and reap all functions
currently on the stack when starting and stopping. See
- `start-profiling'. */
+ `start-profiling'.
+
+ We check do_backtrace to make sure that the backtrace structure is
+ initialised. If it isn't, we can enter a function with profiling turned
+ off, and exit it with it turned on, with the consequence that an
+ unitialised backtrace structure is passed to
+ profile_record_just_called. Since do_backtrace is function-local (apart
+ from in the garbage collector) this avoids that. */
#define PROFILE_ENTER_FUNCTION() \
do \
{ \
- if (profiling_active) \
+ if (profiling_active && do_backtrace) \
profile_record_about_to_call (&backtrace); \
} \
while (0)
＠＠ -59,7 +66,7 ＠＠
#define PROFILE_EXIT_FUNCTION() \
do \
{ \
- if (profiling_active) \
+ if (profiling_active && do_backtrace) \
profile_record_just_called (&backtrace); \
} \
while (0)
--
Santa Maradona, priez pour moi!
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[A21.5R21.4] [PATCH 21.5] #'featurep byte-optimisation
17 years, 3 months
Steve Youngs
APPROVE 21.5 RECOMMEND 21.4
This patch optimises #'featurep for the cases...
(featurep 'xemacs) and (featurep 'sxemacs)
...making the former be always t and the latter be nil. It also works
for the advanced form of #'featurep...
(featurep '(and foo bar))
The advantage is that it will suppress byte-compiler warnings.
I recommend that this be added to 21.4 as well, although the regexp
needs to be converted from a raw string to a normal string (remove the
`#r' and double the number of '\').
Norbert, would you mind adding this to 21.5 for me. Thanks!
2007-09-02 Steve Youngs <steve(a)sxemacs.org>
* byte-optimize.el (byte-optimize-featurep): New. Optimise
feature 'sxemacs to nil and 'xemacs to t. This is along the same
lines as GNU/Emacs where they optimise both 'xemacs and 'sxemacs
to nil. It has the added advantage of suppressing byte-compiler
warnings in most cases.
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| SXEmacs - The only _______ you'll ever need. |
| Fill in the blank, yes, it's THAT good! |
|------------------------------------<steve(a)sxemacs.org>---|
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[AC] Update MAINTAINERS
17 years, 3 months
Didier Verna
NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
Dear reviewers,
let's make the maintenance of Patcher official ;-)
ChangeLog addition:
2007-09-04 Didier Verna <didier(a)xemacs.org>
* MAINTAINERS: Explicitely state that I maintain Patcher in
xemacs-devel.
XEmacs Packages source patch:
Diff command: cvs -q diff -u -t -b -B -w
Files affected: MAINTAINERS
Index: MAINTAINERS
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/MAINTAINERS,v
retrieving revision 1.22
diff -u -u -t -b -B -w -r1.22 MAINTAINERS
--- MAINTAINERS 5 Aug 2006 09:08:52 -0000 1.22
+++ MAINTAINERS 4 Sep 2007 14:34:48 -0000
＠＠ -119,6 +119,7 ＠＠
x-symbol Uwe Brauer <oub(a)xemacs.org>
xemacs-base XEmacs Development Team <xemacs-beta(a)xemacs.org>
xemacs-devel XEmacs Development Team <xemacs-beta(a)xemacs.org>
+- patcher.el Didier Verna <didier(a)xemacs.org>
xetla Steve Youngs <steve(a)sxemacs.org>
xlib Zajcev Evgeny <zevlg(a)yandex.ru>
xslide XEmacs Development Team <xemacs-beta(a)xemacs.org>
--
MySpace: http://www.myspace.com/didierverna
Didier Verna, didier(a)lrde.epita.fr, http://www.lrde.epita.fr/~didier
EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 44 08 01 85
94276 Le Kremlin-Bicêtre, France Fax.+33 (1) 53 14 59 22 didier(a)xemacs.org
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[AC] Misuse of the list widget type
17 years, 3 months
Didier Verna
NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
Dear reviewers,
the following patch fixes some misues of the list widget type.
xemacs-packages/w3/ChangeLog addition:
2007-09-04 Didier Verna <didier(a)xemacs.org>
* lisp/ssl.el (ssl-view-certificate-program-arguments): Fix misuse
of the list widget type.
* lisp/ssl.el (ssl-program-arguments): Ditto.
* lisp/w3-java.el (w3-java-vm-arguments): Ditto.
XEmacs Packages source patch:
Diff command: cvs -q diff -u -t -b -B -w
Files affected: xemacs-packages/w3/lisp/w3-java.el xemacs-packages/w3/lisp/ssl.el
Index: xemacs-packages/w3/lisp/ssl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/w3/lisp/ssl.el,v
retrieving revision 1.4
diff -u -u -t -b -B -w -r1.4 ssl.el
--- xemacs-packages/w3/lisp/ssl.el 27 Nov 1999 15:37:18 -0000 1.4
+++ xemacs-packages/w3/lisp/ssl.el 4 Sep 2007 09:14:16 -0000
＠＠ -66,7 +66,7 ＠＠
The certificate is piped to it.
Maybe a way of passing a file should be implemented"
:group 'ssl
-:type 'list)
+:type '(repeat string))
(defcustom ssl-certificate-directory-style 'ssleay
"*Style of cert database to use, the only valid value right now is `ssleay'.
＠＠ -99,11 +99,16 ＠＠
"*Arguments that should be passed to the program `ssl-program-name'.
This should be used if your SSL program needs command line switches to
specify any behaviour (certificate file locations, etc).
-The special symbols 'host and 'port may be used in the list of arguments
-and will be replaced with the hostname and service/port that will be connected
-to."
-:group 'ssl
-:type 'list)
+The special symbols 'host and 'service may be used in the list of
+arguments and will be replaced with the hostname and service/port that
+will be connected to."
+:group 'ssl
+:type '(repeat (choice string
+ (const :tag "Host" :value host)
+ (const :tag "Service" :value service)
+ (const :tag "SSL certificate directory"
+:value ssl-certificate-directory)
+ sexp)))
(defun ssl-certificate-information (der)
"Return an assoc list of information about a certificate in DER format."
Index: xemacs-packages/w3/lisp/w3-java.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/w3/lisp/w3-java.el,v
retrieving revision 1.1
diff -u -u -t -b -B -w -r1.1 w3-java.el
--- xemacs-packages/w3/lisp/w3-java.el 27 Nov 1999 15:37:20 -0000 1.1
+++ xemacs-packages/w3/lisp/w3-java.el 4 Sep 2007 09:14:16 -0000
＠＠ -41,7 +41,7 ＠＠
The special symbol 'file may be used in the list of arguments and will
be replaced with the name of a file containing the commands to run a
Java applet."
-:type 'list
+:type 'sexp
:group 'w3-java)
(defun w3-java-run-applet (options params)
--
MySpace: http://www.myspace.com/didierverna
Didier Verna, didier(a)lrde.epita.fr, http://www.lrde.epita.fr/~didier
EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 44 08 01 85
94276 Le Kremlin-Bicêtre, France Fax.+33 (1) 53 14 59 22 didier(a)xemacs.org
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[AC] Misuse of the list widget type
17 years, 3 months
Didier Verna
NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
Dear reviewers,
the following patch fixes some misuses of the list widget type.
xemacs-packages/vm/ChangeLog addition:
2007-09-04 Didier Verna <didier(a)xemacs.org>
* vm-vars.el (vm-visible-headers): Fix misuse of the list widget
type.
* vm-vars.el (vm-stunnel-program-switches): Ditto.
XEmacs Packages source patch:
Diff command: cvs -q diff -u -t -b -B -w
Files affected: xemacs-packages/vm/vm-vars.el
Index: xemacs-packages/vm/vm-vars.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vm/vm-vars.el,v
retrieving revision 1.28
diff -u -u -t -b -B -w -r1.28 vm-vars.el
--- xemacs-packages/vm/vm-vars.el 3 Sep 2003 00:43:45 -0000 1.28
+++ xemacs-packages/vm/vm-vars.el 4 Sep 2007 09:12:11 -0000
＠＠ -660,7 +660,7 ＠＠
`vm-invisible-header-regexp'. In this case `vm-visible-headers'
specifies the order in which headers are displayed. Headers not
matching `vm-visible-headers' are displayed last."
-:type '(list regexp))
+:type '(repeat regexp))
(defcustom vm-invisible-header-regexp nil
"*Non-nil value should be a regular expression that tells what headers
＠＠ -3698,7 +3698,7 ＠＠
"*List of command line switches to pass to stunnel.
Leave this set to nil unless you understand how VM uses stunnel
and know that you need to change something to get stunnel working."
-:type '(list string))
+:type '(repeat string))
(defcustom vm-stunnel-random-data-method 'generate
"*Specifies what VM should do about sending the PRNG.
--
MySpace: http://www.myspace.com/didierverna
Didier Verna, didier(a)lrde.epita.fr, http://www.lrde.epita.fr/~didier
EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 44 08 01 85
94276 Le Kremlin-Bicêtre, France Fax.+33 (1) 53 14 59 22 didier(a)xemacs.org
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[AC] Misuse of the list widget type
17 years, 3 months
Didier Verna
NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
Dear reviewers,
just forgot this one...
xemacs-packages/liece/lisp/ChangeLog addition:
2007-09-04 Didier Verna <didier(a)xemacs.org>
* liece-vars.el (liece-timers): Fix misuse of the list widget type
(forgot this on in the patch below).
XEmacs Packages source patch:
Diff command: cvs -q diff -u -t -b -B -w
Files affected: xemacs-packages/liece/lisp/liece-vars.el
Index: xemacs-packages/liece/lisp/liece-vars.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/liece/lisp/liece-vars.el,v
retrieving revision 1.1
diff -u -u -t -b -B -w -r1.1 liece-vars.el
--- xemacs-packages/liece/lisp/liece-vars.el 23 Mar 2002 05:51:38 -0000 1.1
+++ xemacs-packages/liece/lisp/liece-vars.el 4 Sep 2007 09:10:44 -0000
＠＠ -676,7 +676,7 ＠＠
(liece-command-keepalive liece-keepalive-interval)
(liece-command-poll-friends liece-poll-friends-interval))
"Symbol name to store timer, timer-function and timer-interval."
-:type 'list
+:type '(repeat (list symbol symbol))
:group 'liece-server)
(defcustom liece-friends nil
--
MySpace: http://www.myspace.com/didierverna
Didier Verna, didier(a)lrde.epita.fr, http://www.lrde.epita.fr/~didier
EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 44 08 01 85
94276 Le Kremlin-Bicêtre, France Fax.+33 (1) 53 14 59 22 didier(a)xemacs.org
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches