From cdd5307d74f1455ba1d681422fd6a6d53f90fd43 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 4 Feb 2008 09:42:16 +0000 Subject: [PATCH 001/127] Merge from gnus--rel--5.10 Revision: emacs@sv.gnu.org/emacs--rel--22--patch-215 --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/gnus.el | 5 +++++ 2 files changed, 11 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 355fa36e91a..cd3c128c05d 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2008-02-03 Reiner Steib + + * gnus.el (gnus-group-startup-message): Add `find-image' call before + image-load-path is let-bound. Reported by Harald Hanche-Olsen + . + 2008-01-12 Reiner Steib * gnus-sum.el (gnus-article-sort-by-random) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index a4eb55c1135..fb16656f2eb 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1001,6 +1001,11 @@ be set in `.emacs' instead." ((and (fboundp 'find-image) (display-graphic-p) + ;; Make sure the library defining `image-load-path' is loaded + ;; (`find-image' is autoloaded) (and discard the result). Else, we may + ;; get "defvar ignored because image-load-path is let-bound" when calling + ;; `find-image' below. + (or (find-image '(nil (:type xpm :file "gnus.xpm"))) t) (let* ((data-directory (nnheader-find-etc-directory "images/gnus")) (image-load-path (cond (data-directory (list data-directory)) From ca1617bfd6e10ca2ff245006d967d954d1d5c0a2 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Mon, 4 Feb 2008 11:43:42 +0000 Subject: [PATCH 002/127] (mac_to_emacs_modifiers): New argument UNMAPPED_MODS. All callers changed. (mac_quit_char_key_p, XTread_socket): Get Emacs modifiers from mapped modifiers together with original ones. --- src/ChangeLog | 6 ++++-- src/macterm.c | 19 ++++++++++--------- 2 files changed, 14 insertions(+), 11 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index e3b083b0474..a52ea61581e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,13 +1,15 @@ 2008-02-04 YAMAMOTO Mitsuharu * macterm.c [MAC_OSX] (fn_keycode_to_keycode_table): Add more entries - that ignores kEventKeyModifierFnMask. + that ignore kEventKeyModifierFnMask. (XTread_socket) [MAC_OSX]: Move code for ignoring kEventKeyModifierFnMask for some keys ... (mac_mapped_modifiers) [MAC_OSX]: ... to here. Add argument KEY_CODE. All callers changed. + (mac_to_emacs_modifiers): New argument UNMAPPED_MODS. + All callers changed. (mac_quit_char_key_p, XTread_socket): Get Emacs modifiers from - mapped modifiers. + mapped modifiers together with original ones. 2008-02-01 Kenichi Handa diff --git a/src/macterm.c b/src/macterm.c index 93efc711250..b3e163029c6 100644 --- a/src/macterm.c +++ b/src/macterm.c @@ -9045,13 +9045,13 @@ static const unsigned char fn_keycode_to_keycode_table[] = { static int #if USE_CARBON_EVENTS -mac_to_emacs_modifiers (UInt32 mods) +mac_to_emacs_modifiers (UInt32 mods, UInt32 unmapped_mods) #else -mac_to_emacs_modifiers (EventModifiers mods) +mac_to_emacs_modifiers (EventModifiers mods, EventModifiers unmapped_mods) #endif { unsigned int result = 0; - if (mods & shiftKey) + if ((mods | unmapped_mods) & shiftKey) result |= shift_modifier; /* Deactivated to simplify configuration: @@ -9153,7 +9153,7 @@ mac_quit_char_key_p (modifiers, key_code) if (char_code & ~0xff) return 0; - emacs_modifiers = mac_to_emacs_modifiers (mapped_modifiers); + emacs_modifiers = mac_to_emacs_modifiers (mapped_modifiers, modifiers); if (emacs_modifiers & ctrl_modifier) c = make_ctrl_char (char_code); @@ -9179,7 +9179,7 @@ mac_event_to_emacs_modifiers (EventRef eventRef) { mods &= ~(optionKey | cmdKey); } - return mac_to_emacs_modifiers (mods); + return mac_to_emacs_modifiers (mods, 0); } /* Given an event ref, return the code to use for the mouse button @@ -9769,7 +9769,7 @@ mac_store_drag_event (window, mouse_pos, modifiers, desc) EVENT_INIT (buf); buf.kind = DRAG_N_DROP_EVENT; - buf.modifiers = mac_to_emacs_modifiers (modifiers); + buf.modifiers = mac_to_emacs_modifiers (modifiers, 0); buf.timestamp = TickCount () * (1000 / 60); XSETINT (buf.x, mouse_pos.h); XSETINT (buf.y, mouse_pos.v); @@ -10255,7 +10255,7 @@ mac_handle_text_input_event (next_handler, event, data) read_socket_inev->kind = ASCII_KEYSTROKE_EVENT; read_socket_inev->code = code; read_socket_inev->modifiers = - mac_to_emacs_modifiers (modifiers); + mac_to_emacs_modifiers (modifiers, 0); read_socket_inev->modifiers |= (extra_keyboard_modifiers & (meta_modifier | alt_modifier @@ -10901,7 +10901,7 @@ XTread_socket (sd, expected, hold_quit) inev.modifiers = mac_event_to_emacs_modifiers (eventRef); #else inev.code = mac_get_emulated_btn (er.modifiers); - inev.modifiers = mac_to_emacs_modifiers (er.modifiers); + inev.modifiers = mac_to_emacs_modifiers (er.modifiers, 0); #endif XSETINT (inev.x, mouse_loc.h); XSETINT (inev.y, mouse_loc.v); @@ -11430,7 +11430,8 @@ XTread_socket (sd, expected, hold_quit) inev.code = er.message & charCodeMask; } - inev.modifiers = mac_to_emacs_modifiers (mapped_modifiers); + inev.modifiers = mac_to_emacs_modifiers (mapped_modifiers, + modifiers); inev.modifiers |= (extra_keyboard_modifiers & (meta_modifier | alt_modifier | hyper_modifier | super_modifier)); From d9090cc15a6ec3039fc0dc9ef4c826b8541d78f1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Feb 2008 15:29:44 +0000 Subject: [PATCH 003/127] (cancel-change-group): Don't move point. --- lisp/ChangeLog | 45 +++++++++++++++++++++++---------------------- lisp/subr.el | 45 +++++++++++++++++++++++---------------------- 2 files changed, 46 insertions(+), 44 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 20554f8442d..93b63a00f55 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,14 @@ +2008-02-04 Stefan Monnier + + * subr.el (cancel-change-group): Don't move point. + 2008-02-02 Michael Albinus Sync with Tramp 2.0.57. * net/tramp.el (tramp-handle-make-auto-save-file-name) - (tramp-completion-dissect-file-name, tramp-find-executable): Use - `mapc' instead of `mapcar'. + (tramp-completion-dissect-file-name, tramp-find-executable): + Use `mapc' instead of `mapcar'. (tramp-open-connection-setup-interactive-shell): Send only single prompt setting commands, in order to avoid double-prompt. @@ -112,8 +116,8 @@ 2008-01-26 Alan Mackenzie - * progmodes/cc-defs.el (c-save-buffer-state): Bind - buffer-file-name and buffer-file-truename to nil, to prevent + * progmodes/cc-defs.el (c-save-buffer-state): + Bind buffer-file-name and buffer-file-truename to nil, to prevent primitives generating "buffer is read only" messages. 2008-01-26 Eli Zaretskii @@ -179,9 +183,8 @@ 2008-01-16 Alan Mackenzie - * progmodes/cc-vars.el (c-constant-symbol): Put this defun inside - an eval-and-compile, so as to permit byte-compiling (e.g. in - bootstrap). + * progmodes/cc-vars.el (c-constant-symbol): Put this defun inside an + eval-and-compile, so as to permit byte-compiling (e.g. in bootstrap). 2008-01-16 Juanma Barranquero @@ -225,7 +228,7 @@ * progmodes/cc-vars.el (c-hanging-braces-alist): Remove the obscure non-working fragment ":value c-". - * progmodes/cc-engine.el (c-guess-basic-syntax): prevent a macro + * progmodes/cc-engine.el (c-guess-basic-syntax): Prevent a macro call inside a struct being recognised as a K&R argument. 2008-01-14 Jason Rumney @@ -240,15 +243,14 @@ 2008-01-12 Eli Zaretskii - * view.el (view-file-other-window, view-file-other-frame): Don't - kill the buffer if it is modified. Doc fixes. + * view.el (view-file-other-window, view-file-other-frame): + Don't kill the buffer if it is modified. Doc fixes. (kill-buffer-if-not-modified): New function. (view-file): Don't kill the buffer if it is modified. - * progmodes/ebrowse.el (ebrowse-view-file-other-window): Delete - function. - (ebrowse-view/find-file-and-search-pattern): Call - view-file-other-window instead of ebrowse-view-file-other-window. + * progmodes/ebrowse.el (ebrowse-view-file-other-window): Delete. + (ebrowse-view/find-file-and-search-pattern): + Call view-file-other-window instead of ebrowse-view-file-other-window. (ebrowse-view-file-other-frame): Don't call current-window-configuration. Fix second argument in the call to view-mode-enter. Doc fix. @@ -263,8 +265,8 @@ 2008-01-10 Dan Nicolaescu - * files.el (safe-local-eval-forms): Mark - (add-hook 'write-file-hooks 'time-stamp) as safe. + * files.el (safe-local-eval-forms): + Mark (add-hook 'write-file-hooks 'time-stamp) as safe. 2008-01-10 Nick Roberts @@ -344,8 +346,8 @@ (verilog-auto-input-ignore-regexp) (verilog-auto-inout-ignore-regexp) (verilog-auto-output-ignore-regexp) - (verilog-auto-unused-ignore-regexp, verilog-typedef-regexp): Add - safe-local-variable properties. + (verilog-auto-unused-ignore-regexp, verilog-typedef-regexp): + Add safe-local-variable properties. (verilog-statement-menu, verilog-company) (verilog-re-search-forward, verilog-re-search-backward) (verilog-error-regexp-add, verilog-end-block-re) @@ -431,13 +433,12 @@ 2008-01-07 Nick Roberts - * progmodes/gdb-ui.el (gud-gdb-command-name): Explain - "--annotate=3" option is necessary for the Graphical Interface. + * progmodes/gdb-ui.el (gud-gdb-command-name): + Explain "--annotate=3" option is necessary for the Graphical Interface. 2008-01-07 Dan Nicolaescu - * vc-hg.el (vc-hg-dir-state): Pass the dir argument to - vc-hg-command. + * vc-hg.el (vc-hg-dir-state): Pass the dir argument to vc-hg-command. 2008-01-07 Glenn Morris diff --git a/lisp/subr.el b/lisp/subr.el index b4bd4a0150c..ef908c0a7cb 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1871,28 +1871,29 @@ This finishes the change group by accepting its changes as final." (defun cancel-change-group (handle) "Finish a change group made with `prepare-change-group' (which see). This finishes the change group by reverting all of its changes." - (dolist (elt handle) - (with-current-buffer (car elt) - (setq elt (cdr elt)) - (let ((old-car - (if (consp elt) (car elt))) - (old-cdr - (if (consp elt) (cdr elt)))) - ;; Temporarily truncate the undo log at ELT. - (when (consp elt) - (setcar elt nil) (setcdr elt nil)) - (unless (eq last-command 'undo) (undo-start)) - ;; Make sure there's no confusion. - (when (and (consp elt) (not (eq elt (last pending-undo-list)))) - (error "Undoing to some unrelated state")) - ;; Undo it all. - (while (listp pending-undo-list) (undo-more 1)) - ;; Reset the modified cons cell ELT to its original content. - (when (consp elt) - (setcar elt old-car) - (setcdr elt old-cdr)) - ;; Revert the undo info to what it was when we grabbed the state. - (setq buffer-undo-list elt))))) + (save-excursion + (dolist (elt handle) + (with-current-buffer (car elt) + (setq elt (cdr elt)) + (let ((old-car + (if (consp elt) (car elt))) + (old-cdr + (if (consp elt) (cdr elt)))) + ;; Temporarily truncate the undo log at ELT. + (when (consp elt) + (setcar elt nil) (setcdr elt nil)) + (unless (eq last-command 'undo) (undo-start)) + ;; Make sure there's no confusion. + (when (and (consp elt) (not (eq elt (last pending-undo-list)))) + (error "Undoing to some unrelated state")) + ;; Undo it all. + (while (listp pending-undo-list) (undo-more 1)) + ;; Reset the modified cons cell ELT to its original content. + (when (consp elt) + (setcar elt old-car) + (setcdr elt old-cdr)) + ;; Revert the undo info to what it was when we grabbed the state. + (setq buffer-undo-list elt)))))) ;;;; Display-related functions. From cb11476b222555583a5afe3f61d08fc8191d0ccc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Feb 2008 15:31:09 +0000 Subject: [PATCH 004/127] (cancel-change-group): Improve last fix. --- lisp/subr.el | 46 +++++++++++++++++++++++----------------------- 1 file changed, 23 insertions(+), 23 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index ef908c0a7cb..8420c8553dd 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1871,29 +1871,29 @@ This finishes the change group by accepting its changes as final." (defun cancel-change-group (handle) "Finish a change group made with `prepare-change-group' (which see). This finishes the change group by reverting all of its changes." - (save-excursion - (dolist (elt handle) - (with-current-buffer (car elt) - (setq elt (cdr elt)) - (let ((old-car - (if (consp elt) (car elt))) - (old-cdr - (if (consp elt) (cdr elt)))) - ;; Temporarily truncate the undo log at ELT. - (when (consp elt) - (setcar elt nil) (setcdr elt nil)) - (unless (eq last-command 'undo) (undo-start)) - ;; Make sure there's no confusion. - (when (and (consp elt) (not (eq elt (last pending-undo-list)))) - (error "Undoing to some unrelated state")) - ;; Undo it all. - (while (listp pending-undo-list) (undo-more 1)) - ;; Reset the modified cons cell ELT to its original content. - (when (consp elt) - (setcar elt old-car) - (setcdr elt old-cdr)) - ;; Revert the undo info to what it was when we grabbed the state. - (setq buffer-undo-list elt)))))) + (dolist (elt handle) + (with-current-buffer (car elt) + (setq elt (cdr elt)) + (let ((old-car + (if (consp elt) (car elt))) + (old-cdr + (if (consp elt) (cdr elt)))) + ;; Temporarily truncate the undo log at ELT. + (when (consp elt) + (setcar elt nil) (setcdr elt nil)) + (unless (eq last-command 'undo) (undo-start)) + ;; Make sure there's no confusion. + (when (and (consp elt) (not (eq elt (last pending-undo-list)))) + (error "Undoing to some unrelated state")) + ;; Undo it all. + (save-excursion + (while (listp pending-undo-list) (undo-more 1))) + ;; Reset the modified cons cell ELT to its original content. + (when (consp elt) + (setcar elt old-car) + (setcdr elt old-cdr)) + ;; Revert the undo info to what it was when we grabbed the state. + (setq buffer-undo-list elt))))) ;;;; Display-related functions. From 7e2a60001ef4611850e77105dac5ec443a023288 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 4 Feb 2008 16:36:48 +0000 Subject: [PATCH 005/127] * progmodes/verilog-mode.el (verilog-declaration-core-re): Add port directions by themselves, with no qualification, as base item of a declaration. (verilog-pretty-declarations): Add new flag that inhibits printing to the message buffer. (verilog-pretty-expr): Add new flag that inhibits printing to the message buffer. Improve handling of the many types of expression line up. (verilog-just-one-space): Don't print an empty message. (verilog-get-lineup-indent): Rework to support the better handling of expression lineup for verilog-pretty-expr. (verilog-auto-wire): Pass the quiet flag to verilog-pretty-expr. (verilog-mode-version, verilog-mode-release-date): Update. --- lisp/ChangeLog | 16 +++ lisp/progmodes/verilog-mode.el | 179 ++++++++++++++++++--------------- 2 files changed, 112 insertions(+), 83 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 93b63a00f55..d7c4a120646 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,19 @@ +2008-02-04 Michael McNamara + + * progmodes/verilog-mode.el (verilog-declaration-core-re): + Add port directions by themselves, with no qualification, as base + item of a declaration. + (verilog-pretty-declarations): Add new flag that inhibits printing + to the message buffer. + (verilog-pretty-expr): Add new flag that inhibits printing to the + message buffer. Improve handling of the many types of expression + line up. + (verilog-just-one-space): Don't print an empty message. + (verilog-get-lineup-indent): Rework to support the better handling + of expression lineup for verilog-pretty-expr. + (verilog-auto-wire): Pass the quiet flag to verilog-pretty-expr. + (verilog-mode-version, verilog-mode-release-date): Update. + 2008-02-04 Stefan Monnier * subr.el (cancel-change-group): Don't move point. diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index da91e36ca3d..5a9979e1495 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -115,9 +115,9 @@ ;;; Code: ;; This variable will always hold the version number of the mode -(defconst verilog-mode-version "383" +(defconst verilog-mode-version "389" "Version of this verilog mode.") -(defconst verilog-mode-release-date "2008-01-07-GNU" +(defconst verilog-mode-release-date "2008-02-01-GNU" "Release date of this verilog mode.") (defconst verilog-mode-release-emacs t "If non-nil, this version of verilog mode was released with Emacs itself.") @@ -1526,6 +1526,8 @@ find the errors." (eval-when-compile (verilog-regexp-words `( + ;; port direction (by themselves) + "inout" "input" "output" ;; integer_atom_type "byte" "shortint" "int" "longint" "integer" "time" ;; integer_vector_type @@ -4681,7 +4683,7 @@ ARG is ignored, for `comment-indent-function' compatibility." ;; -(defun verilog-pretty-declarations () +(defun verilog-pretty-declarations (&optional quiet) "Line up declarations around point." (interactive) (save-excursion @@ -4725,7 +4727,8 @@ ARG is ignored, for `comment-indent-function' compatibility." (current-column)))) (goto-char end) (goto-char start) - (if (> (- end start) 100) + (if (and (not quiet) + (> (- end start) 100)) (message "Lining up declarations..(please stand by)")) ;; Get the beginning of line indent first (while (progn (setq e (marker-position edpos)) @@ -4750,7 +4753,7 @@ ARG is ignored, for `comment-indent-function' compatibility." (setq r (- e (point))) (> r 0)) (setq e (point)) - (message "%d" r) + (unless quiet (message "%d" r)) (cond ((or (and verilog-indent-declaration-macros (looking-at verilog-declaration-re-1-macro)) @@ -4775,90 +4778,98 @@ ARG is ignored, for `comment-indent-function' compatibility." (verilog-forward-ws&directives) (forward-line -1))) (forward-line 1)) - (message ""))))) + (unless quiet (message "")))))) -(defun verilog-pretty-expr (&optional myre) +(defun verilog-pretty-expr (&optional quiet myre) "Line up expressions around point, or optional regexp MYRE." (interactive "sRegular Expression: ((<|:)?=) ") (save-excursion (if (or (eq myre nil) (string-equal myre "")) (setq myre "\\(<\\|:\\)?=")) -; (setq myre (concat "\\(^[^;" myre "]*\\)\\([" myre "]\\)")) - (setq myre (concat "\\(^[^;#:?=]*\\)\\([" myre "]\\)")) - (beginning-of-line) - (if (and (not (looking-at (concat "^\\s-*" verilog-complete-reg))) - (looking-at myre)) - (let* ((here (point)) - (e) (r) - (start - (progn - (beginning-of-line) - (setq e (point)) - (verilog-backward-syntactic-ws) - (beginning-of-line) - (while (and (not (looking-at (concat "^\\s-*" verilog-complete-reg))) - (looking-at myre) - (not (bobp))) + (setq myre (concat "\\(^[^;#:<=>]*\\)\\(" myre "\\)")) + (let ((rexp(concat "^\\s-*" verilog-complete-reg))) + (beginning-of-line) + (if (and (not (looking-at rexp )) + (looking-at myre)) + (let* ((here (point)) + (e) (r) + (start + (progn + (beginning-of-line) (setq e (point)) (verilog-backward-syntactic-ws) (beginning-of-line) - ) ;Ack, need to grok `define - e)) - (end - (progn - (goto-char here) - (end-of-line) - (setq e (point)) ;Might be on last line - (verilog-forward-syntactic-ws) - (beginning-of-line) - (while (and (not (looking-at - (concat "^\\s-*" verilog-complete-reg))) - (looking-at myre)) + (while (and (not (looking-at rexp )) + (looking-at myre) + (not (bobp)) + ) + (setq e (point)) + (verilog-backward-syntactic-ws) + (beginning-of-line) + ) ;Ack, need to grok `define + e)) + (end + (progn + (goto-char here) (end-of-line) - (setq e (point)) + (setq e (point)) ;Might be on last line (verilog-forward-syntactic-ws) - (beginning-of-line)) - e)) - (edpos (set-marker (make-marker) end)) - (ind)) - (goto-char start) - (verilog-do-indent (verilog-calculate-indent)) - (if (> (- end start) 100) - (message "Lining up expressions..(please stand by)")) - - ;; Set indent to minimum throughout region - (while (< (point) (marker-position edpos)) - (beginning-of-line) - (verilog-just-one-space myre) - (end-of-line) - (verilog-forward-syntactic-ws)) - - ;; Now find biggest prefix - (setq ind (verilog-get-lineup-indent-2 myre start edpos)) - - ;; Now indent each line. - (goto-char start) - (while (progn (setq e (marker-position edpos)) - (setq r (- e (point))) - (> r 0)) - (setq e (point)) - (message "%d" r) - (cond - ((looking-at myre) - (goto-char (match-end 1)) - (if (eq (char-after) ?=) - (indent-to (1+ ind)) ; line up the = of the <= with surrounding = - (indent-to ind))) - ((verilog-continued-line-1 start) - (goto-char e) - (indent-line-to ind)) - (t ; Must be comment or white space - (goto-char e) - (verilog-forward-ws&directives) - (forward-line -1))) - (forward-line 1)) - (message ""))))) + (beginning-of-line) + (while (and (not (looking-at rexp )) + (looking-at myre)) + (end-of-line) + (setq e (point)) + (verilog-forward-syntactic-ws) + (beginning-of-line) + ) + e)) + (edpos (set-marker (make-marker) end)) + (ind) + ) + (goto-char start) + (verilog-do-indent (verilog-calculate-indent)) + (if (and (not quiet) + (> (- end start) 100)) + (message "Lining up expressions..(please stand by)")) + + ;; Set indent to minimum throughout region + (while (< (point) (marker-position edpos)) + (beginning-of-line) + (verilog-just-one-space myre) + (end-of-line) + (verilog-forward-syntactic-ws) + ) + + ;; Now find biggest prefix + (setq ind (verilog-get-lineup-indent-2 myre start edpos)) + + ;; Now indent each line. + (goto-char start) + (while (progn (setq e (marker-position edpos)) + (setq r (- e (point))) + (> r 0)) + (setq e (point)) + (if (not quiet) (message "%d" r)) + (cond + ((looking-at myre) + (goto-char (match-end 1)) + (if (not (verilog-parenthesis-depth)) ;; ignore parenthsized exprs + (if (eq (char-after) ?=) + (indent-to (1+ ind)) ; line up the = of the <= with surrounding = + (indent-to ind) + ))) + ((verilog-continued-line-1 start) + (goto-char e) + (indent-line-to ind)) + (t ; Must be comment or white space + (goto-char e) + (verilog-forward-ws&directives) + (forward-line -1)) + ) + (forward-line 1)) + (unless quiet (message "")) + ))))) (defun verilog-just-one-space (myre) "Remove extra spaces around regular expression MYRE." @@ -4872,8 +4883,8 @@ ARG is ignored, for `comment-indent-function' compatibility." (if (looking-at "\\s-") (just-one-space)) (goto-char p1) (forward-char -1) - (if (looking-at "\\s-") (just-one-space))))) - (message "")) + (if (looking-at "\\s-") (just-one-space)) + )))) (defun verilog-indent-declaration (baseind) "Indent current lines as declaration. @@ -4974,13 +4985,15 @@ Region is defined by B and EDPOS." ;; Get rightmost position (while (progn (setq e (marker-position edpos)) (< (point) e)) - (if (verilog-re-search-forward myre e 'move) + (if (and (verilog-re-search-forward myre e 'move) + (not (verilog-parenthesis-depth))) ;; skip parenthsized exprs (progn - (goto-char (match-end 0)) + (goto-char (match-beginning 2)) (verilog-backward-syntactic-ws) (if (> (current-column) ind) (setq ind (current-column))) - (goto-char (match-end 0))))) + (goto-char (match-end 0))) + )) (if (> ind 0) (1+ ind) ;; No lineup-string found @@ -8498,7 +8511,7 @@ Typing \\[verilog-auto] will make this into: (when nil ;; Too slow on huge modules, plus makes everyone's module change (beginning-of-line) (setq pnt (point)) - (verilog-pretty-declarations) + (verilog-pretty-declarations quiet) (goto-char pnt) (verilog-pretty-expr "//")))))) From f4c4910c9e72b4e3f3cbfed42b0203cde1e8f22f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 4 Feb 2008 16:54:05 +0000 Subject: [PATCH 006/127] Comment changes. --- lisp/emacs-lisp/edebug.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index b988a8ac79d..e825f2434b4 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -1496,7 +1496,7 @@ expressions; a `progn' form will be returned enclosing these forms." (cond ((symbolp head) (cond - ((null head) nil) ; () is legal. + ((null head) nil) ; () is valid. ((eq head 'interactive-p) ;; Special case: replace (interactive-p) with variable (setq edebug-def-interactive 'check-it) @@ -2076,7 +2076,7 @@ expressions; a `progn' form will be returned enclosing these forms." ;; doesn't handle (a . ,b). The straightforward fix: ;; (backquote-form . [&or nil backquote-form]) ;; uses up too much stack space. - ;; Note that `(foo . ,@bar) is not legal, so we don't need to handle it. + ;; Note that `(foo . ,@bar) is not valid, so we don't need to handle it. (backquote-form [&rest [¬ ","] backquote-form] . [&or nil backquote-form]) ;; If you use dotted forms in backquotes, replace the previous line From 4caf292da65c090bd7ad9b56a69fc5f5472a2088 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Feb 2008 22:46:47 +0000 Subject: [PATCH 007/127] (w32-system-shells): Add TCC (new name for 4NT). --- lisp/ChangeLog | 4 ++++ lisp/w32-vars.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d7c4a120646..66c29fe83f3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-04 Juanma Barranquero + + * w32-vars.el (w32-system-shells): Add TCC (new name for 4NT). + 2008-02-04 Michael McNamara * progmodes/verilog-mode.el (verilog-declaration-core-re): diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 019962a898c..f660501a341 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -53,7 +53,7 @@ X does. See `w32-fixed-font-alist' for the font menu definition." (defcustom w32-system-shells '("cmd" "cmd.exe" "command" "command.com" "4nt" "4nt.exe" "4dos" "4dos.exe" - "ndos" "ndos.exe") + "tcc" "tcc.exe" "ndos" "ndos.exe") "*List of strings recognized as Windows NT/9X system shells." :type '(repeat string) :group 'w32) From 4d90eee4f5482f21d9f0a628fb32a106bd4cc9f8 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 02:30:41 +0000 Subject: [PATCH 008/127] *** empty log message *** --- lib-src/movemail.c | 2 +- lib-src/pop.c | 2 +- src/w32.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib-src/movemail.c b/lib-src/movemail.c index 7c647676ff5..8ccf6ce554a 100644 --- a/lib-src/movemail.c +++ b/lib-src/movemail.c @@ -702,7 +702,7 @@ char Errmsg[200]; /* POP errors, at least, can exceed the original length of 80. */ /* - * The full legal syntax for a POP mailbox specification for movemail + * The full valid syntax for a POP mailbox specification for movemail * is "po:username:hostname". The ":hostname" is optional; if it is * omitted, the MAILHOST environment variable will be consulted. Note * that by the time popmail() is called the "po:" has been stripped diff --git a/lib-src/pop.c b/lib-src/pop.c index 7b9b191add7..7de5e17e20d 100644 --- a/lib-src/pop.c +++ b/lib-src/pop.c @@ -1576,7 +1576,7 @@ pop_close (server) * Function: pop_trash * * Purpose: Like pop_close or pop_quit, but doesn't deallocate the - * memory associated with the server. It is legal to call + * memory associated with the server. It is valid to call * pop_close or pop_quit after this function has been called. */ static void diff --git a/src/w32.c b/src/w32.c index a67ef7d095a..8a970e0c25e 100644 --- a/src/w32.c +++ b/src/w32.c @@ -1591,7 +1591,7 @@ is_fat_volume (const char * name, const char ** pPath) return FALSE; } -/* Map filename to a legal 8.3 name if necessary. */ +/* Map filename to a valid 8.3 name if necessary. */ const char * map_w32_filename (const char * name, const char ** pPath) { From 5af1f9fe9e4c25bba6fbdfd0309e4f981486f2cc Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 02:45:30 +0000 Subject: [PATCH 009/127] (read_header): Replace `legal' with `valid'. --- src/unexhp9k800.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/unexhp9k800.c b/src/unexhp9k800.c index 495094029d6..96eb985f857 100644 --- a/src/unexhp9k800.c +++ b/src/unexhp9k800.c @@ -228,7 +228,7 @@ read_header (file, hdr, auxhdr) if (hdr->a_magic != EXEC_MAGIC && hdr->a_magic != SHARE_MAGIC && hdr->a_magic != DEMAND_MAGIC) { - fprintf (stderr, "a.out file doesn't have legal magic number\n"); + fprintf (stderr, "a.out file doesn't have valid magic number\n"); exit (1); } From 74ac7057d66a4eda364123429095da156e88a465 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 02:49:26 +0000 Subject: [PATCH 010/127] (make_hdr): Replace `legal' with `valid'. --- src/unexec.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/unexec.c b/src/unexec.c index 05cff698313..6a571d9cb53 100644 --- a/src/unexec.c +++ b/src/unexec.c @@ -693,7 +693,7 @@ make_hdr (new, a_out, data_start, bss_start, entry_address, a_name, new_name) } if (coffheader.f_magic != COFF_MAGIC) { - ERROR1("%s doesn't have legal coff magic number\n", a_name); + ERROR1("%s doesn't have valid coff magic number\n", a_name); } #endif if (read (a_out, &ohdr, sizeof hdr) != sizeof hdr) From 05b33f7cfce4dbc20525b2a2d71e23f7845dda1e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 02:59:47 +0000 Subject: [PATCH 011/127] *** empty log message *** --- src/ChangeLog | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index a52ea61581e..0288554acd0 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-02-05 Juanma Barranquero + + * unexec.c (make_hdr): + * unexhp9k800.c (read_header): Replace `legal' with `valid'. + 2008-02-04 YAMAMOTO Mitsuharu * macterm.c [MAC_OSX] (fn_keycode_to_keycode_table): Add more entries @@ -60,7 +65,7 @@ * mac.c (mac_emacs_pid) [MAC_OSX]: New variable. [MAC_OSX] (init_mac_osx_environment): Initialize it. - [MAC_OSX] (mac_try_close_socket) [SELECT_USE_CFSOCKET]: Return 0 + [MAC_OSX] (mac_try_close_socket) [SELECT_USE_CFSOCKET]: Return 0 when used on child processes. 2008-01-10 Chong Yidong @@ -174,7 +179,7 @@ 2007-11-22 Jan Dj,Ad(Brv * gtkutil.c (update_frame_tool_bar): Don't call x-gtk-map-stock if - file for image is nil. + file for image is nil. 2007-11-19 Jason Rumney @@ -7158,7 +7163,7 @@ * macterm.c (Qmac_ready_for_drag_n_drop, Qapplication, Qabout) (Qpreferences): Remove variables. - (syms_of_macterm) : Don't initialize them. + (syms_of_macterm): Don't initialize them. (Qhicommand) [USE_CARBON_EVENTS]: New variable. (syms_of_macterm) [USE_CARBON_EVENTS]: Initialize it. (init_required_apple_events, do_ae_open_application) From cad1d37691ff915ea7a8726b91814fdb436cb12d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 03:10:40 +0000 Subject: [PATCH 012/127] (Setting tags, In-buffer settings): Replace `legal' with `valid'. --- man/org.texi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/man/org.texi b/man/org.texi index 667f67c9c2b..c955a50a040 100644 --- a/man/org.texi +++ b/man/org.texi @@ -3413,7 +3413,7 @@ these lines to activate any changes. If at least one tag has a selection key, pressing @kbd{C-c C-c} will automatically present you with a special interface, listing inherited -tags, the tags of the current headline, and a list of all legal tags +tags, the tags of the current headline, and a list of all valid tags with corresponding keys@footnote{Keys will automatically be assigned to tags which have no configured keys.}. In this interface, you can use the following keys: @@ -5617,7 +5617,7 @@ These lines set the TODO keywords and their interpretation in the current file. The corresponding variables are @code{org-todo-keywords} and @code{org-todo-interpretation}. @item #+TAGS: TAG1(c1) TAG2(c2) -These lines (several such lines are allowed) specify the legal tags in +These lines (several such lines are allowed) specify the valid tags in this file, and (potentially) the corresponding @emph{fast tag selection} keys. The corresponding variable is @code{org-tag-alist}. @item #+LINK: linkword replace From a7d51a21fbd78c6947e05f703ef2720bef556dee Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 03:15:42 +0000 Subject: [PATCH 013/127] (rcirc commands): Replace `legal' with `valid'. --- man/ChangeLog | 5 +++++ man/rcirc.texi | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/man/ChangeLog b/man/ChangeLog index 2864dc9759e..e430b23d915 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,8 @@ +2008-02-05 Juanma Barranquero + + * org.texi (Setting tags, In-buffer settings): + * rcirc.texi (rcirc commands): Replace `legal' with `valid'. + 2008-02-02 Eli Zaretskii * maintaining.texi (Tags): Fix last change. diff --git a/man/rcirc.texi b/man/rcirc.texi index 1071ce3087f..de30773a34f 100644 --- a/man/rcirc.texi +++ b/man/rcirc.texi @@ -283,7 +283,7 @@ IRC. @end example This will try to change your nick to @code{"alex}. Usually this will -fail because the double quote character is not a legal character for +fail because the double quote character is not a valid character for nicks. @cindex case insensitive commands From 9b9a412286efca8257d18175941b6370115445d6 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 11:51:30 +0000 Subject: [PATCH 014/127] *** empty log message *** --- lisp/emacs-lisp/byte-run.el | 2 +- lisp/ffap.el | 2 +- lisp/follow.el | 2 +- lisp/isearch.el | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 48760d1e77e..ecf2ed57dac 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -227,7 +227,7 @@ In interpreted code, this is entirely equivalent to `progn'." ;; verbose t, nil byte-compile-verbose ;; optimize t, nil, source, byte byte-compile-optimize ;; warnings list of warnings byte-compile-warnings -;; Legal elements: (callargs redefine free-vars unresolved) +;; Valid elements: (callargs redefine free-vars unresolved) ;; file-format emacs18, emacs19 byte-compile-compatibility ;; ;; For example, this might appear at the top of a source file: diff --git a/lisp/ffap.el b/lisp/ffap.el index 3e62f2351c6..aaf92ebe306 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -426,7 +426,7 @@ Returned values: ;; (ffap-machine-p "mathcs" 5678 nil 'ping) ;; (ffap-machine-p "foo.bonk" nil nil 'ping) ;; (ffap-machine-p "foo.bonk.com" nil nil 'ping) - (if (or (string-match "[^-[:alnum:].]" host) ; Illegal chars (?) + (if (or (string-match "[^-[:alnum:].]" host) ; Invalid chars (?) (not (string-match "[^0-9]" host))) ; 1: a number? 2: quick reject nil (let* ((domain diff --git a/lisp/follow.el b/lisp/follow.el index ea5bf960dd9..e251d4c7b3c 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -300,7 +300,7 @@ ;; above for an example of how to bind the keys the way you like. ;; ;; Please note that the keymap is defined the first time this file is -;; loaded. Also note that the only legal way to manipulate the +;; loaded. Also note that the only valid way to manipulate the ;; keymap is to use `define-key'. Don't change it using `setq' or ;; similar! diff --git a/lisp/isearch.el b/lisp/isearch.el index e72df62d7f8..131bde71690 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1461,7 +1461,7 @@ to the barrier." ;; removes all bracket-sets and groups that might be in the way, as ;; well as partial \{\} constructs that the code below leaves behind. ;; Also skip over postfix operators -- though horrid, - ;; 'ab?\{5,6\}+\{1,2\}*' is perfectly legal. + ;; 'ab?\{5,6\}+\{1,2\}*' is perfectly valid. (while (and previous (or (isearch-error-state frame) (let* ((string (isearch-string-state frame)) From 0138efd4b32f2209944704e627e514274e1c1e20 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 12:07:11 +0000 Subject: [PATCH 015/127] *** empty log message *** --- lisp/emacs-lisp/cl-specs.el | 2 +- lisp/eshell/esh-var.el | 2 +- lisp/gnus/deuglify.el | 2 +- lisp/net/ange-ftp.el | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el index d2d55204ef2..dc8ebef69d5 100644 --- a/lisp/emacs-lisp/cl-specs.el +++ b/lisp/emacs-lisp/cl-specs.el @@ -323,7 +323,7 @@ ;; Below is a complete spec for loop, in several parts that correspond ;; to the syntax given in CLtL2. The specs do more than specify where ;; the forms are; it also specifies, as much as Edebug allows, all the -;; syntactically legal loop clauses. The disadvantage of this +;; syntactically valid loop clauses. The disadvantage of this ;; completeness is rigidity, but the "for ... being" clause allows ;; arbitrary extensions of the form: [symbolp &rest &or symbolp form]. diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el index 15ecb119c5e..0e5f4484279 100644 --- a/lisp/eshell/esh-var.el +++ b/lisp/eshell/esh-var.el @@ -47,7 +47,7 @@ variable value, a subcommand, or even the result of a Lisp form." ;; ;; $ALSO-VAR ;; -;; "-" is a legal part of a variable name. +;; "-" is a valid part of a variable name. ;; ;; $-TOO ;; diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el index c17be0a1479..75880c8f76b 100644 --- a/lisp/gnus/deuglify.el +++ b/lisp/gnus/deuglify.el @@ -68,7 +68,7 @@ ;; > verb. This sentence no verb. This sentence no verb. This ;; > sentence no verb. ;; -;; Unwrapping "You forgot in all your sentences." would be illegal as +;; Unwrapping "You forgot in all your sentences." would be invalid as ;; this part wasn't intended to be cited text. ;; `gnus-article-outlook-unwrap-lines' will only unwrap lines if the resulting ;; citation line will be of a certain maximum length. You can control diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 7428dcd380a..d53f740296a 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -297,7 +297,7 @@ ;; you would type: ;; C-x C-f /anonymous@ymir.claremont.edu:CSV/POLICY/RULES.MEM ;; -;; A legal VMS filename is of the form: FILE.TYPE;## +;; A valid VMS filename is of the form: FILE.TYPE;## ;; where FILE can be up to 39 characters ;; TYPE can be up to 39 characters ;; ## is a version number (an integer between 1 and 32,767) From 64ef5f3924eb1632829a20c9f69362bede6fc485 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 12:25:49 +0000 Subject: [PATCH 016/127] *** empty log message *** --- lisp/progmodes/scheme.el | 2 +- lisp/textmodes/ispell.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index c427eddf871..be4c23c781f 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -33,7 +33,7 @@ ;; for instance, at .] ;; All these Lisp-ish modes vary basically in details of the language ;; syntax they highlight/indent/index, but dsssl-mode uses "^;;;" as -;; the page-delimiter since ^L isn't normally a legal SGML character. +;; the page-delimiter since ^L isn't normally a valid SGML character. ;; ;; For interacting with a Scheme interpreter See also `run-scheme' in ;; the `cmuscheme' package and also the implementation-specific diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index ed6a6ed464b..edf2aab7955 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -3757,7 +3757,7 @@ Both should not be used to define a buffer-local dictionary." ;; any character other than a space. Not rigorous enough. (while (re-search-forward " *\\([^ ]+\\)" end t) (setq string (match-string-no-properties 1)) - ;; This can fail when string contains a word with illegal chars. + ;; This can fail when string contains a word with invalid chars. ;; Error handling needs to be added between ispell and emacs. (if (and (< 1 (length string)) (equal 0 (string-match ispell-casechars string))) From dfa0b1fc0104b64b595f6cbbc4be892f47a2642f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 12:48:48 +0000 Subject: [PATCH 017/127] (erc-button-syntax-table): Replace `legal' with `valid'. --- lisp/erc/erc-button.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el index 426139cd80e..249715f2674 100644 --- a/lisp/erc/erc-button.el +++ b/lisp/erc/erc-button.el @@ -240,7 +240,7 @@ PAR is a number of a regexp grouping whose text will be passed to (modify-syntax-entry ?\\ "w" table) table) "Syntax table used when buttonizing messages. -This syntax table should make all the legal nick characters word +This syntax table should make all the valid nick characters word constituents.") (defvar erc-button-keys-added nil From 42c28f29df382c5453956e0e66c9dbc0370ba1b7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 12:50:10 +0000 Subject: [PATCH 018/127] (erc-match-syntax-table): Replace `legal' with `valid'. --- lisp/erc/erc-match.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el index c0efeef3d8f..97d421e50d8 100644 --- a/lisp/erc/erc-match.el +++ b/lisp/erc/erc-match.el @@ -256,7 +256,7 @@ current-nick, keyword, pal, dangerous-host, fool" (modify-syntax-entry ?\\ "w" table) table) "Syntax table used when highlighting messages. -This syntax table should make all the legal nick characters word +This syntax table should make all the valid nick characters word constituents.") ;; Faces: From 4f9c00e2dc1e780ba79554fa8620cf875e196d19 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 13:00:43 +0000 Subject: [PATCH 019/127] (erc-valid-nick-regexp): Replace `legal' with `valid'. --- lisp/erc/ChangeLog | 6 ++++++ lisp/erc/erc.el | 2 +- lisp/mail/mail-extr.el | 6 +++--- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index a631a4514a4..061bfc55444 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,9 @@ +2008-02-05 Juanma Barranquero + + * erc.el (erc-valid-nick-regexp): + * erc-button.el (erc-button-syntax-table): + * erc-match.el (erc-match-syntax-table): Replace `legal' with `valid'. + 2007-11-15 Juanma Barranquero * erc.el (erc-open): diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 00d61a60ffd..649fc4a63df 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -2342,7 +2342,7 @@ If STRING is nil, the function does nothing." (setq list (cdr list)))))) (defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*" - "Regexp which matches all legal characters in a IRC nickname.") + "Regexp which matches all valid characters in a IRC nickname.") (defun erc-is-valid-nick-p (nick) "Check if NICK is a valid IRC nickname." diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index c43b0d5a2b0..dd44507ee57 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -850,7 +850,7 @@ consing a string.)" (setq char ?\() ; HAVE I NO SHAME?? ) ;; record the position of various interesting chars, determine - ;; legality later. + ;; validity later. ((setq record-pos-symbol (cdr (assq char '((?< . <-pos) (?> . >-pos) (?@ . @-pos) @@ -862,9 +862,9 @@ consing a string.)" ((eq char ?.) (forward-char 1)) ((memq char '( - ;; comment terminator illegal + ;; comment terminator invalid ?\) - ;; domain literal terminator illegal + ;; domain literal terminator invalid ?\] ;; \ allowed only within quoted strings, ;; domain literals, and comments From cb5bf6ba22c51521d497d601806e4afd9e948902 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 14:24:26 +0000 Subject: [PATCH 020/127] *** empty log message *** --- lisp/mh-e/mh-e.el | 4 ++-- lisp/mh-e/mh-xface.el | 4 ++-- lisp/progmodes/cc-awk.el | 2 +- lisp/progmodes/cc-defs.el | 2 +- lisp/progmodes/cc-styles.el | 4 ++-- lisp/progmodes/cperl-mode.el | 24 ++++++++++++------------ 6 files changed, 20 insertions(+), 20 deletions(-) diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 5186b1b2791..67dd6d2d68a 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -1986,7 +1986,7 @@ you would use \"(mh-set-cmd-note 4)\"." :package-version '(MH-E . "7.0")) (defun mh-scan-format-file-check (symbol value) - "Check if desired setting is legal. + "Check if desired setting is valid. Throw an error if user tries to set `mh-scan-format-file' to anything but t when `mh-adaptive-cmd-note-flag' is on. Otherwise, set SYMBOL to VALUE." @@ -2025,7 +2025,7 @@ Emacs start with 0)." :package-version '(MH-E . "6.0")) (defun mh-adaptive-cmd-note-flag-check (symbol value) - "Check if desired setting is legal. + "Check if desired setting is valid. Throw an error if user tries to turn on `mh-adaptive-cmd-note-flag' when `mh-scan-format-file' isn't t. Otherwise, set SYMBOL to VALUE." diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el index 6b0dc863c1f..e160c6e5875 100644 --- a/lisp/mh-e/mh-xface.el +++ b/lisp/mh-e/mh-xface.el @@ -360,8 +360,8 @@ This is only done if `mh-x-image-cache-directory' is nil." "Canonicalize URL. Replace the ?/ character with a ?! character and append .png. Also replaces special characters with `mh-url-hexify-string' -since not all characters, such as :, are legal within Windows -filenames. In addition, replaces * with %2a. See URL +since not all characters, such as :, are valid within Windows +filenames. In addition, replaces * with %2a. See URL `http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iitemnamelimits/GetValidCharacters.asp'." (format "%s/%s.png" mh-x-image-cache-directory (mh-replace-regexp-in-string diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el index b361585422a..de15d959cbd 100644 --- a/lisp/progmodes/cc-awk.el +++ b/lisp/progmodes/cc-awk.el @@ -213,7 +213,7 @@ "\\([{}@` \t]\\|\\+\\+\\|--\\|\\\\.\\)") ;; A "neutral" char(pair). Doesn't change the "state" of a subsequent /. ;; This is space/tab, braces, an auto-increment/decrement operator or an -;; escaped character. Or one of the (illegal) characters @ or `. But NOT an +;; escaped character. Or one of the (invalid) characters @ or `. But NOT an ;; end of line (even if escaped). (defconst c-awk-neutrals*-re (concat "\\(" c-awk-neutral-re "\\)*")) diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index d7be903d357..b509fdd7cc2 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el @@ -721,7 +721,7 @@ be after it." ((bobp) (setq pos (point-min))) ((not pos) (let ((distance (skip-chars-backward "^{"))) - ;; unbalanced parenthesis, while illegal C code, + ;; unbalanced parenthesis, while invalid C code, ;; shouldn't cause an infloop! See unbal.c (when (zerop distance) ;; Punt! diff --git a/lisp/progmodes/cc-styles.el b/lisp/progmodes/cc-styles.el index 02240400b1e..72bc86b6cc1 100644 --- a/lisp/progmodes/cc-styles.el +++ b/lisp/progmodes/cc-styles.el @@ -423,7 +423,7 @@ STYLE using `c-set-style' if the optional SET-P flag is non-nil." (defun c-read-offset (langelem) ;; read new offset value for LANGELEM from minibuffer. return a - ;; legal value only + ;; valid value only (let* ((oldoff (cdr-safe (or (assq langelem c-offsets-alist) (assq langelem (get 'c-offsets-alist 'c-stylevar-fallback))))) @@ -555,7 +555,7 @@ variables." "[ \t\f]*\\\\?$") (setq c-sentence-end-with-esc-eol (concat "\\(\\(" (c-default-value-sentence-end) "\\)" - ;; N.B.: "$" would be illegal when not enclosed like "\\($\\)". + ;; N.B.: "$" would be invalid when not enclosed like "\\($\\)". "\\|" "[.?!][]\"')}]* ?\\\\\\($\\)[ \t\n]*" "\\)"))) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index bb45f74dea1..f2fbc1207fc 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1250,7 +1250,7 @@ versions of Emacs." ["Contract groups" cperl-contract-levels cperl-use-syntax-table-text-property] "----" - ["Find next interpolated" cperl-next-interpolated-REx + ["Find next interpolated" cperl-next-interpolated-REx (next-single-property-change (point-min) 'REx-interpolated)] ["Find next interpolated (no //o)" cperl-next-interpolated-REx-0 @@ -2845,7 +2845,7 @@ Will not look before LIM." (skip-chars-backward " \t") (looking-at "[ \t]*[a-zA-Z_][a-zA-Z_0-9]*[ \t]*:"))) (get-text-property (point) 'first-format-line))) - + ;; Look at previous line that's at column 0 ;; to determine whether we are in top-level decls ;; or function's arg decls. Set basic-indent accordingly. @@ -3079,7 +3079,7 @@ and closing parentheses and brackets." ((eq 'toplevel (elt i 0)) ;; [toplevel start char-after state immed-after-block] (+ (save-excursion ; To beg-of-defun, or end of last sexp (goto-char (elt i 1)) ; start = Good place to start parsing - (- (current-indentation) ; + (- (current-indentation) ; (if (elt i 4) cperl-indent-level 0))) ; immed-after-block (if (eq (elt i 2) ?{) cperl-continued-brace-offset 0) ; char-after ;; Look at previous line that's at column 0 @@ -3899,7 +3899,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', ;;; XXX What to do: foo < octal (up to total 3 dig) ;; \DIGIT -> backref unless \0 - ;; \DIGITs -> backref if legal + ;; \DIGITs -> backref if valid ;; otherwise up to 3 -> octal ;; Do not try to distinguish, we guess ((or (and (memq qtag (append "01234567" nil)) @@ -4460,7 +4460,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', "\\=[01234567]?[01234567]?" (1- e) 'to-end)) (and (memq qtag (append "89" nil)) - (re-search-forward + (re-search-forward "\\=[0123456789]*" (1- e) 'to-end)) (and (eq qtag ?x) (re-search-forward @@ -4498,7 +4498,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', ;; in m]]: m][\\\]\]] produces [\\]] ;;; POSIX? [:word:] [:^word:] only inside [] ;;; "\\=\\(\\\\.\\|[^][\\\\]\\|\\[:\\^?\sw+:]\\|\\[[^:]\\)*]") - (while + (while (and argument (re-search-forward (if (eq (char-after b) ?\] ) @@ -5815,7 +5815,7 @@ indentation and initial hashes. Behaves usually outside of comment." "," cperl-maybe-white-and-comment-rex "\\([$@%*]\\([a-zA-Z0-9_:]+\\|[^a-zA-Z0-9_]\\)\\)") - ;; Bug in font-lock: limit is used not only to limit + ;; Bug in font-lock: limit is used not only to limit ;; searches, but to set the "extend window for ;; facification" property. Thus we need to minimize. ,(if cperl-font-lock-multiline @@ -6784,7 +6784,7 @@ construct. DONE-TO and STATEPOS indicate changes to internal caches maintained by CPerl." (interactive "P") (or arg - (setq arg (if (eq cperl-syntaxify-by-font-lock + (setq arg (if (eq cperl-syntaxify-by-font-lock (if backtrace 'backtrace 'message)) 0 1))) (setq arg (if (> arg 0) (if backtrace 'backtrace 'message) t)) (setq cperl-syntaxify-by-font-lock arg) @@ -8245,7 +8245,7 @@ We suppose that the regexp is scanned already." (defun cperl-invert-if-unless-modifiers () "Change `B if A;' into `if (A) {B}' etc if possible. \(Unfinished.)" - (interactive) ; + (interactive) ; (let (A B pre-B post-B pre-if post-if pre-A post-A if-string (w-rex "\\<\\(if\\|unless\\|while\\|until\\|for\\|foreach\\)\\>")) (and (= (char-syntax (preceding-char)) ?w) From 23dcd8ca146002df47575b2f52e1ea7c7dcfb18e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 14:46:11 +0000 Subject: [PATCH 021/127] *** empty log message *** --- lisp/mh-e/ChangeLog | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 83afab4e507..d538ddc94ef 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,9 @@ +2008-02-05 Juanma Barranquero + + * mh-e.el (mh-scan-format-file-check, mh-adaptive-cmd-note-flag-check): + * mh-xface.el (mh-x-image-url-cache-canonicalize): + Replace `legal' with `valid'. + 2007-08-08 Glenn Morris * mh-folder.el, mh-letter.el, mh-show.el: Replace `iff' in From f01e03d36870b8f7044c91d20b3c55f2ebd1f02f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 16:02:55 +0000 Subject: [PATCH 022/127] In help, use generic names for the image libraries. --- nt/ChangeLog | 4 ++++ nt/configure.bat | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/nt/ChangeLog b/nt/ChangeLog index 88c633c8c39..cc5ecd34878 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog @@ -1,3 +1,7 @@ +2008-02-05 Juanma Barranquero + + * configure.bat: In help, use generic names for the image libraries. + 2008-01-20 Jason Rumney * gmake.defs (CYGWIN) [USING_SH]: Disable mapping of file diff --git a/nt/configure.bat b/nt/configure.bat index 6b5441c1d67..725cd09e8d8 100755 --- a/nt/configure.bat +++ b/nt/configure.bat @@ -120,11 +120,11 @@ echo. --no-opt disable optimization echo. --no-cygwin use -mno-cygwin option with GCC echo. --cflags FLAG pass FLAG to compiler echo. --ldflags FLAG pass FLAG to compiler when linking -echo. --without-png do not use libpng even if it is installed -echo. --without-jpeg do not use jpeg-6b even if it is installed -echo. --without-gif do not use libungif even if it is installed -echo. --without-tiff do not use libtiff even if it is installed -echo. --without-xpm do not use libXpm even if it is installed +echo. --without-png do not use PNG library even if it is installed +echo. --without-jpeg do not use JPEG library even if it is installed +echo. --without-gif do not use GIF library even if it is installed +echo. --without-tiff do not use TIFF library even if it is installed +echo. --without-xpm do not use XPM library even if it is installed goto end rem ---------------------------------------------------------------------- :setprefix From 89aa5de3b2e887f5314e824529d11b774ca3c825 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 16:13:34 +0000 Subject: [PATCH 023/127] Recommend giflib, not libungif. --- ChangeLog | 15 +++++++++------ INSTALL | 5 +---- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 63ec131c45b..85d4b45b715 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2008-02-05 Ulrich Mueller (tiny change) + + * INSTALL: Recommend giflib, not libungif. + 2008-01-23 Dan Nicolaescu * configure.in (xtensa): Match more configurations. @@ -16,7 +20,7 @@ * configure.in: Add support for gnu-kfreebsd. -2007-09-16 Peter O'Gorman (tiny change) +2007-09-16 Peter O'Gorman (tiny change) * configure.in: Don't use -lpthread on HP-UX. @@ -49,8 +53,7 @@ 2007-04-19 Glenn Morris - * configure.in: Signal error if Xaw libs are missing in a Lucid - build. + * configure.in: Signal error if Xaw libs are missing in a Lucid build. 2007-04-18 Glenn Morris @@ -923,7 +926,7 @@ 2003-04-28 Francesco Potort,Al(B - * configure.in: Undo last (RMS') change, as it is useless, per + * configure.in: Undo last (RMS') change, as it is useless, per Dave Love. 2003-04-08 Richard M. Stallman @@ -1094,7 +1097,7 @@ 2002-10-30 Dave Love - * configure.in: Require autoconf 2.53. Test for pty.h, + * configure.in: Require autoconf 2.53. Test for pty.h, sys/mman.h, sys/param.h, mremap, memmove. (AH_BOTTOM): Maybe include strings.h. Add local variables for mode. (AC_PROG_YACC): Delete. @@ -2884,7 +2887,7 @@ 1997-04-09 Marcus G. Daniels - * configure.in (doug_lea_malloc): First check for SYSTEM_MALLOC, + * configure.in (doug_lea_malloc): First check for SYSTEM_MALLOC, in case it is desirable to disable the GNU malloc features with glibc. 1997-04-08 Marcus G. Daniels diff --git a/INSTALL b/INSTALL index 1ab1cc3da90..40831136ad9 100644 --- a/INSTALL +++ b/INSTALL @@ -139,10 +139,7 @@ can be found: Get version 6b -- 6a is reported to fail in Emacs. . libtiff for TIFF: http://www.libtiff.org/ - . libungif for GIF: - http://sourceforge.net/projects/libungif - Ensure you get version 4.1.0b1 or higher of libungif -- a bug in - 4.1.0 can crash Emacs. + . libgif for GIF: http://sourceforge.net/projects/giflib/ Emacs will configure itself to build with these libraries if the `configure' script finds them on your system, unless you supply the From c1df90efa3cbdc85c5bf9aaf46929f0f34461ab7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 20:46:55 +0000 Subject: [PATCH 024/127] *** empty log message *** --- ChangeLog | 4 ---- 1 file changed, 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 85d4b45b715..a13ebe96c29 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,3 @@ -2008-02-05 Ulrich Mueller (tiny change) - - * INSTALL: Recommend giflib, not libungif. - 2008-01-23 Dan Nicolaescu * configure.in (xtensa): Match more configurations. From f5083624599b3f522c22f80ce297988833367f68 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Feb 2008 20:48:39 +0000 Subject: [PATCH 025/127] Revert previous change, which was intended for the trunk. --- INSTALL | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/INSTALL b/INSTALL index 40831136ad9..1ab1cc3da90 100644 --- a/INSTALL +++ b/INSTALL @@ -139,7 +139,10 @@ can be found: Get version 6b -- 6a is reported to fail in Emacs. . libtiff for TIFF: http://www.libtiff.org/ - . libgif for GIF: http://sourceforge.net/projects/giflib/ + . libungif for GIF: + http://sourceforge.net/projects/libungif + Ensure you get version 4.1.0b1 or higher of libungif -- a bug in + 4.1.0 can crash Emacs. Emacs will configure itself to build with these libraries if the `configure' script finds them on your system, unless you supply the From 85bb72eefdd7bfc5da9e19fd42c92e6fc748fed4 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Tue, 5 Feb 2008 23:48:23 +0000 Subject: [PATCH 026/127] (w32_read_socket) : Use locale-coding-system instead of using mule-unicode-* charsets directly. --- src/ChangeLog | 5 +++ src/w32term.c | 107 +++++++++++++++++++------------------------------- 2 files changed, 45 insertions(+), 67 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 0288554acd0..f7d6c07a086 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-02-05 Jason Rumney + + * w32term.c (w32_read_socket) : Use locale-coding-system + instead of using mule-unicode-* charsets directly. + 2008-02-05 Juanma Barranquero * unexec.c (make_hdr): diff --git a/src/w32term.c b/src/w32term.c index 23b79008402..2b007b14b44 100644 --- a/src/w32term.c +++ b/src/w32term.c @@ -4338,7 +4338,7 @@ w32_read_socket (sd, expected, hold_quit) } } - /* Now process unicode input as per xterm.c */ + /* Process unicode input for ASCII and ISO Control only. */ if (code < 0x80) { inev.kind = ASCII_KEYSTROKE_EVENT; @@ -4346,82 +4346,56 @@ w32_read_socket (sd, expected, hold_quit) } else if (code < 0xA0) inev.code = MAKE_CHAR (CHARSET_8_BIT_CONTROL, code, 0); - else if (code < 0x100) - inev.code = MAKE_CHAR (charset_latin_iso8859_1, code, 0); else { - int c1, c2; - int charset_id; + /* Many locales do not have full mapping from + unicode on save, so use the locale coding to + decode them. Windows only allows non-Unicode + Windows to receive characters in the system + locale anyway, so this doesn't really limit + us. */ + int nbytes, nchars, require, i, len; + unsigned char *dest; + struct coding_system coding; - if (code < 0x2500) + if (dbcs[0] == 0) { - charset_id = charset_mule_unicode_0100_24ff; - code -= 0x100; - } - else if (code < 0x3400) - { - charset_id = charset_mule_unicode_2500_33ff; - code -= 0x2500; - } - else if (code >= 0xE000) - { - charset_id = charset_mule_unicode_e000_ffff; - code -= 0xE000; + nbytes = 1; + dbcs[0] = dbcs[1]; } else - { - /* Not in the unicode range that we can handle in - Emacs-22, so decode the original character - using the locale */ - int nbytes, nchars, require, i, len; - unsigned char *dest; - struct coding_system coding; + nbytes = 2; - if (dbcs[0] == 0) + setup_coding_system (Vlocale_coding_system, &coding); + coding.src_multibyte = 0; + coding.dst_multibyte = 1; + coding.composing = COMPOSITION_DISABLED; + require = decoding_buffer_size (&coding, nbytes); + dest = (unsigned char *) alloca (require); + coding.mode |= CODING_MODE_LAST_BLOCK; + + decode_coding (&coding, dbcs, dest, nbytes, require); + nbytes = coding.produced; + nchars = coding.produced_char; + + for (i = 0; i < nbytes; i += len) + { + if (nchars == nbytes) { - nbytes = 1; - dbcs[0] = dbcs[1]; + inev.code = dest[i]; + len = 1; } else - nbytes = 2; - - setup_coding_system (Vlocale_coding_system, &coding); - coding.src_multibyte = 0; - coding.dst_multibyte = 1; - coding.composing = COMPOSITION_DISABLED; - require = decoding_buffer_size (&coding, nbytes); - dest = (unsigned char *) alloca (require); - coding.mode |= CODING_MODE_LAST_BLOCK; - - decode_coding (&coding, dbcs, dest, nbytes, require); - nbytes = coding.produced; - nchars = coding.produced_char; - - for (i = 0; i < nbytes; i += len) - { - if (nchars == nbytes) - { - inev.code = dest[i]; - len = 1; - } - else - inev.code = STRING_CHAR_AND_LENGTH (dest + i, - nbytes - 1, - len); - inev.kind = (SINGLE_BYTE_CHAR_P (inev.code) - ? ASCII_KEYSTROKE_EVENT - : MULTIBYTE_CHAR_KEYSTROKE_EVENT); - kbd_buffer_store_event_hold (&inev, hold_quit); - count++; - } - inev.kind = NO_EVENT; /* Already handled */ - break; + inev.code = STRING_CHAR_AND_LENGTH (dest + i, + nbytes - 1, + len); + inev.kind = (SINGLE_BYTE_CHAR_P (inev.code) + ? ASCII_KEYSTROKE_EVENT + : MULTIBYTE_CHAR_KEYSTROKE_EVENT); + kbd_buffer_store_event_hold (&inev, hold_quit); + count++; } - - /* Unicode characters from above. */ - c1 = (code / 96) + 32; - c2 = (code % 96) + 32; - inev.code = MAKE_CHAR (charset_id, c1, c2); + inev.kind = NO_EVENT; /* Already handled */ } } else @@ -4430,7 +4404,6 @@ w32_read_socket (sd, expected, hold_quit) in non-Unicode message handlers. */ DebPrint (("Non-byte WM_CHAR: %d\n", msg.msg.wParam)); inev.kind = NO_EVENT; - break; } } break; From 64137f20978c133c6f74d9aea65b240edc76be3a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Feb 2008 17:48:42 +0000 Subject: [PATCH 027/127] (mh-do-in-gnu-emacs, mh-do-in-xemacs) (with-mh-folder-updating, mh-in-show-buffer) (mh-iterate-on-messages-in-region, mh-iterate-on-range): (mh-do-at-event-location, mh-seq-msgs): Add debug decls. --- lisp/mh-e/mh-acros.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el index 21fe19bb885..bfc5fa283de 100644 --- a/lisp/mh-e/mh-acros.el +++ b/lisp/mh-e/mh-acros.el @@ -65,12 +65,14 @@ loads \"cl\" appropriately." ;;;###mh-autoload (defmacro mh-do-in-gnu-emacs (&rest body) "Execute BODY if in GNU Emacs." + (declare (debug t)) (unless (featurep 'xemacs) `(progn ,@body))) (put 'mh-do-in-gnu-emacs 'lisp-indent-hook 'defun) ;;;###mh-autoload (defmacro mh-do-in-xemacs (&rest body) "Execute BODY if in XEmacs." + (declare (debug t)) (when (featurep 'xemacs) `(progn ,@body))) (put 'mh-do-in-xemacs 'lisp-indent-hook 'defun) @@ -178,6 +180,7 @@ Execute BODY, which can modify the folder buffer without having to worry about file locking or the read-only flag, and return its result. If SAVE-MODIFICATION-FLAG is non-nil, the buffer's modification flag is unchanged, otherwise it is cleared." + (declare (debug t)) (setq save-modification-flag (car save-modification-flag)) ; CL style `(prog1 (let ((mh-folder-updating-mod-flag (buffer-modified-p)) @@ -196,6 +199,7 @@ is unchanged, otherwise it is cleared." "Format is (mh-in-show-buffer (SHOW-BUFFER) &body BODY). Display buffer SHOW-BUFFER in other window and execute BODY in it. Stronger than `save-excursion', weaker than `save-window-excursion'." + (declare (debug t)) (setq show-buffer (car show-buffer)) ; CL style `(let ((mh-in-show-buffer-saved-window (selected-window))) (switch-to-buffer-other-window ,show-buffer) @@ -212,6 +216,7 @@ Stronger than `save-excursion', weaker than `save-window-excursion'." After BODY has been executed return to original window. The modification flag of the buffer in the event window is preserved." + (declare (debug t)) (let ((event-window (make-symbol "event-window")) (event-position (make-symbol "event-position")) (original-window (make-symbol "original-window")) @@ -245,9 +250,9 @@ preserved." ;;; Sequences and Ranges ;;;###mh-autoload -(defmacro mh-seq-msgs (sequence) +(defsubst mh-seq-msgs (sequence) "Extract messages from the given SEQUENCE." - (list 'cdr sequence)) + (cdr sequence)) ;;;###mh-autoload (defmacro mh-iterate-on-messages-in-region (var begin end &rest body) @@ -257,6 +262,7 @@ VAR is bound to the message on the current line as we loop starting from BEGIN till END. In each step BODY is executed. If VAR is nil then the loop is executed without any binding." + (declare (debug (symbolp body))) (unless (symbolp var) (error "Can not bind the non-symbol %s" var)) (let ((binding-needed-flag var)) @@ -282,6 +288,7 @@ a string. In each iteration, BODY is executed. The parameter RANGE is usually created with `mh-interactive-range' in order to provide a uniform interface to MH-E functions." + (declare (debug (symbolp body))) (unless (symbolp var) (error "Can not bind the non-symbol %s" var)) (let ((binding-needed-flag var) From 27c335693403393b7c38be96e85bf6629972ed2b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Feb 2008 17:49:56 +0000 Subject: [PATCH 028/127] (mh-make-seq, mh-seq-name): Use defsubst. --- lisp/mh-e/ChangeLog | 10 ++++++++++ lisp/mh-e/mh-seq.el | 8 ++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index d538ddc94ef..79e44c96256 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,13 @@ +2008-02-06 Richard Stallman + + * mh-seq.el (mh-make-seq, mh-seq-name): Use defsubst. + + * mh-acros.el (mh-do-in-gnu-emacs, mh-do-in-xemacs) + (with-mh-folder-updating, mh-in-show-buffer) + (mh-iterate-on-messages-in-region, mh-iterate-on-range): + (mh-do-at-event-location): Add debug decls. + (mh-seq-msgs): Use defsubst. + 2008-02-05 Juanma Barranquero * mh-e.el (mh-scan-format-file-check, mh-adaptive-cmd-note-flag-check): diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el index 87c59cd8136..fd64d8a6902 100644 --- a/lisp/mh-e/mh-seq.el +++ b/lisp/mh-e/mh-seq.el @@ -53,13 +53,13 @@ ;;; Macros -(defmacro mh-make-seq (name msgs) +(defsubst mh-make-seq (name msgs) "Create sequence NAME with the given MSGS." - (list 'cons name msgs)) + (cons name msgs)) -(defmacro mh-seq-name (sequence) +(defsubst mh-seq-name (sequence) "Extract sequence name from the given SEQUENCE." - (list 'car sequence)) + (car sequence)) From 431b78c9f4d691639585171ea2a11df19fdcc918 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 Feb 2008 00:42:58 +0000 Subject: [PATCH 029/127] (Window Start): Mention the feature of moving window-start to start of line. --- lispref/ChangeLog | 5 +++++ lispref/windows.texi | 25 ++++++++++++++++++------- 2 files changed, 23 insertions(+), 7 deletions(-) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 7febc50fdef..d6a7c43f102 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,8 @@ +2008-02-07 Richard Stallman + + * windows.texi (Window Start): Mention the feature of moving + window-start to start of line. + 2008-01-19 Martin Rudalics * buffers.texi (Buffer Modification): Fix typo. diff --git a/lispref/windows.texi b/lispref/windows.texi index 6f6431cf45d..96f4d5af69d 100644 --- a/lispref/windows.texi +++ b/lispref/windows.texi @@ -1229,6 +1229,15 @@ is called the @dfn{display-start} position of the window (or just the at the upper left corner of the window. It is usually, but not inevitably, at the beginning of a text line. + After switching windows or buffers, and in some other cases, if the +window start is in the middle of a line, Emacs adjusts the window +start to the start of a line. This prevents certain operations from +leaving the window start at a meaningless point within a line. This +feature may interfere with testing some Lisp code by executing it +using the commands of Lisp mode, because they trigger this +readjustment. To test such code, put it into a command and bind the +command to a key. + @defun window-start &optional window @cindex window top line This function returns the display-start position of window @@ -1296,10 +1305,10 @@ However, if you specify the start position with this function using screen. If this does place point off screen, the display routines move point to the left margin on the middle line in the window. -For example, if point @w{is 1} and you set the start of the window @w{to -2}, then point would be ``above'' the top of the window. The display -routines will automatically move point if it is still 1 when redisplay -occurs. Here is an example: +For example, if point @w{is 1} and you set the start of the window +@w{to 37}, the start of the next line, point will be ``above'' the top +of the window. The display routines will automatically move point if +it is still 1 when redisplay occurs. Here is an example: @example @group @@ -1321,15 +1330,17 @@ occurs. Here is an example: @group (set-window-start (selected-window) - (1+ (window-start))) -@result{} 2 + (save-excursion + (goto-char 1) + (forward-line 1) + (point))) +@result{} 37 @end group @group ;; @r{Here is what @samp{foo} looks like after executing} ;; @r{the @code{set-window-start} expression.} ---------- Buffer: foo ---------- -his is the contents of buffer foo. 2 3 @point{}4 From debe41d6b212c8af7553b0b1417d6a2db717458b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Feb 2008 06:17:10 +0000 Subject: [PATCH 030/127] compilation-scroll-output fixed. --- etc/NEWS | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index b6d2cee7b8c..4f67d8cb8d1 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -85,6 +85,11 @@ customize it with the new option `desktop-load-locked-desktop'. When saving, desktop.el warns about attempts to overwrite a desktop file if it determines that the desktop being saved is not an update of the one on disk. +** Compilation mode now correctly respects the value of +`compilation-scroll-output' between invocations. Previously, output +was mistakenly scrolled on compiles after the first. Customize +`compilation-scroll-output' if you want to retain the scrolling. + * New Modes and Packages in Emacs 22.2 ** bibtex-style-mode helps you write BibTeX's *.bst files. From 82813e57327a9791759daac2f92b22e314f84ddb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Feb 2008 06:26:59 +0000 Subject: [PATCH 031/127] D. E. Evans (tiny change) (Basic Undo): Remove duplicate "you can". --- man/ChangeLog | 4 ++++ man/basic.texi | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/man/ChangeLog b/man/ChangeLog index e430b23d915..f96c9320d6d 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,7 @@ +2008-02-07 D. E. Evans (tiny change) + + * basic.texi (Basic Undo): Remove duplicate "you can". + 2008-02-05 Juanma Barranquero * org.texi (Setting tags, In-buffer settings): diff --git a/man/basic.texi b/man/basic.texi index da096f530b2..c07b6f0d1cc 100644 --- a/man/basic.texi +++ b/man/basic.texi @@ -321,10 +321,10 @@ line with the following line. @section Undoing Changes Emacs records a list of changes made in the buffer text, so you can -you can undo recent changes, as far as the records go. -Usually each editing command makes a separate entry in the undo -records, but sometimes an entry covers just part of a command, and -very simple commands may be grouped. +undo recent changes, as far as the records go. Usually each editing +command makes a separate entry in the undo records, but sometimes an +entry covers just part of a command, and very simple commands may be +grouped. @table @kbd @item C-x u From 1e281896cfa95242a33b483085383a1d9660da4c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Feb 2008 05:00:46 +0000 Subject: [PATCH 032/127] (custom-theme-set-variables): Sort symbols that are dependencies before symbols that depend on them. (custom-enabled-themes): Set after custom-theme-directory. --- lisp/ChangeLog | 6 ++++++ lisp/custom.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 66c29fe83f3..243018e12b8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-02-08 Glenn Morris + + * custom.el (custom-theme-set-variables): Sort symbols that are + dependencies before symbols that depend on them. + (custom-enabled-themes): Set after custom-theme-directory. + 2008-02-04 Juanma Barranquero * w32-vars.el (w32-system-shells): Add TCC (new name for 4NT). diff --git a/lisp/custom.el b/lisp/custom.el index 64c0d2e6a6f..1a045483491 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -885,7 +885,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')." (memq (get symbol 'custom-autoload) '(nil noset))) ;; This symbol needs to be autoloaded, even just for a `set'. (custom-load-symbol symbol)))) - + ;; Move minor modes and variables with explicit requires to the end. (setq args (sort args @@ -898,6 +898,8 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')." (error "Circular custom dependency between `%s' and `%s'" sym1 sym2)) (2-then-1 nil) + ;; 1 is a dependency of 2, so needs to be set first. + (1-then-2) ;; Put minor modes and symbols with :require last. ;; Putting minor modes last ensures that the mode ;; function will see other customized values rather @@ -1092,6 +1094,7 @@ This does not include the `user' theme, which is set by Customize, and always takes precedence over other Custom Themes." :group 'customize :type '(repeat symbol) + :set-after '(custom-theme-directory) ; so we can find the themes :set (lambda (symbol themes) ;; Avoid an infinite loop when custom-enabled-themes is ;; defined in a theme (e.g. `user'). Enabling the theme sets From 46f6fa95d18dfc951e1c55fee1c727d68f006861 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 8 Feb 2008 18:22:54 +0000 Subject: [PATCH 033/127] (ifconfig): Renamed from ipconfig. (ipconfig): Alas to ifconfig. (ifconfig-program): Renamed from ipconfig-program. (ifconfig-program-options): Renamed from ipconfig-program-options. --- lisp/ChangeLog | 7 +++++++ lisp/net/net-utils.el | 22 +++++++++++----------- 2 files changed, 18 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 243018e12b8..2732fb56bb5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-02-08 Richard Stallman + + * net/net-utils.el (ifconfig): Renamed from ipconfig. + (ipconfig): Alas to ifconfig. + (ifconfig-program): Renamed from ipconfig-program. + (ifconfig-program-options): Renamed from ipconfig-program-options. + 2008-02-08 Glenn Morris * custom.el (custom-theme-set-variables): Sort symbols that are diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index fcfb8524b09..bc235b71f94 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -93,7 +93,7 @@ These options can be used to limit how many ICMP packets are emitted." :group 'net-utils :type '(repeat string)) -(defcustom ipconfig-program +(defcustom ifconfig-program (if (eq system-type 'windows-nt) "ipconfig" "ifconfig") @@ -101,11 +101,11 @@ These options can be used to limit how many ICMP packets are emitted." :group 'net-utils :type 'string) -(defcustom ipconfig-program-options +(defcustom ifconfig-program-options (list (if (eq system-type 'windows-nt) "/all" "-a")) - "Options for ipconfig-program." + "Options for `ifconfig-program'." :group 'net-utils :type '(repeat string)) @@ -352,18 +352,18 @@ If your system's ping continues until interrupted, you can try setting options))) ;;;###autoload -(defun ipconfig () - "Run ipconfig program." +(defun ifconfig () + "Run ifconfig program." (interactive) (net-utils-run-program - "Ipconfig" - (concat "** Ipconfig ** " ipconfig-program " ** ") - ipconfig-program - ipconfig-program-options)) + "Ifconfig" + (concat "** Ifconfig ** " ifconfig-program " ** ") + ifconfig-program + ifconfig-program-options)) -;; This is the normal name on most Unixes. +;; Windows uses this name. ;;;###autoload -(defalias 'ifconfig 'ipconfig) +(defalias 'ipconfig 'ifconfig) ;;;###autoload (defun netstat () From 9f889daf9f5fd63bf3a2bcc5ee98b7382961222c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Feb 2008 20:09:16 +0000 Subject: [PATCH 034/127] (selection-coding-system): Remove, since it's now defined in select.el rather than in xselect.c. --- lisp/cus-start.el | 5 ----- 1 file changed, 5 deletions(-) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 8c95f9af65f..80b51793738 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -129,7 +129,6 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of :match (lambda (widget value) (and value (not (functionp value))))) (function :value ignore)))) - (selection-coding-system mule coding-system "22.1") ;; dired.c (completion-ignored-extensions dired (repeat (string :format "%v"))) @@ -456,10 +455,6 @@ since it could result in memory overflow and make Emacs crash." (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start 'custom-variable) -(put 'selection-coding-system 'custom-set - (lambda (symbol value) - (set-selection-coding-system value) - (set symbol value))) ;; Record cus-start as loaded ;; if we have set up all the info that we can set up. From b55a97a5a3e70be9296bcc7c0e7e6b6100989ebb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Feb 2008 20:11:33 +0000 Subject: [PATCH 035/127] Revert previous change, which should have been on the trunk. --- lisp/cus-start.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 80b51793738..8c95f9af65f 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -129,6 +129,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of :match (lambda (widget value) (and value (not (functionp value))))) (function :value ignore)))) + (selection-coding-system mule coding-system "22.1") ;; dired.c (completion-ignored-extensions dired (repeat (string :format "%v"))) @@ -455,6 +456,10 @@ since it could result in memory overflow and make Emacs crash." (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start 'custom-variable) +(put 'selection-coding-system 'custom-set + (lambda (symbol value) + (set-selection-coding-system value) + (set symbol value))) ;; Record cus-start as loaded ;; if we have set up all the info that we can set up. From d884d6adc76215fc61b3609b6bf2e7c0546ee430 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 9 Feb 2008 01:32:38 +0000 Subject: [PATCH 036/127] (ipconfig-program, ipconfig-program-options): Add obsolete aliases to the old names. --- lisp/ChangeLog | 9 +++++++-- lisp/net/net-utils.el | 5 +++++ 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2732fb56bb5..08d7ad44e08 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,14 @@ +2008-02-09 Glenn Morris + + * net/net-utils.el (ipconfig-program, ipconfig-program-options): + Add obsolete aliases to the old names. + 2008-02-08 Richard Stallman - * net/net-utils.el (ifconfig): Renamed from ipconfig. + * net/net-utils.el (ifconfig): Rename from ipconfig. (ipconfig): Alas to ifconfig. (ifconfig-program): Renamed from ipconfig-program. - (ifconfig-program-options): Renamed from ipconfig-program-options. + (ifconfig-program-options): Rename from ipconfig-program-options. 2008-02-08 Glenn Morris diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index bc235b71f94..0bed6cc9bcd 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -101,6 +101,8 @@ These options can be used to limit how many ICMP packets are emitted." :group 'net-utils :type 'string) +(define-obsolete-variable-alias 'ipconfig-program 'ifconfig-program "22.2") + (defcustom ifconfig-program-options (list (if (eq system-type 'windows-nt) @@ -109,6 +111,9 @@ These options can be used to limit how many ICMP packets are emitted." :group 'net-utils :type '(repeat string)) +(define-obsolete-variable-alias 'ipconfig-program-options + 'ifconfig-program-options "22.2") + (defcustom netstat-program "netstat" "Program to print network statistics." :group 'net-utils From 714536d63bcae069b63c5d18821e1a1ca8808690 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 9 Feb 2008 01:33:54 +0000 Subject: [PATCH 037/127] Fix tense. --- lisp/ChangeLog | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08d7ad44e08..46247265ab6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,7 +7,7 @@ * net/net-utils.el (ifconfig): Rename from ipconfig. (ipconfig): Alas to ifconfig. - (ifconfig-program): Renamed from ipconfig-program. + (ifconfig-program): Rename from ipconfig-program. (ifconfig-program-options): Rename from ipconfig-program-options. 2008-02-08 Glenn Morris From e07277ffa0d2b64d5a13120deb202d222ade9dc2 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 9 Feb 2008 01:37:45 +0000 Subject: [PATCH 038/127] Fix typo. --- lisp/ChangeLog | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 46247265ab6..9e44d6a7e2b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -6,7 +6,7 @@ 2008-02-08 Richard Stallman * net/net-utils.el (ifconfig): Rename from ipconfig. - (ipconfig): Alas to ifconfig. + (ipconfig): Alias to ifconfig. (ifconfig-program): Rename from ipconfig-program. (ifconfig-program-options): Rename from ipconfig-program-options. From 471e312dbfd0b6d038c4eb1958ba71b6fdc5378d Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sat, 9 Feb 2008 12:09:55 +0000 Subject: [PATCH 039/127] Add note about ldefs-boot.el line ends. --- nt/INSTALL | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/nt/INSTALL b/nt/INSTALL index 7ce4ef1b95b..8f70a8d6a83 100644 --- a/nt/INSTALL +++ b/nt/INSTALL @@ -101,6 +101,11 @@ dos2unix and unix2dos available from GnuWin32 or dtou and utod from the DJGPP project. + Additionally, the file lisp/ldefs-boot.el needs Unix line ends due + to some embedded ^M characters that are not at the end of the line. + So in the lisp directory you should run "cvs update -kb ldefs-boot.el", + or use dos2unix on that file. + In addition to this file, you should also read INSTALL.CVS in the parent directory, and make sure that you have a version of "touch.exe" in your path, and that it will create files that do not From f34cec5cc8d94718d2bdc87ac321b7535a942311 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Feb 2008 13:00:20 +0000 Subject: [PATCH 040/127] Remove redundant empty lines, insert a magic line instead. --- etc/ChangeLog | 5 +++++ etc/TUTORIAL.ru | 17 +---------------- 2 files changed, 6 insertions(+), 16 deletions(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 79bfbab7f4f..9ce5bf487fa 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,8 @@ +2008-02-09 Eli Zaretskii + + * TUTORIAL.ru: Remove redundant empty lines, insert a magic line + instead. + 2008-02-02 Eli Zaretskii * TUTORIAL.ru: Restore copyright years. Update tutorial. Fix diff --git a/etc/TUTORIAL.ru b/etc/TUTORIAL.ru index 4a2ca6b8dc6..b7dd794e82b 100644 --- a/etc/TUTORIAL.ru +++ b/etc/TUTORIAL.ru @@ -15,23 +15,8 @@ EDIT). ÷ÁÖÎÏÅ ÚÁÍÅÞÁÎÉÅ: ÄÌÑ ÚÁ×ÅÒÛÅÎÉÑ ÓÅÁÎÓÁ Emacs, ÎÁÂÅÒÉÔÅ C-x C-c (Ä×Á ÓÉÍ×ÏÌÁ). óÉÍ×ÏÌÙ ">>" Ó ÌÅ×ÏÊ ÓÔÏÒÏÎÙ ÕËÁÚÙ×ÁÀÔ, ÞÔÏ ×ÁÍ ÎÕÖÎÏ ÄÅÌÁÔØ, ÞÔÏÂÙ ÐÒÉÍÅÎÉÔØ ËÏÍÁÎÄÕ. îÁÐÒÉÍÅÒ: - - - - - - - - +<> [óÅÒÅÄÉÎÁ ÓÔÒÁÎÉÃÙ ÏÓÔÁ×ÌÅÎÁ ÐÕÓÔÏÊ × ÕÞÅÂÎÙÈ ÃÅÌÑÈ. ôÅËÓÔ ÐÒÏÄÏÌÖÁÅÔÓÑ ÎÉÖÅ] - - - - - - - - >> ôÅÐÅÒØ ÎÁÖÍÉÔÅ C-v (ÐÒÏÓÍÏÔÒ ÓÌÅÄÕÀÝÅÇÏ ÜËÒÁÎÁ) ÄÌÑ ÐÅÒÅÍÅÝÅÎÉÑ ÎÁ ÓÌÅÄÕÀÝÉÊ ÜËÒÁÎ. (÷ÙÐÏÌÎÉÔÅ ÜÔÕ ËÏÍÁÎÄÕ ÕÄÅÒÖÉ×ÁÑ ËÌÁ×ÉÛÕ CONTROL É ÎÁÖÉÍÁÑ v.) ôÅÐÅÒØ ×Ù ÄÏÌÖÎÙ ÜÔÏ ÓÄÅÌÁÔØ ÅÝÅ ÒÁÚ, ËÏÇÄÁ ÚÁËÏÎÞÉÔÅ ÞÉÔÁÔØ From d375705e3c31d18dd50474ec95ec84bc05c2b23d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Feb 2008 13:22:35 +0000 Subject: [PATCH 041/127] (syms_of_fileio) : Doc fix. --- src/ChangeLog | 4 ++++ src/fileio.c | 24 +++++++++++++++--------- 2 files changed, 19 insertions(+), 9 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index f7d6c07a086..3cf55438b83 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-02-09 Eli Zaretskii + + * fileio.c (syms_of_fileio) : Doc fix. + 2008-02-05 Jason Rumney * w32term.c (w32_read_socket) : Use locale-coding-system diff --git a/src/fileio.c b/src/fileio.c index ef2b0cfbb2e..c5bff5b8153 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -6630,19 +6630,25 @@ of file names regardless of the current language environment. */); DEFVAR_BOOL ("insert-default-directory", &insert_default_directory, doc: /* *Non-nil means when reading a filename start with default dir in minibuffer. -If the initial minibuffer contents are non-empty, you can usually -request a default filename by typing RETURN without editing. For some -commands, exiting with an empty minibuffer has a special meaning, -such as making the current buffer visit no file in the case of -`set-visited-file-name'. + +When the initial minibuffer contents show a name of a file or a directory, +typing RETURN without editing the initial contents is equivalent to typing +the default file name. + If this variable is non-nil, the minibuffer contents are always -initially non-empty and typing RETURN without editing will fetch the +initially non-empty, and typing RETURN without editing will fetch the default name, if one is provided. Note however that this default name -is not necessarily the name originally inserted in the minibuffer, if -that is just the default directory. +is not necessarily the same as initial contents inserted in the minibuffer, +if the initial contents is just the default directory. + If this variable is nil, the minibuffer often starts out empty. In that case you may have to explicitly fetch the next history element to -request the default name. */); +request the default name; typing RETURN without editing will leave +the minibuffer empty. + +For some commands, exiting with an empty minibuffer has a special meaning, +such as making the current buffer visit no file in the case of +`set-visited-file-name'. */); insert_default_directory = 1; DEFVAR_BOOL ("vms-stmlf-recfm", &vms_stmlf_recfm, From d0048c60f239ad126d061b5ddbf5145cf309e25d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Feb 2008 14:22:49 +0000 Subject: [PATCH 042/127] (compilation-next-error): Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/compile.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9e44d6a7e2b..27a2e5979ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-09 Eli Zaretskii + + * progmodes/compile.el (compilation-next-error): Doc fix. + 2008-02-09 Glenn Morris * net/net-utils.el (ipconfig-program, ipconfig-program-options): diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 1fd0074dd41..bd7302a5a7e 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1544,9 +1544,13 @@ Just inserts the text, but uses `insert-before-markers'." (defun compilation-next-error (n &optional different-file pt) "Move point to the next error in the compilation buffer. +This function does NOT find the source line like \\[next-error]. Prefix arg N says how many error messages to move forwards (or backwards, if negative). -Does NOT find the source line like \\[next-error]." +Optional arg DIFFERENT-FILE, if non-nil, means find next error for a +file that is different from the current one. +Optional arg PT, if non-nil, specifies the value of point to start +looking for the next message." (interactive "p") (or (compilation-buffer-p (current-buffer)) (error "Not in a compilation buffer")) From 5099d51223aceae0a2c50531a0b26eb23e8c9e26 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Feb 2008 14:34:45 +0000 Subject: [PATCH 043/127] (compilation-find-file): Doc fix. --- lisp/ChangeLog | 1 + lisp/progmodes/compile.el | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 27a2e5979ff..c1cd83312bc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2008-02-09 Eli Zaretskii * progmodes/compile.el (compilation-next-error): Doc fix. + (compilation-find-file): Doc fix. 2008-02-09 Glenn Morris diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index bd7302a5a7e..7f87dbcd6b1 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1848,13 +1848,17 @@ and overlay is highlighted between MK and END-MK." (defun compilation-find-file (marker filename directory &rest formats) "Find a buffer for file FILENAME. +If FILENAME is not found at all, ask the user where to find it. +Pop up the buffer containing MARKER and scroll to MARKER if we ask +the user where to find the file. Search the directories in `compilation-search-path'. A nil in `compilation-search-path' means to try the \"current\" directory, which is passed in DIRECTORY. If DIRECTORY is relative, it is combined with `default-directory'. If DIRECTORY is nil, that means use `default-directory'. -If FILENAME is not found at all, ask the user where to find it. -Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." +FORMATS, if given, is a list of formats to reformat FILENAME when +looking for it: for each element FMT in FORMATS, this function +attempts to find a file whose name is produced by (format FMT FILENAME)." (or formats (setq formats '("%s"))) (let ((dirs compilation-search-path) (spec-dir (if directory From 372a33850729815df4cc290b2f3ba2b4f23b9e1d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Feb 2008 00:26:01 +0000 Subject: [PATCH 044/127] (arm*-*-freebsd*): Added. --- ChangeLog | 4 ++++ configure.in | 1 + 2 files changed, 5 insertions(+) diff --git a/ChangeLog b/ChangeLog index a13ebe96c29..1aadc04c7ac 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2008-02-10 Matthew Luckie (tiny change) + + * configure.in (arm*-*-freebsd*): Added. + 2008-01-23 Dan Nicolaescu * configure.in (xtensa): Match more configurations. diff --git a/configure.in b/configure.in index fc2a624487d..99fa531ef28 100644 --- a/configure.in +++ b/configure.in @@ -241,6 +241,7 @@ case "${canonical}" in opsys=freebsd case "${canonical}" in alpha*-*-freebsd*) machine=alpha ;; + arm*-*-freebsd*) machine=arm ;; ia64-*-freebsd*) machine=ia64 ;; sparc64-*-freebsd*) machine=sparc ;; powerpc-*-freebsd*) machine=macppc ;; From 4ff718fbc02c7efc835603fd08e59187afa11d98 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Feb 2008 13:03:08 +0000 Subject: [PATCH 045/127] *** empty log message *** --- admin/FOR-RELEASE | 2 ++ 1 file changed, 2 insertions(+) diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 0aa881b13a0..2781e672123 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -50,6 +50,8 @@ http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-09/msg00055.html * BUGS +** Simon.Marshall@misys.com, 8 Feb: Point before start of properties + * DOCUMENTATION ** Check the Emacs Tutorial. From 73dd622fb4648ce267acbaa15e1b57d64ddedb9f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Feb 2008 14:04:01 +0000 Subject: [PATCH 046/127] (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp. --- lisp/ChangeLog | 5 +++++ lisp/net/rcirc.el | 35 ++++++++++++++++++----------------- 2 files changed, 23 insertions(+), 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c1cd83312bc..9bc3a32df6f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-02-10 ,AF(Bvar Arnfj,Av(Br,Ap(B Bjarmason (tiny change) + + * net/rcirc.el (rcirc-url-regexp): Replace definition by copying + from gnus-button-url-regexp. + 2008-02-09 Eli Zaretskii * progmodes/compile.el (compilation-next-error): Doc fix. diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 5bc775b8957..d885b059240 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -1887,23 +1887,24 @@ keywords when no KEYWORD is given." string)) (defvar rcirc-url-regexp - (rx-to-string - `(and word-boundary - (or (and - (or (and (or "http" "https" "ftp" "file" "gopher" "news" - "telnet" "wais" "mailto") - "://") - "www.") - (1+ (char "-a-zA-Z0-9_.")) - (1+ (char "-a-zA-Z0-9_")) - (optional ":" (1+ (char "0-9")))) - (and (1+ (char "-a-zA-Z0-9_.")) - (or ".com" ".net" ".org") - word-boundary)) - (optional - (and "/" - (1+ (char "-a-zA-Z0-9_=!?#$\@~`%&*+|\\/:;.,{}[]()")) - (char "-a-zA-Z0-9_=#$\@~`%&*+|\\/:;{}[]()"))))) + (concat + "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|" + "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)" + "\\(//[-a-z0-9_.]+:[0-9]*\\)?" + (if (string-match "[[:digit:]]" "1") ;; Support POSIX? + (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]") + (punct "!?:;.,")) + (concat + "\\(?:" + ;; Match paired parentheses, e.g. in Wikipedia URLs: + "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "[" chars "]" + "\\|" + "[" chars punct "]+" "[" chars "]" + "\\)")) + (concat ;; XEmacs 21.4 doesn't support POSIX. + "\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+" + "\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)")) + "\\)") "Regexp matching URLs. Set to nil to disable URL features in rcirc.") (defun rcirc-browse-url (&optional arg) From f060b622fb5bbae92d4d44f7d9d290070efff016 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 10 Feb 2008 16:36:07 +0000 Subject: [PATCH 047/127] (diff-beginning-of-file-and-junk): If we're on the Index: line, don't search backward for the previous one. --- lisp/ChangeLog | 5 +++++ lisp/diff-mode.el | 1 + 2 files changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9bc3a32df6f..900489317a7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-02-10 Stefan Monnier + + * diff-mode.el (diff-beginning-of-file-and-junk): If we're on the + Index: line, don't search backward for the previous one. + 2008-02-10 ,AF(Bvar Arnfj,Av(Br,Ap(B Bjarmason (tiny change) * net/rcirc.el (rcirc-url-regexp): Replace definition by copying diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index 4c566b344a9..6794fab11f8 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el @@ -489,6 +489,7 @@ data such as \"Index: ...\" and such." (diff-file-next) (setq file (point))) (let ((index (save-excursion + (forward-line 1) ;In case we're looking at "Index:". (re-search-backward "^Index: " prevhunk t)))) (when index (setq file index)) (if (<= file start) From d6a72cc5000fa6ee663ad3b353df261478f365e5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 11 Feb 2008 00:47:11 +0000 Subject: [PATCH 048/127] (Equality Predicates): Mention equal-including-properties. --- lispref/ChangeLog | 5 +++++ lispref/objects.texi | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index d6a7c43f102..3bb69764066 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,8 @@ +2008-02-11 Glenn Morris + + * objects.texi (Equality Predicates): + Mention equal-including-properties. + 2008-02-07 Richard Stallman * windows.texi (Window Start): Mention the feature of moving diff --git a/lispref/objects.texi b/lispref/objects.texi index eaf20aa7191..9aa8ba24712 100644 --- a/lispref/objects.texi +++ b/lispref/objects.texi @@ -2000,7 +2000,8 @@ always true. @end example Comparison of strings is case-sensitive, but does not take account of -text properties---it compares only the characters in the strings. For +text properties---it compares only the characters in the strings. Use +@code{equal-including-properties} to also compare text properties. For technical reasons, a unibyte string and a multibyte string are @code{equal} if and only if they contain the same sequence of character codes and all these codes are either in the range 0 through From 6bafe8bc27dd3e82849a58be69ca2aba4b666e25 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 11 Feb 2008 00:49:28 +0000 Subject: [PATCH 049/127] Lawrence Mitchell (tiny change) (Equality Predicates): Add defun for equal-including-properties. --- lispref/objects.texi | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lispref/objects.texi b/lispref/objects.texi index 9aa8ba24712..95a858c3cc3 100644 --- a/lispref/objects.texi +++ b/lispref/objects.texi @@ -2032,6 +2032,23 @@ returns @code{t} if and only if both the expressions below return Because of this recursive method, circular lists may therefore cause infinite recursion (leading to an error). +@defun equal-including-properties object1 object2 +This function behaves like @code{equal} in all cases but also requires +that for two strings to be equal, they have the same text properties. + +@example +@group +(equal "asdf" (propertize "asdf" '(asdf t))) + @result{} t +@end group +@group +(equal-including-properties "asdf" + (propertize "asdf" '(asdf t))) + @result{} nil +@end group +@end example +@end defun + @ignore arch-tag: 9711a66e-4749-4265-9e8c-972d55b67096 @end ignore From 8a1a7198ae351b95f580de97146f3ad71d2f4f77 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 11 Feb 2008 00:51:47 +0000 Subject: [PATCH 050/127] (Equality Predicates): No longer talk about "two" functions. --- lispref/ChangeLog | 9 +++++++-- lispref/objects.texi | 2 +- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 3bb69764066..93e8b9c62a0 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,7 +1,12 @@ +2008-02-11 Lawrence Mitchell (tiny change) + + * objects.texi (Equality Predicates): Add defun for + equal-including-properties. + 2008-02-11 Glenn Morris - * objects.texi (Equality Predicates): - Mention equal-including-properties. + * objects.texi (Equality Predicates): Mention + equal-including-properties. No longer talk about "two" functions. 2008-02-07 Richard Stallman diff --git a/lispref/objects.texi b/lispref/objects.texi index 95a858c3cc3..a9e6110d629 100644 --- a/lispref/objects.texi +++ b/lispref/objects.texi @@ -1870,7 +1870,7 @@ This function returns a symbol naming the primitive type of @section Equality Predicates @cindex equality - Here we describe two functions that test for equality between any two + Here we describe functions that test for equality between any two objects. Other functions test equality between objects of specific types, e.g., strings. For these predicates, see the appropriate chapter describing the data type. From bc92622e5d4a15f7aa3a20054df170b751be99ad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Feb 2008 02:32:37 +0000 Subject: [PATCH 051/127] *** empty log message *** --- admin/FOR-RELEASE | 2 ++ 1 file changed, 2 insertions(+) diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 2781e672123..a11c0ae4fcc 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -52,6 +52,8 @@ http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-09/msg00055.html ** Simon.Marshall@misys.com, 8 Feb: Point before start of properties +** python.el changes by Dave Love. + * DOCUMENTATION ** Check the Emacs Tutorial. From f1cefe09d6df020ae8514956ddd75035c469ea7e Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Mon, 11 Feb 2008 15:36:20 +0000 Subject: [PATCH 052/127] (add_registry): Add an App Paths registry key. Look for GTK and add it to the DLL search path for Emacs if found. --- nt/ChangeLog | 5 +++++ nt/addpm.c | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 59 insertions(+) diff --git a/nt/ChangeLog b/nt/ChangeLog index cc5ecd34878..9ed90a97eec 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog @@ -1,3 +1,8 @@ +2008-02-11 Jason Rumney + + * addpm.c (add_registry): Add an App Paths registry key. + Look for GTK and add it to the DLL search path for Emacs if found. + 2008-02-05 Juanma Barranquero * configure.bat: In help, use generic names for the image libraries. diff --git a/nt/addpm.c b/nt/addpm.c index 270ef6d15a7..297fc4c5e81 100644 --- a/nt/addpm.c +++ b/nt/addpm.c @@ -46,6 +46,9 @@ DdeCallback (UINT uType, UINT uFmt, HCONV hconv, CF_TEXT, XTYP_EXECUTE, 30000, NULL) #define REG_ROOT "SOFTWARE\\GNU\\Emacs" +#define REG_GTK "SOFTWARE\\GTK\\2.0" +#define REG_APP_PATH \ + "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\emacs.exe" static struct entry { @@ -73,6 +76,57 @@ add_registry (path) HKEY hrootkey = NULL; int i; BOOL ok = TRUE; + DWORD size; + + /* Record the location of Emacs to the App Paths key if we have + sufficient permissions to do so. This helps Windows find emacs quickly + if the user types emacs.exe in the "Run Program" dialog without having + emacs on their path. Some applications also use the same registry key + to discover the installation directory for programs they are looking for. + Multiple installations cannot be handled by this method, but it does not + affect the general operation of other installations of Emacs, and we + are blindly overwriting the Start Menu entries already. + */ + if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_APP_PATH, 0, "", + REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL, + &hrootkey, NULL) == ERROR_SUCCESS) + { + int len; + char *emacs_path; + HKEY gtk_key = NULL; + + len = strlen (path) + 15; /* \bin\emacs.exe + terminator. */ + emacs_path = alloca (len); + sprintf (emacs_path, "%s\\bin\\emacs.exe", path); + + RegSetValueEx (hrootkey, NULL, 0, REG_SZ, emacs_path, len); + + /* Look for a GTK installation. If found, add it to the library search + path for Emacs so that the image libraries it provides are available + to Emacs regardless of whether it is in the path or not. */ + if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_GTK, REG_OPTION_NON_VOLATILE, + KEY_READ, >k_key) == ERROR_SUCCESS) + { + if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL, + NULL, &size) == ERROR_SUCCESS) + { + char *gtk_path = (char *) alloca (size); + if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL, + gtk_path, &size) == ERROR_SUCCESS) + { + /* Make sure the emacs bin directory continues to be searched + first by including it as well. */ + char *dll_paths; + len = strlen (path) + 5 + size; + dll_paths = (char *) alloca (size + strlen (path) + 1); + sprintf (dll_paths, "%s\\bin;%s", path, gtk_path); + RegSetValueEx (hrootkey, "Path", 0, REG_SZ, dll_paths, len); + } + } + RegCloseKey (gtk_key); + } + RegCloseKey (hrootkey); + } /* Previous versions relied on registry settings, but we do not need them any more. If registry settings are installed from a previous From a74722ee04df987ac828b4c795622287df3ab3af Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Mon, 11 Feb 2008 15:43:56 +0000 Subject: [PATCH 053/127] Add note about GTK image libraries. --- nt/INSTALL | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/nt/INSTALL b/nt/INSTALL index 8f70a8d6a83..633c58dbac4 100644 --- a/nt/INSTALL +++ b/nt/INSTALL @@ -277,8 +277,10 @@ compatible (for example, that they were built with the same compiler). Binaries for the image libraries (among many others) can be found at - the GnuWin32 project. These are built with MinGW, but they can be - used with both GCC/MinGW and MSVC builds of Emacs. See the info on + the GnuWin32 project. PNG, JPEG and TIFF libraries are also + included with GTK, which is installed along with other Free Software + that requires it. These are built with MinGW, but they can be used + with both GCC/MinGW and MSVC builds of Emacs. See the info on http://ourcomments.org/Emacs/w32-build-emacs.html, under "How to Get Images Support", for more details about installing image support libraries. Note specifically that, due to some packaging snafus in @@ -286,6 +288,9 @@ _source_ packages for some of the libraries in order to get the header files necessary for building Emacs with image support. + If GTK 2.0 is installed, addpm will arrange for its image libraries + to be on the DLL search path for Emacs. + * Building After running configure, simply run the appropriate `make' program for From c91db6f12d39ea9b4abeffcebf185b1779562187 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 12 Feb 2008 14:32:56 +0000 Subject: [PATCH 054/127] (uniquify-buffer-base-name): New function. Suggested by Stefan Monnier . --- lisp/uniquify.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 02f598ae9fc..b2167f48656 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -189,6 +189,13 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.") (make-variable-buffer-local 'uniquify-managed) (put 'uniquify-managed 'permanent-local t) +;; Used in desktop.el to save the non-uniquified buffer name +(defun uniquify-buffer-base-name () + "Return the base name of the current buffer. +Return nil if the buffer is not managed by uniquify." + (and uniquify-managed + (uniquify-item-base (car uniquify-managed)))) + ;;; Main entry point. (defun uniquify-rationalize-file-buffer-names (base dirname newbuf) @@ -489,7 +496,7 @@ For use on `kill-buffer-hook'." (dolist (buf buffers) (set-buffer (car buf)) (rename-buffer (cdr buf) t)))) - ;; continue standard uploading + ;; continue standard unloading nil) (provide 'uniquify) From 9787268671ebbdea9f731468af84406390cd40c3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 12 Feb 2008 14:36:34 +0000 Subject: [PATCH 055/127] (uniquify-managed): Don't defvar. (desktop-buffer-info): Use `uniquify-buffer-base-name', not `uniquify-managed'. Return also the buffer's base name. (desktop-save): When saving the buffer info, filter out the base name, and save it as buffer name if the buffer is managed by uniquify. --- lisp/ChangeLog | 11 +++++++++++ lisp/desktop.el | 37 +++++++++++++++++++------------------ 2 files changed, 30 insertions(+), 18 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 900489317a7..5b368112454 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2008-02-12 Juanma Barranquero + + * uniquify.el (uniquify-buffer-base-name): New function. + Suggested by Stefan Monnier . + + * desktop.el (uniquify-managed): Don't defvar. + (desktop-buffer-info): Use `uniquify-buffer-base-name', not + `uniquify-managed'. Return also the buffer's base name. + (desktop-save): When saving the buffer info, filter out the base name, + and save it as buffer name if the buffer is managed by uniquify. + 2008-02-10 Stefan Monnier * diff-mode.el (diff-beginning-of-file-and-junk): If we're on the diff --git a/lisp/desktop.el b/lisp/desktop.el index 2d6f1178079..61db03e8c86 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -135,8 +135,6 @@ ;;; Code: -(defvar uniquify-managed) - (defvar desktop-file-version "206" "Version number of desktop file format. Written into the desktop file and used at desktop read to provide @@ -653,11 +651,11 @@ is nil, ask the user where to save the desktop." (defun desktop-buffer-info (buffer) (set-buffer buffer) (list + ;; base name of the buffer; replaces the buffer name if managed by uniquify + (and (fboundp 'uniquify-buffer-base-name) (uniquify-buffer-base-name)) ;; basic information (desktop-file-name (buffer-file-name) desktop-dirname) - (if (bound-and-true-p uniquify-managed) - (uniquify-item-base (car uniquify-managed)) - (buffer-name)) + (buffer-name) major-mode ;; minor modes (let (ret) @@ -886,19 +884,22 @@ See also `desktop-base-file-name'." (insert "\n;; Buffer section -- buffers listed in same order as in buffer list:\n") (dolist (l (mapcar 'desktop-buffer-info (buffer-list))) - (when (apply 'desktop-save-buffer-p l) - (insert "(" - (if (or (not (integerp eager)) - (if (zerop eager) - nil - (setq eager (1- eager)))) - "desktop-create-buffer" - "desktop-append-buffer-args") - " " - desktop-file-version) - (dolist (e l) - (insert "\n " (desktop-value-to-string e))) - (insert ")\n\n"))) + (let ((base (pop l))) + (when (apply 'desktop-save-buffer-p l) + (insert "(" + (if (or (not (integerp eager)) + (if (zerop eager) + nil + (setq eager (1- eager)))) + "desktop-create-buffer" + "desktop-append-buffer-args") + " " + desktop-file-version) + ;; If the base name is non-nil, we save it instead of the buffer name + (when base (setcar (nthcdr 1 l) base)) + (dolist (e l) + (insert "\n " (desktop-value-to-string e))) + (insert ")\n\n")))) (setq default-directory desktop-dirname) (let ((coding-system-for-write 'emacs-mule)) From 558ca3c1225f6035442733d5d3fb5fd4c40a0a45 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 12 Feb 2008 16:49:21 +0000 Subject: [PATCH 056/127] (font-lock-set-defaults): Unset previously set variables when needed. --- lisp/ChangeLog | 5 +++++ lisp/font-lock.el | 18 +++++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b368112454..49706f3c0aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-02-12 Stefan Monnier + + * font-lock.el (font-lock-set-defaults): Unset previously set variables + when needed. + 2008-02-12 Juanma Barranquero * uniquify.el (uniquify-buffer-base-name): New function. diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 8fcd85515a4..0408d12b5d1 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1777,13 +1777,16 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (cdr-safe (assq major-mode font-lock-removed-keywords-alist)))) (set (make-local-variable 'font-lock-defaults) defaults) ;; Syntactic fontification? - (when (nth 1 defaults) - (set (make-local-variable 'font-lock-keywords-only) t)) + (if (nth 1 defaults) + (set (make-local-variable 'font-lock-keywords-only) t) + (kill-local-variable 'font-lock-keywords-only)) ;; Case fold during regexp fontification? - (when (nth 2 defaults) - (set (make-local-variable 'font-lock-keywords-case-fold-search) t)) + (if (nth 2 defaults) + (set (make-local-variable 'font-lock-keywords-case-fold-search) t) + (kill-local-variable 'font-lock-keywords-case-fold-search)) ;; Syntax table for regexp and syntactic fontification? - (when (nth 3 defaults) + (if (null (nth 3 defaults)) + (kill-local-variable 'font-lock-syntax-table) (set (make-local-variable 'font-lock-syntax-table) (copy-syntax-table (syntax-table))) (dolist (selem (nth 3 defaults)) @@ -1794,9 +1797,10 @@ Sets various variables using `font-lock-defaults' (or, if nil, using (mapcar 'identity (car selem)))) (modify-syntax-entry char syntax font-lock-syntax-table))))) ;; Syntax function for syntactic fontification? - (when (nth 4 defaults) + (if (nth 4 defaults) (set (make-local-variable 'font-lock-beginning-of-syntax-function) - (nth 4 defaults))) + (nth 4 defaults)) + (kill-local-variable 'font-lock-beginning-of-syntax-function)) ;; Variable alist? (dolist (x (nthcdr 5 defaults)) (set (make-local-variable (car x)) (cdr x))) From 5df71560b0f9c577cd23a56d2a726d50932a5c2a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 12 Feb 2008 23:29:19 +0000 Subject: [PATCH 057/127] (fancy-startup-screen, normal-splash-screen): Set default-directory to command-line-default-directory. --- lisp/startup.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index 39a63630fae..1b325db45e7 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1456,6 +1456,7 @@ splash screen in another window." (with-current-buffer splash-buffer (let ((inhibit-read-only t)) (erase-buffer) + (setq default-directory command-line-default-directory) (make-local-variable 'startup-screen-inhibit-startup-screen) (if pure-space-overflow (insert pure-space-overflow-message)) @@ -1554,6 +1555,7 @@ after Emacs starts. If STARTUP is nil, display the About screen." (with-current-buffer (get-buffer-create "*About GNU Emacs*") (setq buffer-read-only nil) (erase-buffer) + (setq default-directory command-line-default-directory) (set (make-local-variable 'tab-width) 8) (if (not startup) (set (make-local-variable 'mode-line-format) From 4c9702c3e88137e8e0b51964b4ab5f8de5ff0814 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 12 Feb 2008 23:30:33 +0000 Subject: [PATCH 058/127] (after-init-hook): Set inhibit-startup-screen to t after reading the desktop. --- lisp/ChangeLog | 8 ++++++++ lisp/desktop.el | 4 +++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 49706f3c0aa..dc940e64ab9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2008-02-12 Juri Linkov + + * startup.el (fancy-startup-screen, normal-splash-screen): + Set default-directory to command-line-default-directory. + + * desktop.el (after-init-hook): Set inhibit-startup-screen to t + after reading the desktop. + 2008-02-12 Stefan Monnier * font-lock.el (font-lock-set-defaults): Unset previously set variables diff --git a/lisp/desktop.el b/lisp/desktop.el index 61db03e8c86..8be86571f13 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -1289,7 +1289,9 @@ If there are no buffers left to create, kill the timer." (when (member key command-line-args) (setq command-line-args (delete key command-line-args)) (setq desktop-save-mode nil))) - (when desktop-save-mode (desktop-read)))) + (when desktop-save-mode + (desktop-read) + (setq inhibit-startup-screen t)))) (provide 'desktop) From de95cc30ec71235a682f16b7356569620fe947b9 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 13 Feb 2008 17:20:11 +0000 Subject: [PATCH 059/127] * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME. --- lisp/ChangeLog | 4 ++++ lisp/net/ange-ftp.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc940e64ab9..87141d02ed2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-13 Michael Albinus + + * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME. + 2008-02-12 Juri Linkov * startup.el (fancy-startup-screen, normal-splash-screen): diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index d53f740296a..d4816dbe1c8 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3766,7 +3766,7 @@ Value is (0 0) if the modification time cannot be determined." (ange-ftp-send-cmd t-host t-user - (list 'put (or temp2 filename) t-name) + (list 'put (or temp2 (ange-ftp-quote-string filename)) t-name) (or msg (if (and temp2 f-parsed) (format "Putting %s" newname) From 2e8195083823ba5ba044343389bd39adc9f48072 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 13 Feb 2008 21:50:37 +0000 Subject: [PATCH 060/127] (highlight-save-buffer-state): New macro. (highlight-save-buffer-state, hilit-chg-set-face-on-change) (hilit-chg-clear): Use it to preserve the modified-p flag. (highlight-changes-rotate-faces): Don't mess with the undo-list. --- lisp/ChangeLog | 7 ++++ lisp/hilit-chg.el | 95 +++++++++++++++++++++++++++-------------------- 2 files changed, 62 insertions(+), 40 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87141d02ed2..9233db66710 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-02-13 Stefan Monnier + + * hilit-chg.el (highlight-save-buffer-state): New macro. + (highlight-save-buffer-state, hilit-chg-set-face-on-change) + (hilit-chg-clear): Use it to preserve the modified-p flag. + (highlight-changes-rotate-faces): Don't mess with the undo-list. + 2008-02-13 Michael Albinus * net/ange-ftp.el (ange-ftp-cf1): Quote FILENAME. diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index f75c694175d..73d6c4b91d8 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -515,12 +515,28 @@ the text properties of type `hilit-chg'." (delete-overlay ov)))))) (hilit-chg-display-changes beg end))) +;; Inspired by font-lock. Something like this should be moved to subr.el. +(defmacro highlight-save-buffer-state (&rest body) + "Bind variables according to VARLIST and eval BODY restoring buffer state." + (declare (indent 0) (debug t)) + (let ((modified (make-symbol "modified"))) + `(let* ((,modified (buffer-modified-p)) + (inhibit-modification-hooks t) + deactivate-mark + ;; So we don't check the file's mtime. + buffer-file-name + buffer-file-truename) + (progn + ,@body) + (unless ,modified + (restore-buffer-modified-p nil))))) + ;;;###autoload (defun highlight-changes-remove-highlight (beg end) "Remove the change face from the region between BEG and END. This allows you to manually remove highlighting from uninteresting changes." (interactive "r") - (let ((after-change-functions nil)) + (highlight-save-buffer-state (remove-text-properties beg end '(hilit-chg nil)) (hilit-chg-fixup beg end))) @@ -543,38 +559,39 @@ This allows you to manually remove highlighting from uninteresting changes." (if undo-in-progress (if (eq highlight-changes-mode 'active) (hilit-chg-fixup beg end)) - (if (and (= beg end) (> leng-before 0)) - ;; deletion - (progn - ;; The eolp and bolp tests are a kludge! But they prevent - ;; rather nasty looking displays when deleting text at the end - ;; of line, such as normal corrections as one is typing and - ;; immediately makes a correction, and when deleting first - ;; character of a line. -;;; (if (= leng-before 1) -;;; (if (eolp) -;;; (setq beg-decr 0 end-incr 0) -;;; (if (bolp) -;;; (setq beg-decr 0)))) -;;; (setq beg (max (- beg beg-decr) (point-min))) - (setq end (min (+ end end-incr) (point-max))) - (setq type 'hilit-chg-delete)) - ;; Not a deletion. - ;; Most of the time the following is not necessary, but - ;; if the current text was marked as a deletion then - ;; the old overlay is still in effect, so if we add some - ;; text then remove the deletion marking, but set it to + (highlight-save-buffer-state + (if (and (= beg end) (> leng-before 0)) + ;; deletion + (progn + ;; The eolp and bolp tests are a kludge! But they prevent + ;; rather nasty looking displays when deleting text at the end + ;; of line, such as normal corrections as one is typing and + ;; immediately makes a correction, and when deleting first + ;; character of a line. + ;; (if (= leng-before 1) + ;; (if (eolp) + ;; (setq beg-decr 0 end-incr 0) + ;; (if (bolp) + ;; (setq beg-decr 0)))) + ;; (setq beg (max (- beg beg-decr) (point-min))) + (setq end (min (+ end end-incr) (point-max))) + (setq type 'hilit-chg-delete)) + ;; Not a deletion. + ;; Most of the time the following is not necessary, but + ;; if the current text was marked as a deletion then + ;; the old overlay is still in effect, so if we add some + ;; text then remove the deletion marking, but set it to ;; changed otherwise its highlighting disappears. (if (eq (get-text-property end 'hilit-chg) 'hilit-chg-delete) (progn (remove-text-properties end (+ end 1) '(hilit-chg nil)) (put-text-property end (+ end 1) 'hilit-chg 'hilit-chg) (if (eq highlight-changes-mode 'active) - (hilit-chg-fixup beg (+ end 1)))))) - (unless no-property-change - (put-text-property beg end 'hilit-chg type)) - (if (or (eq highlight-changes-mode 'active) no-property-change) - (hilit-chg-make-ov type beg end)))))) + (hilit-chg-fixup beg (+ end 1)))))) + (unless no-property-change + (put-text-property beg end 'hilit-chg type)) + (if (or (eq highlight-changes-mode 'active) no-property-change) + (hilit-chg-make-ov type beg end))))))) (defun hilit-chg-set (value) "Turn on Highlight Changes mode for this buffer." @@ -602,12 +619,11 @@ This removes all saved change information." (message "Cannot remove highlighting from read-only mode buffer %s" (buffer-name)) (remove-hook 'after-change-functions 'hilit-chg-set-face-on-change t) - (let ((after-change-functions nil)) + (highlight-save-buffer-state (hilit-chg-hide-changes) (hilit-chg-map-changes - '(lambda (prop start stop) - (remove-text-properties start stop '(hilit-chg nil)))) - ) + (lambda (prop start stop) + (remove-text-properties start stop '(hilit-chg nil))))) (setq highlight-changes-mode nil) (force-mode-line-update) ;; If we type: C-u -1 M-x highlight-changes-mode @@ -798,11 +814,12 @@ this, eval the following in the buffer to be saved: ;; of the current buffer due to the rotation. We do this by inserting (in ;; `buffer-undo-list') entries restoring buffer-modified-p to nil before ;; and after the entry for the rotation. - (unless modified - ;; Install the "before" entry. - (setq buffer-undo-list - (cons '(apply restore-buffer-modified-p nil) - buffer-undo-list))) + ;; FIXME: this is no good: we need to test the `modified' state at the + ;; time of the undo, not at the time of the "do", otherwise the undo + ;; may erroneously clear the modified flag. --Stef + ;; (unless modified + ;; ;; Install the "before" entry. + ;; (push '(apply restore-buffer-modified-p nil) buffer-undo-list)) (unwind-protect (progn ;; ensure hilit-chg-list is made and up to date @@ -815,10 +832,8 @@ this, eval the following in the buffer to be saved: (if (eq highlight-changes-mode 'active) (hilit-chg-display-changes))) (unless modified - ;; Install the "after" entry. - (setq buffer-undo-list - (cons '(apply restore-buffer-modified-p nil) - buffer-undo-list)) + ;; Install the "after" entry. FIXME: See above. + ;; (push '(apply restore-buffer-modified-p nil) buffer-undo-list) (restore-buffer-modified-p nil))))) ;; This always returns nil so it is safe to use in write-file-functions From 53dc03721a07dcc37589add0bad646f88e60a2cf Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 14 Feb 2008 00:48:20 +0000 Subject: [PATCH 061/127] ** Simon.Marshall@misys.com, 8 Feb: Point before start of properties It's a GCC bug on Sparc. --- admin/FOR-RELEASE | 2 -- 1 file changed, 2 deletions(-) diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index a11c0ae4fcc..c54a4f68b6a 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -50,8 +50,6 @@ http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-09/msg00055.html * BUGS -** Simon.Marshall@misys.com, 8 Feb: Point before start of properties - ** python.el changes by Dave Love. * DOCUMENTATION From c273429337771fd0318b4f45cbd21eed4bf48e4d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 14 Feb 2008 02:42:45 +0000 Subject: [PATCH 062/127] (sgml-mode): Fix comment syntax. --- lisp/ChangeLog | 4 ++++ lisp/textmodes/sgml-mode.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9233db66710..a92d8d16c73 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-14 Stefan Monnier + + * textmodes/sgml-mode.el (sgml-mode): Fix comment syntax. + 2008-02-13 Stefan Monnier * hilit-chg.el (highlight-save-buffer-state): New macro. diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index ed7bd87237a..37531306aa6 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -469,8 +469,12 @@ Do \\[describe-key] on the following bindings to discover what they do. sgml-transformation-function)) ;; This will allow existing comments within declarations to be ;; recognized. - (set (make-local-variable 'comment-start-skip) "\\(?:\\)?") + ;; I can't find a clear description of SGML/XML comments, but it seems that + ;; the only reliable ones are although it's not clear what + ;; "..." can contain. It used to accept -- ... -- as well, but that was + ;; apparently a mistake. + (set (make-local-variable 'comment-start-skip) "