[PATCH] gnuclient startup 'point location
15 years, 3 months
FKtPp
Dear Developers,
The problem is gnuclient will always set a point position weither if
the user request or not. This patch change the default point position
logic and if the user didn't request to move the startup-cursor
position we don't move it. This will let something like where-was-i-db
work for gnuclient started buffer.
Thanks,
FKtPp
lib-src/ChangeLog addition:
2009-08-15 It's me FKtPp ;) <m_pupil(a)yahoo.com.cn>
* gnuclient.c (main): Do not set start point position if user
didn't requested to do so
lisp/ChangeLog addition:
2009-08-15 It's me FKtPp ;) <m_pupil(a)yahoo.com.cn>
* gnuserv.el (gnuserv-edit-files): Don't run goto line if the
gnuclient request to open a file only (a linenumber of nil).
core-beta[XEmacs] source patch:
Diff command: hg diff -wbB
Files affected: lisp/gnuserv.el lib-src/gnuclient.c
diff -r e95ddfd6a409 lib-src/gnuclient.c
--- lib-src/gnuclient.c Mon Aug 03 10:30:47 2009 +0200
+++ lib-src/gnuclient.c Sat Aug 15 10:20:34 2009 +0800
＠＠ -299,7 +299,7 ＠＠
int
main (int argc, char *argv[])
{
- int starting_line = 1; /* line to start editing at */
+ int starting_line = 0; /* line to start editing at */
char command[QXE_PATH_MAX+50];/* emacs command buffer */
char fullpath[QXE_PATH_MAX+1];/* full pathname to file */
char *eval_form = NULL; /* form to evaluate with `-eval' */
＠＠ -661,14 +661,10 ＠＠
{
if (i < argc - 1 && *argv[i] == '+')
starting_line = atoi (argv[i++]);
- else
- starting_line = 1;
+
/* If the last argument is +something, treat it as a file. */
- if (i == argc)
- {
- starting_line = 1;
- --i;
- }
+ if (i == argc) --i;
+
filename_expand (fullpath, argv[i]);
#ifdef INTERNET_DOMAIN_SOCKETS
path = (char *) malloc (strlen (remotepath) + strlen (fullpath) +
1);
＠＠ -676,7 +672,12 ＠＠
#else
path = my_strdup (fullpath);
#endif
- sprintf (command, "(%d . %s)", starting_line, clean_string (path));
+ if ( starting_line ) {
+ sprintf (command, "(%d . %s)", starting_line, clean_string
(path));
+ } else {
+ sprintf (command, "(nil . %s)", clean_string (path));
+ }
+
send_string (s, command);
free (path);
} /* for */
diff -r e95ddfd6a409 lisp/gnuserv.el
--- lisp/gnuserv.el Mon Aug 03 10:30:47 2009 +0200
+++ lisp/gnuserv.el Sat Aug 15 10:20:34 2009 +0800
＠＠ -481,7 +481,7 ＠＠
gnuserv-view-file-function
gnuserv-find-file-function)
path)
- (goto-line line)
+ (when line (goto-line line))
;; Don't memorize the quick and view buffers.
(unless (or quick view)
(pushnew (current-buffer) (gnuclient-buffers client))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Do not move cursor position in gnuclient started buffer if user did
15 years, 3 months
Michael Sperber
changeset: 4684:15c42a3f4065
tag: tip
user: It's me FKtPp \;) <m_pupil(a)yahoo.com.cn>
date: Sat Aug 29 22:37:50 2009 +0800
files: lib-src/ChangeLog lib-src/gnuclient.c lisp/ChangeLog lisp/gnuserv.el
description:
Do not move cursor position in gnuclient started buffer if user did
not requested..
diff -r 0cc9d22c3732 -r 15c42a3f4065 lib-src/ChangeLog
--- a/lib-src/ChangeLog Thu Aug 27 15:18:51 2009 +0100
+++ b/lib-src/ChangeLog Sat Aug 29 22:37:50 2009 +0800
＠＠ -1,3 +1,8 ＠＠
+2009-08-15 It's me FKtPp ;) <m_pupil(a)yahoo.com.cn>
+
+ * gnuclient.c (main): Do not set start point position if user
+ didn't requested to do so
+
2009-07-28 Stephen Turnbull <stephen(a)xemacs.org>
* make-docfile.c (write_c_args): Parse UNUSED and USED_IF right.
diff -r 0cc9d22c3732 -r 15c42a3f4065 lib-src/gnuclient.c
--- a/lib-src/gnuclient.c Thu Aug 27 15:18:51 2009 +0100
+++ b/lib-src/gnuclient.c Sat Aug 29 22:37:50 2009 +0800
＠＠ -299,7 +299,7 ＠＠
int
main (int argc, char *argv[])
{
- int starting_line = 1; /* line to start editing at */
+ int starting_line = 0; /* line to start editing at */
char command[QXE_PATH_MAX+50];/* emacs command buffer */
char fullpath[QXE_PATH_MAX+1];/* full pathname to file */
char *eval_form = NULL; /* form to evaluate with `-eval' */
＠＠ -661,14 +661,10 ＠＠
{
if (i < argc - 1 && *argv[i] == '+')
starting_line = atoi (argv[i++]);
- else
- starting_line = 1;
+
/* If the last argument is +something, treat it as a file. */
- if (i == argc)
- {
- starting_line = 1;
- --i;
- }
+ if (i == argc) --i;
+
filename_expand (fullpath, argv[i]);
#ifdef INTERNET_DOMAIN_SOCKETS
path = (char *) malloc (strlen (remotepath) + strlen (fullpath) + 1);
＠＠ -676,7 +672,12 ＠＠
#else
path = my_strdup (fullpath);
#endif
- sprintf (command, "(%d . %s)", starting_line, clean_string (path));
+ if ( starting_line ) {
+ sprintf (command, "(%d . %s)", starting_line, clean_string (path));
+ } else {
+ sprintf (command, "(nil . %s)", clean_string (path));
+ }
+
send_string (s, command);
free (path);
} /* for */
diff -r 0cc9d22c3732 -r 15c42a3f4065 lisp/ChangeLog
--- a/lisp/ChangeLog Thu Aug 27 15:18:51 2009 +0100
+++ b/lisp/ChangeLog Sat Aug 29 22:37:50 2009 +0800
＠＠ -22,6 +22,11 ＠＠
* faces.el (xpm-color-symbols):
Call (featurep 'x) when faces.elc is dumped, not repeatedly
(myriad times) at image instantiation time.
+
+2009-08-15 It's me FKtPp ;) <m_pupil(a)yahoo.com.cn>
+
+ * gnuserv.el (gnuserv-edit-files): Don't run goto line if the
+ gnuclient request to open a file only (a linenumber of nil).
2009-08-14 Aidan Kehoe <kehoea(a)parhasard.net>
diff -r 0cc9d22c3732 -r 15c42a3f4065 lisp/gnuserv.el
--- a/lisp/gnuserv.el Thu Aug 27 15:18:51 2009 +0100
+++ b/lisp/gnuserv.el Sat Aug 29 22:37:50 2009 +0800
＠＠ -481,7 +481,7 ＠＠
gnuserv-view-file-function
gnuserv-find-file-function)
path)
- (goto-line line)
+ (when line (goto-line line))
;; Don't memorize the quick and view buffers.
(unless (or quick view)
(pushnew (current-buffer) (gnuclient-buffers client))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[COMMIT] Be more reliable about loading cl-macs at byte-compile time, cl.el.
15 years, 4 months
Aidan Kehoe
APPROVE COMMIT
NOTE: This patch has been committed.
# HG changeset patch
# User Aidan Kehoe <kehoea(a)parhasard.net>
# Date 1251382731 -3600
# Node ID 0cc9d22c37322804af2fbb5dd4b3e8d37ac911d3
# Parent 648f4a0dac3ed2748ec5c817ea8c282408c8cdcf
Be more reliable about loading cl-macs at byte-compile time, cl.el.
lisp/ChangeLog addition:
2009-08-27 Aidan Kehoe <kehoea(a)parhasard.net>
* cl.el (bytecomp-load-hook): New.
* bytecomp.el (bytecomp-load-hook): Use id.
Merge Dave Love's 2000-02-02 GNU (GPLv2) change, forcing the
byte-compiler to be more consistent about loading cl-macs at
compile time.
diff -r 648f4a0dac3e -r 0cc9d22c3732 lisp/ChangeLog
--- a/lisp/ChangeLog Mon Aug 24 15:21:21 2009 -0600
+++ b/lisp/ChangeLog Thu Aug 27 15:18:51 2009 +0100
＠＠ -1,3 +1,11 ＠＠
+2009-08-27 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * cl.el (bytecomp-load-hook): New.
+ * bytecomp.el (bytecomp-load-hook): Use id.
+ Merge Dave Love's 2000-02-02 GNU (GPLv2) change, forcing the
+ byte-compiler to be more consistent about loading cl-macs at
+ compile time.
+
2009-08-19 Malcolm Purvis <malcolmp(a)xemacs.org>
* simple.el:
diff -r 648f4a0dac3e -r 0cc9d22c3732 lisp/bytecomp.el
--- a/lisp/bytecomp.el Mon Aug 24 15:21:21 2009 -0600
+++ b/lisp/bytecomp.el Thu Aug 27 15:18:51 2009 +0100
＠＠ -4526,4 +4526,6 ＠＠
byte-compile-variable-ref))))
nil)
+(run-hooks 'bytecomp-load-hook)
+
;;; bytecomp.el ends here
diff -r 648f4a0dac3e -r 0cc9d22c3732 lisp/cl.el
--- a/lisp/cl.el Mon Aug 24 15:21:21 2009 -0600
+++ b/lisp/cl.el Thu Aug 27 15:18:51 2009 +0100
＠＠ -705,15 +705,8 ＠＠
;;; Try it now in case the compiler has already been loaded.
(cl-hack-byte-compiler)
-;;; Also make a hook in case compiler is loaded after this file.
-;;; The compiler doesn't call any hooks when it loads or runs, but
-;;; we can take advantage of the fact that emacs-lisp-mode will be
-;;; called when the compiler reads in the file to be compiled.
-;;; BUG: If the first compilation is `byte-compile' rather than
-;;; `byte-compile-file', we lose. Emacs has fixed this by hanging it
-;;; on `bytecomp-load-hook' instead, which we do not have.
-(add-hook 'emacs-lisp-mode-hook 'cl-hack-byte-compiler)
-
+;;; Also make a hook in case compiler is loaded after this file.
+(add-hook 'bytecomp-load-hook 'cl-hack-byte-compiler)
;;; The following ensures that packages which expect the old-style cl.el
;;; will be happy with this one.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Be more reliable about loading cl-macs at byte-compile time, cl.el.
15 years, 4 months
Aidan Kehoe
changeset: 4683:0cc9d22c3732
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Thu Aug 27 15:18:51 2009 +0100
files: lisp/ChangeLog lisp/bytecomp.el lisp/cl.el
description:
Be more reliable about loading cl-macs at byte-compile time, cl.el.
lisp/ChangeLog addition:
2009-08-27 Aidan Kehoe <kehoea(a)parhasard.net>
* cl.el (bytecomp-load-hook): New.
* bytecomp.el (bytecomp-load-hook): Use id.
Merge Dave Love's 2000-02-02 GNU (GPLv2) change, forcing the
byte-compiler to be more consistent about loading cl-macs at
compile time.
diff -r 648f4a0dac3e -r 0cc9d22c3732 lisp/ChangeLog
--- a/lisp/ChangeLog Mon Aug 24 15:21:21 2009 -0600
+++ b/lisp/ChangeLog Thu Aug 27 15:18:51 2009 +0100
＠＠ -1,3 +1,11 ＠＠
+2009-08-27 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * cl.el (bytecomp-load-hook): New.
+ * bytecomp.el (bytecomp-load-hook): Use id.
+ Merge Dave Love's 2000-02-02 GNU (GPLv2) change, forcing the
+ byte-compiler to be more consistent about loading cl-macs at
+ compile time.
+
2009-08-19 Malcolm Purvis <malcolmp(a)xemacs.org>
* simple.el:
diff -r 648f4a0dac3e -r 0cc9d22c3732 lisp/bytecomp.el
--- a/lisp/bytecomp.el Mon Aug 24 15:21:21 2009 -0600
+++ b/lisp/bytecomp.el Thu Aug 27 15:18:51 2009 +0100
＠＠ -4526,4 +4526,6 ＠＠
byte-compile-variable-ref))))
nil)
+(run-hooks 'bytecomp-load-hook)
+
;;; bytecomp.el ends here
diff -r 648f4a0dac3e -r 0cc9d22c3732 lisp/cl.el
--- a/lisp/cl.el Mon Aug 24 15:21:21 2009 -0600
+++ b/lisp/cl.el Thu Aug 27 15:18:51 2009 +0100
＠＠ -705,15 +705,8 ＠＠
;;; Try it now in case the compiler has already been loaded.
(cl-hack-byte-compiler)
-;;; Also make a hook in case compiler is loaded after this file.
-;;; The compiler doesn't call any hooks when it loads or runs, but
-;;; we can take advantage of the fact that emacs-lisp-mode will be
-;;; called when the compiler reads in the file to be compiled.
-;;; BUG: If the first compilation is `byte-compile' rather than
-;;; `byte-compile-file', we lose. Emacs has fixed this by hanging it
-;;; on `bytecomp-load-hook' instead, which we do not have.
-(add-hook 'emacs-lisp-mode-hook 'cl-hack-byte-compiler)
-
+;;; Also make a hook in case compiler is loaded after this file.
+(add-hook 'bytecomp-load-hook 'cl-hack-byte-compiler)
;;; The following ensures that packages which expect the old-style cl.el
;;; will be happy with this one.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Re: commit: Prevent integer overflow and subsequent crashes when attempting to load large
15 years, 4 months
Vin Shelton
Jerry -
On Mon, Aug 24, 2009 at 12:32 PM, Jerry James<james(a)xemacs.org> wrote:
> On Wed, Jul 15, 2009 at 9:16 AM, Vin Shelton<acs(a)alumni.princeton.edu> wrote:
>> malloc takes a size_t. Here are the sizes of the respective types:
>>
>> sizeof(int) = 4
>> sizeof(long) = 4
>> sizeof(size_t) = 4
>
> Sorry to take so long with this. My 2 week vacation put me so far
> behind at work that it's taken me awhile to get around to all the bug
> reports that piled up for me while I was gone. It's a good thing I
> was able to relax for 2 weeks first! (NB: I had 4 children with me on
> vacation, which should tell you something about how much relaxing I
> got to do.)
>
> We need to deal with two issues. First is the missing (U)INT_64_BIT
> definition. Thanks for the pointer, Aidan. From looking at that, as
> well as a few other remarks about __int64 located with Google, it
> appears that this issue affects 32-bit Windows platforms exclusively.
> I think we can probably get away with just checking for __WIN32__,
> rather than piling on check after check for particular compilers on
> that platform.
>
> Second is the warning. Since we already check that the results of the
> image size calculation fit into a size_t, the only real problem here
> is that I forgot to cast to a size_t in one place.
>
> So I think this patch fixes both issues. Can somebody try it and tell
> me yea or nay?
Thanks for investigating. I tried your latest patch and found that I
had to change __WIN32__ to WIN32_NATIVE (in src/lisp.h) or else I got:
src\xemacs-21.5-test-2009-08-24\src\glyphs-eimage.c(412): error
C2065: 'UINT_64_BIT' : undeclared identifier
src\xemacs-21.5-test-2009-08-24\src\glyphs-eimage.c(412): error
C2146: syntax error : missing ';' before identifier 'pixels_sq'
....
- Vin
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Re: commit: Prevent integer overflow and subsequent crashes when attempting to load large
15 years, 4 months
Aidan Kehoe
Ar an ceathrú lá is fiche de mí Lúnasa, scríobh Jerry James:
> On Mon, Aug 24, 2009 at 2:51 PM, Aidan Kehoe<kehoea(a)parhasard.net> wrote:
>
> > Yea on the first bit; I haven’t gone to the trouble of creating a corrupt
> > TIFF image that would trigger the second, please post one if you have it
> > around.
>
> Well, what I did was create a *real* TIFF image that was > 4GB. I
> don't think I'll post it. :-)
Probably for the best! You could post the first 8k of it, though, that
should cover the header comfortably.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Fix build problems on WIN32 platforms caused by the large image crash fix.
15 years, 4 months
Jerry James
changeset: 4682:648f4a0dac3e
tag: tip
user: Jerry James <james(a)xemacs.org>
date: Mon Aug 24 15:21:21 2009 -0600
files: src/ChangeLog src/glyphs-eimage.c src/lisp.h
description:
Fix build problems on WIN32 platforms caused by the large image crash fix.
See the thread on xemacs-patches(a)xemacs.org beginning with message
<20a807210907081256y6c02f4bbv72d34c9f3c72ab02(a)mail.gmail.com>.
diff -r 64ac4337298b -r 648f4a0dac3e src/ChangeLog
--- a/src/ChangeLog Wed Aug 19 23:06:32 2009 +1000
+++ b/src/ChangeLog Mon Aug 24 15:21:21 2009 -0600
＠＠ -1,3 +1,10 ＠＠
+2009-08-24 Jerry James <james(a)xemacs.org>
+
+ * lisp.h (INT_64_BIT): define as __int64 on WIN32.
+ * glyphs-eimage.c (tiff_instantiate): cast argument of
+ xnew_binbytes to size_t (guaranteed to fit because of immediately
+ preceding check).
+
2009-08-11 Aidan Kehoe <kehoea(a)parhasard.net>
* floatfns.c (ROUNDING_CONVERT, CONVERT_WITH_NUMBER_TYPES)
diff -r 64ac4337298b -r 648f4a0dac3e src/glyphs-eimage.c
--- a/src/glyphs-eimage.c Wed Aug 19 23:06:32 2009 +1000
+++ b/src/glyphs-eimage.c Mon Aug 24 15:21:21 2009 -0600
＠＠ -1337,7 +1337,7 ＠＠
pixels_sq = (UINT_64_BIT) width * (UINT_64_BIT) height;
if (pixels_sq >= 1 << 29)
signal_image_error ("TIFF image too large to instantiate", instantiator);
- unwind.eimage = xnew_binbytes (pixels_sq * 3);
+ unwind.eimage = xnew_binbytes ((size_t) pixels_sq * 3);
/* #### This is little more than proof-of-concept/function testing.
It needs to be reimplemented via scanline reads for both memory
diff -r 64ac4337298b -r 648f4a0dac3e src/lisp.h
--- a/src/lisp.h Wed Aug 19 23:06:32 2009 +1000
+++ b/src/lisp.h Mon Aug 24 15:21:21 2009 -0600
＠＠ -210,6 +210,10 ＠＠
#define INT_64_BIT long long
#define UINT_64_BIT unsigned long long
#define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##ULL
+#elif defined(WIN32_ANY)
+#define INT_64_BIT __int64
+#define UINT_64_BIT unsigned __int64
+#define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##UI64
/* No error otherwise; just leave undefined */
#endif
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
[AC 21.5] WIN32 fix for large image crash fix
15 years, 4 months
Jerry James
APPROVE COMMIT 21.5
This patch should fix the compilation problems introduced on WIN32
platforms by the large image crash fix. Let me know if any other
problems are encountered.
diff -r 64ac4337298b src/ChangeLog
--- a/src/ChangeLog Wed Aug 19 23:06:32 2009 +1000
+++ b/src/ChangeLog Mon Aug 24 15:16:48 2009 -0600
＠＠ -1,3 +1,10 ＠＠
+2009-08-24 Jerry James <james(a)xemacs.org>
+
+ * lisp.h (INT_64_BIT): define as __int64 on WIN32.
+ * glyphs-eimage.c (tiff_instantiate): cast argument of
+ xnew_binbytes to size_t (guaranteed to fit because of immediately
+ preceding check).
+
2009-08-11 Aidan Kehoe <kehoea(a)parhasard.net>
* floatfns.c (ROUNDING_CONVERT, CONVERT_WITH_NUMBER_TYPES)
diff -r 64ac4337298b src/glyphs-eimage.c
--- a/src/glyphs-eimage.c Wed Aug 19 23:06:32 2009 +1000
+++ b/src/glyphs-eimage.c Mon Aug 24 15:16:48 2009 -0600
＠＠ -1337,7 +1337,7 ＠＠
pixels_sq = (UINT_64_BIT) width * (UINT_64_BIT) height;
if (pixels_sq >= 1 << 29)
signal_image_error ("TIFF image too large to instantiate", instantiator);
- unwind.eimage = xnew_binbytes (pixels_sq * 3);
+ unwind.eimage = xnew_binbytes ((size_t) pixels_sq * 3);
/* #### This is little more than proof-of-concept/function testing.
It needs to be reimplemented via scanline reads for both memory
diff -r 64ac4337298b src/lisp.h
--- a/src/lisp.h Wed Aug 19 23:06:32 2009 +1000
+++ b/src/lisp.h Mon Aug 24 15:16:48 2009 -0600
＠＠ -210,6 +210,10 ＠＠
#define INT_64_BIT long long
#define UINT_64_BIT unsigned long long
#define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##ULL
+#elif defined(WIN32_ANY)
+#define INT_64_BIT __int64
+#define UINT_64_BIT unsigned __int64
+#define MAKE_64_BIT_UNSIGNED_CONSTANT(num) num##UI64
/* No error otherwise; just leave undefined */
#endif
--
Jerry James
http://www.jamezone.org/
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Re: commit: Prevent integer overflow and subsequent crashes when attempting to load large
15 years, 4 months
Aidan Kehoe
Ar an ceathrú lá is fiche de mí Lúnasa, scríobh Jerry James:
> We need to deal with two issues. First is the missing (U)INT_64_BIT
> definition. Thanks for the pointer, Aidan. From looking at that, as
> well as a few other remarks about __int64 located with Google, it
> appears that this issue affects 32-bit Windows platforms exclusively.
> I think we can probably get away with just checking for __WIN32__,
> rather than piling on check after check for particular compilers on
> that platform.
__WIN32__ isn’t defined on my particular native compiler (Visual C++ 2005
Express Edition, with Microsoft Platform SDK for Windows Server 2003 SP1). I
can use WIN32_ANY, from our include files, instead, and compilation goes
ahead successfully.
> Second is the warning. Since we already check that the results of the
> image size calculation fit into a size_t, the only real problem here
> is that I forgot to cast to a size_t in one place.
>
> So I think this patch fixes both issues. Can somebody try it and tell
> me yea or nay?
Yea on the first bit; I haven’t gone to the trouble of creating a corrupt
TIFF image that would trigger the second, please post one if you have it
around.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Implement turn-off-auto-fill.
15 years, 4 months
Malcolm Purvis
changeset: 4681:64ac4337298b
tag: tip
user: Malcolm Purvis <malcolmp(a)xemacs.org>
date: Wed Aug 19 23:06:32 2009 +1000
files: lisp/ChangeLog lisp/simple.el
description:
Implement turn-off-auto-fill.
simple.el (turn-off-auto-fill): Sync from FSF 21.4.
diff -r 891381effa11 -r 64ac4337298b lisp/ChangeLog
--- a/lisp/ChangeLog Tue Aug 18 12:34:34 2009 +0100
+++ b/lisp/ChangeLog Wed Aug 19 23:06:32 2009 +1000
＠＠ -1,3 +1,8 ＠＠
+2009-08-19 Malcolm Purvis <malcolmp(a)xemacs.org>
+
+ * simple.el:
+ * simple.el (turn-off-auto-fill): Sync from FSF 21.4.
+
2009-08-18 Aidan Kehoe <kehoea(a)parhasard.net>
* simple.el (handle-pre-motion-command-current-command-is-motion):
diff -r 891381effa11 -r 64ac4337298b lisp/simple.el
--- a/lisp/simple.el Tue Aug 18 12:34:34 2009 +0100
+++ b/lisp/simple.el Wed Aug 19 23:06:32 2009 +1000
＠＠ -3060,6 +3060,11 ＠＠
(interactive)
(auto-fill-mode 1))
+(defun turn-off-auto-fill ()
+ "Unconditionally turn off Auto Fill mode."
+ (interactive)
+ (auto-fill-mode -1))
+
(defun set-fill-column (arg)
"Set `fill-column' to specified argument.
Just \\[universal-argument] as argument means to use the current column
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches