Now on revision 106947. ------------------------------------------------------------ revno: 106947 committer: Katsumi Yamaoka branch nick: trunk timestamp: Fri 2012-01-27 03:36:45 +0000 message: gnus-sum.el (gnus-summary-mode): Fix last change. diff: === modified file 'lisp/gnus/gnus-sum.el' --- lisp/gnus/gnus-sum.el 2012-01-26 23:24:06 +0000 +++ lisp/gnus/gnus-sum.el 2012-01-27 03:36:45 +0000 @@ -3059,6 +3059,7 @@ (declare-function turn-on-gnus-mailing-list-mode "gnus-ml" ()) (defvar bookmark-make-record-function) +(defvar bidi-paragraph-direction) (defun gnus-summary-mode (&optional group) "Major mode for reading articles. ------------------------------------------------------------ revno: 106946 committer: Katsumi Yamaoka branch nick: trunk timestamp: Thu 2012-01-26 23:24:06 +0000 message: gnus-sum.el (gnus-summary-mode): Comment fix. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2012-01-26 23:03:28 +0000 +++ lisp/gnus/ChangeLog 2012-01-26 23:24:06 +0000 @@ -1,7 +1,7 @@ 2012-01-26 Katsumi Yamaoka * gnus-sum.el (gnus-summary-mode): Don't make bidi-paragraph-direction - bound in old Emacsen and XEmacsen. + bound globally in old Emacsen and XEmacsen. 2012-01-26 Nick Alcock (tiny change) === modified file 'lisp/gnus/gnus-sum.el' --- lisp/gnus/gnus-sum.el 2012-01-26 23:03:28 +0000 +++ lisp/gnus/gnus-sum.el 2012-01-26 23:24:06 +0000 @@ -3099,7 +3099,7 @@ show-trailing-whitespace nil) (setq truncate-lines t) ;; Force paragraph direction to be left-to-right. Don't make it - ;; bound in old Emacsen and XEmacsen. + ;; bound globally in old Emacsen and XEmacsen. (set (make-local-variable 'bidi-paragraph-direction) 'left-to-right) (add-to-invisibility-spec '(gnus-sum . t)) (gnus-summary-set-display-table) ------------------------------------------------------------ revno: 106945 author: Gnus developers committer: Katsumi Yamaoka branch nick: trunk timestamp: Thu 2012-01-26 23:03:28 +0000 message: Merge changes made in Gnus trunk. gnus-sum.el (gnus-summary-mode): Don't make bidi-paragraph-direction bound in old Emacsen and XEmacsen. gnus.el (gnus-group-find-parameter): Check for liveness of the buffer, not of the string which is its name. gnus-sum.el (gnus-summary-move-article): Don't propagate marks to non-server-marks groups. (gnus-group-make-articles-read): Ditto. gnus-srvr.el (gnus-server-prepare): Use it to avoid showing ephemeral methods (bug#9676). gnus.el (gnus-method-ephemeral-p): New function. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2012-01-26 10:43:01 +0000 +++ lisp/gnus/ChangeLog 2012-01-26 23:03:28 +0000 @@ -1,5 +1,26 @@ 2012-01-26 Katsumi Yamaoka + * gnus-sum.el (gnus-summary-mode): Don't make bidi-paragraph-direction + bound in old Emacsen and XEmacsen. + +2012-01-26 Nick Alcock (tiny change) + + * gnus.el (gnus-group-find-parameter): Check for liveness of the + buffer, not of the string which is its name. + +2012-01-26 Lars Ingebrigtsen + + * gnus-sum.el (gnus-summary-move-article): Don't propagate marks to + non-server-marks groups. + (gnus-group-make-articles-read): Ditto. + + * gnus-srvr.el (gnus-server-prepare): Use it to avoid showing ephemeral + methods (bug#9676). + + * gnus.el (gnus-method-ephemeral-p): New function. + +2012-01-26 Katsumi Yamaoka + * gnus-sum.el (gnus-summary-mode): Force paragraph direction to be left-to-right. === modified file 'lisp/gnus/gnus-srvr.el' --- lisp/gnus/gnus-srvr.el 2012-01-19 07:21:25 +0000 +++ lisp/gnus/gnus-srvr.el 2012-01-26 23:03:28 +0000 @@ -330,7 +330,7 @@ (dolist (open gnus-opened-servers) (when (and (not (member (car open) done)) ;; Just ignore ephemeral servers. - (not (member (car open) gnus-ephemeral-servers))) + (not (gnus-method-ephemeral-p (car open)))) (push (car open) done) (gnus-server-insert-server-line (setq op-ser (format "%s:%s" (caar open) (nth 1 (car open)))) === modified file 'lisp/gnus/gnus-sum.el' --- lisp/gnus/gnus-sum.el 2012-01-26 10:43:01 +0000 +++ lisp/gnus/gnus-sum.el 2012-01-26 23:03:28 +0000 @@ -3060,8 +3060,6 @@ (defvar bookmark-make-record-function) -(defvar bidi-paragraph-direction) - (defun gnus-summary-mode (&optional group) "Major mode for reading articles. @@ -3100,8 +3098,9 @@ (setq buffer-read-only t ;Disable modification show-trailing-whitespace nil) (setq truncate-lines t) - ;; Force paragraph direction to be left-to-right. - (setq bidi-paragraph-direction 'left-to-right) + ;; Force paragraph direction to be left-to-right. Don't make it + ;; bound in old Emacsen and XEmacsen. + (set (make-local-variable 'bidi-paragraph-direction) 'left-to-right) (add-to-invisibility-spec '(gnus-sum . t)) (gnus-summary-set-display-table) (gnus-set-default-directory) @@ -6283,13 +6282,19 @@ (entry (gnus-group-entry group)) (info (nth 2 entry)) (active (gnus-active group)) + (set-marks + (or gnus-propagate-marks + (gnus-method-option-p + (gnus-find-method-for-group group) + 'server-marks))) range) (if (not entry) ;; Group that Gnus doesn't know exists, but still allow the ;; backend to set marks. - (gnus-request-set-mark - group (list (list (gnus-compress-sequence (sort articles #'<)) - 'add '(read)))) + (when set-marks + (gnus-request-set-mark + group (list (list (gnus-compress-sequence (sort articles #'<)) + 'add '(read))))) ;; Normal, subscribed groups. (setq range (gnus-compute-read-articles group articles)) (with-current-buffer gnus-group-buffer @@ -6298,11 +6303,14 @@ (gnus-info-set-marks ',info ',(gnus-info-marks info) t) (gnus-info-set-read ',info ',(gnus-info-read info)) (gnus-get-unread-articles-in-group ',info (gnus-active ,group)) - (gnus-request-set-mark ,group (list (list ',range 'del '(read)))) + (when ,set-marks + (gnus-request-set-mark + ,group (list (list ',range 'del '(read))))) (gnus-group-update-group ,group t)))) ;; Add the read articles to the range. (gnus-info-set-read info range) - (gnus-request-set-mark group (list (list range 'add '(read)))) + (when set-marks + (gnus-request-set-mark group (list (list range 'add '(read))))) ;; Then we have to re-compute how many unread ;; articles there are in this group. (when active @@ -10061,7 +10069,11 @@ (gnus-add-marked-articles to-group 'expire (list to-article) info)) - (when to-marks + (when (and to-marks + (or gnus-propagate-marks + (gnus-method-option-p + (gnus-find-method-for-group to-group) + 'server-marks))) (gnus-request-set-mark to-group (list (list (list to-article) 'add to-marks))))) === modified file 'lisp/gnus/gnus.el' --- lisp/gnus/gnus.el 2012-01-19 07:21:25 +0000 +++ lisp/gnus/gnus.el 2012-01-26 23:03:28 +0000 @@ -3581,6 +3581,13 @@ gnus-valid-select-methods))) (equal (nth 1 m1) (nth 1 m2))))))) +(defun gnus-method-ephemeral-p (method) + (let ((equal nil)) + (dolist (ephemeral gnus-ephemeral-servers) + (when (gnus-sloppily-equal-method-parameters method ephemeral) + (setq equal t))) + equal)) + (defsubst gnus-sloppily-equal-method-parameters (m1 m2) ;; Check parameters for sloppy equality. (let ((p1 (copy-sequence (cddr m1))) @@ -3877,7 +3884,7 @@ If you call this function inside a loop, consider using the faster `gnus-group-fast-parameter' instead." - (with-current-buffer (if (buffer-live-p gnus-group-buffer) + (with-current-buffer (if (buffer-live-p (get-buffer gnus-group-buffer)) gnus-group-buffer (current-buffer)) (if symbol ------------------------------------------------------------ revno: 106944 committer: Eli Zaretskii branch nick: trunk timestamp: Thu 2012-01-26 23:37:32 +0200 message: nt/README.W32, nt/INSTALL: Update the URL for GnuTLS binaries. diff: === modified file 'nt/INSTALL' --- nt/INSTALL 2012-01-19 07:21:25 +0000 +++ nt/INSTALL 2012-01-26 21:37:32 +0000 @@ -359,7 +359,7 @@ session. You can get pre-built binaries (including any required DLL and the - gnutls.h file) and an installer at http://josefsson.org/gnutls4win/. + header files) at http://sourceforge.net/projects/ezwinports/files/. * Experimental SVG support === modified file 'nt/README.W32' --- nt/README.W32 2012-01-19 07:21:25 +0000 +++ nt/README.W32 2012-01-26 21:37:32 +0000 @@ -167,7 +167,7 @@ but GnuTLS won't be available to the running session. You can get pre-built binaries (including any required DLL and the - gnutls.h file) and an installer at http://josefsson.org/gnutls4win/. + header files) at http://sourceforge.net/projects/ezwinports/files/. * Uninstalling Emacs ------------------------------------------------------------ revno: 106943 fixes bug(s): http://debbugs.gnu.org/10503 committer: Chong Yidong branch nick: trunk timestamp: Fri 2012-01-27 00:09:35 +0800 message: * src/keyboard.c (Vecho_keystrokes): Document zero value. diff: === modified file 'src/ChangeLog' --- src/ChangeLog 2012-01-26 15:48:27 +0000 +++ src/ChangeLog 2012-01-26 16:09:35 +0000 @@ -1,5 +1,7 @@ 2012-01-26 Chong Yidong + * keyboard.c (Vecho_keystrokes): Document zero value (Bug#10503). + * search.c (Fsearch_forward, Fsearch_backward): Document negative repeat counts (Bug#10507). === modified file 'src/keyboard.c' --- src/keyboard.c 2012-01-19 07:21:25 +0000 +++ src/keyboard.c 2012-01-26 16:09:35 +0000 @@ -11835,38 +11835,39 @@ Vthis_original_command = Qnil; DEFVAR_INT ("auto-save-interval", auto_save_interval, - doc: /* *Number of input events between auto-saves. + doc: /* Number of input events between auto-saves. Zero means disable autosaving due to number of characters typed. */); auto_save_interval = 300; DEFVAR_LISP ("auto-save-timeout", Vauto_save_timeout, - doc: /* *Number of seconds idle time before auto-save. + doc: /* Number of seconds idle time before auto-save. Zero or nil means disable auto-saving due to idleness. After auto-saving due to this many seconds of idle time, Emacs also does a garbage collection if that seems to be warranted. */); XSETFASTINT (Vauto_save_timeout, 30); DEFVAR_LISP ("echo-keystrokes", Vecho_keystrokes, - doc: /* *Nonzero means echo unfinished commands after this many seconds of pause. -The value may be integer or floating point. */); + doc: /* Nonzero means echo unfinished commands after this many seconds of pause. +The value may be integer or floating point. +If the value is zero, don't echo at all. */); Vecho_keystrokes = make_number (1); DEFVAR_INT ("polling-period", polling_period, - doc: /* *Interval between polling for input during Lisp execution. + doc: /* Interval between polling for input during Lisp execution. The reason for polling is to make C-g work to stop a running program. Polling is needed only when using X windows and SIGIO does not work. Polling is automatically disabled in all other cases. */); polling_period = 2; DEFVAR_LISP ("double-click-time", Vdouble_click_time, - doc: /* *Maximum time between mouse clicks to make a double-click. + doc: /* Maximum time between mouse clicks to make a double-click. Measured in milliseconds. The value nil means disable double-click recognition; t means double-clicks have no time limit and are detected by position only. */); Vdouble_click_time = make_number (500); DEFVAR_INT ("double-click-fuzz", double_click_fuzz, - doc: /* *Maximum mouse movement between clicks to make a double-click. + doc: /* Maximum mouse movement between clicks to make a double-click. On window-system frames, value is the number of pixels the mouse may have moved horizontally or vertically between two clicks to make a double-click. On non window-system frames, value is interpreted in units of 1/8 characters @@ -11877,7 +11878,7 @@ double_click_fuzz = 3; DEFVAR_BOOL ("inhibit-local-menu-bar-menus", inhibit_local_menu_bar_menus, - doc: /* *Non-nil means inhibit local map menu bar menus. */); + doc: /* Non-nil means inhibit local map menu bar menus. */); inhibit_local_menu_bar_menus = 0; DEFVAR_INT ("num-input-keys", num_input_keys, @@ -12052,7 +12053,7 @@ Vspecial_event_map = Fcons (intern_c_string ("keymap"), Qnil); DEFVAR_LISP ("track-mouse", do_mouse_tracking, - doc: /* *Non-nil means generate motion events for mouse motion. */); + doc: /* Non-nil means generate motion events for mouse motion. */); DEFVAR_KBOARD ("system-key-alist", Vsystem_key_alist, doc: /* Alist of system-specific X windows key symbols. @@ -12146,7 +12147,7 @@ Vdelayed_warnings_list = Qnil; DEFVAR_LISP ("suggest-key-bindings", Vsuggest_key_bindings, - doc: /* *Non-nil means show the equivalent key-binding when M-x command has one. + doc: /* Non-nil means show the equivalent key-binding when M-x command has one. The value can be a length of time to show the message for. If the value is non-nil and not a number, we wait 2 seconds. */); Vsuggest_key_bindings = Qt; @@ -12206,7 +12207,7 @@ DEFVAR_LISP ("global-disable-point-adjustment", Vglobal_disable_point_adjustment, - doc: /* *If non-nil, always suppress point adjustment. + doc: /* If non-nil, always suppress point adjustment. The default value is nil, in which case, point adjustment are suppressed only after special commands that set @@ -12214,7 +12215,7 @@ Vglobal_disable_point_adjustment = Qnil; DEFVAR_LISP ("minibuffer-message-timeout", Vminibuffer_message_timeout, - doc: /* *How long to display an echo-area message when the minibuffer is active. + doc: /* How long to display an echo-area message when the minibuffer is active. If the value is not a number, such messages don't time out. */); Vminibuffer_message_timeout = make_number (2); ------------------------------------------------------------ revno: 106942 fixes bug(s): http://debbugs.gnu.org/10507 committer: Chong Yidong branch nick: trunk timestamp: Thu 2012-01-26 23:48:27 +0800 message: Document negative repeat counts for search-forward and search-backward. * doc/lispref/searching.texi (String Search): Document negative repeat count. * src/search.c (Fsearch_forward, Fsearch_backward): Document negative repeat counts (Bug#10507). diff: === modified file 'doc/lispref/ChangeLog' --- doc/lispref/ChangeLog 2012-01-26 06:30:49 +0000 +++ doc/lispref/ChangeLog 2012-01-26 15:48:27 +0000 @@ -1,3 +1,8 @@ +2012-01-26 Chong Yidong + + * searching.texi (String Search): Document negative repeat count + (Bug#10507). + 2012-01-26 Glenn Morris * variables.texi (Using Lexical Binding): === modified file 'doc/lispref/searching.texi' --- doc/lispref/searching.texi 2012-01-19 07:21:25 +0000 +++ doc/lispref/searching.texi 2012-01-26 15:48:27 +0000 @@ -49,7 +49,6 @@ @var{string}. If successful, it sets point to the end of the occurrence found, and returns the new value of point. If no match is found, the value and side effects depend on @var{noerror} (see below). -@c Emacs 19 feature In the following example, point is initially at the beginning of the line. Then @code{(search-forward "fox")} moves point after the last @@ -91,18 +90,21 @@ find a match. Invalid arguments cause errors regardless of @var{noerror}. -If @var{repeat} is supplied (it must be a positive number), then the -search is repeated that many times (each time starting at the end of the -previous time's match). If these successive searches succeed, the -function succeeds, moving point and returning its new value. Otherwise -the search fails, with results depending on the value of -@var{noerror}, as described above. +If @var{repeat} is a positive number @var{n}, it serves as a repeat +count: the search is repeated @var{n} times, each time starting at the +end of the previous time's match. If these successive searches +succeed, the function succeeds, moving point and returning its new +value. Otherwise the search fails, with results depending on the +value of @var{noerror}, as described above. If @var{repeat} is a +negative number -@var{n}, it serves as a repeat count of @var{n} for a +search in the opposite (backward) direction. @end deffn @deffn Command search-backward string &optional limit noerror repeat This function searches backward from point for @var{string}. It is -just like @code{search-forward} except that it searches backwards and -leaves point at the beginning of the match. +like @code{search-forward}, except that it searches backwards rather +than forwards. Backward searches leave point at the beginning of the +match. @end deffn @deffn Command word-search-forward string &optional limit noerror repeat === modified file 'src/ChangeLog' --- src/ChangeLog 2012-01-26 06:30:49 +0000 +++ src/ChangeLog 2012-01-26 15:48:27 +0000 @@ -1,3 +1,8 @@ +2012-01-26 Chong Yidong + + * search.c (Fsearch_forward, Fsearch_backward): Document negative + repeat counts (Bug#10507). + 2012-01-26 Glenn Morris * lread.c (syms_of_lread): Doc fix. === modified file 'src/search.c' --- src/search.c 2012-01-19 07:21:25 +0000 +++ src/search.c 2012-01-26 15:48:27 +0000 @@ -2181,7 +2181,9 @@ The match found must not extend before that position. Optional third argument, if t, means if fail just return nil (no error). If not nil and not t, position at limit of search and return nil. -Optional fourth argument is repeat count--search for successive occurrences. +Optional fourth argument COUNT, if non-nil, means to search for COUNT + successive occurrences. If COUNT is negative, search forward, + instead of backward, for -COUNT occurrences. Search case-sensitivity is determined by the value of the variable `case-fold-search', which see. @@ -2200,7 +2202,9 @@ equivalent to (point-max). Optional third argument, if t, means if fail just return nil (no error). If not nil and not t, move to limit of search and return nil. -Optional fourth argument is repeat count--search for successive occurrences. +Optional fourth argument COUNT, if non-nil, means to search for COUNT + successive occurrences. If COUNT is negative, search backward, + instead of forward, for -COUNT occurrences. Search case-sensitivity is determined by the value of the variable `case-fold-search', which see. ------------------------------------------------------------ revno: 106941 committer: Glenn Morris branch nick: trunk timestamp: Thu 2012-01-26 06:18:28 -0500 message: Auto-commit of loaddefs files. diff: === modified file 'lisp/dired.el' --- lisp/dired.el 2012-01-25 08:20:24 +0000 +++ lisp/dired.el 2012-01-26 11:18:28 +0000 @@ -4196,7 +4196,7 @@ ;;;*** ;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump) -;;;;;; "dired-x" "dired-x.el" "85900e333d980b376bf820108ae1a1fc") +;;;;;; "dired-x" "dired-x.el" "8d995933a8d82be3a8662d7eff7543cc") ;;; Generated autoloads from dired-x.el (autoload 'dired-jump "dired-x" "\ ------------------------------------------------------------ revno: 106940 author: Lars Ingebrigtsen committer: Katsumi Yamaoka branch nick: trunk timestamp: Thu 2012-01-26 10:43:01 +0000 message: Merge changes made in Gnus trunk nnimap.el (nnir-search-thread): Autoload to avoid a compilation warning. gnus-sum.el (gnus-summary-line-format-alist): Don't try to macroexpand the nnir things, since they haven't been defined yet, and nnir requires gnus-sum. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2012-01-26 10:38:22 +0000 +++ lisp/gnus/ChangeLog 2012-01-26 10:43:01 +0000 @@ -3,6 +3,17 @@ * gnus-sum.el (gnus-summary-mode): Force paragraph direction to be left-to-right. +2012-01-26 Lars Ingebrigtsen + + * nnimap.el (nnir-search-thread): Autoload to avoid a compilation + warning. + +2012-01-25 Lars Ingebrigtsen + + * gnus-sum.el (gnus-summary-line-format-alist): Don't try to + macroexpand the nnir things, since they haven't been defined yet, and + nnir requires gnus-sum. + 2012-01-21 Lars Magne Ingebrigtsen * mm-decode.el (mm-interactively-view-part): Fix prompt. === modified file 'lisp/gnus/gnus-sum.el' --- lisp/gnus/gnus-sum.el 2012-01-26 10:38:22 +0000 +++ lisp/gnus/gnus-sum.el 2012-01-26 10:43:01 +0000 @@ -1371,15 +1371,12 @@ (?c (or (mail-header-chars gnus-tmp-header) 0) ?d) (?k (gnus-summary-line-message-size gnus-tmp-header) ?s) (?L gnus-tmp-lines ?s) - (?Z (or ,(gnus-macroexpand-all - '(nnir-article-rsv (mail-header-number gnus-tmp-header))) + (?Z (or (nnir-article-rsv (mail-header-number gnus-tmp-header)) 0) ?d) - (?G (or ,(gnus-macroexpand-all - '(nnir-article-group (mail-header-number gnus-tmp-header))) + (?G (or (nnir-article-group (mail-header-number gnus-tmp-header)) "") ?s) - (?g (or ,(gnus-macroexpand-all - '(gnus-group-short-name - (nnir-article-group (mail-header-number gnus-tmp-header)))) + (?g (or (gnus-group-short-name + (nnir-article-group (mail-header-number gnus-tmp-header))) "") ?s) (?O gnus-tmp-downloaded ?c) (?I gnus-tmp-indentation ?s) === modified file 'lisp/gnus/nnimap.el' --- lisp/gnus/nnimap.el 2012-01-19 07:21:25 +0000 +++ lisp/gnus/nnimap.el 2012-01-26 10:43:01 +0000 @@ -1610,6 +1610,8 @@ (declare-function gnus-fetch-headers "gnus-sum" (articles &optional limit force-new dependencies)) +(autoload 'nnir-search-thread "nnir") + (deffoo nnimap-request-thread (header &optional group server) (when group (setq group (nnimap-decode-gnus-group group))) ------------------------------------------------------------ revno: 106939 committer: Katsumi Yamaoka branch nick: trunk timestamp: Thu 2012-01-26 10:38:22 +0000 message: gnus-sum.el (gnus-summary-mode): Force paragraph direction to be left-to-right. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2012-01-22 00:54:58 +0000 +++ lisp/gnus/ChangeLog 2012-01-26 10:38:22 +0000 @@ -1,3 +1,8 @@ +2012-01-26 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-mode): Force paragraph direction to be + left-to-right. + 2012-01-21 Lars Magne Ingebrigtsen * mm-decode.el (mm-interactively-view-part): Fix prompt. === modified file 'lisp/gnus/gnus-sum.el' --- lisp/gnus/gnus-sum.el 2012-01-19 07:21:25 +0000 +++ lisp/gnus/gnus-sum.el 2012-01-26 10:38:22 +0000 @@ -3063,6 +3063,8 @@ (defvar bookmark-make-record-function) +(defvar bidi-paragraph-direction) + (defun gnus-summary-mode (&optional group) "Major mode for reading articles. @@ -3101,6 +3103,8 @@ (setq buffer-read-only t ;Disable modification show-trailing-whitespace nil) (setq truncate-lines t) + ;; Force paragraph direction to be left-to-right. + (setq bidi-paragraph-direction 'left-to-right) (add-to-invisibility-spec '(gnus-sum . t)) (gnus-summary-set-display-table) (gnus-set-default-directory) ------------------------------------------------------------ revno: 106938 committer: Glenn Morris branch nick: trunk timestamp: Wed 2012-01-25 22:30:49 -0800 message: Doc fix for lexical-binding being in line one. Ref http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00543.html * doc/lispref/variables.texi (Using Lexical Binding): Mention that lexical-binding should be set in the first line. * src/lread.c (syms_of_lread): Doc fix. * lisp/emacs-lisp/tabulated-list.el, lisp/progmodes/f90.el: Move lexical-binding file-local to line one. * etc/NEWS: lexical-binding should be ine the first line. diff: === modified file 'doc/lispref/ChangeLog' --- doc/lispref/ChangeLog 2012-01-26 00:02:02 +0000 +++ doc/lispref/ChangeLog 2012-01-26 06:30:49 +0000 @@ -1,3 +1,8 @@ +2012-01-26 Glenn Morris + + * variables.texi (Using Lexical Binding): + Mention that lexical-binding should be set in the first line. + 2012-01-26 Lars Ingebrigtsen * macros.texi (Defining Macros): Don't claim that `declare' only === modified file 'doc/lispref/variables.texi' --- doc/lispref/variables.texi 2012-01-24 16:08:00 +0000 +++ doc/lispref/variables.texi 2012-01-26 06:30:49 +0000 @@ -1047,6 +1047,8 @@ below.) If @code{nil}, dynamic binding is used for all local variables. This variable is typically set for a whole Emacs Lisp file, as a file local variable (@pxref{File Local Variables}). +Note that unlike other such variables, this one must be set in the +first line of a file. @end defvar @noindent === modified file 'etc/NEWS' --- etc/NEWS 2012-01-23 06:52:18 +0000 +++ etc/NEWS 2012-01-26 06:30:49 +0000 @@ -1026,8 +1026,8 @@ ** Code can now use lexical scoping by default instead of dynamic scoping. The `lexical-binding' variable lets code use lexical scoping for local -variables. It is typically set via file-local variables, in which case it -applies to all the code in that file. +variables. It is typically set via a file-local variable in the first +line of the file, in which case it applies to all the code in that file. *** `eval' takes a new optional argument `lexical' to choose the new lexical binding instead of the old dynamic binding mode. === modified file 'lisp/emacs-lisp/tabulated-list.el' --- lisp/emacs-lisp/tabulated-list.el 2012-01-05 09:46:05 +0000 +++ lisp/emacs-lisp/tabulated-list.el 2012-01-26 06:30:49 +0000 @@ -1,4 +1,4 @@ -;;; tabulated-list.el --- generic major mode for tabulated lists. +;;; tabulated-list.el --- generic major mode for tabulated lists -*- lexical-binding: t -*- ;; Copyright (C) 2011-2012 Free Software Foundation, Inc. @@ -362,7 +362,6 @@ ;; Local Variables: ;; coding: utf-8 -;; lexical-binding: t ;; End: ;;; tabulated-list.el ends here === modified file 'lisp/progmodes/f90.el' --- lisp/progmodes/f90.el 2012-01-19 07:21:25 +0000 +++ lisp/progmodes/f90.el 2012-01-26 06:30:49 +0000 @@ -1,4 +1,4 @@ -;;; f90.el --- Fortran-90 mode (free format) +;;; f90.el --- Fortran-90 mode (free format) -*- lexical-binding: t -*- ;; Copyright (C) 1995-1997, 2000-2012 Free Software Foundation, Inc. @@ -2319,7 +2319,6 @@ ;; Local Variables: ;; coding: utf-8 -;; lexical-binding: t ;; End: ;;; f90.el ends here === modified file 'src/ChangeLog' --- src/ChangeLog 2012-01-25 05:55:01 +0000 +++ src/ChangeLog 2012-01-26 06:30:49 +0000 @@ -1,3 +1,7 @@ +2012-01-26 Glenn Morris + + * lread.c (syms_of_lread): Doc fix. + 2012-01-25 HIROSHI OOTA (tiny change) * coding.c (encode_designation_at_bol): Change return value to === modified file 'src/lread.c' --- src/lread.c 2012-01-19 07:21:25 +0000 +++ src/lread.c 2012-01-26 06:30:49 +0000 @@ -4595,7 +4595,8 @@ Non-nil means that the code in the current buffer should be evaluated with lexical binding. This variable is automatically set from the file variables of an -interpreted Lisp file read using `load'. */); +interpreted Lisp file read using `load'. Unlike other file local +variables, this must be set in the first line of a file. */); Fmake_variable_buffer_local (Qlexical_binding); DEFVAR_LISP ("eval-buffer-list", Veval_buffer_list,