From a8490886432cc6e7168cf2e0afa0e2b6f23cd756 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 5 Nov 2004 22:45:54 +0000 Subject: [PATCH 01/31] *** empty log message *** --- src/ChangeLog | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index a38c3f7baeb..0ff6571f4e5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2004-11-05 Kim F. Storm + * print.c (print_object): Print Lisp_Misc_Save_Value objects. + * fileio.c (Ffile_modes): Doc fix. (auto_save_1): Check for Ffile_modes nil value. From c069fee4e7b565b51ca86de766d12e67424de338 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 5 Nov 2004 22:46:17 +0000 Subject: [PATCH 02/31] (print_object): Print Lisp_Misc_Save_Value objects. --- src/print.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/print.c b/src/print.c index 5a0f7fe6220..76c648b9a2e 100644 --- a/src/print.c +++ b/src/print.c @@ -2085,6 +2085,15 @@ print_object (obj, printcharfun, escapeflag) PRINTCHAR ('>'); break; + case Lisp_Misc_Save_Value: + strout ("#pointer, + XSAVE_VALUE (obj)->integer); + strout (buf, -1, -1, printcharfun, 0); + PRINTCHAR ('>'); + break; + default: goto badtype; } From 6cf374b13fbb2afc2e9dc2525a10d443aeba0d78 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 5 Nov 2004 22:46:28 +0000 Subject: [PATCH 03/31] (syms_of_macros) : Doc fix. --- src/macros.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/macros.c b/src/macros.c index d0219a3be04..09ae87b0a59 100644 --- a/src/macros.c +++ b/src/macros.c @@ -392,7 +392,9 @@ syms_of_macros () defsubr (&Sstore_kbd_macro_event); DEFVAR_KBOARD ("defining-kbd-macro", defining_kbd_macro, - doc: /* Non-nil while a keyboard macro is being defined. Don't set this! */); + doc: /* Non-nil while a keyboard macro is being defined. Don't set this! +The value is the symbol `append' while appending to the definition of +an existing macro. */); DEFVAR_LISP ("executing-macro", &Vexecuting_macro, doc: /* Currently executing keyboard macro (string or vector); nil if none executing. */); From f9597b5b7fd56942bc7026cee966d14938a626dd Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 5 Nov 2004 23:37:44 +0000 Subject: [PATCH 04/31] (Keyboard Macros): Document `append' return value of `defining-kbd-macro'. --- lispref/commands.texi | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lispref/commands.texi b/lispref/commands.texi index 3c9612e5186..0144123ecb5 100644 --- a/lispref/commands.texi +++ b/lispref/commands.texi @@ -420,7 +420,7 @@ the string.) Other characters that normally terminate a symbol (e.g., parentheses and brackets) do not do so here. Prompt. @item U -A key sequence or nil. May be used after a @code{k} or @code{K} +A key sequence or @code{nil}. May be used after a @code{k} or @code{K} argument to get the up-event that was discarded in case the key sequence read for that argument was a down-event. No I/O. @@ -3023,9 +3023,10 @@ yourself. @defvar defining-kbd-macro This variable is non-@code{nil} if and only if a keyboard macro is being defined. A command can test this variable so as to behave -differently while a macro is being defined. The commands -@code{start-kbd-macro} and @code{end-kbd-macro} set this variable---do -not set it yourself. +differently while a macro is being defined. The value is +@code{append} while appending to the definition of an existing macro. +The commands @code{start-kbd-macro}, @code{kmacro-start-macro} and +@code{end-kbd-macro} set this variable---do not set it yourself. The variable is always local to the current terminal and cannot be buffer-local. @xref{Multiple Displays}. From 4cc8522cb99607acbc8b9e8998bff5b1a141d768 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Fri, 5 Nov 2004 23:41:56 +0000 Subject: [PATCH 05/31] *** empty log message *** --- lispref/ChangeLog | 5 +++++ src/ChangeLog | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index d1bb65d3358..99fb42381b3 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,8 @@ +2004-11-05 Luc Teirlinck + + * commands.texi (Keyboard Macros): Document `append' return value + of `defining-kbd-macro'. + 2004-11-01 Richard M. Stallman * commands.texi (Interactive Call): Add called-interactively-p. diff --git a/src/ChangeLog b/src/ChangeLog index 0ff6571f4e5..df1424566e0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2004-11-05 Luc Teirlinck + + * macros.c (syms_of_macros) : Doc fix. + 2004-11-05 Kim F. Storm * print.c (print_object): Print Lisp_Misc_Save_Value objects. From df470e3b0bd5b8cf6922197dddb69b64816638c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Dj=C3=A4rv?= Date: Sat, 6 Nov 2004 07:47:27 +0000 Subject: [PATCH 06/31] * eval.c (Feval): Remove check for INPUT_BLOCKED_P. * xmenu.c (popup_get_selection, create_and_show_popup_menu) (create_and_show_dialog): Revert change from 2004-10-31. --- src/ChangeLog | 8 ++++++++ src/eval.c | 2 +- src/xmenu.c | 23 +++++++++++++---------- 3 files changed, 22 insertions(+), 11 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index df1424566e0..e633c8e00d6 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,11 @@ +2004-11-06 Jan Dj,Ad(Brv + + * eval.c (Feval): Remove check for INPUT_BLOCKED_P. + + * xmenu.c (popup_get_selection, create_and_show_popup_menu) + (create_and_show_dialog): Revert change from 2004-10-31. + + 2004-11-05 Luc Teirlinck * macros.c (syms_of_macros) : Doc fix. diff --git a/src/eval.c b/src/eval.c index 5fb35cee58b..d1d5d195762 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1996,7 +1996,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0, struct backtrace backtrace; struct gcpro gcpro1, gcpro2, gcpro3; - if (handling_signal || INPUT_BLOCKED_P) + if (handling_signal) abort (); if (SYMBOLP (form)) diff --git a/src/xmenu.c b/src/xmenu.c index d47c1767c31..9868902f3f3 100644 --- a/src/xmenu.c +++ b/src/xmenu.c @@ -115,7 +115,7 @@ extern XtAppContext Xt_app_con; static Lisp_Object xdialog_show P_ ((FRAME_PTR, int, Lisp_Object, char **)); static void popup_get_selection P_ ((XEvent *, struct x_display_info *, - LWLIB_ID, int)); + LWLIB_ID, int, int)); /* Define HAVE_BOXES if menus can handle radio and toggle buttons. */ @@ -157,6 +157,8 @@ static void single_keymap_panes P_ ((Lisp_Object, Lisp_Object, Lisp_Object, static void list_of_panes P_ ((Lisp_Object)); static void list_of_items P_ ((Lisp_Object)); +extern EMACS_TIME timer_check P_ ((int)); + /* This holds a Lisp vector that holds the results of decoding the keymaps or alist-of-alists that specify a menu. @@ -1122,27 +1124,27 @@ on the left of the dialog box and all following items on the right. If DOWN_ON_KEYPRESS is nonzero, pop down if a key is pressed. - This function used to have a DO_TIMERS argument which was - 1 in the dialog case, and caused it to run Lisp-level timers. - That was unsafe so we removed it, but does anyone remember - why menus and dialogs were treated differently? - NOTE: All calls to popup_get_selection should be protected with BLOCK_INPUT, UNBLOCK_INPUT wrappers. */ #ifdef USE_X_TOOLKIT static void -popup_get_selection (initial_event, dpyinfo, id, down_on_keypress) +popup_get_selection (initial_event, dpyinfo, id, do_timers, down_on_keypress) XEvent *initial_event; struct x_display_info *dpyinfo; LWLIB_ID id; + int do_timers; int down_on_keypress; { XEvent event; while (popup_activated_flag) { - if (initial_event) + /* If we have no events to run, consider timers. */ + if (do_timers && !XtAppPending (Xt_app_con)) + timer_check (1); + + if (initial_event) { event = *initial_event; initial_event = 0; @@ -2488,7 +2490,7 @@ create_and_show_popup_menu (f, first_wv, x, y, for_click) popup_activated_flag = 1; /* Process events that apply to the menu. */ - popup_get_selection ((XEvent *) 0, FRAME_X_DISPLAY_INFO (f), menu_id, 0); + popup_get_selection ((XEvent *) 0, FRAME_X_DISPLAY_INFO (f), menu_id, 0, 0); /* fp turned off the following statement and wrote a comment that it is unnecessary--that the menu has already disappeared. @@ -2882,7 +2884,8 @@ create_and_show_dialog (f, first_wv) Fcons (make_number (dialog_id >> (fact)), make_number (dialog_id & ~(-1 << (fact))))); - popup_get_selection ((XEvent *) 0, FRAME_X_DISPLAY_INFO (f), dialog_id, 1); + popup_get_selection ((XEvent *) 0, FRAME_X_DISPLAY_INFO (f), + dialog_id, 1, 1); unbind_to (count, Qnil); } From 242399cd0380fc0ddafd7853a08336d0982e8401 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 6 Nov 2004 10:01:56 +0000 Subject: [PATCH 07/31] (easy-menu-get-map-look-for-name): Remove. (easy-menu-lookup-name): New fun to replace it. (easy-menu-get-map): Use it to obey menu item names (rather than just keys) when looking up `path'. (easy-menu-always-true-p): Rename from easy-menu-always-true. (easy-menu-convert-item-1): Adjust to new name. --- lisp/emacs-lisp/easymenu.el | 73 ++++++++++++++++++++++--------------- 1 file changed, 44 insertions(+), 29 deletions(-) diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index e039b80aee5..91de4e670f7 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -242,9 +242,9 @@ possibly preceded by keyword pairs as described in `easy-menu-define'." (setq visible (or arg ''nil))))) (if (equal visible ''nil) nil ; Invisible menu entry, return nil. - (if (and visible (not (easy-menu-always-true visible))) + (if (and visible (not (easy-menu-always-true-p visible))) (setq prop (cons :visible (cons visible prop)))) - (if (and enable (not (easy-menu-always-true enable))) + (if (and enable (not (easy-menu-always-true-p enable))) (setq prop (cons :enable (cons enable prop)))) (if filter (setq prop (cons :filter (cons filter prop)))) (if help (setq prop (cons :help (cons help prop)))) @@ -363,12 +363,12 @@ ITEM defines an item as in `easy-menu-define'." (cons cmd keys)))) (setq cache-specified nil)) (if keys (setq prop (cons :keys (cons keys prop))))) - (if (and visible (not (easy-menu-always-true visible))) + (if (and visible (not (easy-menu-always-true-p visible))) (if (equal visible ''nil) ;; Invisible menu item. Don't insert into keymap. (setq remove t) (setq prop (cons :visible (cons visible prop))))))) - (if (and active (not (easy-menu-always-true active))) + (if (and active (not (easy-menu-always-true-p active))) (setq prop (cons :enable (cons active prop)))) (if (and (or no-name cache-specified) (or (null cache) (stringp cache) (vectorp cache))) @@ -426,7 +426,8 @@ KEY does not have to be a symbol, and comparison is done with equal." (defun easy-menu-name-match (name item) "Return t if NAME is the name of menu item ITEM. -NAME can be either a string, or a symbol." +NAME can be either a string, or a symbol. +ITEM should be a keymap binding of the form (KEY . MENU-ITEM)." (if (consp item) (if (symbolp name) (eq (car-safe item) name) @@ -439,7 +440,7 @@ NAME can be either a string, or a symbol." (eq (car-safe item) (intern name)) (eq (car-safe item) (easy-menu-intern name))))))) -(defun easy-menu-always-true (x) +(defun easy-menu-always-true-p (x) "Return true if form X never evaluates to nil." (if (consp x) (and (eq (car x) 'quote) (cadr x)) (or (eq x t) (not (symbolp x))))) @@ -591,10 +592,24 @@ If item is an old format item, a new format item is returned." (cons name item)) ; Keymap or new menu format ))) -(defun easy-menu-get-map-look-for-name (name submap) - (while (and submap (not (easy-menu-name-match name (car submap)))) - (setq submap (cdr submap))) - submap) +(defun easy-menu-lookup-name (map name) + "Lookup menu item NAME in keymap MAP. +Like `lookup-key' except that NAME is not an array but just a single key +and that NAME can be a string representing the menu item's name." + (or (lookup-key map (vector (easy-menu-intern name))) + (when (stringp name) + ;; `lookup-key' failed and we have a menu item name: look at the + ;; actual menu entries's names. + (catch 'found + (map-keymap (lambda (key item) + (if (condition-case nil (member name item) + (error nil)) + ;; Found it!! Look for it again with + ;; `lookup-key' so as to handle inheritance and + ;; to extract the actual command/keymap bound to + ;; `name' from the item (via get_keyelt). + (throw 'found (lookup-key map (vector key))))) + map))))) (defun easy-menu-get-map (map path &optional to-modify) "Return a sparse keymap in which to add or remove an item. @@ -605,34 +620,34 @@ wants to modify in the map that we return. In some cases we use that to select between the local and global maps." (setq map (catch 'found - (let* ((key (vconcat (unless map '(menu-bar)) - (mapcar 'easy-menu-intern path))) - (maps (mapcar (lambda (map) - (setq map (lookup-key map key)) - (while (and (symbolp map) (keymapp map)) - (setq map (symbol-function map))) - map) - (if map - (list (if (and (symbolp map) - (not (keymapp map))) - (symbol-value map) map)) - (current-active-maps))))) + (if (and map (symbolp map) (not (keymapp map))) + (setq map (symbol-value map))) + (let ((maps (or map (current-active-maps)))) + ;; Look for PATH in each map. + (unless map (push 'menu-bar path)) + (dolist (name path) + (setq maps + (delq nil (mapcar (lambda (map) + (setq map (easy-menu-lookup-name + map name)) + (and (keymapp map) map)) + maps)))) + ;; Prefer a map that already contains the to-be-modified entry. (when to-modify (dolist (map maps) - (when (and (keymapp map) - (easy-menu-get-map-look-for-name to-modify map)) + (when (easy-menu-lookup-name map to-modify) (throw 'found map)))) ;; Use the first valid map. - (dolist (map maps) - (when (keymapp map) - (throw 'found map))) + (when maps (throw 'found (car maps))) + ;; Otherwise, make one up. ;; Hardcoding current-local-map is lame, but it's difficult ;; to know what the caller intended for us to do ;-( (let* ((name (if path (format "%s" (car (reverse path))))) (newmap (make-sparse-keymap name))) - (define-key (or map (current-local-map)) key + (define-key (or map (current-local-map)) + (apply 'vector (mapcar 'easy-menu-intern path)) (if name (cons name newmap) newmap)) newmap)))) (or (keymapp map) (error "Malformed menu in easy-menu: (%s)" map)) @@ -640,5 +655,5 @@ In some cases we use that to select between the local and global maps." (provide 'easymenu) -;;; arch-tag: 2a04020d-90d2-476d-a7c6-71e072007a4a +;; arch-tag: 2a04020d-90d2-476d-a7c6-71e072007a4a ;;; easymenu.el ends here From 16d24ae8cfd08d570201479cb2f3b43ab8d674d4 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 11:28:42 +0000 Subject: [PATCH 08/31] (tempo-match-finder): Use [:word:] instead of "^\\b", to solve a bug whereby tags with 'b' don't match. --- lisp/ChangeLog | 5 +++++ lisp/tempo.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e55dcd6270..f3b2b82da1e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-06 David Hansen (tiny change) + + * tempo.el (tempo-match-finder): Use [:word:] instead of "^\\b", + to solve a bug whereby tags with 'b' don't match. + 2004-11-05 Juri Linkov * info.el (Info-search): Don't search in node header lines diff --git a/lisp/tempo.el b/lisp/tempo.el index 3ceb3e271f4..16b43d72430 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -172,7 +172,7 @@ documentation for the function `tempo-complete-tag' for more info. (defvar tempo-marks nil "A list of marks to jump to with `\\[tempo-forward-mark]' and `\\[tempo-backward-mark]'.") -(defvar tempo-match-finder "\\b\\([^\\b]+\\)\\=" +(defvar tempo-match-finder "\\b\\([[:word:]]+\\)\\=" "The regexp or function used to find the string to match against tags. If `tempo-match-finder is a string, it should contain a regular From 4d79b8744fb607beb5ec7b074103970d52711601 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 11:49:55 +0000 Subject: [PATCH 09/31] (insert-kbd-macro): Do completions based on macros, rather than all commands. --- lisp/ChangeLog | 5 +++++ lisp/macros.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f3b2b82da1e..07ee943054c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-06 Alan Shutko + + * macros.el (insert-kbd-macro): Do completions based on macros, + rather than all commands. + 2004-11-06 David Hansen (tiny change) * tempo.el (tempo-match-finder): Use [:word:] instead of "^\\b", diff --git a/lisp/macros.el b/lisp/macros.el index 0de5d223ee0..bb9fda41a45 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -63,7 +63,14 @@ bindings. To save a kbd macro, visit a file of Lisp code such as your `~/.emacs', use this command, and then save the file." - (interactive "CInsert kbd macro (name): \nP") + (interactive (list (intern (completing-read "Insert kbd macro (name): " + obarray + (lambda (elt) + (and (fboundp elt) + (or (stringp (symbol-function elt)) + (vectorp (symbol-function elt))))) + t)) + current-prefix-arg)) (let (definition) (if (string= (symbol-name macroname) "") (progn From 5ff00c425a07f3bef8fce9c35414df07c3a83f41 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 11:55:32 +0000 Subject: [PATCH 10/31] (syms_of_frame): Fix the example in the doc string. --- src/frame.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/frame.c b/src/frame.c index 78d803abc8d..19f23ad8cd8 100644 --- a/src/frame.c +++ b/src/frame.c @@ -4037,7 +4037,7 @@ is a reasonable practice. See also the variable `x-resource-name'. */); DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist, doc: /* Alist of default values for frame creation. These may be set in your init file, like this: - (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1)) + (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))) These override values given in window system configuration data, including X Windows' defaults database. For values specific to the first Emacs frame, see `initial-frame-alist'. From 14e32dd3390b7bd60a84c121c023c5d5c0480d99 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 12:06:18 +0000 Subject: [PATCH 11/31] (align-areas): Delete whitespace before reindenting, so that tabs are never placed after spaces. --- lisp/ChangeLog | 5 +++++ lisp/align.el | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07ee943054c..e80952a256a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-06 Paul Pogonyshev + + * align.el (align-areas): Delete whitespace before reindenting, so + that tabs are never placed after spaces. + 2004-11-06 Alan Shutko * macros.el (insert-kbd-macro): Do completions based on macros, diff --git a/lisp/align.el b/lisp/align.el index bae09d749db..5e739c8f7c0 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1212,6 +1212,14 @@ have been aligned. No changes will be made to the buffer." (cond ((< gocol 0) t) ; don't do anything ((= cur gocol) t) ; don't need to ((< cur gocol) ; just add space + ;; FIXME: It is stated above that "...the + ;; whitespace to be modified was already + ;; deleted by `align-region', all we have + ;; to do here is indent." However, this + ;; doesn't seem to be true, so we first + ;; delete the whitespace to avoid tabs + ;; after spaces. + (delete-horizontal-space t) (indent-to gocol)) (t ;; This code works around an oddity in the From 00958fa2aa6b521f820b5baf3f3fc71176af8789 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 12:10:38 +0000 Subject: [PATCH 12/31] (hide-body): Don't hide lines at the top of the file that precede the first header line. --- lisp/outline.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/outline.el b/lisp/outline.el index 2d2663b12f2..89e9e193e9c 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -723,7 +723,7 @@ Show the heading too, if it is currently invisible." (progn (outline-next-preface) (point)) nil))) (defun hide-body () - "Hide all of buffer except headings." + "Hide all body lines in buffer, leaving all headings visible." (interactive) (hide-region-body (point-min) (point-max))) @@ -738,7 +738,8 @@ Show the heading too, if it is currently invisible." (narrow-to-region start end) (goto-char (point-min)) (if (outline-on-heading-p) - (outline-end-of-heading)) + (outline-end-of-heading) + (outline-next-preface)) (while (not (eobp)) (outline-flag-region (point) (progn (outline-next-preface) (point)) t) From 27540e81513199d5d4ec300b4cffd0ae1db74af1 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 12:12:23 +0000 Subject: [PATCH 13/31] *** empty log message *** --- lisp/ChangeLog | 5 +++++ src/ChangeLog | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e80952a256a..618633a9704 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-06 Peter Heslin (tiny change) + + * outline.el (hide-body): Don't hide lines at the top of the file + that precede the first header line. + 2004-11-06 Paul Pogonyshev * align.el (align-areas): Delete whitespace before reindenting, so diff --git a/src/ChangeLog b/src/ChangeLog index e633c8e00d6..879b635d81d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2004-11-06 Eli Zaretskii + + * frame.c (syms_of_frame): Fix the example in the doc string. + 2004-11-06 Jan Dj,Ad(Brv * eval.c (Feval): Remove check for INPUT_BLOCKED_P. From 4ac3afb9e7da74550cf64bba01fe00cc183c5926 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 12:15:10 +0000 Subject: [PATCH 14/31] Document changes in behavior of hide-body. --- etc/NEWS | 3 +++ 1 file changed, 3 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index 5d08bd4d030..a5277a8cb03 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -98,6 +98,9 @@ types any more. Add -DUSE_LISP_UNION_TYPE if you want union types. * Changes in Emacs 21.4 +** In Outline mode, hide-body no longer hides lines at the top +of the file that precede the first header line. + +++ ** `set-auto-mode' now gives the interpreter magic line (if present) precedence over the file name. Likewise an Date: Sat, 6 Nov 2004 14:41:21 +0000 Subject: [PATCH 15/31] Change log entry reconstructed from commit message. --- lisp/ChangeLog | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 618633a9704..9f4fd1b78b9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2004-11-06 Stefan Monnier + + * emacs-lisp/easymenu.el (easy-menu-get-map-look-for-name): Remove. + (easy-menu-lookup-name): New fun to replace it. + (easy-menu-get-map): Use it to obey menu item names (rather than just + keys) when looking up `path'. + (easy-menu-always-true-p): Rename from easy-menu-always-true. + (easy-menu-convert-item-1): Adjust to new name. + 2004-11-06 Peter Heslin (tiny change) * outline.el (hide-body): Don't hide lines at the top of the file From cffe562a9f6b41ba541daf86af7aba1883cc1c22 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 6 Nov 2004 14:43:43 +0000 Subject: [PATCH 16/31] (easy-menu-get-map): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/easymenu.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9f4fd1b78b9..a108244d62c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-11-06 Andreas Schwab + + * emacs-lisp/easymenu.el (easy-menu-get-map): Fix last change. + 2004-11-06 Stefan Monnier * emacs-lisp/easymenu.el (easy-menu-get-map-look-for-name): Remove. diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 91de4e670f7..7b18756fd7e 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -622,7 +622,7 @@ In some cases we use that to select between the local and global maps." (catch 'found (if (and map (symbolp map) (not (keymapp map))) (setq map (symbol-value map))) - (let ((maps (or map (current-active-maps)))) + (let ((maps (if map (list map) (current-active-maps)))) ;; Look for PATH in each map. (unless map (push 'menu-bar path)) (dolist (name path) From 803a05c2fa3a05c14653fc0b8a58859c7561e866 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 6 Nov 2004 14:49:45 +0000 Subject: [PATCH 17/31] (tempo-match-finder): Doc fix. --- lisp/ChangeLog | 2 ++ lisp/tempo.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a108244d62c..634177d773d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2004-11-06 Andreas Schwab + * tempo.el (tempo-match-finder): Doc fix. + * emacs-lisp/easymenu.el (easy-menu-get-map): Fix last change. 2004-11-06 Stefan Monnier diff --git a/lisp/tempo.el b/lisp/tempo.el index 16b43d72430..43f90b64766 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -1,6 +1,6 @@ ;;; tempo.el --- Flexible template insertion -;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 2004 Free Software Foundation, Inc. ;; Author: David K}gedal ;; Created: 16 Feb 1994 @@ -182,7 +182,7 @@ the string between the first \\( and \\) is used for matching against each string in the tag list. If one is found, the whole text between the first \\( and the point is replaced with the inserted template. -You will probably want to include \\ \= at the end of the regexp to +You will probably want to include \\=\\= at the end of the regexp to make sure that the string is matched only against text adjacent to the point. From 9788e74ead69e24f19c75cbf1e67e6dde866c24c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 16:07:10 +0000 Subject: [PATCH 18/31] Don't call define-fringe-bitmap if the display doesn't support images. --- lisp/progmodes/gdb-ui.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 90c0a50c7dc..78aa6757e81 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -1077,8 +1077,9 @@ static char *magick[] = { "Icon for disabled breakpoint in display margin.") ;; Bitmap for breakpoint in fringe -(define-fringe-bitmap 'breakpoint - "\x3c\x7e\xff\xff\xff\xff\x7e\x3c") +(and (display-images-p) + (define-fringe-bitmap 'breakpoint + "\x3c\x7e\xff\xff\xff\xff\x7e\x3c")) (defface breakpoint-enabled-bitmap-face '((t From bc214b060b30eb57902165685978304f44c601c1 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 16:17:45 +0000 Subject: [PATCH 19/31] (install, maintainer-clean): Don't use "elisp-*" as it nukes elisp-cover.texi. (dist): Change elisp-[0-9] to elisp-[1-9], as there could be no elisp-0 etc. --- lispref/Makefile.in | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lispref/Makefile.in b/lispref/Makefile.in index e9d99de7d6a..252ab1aaaed 100644 --- a/lispref/Makefile.in +++ b/lispref/Makefile.in @@ -108,7 +108,7 @@ elisp.dvi: $(srcs) install: elisp $(srcdir)/mkinstalldirs $(infodir) - cp elisp elisp-* $(infodir) + cp elisp elisp-[1-9] elisp-[1-9][0-9] $(infodir) ${INSTALL_INFO} --info-dir=${infodir} ${infodir}/elisp clean: @@ -119,7 +119,7 @@ clean: distclean: clean maintainer-clean: clean - rm -f elisp elisp-* elisp.dvi elisp.oaux + rm -f elisp elisp-[1-9] elisp-[1-9][0-9] elisp.dvi elisp.oaux dist: elisp elisp.dvi -rm -rf temp @@ -128,7 +128,7 @@ dist: elisp elisp.dvi -ln $(srcdir)/README $(srcdir)/configure.in $(srcdir)/configure \ $(srcdir)/Makefile.in $(srcs) \ $(srcdir)/../man/texinfo.tex \ - elisp.dvi elisp.aux elisp.??s elisp elisp-[0-9] elisp-[0-9][0-9] \ + elisp.dvi elisp.aux elisp.??s elisp elisp-[1-9] elisp-[1-9][0-9] \ temp/$(manual) -(cd temp/$(manual); rm -f mkinstalldirs) cp $(srcdir)/mkinstalldirs temp/$(manual) From aec04d3666942eba01ad707b5bc5705f94de5f67 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 16:29:08 +0000 Subject: [PATCH 20/31] Add check for getrusage. --- configure.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/configure.in b/configure.in index 1478d4d4b5d..5a02beda097 100644 --- a/configure.in +++ b/configure.in @@ -2370,7 +2370,7 @@ AC_CHECK_FUNCS(touchlock) AC_CHECK_HEADERS(maillock.h) AC_CHECK_FUNCS(gethostname getdomainname dup2 \ -rename closedir mkdir rmdir sysinfo \ +rename closedir mkdir rmdir sysinfo getrusage \ random lrand48 bcopy bcmp logb frexp fmod rint cbrt ftime res_init setsid \ strerror fpathconf select mktime euidaccess getpagesize tzset setlocale \ utimes setrlimit setpgid getcwd getwd shutdown getaddrinfo \ From ea92fc9ff2af592661e62e388f70097559ef4f2a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 16:53:38 +0000 Subject: [PATCH 21/31] Regenerate. --- configure | 3 ++- src/config.in | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/configure b/configure index c776e1fd633..d4c7ae27f4c 100755 --- a/configure +++ b/configure @@ -13702,10 +13702,11 @@ done + for ac_func in gethostname getdomainname dup2 \ -rename closedir mkdir rmdir sysinfo \ +rename closedir mkdir rmdir sysinfo getrusage \ random lrand48 bcopy bcmp logb frexp fmod rint cbrt ftime res_init setsid \ strerror fpathconf select mktime euidaccess getpagesize tzset setlocale \ utimes setrlimit setpgid getcwd getwd shutdown getaddrinfo \ diff --git a/src/config.in b/src/config.in index 0fb9126b470..fe1adc39f9d 100644 --- a/src/config.in +++ b/src/config.in @@ -196,6 +196,9 @@ Boston, MA 02111-1307, USA. */ /* Define to 1 if you have the `getpt' function. */ #undef HAVE_GETPT +/* Define to 1 if you have the `getrusage' function. */ +#undef HAVE_GETRUSAGE + /* Define to 1 if you have the `getsockname' function. */ #undef HAVE_GETSOCKNAME From 59dede22260be3ea1a4e330cc9cacadd070c0c45 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 16:54:06 +0000 Subject: [PATCH 22/31] *** empty log message *** --- ChangeLog | 4 ++++ lispref/ChangeLog | 7 +++++++ src/ChangeLog | 4 ++++ 3 files changed, 15 insertions(+) diff --git a/ChangeLog b/ChangeLog index fea2ce35e64..b3148622c11 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-11-06 Lars Brinkhoff + + * configure.in: Add check for getrusage. + 2004-11-02 Jan Dj,Ad(Brv * configure.in (HAVE_GTK_FILE_CHOOSER, $HAVE_GTK_FILE_SELECTION): New diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 99fb42381b3..23d104973d3 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,10 @@ +2004-11-06 Eli Zaretskii + + * Makefile.in (install, maintainer-clean): Don't use "elisp-*" as + it nukes elisp-cover.texi. + (dist): Change elisp-[0-9] to elisp-[1-9], as there could be no + elisp-0 etc. + 2004-11-05 Luc Teirlinck * commands.texi (Keyboard Macros): Document `append' return value diff --git a/src/ChangeLog b/src/ChangeLog index 879b635d81d..2df32924f2d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2004-11-06 Lars Brinkhoff + + * config.in: Regenerate (add HAVE_GETRUSAGE). + 2004-11-06 Eli Zaretskii * frame.c (syms_of_frame): Fix the example in the doc string. From 4211ee7d6c8eef0680f89781012f0551e3a88eb5 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 17:00:37 +0000 Subject: [PATCH 23/31] (Fget_internal_run_time): New function. (syms_of_data): Defsubr it. --- src/editfns.c | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) diff --git a/src/editfns.c b/src/editfns.c index e83e53e9d24..2e8134d4495 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -39,6 +39,10 @@ Boston, MA 02111-1307, USA. */ #include #endif +#if defined HAVE_SYS_RESOURCE_H +#include +#endif + #include #include "lisp.h" @@ -1375,6 +1379,47 @@ resolution finer than a second. */) return Flist (3, result); } + +DEFUN ("get-internal-run-time", Fget_internal_run_time, Sget_internal_run_time, + 0, 0, 0, + doc: /* Return the current run time used by Emacs. +The time is returned as a list of three integers. The first has the +most significant 16 bits of the seconds, while the second has the +least significant 16 bits. The third integer gives the microsecond +count. + +On systems that can't determine the run time, get-internal-run-time +does the same thing as current-time. The microsecond count is zero on +systems that do not provide resolution finer than a second. */) + () +{ +#ifdef HAVE_GETRUSAGE + struct rusage usage; + Lisp_Object result[3]; + int secs, usecs; + + if (getrusage (RUSAGE_SELF, &usage) < 0) + /* This shouldn't happen. What action is appropriate? */ + Fsignal (Qerror, Qnil); + + /* Sum up user time and system time. */ + secs = usage.ru_utime.tv_sec + usage.ru_stime.tv_sec; + usecs = usage.ru_utime.tv_usec + usage.ru_stime.tv_usec; + if (usecs >= 1000000) + { + usecs -= 1000000; + secs++; + } + + XSETINT (result[0], (secs >> 16) & 0xffff); + XSETINT (result[1], (secs >> 0) & 0xffff); + XSETINT (result[2], usecs); + + return Flist (3, result); +#else + return Fcurrent_time (); +#endif +} int @@ -4315,6 +4360,7 @@ functions if all the text being accessed has this property. */); defsubr (&Suser_full_name); defsubr (&Semacs_pid); defsubr (&Scurrent_time); + defsubr (&Sget_internal_run_time); defsubr (&Sformat_time_string); defsubr (&Sfloat_time); defsubr (&Sdecode_time); From 32bfb2d565e0ee6d23291895310ea66b146b4de8 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 17:01:27 +0000 Subject: [PATCH 24/31] (sxhash): As far as possible, merge calculation of hash code for symbols and strings. --- src/fns.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/fns.c b/src/fns.c index b366cab196a..e0167ebf990 100644 --- a/src/fns.c +++ b/src/fns.c @@ -5007,15 +5007,14 @@ sxhash (obj, depth) hash = XUINT (obj); break; - case Lisp_Symbol: - hash = sxhash_string (SDATA (SYMBOL_NAME (obj)), - SCHARS (SYMBOL_NAME (obj))); - break; - case Lisp_Misc: hash = XUINT (obj); break; + case Lisp_Symbol: + obj = SYMBOL_NAME (obj); + /* Fall through. */ + case Lisp_String: hash = sxhash_string (SDATA (obj), SCHARS (obj)); break; From 2f6037a53f23616a4dcf321933f5ea543f1ad81b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 17:03:18 +0000 Subject: [PATCH 25/31] (Processor Run Time): New section documenting get-internal-run-time. --- lispref/os.texi | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/lispref/os.texi b/lispref/os.texi index 42a0613bfec..90fba8975e2 100644 --- a/lispref/os.texi +++ b/lispref/os.texi @@ -23,6 +23,7 @@ pertaining to the terminal and the screen. * Time of Day:: Getting the current time. * Time Conversion:: Converting a time from numeric form to a string, or to calendrical data (or vice versa). +* Processor Run Time:: Getting the run time used by Emacs. * Time Calculations:: Adding, subtracting, comparing times, etc. * Timers:: Setting a timer to call a function at a certain time. * Terminal Input:: Recording terminal input for debugging. @@ -1285,6 +1286,28 @@ For instance, years before 1970 do not work on some systems; on others, years as early as 1901 do work. @end defun +@node Processor Run Time +@section Processor Run time + +@defun get-internal-run-time +This function returns the processor run time used by Emacs as a list +of three integers: @code{(@var{high} @var{low} @var{microsec})}. The +integers @var{high} and @var{low} combine to give the number of +seconds, which is +@ifnottex +@var{high} * 2**16 + @var{low}. +@end ifnottex +@tex +$high*2^{16}+low$. +@end tex + +The third element, @var{microsec}, gives the microseconds (or 0 for +systems that return time with the resolution of only one second). + +If the system doesn't provide a way to determine the processor run +time, get-internal-run-time returns the same time as current-time. +@end defun + @node Time Calculations @section Time Calculations From 6159c232a6a49330c8ab3952b239469485a70c95 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 17:04:23 +0000 Subject: [PATCH 26/31] *** empty log message *** --- ChangeLog | 1 + lisp/ChangeLog | 5 +++++ lispref/ChangeLog | 5 +++++ src/ChangeLog | 4 ++++ 4 files changed, 15 insertions(+) diff --git a/ChangeLog b/ChangeLog index b3148622c11..8fbd47889c3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 2004-11-06 Lars Brinkhoff * configure.in: Add check for getrusage. + * configure: Regenerate. 2004-11-02 Jan Dj,Ad(Brv diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 634177d773d..8574835a968 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-06 Eli Zaretskii + + * progmodes/gdb-ui.el: Don't call define-fringe-bitmap if the + display doesn't support images. + 2004-11-06 Andreas Schwab * tempo.el (tempo-match-finder): Doc fix. diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 23d104973d3..197c7217785 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,8 @@ +2004-11-06 Lars Brinkhoff + + * os.texi (Processor Run Time): New section documenting + get-internal-run-time. + 2004-11-06 Eli Zaretskii * Makefile.in (install, maintainer-clean): Don't use "elisp-*" as diff --git a/src/ChangeLog b/src/ChangeLog index 2df32924f2d..b65bb2d5714 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,6 +1,10 @@ 2004-11-06 Lars Brinkhoff * config.in: Regenerate (add HAVE_GETRUSAGE). + * editfns.c (Fget_internal_run_time): New function. + (syms_of_data): Defsubr it. + * fns.c (sxhash): As far as possible, merge calculation of + hash code for symbols and strings. 2004-11-06 Eli Zaretskii From 66fcf39cc065f281535bec8f313ac2cf1fc7eab2 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Nov 2004 17:05:42 +0000 Subject: [PATCH 27/31] Document get-internal-run-time. --- etc/NEWS | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index a5277a8cb03..726eac5afdb 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -2326,6 +2326,10 @@ configuration files. * Lisp Changes in Emacs 21.4 ++++ +** The new primitive `get-internal-run-time' returns the processor +run time used by Emacs since start-up. + +++ ** The new function `called-interactively-p' does what many people have mistakenly believed `interactively-p' did: it returns t if the From 59341ff0e3538d86d1823e810a59151ea3e0f652 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Sat, 6 Nov 2004 18:27:36 +0000 Subject: [PATCH 28/31] *** empty log message *** --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8574835a968..d797afc761d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-11-06 David Ponce + + * recentf.el (recentf-menu-path): Use menu item name. + 2004-11-06 Eli Zaretskii * progmodes/gdb-ui.el: Don't call define-fringe-bitmap if the From 50ed4c9619a4343e2a27da41a03b94c9e77c4778 Mon Sep 17 00:00:00 2001 From: David Ponce Date: Sat, 6 Nov 2004 18:27:56 +0000 Subject: [PATCH 29/31] (recentf-menu-path): Use menu item name. --- lisp/recentf.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/recentf.el b/lisp/recentf.el index 4ef55d4e1bf..2fee8e637a8 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -98,7 +98,7 @@ Set VARIABLE with VALUE, and force a rebuild of the recentf menu." :type 'string :set 'recentf-menu-customization-changed) -(defcustom recentf-menu-path '("files") +(defcustom recentf-menu-path '("File") "*Path where to add the recentf menu. If nil add it at top level (see also `easy-menu-add-item')." :group 'recentf From e7b52b6db22a312f19967f008ea11bbd2e133039 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kai=20Gro=C3=9Fjohann?= Date: Sat, 6 Nov 2004 20:27:16 +0000 Subject: [PATCH 30/31] (tramp-coding-commands): Additionally try "uudecode -o /dev/stdout" before trying "uudecode -o -". Suggested by Han Boetes. --- lisp/ChangeLog | 6 ++++++ lisp/net/tramp.el | 2 ++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d797afc761d..8a341673f31 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-11-06 Kai Grossjohann + + * net/tramp.el (tramp-coding-commands): Additionally try "uudecode + -o /dev/stdout" before trying "uudecode -o -". Suggested by Han + Boetes. + 2004-11-06 David Ponce * recentf.el (recentf-menu-path): Use menu item name. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 5a71a50c5db..f5625e8bd62 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -5970,6 +5970,8 @@ locale to C and sets up the remote shell search path." base64-encode-region base64-decode-region) ("recode data..base64" "recode base64..data" base64-encode-region base64-decode-region) + ("uuencode xxx" "uudecode -o /dev/stdout" + tramp-uuencode-region uudecode-decode-region) ("uuencode xxx" "uudecode -o -" tramp-uuencode-region uudecode-decode-region) ("uuencode xxx" "uudecode -p" From c37ee7cb84b11bf38e1f391b2015a2ec74e5c4e1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kai=20Gro=C3=9Fjohann?= Date: Sat, 6 Nov 2004 20:32:24 +0000 Subject: [PATCH 31/31] (tramp-uudecode): Mention `uudecode -o /dev/stdout'. --- lisp/ChangeLog | 1 + lisp/net/tramp.el | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8a341673f31..6fc7796f339 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,7 @@ * net/tramp.el (tramp-coding-commands): Additionally try "uudecode -o /dev/stdout" before trying "uudecode -o -". Suggested by Han Boetes. + (tramp-uudecode): Mention `uudecode -o /dev/stdout'. 2004-11-06 David Ponce diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index f5625e8bd62..e153ab3341f 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1535,8 +1535,9 @@ cat /tmp/tramp.$$ rm -f /tmp/tramp.$$ }" "Shell function to implement `uudecode' to standard output. -Many systems support `uudecode -o -' for this or `uudecode -p', but -some systems don't, and for them we have this shell function.") +Many systems support `uudecode -o /dev/stdout' for this or +`uudecode -o -' or `uudecode -p', but some systems don't, and for +them we have this shell function.") ;; Perl script to implement `file-attributes' in a Lisp `read'able ;; output. If you are hacking on this, note that you get *no* output