[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111170: Merge from emacs-24; up to r
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111170: Merge from emacs-24; up to r111014 |
Date: |
Sun, 09 Dec 2012 18:00:42 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111170 [merge]
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-09 18:00:42 -0800
message:
Merge from emacs-24; up to r111014
modified:
doc/emacs/ChangeLog
doc/emacs/killing.texi
doc/lispref/ChangeLog
doc/lispref/control.texi
doc/lispref/customize.texi
etc/NEWS
lisp/ChangeLog
lisp/emacs-lisp/cl-lib.el
lisp/emacs-lisp/cl.el
lisp/hilit-chg.el
lisp/mail/rmail.el
lisp/simple.el
lisp/textmodes/texinfo.el
lisp/vc/vc-hooks.el
src/ChangeLog
src/editfns.c
src/indent.c
src/lread.c
src/nsterm.m
src/w32.c
src/w32fns.c
=== modified file 'doc/emacs/ChangeLog'
--- a/doc/emacs/ChangeLog 2012-12-06 08:33:32 +0000
+++ b/doc/emacs/ChangeLog 2012-12-10 02:00:42 +0000
@@ -1,3 +1,7 @@
+2012-12-10 Dani Moncayo <address@hidden>
+
+ * killing.texi (Deletion): Doc fix (Bug#12748).
+
2012-12-06 Paul Eggert <address@hidden>
* doclicense.texi, gpl.texi: Update to latest version from FSF.
=== modified file 'doc/emacs/killing.texi'
--- a/doc/emacs/killing.texi 2012-12-05 22:27:56 +0000
+++ b/doc/emacs/killing.texi 2012-12-08 03:25:28 +0000
@@ -123,7 +123,7 @@
(even if there were none before). With a numeric argument @var{n}, it
leaves @var{n} spaces before point if @var{n} is positive; if @var{n}
is negative, it deletes newlines in addition to spaces and tabs,
-leaving a single space before point.
+leaving @var{-n} spaces before point.
@kbd{C-x C-o} (@code{delete-blank-lines}) deletes all blank lines
after the current line. If the current line is blank, it deletes all
=== modified file 'doc/lispref/ChangeLog'
--- a/doc/lispref/ChangeLog 2012-12-09 01:04:43 +0000
+++ b/doc/lispref/ChangeLog 2012-12-10 02:00:42 +0000
@@ -1,3 +1,10 @@
+2012-12-10 Stefan Monnier <address@hidden>
+
+ * control.texi (Pattern maching case statement): New node.
+
+ * customize.texi (Variable Definitions): Mention the default :group
+ for defcustoms (bug#13093).
+
2012-12-09 Glenn Morris <address@hidden>
* customize.texi (Variable Definitions): Mention eval-defun
@@ -27,7 +34,7 @@
* display.texi (Defining Faces):
* sequences.texi (Char-Tables): Fix xref.
- * keymaps.texi (Key Sequences): kbd is now a function.
+ * keymaps.texi (Key Sequences): `kbd' is now a function.
* commands.texi (Using Interactive): Fix index entry.
@@ -47,16 +54,14 @@
(Windows and Frames): Fix example. Move description of
window-in-direction here.
(Recombining Windows): Fix example.
- (Buffers and Windows): Fix description of
- replace-buffer-in-windows.
+ (Buffers and Windows): Fix description of replace-buffer-in-windows.
(Switching Buffers): Reword.
(Display Action Functions): Minor adjustments.
(Choosing Window Options): Minor fixes.
(Window History): Minor rewording.
(Dedicated Windows): Correct and reword part describing how
dedicatedness affects functions removing buffers or windows.
- * buffers.texi (The Buffer List): Fix description of
- bury-buffer.
+ * buffers.texi (The Buffer List): Fix description of bury-buffer.
2012-11-24 Chong Yidong <address@hidden>
@@ -115,8 +120,8 @@
* windows.texi (Choosing Window): Rewrite description of
display-buffer-alist (Bug#12167).
- (Display Action Functions): Mention inhibit-switch-frame. Fix
- description of display-buffer-below-selected. Reorder actions.
+ (Display Action Functions): Mention inhibit-switch-frame.
+ Fix description of display-buffer-below-selected. Reorder actions.
Add example (Bug#12848).
2012-11-16 Glenn Morris <address@hidden>
@@ -215,11 +220,11 @@
switch-to-buffer-preserve-window-point.
(Display Action Functions): Document window-height and
window-width alist entries.
- (Display Action Functions): Document
- display-buffer-below-selected and
+ (Display Action Functions):
+ Document display-buffer-below-selected and
display-buffer-in-previous-window.
- (Quitting Windows): Document quit-restore-window. Rewrite
- section.
+ (Quitting Windows): Document quit-restore-window.
+ Rewrite section.
(Window Configurations): In window-state-get mention that
argument window must be valid.
(Window Parameters): Document quit-restore window parameter
@@ -319,8 +324,8 @@
* minibuf.texi (Text from Minibuffer): Document read-regexp
changes.
- * nonascii.texi (Selecting a Representation): Document
- set-buffer-multibyte changes.
+ * nonascii.texi (Selecting a Representation):
+ Document set-buffer-multibyte changes.
* keymaps.texi (Toolkit Differences): Node deleted.
(Easy Menu): New node.
@@ -1092,8 +1097,8 @@
2012-04-12 Jari Aalto <address@hidden>
- * processes.texi (Synchronous Processes): Mention
- `default-directory' (bug#7515).
+ * processes.texi (Synchronous Processes):
+ Mention `default-directory' (bug#7515).
2012-04-09 Chong Yidong <address@hidden>
@@ -1116,8 +1121,8 @@
* minibuf.texi (Programmed Completion): Remove obsolete variable
completion-annotate-function.
- (Completion Variables): Rename from Completion Styles. Document
- completion-extra-properties. Document completion-styles-alist
+ (Completion Variables): Rename from Completion Styles.
+ Document completion-extra-properties. Document completion-styles-alist
change.
(Reading File Names): minibuffer-local-filename-must-match-map is
not used anymore.
@@ -1252,8 +1257,8 @@
Minor clarifications.
(Defining Faces): Copyedits. Update face example.
(Attribute Functions): Mark set-face-foreground etc as commands.
- (Face Remapping): Mention text-scale-adjust. Clarify
- face-remapping-alist and related docs.
+ (Face Remapping): Mention text-scale-adjust.
+ Clarify face-remapping-alist and related docs.
(Face Functions): Don't document make-face or copy-face.
2012-03-20 Chong Yidong <address@hidden>
@@ -1594,8 +1599,8 @@
(Syntax Properties): Document syntax-propertize-function and
syntax-propertize-extend-region-functions.
(Motion via Parsing): Clarify scan-lists. Fix indentation.
- (Parser State): Update for the new "c" comment style. Fix
- description of item 7 (comment style).
+ (Parser State): Update for the new "c" comment style.
+ Fix description of item 7 (comment style).
* modes.texi (Minor Modes): Update how mode commands should treat
arguments now.
@@ -1673,9 +1678,9 @@
* debugging.texi (Debugging): Copyedits. Describe testcover, ERT.
(Error Debugging): Note that debug-ignored-errors overrides list
- values of debug-on-error too. Add xref to Signaling Errors. Note
- that debug-on-signal is not customizable. Mention
- condition-case-unless-debug.
+ values of debug-on-error too. Add xref to Signaling Errors.
+ Note that debug-on-signal is not customizable.
+ Mention condition-case-unless-debug.
(Compilation Errors): Node deleted.
* compile.texi (Compiler Errors): Move a paragraph here from
@@ -1791,15 +1796,15 @@
2012-02-04 Chong Yidong <address@hidden>
* functions.texi (What Is a Function): Add closures. Mention
- "return value" terminology. Add xref for command-execute. Remove
- unused "keystroke command" terminology.
+ "return value" terminology. Add xref for command-execute.
+ Remove unused "keystroke command" terminology.
(Lambda Expressions): Give a different example than in the
following subsection. Add xref to Anonymous Functions.
(Function Documentation): Remove gratuitous markup.
(Function Names): Move introductory text to `What Is a Function'.
(Defining Functions): Fix defun argument spec.
- (Anonymous Functions): Document lambda macro explicitly. Mention
- effects on lexical binding.
+ (Anonymous Functions): Document lambda macro explicitly.
+ Mention effects on lexical binding.
(Function Cells): Downplay direct usage of fset.
(Closures): New node.
(Inline Functions): Remove "open-code" terminology.
@@ -1930,8 +1935,8 @@
* variables.texi (Variables, Local Variables, Void Variables):
Edit to make the descriptions less specific to dynamic binding.
(Local Variables): Default max-specpdl-size is now 1300.
- (Defining Variables): Edits for lexical scoping. Delete
- information about starting docstrings with *. De-document
+ (Defining Variables): Edits for lexical scoping.
+ Delete information about starting docstrings with *. De-document
user-variable-p.
(Tips for Defining): Remove an unimportant discussion of quitting
in the middle of a load.
@@ -2019,8 +2024,8 @@
2012-01-06 Chong Yidong <address@hidden>
- * variables.texi (Directory Local Variables): Document
- hack-dir-local-variables-non-file-buffer.
+ * variables.texi (Directory Local Variables):
+ Document hack-dir-local-variables-non-file-buffer.
2012-01-06 Glenn Morris <address@hidden>
=== modified file 'doc/lispref/control.texi'
--- a/doc/lispref/control.texi 2012-11-11 00:37:40 +0000
+++ b/doc/lispref/control.texi 2012-12-09 15:36:46 +0000
@@ -285,6 +285,110 @@
@end group
@end example
address@hidden
+* Pattern maching case statement::
address@hidden menu
+
address@hidden Pattern maching case statement
address@hidden Pattern maching case statement
address@hidden pcase
address@hidden pattern matching
+
+To compare a particular value against various possible cases, the macro
address@hidden can come handy. It takes the following form:
+
address@hidden
+(pcase @var{exp} @var{branch}1 @var{branch}2 @var{branch}3 @dots{})
address@hidden example
+
+where each @var{branch} takes the form @code{(@var{upattern}
address@hidden@dots{})}.
+
+It will first evaluate @var{exp} and then compare the value against each
address@hidden to see which @var{branch} to use, after which it will run the
+corresponding @var{body-forms}. A common use case is to distinguish
+between a few different constant values:
+
address@hidden
+(pcase (get-return-code x)
+ (`success (message "Done!"))
+ (`would-block (message "Sorry, can't do it now"))
+ (`read-only (message "The shmliblick is read-only"))
+ (`access-denied (message "You do not have the needed rights"))
+ (code (message "Unknown return code %S" code)))
address@hidden example
+
+In the last clause, @code{code} is a variable that gets bound to the value that
+was returned by @code{(get-return-code x)}.
+
+To give a more complex example, a simple interpreter for a little
+expression language could look like:
+
address@hidden
+(defun evaluate (exp env)
+ (pcase exp
+ (`(add ,x ,y) (+ (evaluate x env) (evaluate y env)))
+ (`(call ,fun ,arg) (funcall (evaluate fun) (evaluate arg env)))
+ (`(fn ,arg ,body) (lambda (val)
+ (evaluate body (cons (cons arg val) env))))
+ ((pred numberp) exp)
+ ((pred symbolp) (cdr (assq exp env)))
+ (_ (error "Unknown expression %S" exp))))
address@hidden example
+
+Where @code{`(add ,x ,y)} is a pattern that checks that @code{exp} is a three
+element list starting with the symbol @code{add}, then extracts the second and
+third elements and binds them to the variables @code{x} and @code{y}.
address@hidden(pred numberp)} is a pattern that simply checks that @code{exp}
+is a number, and @code{_} is the catch-all pattern that matches anything.
+
+There are two kinds of patterns involved in @code{pcase}, called
address@hidden and @emph{Q-patterns}. The @var{upattern} mentioned above
+are U-patterns and can take the following forms:
+
address@hidden @code
address@hidden address@hidden
+This is one of the most common form of patterns. The intention is to mimic the
+backquote macro: this pattern matches those values that could have been built
+by such a backquote expression. Since we're pattern matching rather than
+building a value, the unquote does not indicate where to plug an expression,
+but instead it lets one specify a U-pattern that should match the value at
+that location.
+
+More specifically, a Q-pattern can take the following forms:
address@hidden @code
address@hidden (@var{qpattern1} . @var{qpattern2})
+This pattern matches any cons cell whose @code{car} matches @var{QPATTERN1} and
+whose @code{cdr} matches @var{PATTERN2}.
address@hidden @var{atom}
+This pattern matches any atom @code{equal} to @var{atom}.
address@hidden ,@var{upattern}
+This pattern matches any object that matches the @var{upattern}.
address@hidden table
+
address@hidden @var{symbol}
+A mere symbol in a U-pattern matches anything, and additionally let-binds this
+symbol to the value that it matched, so that you can later refer to it, either
+in the @var{body-forms} or also later in the pattern.
address@hidden _
+This so-called @emph{don't care} pattern matches anything, like the previous
+one, but unless symbol patterns it does not bind any variable.
address@hidden (pred @var{pred})
+This pattern matches if the function @var{pred} returns address@hidden when
+called with the object being matched.
address@hidden (or @var{upattern1} @address@hidden)
+This pattern matches as soon as one of the argument patterns succeeds.
+All argument patterns should let-bind the same variables.
address@hidden (and @var{upattern1} @address@hidden)
+This pattern matches only if all the argument patterns succeed.
address@hidden (guard @var{exp})
+This pattern ignores the object being examined and simply succeeds if @var{exp}
+evaluates to address@hidden and fails otherwise. It is typically used inside
+an @code{and} pattern. For example, @code{(and x (guard (< x 10)))}
+is a pattern which matches any number smaller than 10 and let-binds it to
+the variable @code{x}.
address@hidden table
+
@node Combining Conditions
@section Constructs for Combining Conditions
=== modified file 'doc/lispref/customize.texi'
--- a/doc/lispref/customize.texi 2012-12-09 01:04:43 +0000
+++ b/doc/lispref/customize.texi 2012-12-10 02:00:42 +0000
@@ -303,7 +303,9 @@
The argument @var{doc} specifies the documentation string for the
variable.
-Every @code{defcustom} should specify @code{:group} at least once.
+If a @code{defcustom} does not specify any @code{:group}, the last group
+defined with @code{defgroup} in the same file will be used. This way, most
address@hidden do not need an explicit @code{:group}.
When you evaluate a @code{defcustom} form with @kbd{C-M-x} in Emacs Lisp
mode (@code{eval-defun}), a special feature of @code{eval-defun}
=== modified file 'etc/NEWS'
--- a/etc/NEWS 2012-12-09 03:40:09 +0000
+++ b/etc/NEWS 2012-12-10 02:00:42 +0000
@@ -840,6 +840,10 @@
non-nil, instead of causing an error to be signaled.
+++
+** `select-window' now always makes the window's buffer current.
+It does so even if the window was selected before.
+
++++
** Docstrings starting with `*' no longer indicate user options.
Only variables defined using `defcustom' are considered user options.
The function `user-variable-p' is now an obsolete alias for
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-12-10 01:32:36 +0000
+++ b/lisp/ChangeLog 2012-12-10 02:00:42 +0000
@@ -1,3 +1,31 @@
+2012-12-10 Dani Moncayo <address@hidden>
+
+ * simple.el (just-one-space): Doc fix.
+
+2012-12-10 Eli Zaretskii <address@hidden>
+
+ * textmodes/texinfo.el (texinfo-enable-quote-envs): Add
+ "smallexample".
+
+2012-12-10 Le Wang <address@hidden>
+
+ * hilit-chg.el (hilit-chg-set-face-on-change): Don't burp in
+ narrowed buffer (bug#12361).
+
+2012-12-10 Juanma Barranquero <address@hidden>
+
+ * vc/vc-hooks.el (vc-state): Doc fix.
+
+2012-12-10 Glenn Morris <address@hidden>
+
+ * mail/rmail.el (rmail-maybe-display-summary):
+ Preserve buffer, in case select-window changes it. (Bug#13066)
+
+2012-12-10 Stefan Monnier <address@hidden>
+
+ * emacs-lisp/cl.el, emacs-lisp/cl-lib.el: Move cl-unload-function and
+ cl-load-hook where they belong.
+
2012-12-10 Stefan Monnier <address@hidden>
* emacs-lisp/cl-lib.el (cl-declaim): Paren typo.
@@ -4379,7 +4407,7 @@
* calendar/cal-tex.el (cal-tex-weekly-common):
Restore leading blank page.
-2012-08-22 Le Wang <address@hidden> (tiny change)
+2012-08-22 Le Wang <address@hidden>
* misc.el (forward-to-word, backward-to-word): Activate or extend
the region under `shift-select-mode'. (Bug#12231)
=== modified file 'lisp/emacs-lisp/cl-lib.el'
--- a/lisp/emacs-lisp/cl-lib.el 2012-12-10 01:32:36 +0000
+++ b/lisp/emacs-lisp/cl-lib.el 2012-12-10 02:00:42 +0000
@@ -113,12 +113,6 @@
This variable is not used at present, but it is defined in hopes that
a future Emacs interpreter will be able to use it.")
-(defun cl-unload-function ()
- "Stop unloading of the Common Lisp extensions."
- (message "Cannot unload the feature `cl'")
- ;; Stop standard unloading!
- t)
-
;;; Generalized variables.
;; These macros are defined here so that they
;; can safely be used in init files.
@@ -746,8 +740,6 @@
(provide 'cl-lib)
-(run-hooks 'cl-load-hook)
-
;; Local variables:
;; byte-compile-dynamic: t
;; End:
=== modified file 'lisp/emacs-lisp/cl.el'
--- a/lisp/emacs-lisp/cl.el 2012-11-13 03:00:09 +0000
+++ b/lisp/emacs-lisp/cl.el 2012-12-10 02:00:42 +0000
@@ -83,6 +83,12 @@
;; (delete-region (1- (point)) (point)))
;; (save-buffer)))))
+(defun cl-unload-function ()
+ "Stop unloading of the Common Lisp extensions."
+ (message "Cannot unload the feature `cl'")
+ ;; Stop standard unloading!
+ t)
+
;;; Aliases to cl-lib's features.
(dolist (var '(
@@ -735,4 +741,7 @@
(list accessor temp))))
(provide 'cl)
+
+(run-hooks 'cl-load-hook)
+
;;; cl.el ends here
=== modified file 'lisp/hilit-chg.el'
--- a/lisp/hilit-chg.el 2012-01-19 07:21:25 +0000
+++ b/lisp/hilit-chg.el 2012-12-07 05:00:04 +0000
@@ -569,37 +569,39 @@
highlight-changes-visible-mode)
(hilit-chg-fixup beg end))
(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
- (put-text-property end (+ end 1) 'hilit-chg 'hilit-chg)
- (if highlight-changes-visible-mode
- (hilit-chg-fixup beg (+ end 1))))))
- (unless no-property-change
- (put-text-property beg end 'hilit-chg type))
- (if (or highlight-changes-visible-mode no-property-change)
- (hilit-chg-make-ov type 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 the user adds some
+ ;; text where she earlier deleted text, we have to remove the
+ ;; deletion marking, and replace it explicitly with a `changed'
+ ;; marking, otherwise its highlighting would disappear.
+ (if (eq (get-text-property end 'hilit-chg) 'hilit-chg-delete)
+ (save-restriction
+ (widen)
+ (put-text-property end (+ end 1) 'hilit-chg 'hilit-chg)
+ (if highlight-changes-visible-mode
+ (hilit-chg-fixup beg (+ end 1))))))
+ (unless no-property-change
+ (put-text-property beg end 'hilit-chg type))
+ (if (or highlight-changes-visible-mode no-property-change)
+ (hilit-chg-make-ov type beg end)))))))
(defun hilit-chg-update ()
"Update a buffer's highlight changes when visibility changed."
=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el 2012-12-07 11:19:45 +0000
+++ b/lisp/mail/rmail.el 2012-12-10 02:00:42 +0000
@@ -4225,6 +4225,7 @@
;; Put the summary buffer back on the screen, if user wants that.
(defun rmail-maybe-display-summary ()
(let ((selected (selected-window))
+ (buffer (current-buffer))
window)
;; If requested, make sure the summary is displayed.
(and rmail-summary-buffer (buffer-name rmail-summary-buffer)
@@ -4246,7 +4247,8 @@
(progn
(select-window window)
(enlarge-window (- rmail-summary-window-size (window-height))))
- (select-window selected)))))
+ (select-window selected)
+ (set-buffer buffer)))))
;;;; *** Rmail Local Fontification ***
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2012-12-09 03:40:09 +0000
+++ b/lisp/simple.el 2012-12-10 02:00:42 +0000
@@ -744,7 +744,7 @@
(defun just-one-space (&optional n)
"Delete all spaces and tabs around point, leaving one space (or N spaces).
-If N is negative, delete newlines as well."
+If N is negative, delete newlines as well, leaving -N spaces."
(interactive "*p")
(unless n (setq n 1))
(let ((orig-pos (point))
=== modified file 'lisp/textmodes/texinfo.el'
--- a/lisp/textmodes/texinfo.el 2012-12-01 05:09:12 +0000
+++ b/lisp/textmodes/texinfo.el 2012-12-10 02:00:42 +0000
@@ -678,7 +678,8 @@
(not (match-end 1)))))
(defvar texinfo-enable-quote-macros "@\\(code\\|samp\\|kbd\\)\\>")
-(defvar texinfo-enable-quote-envs '("example\\>" "lisp\\>"))
+(defvar texinfo-enable-quote-envs
+ '("example\\>" "smallexample\\>" "lisp\\>"))
(defun texinfo-insert-quote (&optional arg)
"Insert the appropriate quote mark for Texinfo.
Usually inserts the value of `texinfo-open-quote' (normally ``) or
=== modified file 'lisp/vc/vc-hooks.el'
--- a/lisp/vc/vc-hooks.el 2012-12-01 13:25:13 +0000
+++ b/lisp/vc/vc-hooks.el 2012-12-10 02:00:42 +0000
@@ -438,8 +438,8 @@
(defun vc-state (file &optional backend)
"Return the version control state of FILE.
-If FILE is not registered, this function always returns nil.
-For registered files, the value returned is one of:
+A return of nil from this function means we have no information on the
+status of this file. Otherwise, the value returned is one of:
'up-to-date The working file is unmodified with respect to the
latest version on the current branch, and not locked.
@@ -491,10 +491,8 @@
that any file with vc-state nil might be ignorable
without VC knowing it.
- 'unregistered The file is not under version control.
+ 'unregistered The file is not under version control."
-A return of nil from this function means we have no information on the
-status of this file."
;; Note: in Emacs 22 and older, return of nil meant the file was
;; unregistered. This is potentially a source of
;; backward-compatibility bugs.
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2012-12-10 01:44:32 +0000
+++ b/src/ChangeLog 2012-12-10 02:00:42 +0000
@@ -1,3 +1,31 @@
+2012-12-10 Jan Djärv <address@hidden>
+
+ * nsterm.m (fd_handler:): FD_ZERO fds (Bug#13103).
+
+2012-12-10 Fabrice Popineau <address@hidden>
+
+ * w32fns.c (cache_system_info): Cast sysinfo_cache.dwPageSize to
+ DWORD_PTR, for compatibility with 64-bit builds.
+
+ * w32.c (_PROCESS_MEMORY_COUNTERS_EX):
+ (GetProcessWorkingSetSize_Proc, get_process_working_set_size)
+ (system_process_attributes): Use SIZE_T rather than DWORD, for
+ compatibility with 64-bit builds.
+
+2012-12-10 Christopher Schmidt <address@hidden>
+
+ * lread.c (Vload_source_file_function): Doc fix (Bug#11647).
+
+2012-12-10 Eli Zaretskii <address@hidden>
+
+ * indent.c (Fvertical_motion): If a display string will be
+ displayed on the left or the right margin, don't consider it as a
+ factor in cursor positioning. (Bug#13108)
+
+2012-12-10 Martin Rudalics <address@hidden>
+
+ * editfns.c (Fcompare_buffer_substrings): Reword doc-string.
+
2012-12-10 Paul Eggert <address@hidden>
* fileio.c (Fsubstitute_in_file_name): Use ptrdiff_t, not int,
=== modified file 'src/editfns.c'
--- a/src/editfns.c 2012-12-08 17:19:51 +0000
+++ b/src/editfns.c 2012-12-10 02:00:42 +0000
@@ -2635,10 +2635,10 @@
DEFUN ("compare-buffer-substrings", Fcompare_buffer_substrings,
Scompare_buffer_substrings,
6, 6, 0,
doc: /* Compare two substrings of two buffers; return result as number.
-the value is -N if first string is less after N-1 chars,
-+N if first string is greater after N-1 chars, or 0 if strings match.
-Each substring is represented as three arguments: BUFFER, START and END.
-That makes six args in all, three for each substring.
+Return -N if first string is less after N-1 chars, +N if first string is
+greater after N-1 chars, or 0 if strings match. Each substring is
+represented as three arguments: BUFFER, START and END. That makes six
+args in all, three for each substring.
The value of `case-fold-search' in the current buffer
determines whether case is significant or ignored. */)
=== modified file 'src/indent.c'
--- a/src/indent.c 2012-11-24 01:57:09 +0000
+++ b/src/indent.c 2012-12-10 02:00:42 +0000
@@ -2025,7 +2025,11 @@
const char *s = SSDATA (it.string);
const char *e = s + SBYTES (it.string);
- disp_string_at_start_p = it.string_from_display_prop_p;
+ /* If it.area is anything but TEXT_AREA, we need not bother
+ about the display string, as it doesn't affect cursor
+ positioning. */
+ disp_string_at_start_p =
+ it.string_from_display_prop_p && it.area == TEXT_AREA;
while (s < e)
{
if (*s++ == '\n')
=== modified file 'src/lread.c'
--- a/src/lread.c 2012-11-27 05:17:07 +0000
+++ b/src/lread.c 2012-12-10 02:00:42 +0000
@@ -4525,12 +4525,16 @@
Vload_read_function = Qnil;
DEFVAR_LISP ("load-source-file-function", Vload_source_file_function,
- doc: /* Function called in `load' for loading an Emacs Lisp
source file.
-This function is for doing code conversion before reading the source file.
-If nil, loading is done without any code conversion.
-Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where
- FULLNAME is the full name of FILE.
-See `load' for the meaning of the remaining arguments. */);
+ doc: /* Function called in `load' to load an Emacs Lisp source
file.
+The value should be a function for doing code conversion before
+reading a source file. It can also be nil, in which case loading is
+done without any code conversion.
+
+If the value is a function, it is called with four arguments,
+FULLNAME, FILE, NOERROR, NOMESSAGE. FULLNAME is the absolute name of
+the file to load, FILE is the non-absolute name (for messages etc.),
+and NOERROR and NOMESSAGE are the corresponding arguments passed to
+`load'. The function should return t if the file was loaded. */);
Vload_source_file_function = Qnil;
DEFVAR_BOOL ("load-force-doc-strings", load_force_doc_strings,
=== modified file 'src/nsterm.m'
--- a/src/nsterm.m 2012-12-04 15:15:30 +0000
+++ b/src/nsterm.m 2012-12-10 02:00:42 +0000
@@ -4575,7 +4575,7 @@
if (waiting)
{
SELECT_TYPE fds;
-
+ FD_ZERO (&fds);
FD_SET (selfds[0], &fds);
result = select (selfds[0]+1, &fds, NULL, NULL, NULL);
if (result > 0 && read (selfds[0], &c, 1) == 1 && c == 'g')
=== modified file 'src/w32.c'
--- a/src/w32.c 2012-12-08 18:27:37 +0000
+++ b/src/w32.c 2012-12-10 02:00:42 +0000
@@ -101,17 +101,17 @@
_WIN32_WINNT than what we use. w32api supplied with MinGW 3.15
defines it in psapi.h */
typedef struct _PROCESS_MEMORY_COUNTERS_EX {
- DWORD cb;
- DWORD PageFaultCount;
- DWORD PeakWorkingSetSize;
- DWORD WorkingSetSize;
- DWORD QuotaPeakPagedPoolUsage;
- DWORD QuotaPagedPoolUsage;
- DWORD QuotaPeakNonPagedPoolUsage;
- DWORD QuotaNonPagedPoolUsage;
- DWORD PagefileUsage;
- DWORD PeakPagefileUsage;
- DWORD PrivateUsage;
+ DWORD cb;
+ DWORD PageFaultCount;
+ SIZE_T PeakWorkingSetSize;
+ SIZE_T WorkingSetSize;
+ SIZE_T QuotaPeakPagedPoolUsage;
+ SIZE_T QuotaPagedPoolUsage;
+ SIZE_T QuotaPeakNonPagedPoolUsage;
+ SIZE_T QuotaNonPagedPoolUsage;
+ SIZE_T PagefileUsage;
+ SIZE_T PeakPagefileUsage;
+ SIZE_T PrivateUsage;
} PROCESS_MEMORY_COUNTERS_EX,*PPROCESS_MEMORY_COUNTERS_EX;
#endif
@@ -351,8 +351,8 @@
DWORD cb);
typedef BOOL (WINAPI * GetProcessWorkingSetSize_Proc) (
HANDLE hProcess,
- DWORD * lpMinimumWorkingSetSize,
- DWORD * lpMaximumWorkingSetSize);
+ PSIZE_T lpMinimumWorkingSetSize,
+ PSIZE_T lpMaximumWorkingSetSize);
typedef BOOL (WINAPI * GlobalMemoryStatus_Proc) (
LPMEMORYSTATUS lpBuffer);
typedef BOOL (WINAPI * GlobalMemoryStatusEx_Proc) (
@@ -4685,8 +4685,8 @@
static BOOL WINAPI
get_process_working_set_size (HANDLE h_proc,
- DWORD *minrss,
- DWORD *maxrss)
+ PSIZE_T minrss,
+ PSIZE_T maxrss)
{
static GetProcessWorkingSetSize_Proc
s_pfn_Get_Process_Working_Set_Size = NULL;
@@ -4931,7 +4931,7 @@
unsigned egid;
PROCESS_MEMORY_COUNTERS mem;
PROCESS_MEMORY_COUNTERS_EX mem_ex;
- DWORD minrss, maxrss;
+ SIZE_T minrss, maxrss;
MEMORYSTATUS memst;
MEMORY_STATUS_EX memstex;
double totphys = 0.0;
@@ -5159,7 +5159,7 @@
&& get_process_memory_info (h_proc, (PROCESS_MEMORY_COUNTERS *)&mem_ex,
sizeof (mem_ex)))
{
- DWORD rss = mem_ex.WorkingSetSize / 1024;
+ SIZE_T rss = mem_ex.WorkingSetSize / 1024;
attrs = Fcons (Fcons (Qmajflt,
make_fixnum_or_float (mem_ex.PageFaultCount)),
@@ -5174,7 +5174,7 @@
else if (h_proc
&& get_process_memory_info (h_proc, &mem, sizeof (mem)))
{
- DWORD rss = mem_ex.WorkingSetSize / 1024;
+ SIZE_T rss = mem_ex.WorkingSetSize / 1024;
attrs = Fcons (Fcons (Qmajflt,
make_fixnum_or_float (mem.PageFaultCount)),
=== modified file 'src/w32fns.c'
--- a/src/w32fns.c 2012-12-08 12:11:29 +0000
+++ b/src/w32fns.c 2012-12-10 02:00:42 +0000
@@ -7036,7 +7036,7 @@
/* Cache page size, allocation unit, processor type, etc. */
GetSystemInfo (&sysinfo_cache);
- syspage_mask = sysinfo_cache.dwPageSize - 1;
+ syspage_mask = (DWORD_PTR)sysinfo_cache.dwPageSize - 1;
/* Cache os info. */
osinfo_cache.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111170: Merge from emacs-24; up to r111014,
Glenn Morris <=