diff options
| author | Miles Bader | 2004-06-28 07:56:49 +0000 |
|---|---|---|
| committer | Miles Bader | 2004-06-28 07:56:49 +0000 |
| commit | 327719ee8a3fcdb36ed6acaf6d8cb5fbdf0bd801 (patch) | |
| tree | 21de188e13b5e41a79bb50040933072ae0235217 /src/editfns.c | |
| parent | 852f73b7fa7b71910282eacb6263b3ecfd4ee783 (diff) | |
| parent | 376de73927383d6062483db10b8a82448505f52b (diff) | |
| download | emacs-327719ee8a3fcdb36ed6acaf6d8cb5fbdf0bd801.tar.gz emacs-327719ee8a3fcdb36ed6acaf6d8cb5fbdf0bd801.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-218
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-220
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-221
Restore deleted tagline in etc/TUTORIAL.ru
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-222
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-228
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-229
Remove TeX output files from the archive
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-230
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-247
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
src/lisp.h (CYCLE_CHECK): Macro moved from xfaces.c
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-249
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-256
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-258
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-263
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-264
Update from CVS: lispref/display.texi: emacs -> Emacs.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-265
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-274
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-275
Update from CVS: man/makefile.w32-in: Revert last change
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-276
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-295
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-296
Allow restarting an existing debugger session that's exited
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-297
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-299
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-300
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-327
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-328
Update from CVS: src/.gdbinit (xsymbol): Fix last change.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-329
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-344
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-345
Tweak source regexps so that building in place won't cause problems
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-346
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-351
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-352
Update from CVS: lisp/flymake.el: New file.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-353
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-361
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362
Support " [...]" style defaults in minibuffer-electric-default-mode
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-363
(read-number): Use canonical format for default in prompt.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-364
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-367
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-368
Improve display-supports-face-attributes-p on non-ttys
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-369
Rewrite face-differs-from-default-p
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Move `display-supports-face-attributes-p' entirely into C code
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-371
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-372
Simplify face-differs-from-default-p; don't consider :stipple.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-373
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
(tty_supports_face_attributes_p): Ensure attributes differ from default
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-375
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-376
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
(Fdisplay_supports_face_attributes_p): Work around bootstrapping problem
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-378
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-380
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Face merging cleanups
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-382
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-384
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-385
src/xfaces.c (push_named_merge_point): Return 0 if a cycle is detected
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-386
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-395
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-396
Tweak arch tagging to make build/install-in-place less annoying
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-397
Work around vc-arch problems when building eshell
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-398
Tweak permissions
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-399
Tweak directory permissions
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-400
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-401
More build-in-place tweaking of arch tagging
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-402
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-403
Yet more build-in-place tweaking of arch tagging
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-404
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-409
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Make sure image types are initialized for lookup too
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-411
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-416
Update from CVS
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 41 |
1 files changed, 21 insertions, 20 deletions
diff --git a/src/editfns.c b/src/editfns.c index e7a01b24b76..130dffa77de 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -73,7 +73,7 @@ static int tm_diff P_ ((struct tm *, struct tm *)); | |||
| 73 | static void find_field P_ ((Lisp_Object, Lisp_Object, Lisp_Object, int *, Lisp_Object, int *)); | 73 | static void find_field P_ ((Lisp_Object, Lisp_Object, Lisp_Object, int *, Lisp_Object, int *)); |
| 74 | static void update_buffer_properties P_ ((int, int)); | 74 | static void update_buffer_properties P_ ((int, int)); |
| 75 | static Lisp_Object region_limit P_ ((int)); | 75 | static Lisp_Object region_limit P_ ((int)); |
| 76 | static int lisp_time_argument P_ ((Lisp_Object, time_t *, int *)); | 76 | int lisp_time_argument P_ ((Lisp_Object, time_t *, int *)); |
| 77 | static size_t emacs_memftimeu P_ ((char *, size_t, const char *, | 77 | static size_t emacs_memftimeu P_ ((char *, size_t, const char *, |
| 78 | size_t, const struct tm *, int)); | 78 | size_t, const struct tm *, int)); |
| 79 | static void general_insert_function P_ ((void (*) (const unsigned char *, int), | 79 | static void general_insert_function P_ ((void (*) (const unsigned char *, int), |
| @@ -1213,7 +1213,7 @@ If POS is out of range, the value is nil. */) | |||
| 1213 | DEFUN ("user-login-name", Fuser_login_name, Suser_login_name, 0, 1, 0, | 1213 | DEFUN ("user-login-name", Fuser_login_name, Suser_login_name, 0, 1, 0, |
| 1214 | doc: /* Return the name under which the user logged in, as a string. | 1214 | doc: /* Return the name under which the user logged in, as a string. |
| 1215 | This is based on the effective uid, not the real uid. | 1215 | This is based on the effective uid, not the real uid. |
| 1216 | Also, if the environment variable LOGNAME or USER is set, | 1216 | Also, if the environment variables LOGNAME or USER are set, |
| 1217 | that determines the value of this function. | 1217 | that determines the value of this function. |
| 1218 | 1218 | ||
| 1219 | If optional argument UID is an integer, return the login name of the user | 1219 | If optional argument UID is an integer, return the login name of the user |
| @@ -1372,7 +1372,7 @@ resolution finer than a second. */) | |||
| 1372 | } | 1372 | } |
| 1373 | 1373 | ||
| 1374 | 1374 | ||
| 1375 | static int | 1375 | int |
| 1376 | lisp_time_argument (specified_time, result, usec) | 1376 | lisp_time_argument (specified_time, result, usec) |
| 1377 | Lisp_Object specified_time; | 1377 | Lisp_Object specified_time; |
| 1378 | time_t *result; | 1378 | time_t *result; |
| @@ -1425,7 +1425,7 @@ lisp_time_argument (specified_time, result, usec) | |||
| 1425 | 1425 | ||
| 1426 | DEFUN ("float-time", Ffloat_time, Sfloat_time, 0, 1, 0, | 1426 | DEFUN ("float-time", Ffloat_time, Sfloat_time, 0, 1, 0, |
| 1427 | doc: /* Return the current time, as a float number of seconds since the epoch. | 1427 | doc: /* Return the current time, as a float number of seconds since the epoch. |
| 1428 | If an argument is given, it specifies a time to convert to float | 1428 | If SPECIFIED-TIME is given, it is the time to convert to float |
| 1429 | instead of the current time. The argument should have the forms: | 1429 | instead of the current time. The argument should have the forms: |
| 1430 | (HIGH . LOW) or (HIGH LOW USEC) or (HIGH LOW . USEC). | 1430 | (HIGH . LOW) or (HIGH LOW USEC) or (HIGH LOW . USEC). |
| 1431 | Thus, you can use times obtained from `current-time' | 1431 | Thus, you can use times obtained from `current-time' |
| @@ -1655,7 +1655,7 @@ are used as SECOND through YEAR, and the *last* argument is used as ZONE. | |||
| 1655 | The intervening arguments are ignored. | 1655 | The intervening arguments are ignored. |
| 1656 | This feature lets (apply 'encode-time (decode-time ...)) work. | 1656 | This feature lets (apply 'encode-time (decode-time ...)) work. |
| 1657 | 1657 | ||
| 1658 | Out-of-range values for SEC, MINUTE, HOUR, DAY, or MONTH are allowed; | 1658 | Out-of-range values for SECOND, MINUTE, HOUR, DAY, or MONTH are allowed; |
| 1659 | for example, a DAY of 0 means the day preceding the given month. | 1659 | for example, a DAY of 0 means the day preceding the given month. |
| 1660 | Year numbers less than 100 are treated just like other year numbers. | 1660 | Year numbers less than 100 are treated just like other year numbers. |
| 1661 | If you want them to stand for years in this century, you must do that yourself. | 1661 | If you want them to stand for years in this century, you must do that yourself. |
| @@ -1740,8 +1740,8 @@ The format is `Sun Sep 16 01:03:52 1973'. | |||
| 1740 | However, see also the functions `decode-time' and `format-time-string' | 1740 | However, see also the functions `decode-time' and `format-time-string' |
| 1741 | which provide a much more powerful and general facility. | 1741 | which provide a much more powerful and general facility. |
| 1742 | 1742 | ||
| 1743 | If an argument is given, it specifies a time to format | 1743 | If SPECIFIED-TIME is given, it is a time to format instead |
| 1744 | instead of the current time. The argument should have the form: | 1744 | of the current time. The argument should have the form: |
| 1745 | (HIGH . LOW) | 1745 | (HIGH . LOW) |
| 1746 | or the form: | 1746 | or the form: |
| 1747 | (HIGH LOW . IGNORED). | 1747 | (HIGH LOW . IGNORED). |
| @@ -1796,7 +1796,7 @@ This returns a list of the form (OFFSET NAME). | |||
| 1796 | OFFSET is an integer number of seconds ahead of UTC (east of Greenwich). | 1796 | OFFSET is an integer number of seconds ahead of UTC (east of Greenwich). |
| 1797 | A negative value means west of Greenwich. | 1797 | A negative value means west of Greenwich. |
| 1798 | NAME is a string giving the name of the time zone. | 1798 | NAME is a string giving the name of the time zone. |
| 1799 | If an argument is given, it specifies when the time zone offset is determined | 1799 | If SPECIFIED-TIME is given, the time zone offset is determined from it |
| 1800 | instead of using the current time. The argument should have the form: | 1800 | instead of using the current time. The argument should have the form: |
| 1801 | (HIGH . LOW) | 1801 | (HIGH . LOW) |
| 1802 | or the form: | 1802 | or the form: |
| @@ -2365,21 +2365,21 @@ of the buffer. */) | |||
| 2365 | 2365 | ||
| 2366 | DEFUN ("insert-buffer-substring", Finsert_buffer_substring, Sinsert_buffer_substring, | 2366 | DEFUN ("insert-buffer-substring", Finsert_buffer_substring, Sinsert_buffer_substring, |
| 2367 | 1, 3, 0, | 2367 | 1, 3, 0, |
| 2368 | doc: /* Insert before point a substring of the contents of buffer BUFFER. | 2368 | doc: /* Insert before point a substring of the contents of BUFFER. |
| 2369 | BUFFER may be a buffer or a buffer name. | 2369 | BUFFER may be a buffer or a buffer name. |
| 2370 | Arguments START and END are character numbers specifying the substring. | 2370 | Arguments START and END are character positions specifying the substring. |
| 2371 | They default to the beginning and the end of BUFFER. */) | 2371 | They default to the values of (point-min) and (point-max) in BUFFER. */) |
| 2372 | (buf, start, end) | 2372 | (buffer, start, end) |
| 2373 | Lisp_Object buf, start, end; | 2373 | Lisp_Object buffer, start, end; |
| 2374 | { | 2374 | { |
| 2375 | register int b, e, temp; | 2375 | register int b, e, temp; |
| 2376 | register struct buffer *bp, *obuf; | 2376 | register struct buffer *bp, *obuf; |
| 2377 | Lisp_Object buffer; | 2377 | Lisp_Object buf; |
| 2378 | 2378 | ||
| 2379 | buffer = Fget_buffer (buf); | 2379 | buf = Fget_buffer (buffer); |
| 2380 | if (NILP (buffer)) | 2380 | if (NILP (buf)) |
| 2381 | nsberror (buf); | 2381 | nsberror (buffer); |
| 2382 | bp = XBUFFER (buffer); | 2382 | bp = XBUFFER (buf); |
| 2383 | if (NILP (bp->name)) | 2383 | if (NILP (bp->name)) |
| 2384 | error ("Selecting deleted buffer"); | 2384 | error ("Selecting deleted buffer"); |
| 2385 | 2385 | ||
| @@ -2983,6 +2983,7 @@ It returns the number of characters changed. */) | |||
| 2983 | 2983 | ||
| 2984 | DEFUN ("delete-region", Fdelete_region, Sdelete_region, 2, 2, "r", | 2984 | DEFUN ("delete-region", Fdelete_region, Sdelete_region, 2, 2, "r", |
| 2985 | doc: /* Delete the text between point and mark. | 2985 | doc: /* Delete the text between point and mark. |
| 2986 | |||
| 2986 | When called from a program, expects two arguments, | 2987 | When called from a program, expects two arguments, |
| 2987 | positions (integers or markers) specifying the stretch to be deleted. */) | 2988 | positions (integers or markers) specifying the stretch to be deleted. */) |
| 2988 | (start, end) | 2989 | (start, end) |
| @@ -4043,11 +4044,11 @@ transpose_markers (start1, end1, start2, end2, | |||
| 4043 | } | 4044 | } |
| 4044 | 4045 | ||
| 4045 | DEFUN ("transpose-regions", Ftranspose_regions, Stranspose_regions, 4, 5, 0, | 4046 | DEFUN ("transpose-regions", Ftranspose_regions, Stranspose_regions, 4, 5, 0, |
| 4046 | doc: /* Transpose region START1 to END1 with START2 to END2. | 4047 | doc: /* Transpose region STARTR1 to ENDR1 with STARTR2 to ENDR2. |
| 4047 | The regions may not be overlapping, because the size of the buffer is | 4048 | The regions may not be overlapping, because the size of the buffer is |
| 4048 | never changed in a transposition. | 4049 | never changed in a transposition. |
| 4049 | 4050 | ||
| 4050 | Optional fifth arg LEAVE_MARKERS, if non-nil, means don't update | 4051 | Optional fifth arg LEAVE-MARKERS, if non-nil, means don't update |
| 4051 | any markers that happen to be located in the regions. | 4052 | any markers that happen to be located in the regions. |
| 4052 | 4053 | ||
| 4053 | Transposing beyond buffer boundaries is an error. */) | 4054 | Transposing beyond buffer boundaries is an error. */) |