[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 47e9556 4/4: Merge branch 'master' of git.sv.gnu.or
|
From: |
Kenichi Handa |
|
Subject: |
[Emacs-diffs] master 47e9556 4/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs |
|
Date: |
Mon, 05 Oct 2015 14:00:22 +0000 |
branch: master
commit 47e9556c70a7009d7c750fd7bf10a0e6cf41cdce
Merge: 52beda9 ef171d1
Author: K. Handa <address@hidden>
Commit: K. Handa <address@hidden>
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
---
CONTRIBUTE | 14 +
ChangeLog.2 | 1081 ++++++++++++++++++++++++++++++++++-
admin/MAINTAINERS | 112 +++-
admin/authors.el | 2 +-
autogen.sh | 2 +-
doc/emacs/frames.texi | 1 +
doc/emacs/text.texi | 4 +-
doc/lispintro/emacs-lisp-intro.texi | 3 +
doc/lispref/control.texi | 16 +-
doc/lispref/display.texi | 22 +-
doc/lispref/objects.texi | 4 +-
doc/lispref/sequences.texi | 84 +++-
doc/lispref/windows.texi | 14 +-
etc/NEWS | 17 +-
etc/compilation.txt | 1 +
etc/themes/wombat-theme.el | 2 +-
etc/tutorials/TUTORIAL.cn | 5 +-
lisp/ChangeLog.17 | 5 -
lisp/arc-mode.el | 65 +-
lisp/battery.el | 2 +-
lisp/calc/calc-aent.el | 1 -
lisp/calc/calc-ext.el | 4 -
lisp/calc/calc-lang.el | 4 -
lisp/calc/calc-store.el | 4 -
lisp/calc/calc-units.el | 4 -
lisp/calc/calc.el | 4 -
lisp/calc/calccomp.el | 4 -
lisp/calendar/cal-bahai.el | 4 -
lisp/calendar/cal-french.el | 4 -
lisp/calendar/cal-menu.el | 4 -
lisp/calendar/calendar.el | 1 -
lisp/calendar/diary-lib.el | 4 -
lisp/calendar/holidays.el | 4 -
lisp/calendar/icalendar.el | 2 +-
lisp/cedet/mode-local.el | 4 +-
lisp/color.el | 2 +-
lisp/desktop.el | 4 -
lisp/dnd.el | 2 +-
lisp/emacs-lisp/bytecomp.el | 2 +-
lisp/emacs-lisp/cconv.el | 2 +-
lisp/emacs-lisp/cl-macs.el | 2 +-
lisp/emacs-lisp/copyright.el | 5 -
lisp/emacs-lisp/elint.el | 2 +-
lisp/emacs-lisp/lisp-mode.el | 20 +-
lisp/emacs-lisp/macroexp.el | 2 +-
lisp/emacs-lisp/pcase.el | 2 +-
lisp/emacs-lisp/seq.el | 3 +-
lisp/emacs-lisp/shadow.el | 4 -
lisp/emacs-lisp/tabulated-list.el | 4 -
lisp/filesets.el | 2 +-
lisp/fringe.el | 2 +-
lisp/gnus/auth-source.el | 2 +-
lisp/htmlfontify.el | 4 -
lisp/ibuffer.el | 18 +-
lisp/info-xref.el | 2 +-
lisp/json.el | 21 +-
lisp/ldefs-boot.el | 1095 ++++++++++++++++++-----------------
lisp/mail/emacsbug.el | 3 +-
lisp/mail/footnote.el | 2 +-
lisp/mail/mail-extr.el | 2 +-
lisp/mail/sendmail.el | 1 -
lisp/mail/uce.el | 4 -
lisp/man.el | 2 +-
lisp/mh-e/mh-e.el | 4 +-
lisp/minibuffer.el | 6 +-
lisp/net/eudc-bob.el | 2 +-
lisp/net/eudc-export.el | 2 +-
lisp/net/eudc-hotlist.el | 2 +-
lisp/net/eudc-vars.el | 2 +-
lisp/net/eudc.el | 2 +-
lisp/net/eudcb-bbdb.el | 2 +-
lisp/net/eudcb-ldap.el | 2 +-
lisp/net/eudcb-ph.el | 2 +-
lisp/net/newst-treeview.el | 2 +-
lisp/net/shr.el | 56 ++-
lisp/net/tramp-compat.el | 22 +-
lisp/net/tramp.el | 2 +-
lisp/net/trampver.el | 7 +-
lisp/obsolete/iso-insert.el | 2 +-
lisp/play/5x5.el | 2 +-
lisp/play/bubbles.el | 2 +-
lisp/play/handwrite.el | 2 +-
lisp/play/morse.el | 2 +-
lisp/progmodes/cmacexp.el | 4 -
lisp/progmodes/compile.el | 2 +-
lisp/progmodes/f90.el | 4 -
lisp/progmodes/gdb-mi.el | 57 ++
lisp/progmodes/grep.el | 22 +-
lisp/progmodes/hideshow.el | 2 +-
lisp/progmodes/js.el | 4 -
lisp/progmodes/octave.el | 316 ++++++-----
lisp/progmodes/prog-mode.el | 65 ++-
lisp/progmodes/prolog.el | 47 ++-
lisp/progmodes/python.el | 1 -
lisp/progmodes/sh-script.el | 79 ++-
lisp/replace.el | 2 +-
lisp/ruler-mode.el | 4 -
lisp/skeleton.el | 2 +-
lisp/subr.el | 2 +-
lisp/tempo.el | 4 -
lisp/term/x-win.el | 2 +-
lisp/textmodes/conf-mode.el | 2 +-
lisp/textmodes/fill.el | 2 +-
lisp/textmodes/paragraphs.el | 4 -
lisp/textmodes/po.el | 2 +-
lisp/textmodes/reftex-vars.el | 7 +-
lisp/textmodes/rst.el | 15 +-
lisp/textmodes/tex-mode.el | 2 +-
lisp/textmodes/texinfo.el | 2 +-
lisp/textmodes/tildify.el | 5 -
lisp/time.el | 2 +-
lisp/vc/cvs-status.el | 2 +-
lisp/vc/ediff-util.el | 1 +
lisp/vc/vc-git.el | 28 +
lisp/wdired.el | 1 -
lisp/whitespace.el | 3 -
lisp/winner.el | 3 +-
lisp/woman.el | 5 -
lisp/x-dnd.el | 2 +-
nt/INSTALL | 148 +++---
src/cmds.c | 2 +-
src/coding.c | 3 +
src/dired.c | 13 +-
src/fileio.c | 33 +-
src/font.c | 2 +-
src/frame.c | 4 +-
src/gfilenotify.c | 1 +
src/macfont.m | 171 ++++--
src/nsterm.m | 5 +
src/process.c | 18 +-
src/window.c | 7 +-
src/xdisp.c | 87 ++-
src/xfaces.c | 28 +-
src/xfns.c | 5 +-
test/automated/auth-source-tests.el | 178 ++++++
test/automated/coding-tests.el | 50 ++
test/automated/json-tests.el | 13 +-
test/automated/mule-util.el | 2 +-
test/automated/python-tests.el | 1 -
test/indent/octave.m | 22 +
test/indent/prolog.prolog | 52 ++-
141 files changed, 3152 insertions(+), 1249 deletions(-)
diff --git a/CONTRIBUTE b/CONTRIBUTE
index 609ab7a..4d5d08a 100644
--- a/CONTRIBUTE
+++ b/CONTRIBUTE
@@ -201,6 +201,20 @@ then exclude that commit from the merge to trunk.
** Other process information
+*** Non-ASCII characters in Emacs files
+
+If you introduce non-ASCII characters into Emacs source files, it is a
+good idea to add a 'coding' cookie to the file to state its encoding.
+Please use the UTF-8 encoding unless it cannot do the job for some
+good reason. As of Emacs 24.4, it is no longer necessary to have
+explicit 'coding' cookies in *.el files if they are encoded in UTF-8,
+but other files need them even if encoded in UTF-8. However, if
+an *.el file is intended for use with older Emacs versions (e.g. if
+it's also distributed via ELPA), having an explicit encoding
+specification is still a good idea.
+
+*** Useful files in the admin/ directory
+
See all the files in admin/notes/* . In particular, see
admin/notes/newfile, see admin/notes/repo.
diff --git a/ChangeLog.2 b/ChangeLog.2
index 0fb3df6..94c8508 100644
--- a/ChangeLog.2
+++ b/ChangeLog.2
@@ -1,3 +1,1082 @@
+2015-10-04 Eli Zaretskii <address@hidden>
+ Michael Heerdegen <address@hidden>
+
+ shr: fix too long lines in rendered buffers (Bug#21012)
+
+ * lisp/net/shr.el (shr-insert-document, shr-fill-text):
+ Correct calculation of available width.
+ (shr-find-fill-point): Don't overflow window edge if shr-kinsoku-shorten
+ is nil.
+
+2015-10-04 Vincent Belaïche <address@hidden>
+
+ Restore blank line before next section, erroneously erased in my
previous commit
+
+ * etc/compilation.txt (symbol ant): add an additional trailing blank
line to this section, so that there are two of them immediately before the next
section
+
+2015-10-04 Vincent Belaïche <address@hidden>
+
+ Support MSW filename style for ant compilation error regexp
+
+ * etc/compilation.txt (symbol ant):
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
Support MSW filename style
+
+2015-10-03 Paul Eggert <address@hidden>
+
+ * nt/INSTALL: Minor spelling and quote fixes.
+
+ * lisp/ibuffer.el: Fix docstring length (Bug#21541).
+
+2015-10-03 Simen Heggestøyl <address@hidden>
+
+ Maintain ordering of JSON object keys by default
+
+ * lisp/json.el (json-object-type): Mention order handling in doc-string.
+ (json--plist-reverse): New utility function.
+ (json-read-object): Maintain ordering for alists and plists.
+ (json-pretty-print): Ensure that ordering is maintained.
+
+ * test/automated/json-tests.el (test-json-plist-reverse): New test for
+ `json--plist-reverse'.
+ (json-read-simple-alist): Update test to accommodate for changes in
+ `json-read-object'.
+
+ * etc/NEWS: Document the new behavior of the pretty printing functions.
+
+2015-10-03 Andreas Schwab <address@hidden>
+
+ * src/coding.c (complement_process_encoding_system): Revert last
+ change.
+
+2015-10-03 Ulf Jasper <address@hidden>
+
+ Add entry for Ulf Jasper.
+
+2015-10-03 Xue Fuqiao <address@hidden>
+
+ Doc fix for `defmacro'
+
+ * doc/lispref/objects.texi (Macro Type): `defmacro' is a macro now.
+
+2015-10-03 Andreas Schwab <address@hidden>
+
+ More validatation of coding systems
+
+ * src/fileio.c (Finsert_file_contents): Remove redundant
+ coding-system check.
+ (choose_write_coding_system): Likewise.
+ * src/coding.c (complement_process_encoding_system): Check
+ argument for valid coding system.
+
+2015-10-03 Eli Zaretskii <address@hidden>
+
+ Avoid crashes in coding_inherit_eol_type
+
+ * src/coding.c (coding_inherit_eol_type): Check the validity of
+ the arguments. Suggested by Andreas Schwab <address@hidden>.
+ (Bug#21602)
+
+2015-10-03 Eli Zaretskii <address@hidden>
+
+ More validatation of coding system in 'write-region'
+
+ * src/coding.c (choose_write_coding_system): More validation of
+ coding-system from various sources. Suggested by Andreas Schwab
+ <address@hidden>. (Bug#21602)
+
+2015-10-03 Eli Zaretskii <address@hidden>
+
+ Avoid crashes due to invalid coding-system
+
+ * src/fileio.c (choose_write_coding_system)
+ (Finsert_file_contents): Check validity of coding-system-for-write
+ and coding-system-for-read bound by the caller. (Bug#21602)
+
+2015-10-03 Tassilo Horn <address@hidden>
+
+ Adapt to new prettify-symbols-unprettify-at-point default
+
+ * etc/NEWS: Mention that unprettication of symbol at point is off by
+ default.
+
+2015-10-03 Tassilo Horn <address@hidden>
+
+ Revert my two recent process.c changes
+
+ Revert "Improve last commit to process.c" and "Remove callback-handled
+ channels from Available set" because they did not fix bug#21313.
+
+ This reverts commits bfa1aa8e2bdaf14adbbf1e9e824051d3f740694c and
+ 27f871907cc24f33a7d12ac3a4ab71a88f0bc554..
+
+2015-10-02 Markus Triska <address@hidden>
+
+ * prolog.el: Update and extend operator table
+
+ (prolog-smie-grammar): Add multifile, public etc.
+
+2015-10-02 Paul Eggert <address@hidden>
+
+ Allow autogen even when Git is not installed
+
+ * autogen.sh: Test ‘git status’ before trying to use Git.
+
+2015-10-02 Stefan Monnier <address@hidden>
+
+ * lisp/vc/vc-git.el (vc-git-region-history): Handle local changes
+
+ Adjust lto/lfrom when we have uncommitted changes.
+
+2015-10-02 Paul Eggert <address@hidden>
+
+ Fix problems found by clang 3.5.0
+
+ * src/cmds.c (Fdelete_char): Don’t assume XINT returns int.
+ * src/font.c (font_parse_family_registry):
+ Use &"str"[X] instead of "str"+X, to pacify clang -Wstring-plus-int.
+
+2015-10-02 Eli Zaretskii <address@hidden>
+
+ * nt/INSTALL: Update instructions for running autogen.sh
+
+ * nt/INSTALL: Point to ezwinports for libXpm binaries.
+
+2015-10-02 Daniel Colascione <address@hidden>
+
+ Fix winner in cl-lib not loaded case
+
+ * lisp/winner.el (winner-change-fun): Don't use cl-lib functions
+ without requiring CL
+
+2015-10-02 Paul Eggert <address@hidden>
+
+ Fix a few problems with directed quotes
+
+ This is in response to a problem report by Kaushal Modi in:
+ http://bugs.gnu.org/21588#25
+ * lisp/cedet/mode-local.el (describe-mode-local-overload):
+ * lisp/emacs-lisp/bytecomp.el (byte-compile-fix-header):
+ * lisp/info-xref.el (info-xref-check-all-custom):
+ * lisp/mail/emacsbug.el (report-emacs-bug-hook):
+ Prefer directed to undirected single quotes in diagnostics.
+
+2015-10-01 Eli Zaretskii <address@hidden>
+
+ Revert "Attempt to fix slow redisplay caused by last changes"
+
+ * src/xdisp.c (try_window_id, try_window_reusing_current_matrix)
+ (try_cursor_movement): Don't relax requirements for redisplay
+ optimizations for the selected frame. (Bug#21597)
+
+ This reverts commit c4c1fb97727ff52bcfa83ad5ed94a64a93d12e59.
+
+2015-10-01 Eli Zaretskii <address@hidden>
+
+ Fix slow redisplay when daemon frame exists
+
+ * src/xdisp.c (redisplay_internal): Don't consider daemon frames
+ when looking for frames that need to be redisplayed. (Bug#21597)
+
+2015-10-01 Eli Zaretskii <address@hidden>
+
+ Attempt to fix slow redisplay caused by last changes
+
+ * src/xdisp.c (try_window_id, try_window_reusing_current_matrix)
+ (try_cursor_movement): Relax requirements for redisplay
+ optimizations for the selected frame. (Bug#21597)
+
+2015-10-01 Stephen Leake <address@hidden>
+
+ Improve doc strings in dired.c
+
+ * src/dired.c (Ffile_name_completion, Ffile_name_all_completions):
+ Improve doc string.
+
+2015-10-01 Stephen Leake <address@hidden>
+
+ Set default base-size in minibuffer-completion-help
+
+ * lisp/minibuffer.el (minibuffer-completion-help): Set default
base-size,
+ in case completion table does not set it.
+
+2015-10-01 Eli Zaretskii <address@hidden>
+
+ Fix GUD display of GDB output with non-ASCII text
+
+ * lisp/progmodes/gdb-mi.el (gdb-mi-decode-strings): New defcustom.
+ (gdb-mi-decode): New function.
+ (gud-gdbmi-marker-filter): If gdb-mi-decode-strings is non-nil,
+ decode octal escapes in GDB output. (Bug#21572)
+
+2015-10-01 Eli Zaretskii <address@hidden>
+
+ * nt/INSTALL: Document where to find XPM support files
+
+2015-10-01 Tassilo Horn <address@hidden>
+
+ Un- and re-prettification are not exclusive
+
+ * lisp/progmodes/prog-mode.el (prettify-symbols--post-command-hook):
+ Re-apply prettification to previous symbol also when unprettifying next
+ one.
+
+2015-10-01 Tassilo Horn <address@hidden>
+
+ Don't unprettify symbol at point by default
+
+ * lisp/progmodes/prog-mode.el (prettify-symbols-unprettify-at-point):
+ Default to disabled (nil).
+
+2015-09-30 Artur Malabarba <address@hidden>
+
+ * lisp/progmodes/prog-mode.el (prettify-symbols-unprettify-at-point):
+
+ Support unprettifying when point is after a symbol.
+
+ * etc/NEWS: Document `prettify-symbols-unprettify-at-point'
+
+2015-09-30 Eli Zaretskii <address@hidden>
+
+ Avoid assertion violations in push_prefix_prop
+
+ * src/xdisp.c (push_prefix_prop): Avoid assertion violations when
+ a line that has a line-prefix defined starts with an image. (Bug#21428)
+
+2015-09-30 Eli Zaretskii <address@hidden>
+
+ Disable some display optimizations when frames need redisplay
+
+ These optimizations were previously disabled by the
+ windows_or_buffers_changed flag, which now is not set
+ when only some frames need to be redrawn.
+ * src/xdisp.c (redisplay_internal): Redisplay any frame whose
+ 'redisplay' flag is set.
+ (try_window_reusing_current_matrix, try_window_id)
+ (try_cursor_movement): Disable these optimizations when the
+ frame's 'redisplay' flag is set.
+
+2015-09-30 Tassilo Horn <address@hidden>
+
+ Don't modify buffer by unprettification
+
+ * lisp/progmodes/prog-mode.el (prettify-symbols--compose-symbol):
+ (prettify-symbols--post-command-hook, prettify-symbols-mode): Don't
+ modify buffer when setting/removing custom prettify-symbols-start/end
+ text properties. Add them to font-lock-extra-managed-props, too.
+
+2015-09-30 Stefan Monnier <address@hidden>
+
+ Try to avoid redisplaying all frames when creating a new one
+
+ * src/xfns.c (x_set_menu_bar_lines, x_change_tool_bar_height):
+ * src/xfaces.c (Finternal_make_lisp_face, Finternal_copy_lisp_face)
+ (Finternal_set_lisp_face_attribute, update_face_from_frame_parameter):
+ * src/frame.c (x_set_screen_gamma): Set the specific frame's
+ `redisplay' bit rather than windows_or_buffers_changed.
+
+ * src/window.c (apply_window_adjustment): Remove redundant setting of
+ windows_or_buffers_changed.
+
+ * src/xdisp.c (redisplay_internal): Set the specific frame's
+ `redisplay' bit rather than update_mode_lines in response to
+ cursor_type_changed.
+ (syms_of_xdisp): Use hash-tables for redisplay_*_cause tables.
+ (AINC): Adjust accordingly.
+
+2015-09-30 Tassilo Horn <address@hidden>
+
+ Implement unprettification of symbol at point
+
+ * lisp/progmodes/prog-mode.el: Implement feature for unprettifying the
+ symbol at point.
+ (prettify-symbols--current-symbol-bounds): New variable.
+ (prettify-symbols--post-command-hook): New function.
+ (prettify-symbols-unprettify-at-point): New defcustom.
+ (prettify-symbols-mode): Use it.
+ (prettify-symbols--compose-symbol): Use them.
+
+2015-09-30 YAMAMOTO Mitsuharu <address@hidden>
+
+ * src/macfont.m (mac_font_descriptor_supports_languages): Regard "zh"
as synonym of "zh-Hans".
+
+2015-09-30 YAMAMOTO Mitsuharu <address@hidden>
+
+ Work around crash when displaying etc/HELLO on OS X 10.11
+
+ * src/macfont.m (mac_font_get_weight)
+ (mac_font_descriptor_get_adjusted_weight): New functions.
+ (macfont_store_descriptor_attributes): Adjust weight.
+
+2015-09-30 YAMAMOTO Mitsuharu <address@hidden>
+
+ * src/macfont.m: Fix compilation with USE_CT_GLYPH_INFO.
+
+2015-09-30 Nicolas Petton <address@hidden>
+
+ * lisp/arc-mode.el (archive-rar-summarize): Better alignment of the
columns.
+
+2015-09-30 Nicolas Petton <address@hidden>
+
+ Use unar and lsar to handle RAR archives in arc-mode
+
+ * lisp/arc-mode.el (archive-rar-extract, archive-extract-by-file): Rely
+ on unar and lsar instead of unrar-free for RAR archives (Bug#17663).
+
+2015-09-30 Wieland Hoffmann <address@hidden> (tiny change)
+
+ Clarify :create in auth-source's docs
+
+ * auth-source.el (auth-source-search): Clarify :create's meaning.
+
+2015-09-30 Phil Sainty <address@hidden>
+
+ Avoid empty -path arguments in rgrep
+
+ * lisp/progmodes/grep.el (rgrep-default-command): Remove nil from
+ the list produced according to grep-find-ignored-directories,
+ before passing it to Find/Grep invocation. (Bug#21548)
+
+2015-09-30 Eli Zaretskii <address@hidden>
+
+ Clarify documentation of pos-visible-in-window-p
+
+ * src/window.c (Fpos_visible_in_window_p): Clarify the meaning of
+ t for POS. See
+ http://lists.gnu.org/archive/html/emacs-devel/2015-09/msg01040.html
+ for the original report.
+
+ * doc/lispref/windows.texi (Window Start and End): Clarify the
+ meaning of t for the POSITION argument of pos-visible-in-window-p.
+
+2015-09-29 Stefan Monnier <address@hidden>
+
+ * lisp/progmodes/prolog.el: Fix various indentation cases
+
+ (prolog-operator-chars): New const (add \\).
+ (prolog-smie-forward-token, prolog-smie-backward-token): Use it.
+ (prolog-smie-rules): Add rules according to bug#21526.
+
+2015-09-29 Stefan Monnier <address@hidden>
+
+ * lisp/progmodes/sh-script.el: Old "dumb" continued line indent
+
+ (sh-indent-after-continuation): Add new value `always' (bug#17620)
+ (sh-smie-sh-rules): Remove old handling of continued lines.
+ (sh-smie--indent-continuation): New function.
+ (sh-set-shell): Use it.
+
+2015-09-29 Stefan Monnier <address@hidden>
+
+ * lisp/progmodes/octave.el: Use grammar more; Handle enumeration fun
+
+ Remove redundant :group keyword args.
+ (octave-begin-keywords, octave-else-keywords, octave-end-keywords):
+ Remove variables.
+ (octave-operator-table, octave-smie-bnf-table): Use let-when-compile to
+ turn them into compile-time variables.
+ Auto-generate the "foo ... end" rules from the "foo ... endfoo" rules.
+ Add rules for break, continue, return, global, and persistent.
+ Refine the rule for "until".
+ (octave-smie--funcall-p, octave-smie--end-index-p)
+ (octave-smie--in-parens-p): New functions.
+ (octave-smie-backward-token, octave-smie-forward-token): Use them to
+ distinguish the "enumeration" function and the "end" index from
+ their corresponding keywords.
+ (octave--block-offset-keywords): New constant.
+ (octave-smie-rules): Use it. Adjust rules for new global/persistent
parsing.
+ (octave-reserved-words): Redefine using octave-smie-grammar.
+ (octave-font-lock-keywords): Use octave-smie--funcall-p and
+ octave-smie--end-index-p.
+
+2015-09-29 Stefan Monnier <address@hidden>
+
+ * lisp/emacs-lisp/lisp-mode.el (let-when-compile): Work like let*
+
+2015-09-29 Eli Zaretskii <address@hidden>
+
+ nt/INSTALL: Remove references to GTK site
+
+ That site no longer offers Windows downloads.
+
+2015-09-29 Eli Zaretskii <address@hidden>
+
+ * nt/INSTALL: Add instructions for installing Git.
+
+2015-09-29 Katsumi Yamaoka <address@hidden>
+
+ * net/shr.el (shr-colorize-region): Allow 88-color tty to use colors.
+ Suggested by Eli Zaretskii.
+
+2015-09-28 Katsumi Yamaoka <address@hidden>
+
+ * net/shr.el (shr-colorize-region):
+ Don't do it on a system not supporting 256 above colors (bug#21557).
+
+2015-09-28 Dmitry Gutov <address@hidden>
+
+ Revert "Don't rely on defaults in decoding UTF-8 encoded Lisp files"
+
+ This reverts commit db828f62f6f17414fbbc3206dac123dc73dd6055.
+
+2015-09-28 Nicolas Petton <address@hidden>
+
+ Add documentation for seq.el
+
+ * doc/lispref/sequences.texi: Add documentation regarding extending
+ seq.el, as well as missing documentation for seq-elt, seq-length, seq-p,
+ seq-do and seq-map.
+
+2015-09-28 Nicolas Petton <address@hidden>
+
+ Better documentation for seq-some
+
+ * doc/lispref/sequences.texi:
+ * lisp/emacs-lisp/seq.el: Update the documentation of seq-some to
+ guarantee that the returned value is the first non-nil value that
+ resulted from applying the predicate.
+
+2015-09-28 Nicolas Petton <address@hidden>
+
+ * lisp/arc-mode.el: Sharp-quote function arguments.
+
+2015-09-28 Eli Zaretskii <address@hidden>
+
+ Avoid redisplay error in ediff-regions-wordwise
+
+ * lisp/vc/ediff-util.el
+ (ediff-clone-buffer-for-region-comparison): Make sure the mark is
+ set before activating it. (Bug#21567)
+
+2015-09-28 Eli Zaretskii <address@hidden>
+
+ Another attempt to fix crashes due to prematurely freed faces
+
+ * src/xdisp.c (redisplay_internal): Inhibit freeing of realized
+ faces for as long as we might have desired matrices that reference
+ those faces. (Bug#21428)
+
+2015-09-28 Tassilo Horn <address@hidden>
+
+ Add auctex development list email address
+
+2015-09-28 Tassilo Horn <address@hidden>
+
+ Add admin/MAINTAINERS entries
+
+ * admin/MAINTAINERS: Add entries for AUCTeX team and myself.
+
+2015-09-28 (tiny change) Arash Esbati <address@hidden> (tiny change)
+
+ Improve wrapfig package support and caption parsing
+
+ * lisp/textmodes/reftex-vars.el (reftex-label-alist-builtin): Correct
+ description string and add wraptable environment.
+ (reftex-default-context-regexps): Improve caption regexp.
+
+2015-09-28 Anders Lindgren <address@hidden>
+
+ Respect value of frame_resize_pixelwise when handling fullscreen state.
+
+ * src/nsterm.m (handleFS): Respect frame_resize_pixelwise when
+ setting size increments.
+
+2015-09-27 Michael Albinus <address@hidden>
+
+ * src/gfilenotify.c (Fgfile_add_watch): Cleanup temporary variable.
+
+2015-09-27 Simen Heggestøyl <address@hidden>
+
+ Add prettify-symbols-alist for js-mode
+
+ * lisp/progmodes/js.el (js--prettify-symbols-alist): New defconst.
+ (js-mode): Use it.
+
+2015-09-27 Eli Zaretskii <address@hidden>
+
+ * nt/subdirs.el: File deleted (no longer used).
+
+2015-09-26 Alan Mackenzie <address@hidden>
+
+ Fix follow-scroll-up/down, making them replacements for scroll-up/down.
+
+ 1. Allow point to move between follow windows in scroll operations.
+ 2. Fix bug where `right-char' just before EOB caused spurious scrolling,
+ when EOB was isolated in the last follow window.
+
+ lisp/follow.el (follow-fixed-window): New variable.
+ (follow-get-scrolled-point): New function.
+ (follow-scrol-up, follow-scroll-down): Add autoload cookies.
+ Reformulate
+ the code. Put `scroll-command' properties on the functions. Correct
+ minor errors in ...-down's doc string and code.
+ (follow-calc-win-end): Amend incomplete doc string. Use
+ `pos-visible-in-window-p' to check whether EOB is in the window.
+ (follow-estimate-first-window-start): Correct an off-by-1 error.
+ (follow-adjust-window): Add handling for explicit scrolling operations.
+
+2015-09-26 Paul Eggert <address@hidden>
+
+ * admin/MAINTAINERS: Add self, plus list some more files sans
maintaners.
+
+2015-09-26 Zachary Kanfer <address@hidden> (tiny change)
+
+ New DWIM commands for changing letter-case
+
+ * lisp/simple.el (upcase-dwim, downcase-dwim, capitalize-dwim):
+ New functions. (Bug#21501)
+
+2015-09-26 Eli Zaretskii <address@hidden>
+
+ * etc/PROBLEMS: Document problems with pasting on MS-Windows
+
+2015-09-26 Eli Zaretskii <address@hidden>
+
+ Make face realization be more frame-specific
+
+ * src/frame.h (struct f): New flag face_change.
+ * src/xfaces.c (Finternal_make_lisp_face)
+ (Finternal_copy_lisp_face, Finternal_set_lisp_face_attribute)
+ (update_face_from_frame_parameter): Set the face_change flag only
+ for the frame whose faces are affected.
+ * src/xdisp.c (init_iterator): If a frame's face_change flag is
+ set, free faces only on that frame.
+ (redisplay_internal): Disable "display optimization 1" if the
+ frame's face_change flag is set.
+ (redisplay_window): Don't allow skipping a window's redisplay if
+ its frame's face_change flag is set.
+ * src/frame.c (x_set_screen_gamma): Instead of calling
+ Fclear_face_cache, call clear_face_cache and set
+ windows_or_buffers_changed to a non-zero value. This avoids
+ setting the global face_change flag that triggers face realization
+ on all frames and thorough redisplay of all of them.
+
+ * lisp/term/tty-colors.el (tty-register-default-colors): Don't
+ clear face cache if the selected frame is a GUI frame.
+
+2015-09-26 Tassilo Horn <address@hidden>
+
+ Remove font-latex specific check
+
+ * lisp/textmodes/tex-mode.el (tex--prettify-symbols-compose-p): Use
+ syntax-ppss data to identify verbatim contents.
+
+2015-09-25 Tassilo Horn <address@hidden>
+
+ Fix false negatives in tex--prettify-symbols-compose-p.
+
+ * lisp/textmodes/tex-mode.el (tex--prettify-symbols-compose-p): Fix some
+ false negatives.
+
+2015-09-25 Eli Zaretskii <address@hidden>
+
+ Reorder Windows version in Emacs manifests
+
+ * nt/emacs-x64.manifest:
+ * nt/emacs-x86.manifest: Reorder Windows version from lowest to
+ highest.
+
+2015-09-25 Eli Zaretskii <address@hidden>
+
+ Update Emacs manifest files for Windows 10
+
+ * nt/emacs-x86.manifest:
+ * nt/emacs-x64.manifest: Declare compatibility with Windows 10.
+
+2015-09-25 Eli Zaretskii <address@hidden>
+
+ Avoid non-ASCII decoding errors in C src files
+
+ * src/nsterm.m:
+ * src/lisp.h:
+ * src/editfns.c:
+ * src/doprnt.c: Add 'coding' cookies -- these files include
+ Unicode characters and should be decoded as UTF-8.
+
+2015-09-25 Alan Mackenzie <address@hidden>
+
+ Resurrect edebug-set-initial-mode, repurposing it to set the global
mode.
+
+ lisp/emacs-lisp/edebug.el (edebug-initial-mode-alist): Uncomment, and
+ amend to match current modes and functions.
+ (edebug-set-initial-mode): Uncomment and change from setting a defun's
+ `edebug-initial-mode''s property to setting the variable
+ `edebug-initial-mode'.
+ (top level): Create new binding C-x C-a C-m for
+ `edebug-set-initial-mode'.
+
+ doc/lispref/edebug.texi (Edebug Execution Modes): document
+ `edebug-set-initial-mode' and its new key binding.
+ (Edebug Options): Mention the new command in the pertinent place.
+
+ etc/NEWS: Write entry for this change.
+
+2015-09-25 Eli Zaretskii <address@hidden>
+
+ Avoid non-ASCII decoding errors in Texinfo files
+
+ * doc/misc/tramp.texi:
+ * doc/lispref/strings.texi:
+ * doc/lispref/positions.texi:
+ * doc/lispref/help.texi:
+ * doc/lispref/functions.texi:
+ * doc/lispintro/emacs-lisp-intro.texi:
+ * doc/emacs/text.texi:
+ * doc/emacs/modes.texi:
+ * doc/emacs/mini.texi:
+ * doc/emacs/display.texi:
+ * doc/emacs/custom.texi:
+ * doc/emacs/basic.texi: Add 'coding' cookies -- these files use
+ Unicode characters and should be decoded as UTF-8.
+ * doc/lispref/frames.texi (Size Parameters): Don't use a non-ASCII
+ apostrophe unnecessarily.
+
+2015-09-25 Paul Eggert <address@hidden>
+
+ Merge from gnulib
+
+ This incorporates:
+ 2015-09-25 c-ctype: rewrite to use inline functions
+ 2015-09-24 maint: add coding cookies to non-ASCII sources
+ 2015-09-24 gitlog-to-changelog: trim only trailing whitespaces
+ * build-aux/gitlog-to-changelog, doc/misc/texinfo.tex:
+ * lib/acl-internal.c, lib/acl-internal.h, lib/c-ctype.c:
+ * lib/c-ctype.h, lib/get-permissions.c, lib/qcopy-acl.c:
+ * lib/set-permissions.c:
+ Copy from gnulib.
+
+2015-09-24 Paul Eggert <address@hidden>
+
+ Update publicsuffix.txt from upstream
+
+ * etc/publicsuffix.txt: Update from
+ https://publicsuffix.org/list/effective_tld_names.dat
+ dated 2015-09-24 17:29:21 UTC.
+
+2015-09-24 Eli Zaretskii <address@hidden>
+
+ Prevent timers from messing up TTY menus
+
+ * src/term.c (tty_menu_activate): Inhibit redisplay for as long as
+ the TTY menu is open. (Bug#21530)
+
+2015-09-24 Paul Eggert <address@hidden>
+
+ No need to mention K&R C in c-mode intro
+
+2015-09-24 Stefan Monnier <address@hidden>
+
+ Fix recent bootstrap problems
+
+ * src/syntax.c (parse_sexp_propertize): Fix last fix.
+ * lisp/nxml/nxml-mode.el (nxml-comment-quote-nested): Fix paren typo.
+ * lisp/emacs-lisp/lisp-mode.el: Require cl-lib for cl-progv.
+
+2015-09-24 Michael Albinus <address@hidden>
+
+ * src/gfilenotify.c (Fgfile_add_watch): Decrease polling rate.
+
+2015-09-23 Ivan Andrus <address@hidden>
+
+ Properly quote nested xml comments (Bug#6267) (Bug#20001)
+
+ * nxml-mode.el (nxml-comment-quote-nested): New function
+ (nxml-mode): Set comment-quote-nested-function
+
+2015-09-23 Ivan Andrus <address@hidden>
+
+ Allow major-modes full control over quoting nested comments
+
+ * newcomment.el (comment-quote-nested-function): New variable.
+ (comment-quote-nested-default): New function.
+ (comment-quote-nested): Use `comment-quote-nested-function'.
+
+2015-09-23 Paul Eggert <address@hidden>
+
+ Prefer CALLN in a few more places
+
+ * src/macfont.m (macfont_set_family_cache):
+ * src/nsterm.m (append2):
+ * src/xterm.c (x_cr_export_frames):
+ Prefer CALLN to allocating the arg arrays by hand.
+
+2015-09-23 Michael Albinus <address@hidden>
+
+ Adapt file-notify-test02-events test case
+
+ * test/automated/file-notify-tests.el (file-notify-test02-events):
+ Create a new watch for every test.
+
+2015-09-23 Michael Albinus <address@hidden>
+
+ Continue gfilenotify.c implementation of missing parts
+
+ * lisp/filenotify.el (file-notify-add-watch): Append `flags' to
+ `gfile-add-watch' call.
+ (file-notify-rm-watch): Modify `file-notify-descriptors' only
+ after calling the low level functions.
+
+ * src/gfilenotify.c (dir_monitor_callback): Check, whether
+ event_type is expected.
+ (Fgfile_add_watch): Allow also `change'and `attribute-change' for FLAGS.
+ (Fgfile_rm_watch): Fix typo.
+ (syms_of_gfilenotify): Declare Qchange and Qattribute_change.
+
+2015-09-23 Stefan Monnier <address@hidden>
+
+ * src/syntax.c: Handle spurious e_property_truncated flag
+
+ * src/syntax.c (parse_sexp_propertize): Handle spurious
+ e_property_truncated flag.
+ (update_syntax_table_forward): Remove invalid assertion.
+
+2015-09-23 Eli Zaretskii <address@hidden>
+
+ Support ':relative-width' space display spec on text-mode terminals
+
+ * src/xdisp.c (produce_stretch_glyph): Support ':relative-width'
+ space display spec on text-mode terminals, by calling
+ PRODUCE_GLYPHS instead of x_produce_glyphs. Remove the
HAVE_WINDOW_SYSTEM
+ guards from the supporting code, as well as the test for a GUI frame.
+
+2015-09-23 Oleh Krehel <address@hidden>
+
+ Move let-when-compile to lisp-mode.el
+
+ This fixes the bootstrapping problem of `let-when-compile' using
+ `cl-progv' while being in subr.el (i.e. before cl stuff was loaded).
+
+2015-09-23 Thomas Fitzsimmons <address@hidden>
+
+ Do not include authorization header in an HTTP redirect
+
+ * lisp/url/url-http.el (url-http-parse-headers): Do not
+ automatically include Authorization header in redirect.
+ (Bug#21350)
+
+2015-09-22 Eli Zaretskii <address@hidden>
+
+ Clarify documentation of ':relative-width'
+
+ * doc/lispref/display.texi (Specified Space): Document that
+ ':relative-width' is only supported on GUI frames.
+
+2015-09-22 Eli Zaretskii <address@hidden>
+
+ Fix 'current-column' in presence of :relative-width
+
+ * src/indent.c (check_display_width): Support ':relative-width'
+ in a display spec that specifies a stretch glyph. (Bug#21533)
+
+2015-09-22 Ken Manheimer <address@hidden>
+
+ Reformat the pdbtrack remote-file fix ChangeLog.2 entry
+
+ ... to conform better to CONTRIBUTE guidelines.
+
+2015-09-22 Stefan Monnier <address@hidden>
+
+ * prolog.el: Fix indentation of empty line
+
+ * lisp/emacs-lisp/smie.el (smie-rules-function): Document new
+ `empty-line-token' element.
+ (smie-indent-empty-line): New function.
+ (smie-indent-functions): Add it.
+
+ * lisp/progmodes/prolog.el (prolog-smie-rules): Fix :list-intro behavior
+ and use the new `empty-line-token' element (bug#21526).
+ (prolog-mode-variables): Fix comment-start-skip setting to match
+ comment-start.
+
+ * test/indent/prolog.prolog: Add nested indentation tests.
+
+ * lisp/newcomment.el (comment-normalize-vars): Fix default value of
+ comment-start-skip not to misuse submatch 1.
+
+2015-09-22 Alan Mackenzie <address@hidden>
+
+ Make description of `edebug-initial-mode' user friendly.
+
+ Fixes debbugs#21365.
+
+ dec/lispref/edebug.texi (Edebug Execution Modes): Change the
+ desscription
+ of `edebug-initial-mode' from that of its implementation to that of its
+ visual effect and use. Move the paragraph higher up.
+
+2015-09-22 Eli Zaretskii <address@hidden>
+
+ lisp/progmodes/gud.el (gud-format-command): Fix last commit
+
+ * lisp/progmodes/gud.el (gud-format-command): Don't use Tramp internal
+ functions 'tramp-file-name-localname' and 'tramp-dissect-file-name'.
+
+2015-09-22 Tassilo Horn <address@hidden>
+
+ Improve last commit to process.c
+
+2015-09-22 Michael Albinus <address@hidden>
+
+ Implement gfile-valid-p
+
+ * lisp/filenotify.el (file-notify-callback): Fix typo.
+ (gfile-valid-p): Remove defalias.
+
+ * src/gfilenotify.c (dir_monitor_callback): Cancel the monitor if
+ the file or directory to be watched is deleted.
+ (Fgfile_add_watch): Make watch_object a triple.
+ (Fgfile_rm_watch): Check, whether watch is cancelled already.
+ (Fgfile_valid_p): New defun.
+ (syms_of_gfilenotify): Declare Sgfile_valid_p.
+
+2015-09-22 Tassilo Horn <address@hidden>
+
+ Remove callback-handled channels from Available set
+
+ * src/process.c (wait_reading_process_output): Remove channel from
+ Available set if it is handled by a callback, e.g., dbus or
+ inotify (bug#21313).
+
+2015-09-21 Mark Oteiza <address@hidden>
+
+ Use lunate epsilon for TeX \epsilon
+
+ * lisp/textmodes/tex-mode.el (tex--prettify-symbols-alist): Add
+ \varepsilon using GREEK SMALL LETTER EPSILON, and change \epsilon to use
+ GREEK LUNATE EPSILON SYMBOL
+
+2015-09-21 Stefan Monnier <address@hidden>
+
+ * lisp/progmodes/prolog.el: Fix nested electric if-then-else
+
+ * lisp/progmodes/prolog.el (prolog-find-unmatched-paren): Use innermost
+ rather than outermost paren (bug#21526).
+
+2015-09-21 Paul Eggert <address@hidden>
+
+ Improve git diff hunk headers for .el, .texi
+
+ Problem reported by Alan Mackenzie in:
+ http://lists.gnu.org/archive/html/emacs-devel/2015-09/msg00826.html
+ * .gitattributes (*.el, *.texi): New patterns.
+ * autogen.sh: Configure diff.elisp.xfuncname and
+ diff.texinfo.xfuncname if using Git.
+
+2015-09-21 Eli Zaretskii <address@hidden>
+
+ Don't rely on defaults in decoding UTF-8 encoded Lisp files
+
+ * lisp/replace.el:
+ * lisp/textmodes/rst.el:
+ * lisp/whitespace.el: Add an explicit UTF-8 encoding tag.
+
+2015-09-21 Paul Eggert <address@hidden>
+
+ Clarify or replace a few \u escapes.
+
+ * doc/lispref/nonascii.texi (Character Properties)
+ More-detailed commentary for \u escapes.
+ * lisp/progmodes/python.el (python--prettify-symbols-alist):
+ * lisp/replace.el (query-replace-from-to-separator):
+ * lisp/textmodes/rst.el (rst-bullets, rst-re-alist-def)
+ (rst-mode-syntax-table):
+ * lisp/whitespace.el (whitespace-display-mappings):
+ Prefer actual character to \u escape when this makes the code
+ easier to follow in the usual case where Unicode chars can be
+ displayed.
+
+2015-09-21 Paul Eggert <address@hidden>
+
+ Pacify GCC -Wmaybe-uninitialized in xdisp.c
+
+ * src/xdisp.c (face_before_or_after_it_pos): Use do-while rather
+ than while loop to avoid GCC -Wmaybe-uninitialized diagnostic with
+ charpos. The loop should always execute at least once anyway.
+
+2015-09-21 Tassilo Horn <address@hidden>
+
+ Signal error on invalid regexp
+
+ * lisp/textmodes/reftex-cite.el (reftex-extract-bib-entries): Signal an
+ error when the user tries searching with a regexp matching the empty
+ string.
+
+2015-09-21 Eli Zaretskii <address@hidden>
+
+ Another fix of file-notify-tests for w32notify
+
+ * test/automated/file-notify-tests.el (file-notify-test02-events):
+ Further adaptation for w32notify: reduce the number of expected
+ 'changed' events. (Bug#21435)
+
+2015-09-21 Michael Albinus <address@hidden>
+
+ Adapt tests and manual for w32notify
+
+ * doc/lispref/os.texi (File Notifications): w32notify does not
+ send `attribute-changed' events.
+
+ * test/automated/file-notify-tests.el (file-notify--test-with-events):
+ Simplify parameters. Adapt all callees.
+ (file-notify-test02-events): w32notify does not send
+ `attribute-changed' events.
+ (file-notify-test04-file-validity, file-notify-test05-dir-validity):
+ Do not skip in case of w32notify. Simply ignore this part of the test.
+
+2015-09-21 Dima Kogan <address@hidden>
+
+ Fix setting breakpoints when remote-debugging
+
+ * lisp/progmodes/gud.el (gud-format-command): Send localized file
+ names to the debugger running on the remote. (Bug#13304)
+
+2015-09-21 Nicolas Petton <address@hidden>
+
+ Better docstring and parameter name for seq-find
+
+ * lisp/emacs-lisp/seq.el (seq-find): Improve the docstring and rename
+ the parameter `sentinel' to `default'.
+
+ * doc/lispref/sequences.texi (Sequence Functions): Update the
+ documentation for `seq-find' accordingly.
+
+2015-09-21 Eli Zaretskii <address@hidden>
+
+ Avoid infinite recursion while displaying box face
+
+ * src/xdisp.c (face_before_or_after_it_pos): Fix calculation of
+ the previous string/buffer character position under bidi
+ iteration. (Bug#21428)
+
+2015-09-21 Anders Lindgren <address@hidden>
+
+ Keep upper edge unchanged when changing size of NS frame (Bug#21415)
+
+ * src/nsterm.m (x_set_window_size): Keep upper frame edge unchanged
+ (Bug#21415).
+
+2015-09-20 Stefan Monnier <address@hidden>
+
+ Subject: * lisp/progmodes/prolog.el: Improve handling of if/then/else
+
+ (prolog-smie-rules): Accomodate standard if/then/else special
indentation.
+ (prolog-mode): Add . to electric-indent-chars.
+ (prolog-electric--if-then-else): Re-indent the line before adding space
+ after the new char (bug#21526).
+
+2015-09-20 Mark Oteiza <address@hidden>
+
+ Add prettify symbols to python-mode
+
+ lisp/progmodes/python.el (python-prettify-symbols-alist): New variable
+ lisp/progmodes/python.el (python-mode): Use it
+
+2015-09-20 Stefan Monnier <address@hidden>
+
+ * lisp/emacs-lisp/syntax.el (syntax-begin-function): Make obsolete
+
+2015-09-20 Jostein Kjønigsen <address@hidden> (tiny change)
+
+ (compilation-error-regexp-alist-alist): Tone down guile-file
+
+ * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Make guile-file a bit less enthusiastic (bug#21496).
+
+2015-09-20 Drew Csillag <address@hidden>
+
+ * m4-mode.el (m4-font-lock-keywords): Fix m4_* highlighting
+
+ * lisp/progmodes/m4-mode.el (m4-font-lock-keywords): Fix recognition
+ of commands when they have a "m4_" prefix.
+
+2015-09-20 Paul Eggert <address@hidden>
+
+ '.' -> `.' in doc string
+
+ * lisp/emacs-lisp/timer.el (run-at-time): In doc string, quote
+ individual chars with grave quotes instead of straight quotes, as
+ this works better when they are translated to curved quotes.
+
+2015-09-20 Michael Albinus <address@hidden>
+
+ Improve file notifications, especially for Tramp
+
+ * doc/lispref/files.texi (Magic File Names):
+ Mention `file-notify-valid-p'.
+
+ * doc/lispref/os.texi (File Notifications):
+ Describe `file-notify-valid-p'.
+
+ * etc/NEWS: Add `file-notify-valid-p'.
+
+ * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-notify-add-watch):
+ Improve implementation.
+ (tramp-gvfs-monitor-file-process-filter): Rename from
+ `tramp-gvfs-file-gvfs-monitor-file-process-filter'. Delete
+ process if appropriate.
+
+ * lisp/net/tramp-sh.el (tramp-sh-handle-file-notify-add-watch):
+ Improve implementation.
+ (tramp-sh-gvfs-monitor-dir-process-filter): Rename from
+ `tramp-sh-file-gvfs-monitor-dir-process-filter'. Delete process
+ if appropriate.
+ (tramp-sh-inotifywait-process-filter): Rename from
+ `tramp-sh-file-inotifywait-process-filter'. Delete process if
+ appropriate.
+
+ * lisp/net/tramp.el (tramp-handle-file-notify-rm-watch):
+ Use `delete-process'
+ (tramp-handle-file-notify-valid-p): Check also, that file or
+ directory to be watched still exists.
+
+ * test/automated/file-notify-tests.el (file-notify--test-timeout):
+ New defun. Use it at all places a timeout is needed.
+ (file-notify--test-cleanup): Delete directories recursively.
+ Cleanup also Tramp connections.
+ (file-notify-test02-events): Add tests for `attribute-change'.
+ (file-notify-test04-file-validity, file-notify-test05-dir-validity):
+ Add tests for `file-notify-rm-watch'.
+
+2015-09-20 Paul Eggert <address@hidden>
+
+ Use %s to format strings instead of splicing them
+
+ If FOO might contain quotes that are part of a file or variable
+ name, the quotes should not be translated when showing FOO’s name
+ in a diagnostic. So, for example, (message (concat (FOO ": bar")))
+ is not quite right, as it would translate FOO’s quotes.
+ Change it to (message "%s: bar" FOO) instead.
+ * lisp/allout.el (allout-process-exposed):
+ * lisp/calc/calc-ext.el (calc-do-prefix-help):
+ * lisp/calc/calc-store.el (calc-store-into):
+ * lisp/calendar/todo-mode.el (todo-category-completions):
+ * lisp/cedet/semantic/complete.el (semantic-completion-message):
+ * lisp/org/ob-latex.el (convert-pdf):
+ * lisp/org/org-crypt.el (org-crypt-check-auto-save):
+ * lisp/org/ox-latex.el (org-latex-compile):
+ * lisp/org/ox-man.el (org-man-compile):
+ * lisp/org/ox-odt.el (org-odt--export-wrap):
+ * lisp/org/ox-texinfo.el (org-texinfo-compile):
+ * lisp/progmodes/ruby-mode.el (ruby-in-ppss-context-p):
+ * lisp/progmodes/verilog-mode.el (verilog-batch-execute-func)
+ (verilog-signals-combine-bus, verilog-read-defines)
+ (verilog-getopt-file, verilog-expand-dirnames)
+ (verilog-modi-lookup, verilog-modi-modport-lookup-one):
+ * lisp/term/ns-win.el (ns-spi-service-call):
+ Use %s to avoid translating quotes of file names etc. in diagnostics.
+
+2015-09-20 Stefan Monnier <address@hidden>
+
+ * lisp/progmodes/js.el (js--syntax-begin-function): Remove.
+
+ (js-mode): Don't set syntax-begin-function.
+
+2015-09-20 Stefan Monnier <address@hidden>
+
+ Don't assume syntax-begin-function is a symbol.
+
+ * lisp/font-lock.el (font-lock-compile-keywords): Don't assume
+ syntax-begin-function is a symbol.
+
2015-09-20 Eli Zaretskii <address@hidden>
Improve documentation of 'run-at-time'
@@ -13449,7 +14528,7 @@
This file records repository revisions from
commit 9d56a21e6a696ad19ac65c4b405aeca44785884a (exclusive) to
-commit 00a65e3238a888fc92b0c2aab8cb5bda8bd99c29 (inclusive).
+commit 2021680e9dcd277a4ebbdb613d535e6edc86f384 (inclusive).
See ChangeLog.1 for earlier changes.
;; Local Variables:
diff --git a/admin/MAINTAINERS b/admin/MAINTAINERS
index da56466..8b7647e 100644
--- a/admin/MAINTAINERS
+++ b/admin/MAINTAINERS
@@ -108,6 +108,43 @@ Nicolas Petton
lisp/emacs-lisp/map.el
lisp/emacs-lisp/seq.el
+The GNU AUCTeX maintainers (address@hidden)
+ RefTeX
+ lisp/textmodes/reftex-auc.el
+ lisp/textmodes/reftex-cite.el
+ lisp/textmodes/reftex-dcr.el
+ lisp/textmodes/reftex-global.el
+ lisp/textmodes/reftex-index.el
+ lisp/textmodes/reftex-parse.el
+ lisp/textmodes/reftex-ref.el
+ lisp/textmodes/reftex-sel.el
+ lisp/textmodes/reftex-toc.el
+ lisp/textmodes/reftex-vars.el
+ lisp/textmodes/reftex.el
+
+Dmitry Gutov
+ lisp/progmodes/ruby-mode.el
+ test/automated/ruby-mode-tests.el
+ test/indent/ruby.rb
+ lisp/progmodes/xref.el
+ lisp/progmodes/project.el
+
+Ulf Jasper
+ Newsticker
+ doc/misc/newsticker.texi
+ etc/images/newsticker/*
+ lisp/net/newst-backend.el
+ lisp/net/newst-plainview.el
+ lisp/net/newst-reader.el
+ lisp/net/newst-ticker.el
+ lisp/net/newst-treeview.el
+ lisp/net/newsticker.el
+ test/automated/newsticker-tests.el
+
+ Icalendar
+ lisp/calendar/icalendar.el
+ test/automated/icalendar-tests.el
+
==============================================================================
2.
==============================================================================
@@ -197,6 +234,7 @@ Paul Eggert
Michael Albinus
src/inotify.c
lisp/autorevert.el
+ lisp/eshell/em-tramp.el
lisp/notifications.el
test/automated/auto-revert-tests.el
test/automated/inotify-test.el
@@ -209,6 +247,17 @@ Nicolas Petton
Xue Fuqiao
doc/lispref/*
+Tassilo Horn
+ lisp/doc-view.el
+
+Dmitry Gutov
+ lisp/whitespace.el
+ lisp/vc/*
+
+Vibhav Pant
+ lisp/net/browse-url.el
+ lisp/erc/*
+
==============================================================================
3.
==============================================================================
@@ -276,7 +325,6 @@ lisp/dired.el
lisp/dirtrack.el
lisp/disp-table.el
lisp/dnd.el
-lisp/doc-view.el
lisp/dom.el
lisp/double.el
lisp/dynamic-setting.el
@@ -488,7 +536,50 @@ lisp/mouse.el
lisp/mpc.el
lisp/msb.el
lisp/mwheel.el
-lisp/net/*
+lisp/net/ange-ftp.el
+lisp/net/dig.el
+lisp/net/dns.el
+lisp/net/eudcb-bbdb.el
+lisp/net/eudcb-ldap.el
+lisp/net/eudcb-mab.el
+lisp/net/eudc-bob.el
+lisp/net/eudcb-ph.el
+lisp/net/eudc.el
+lisp/net/eudc-export.el
+lisp/net/eudc-hotlist.el
+lisp/net/eudc-vars.el
+lisp/net/eww.el
+lisp/net/gnutls.el
+lisp/net/goto-addr.el
+lisp/net/hmac-def.el
+lisp/net/hmac-md5.el
+lisp/net/imap.el
+lisp/net/ldap.el
+lisp/net/mairix.el
+lisp/net/netrc.el
+lisp/net/net-utils.el
+lisp/net/network-stream.el
+lisp/net/nsm.el
+lisp/net/ntlm.el
+lisp/net/pinentry.el
+lisp/net/quickurl.el
+lisp/net/rcirc.el
+lisp/net/rfc2104.el
+lisp/net/rlogin.el
+lisp/net/sasl-cram.el
+lisp/net/sasl-digest.el
+lisp/net/sasl.el
+lisp/net/sasl-ntlm.el
+lisp/net/sasl-scram-rfc.el
+lisp/net/shr-color.el
+lisp/net/shr.el
+lisp/net/snmp-mode.el
+lisp/net/soap-client.el
+lisp/net/soap-inspect.el
+lisp/net/socks.el
+lisp/net/telnet.el
+lisp/net/tls.el
+lisp/net/webjump.el
lisp/newcomment.el
lisp/novice.el
lisp/nxml/*
@@ -574,11 +665,9 @@ lisp/progmodes/octave.el
lisp/progmodes/opascal.el
lisp/progmodes/pascal.el
lisp/progmodes/prog-mode.el
-lisp/progmodes/project.el
lisp/progmodes/prolog.el
lisp/progmodes/ps-mode.el
lisp/progmodes/python.el
-lisp/progmodes/ruby-mode.el
lisp/progmodes/scheme.el
lisp/progmodes/sh-script.el
lisp/progmodes/simula.el
@@ -588,7 +677,6 @@ lisp/progmodes/vera-mode.el
lisp/progmodes/verilog-mode.el
lisp/progmodes/vhdl-mode.el
lisp/progmodes/which-func.el
-lisp/progmodes/xref.el
lisp/progmodes/xscheme.el
lisp/ps-bdf.el
lisp/ps-def.el
@@ -662,17 +750,6 @@ lisp/textmodes/picture.el
lisp/textmodes/po.el
lisp/textmodes/refbib.el
lisp/textmodes/refer.el
-lisp/textmodes/reftex-auc.el
-lisp/textmodes/reftex-cite.el
-lisp/textmodes/reftex-dcr.el
-lisp/textmodes/reftex-global.el
-lisp/textmodes/reftex-index.el
-lisp/textmodes/reftex-parse.el
-lisp/textmodes/reftex-ref.el
-lisp/textmodes/reftex-sel.el
-lisp/textmodes/reftex-toc.el
-lisp/textmodes/reftex-vars.el
-lisp/textmodes/reftex.el
lisp/textmodes/remember.el
lisp/textmodes/rst.el
lisp/textmodes/sgml-mode.el
@@ -698,14 +775,12 @@ lisp/type-break.el
lisp/uniquify.el
lisp/url/*
lisp/userlock.el
-lisp/vc/*
lisp/vcursor.el
lisp/version.el
lisp/view.el
lisp/vt-control.el
lisp/vt100-led.el
lisp/wdired.el
-lisp/whitespace.el
lisp/wid-browse.el
lisp/wid-edit.el
lisp/widget.el
@@ -735,4 +810,5 @@ test/rmailmm.el
;;; Local Variables:
;;; coding: utf-8
+;;; indent-tabs-mode: t
;;; End:
diff --git a/admin/authors.el b/admin/authors.el
index 092da68..3d7850a 100644
--- a/admin/authors.el
+++ b/admin/authors.el
@@ -1,4 +1,4 @@
-;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding:
utf-8 -*-
+;;; authors.el --- utility for maintaining Emacs's AUTHORS file
;; Copyright (C) 2000-2015 Free Software Foundation, Inc.
diff --git a/autogen.sh b/autogen.sh
index 926915c..563a024 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -218,7 +218,7 @@ echo timestamp > src/stamp-h.in || exit
## Configure Git, if using Git.
-if test -d .git; then
+if test -d .git && (git status -s) >/dev/null 2>&1; then
# Configure 'git diff' hunk header format.
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi
index a171db7..95b721f 100644
--- a/doc/emacs/frames.texi
+++ b/doc/emacs/frames.texi
@@ -329,6 +329,7 @@ instead of running the @code{mouse-save-then-kill} command,
rebind
@kbd{Mouse-3} by adding the following line to your init file
(@pxref{Init Rebinding}):
address@hidden FIXME: `mouse-popup-menubar-stuff' is obsolete since 23.1.
@smallexample
(global-set-key [mouse-3] 'mouse-popup-menubar-stuff)
@end smallexample
diff --git a/doc/emacs/text.texi b/doc/emacs/text.texi
index 7f3afd7..bab660e 100644
--- a/doc/emacs/text.texi
+++ b/doc/emacs/text.texi
@@ -417,8 +417,8 @@ beginning of a line.
using straight apostrophes @t{'like this'} or double-quotes @t{"like
this"}. Another common way is the curved quote convention, which uses
left and right single or double quotation marks @t{‘like this’} or
address@hidden this”}. Typewriter quotes are simple and portable; curved
-quotes are less ambiguous and typically look nicer.
address@hidden this”}. In text files, typewriter quotes are simple and
+portable; curved quotes are less ambiguous and typically look nicer.
Electric Quote mode makes it easier to type curved quotes. As you
type characters it optionally converts @t{`} to @t{‘}, @t{'} to @t{’},
diff --git a/doc/lispintro/emacs-lisp-intro.texi
b/doc/lispintro/emacs-lisp-intro.texi
index 22e50e9..245113b 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -3454,6 +3454,9 @@ a function. (@xref{Interactive Codes, , Code Characters
for
Consider the function @code{zap-to-char}. Its interactive expression
is
address@hidden FIXME: the interactive expression of zap-to-char has been changed
address@hidden (in 2012-04-10).
+
@smallexample
(interactive "p\ncZap to char: ")
@end smallexample
diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi
index fca16da..412903f 100644
--- a/doc/lispref/control.texi
+++ b/doc/lispref/control.texi
@@ -1,4 +1,4 @@
address@hidden -*-texinfo-*-
address@hidden -*- mode: texinfo; coding: utf-8 -*-
@c This is part of the GNU Emacs Lisp Reference Manual.
@c Copyright (C) 1990-1995, 1998-1999, 2001-2015 Free Software
@c Foundation, Inc.
@@ -1002,8 +1002,8 @@ These examples show typical uses of @code{error}:
@end group
@group
-(error "You have committed %d errors" 10)
- @error{} You have committed 10 errors
+(error "Invalid name `%s'" "A%%B")
+ @error{} Invalid name ‘A%%B’
@end group
@end example
@@ -1011,10 +1011,16 @@ These examples show typical uses of @code{error}:
error symbol @code{error}, and a list containing the string returned by
@code{format-message}.
+In a format string containing single quotes, curved quotes @t{‘like
+this’} and grave quotes @t{`like this'} work better than straight
+quotes @t{'like this'}, as @code{error} typically formats every
+straight quote as a curved closing quote.
+
@strong{Warning:} If you want to use your own string as an error message
verbatim, don't just write @code{(error @var{string})}. If @var{string}
-contains @samp{%}, it will be interpreted as a format specifier, with
-undesirable results. Instead, use @code{(error "%s" @var{string})}.
address@hidden contains @samp{%}, @samp{`}, or @samp{'} it may be
+reformatted, with undesirable results. Instead, use @code{(error "%s"
address@hidden)}.
@end defun
@defun signal error-symbol data
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 452462a..ad248b1 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -1,4 +1,4 @@
address@hidden -*-texinfo-*-
address@hidden -*- mode: texinfo; coding: utf-8 -*-
@c This is part of the GNU Emacs Lisp Reference Manual.
@c Copyright (C) 1990-1995, 1998-2015 Free Software Foundation, Inc.
@c See the file elisp.texi for copying conditions.
@@ -254,6 +254,11 @@ properties, it is displayed with the specified faces
(@pxref{Faces}).
The string is also added to the @file{*Messages*} buffer, but without
text properties (@pxref{Logging Messages}).
+In a format string containing single quotes, curved quotes @t{‘like
+this’} and grave quotes @t{`like this'} work better than straight
+quotes @t{'like this'}, as @code{message} typically formats every
+straight quote as a curved closing quote.
+
In batch mode, the message is printed to the standard error stream,
followed by a newline.
@@ -268,21 +273,26 @@ onto the screen immediately.
@example
@group
-(message "Minibuffer depth is %d."
- (minibuffer-depth))
- @print{} Minibuffer depth is 0.
address@hidden "Minibuffer depth is 0."
+(message "Reverting `%s'..." (buffer-name))
+ @print{} Reverting ‘subr.el’...
address@hidden "Reverting ‘subr.el’..."
@end group
@group
---------- Echo Area ----------
-Minibuffer depth is 0.
+Reverting ‘subr.el’...
---------- Echo Area ----------
@end group
@end example
To automatically display a message in the echo area or in a pop-buffer,
depending on its size, use @code{display-message-or-buffer} (see below).
+
address@hidden:} If you want to use your own string as a message
+verbatim, don't just write @code{(message @var{string})}. If
address@hidden contains @samp{%}, @samp{`}, or @samp{'} it may be
+reformatted, with undesirable results. Instead, use @code{(message
+"%s" @var{string})}.
@end defun
@defvar inhibit-message
diff --git a/doc/lispref/objects.texi b/doc/lispref/objects.texi
index 0a19274..c650572 100644
--- a/doc/lispref/objects.texi
+++ b/doc/lispref/objects.texi
@@ -1279,8 +1279,8 @@ list whose first element is the symbol @code{macro} and
whose @sc{cdr}
is a Lisp function object, including the @code{lambda} symbol.
Lisp macro objects are usually defined with the built-in
address@hidden function, but any list that begins with @code{macro} is
-a macro as far as Emacs is concerned. @xref{Macros}, for an explanation
address@hidden macro, but any list that begins with @code{macro} is a
+macro as far as Emacs is concerned. @xref{Macros}, for an explanation
of how to write a macro.
@strong{Warning}: Lisp macros and keyboard macros (@pxref{Keyboard
diff --git a/doc/lispref/sequences.texi b/doc/lispref/sequences.texi
index b85d5d4..0a6f4c6 100644
--- a/doc/lispref/sequences.texi
+++ b/doc/lispref/sequences.texi
@@ -72,6 +72,7 @@ string, bool-vector, or char-table, @code{nil} otherwise.
@cindex vector length
@cindex sequence length
@cindex char-table length
address@hidden of length}
This function returns the number of elements in @var{sequence}. If
@var{sequence} is a dotted list, a @code{wrong-type-argument} error is
signaled. Circular lists may cause an infinite loop. For a
@@ -113,6 +114,7 @@ since @code{length} only counts the number of characters,
but does not
account for the display width of each character.
@defun elt sequence index
address@hidden of elt}
@cindex elements of sequences
This function returns the element of @var{sequence} indexed by
@var{index}. Legitimate values of @var{index} are integers ranging
@@ -431,6 +433,57 @@ you pass as an argument. Unless otherwise stated, the
result is a
sequence of the same type as the input. For those functions that take
a predicate, this should be a function of one argument.
+ The @file{seq.el} library can be extended to work with additional
+types of sequential data-structures. For that purpose, all functions
+are defined using @code{cl-defgeneric}.
+
address@hidden seq-elt sequence index
+ This function the element at the index @var{index} in
address@hidden @var{index} can be an integer from zero up to the
+length of @var{sequence} minus one. For out-of-range values on
+built-in sequence types, @code{seq-elt} behaves like @code{elt}.
address@hidden of elt}.
+
address@hidden
address@hidden
+(seq-elt [1 2 3 4] 2)
address@hidden 3
address@hidden group
+
+ @code{seq-elt} returns settable places using @code{setf}.
+
address@hidden
+(setq vec [1 2 3 4])
+(setf (seq-elt vec 2) 5)
+vec
address@hidden [1 2 5 4]
address@hidden group
address@hidden example
address@hidden defun
+
address@hidden seq-length sequence
+ This function returns the number of elements in @var{sequence}. For
+built-in sequence types, @code{seq-length} behaves like @code{length}.
address@hidden of length}.
address@hidden defun
+
address@hidden seq-p sequence
+ This function returns address@hidden if @var{sequence} is a sequence
+(a list or array), or any additional type of sequence defined via
address@hidden generic functions.
+
address@hidden
address@hidden
+(seq-p [1 2])
address@hidden t
address@hidden group
address@hidden
+(seq-p 2)
address@hidden nil
address@hidden group
address@hidden example
address@hidden defun
+
@defun seq-drop sequence n
This function returns all but the first @var{n} (an integer)
elements of @var{sequence}. If @var{n} is negative or zero,
@@ -497,6 +550,28 @@ starting from the first one for which @var{predicate}
returns @code{nil}.
@end example
@end defun
address@hidden seq-do function sequence
+ This function applies @var{function} to each element of
address@hidden in turn (presumably for side effects) and returns
address@hidden
address@hidden defun
+
address@hidden seq-map function sequence
+ This function returns the result of applying @var{function} to each
+element of @var{sequence}. The returned value is a list.
+
address@hidden
address@hidden
+(seq-map #'1+ '(2 4 6))
address@hidden (3 5 7)
address@hidden group
address@hidden
+(seq-map #'symbol-name [foo bar])
address@hidden ("foo" "bar")
address@hidden group
address@hidden example
address@hidden defun
+
@defun seq-filter predicate sequence
@cindex filtering sequences
This function returns a list of all the elements in @var{sequence}
@@ -558,9 +633,8 @@ calling @var{function}.
@end defun
@defun seq-some predicate sequence
- This function returns address@hidden if @var{predicate} returns
address@hidden for any element of @var{sequence}. If so, the returned
-value is the value returned by @var{predicate}.
+ This function returns the first address@hidden value returned by
+applying @var{predicate} to each element of @var{sequence} in turn.
@example
@group
@@ -575,6 +649,10 @@ value is the value returned by @var{predicate}.
(seq-some #'null ["abc" 1 nil])
@result{} t
@end group
address@hidden
+(seq-some #'1+ [2 4 6])
address@hidden 3
address@hidden group
@end example
@end defun
diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi
index 00161b2..1da2d1c 100644
--- a/doc/lispref/windows.texi
+++ b/doc/lispref/windows.texi
@@ -3174,12 +3174,14 @@ position that works well with point, and thus
@var{position} is not used.
@defun pos-visible-in-window-p &optional position window partially
This function returns address@hidden if @var{position} is within the
range of text currently visible on the screen in @var{window}. It
-returns @code{nil} if @var{position} is scrolled vertically out of view.
-Locations that are partially obscured are not considered visible unless
address@hidden is address@hidden The argument @var{position} defaults
-to the current position of point in @var{window}; @var{window}, to the
-selected window. If @var{position} is @code{t}, that means to check the
-last visible position in @var{window}.
+returns @code{nil} if @var{position} is scrolled vertically out of
+view. Locations that are partially obscured are not considered
+visible unless @var{partially} is address@hidden The argument
address@hidden defaults to the current position of point in
address@hidden; @var{window} defaults to the selected window. If
address@hidden is @code{t}, that means to check either the first
+visible position of the last screen line in @var{window}, or the
+end-of-buffer position, whichever comes first.
This function considers only vertical scrolling. If @var{position} is
out of view only because @var{window} has been scrolled horizontally,
diff --git a/etc/NEWS b/etc/NEWS
index e823905..dbe0de3 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -314,17 +314,26 @@ standards.
* Changes in Specialized Modes and Packages in Emacs 25.1
+** JSON
+---
+*** `json-pretty-print' and `json-pretty-print-buffer' now maintain
+the ordering of object keys by default.
+
** You can recompute the VC state of a file buffer with `M-x vc-refresh-state'
** Prog mode has some support for multi-mode indentation.
See `prog-indentation-context' and `prog-widen'.
-** Prettify Symbols mode supports custom composition predicates. By
+** Prettify Symbols mode
+*** Prettify Symbols mode supports custom composition predicates. By
overriding the default `prettify-symbols-compose-predicate', modes can
specify in which contexts a symbol map be composed to some unicode
character. `prettify-symbols-default-compose-p' is the default which
is suitable for most programming languages such as C or Lisp (but not
(La)TeX).
+*** Symbols can be unprettified while point is inside them.
+New variable `prettify-symbols-unprettify-at-point' configures this.
+
** New `xterm-screen-extra-capabilities' config.
** The `save-place' variable is replaced by a `save-place-mode'.
@@ -634,9 +643,13 @@ you can no longer use commas to separate regular
expressions.
** SES now supports local printer functions; see `ses-define-local-printer'.
-** In sh-mode, you can now use `sh-shell' as a file-local variable to
+** sh-script
+*** In sh-mode you can now use `sh-shell' as a file-local variable to
specify the type of shell in use (bash, csh, etc).
+*** New value `always' for sh-indent-after-continuation.
+This provides old-style ("dumb") indentation of continued lines.
+
** TLS
---
*** Fatal TLS errors are now silent by default.
diff --git a/etc/compilation.txt b/etc/compilation.txt
index f134f53..da6df8a 100644
--- a/etc/compilation.txt
+++ b/etc/compilation.txt
@@ -52,6 +52,7 @@ jikes are the ending line and ending column.
[javac] /src/DataBaseTestCase.java:27: unreported exception ...
[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot
complete normally
[jikes] foo.java:3:5:7:9: blah blah
+ [javadoc] c:\MyProject\Polynomial.java:560: error: unknown tag: math
* Bash v2
diff --git a/etc/themes/wombat-theme.el b/etc/themes/wombat-theme.el
index d49f9bf..734731a 100644
--- a/etc/themes/wombat-theme.el
+++ b/etc/themes/wombat-theme.el
@@ -1,4 +1,4 @@
-;;; wombat-theme.el --- Custom face theme for Emacs -*-coding: utf-8 -*-
+;;; wombat-theme.el --- Custom face theme for Emacs
;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
diff --git a/etc/tutorials/TUTORIAL.cn b/etc/tutorials/TUTORIAL.cn
index 5e187a4..6a558c3 100644
--- a/etc/tutorials/TUTORIAL.cn
+++ b/etc/tutorials/TUTORIAL.cn
@@ -286,10 +286,9 @@ Emacs 可以有多个“窗格”，每个窗格显示不同的文字。后面
<Return> 是一个特殊的键，因为按下这个键后，得到的可能不仅仅是一个换行
符。根据周围文本的不同，Emacs 可能会在换行符之后插入一些空白字符，这样，
-当你在新的一行开始打字时，文本会自动与前一行对齐。我们把这个按下一个键
-时不只是插入其对应字符的特性叫做“电动”（electric）。
+当你在新的一行开始打字时，文本会自动与前一行对齐。
->> 这是一个电动 <Return> 的例子。
+>> 这是一个自动缩进的例子。
在这一行的末尾输入 <Return>。
可以看到，在插入换行符之后，Emacs 插入了空格，因此光标移动到了“在”这个
diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17
index 224e2a6..a40f8f3 100644
--- a/lisp/ChangeLog.17
+++ b/lisp/ChangeLog.17
@@ -1,8 +1,3 @@
-2015-09-20 Ken Manheimer <address@hidden>
-
- * python.el (python-pdbtrack-set-tracked-buffer): Repair pdbtrack
- so it follows transition from one remote file to another.
-
2015-04-06 Alan Mackenzie <address@hidden>
Fix miscellaneous glitches in cc-mode.el. (Bug#20245)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 4df41b5..cf071e2 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -839,7 +839,7 @@ when parsing the archive."
;; long when the archive -- which has to be moved in memory -- is large.
(insert
(apply
- (function concat)
+ #'concat
(mapcar
(lambda (fil)
;; Using `concat' here copies the text also, so we can add
@@ -1050,7 +1050,7 @@ using `make-temp-file', and the generated name is
returned."
(setq default-directory arcdir)
(make-local-variable 'archive-superior-buffer)
(setq archive-superior-buffer archive-buffer)
- (add-hook 'write-file-functions 'archive-write-file-member nil t)
+ (add-hook 'write-file-functions #'archive-write-file-member nil t)
(setq archive-subfile-mode descr)
(setq archive-file-name-coding-system file-name-coding)
(if (and
@@ -1091,7 +1091,7 @@ using `make-temp-file', and the generated name is
returned."
(if read-only-p (setq archive-read-only t))
;; We will write out the archive ourselves if it is
;; part of another archive.
- (remove-hook 'write-contents-functions 'archive-write-file t))
+ (remove-hook 'write-contents-functions #'archive-write-file t))
(run-hooks 'archive-extract-hook)
(if archive-read-only
(message "Note: altering this archive is not implemented."))))
@@ -1111,7 +1111,7 @@ using `make-temp-file', and the generated name is
returned."
exit-status success)
(make-directory (directory-file-name default-directory) t)
(setq exit-status
- (apply 'call-process
+ (apply #'call-process
(car command)
nil
nil
@@ -1136,7 +1136,7 @@ using `make-temp-file', and the generated name is
returned."
(let ((stderr-file (make-temp-file "arc-stderr")))
(unwind-protect
(prog1
- (apply 'call-process
+ (apply #'call-process
(car command)
nil
(if stderr-file (list t stderr-file) t)
@@ -1157,12 +1157,12 @@ using `make-temp-file', and the generated name is
returned."
(stdout-file (make-temp-file "arc-stdout")))
(unwind-protect
(prog1
- (apply 'call-process
+ (apply #'call-process
(car command)
nil
`(:file ,stdout-file)
nil
- (append (cdr command) (list archive name dest)))
+ `(,archive ,name ,@(cdr command) ,dest))
(with-temp-buffer
(insert-file-contents stdout-file)
(goto-char (point-min))
@@ -1284,7 +1284,7 @@ using `make-temp-file', and the generated name is
returned."
(setq ename
(encode-coding-string ename archive-file-name-coding-system))
(let* ((coding-system-for-write 'no-conversion)
- (exitcode (apply 'call-process
+ (exitcode (apply #'call-process
(car command)
nil
nil
@@ -1444,7 +1444,7 @@ as a relative change like \"g+rw\" as for chmod(2)."
(revert-buffer))))))
(defun archive-*-expunge (archive files command)
- (apply 'call-process
+ (apply #'call-process
(car command)
nil
nil
@@ -1539,7 +1539,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length files)
(if (= 1 (length files)) "" "s"))
"\n"))
- (apply 'vector (nreverse files))))
+ (apply #'vector (nreverse files))))
(defun archive-arc-rename-entry (newname descr)
(if (string-match "[:\\\\/]" newname)
@@ -1708,7 +1708,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length files)
(if (= 1 (length files)) "" "s"))
"\n"))
- (apply 'vector (nreverse files))))
+ (apply #'vector (nreverse files))))
(defconst archive-lzh-alternate-display t)
@@ -1905,7 +1905,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length files)
(if (= 1 (length files)) "" "s"))
"\n"))
- (apply 'vector (nreverse files))))
+ (apply #'vector (nreverse files))))
(defun archive-zip-extract (archive name)
(cond
@@ -2022,7 +2022,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length files)
(if (= 1 (length files)) "" "s"))
"\n"))
- (apply 'vector (nreverse files))))
+ (apply #'vector (nreverse files))))
(defun archive-zoo-extract (archive name)
(archive-extract-by-stdout archive name archive-zoo-extract))
@@ -2038,37 +2038,36 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(maxsize 5)
(files ()))
(with-temp-buffer
- (call-process "unrar-free" nil t nil "--list" (or file copy))
+ (call-process "lsar" nil t nil "-l" (or file copy))
(if copy (delete-file copy))
(goto-char (point-min))
- (re-search-forward "^-+\n")
- (while (looking-at (concat " \\(.*\\)\n" ;Name.
- ;; Size ; Packed.
- " +\\([0-9]+\\) +[0-9]+"
- ;; Ratio ; Date'
- " +\\([0-9%]+\\) +\\([-0-9]+\\)"
- ;; Time ; Attr.
- " +\\([0-9:]+\\) +[^ \n]\\{6,10\\}"
- ;; CRC; Meth ; Var.
- " +[0-9A-F]+ +[^ \n]+ +[0-9.]+\n"))
+ (re-search-forward "^\\(\s+=+\s?+\\)+\n")
+ (while (looking-at (concat "^\s+[0-9.]+\s+-+\s+" ; Flags
+ "\\([0-9-]+\\)\s+" ; Size
+ "\\([0-9.%]+\\)\s+" ; Ratio
+ "\\([0-9a-zA-Z]+\\)\s+" ; Mode
+ "\\([0-9-]+\\)\s+" ; Date
+ "\\([0-9:]+\\)\s+" ; Time
+ "\\(.*\\)\n" ; Name
+ ))
(goto-char (match-end 0))
- (let ((name (match-string 1))
- (size (match-string 2)))
+ (let ((name (match-string 6))
+ (size (match-string 1)))
(if (> (length name) maxname) (setq maxname (length name)))
(if (> (length size) maxsize) (setq maxsize (length size)))
(push (vector name name nil nil
;; Size, Ratio.
- size (match-string 3)
+ size (match-string 2)
;; Date, Time.
(match-string 4) (match-string 5))
files))))
(setq files (nreverse files))
(goto-char (point-min))
(let* ((format (format " %%s %%s %%%ds %%5s %%s" maxsize))
- (sep (format format "--------" "-----" (make-string maxsize ?-)
+ (sep (format format "----------" "-----" (make-string maxsize ?-)
"-----" ""))
(column (length sep)))
- (insert (format format " Date " "Time " "Size " "Ratio" " Filename")
"\n")
+ (insert (format format " Date " "Time " "Size" "Ratio" "Filename")
"\n")
(insert sep (make-string maxname ?-) "\n")
(archive-summarize-files (mapcar (lambda (desc)
(let ((text
@@ -2083,7 +2082,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length text))))
files))
(insert sep (make-string maxname ?-) "\n")
- (apply 'vector files))))
+ (apply #'vector files))))
(defun archive-rar-extract (archive name)
;; unrar-free seems to have no way to extract to stdout or even to a file.
@@ -2091,7 +2090,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
;; The code below assumes the name is relative and may do undesirable
;; things otherwise.
(error "Can't extract files with non-relative names")
- (archive-extract-by-file archive name '("unrar-free" "--extract") "All
OK")))
+ (archive-extract-by-file archive name `("unar" "-no-directory" "-o")
"Successfully extracted")))
;;; Section: Rar self-extracting .exe archives.
@@ -2171,7 +2170,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length text))))
files))
(insert sep (make-string maxname ?-) "\n")
- (apply 'vector files))))
+ (apply #'vector files))))
(defun archive-7z-extract (archive name)
;; 7z doesn't provide a `quiet' option to suppress non-essential
@@ -2272,7 +2271,7 @@ This doesn't recover lost files, it just undoes changes
in the buffer itself."
(length text))))
files))
(insert sep (make-string maxname ?-) "\n")
- (apply 'vector files))))
+ (apply #'vector files))))
(defun archive-ar-extract (archive name)
(let ((destbuf (current-buffer))
diff --git a/lisp/battery.el b/lisp/battery.el
index b9ce5b4..b33e906 100644
--- a/lisp/battery.el
+++ b/lisp/battery.el
@@ -1,4 +1,4 @@
-;;; battery.el --- display battery status information -*- coding: utf-8 -*-
+;;; battery.el --- display battery status information
;; Copyright (C) 1997-1998, 2000-2015 Free Software Foundation, Inc.
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index 2319c48..6336c33 100644
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -1266,7 +1266,6 @@ If the current Calc language does not use placeholders,
return nil."
(provide 'calc-aent)
;; Local variables:
-;; coding: utf-8
;; generated-autoload-file: "calc-loaddefs.el"
;; End:
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 933c446..9adf66f 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -3507,8 +3507,4 @@ A key may contain additional specs for Inverse,
Hyperbolic, and Inv+Hyp.")
(provide 'calc-ext)
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; calc-ext.el ends here
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index 6b3b949..9436606 100644
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -2525,8 +2525,4 @@ order to Calc's."
(provide 'calc-lang)
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; calc-lang.el ends here
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 21209c6..2684e62 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -677,8 +677,4 @@
(provide 'calc-store)
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; calc-store.el ends here
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 4373e52..a450d8f 100644
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -2163,8 +2163,4 @@ If non-nil, return a list consisting of the note and the
cents coefficient."
(provide 'calc-units)
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; calc-units.el ends here
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index b4b0ad8..de7bfb8 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -3918,8 +3918,4 @@ See Info node `(calc)Defining Functions'."
(provide 'calc)
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; calc.el ends here
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index a3432c1..119f419 100644
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -1670,8 +1670,4 @@
(provide 'calccomp)
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; calccomp.el ends here
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 998dc6c..d0b3021 100644
--- a/lisp/calendar/cal-bahai.el
+++ b/lisp/calendar/cal-bahai.el
@@ -324,8 +324,4 @@ Prefix argument ARG will make the entry nonmarking."
(provide 'cal-bahai)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; cal-bahai.el ends here
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index b88adb9..33e8e8e 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -256,8 +256,4 @@ Echo French Revolutionary date unless NOECHO is non-nil."
(provide 'cal-french)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; cal-french.el ends here
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index 251d811..211f16c 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -280,8 +280,4 @@ is non-nil."
(provide 'cal-menu)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; cal-menu.el ends here
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 86e5477..f188b68 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -2635,7 +2635,6 @@ If called by a mouse-event, pops up a menu with the
result."
;; Local variables:
;; byte-compile-dynamic: t
-;; coding: utf-8
;; End:
;;; calendar.el ends here
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index a1370bb..7382abf 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -2534,8 +2534,4 @@ entry is found the user is asked to confirm its addition."
(provide 'diary-lib)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; diary-lib.el ends here
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index bd3a558..307ab4d 100644
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -823,8 +823,4 @@ arguments, it returns the date of Pascha (Greek Orthodox
Easter)."
(provide 'holidays)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; holidays.el ends here
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 4b71530..0955e72 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -1,4 +1,4 @@
-;;; icalendar.el --- iCalendar implementation -*-coding: utf-8 -*-
+;;; icalendar.el --- iCalendar implementation
;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index 8736a4f..b5995ff 100644
--- a/lisp/cedet/mode-local.el
+++ b/lisp/cedet/mode-local.el
@@ -644,9 +644,9 @@ SYMBOL is a function that can be overridden."
(insert (overload-docstring-extension symbol) "\n\n")
(insert (format-message "default function: `%s'\n" default))
(if override
- (insert (format-message "\noverride in buffer '%s': `%s'\n"
+ (insert (format-message "\noverride in buffer `%s': `%s'\n"
describe-function-orig-buffer override))
- (insert (format-message "\nno override in buffer '%s'\n"
+ (insert (format-message "\nno override in buffer `%s'\n"
describe-function-orig-buffer)))
(mapatoms
diff --git a/lisp/color.el b/lisp/color.el
index 3471243..d572222 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -1,4 +1,4 @@
-;;; color.el --- Color manipulation library -*- coding: utf-8;
lexical-binding:t -*-
+;;; color.el --- Color manipulation library -*- lexical-binding:t -*-
;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 9d023e3..e95a8c9 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1590,7 +1590,3 @@ If there are no buffers left to create, kill the timer."
(provide 'desktop)
;;; desktop.el ends here
-
-;; Local Variables:
-;; coding: utf-8
-;; End:
diff --git a/lisp/dnd.el b/lisp/dnd.el
index 3e161dc..d4fb088 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -1,4 +1,4 @@
-;;; dnd.el --- drag and drop support. -*- coding: utf-8 -*-
+;;; dnd.el --- drag and drop support
;; Copyright (C) 2005-2015 Free Software Foundation, Inc.
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 8699af6..6f7ba33 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2015,7 +2015,7 @@ and will be removed soon. See (elisp)Backquote in the
manual."))
(format " (string-lessp emacs-version \"%s\")\n" minimum-version)
;; Because the header must fit in a fixed width, we cannot
;; insert arbitrary-length file names (Bug#11585).
- " (error \"'%s' was compiled for "
+ " (error \"`%s' was compiled for "
(format "Emacs %s or later\" #$))\n\n" minimum-version))
;; Now compensate for any change in size, to make sure all
;; positions in the file remain valid.
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 0f75f0a..efa9a3d 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -1,4 +1,4 @@
-;;; cconv.el --- Closure conversion for statically scoped Emacs lisp. -*-
lexical-binding: t; coding: utf-8 -*-
+;;; cconv.el --- Closure conversion for statically scoped Emacs lisp. -*-
lexical-binding: t -*-
;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index d5d8ef0..c42094f 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1,4 +1,4 @@
-;;; cl-macs.el --- Common Lisp macros -*- lexical-binding: t; coding: utf-8
-*-
+;;; cl-macs.el --- Common Lisp macros -*- lexical-binding: t -*-
;; Copyright (C) 1993, 2001-2015 Free Software Foundation, Inc.
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 1317d69..50f880d 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -375,9 +375,4 @@ If FIX is non-nil, run `copyright-fix-years' instead."
(provide 'copyright)
-;; For the copyright sign:
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; copyright.el ends here
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 86ac33c..64d65c0 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -520,7 +520,7 @@ Return nil if there are no more forms, t otherwise."
;;; (with-syntax-table emacs-lisp-mode-syntax-table
;;; (elint-update-env))
;;; (setq env (elint-env-add-env env elint-buffer-env))))
- ;;(message "Elint processed (require '%s)" name))
+ ;;(message "%s" (format "Elint processed (require '%s)" name))
(error "%s.el not found in load-path" libname)))
(error
(message "Can't get variables from require'd library %s: %s"
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index fec9467..9ce0dfd 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -238,17 +238,21 @@
(throw 'found t))))))
(defmacro let-when-compile (bindings &rest body)
- "Like `let', but allow for compile time optimization.
-Use BINDINGS as in regular `let', but in BODY each usage should
+ "Like `let*', but allow for compile time optimization.
+Use BINDINGS as in regular `let*', but in BODY each usage should
be wrapped in `eval-when-compile'.
This will generate compile-time constants from BINDINGS."
(declare (indent 1) (debug let))
- (cl-progv (mapcar #'car bindings)
- (mapcar (lambda (x) (eval (cadr x))) bindings)
- (macroexpand-all
- (macroexp-progn
- body)
- macroexpand-all-environment)))
+ (letrec ((loop
+ (lambda (bindings)
+ (if (null bindings)
+ (macroexpand-all (macroexp-progn body)
+ macroexpand-all-environment)
+ (let ((binding (pop bindings)))
+ (cl-progv (list (car binding))
+ (list (eval (nth 1 binding) t))
+ (funcall loop bindings)))))))
+ (funcall loop bindings)))
(let-when-compile
((lisp-fdefs '("defmacro" "defun"))
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 2c33d39..8bf49b0 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -1,4 +1,4 @@
-;;; macroexp.el --- Additional macro-expansion support -*- lexical-binding: t;
coding: utf-8 -*-
+;;; macroexp.el --- Additional macro-expansion support -*- lexical-binding: t
-*-
;;
;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
;;
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index ea4f38a..8bcb447 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -1,4 +1,4 @@
-;;; pcase.el --- ML-style pattern-matching macro for Elisp -*-
lexical-binding: t; coding: utf-8 -*-
+;;; pcase.el --- ML-style pattern-matching macro for Elisp -*-
lexical-binding: t -*-
;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index e0f17c0..a63447d 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -261,8 +261,7 @@ If SEQ is empty, return INITIAL-VALUE and FUNCTION is not
called."
t))
(cl-defgeneric seq-some (pred seq)
- "Return non-nil if (PRED element) is non-nil for any element in SEQ, nil
otherwise.
-If so, return the non-nil value returned by PRED."
+ "Return the first value for which if (PRED element) is non-nil for in SEQ."
(catch 'seq--break
(seq-doseq (elt seq)
(let ((result (funcall pred elt)))
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 17e3be7..229bb58 100644
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -286,7 +286,3 @@ version unless you know what you are doing.\n")
(provide 'shadow)
;;; shadow.el ends here
-
-;; Local Variables:
-;; coding: utf-8
-;; End:
diff --git a/lisp/emacs-lisp/tabulated-list.el
b/lisp/emacs-lisp/tabulated-list.el
index cd61eb9..47ecd2b 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -581,8 +581,4 @@ as the ewoc pretty-printer."
(provide 'tabulated-list)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; tabulated-list.el ends here
diff --git a/lisp/filesets.el b/lisp/filesets.el
index ab332bb..28d0cd8 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1,4 +1,4 @@
-;;; filesets.el --- handle group of files -*- coding: utf-8 -*-
+;;; filesets.el --- handle group of files
;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
diff --git a/lisp/fringe.el b/lisp/fringe.el
index 8f40c46..8524f2a 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -1,4 +1,4 @@
-;;; fringe.el --- fringe setup and control -*- coding: utf-8 -*-
+;;; fringe.el --- fringe setup and control
;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index f101ecd..32e22eb 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -560,7 +560,7 @@ other properties will always hold scalar values.
Typically the :secret property, if present, contains a password.
Common search keys are :max, :host, :port, and :user. In
-addition, :create specifies how tokens will be or created.
+addition, :create specifies if and how tokens will be created.
Finally, :type can specify which backend types you want to check.
A string value is always matched literally. A symbol is matched
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 0a0a0b3..719cb50a 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -2433,8 +2433,4 @@ Use a fallback method for obtaining the rgb values for a
color.
(provide 'htmlfontify)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; htmlfontify.el ends here
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 5065b66..89477bd 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -2493,14 +2493,17 @@ new filter onto the stack, and the filters combine to
show just
buffers which satisfy ALL criteria on the stack. For example, suppose
you only want to see buffers in `emacs-lisp' mode, whose names begin
with \"gnus\". You can accomplish this via:
-`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET
-\\[ibuffer-filter-by-name] ^gnus RET'.
+
+ \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
+ \\[ibuffer-filter-by-name] ^gnus RET
Additionally, you can OR the top two filters together with
`\\[ibuffer-or-filters]'. To see all buffers in either
`emacs-lisp-mode' or `lisp-interaction-mode', type:
-`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filter-by-mode]
lisp-interaction-mode RET \\[ibuffer-or-filters]'.
+ \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
+ \\[ibuffer-filter-by-mode] lisp-interaction-mode RET
+ \\[ibuffer-or-filters]
Filters can also be saved and restored using mnemonic names: see the
functions `ibuffer-save-filters' and `ibuffer-switch-to-saved-filters'.
@@ -2518,9 +2521,10 @@ create a filter group, simply use the regular functions
to create a
filter, and then type `\\[ibuffer-filters-to-filter-group]'.
A quick example will make things clearer. Suppose that one wants to
-group all of one's Emacs Lisp buffers together. To do this, type
+group all of one's Emacs Lisp buffers together. To do this, type:
-`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET
\\[ibuffer-filters-to-filter-group] RET emacs lisp buffers RET'
+ \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
+ \\[ibuffer-filters-to-filter-group] emacs lisp buffers RET
You may, of course, name the group whatever you want; it doesn't have
to be \"emacs lisp buffers\". Filter groups may be composed of any
@@ -2974,8 +2978,4 @@ defaults to one.
(run-hooks 'ibuffer-load-hook)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; ibuffer.el ends here
diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index 2b81efa..fcdf532 100644
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -454,7 +454,7 @@ and can take a long time."
(cond ((symbolp load)
(condition-case cause (require load)
(error
- (info-xref-output "Symbol `%s': cannot require '%s: %s"
+ (info-xref-output "Symbol `%s': cannot require `%s': %s"
symbol load cause))))
;; skip if previously loaded
((assoc load load-history))
diff --git a/lisp/json.el b/lisp/json.el
index daa0c94..e2c7cc7 100644
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -57,7 +57,8 @@
(defvar json-object-type 'alist
"Type to convert JSON objects to.
Must be one of `alist', `plist', or `hash-table'. Consider let-binding
-this around your call to `json-read' instead of `setq'ing it.")
+this around your call to `json-read' instead of `setq'ing it. Ordering
+is maintained for `alist' and `plist', but not for `hash-table'.")
(defvar json-array-type 'vector
"Type to convert JSON arrays to.
@@ -136,6 +137,17 @@ without indentation.")
'not-plist)))
(null list))
+(defun json--plist-reverse (plist)
+ "Return a copy of PLIST in reverse order.
+Unlike `reverse', this keeps the property-value pairs intact."
+ (let (res)
+ (while plist
+ (let ((prop (pop plist))
+ (val (pop plist)))
+ (push val res)
+ (push prop res)))
+ res))
+
(defmacro json--with-indentation (body)
`(let ((json--encoding-current-indentation
(if json-encoding-pretty-print
@@ -400,7 +412,10 @@ Please see the documentation of `json-object-type' and
`json-key-type'."
(signal 'json-object-format (list "," (json-peek))))))
;; Skip over the "}"
(json-advance)
- elements))
+ (pcase json-object-type
+ (`alist (nreverse elements))
+ (`plist (json--plist-reverse elements))
+ (_ elements))))
;; Hash table encoding
@@ -602,6 +617,8 @@ Advances point just past JSON object."
(interactive "r")
(atomic-change-group
(let ((json-encoding-pretty-print t)
+ ;; Ensure that ordering is maintained
+ (json-object-type 'alist)
(txt (delete-and-extract-region begin end)))
(insert (json-encode (json-read-from-string txt))))))
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 14c634f..e3e620c 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -3,7 +3,7 @@
;;; Code:
-;;;### (autoloads nil "5x5" "play/5x5.el" (21799 41767 31221 635000))
+;;;### (autoloads nil "5x5" "play/5x5.el" (22026 25907 631502 692000))
;;; Generated autoloads from play/5x5.el
(autoload '5x5 "5x5" "\
@@ -65,8 +65,8 @@ should return a grid vector array that is the new solution.
;;;***
-;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (21980 16567
-;;;;;; 981544 893000))
+;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (22011 58553
+;;;;;; 865858 469000))
;;; Generated autoloads from progmodes/ada-mode.el
(autoload 'ada-add-extensions "ada-mode" "\
@@ -96,8 +96,8 @@ Insert a descriptive header at the top of the file.
;;;***
-;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (21980 16567
-;;;;;; 981544 893000))
+;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (22011 58553
+;;;;;; 869858 469000))
;;; Generated autoloads from progmodes/ada-xref.el
(autoload 'ada-find-file "ada-xref" "\
@@ -108,8 +108,8 @@ Completion is available.
;;;***
-;;;### (autoloads nil "add-log" "vc/add-log.el" (21985 34484 266705
-;;;;;; 925000))
+;;;### (autoloads nil "add-log" "vc/add-log.el" (22011 58554 85858
+;;;;;; 469000))
;;; Generated autoloads from vc/add-log.el
(put 'change-log-default-name 'safe-local-variable 'string-or-null-p)
@@ -238,8 +238,8 @@ old-style time formats for entries are supported.
;;;***
-;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (21976 19509
-;;;;;; 764430 241000))
+;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (22011 58553
+;;;;;; 345858 469000))
;;; Generated autoloads from emacs-lisp/advice.el
(defvar ad-redefinition-action 'warn "\
@@ -374,7 +374,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST]
FLAG...)
;;;***
-;;;### (autoloads nil "align" "align.el" (21980 16567 345544 893000))
+;;;### (autoloads nil "align" "align.el" (21998 46516 830024 649000))
;;; Generated autoloads from align.el
(autoload 'align "align" "\
@@ -477,7 +477,7 @@ A replacement function for `newline-and-indent', aligning
as it goes.
;;;***
-;;;### (autoloads nil "allout" "allout.el" (21981 37426 507399 97000))
+;;;### (autoloads nil "allout" "allout.el" (22015 55603 653705 321000))
;;; Generated autoloads from allout.el
(push (purecopy '(allout 2 3)) package--builtin-versions)
@@ -837,8 +837,8 @@ for details on preparing Emacs for automatic allout
activation.
;;;***
-;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21980
-;;;;;; 16567 353544 893000))
+;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21998
+;;;;;; 46516 830024 649000))
;;; Generated autoloads from allout-widgets.el
(push (purecopy '(allout-widgets 1 0)) package--builtin-versions)
@@ -896,8 +896,8 @@ outline hot-spot navigation (see `allout-mode').
;;;***
-;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (21980 16567 805544
-;;;;;; 893000))
+;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (22011 58553 761858
+;;;;;; 469000))
;;; Generated autoloads from net/ange-ftp.el
(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir)
@@ -978,8 +978,8 @@ This is a good function to put in
`comint-output-filter-functions'.
;;;***
-;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (21980
-;;;;;; 16567 993544 893000))
+;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (22011
+;;;;;; 58553 873858 469000))
;;; Generated autoloads from progmodes/antlr-mode.el
(push (purecopy '(antlr-mode 2 2 3)) package--builtin-versions)
@@ -1015,8 +1015,8 @@ Used in `antlr-mode'. Also a useful function in
`java-mode-hook'.
;;;***
-;;;### (autoloads nil "appt" "calendar/appt.el" (21976 19509 728430
-;;;;;; 241000))
+;;;### (autoloads nil "appt" "calendar/appt.el" (21998 46516 878024
+;;;;;; 649000))
;;; Generated autoloads from calendar/appt.el
(autoload 'appt-add "appt" "\
@@ -1037,8 +1037,8 @@ ARG is positive, otherwise off.
;;;***
-;;;### (autoloads nil "apropos" "apropos.el" (21985 34484 142705
-;;;;;; 925000))
+;;;### (autoloads nil "apropos" "apropos.el" (21998 46516 834024
+;;;;;; 649000))
;;; Generated autoloads from apropos.el
(autoload 'apropos-read-pattern "apropos" "\
@@ -1153,8 +1153,8 @@ Returns list of symbols and documentation found.
;;;***
-;;;### (autoloads nil "arc-mode" "arc-mode.el" (21878 48426 204093
-;;;;;; 508000))
+;;;### (autoloads nil "arc-mode" "arc-mode.el" (22027 46774 644310
+;;;;;; 591000))
;;; Generated autoloads from arc-mode.el
(autoload 'archive-mode "arc-mode" "\
@@ -1480,8 +1480,8 @@ Special commands:
;;;***
-;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (21981
-;;;;;; 37426 543399 97000))
+;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (22027
+;;;;;; 46774 676310 591000))
;;; Generated autoloads from gnus/auth-source.el
(defvar auth-source-cache-expiry 7200 "\
@@ -1802,8 +1802,8 @@ Run script using `bat-run' and `bat-run-args'.
;;;***
-;;;### (autoloads nil "battery" "battery.el" (21754 56896 744606
-;;;;;; 568000))
+;;;### (autoloads nil "battery" "battery.el" (22026 25907 487502
+;;;;;; 692000))
;;; Generated autoloads from battery.el
(put 'battery-mode-line-string 'risky-local-variable t)
@@ -1875,8 +1875,8 @@ For non-interactive use see also `benchmark-run' and
;;;***
-;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (21988 10682
-;;;;;; 61624 461000))
+;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (22011 58554
+;;;;;; 41858 469000))
;;; Generated autoloads from textmodes/bibtex.el
(autoload 'bibtex-initialize "bibtex" "\
@@ -2123,8 +2123,8 @@ a reflection.
;;;***
-;;;### (autoloads nil "bookmark" "bookmark.el" (21980 16567 369544
-;;;;;; 893000))
+;;;### (autoloads nil "bookmark" "bookmark.el" (22011 58553 109858
+;;;;;; 469000))
;;; Generated autoloads from bookmark.el
(define-key ctl-x-r-map "b" 'bookmark-jump)
(define-key ctl-x-r-map "m" 'bookmark-set)
@@ -2317,8 +2317,8 @@ Incremental search of bookmarks, hiding the non-matches
as we go.
;;;***
-;;;### (autoloads nil "browse-url" "net/browse-url.el" (21811 32939
-;;;;;; 190503 320000))
+;;;### (autoloads nil "browse-url" "net/browse-url.el" (21993 28596
+;;;;;; 198597 473000))
;;; Generated autoloads from net/browse-url.el
(defvar browse-url-browser-function 'browse-url-default-browser "\
@@ -2658,7 +2658,7 @@ from `browse-url-elinks-wrapper'.
;;;***
-;;;### (autoloads nil "bs" "bs.el" (21980 16567 373544 893000))
+;;;### (autoloads nil "bs" "bs.el" (21998 46516 834024 649000))
;;; Generated autoloads from bs.el
(push (purecopy '(bs 1 17)) package--builtin-versions)
@@ -2699,8 +2699,8 @@ name of buffer configuration.
;;;***
-;;;### (autoloads nil "bubbles" "play/bubbles.el" (21980 16567 957544
-;;;;;; 893000))
+;;;### (autoloads nil "bubbles" "play/bubbles.el" (22026 25907 631502
+;;;;;; 692000))
;;; Generated autoloads from play/bubbles.el
(autoload 'bubbles "bubbles" "\
@@ -2742,8 +2742,8 @@ Like `bug-reference-mode', but only buttonize in comments
and strings.
;;;***
-;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (21988
-;;;;;; 10681 977624 461000))
+;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (22011
+;;;;;; 58553 361858 469000))
;;; Generated autoloads from emacs-lisp/bytecomp.el
(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp)
@@ -2823,8 +2823,8 @@ whose definitions have been compiled in this Emacs
session, as well as
all functions called by those functions.
The call graph does not include macros, inline functions, or
-primitives that the byte-code interpreter knows about directly (eq,
-cons, etc.).
+primitives that the byte-code interpreter knows about directly
+\(`eq', `cons', etc.).
The call tree also lists those functions which are not known to be called
\(that is, to which no calls have been compiled), and which cannot be
@@ -2873,8 +2873,8 @@ and corresponding effects.
;;;***
-;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21670 32330
-;;;;;; 885624 725000))
+;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21990 52406
+;;;;;; 468500 385000))
;;; Generated autoloads from calendar/cal-dst.el
(put 'calendar-daylight-savings-starts 'risky-local-variable t)
@@ -2885,8 +2885,8 @@ and corresponding effects.
;;;***
-;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21670
-;;;;;; 32330 885624 725000))
+;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21993
+;;;;;; 28595 970597 473000))
;;; Generated autoloads from calendar/cal-hebrew.el
(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\
@@ -2898,7 +2898,7 @@ from the cursor position.
;;;***
-;;;### (autoloads nil "calc" "calc/calc.el" (21985 34484 202705 925000))
+;;;### (autoloads nil "calc" "calc/calc.el" (22026 25907 527502 692000))
;;; Generated autoloads from calc/calc.el
(define-key ctl-x-map "*" 'calc-dispatch)
@@ -2995,8 +2995,8 @@ See Info node `(calc)Defining Functions'.
;;;***
-;;;### (autoloads nil "calculator" "calculator.el" (21974 64192 548009
-;;;;;; 993000))
+;;;### (autoloads nil "calculator" "calculator.el" (21993 28595 966597
+;;;;;; 473000))
;;; Generated autoloads from calculator.el
(autoload 'calculator "calculator" "\
@@ -3007,8 +3007,8 @@ See the documentation for `calculator-mode' for more
information.
;;;***
-;;;### (autoloads nil "calendar" "calendar/calendar.el" (21980 16567
-;;;;;; 413544 893000))
+;;;### (autoloads nil "calendar" "calendar/calendar.el" (22026 25907
+;;;;;; 535502 692000))
;;; Generated autoloads from calendar/calendar.el
(autoload 'calendar "calendar" "\
@@ -3069,8 +3069,8 @@ it fails.
;;;***
-;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (21988
-;;;;;; 10682 33624 461000))
+;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (22011
+;;;;;; 58553 881858 469000))
;;; Generated autoloads from progmodes/cc-engine.el
(autoload 'c-guess-basic-syntax "cc-engine" "\
@@ -3179,8 +3179,8 @@ the absolute file name of the file if STYLE-NAME is nil.
;;;***
-;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (21976 19510
-;;;;;; 104430 241000))
+;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (22021 7991
+;;;;;; 65719 83000))
;;; Generated autoloads from progmodes/cc-mode.el
(autoload 'c-initialize-cc-mode "cc-mode" "\
@@ -3202,7 +3202,8 @@ control). See \"cc-mode.el\" for more info.
(add-to-list 'auto-mode-alist '("\\.ii\\'" . c++-mode))
(autoload 'c-mode "cc-mode" "\
-Major mode for editing K&R and ANSI C code.
+Major mode for editing C code.
+
To submit a problem report, enter `\\[c-submit-bug-report]' from a
c-mode buffer. This automatically sets up a mail buffer with version
information already added. You just need to add a description of the
@@ -3389,8 +3390,8 @@ and exists only for compatibility reasons.
;;;***
-;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (21976 19510
-;;;;;; 104430 241000))
+;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (22011 58553
+;;;;;; 885858 469000))
;;; Generated autoloads from progmodes/cc-vars.el
(put 'c-basic-offset 'safe-local-variable 'integerp)
(put 'c-backslash-column 'safe-local-variable 'integerp)
@@ -3398,8 +3399,8 @@ and exists only for compatibility reasons.
;;;***
-;;;### (autoloads nil "ccl" "international/ccl.el" (21988 10681 977624
-;;;;;; 461000))
+;;;### (autoloads nil "ccl" "international/ccl.el" (21998 46517 74024
+;;;;;; 649000))
;;; Generated autoloads from international/ccl.el
(autoload 'ccl-compile "ccl" "\
@@ -3692,8 +3693,8 @@ See the documentation of `define-ccl-program' for the
detail of CCL program.
;;;***
-;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (21978 61237
-;;;;;; 422488 269000))
+;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (22026 25907
+;;;;;; 559502 692000))
;;; Generated autoloads from emacs-lisp/cconv.el
(autoload 'cconv-closure-convert "cconv" "\
@@ -3719,8 +3720,8 @@ Add the warnings that closure conversion would encounter.
;;;***
-;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (21980 16568
-;;;;;; 17544 893000))
+;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (22011 58553
+;;;;;; 889858 469000))
;;; Generated autoloads from progmodes/cfengine.el
(push (purecopy '(cfengine 1 4)) package--builtin-versions)
@@ -3773,15 +3774,15 @@ match any number of times.
;;;***
-;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21976 19509
-;;;;;; 812430 241000))
+;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21998 46516
+;;;;;; 978024 649000))
;;; Generated autoloads from emacs-lisp/chart.el
(push (purecopy '(chart 0 2)) package--builtin-versions)
;;;***
;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el"
-;;;;;; (21978 61237 422488 269000))
+;;;;;; (22011 58553 361858 469000))
;;; Generated autoloads from emacs-lisp/check-declare.el
(autoload 'check-declare-file "check-declare" "\
@@ -3798,8 +3799,8 @@ Returns non-nil if any false statements are found.
;;;***
-;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (21986
-;;;;;; 55346 260512 613000))
+;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (22002
+;;;;;; 43570 516887 749000))
;;; Generated autoloads from emacs-lisp/checkdoc.el
(push (purecopy '(checkdoc 0 6 2)) package--builtin-versions)
(put 'checkdoc-force-docstrings-flag 'safe-local-variable #'booleanp)
@@ -4190,8 +4191,8 @@ a future Emacs interpreter will be able to use it.")
;;;***
-;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (21988 10682
-;;;;;; 33624 461000))
+;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (22026 25907
+;;;;;; 631502 692000))
;;; Generated autoloads from progmodes/cmacexp.el
(autoload 'c-macro-expand "cmacexp" "\
@@ -4211,8 +4212,8 @@ For use inside Lisp programs, see also
`c-macro-expansion'.
;;;***
-;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (21887 31417 144735
-;;;;;; 656000))
+;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (22011 58553 281858
+;;;;;; 469000))
;;; Generated autoloads from cmuscheme.el
(autoload 'run-scheme "cmuscheme" "\
@@ -4232,7 +4233,7 @@ is run).
;;;***
-;;;### (autoloads nil "color" "color.el" (21670 32330 885624 725000))
+;;;### (autoloads nil "color" "color.el" (22026 25907 555502 692000))
;;; Generated autoloads from color.el
(autoload 'color-name-to-rgb "color" "\
@@ -4251,7 +4252,7 @@ If FRAME cannot display COLOR, return nil.
;;;***
-;;;### (autoloads nil "comint" "comint.el" (21980 16567 473544 893000))
+;;;### (autoloads nil "comint" "comint.el" (22011 58553 293858 469000))
;;; Generated autoloads from comint.el
(defvar comint-output-filter-functions '(ansi-color-process-output
comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\
@@ -4389,8 +4390,8 @@ on third call it again advances points to the next
difference and so on.
;;;***
-;;;### (autoloads nil "compile" "progmodes/compile.el" (21980 16568
-;;;;;; 17544 893000))
+;;;### (autoloads nil "compile" "progmodes/compile.el" (22015 55603
+;;;;;; 789705 321000))
;;; Generated autoloads from progmodes/compile.el
(defvar compilation-mode-hook nil "\
@@ -4594,8 +4595,8 @@ if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (21988
-;;;;;; 10682 61624 461000))
+;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (22026
+;;;;;; 25907 647502 692000))
;;; Generated autoloads from textmodes/conf-mode.el
(autoload 'conf-mode "conf-mode" "\
@@ -4779,8 +4780,8 @@ and subsequent calls on the same file won't go to disk.
;;;***
-;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (21976
-;;;;;; 19509 832430 241000))
+;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (22026
+;;;;;; 25907 575502 692000))
;;; Generated autoloads from emacs-lisp/copyright.el
(put 'copyright-at-end-flag 'safe-local-variable 'booleanp)
(put 'copyright-names-regexp 'safe-local-variable 'stringp)
@@ -4818,8 +4819,8 @@ If FIX is non-nil, run `copyright-fix-years' instead.
;;;***
-;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (21980
-;;;;;; 16568 21544 893000))
+;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (22011
+;;;;;; 58553 893858 469000))
;;; Generated autoloads from progmodes/cperl-mode.el
(put 'cperl-indent-level 'safe-local-variable 'integerp)
(put 'cperl-brace-offset 'safe-local-variable 'integerp)
@@ -5063,8 +5064,8 @@ with empty strings removed.
;;;***
-;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (21985 34484
-;;;;;; 258705 925000))
+;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (22014 34736
+;;;;;; 811840 613000))
;;; Generated autoloads from textmodes/css-mode.el
(autoload 'css-mode "css-mode" "\
@@ -5080,8 +5081,8 @@ Major mode to edit \"Sassy CSS\" files.
;;;***
-;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21826 50080
-;;;;;; 561727 536000))
+;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21990 52406
+;;;;;; 528500 385000))
;;; Generated autoloads from emulation/cua-base.el
(defvar cua-mode nil "\
@@ -5159,8 +5160,8 @@ entering the area covered by the text-property property
or leaving it.
;;;***
-;;;### (autoloads nil "cus-edit" "cus-edit.el" (21981 37426 511399
-;;;;;; 97000))
+;;;### (autoloads nil "cus-edit" "cus-edit.el" (21993 28596 22597
+;;;;;; 473000))
;;; Generated autoloads from cus-edit.el
(defvar custom-browse-sort-alphabetically nil "\
@@ -5297,8 +5298,8 @@ and `defface'.
For example, the MH-E package updates this alist as follows:
- (add-to-list 'customize-package-emacs-version-alist
- '(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\")
+ (add-to-list \\='customize-package-emacs-version-alist
+ \\='(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\")
(\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\")
(\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\")
(\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\")))
@@ -5479,8 +5480,8 @@ The format is suitable for use with `easy-menu-define'.
;;;***
-;;;### (autoloads nil "cus-theme" "cus-theme.el" (21985 34484 218705
-;;;;;; 925000))
+;;;### (autoloads nil "cus-theme" "cus-theme.el" (21998 46516 910024
+;;;;;; 649000))
;;; Generated autoloads from cus-theme.el
(autoload 'customize-create-theme "cus-theme" "\
@@ -5513,8 +5514,8 @@ omitted, a buffer named *Custom Themes* is used.
;;;***
-;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (21670 32331
-;;;;;; 885635 586000))
+;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (22026 25907
+;;;;;; 671502 692000))
;;; Generated autoloads from vc/cvs-status.el
(autoload 'cvs-status-mode "cvs-status" "\
@@ -5598,8 +5599,8 @@ If the argument is nil, we return the display table to
its standard state.
;;;***
-;;;### (autoloads nil "dabbrev" "dabbrev.el" (21980 16567 473544
-;;;;;; 893000))
+;;;### (autoloads nil "dabbrev" "dabbrev.el" (22011 58553 321858
+;;;;;; 469000))
;;; Generated autoloads from dabbrev.el
(put 'dabbrev-case-fold-search 'risky-local-variable t)
(put 'dabbrev-case-replace 'risky-local-variable t)
@@ -5656,7 +5657,7 @@ Create a new data-debug buffer with NAME.
;;;***
-;;;### (autoloads nil "dbus" "net/dbus.el" (21855 577 147947 107000))
+;;;### (autoloads nil "dbus" "net/dbus.el" (22011 58553 761858 469000))
;;; Generated autoloads from net/dbus.el
(autoload 'dbus-handle-event "dbus" "\
@@ -5669,8 +5670,8 @@ If the HANDLER returns a `dbus-error', it is propagated
as return message.
;;;***
-;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (21980 16568
-;;;;;; 21544 893000))
+;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (22011 58553
+;;;;;; 897858 469000))
;;; Generated autoloads from progmodes/dcl-mode.el
(autoload 'dcl-mode "dcl-mode" "\
@@ -5992,8 +5993,8 @@ the first time the mode is used.
;;;***
-;;;### (autoloads nil "descr-text" "descr-text.el" (21981 37426 511399
-;;;;;; 97000))
+;;;### (autoloads nil "descr-text" "descr-text.el" (21998 46516 914024
+;;;;;; 649000))
;;; Generated autoloads from descr-text.el
(autoload 'describe-text-properties "descr-text" "\
@@ -6042,8 +6043,8 @@ This function is meant to be used as a value of
;;;***
-;;;### (autoloads nil "desktop" "desktop.el" (21976 19509 748430
-;;;;;; 241000))
+;;;### (autoloads nil "desktop" "desktop.el" (22026 25907 555502
+;;;;;; 692000))
;;; Generated autoloads from desktop.el
(defvar desktop-save-mode nil "\
@@ -6285,8 +6286,8 @@ Deuglify broken Outlook (Express) articles and redisplay.
;;;***
-;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (21985
-;;;;;; 34484 206705 925000))
+;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (22026
+;;;;;; 25907 547502 692000))
;;; Generated autoloads from calendar/diary-lib.el
(autoload 'diary "diary-lib" "\
@@ -6376,8 +6377,8 @@ This requires the external program `diff' to be in your
`exec-path'.
;;;***
-;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (21985 34484
-;;;;;; 282705 925000))
+;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (22011 58554
+;;;;;; 89858 469000))
;;; Generated autoloads from vc/diff-mode.el
(autoload 'diff-mode "diff-mode" "\
@@ -6420,7 +6421,7 @@ Optional arguments are passed to `dig-invoke'.
;;;***
-;;;### (autoloads nil "dired" "dired.el" (21985 34484 222705 925000))
+;;;### (autoloads nil "dired" "dired.el" (21998 46624 946024 649000))
;;; Generated autoloads from dired.el
(defvar dired-listing-switches (purecopy "-al") "\
@@ -6577,8 +6578,8 @@ from `default-directory'.
;;;***
-;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21670 32330
-;;;;;; 885624 725000))
+;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21993 28596
+;;;;;; 58597 473000))
;;; Generated autoloads from emacs-lisp/disass.el
(autoload 'disassemble "disass" "\
@@ -6731,7 +6732,7 @@ Default is 2.
;;;***
-;;;### (autoloads nil "dnd" "dnd.el" (21670 32330 885624 725000))
+;;;### (autoloads nil "dnd" "dnd.el" (22026 25907 555502 692000))
;;; Generated autoloads from dnd.el
(defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file)
(,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") .
dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") .
dnd-open-file)) "\
@@ -6822,8 +6823,8 @@ See the command `doc-view-mode' for more information on
this mode.
;;;***
-;;;### (autoloads nil "doctor" "play/doctor.el" (21670 32331 385639
-;;;;;; 720000))
+;;;### (autoloads nil "doctor" "play/doctor.el" (22011 58553 865858
+;;;;;; 469000))
;;; Generated autoloads from play/doctor.el
(autoload 'doctor "doctor" "\
@@ -6861,8 +6862,8 @@ Switch to *dungeon* buffer and start game.
;;;***
-;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (21907
-;;;;;; 48688 657360 195000))
+;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (22011
+;;;;;; 58553 361858 469000))
;;; Generated autoloads from emacs-lisp/easy-mmode.el
(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
@@ -7145,8 +7146,8 @@ To implement dynamic menus, either call this from
;;;***
-;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (21978 61237
-;;;;;; 706488 269000))
+;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (22011 58553
+;;;;;; 897858 469000))
;;; Generated autoloads from progmodes/ebnf2ps.el
(push (purecopy '(ebnf2ps 4 4)) package--builtin-versions)
@@ -7411,8 +7412,8 @@ See `ebnf-style-database' documentation.
;;;***
-;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21988 10682
-;;;;;; 37624 461000))
+;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21998 46517
+;;;;;; 206024 649000))
;;; Generated autoloads from progmodes/ebrowse.el
(autoload 'ebrowse-tree-mode "ebrowse" "\
@@ -7616,7 +7617,7 @@ With prefix arg NOCONFIRM, execute current line as-is
without editing.
;;;***
-;;;### (autoloads nil "ede" "cedet/ede.el" (21986 55346 252512 613000))
+;;;### (autoloads nil "ede" "cedet/ede.el" (21996 4784 796983 429000))
;;; Generated autoloads from cedet/ede.el
(push (purecopy '(ede 1 2)) package--builtin-versions)
@@ -7642,8 +7643,8 @@ an EDE controlled project.
;;;***
-;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (21980 16567
-;;;;;; 505544 893000))
+;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (22022 28851
+;;;;;; 765037 303000))
;;; Generated autoloads from emacs-lisp/edebug.el
(defvar edebug-all-defs nil "\
@@ -7707,7 +7708,7 @@ Toggle edebugging of all forms.
;;;***
-;;;### (autoloads nil "ediff" "vc/ediff.el" (21985 34484 298705 925000))
+;;;### (autoloads nil "ediff" "vc/ediff.el" (22011 58554 93858 469000))
;;; Generated autoloads from vc/ediff.el
(push (purecopy '(ediff 2 81 4)) package--builtin-versions)
@@ -7990,8 +7991,8 @@ With optional NODE, goes to that node.
;;;***
-;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21670 32331
-;;;;;; 885635 586000))
+;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21993 28596
+;;;;;; 422597 473000))
;;; Generated autoloads from vc/ediff-mult.el
(autoload 'ediff-show-registry "ediff-mult" "\
@@ -8003,8 +8004,8 @@ Display Ediff's registry.
;;;***
-;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (21985 34484
-;;;;;; 298705 925000))
+;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (22026 25907
+;;;;;; 671502 692000))
;;; Generated autoloads from vc/ediff-util.el
(autoload 'ediff-toggle-multiframe "ediff-util" "\
@@ -8073,8 +8074,8 @@ or nil, use a compact 80-column format.
;;;***
-;;;### (autoloads nil "edt" "emulation/edt.el" (21986 55346 264512
-;;;;;; 613000))
+;;;### (autoloads nil "edt" "emulation/edt.el" (22011 58553 453858
+;;;;;; 469000))
;;; Generated autoloads from emulation/edt.el
(autoload 'edt-set-scroll-margins "edt" "\
@@ -8127,15 +8128,15 @@ BUFFER is put back into its original major mode.
;;;***
-;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21978 61583
-;;;;;; 178488 269000))
+;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21998 46624
+;;;;;; 898024 649000))
;;; Generated autoloads from emacs-lisp/eieio.el
(push (purecopy '(eieio 1 4)) package--builtin-versions)
;;;***
-;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (21978
-;;;;;; 61237 458488 269000))
+;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (22009
+;;;;;; 58952 307546 645000))
;;; Generated autoloads from emacs-lisp/eieio-core.el
(push (purecopy '(eieio-core 1 4)) package--builtin-versions)
@@ -8209,8 +8210,8 @@ This is suitable as an entry on `find-file-hook' or
appropriate mode hooks.
;;;***
-;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (21980 16567
-;;;;;; 505544 893000))
+;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (21998 46516
+;;;;;; 994024 649000))
;;; Generated autoloads from emacs-lisp/elint.el
(autoload 'elint-file "elint" "\
@@ -8732,7 +8733,7 @@ if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "epg" "epg.el" (21980 16567 517544 893000))
+;;;### (autoloads nil "epg" "epg.el" (22011 58553 461858 469000))
;;; Generated autoloads from epg.el
(push (purecopy '(epg 1 0 0)) package--builtin-versions)
@@ -8764,7 +8765,7 @@ Look at CONFIG and try to expand GROUP.
;;;***
-;;;### (autoloads nil "erc" "erc/erc.el" (21980 16567 529544 893000))
+;;;### (autoloads nil "erc" "erc/erc.el" (22011 58553 477858 469000))
;;; Generated autoloads from erc/erc.el
(push (purecopy '(erc 5 3)) package--builtin-versions)
@@ -8820,8 +8821,8 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
;;;***
-;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21980 16567
-;;;;;; 517544 893000))
+;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21998 46517
+;;;;;; 30024 649000))
;;; Generated autoloads from erc/erc-button.el
(autoload 'erc-button-mode "erc-button" nil t)
@@ -8841,8 +8842,8 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
;;;***
-;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21980 16567 517544
-;;;;;; 893000))
+;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21998 46517 30024
+;;;;;; 649000))
;;; Generated autoloads from erc/erc-dcc.el
(autoload 'erc-dcc-mode "erc-dcc")
@@ -9031,8 +9032,8 @@ You can save every individual message by putting this
function on
;;;***
-;;;### (autoloads nil "erc-match" "erc/erc-match.el" (21980 16567
-;;;;;; 517544 893000))
+;;;### (autoloads nil "erc-match" "erc/erc-match.el" (22011 58553
+;;;;;; 461858 469000))
;;; Generated autoloads from erc/erc-match.el
(autoload 'erc-match-mode "erc-match")
@@ -9097,8 +9098,8 @@ Show who's gone.
;;;***
-;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (21670
-;;;;;; 32330 885624 725000))
+;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (22011
+;;;;;; 58553 473858 469000))
;;; Generated autoloads from erc/erc-networks.el
(autoload 'erc-determine-network "erc-networks" "\
@@ -9162,8 +9163,8 @@ with args, toggle notify status of people.
;;;***
-;;;### (autoloads nil "erc-services" "erc/erc-services.el" (21980
-;;;;;; 16567 517544 893000))
+;;;### (autoloads nil "erc-services" "erc/erc-services.el" (22011
+;;;;;; 58553 473858 469000))
;;; Generated autoloads from erc/erc-services.el
(autoload 'erc-services-mode "erc-services" nil t)
@@ -9271,8 +9272,8 @@ Add a file to `erc-xdcc-files'.
;;;***
-;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (21976 19509 868430
-;;;;;; 241000))
+;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (22011 58553 409858
+;;;;;; 469000))
;;; Generated autoloads from emacs-lisp/ert.el
(autoload 'ert-deftest "ert" "\
@@ -9341,8 +9342,8 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol
or ert-test).
;;;***
-;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (21980 16567
-;;;;;; 505544 893000))
+;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (22011 58553
+;;;;;; 393858 469000))
;;; Generated autoloads from emacs-lisp/ert-x.el
(put 'ert-with-test-buffer 'lisp-indent-function 1)
@@ -9354,8 +9355,8 @@ Kill all test buffers that are still live.
;;;***
-;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (21861 39358
-;;;;;; 497944 643000))
+;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (22003 64432
+;;;;;; 600146 533000))
;;; Generated autoloads from eshell/esh-mode.el
(autoload 'eshell-mode "esh-mode" "\
@@ -9401,8 +9402,8 @@ corresponding to a successful execution.
;;;***
-;;;### (autoloads nil "etags" "progmodes/etags.el" (21988 10682 37624
-;;;;;; 461000))
+;;;### (autoloads nil "etags" "progmodes/etags.el" (21998 46517 206024
+;;;;;; 649000))
;;; Generated autoloads from progmodes/etags.el
(defvar tags-file-name nil "\
@@ -9888,7 +9889,7 @@ With ARG, insert that many delimiters.
;;;***
-;;;### (autoloads nil "eudc" "net/eudc.el" (21799 41767 21224 988000))
+;;;### (autoloads nil "eudc" "net/eudc.el" (22026 25907 611502 692000))
;;; Generated autoloads from net/eudc.el
(autoload 'eudc-set-server "eudc" "\
@@ -9942,8 +9943,8 @@ This does nothing except loading eudc by autoload
side-effect.
;;;***
-;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (21704 50495 455324
-;;;;;; 752000))
+;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (22026 25907 607502
+;;;;;; 692000))
;;; Generated autoloads from net/eudc-bob.el
(autoload 'eudc-display-generic-binary "eudc-bob" "\
@@ -9978,8 +9979,8 @@ Display a button for the JPEG DATA.
;;;***
-;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (21794 23865
-;;;;;; 772631 636000))
+;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (22026 25907
+;;;;;; 607502 692000))
;;; Generated autoloads from net/eudc-export.el
(autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\
@@ -9995,8 +9996,8 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a
record.
;;;***
-;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (21704
-;;;;;; 50495 455324 752000))
+;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (22026
+;;;;;; 25907 607502 692000))
;;; Generated autoloads from net/eudc-hotlist.el
(autoload 'eudc-edit-hotlist "eudc-hotlist" "\
@@ -10033,7 +10034,7 @@ fourth arg NOSEP non-nil inhibits this.
;;;***
-;;;### (autoloads nil "eww" "net/eww.el" (21826 49851 770496 504000))
+;;;### (autoloads nil "eww" "net/eww.el" (22011 58553 761858 469000))
;;; Generated autoloads from net/eww.el
(defvar eww-suggest-uris '(eww-links-at-point url-get-url-at-point
eww-current-url) "\
@@ -10116,7 +10117,7 @@ file modes.
;;;***
-;;;### (autoloads nil "expand" "expand.el" (21670 32330 885624 725000))
+;;;### (autoloads nil "expand" "expand.el" (22011 58553 477858 469000))
;;; Generated autoloads from expand.el
(autoload 'expand-add-abbrevs "expand" "\
@@ -10165,8 +10166,8 @@ This is used only in conjunction with
`expand-add-abbrevs'.
;;;***
-;;;### (autoloads nil "f90" "progmodes/f90.el" (21914 21937 459876
-;;;;;; 215000))
+;;;### (autoloads nil "f90" "progmodes/f90.el" (22026 25907 635502
+;;;;;; 692000))
;;; Generated autoloads from progmodes/f90.el
(autoload 'f90-mode "f90" "\
@@ -10215,7 +10216,7 @@ Variables controlling indentation style and extra
features:
Non-nil causes `f90-do-auto-fill' to break lines before delimiters
(default t).
`f90-beginning-ampersand'
- Automatic insertion of & at beginning of continuation lines (default t).
+ Automatic insertion of `&' at beginning of continuation lines (default t).
`f90-smart-end'
From an END statement, check and fill the end using matching block start.
Allowed values are `blink', `no-blink', and nil, which determine
@@ -10393,8 +10394,8 @@ Besides the choice of face, it is the same as
`buffer-face-mode'.
;;;***
-;;;### (autoloads nil "feedmail" "mail/feedmail.el" (21989 31537
-;;;;;; 891825 721000))
+;;;### (autoloads nil "feedmail" "mail/feedmail.el" (22011 58553
+;;;;;; 677858 469000))
;;; Generated autoloads from mail/feedmail.el
(push (purecopy '(feedmail 11)) package--builtin-versions)
@@ -10448,7 +10449,7 @@ you can set `feedmail-queue-reminder-alist' to nil.
;;;***
-;;;### (autoloads nil "ffap" "ffap.el" (21960 31281 328212 153000))
+;;;### (autoloads nil "ffap" "ffap.el" (21993 28596 82597 473000))
;;; Generated autoloads from ffap.el
(autoload 'ffap-next "ffap" "\
@@ -10569,15 +10570,15 @@ the name is considered already unique; only the
second substitution
;;;***
-;;;### (autoloads nil "filenotify" "filenotify.el" (21704 50495 455324
-;;;;;; 752000))
+;;;### (autoloads nil "filenotify" "filenotify.el" (22019 52657 867929
+;;;;;; 676000))
;;; Generated autoloads from filenotify.el
(autoload 'file-notify-handle-event "filenotify" "\
Handle file system monitoring event.
If EVENT is a filewatch event, call its callback. It has the format
- (file-notify (DESCRIPTOR ACTIONS FILE COOKIE) CALLBACK)
+ (file-notify (DESCRIPTOR ACTIONS FILE [FILE1-OR-COOKIE]) CALLBACK)
Otherwise, signal a `file-notify-error'.
@@ -10585,8 +10586,7 @@ Otherwise, signal a `file-notify-error'.
;;;***
-;;;### (autoloads nil "files-x" "files-x.el" (21980 16567 557544
-;;;;;; 893000))
+;;;### (autoloads nil "files-x" "files-x.el" (21998 46517 38024 649000))
;;; Generated autoloads from files-x.el
(autoload 'add-file-local-variable "files-x" "\
@@ -10651,8 +10651,8 @@ Copy directory-local variables to the -*- line.
;;;***
-;;;### (autoloads nil "filesets" "filesets.el" (21980 16567 557544
-;;;;;; 893000))
+;;;### (autoloads nil "filesets" "filesets.el" (22026 25907 587502
+;;;;;; 692000))
;;; Generated autoloads from filesets.el
(autoload 'filesets-init "filesets" "\
@@ -10663,8 +10663,8 @@ Set up hooks, load the cache file -- if existing -- and
build the menu.
;;;***
-;;;### (autoloads nil "find-cmd" "find-cmd.el" (21980 16567 573544
-;;;;;; 893000))
+;;;### (autoloads nil "find-cmd" "find-cmd.el" (22011 58553 489858
+;;;;;; 469000))
;;; Generated autoloads from find-cmd.el
(push (purecopy '(find-cmd 0 6)) package--builtin-versions)
@@ -10684,8 +10684,8 @@ result is a string that should be ready for the command
line.
;;;***
-;;;### (autoloads nil "find-dired" "find-dired.el" (21981 37426 535399
-;;;;;; 97000))
+;;;### (autoloads nil "find-dired" "find-dired.el" (22011 58553 489858
+;;;;;; 469000))
;;; Generated autoloads from find-dired.el
(autoload 'find-dired "find-dired" "\
@@ -10725,8 +10725,8 @@ use in place of \"-ls\" as the final argument.
;;;***
-;;;### (autoloads nil "find-file" "find-file.el" (21670 32330 885624
-;;;;;; 725000))
+;;;### (autoloads nil "find-file" "find-file.el" (22011 58553 489858
+;;;;;; 469000))
;;; Generated autoloads from find-file.el
(defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s
+[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2)
(match-end 2)))) "\
@@ -10816,8 +10816,8 @@ Visit the file you click on in another window.
;;;***
-;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (21978
-;;;;;; 61237 486488 269000))
+;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (22011
+;;;;;; 58553 409858 469000))
;;; Generated autoloads from emacs-lisp/find-func.el
(autoload 'find-library "find-func" "\
@@ -11008,7 +11008,7 @@ Change the filter on a `find-lisp-find-dired' buffer to
REGEXP.
;;;***
-;;;### (autoloads nil "finder" "finder.el" (21980 16567 573544 893000))
+;;;### (autoloads nil "finder" "finder.el" (21998 46517 46024 649000))
;;; Generated autoloads from finder.el
(push (purecopy '(finder 1 0)) package--builtin-versions)
@@ -11068,8 +11068,8 @@ to get the effect of a C-q.
;;;***
-;;;### (autoloads nil "flymake" "progmodes/flymake.el" (21980 16568
-;;;;;; 25544 893000))
+;;;### (autoloads nil "flymake" "progmodes/flymake.el" (22011 58553
+;;;;;; 901858 469000))
;;; Generated autoloads from progmodes/flymake.el
(push (purecopy '(flymake 0 3)) package--builtin-versions)
@@ -11170,14 +11170,14 @@ Flyspell whole buffer.
;;;***
-;;;### (autoloads nil "foldout" "foldout.el" (21824 11953 672190
-;;;;;; 35000))
+;;;### (autoloads nil "foldout" "foldout.el" (22011 58553 513858
+;;;;;; 469000))
;;; Generated autoloads from foldout.el
(push (purecopy '(foldout 1 10)) package--builtin-versions)
;;;***
-;;;### (autoloads nil "follow" "follow.el" (21976 19509 932430 241000))
+;;;### (autoloads nil "follow" "follow.el" (22023 49716 552634 164000))
;;; Generated autoloads from follow.el
(autoload 'turn-on-follow-mode "follow" "\
@@ -11227,6 +11227,32 @@ Keys specific to Follow mode:
\(fn &optional ARG)" t nil)
+(autoload 'follow-scroll-up "follow" "\
+Scroll text in a Follow mode window chain up.
+
+If called with no ARG, the `next-screen-context-lines' last lines of
+the bottom window in the chain will be visible in the top window.
+
+If called with an argument, scroll ARG lines up.
+Negative ARG means scroll downward.
+
+Works like `scroll-up' when not in Follow mode.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'follow-scroll-down "follow" "\
+Scroll text in a Follow mode window chain down.
+
+If called with no ARG, the `next-screen-context-lines' top lines of
+the top window in the chain will be visible in the bottom window.
+
+If called with an argument, scroll ARG lines down.
+Negative ARG means scroll upward.
+
+Works like `scroll-down' when not in Follow mode.
+
+\(fn &optional ARG)" t nil)
+
(autoload 'follow-delete-other-windows-and-split "follow" "\
Create two side by side windows and enter Follow mode.
@@ -11245,8 +11271,8 @@ selected if the original window is the first one in the
frame.
;;;***
-;;;### (autoloads nil "footnote" "mail/footnote.el" (21814 9129 310503
-;;;;;; 742000))
+;;;### (autoloads nil "footnote" "mail/footnote.el" (22026 25907
+;;;;;; 595502 692000))
;;; Generated autoloads from mail/footnote.el
(push (purecopy '(footnote 0 19)) package--builtin-versions)
@@ -11301,8 +11327,8 @@ Visit a file in Forms mode in other window.
;;;***
-;;;### (autoloads nil "fortran" "progmodes/fortran.el" (21953 58033
-;;;;;; 403058 929000))
+;;;### (autoloads nil "fortran" "progmodes/fortran.el" (22011 58553
+;;;;;; 901858 469000))
;;; Generated autoloads from progmodes/fortran.el
(autoload 'fortran-mode "fortran" "\
@@ -11334,15 +11360,15 @@ Variables controlling indentation style and extra
features:
Amount of extra indentation for text in full-line comments (default 0).
`fortran-comment-indent-style'
How to indent the text in full-line comments. Allowed values are:
- nil don't change the indentation
- fixed indent to `fortran-comment-line-extra-indent' beyond the
+ nil don't change the indentation
+ `fixed' indent to `fortran-comment-line-extra-indent' beyond the
value of either
`fortran-minimum-statement-indent-fixed' (fixed format) or
`fortran-minimum-statement-indent-tab' (TAB format),
depending on the continuation format in use.
- relative indent to `fortran-comment-line-extra-indent' beyond the
+ `relative' indent to `fortran-comment-line-extra-indent' beyond the
indentation for a line of code.
- (default 'fixed)
+ (default `fixed')
`fortran-comment-indent-char'
Single-character string to be inserted instead of space for
full-line comment indentation (default \" \").
@@ -11622,8 +11648,8 @@ Interactively, reads the register using
`register-read-with-preview'.
;;;***
-;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (21980 16568
-;;;;;; 25544 893000))
+;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (22029 2088
+;;;;;; 514685 339000))
;;; Generated autoloads from progmodes/gdb-mi.el
(defvar gdb-enable-debug nil "\
@@ -11781,8 +11807,8 @@ regular expression that can be used as an element of
;;;***
-;;;### (autoloads nil "glasses" "progmodes/glasses.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "glasses" "progmodes/glasses.el" (22011 58553
+;;;;;; 901858 469000))
;;; Generated autoloads from progmodes/glasses.el
(autoload 'glasses-mode "glasses" "\
@@ -11796,8 +11822,8 @@ add virtual separators (like underscores) at places
they belong to.
;;;***
-;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21670 32330
-;;;;;; 885624 725000))
+;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21993 28596
+;;;;;; 86597 473000))
;;; Generated autoloads from gnus/gmm-utils.el
(autoload 'gmm-regexp-concat "gmm-utils" "\
@@ -11851,7 +11877,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST.
;;;***
-;;;### (autoloads nil "gnus" "gnus/gnus.el" (21980 16567 677544 893000))
+;;;### (autoloads nil "gnus" "gnus/gnus.el" (22011 58553 561858 469000))
;;; Generated autoloads from gnus/gnus.el
(push (purecopy '(gnus 5 13)) package--builtin-versions)
(when (fboundp 'custom-autoload)
@@ -11992,8 +12018,8 @@ CLEAN is obsolete and ignored.
;;;***
-;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (21989 31537
-;;;;;; 811825 721000))
+;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (22011 58553
+;;;;;; 521858 469000))
;;; Generated autoloads from gnus/gnus-art.el
(autoload 'gnus-article-prepare-display "gnus-art" "\
@@ -12003,8 +12029,8 @@ Make the current buffer look like a nice article.
;;;***
-;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (21670
-;;;;;; 32330 885624 725000))
+;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (22011
+;;;;;; 58553 521858 469000))
;;; Generated autoloads from gnus/gnus-bookmark.el
(autoload 'gnus-bookmark-set "gnus-bookmark" "\
@@ -12227,8 +12253,8 @@ If gravatars are already displayed, remove them.
;;;***
-;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (21989 31537
-;;;;;; 823825 721000))
+;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (22011 58553
+;;;;;; 529858 469000))
;;; Generated autoloads from gnus/gnus-group.el
(autoload 'gnus-fetch-group "gnus-group" "\
@@ -12299,8 +12325,8 @@ Minor mode for providing mailing-list commands.
;;;***
-;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (21670 32330
-;;;;;; 885624 725000))
+;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (22011 58553
+;;;;;; 529858 469000))
;;; Generated autoloads from gnus/gnus-mlspl.el
(autoload 'gnus-group-split-setup "gnus-mlspl" "\
@@ -12536,8 +12562,8 @@ Add NUM into sorted LIST by side effect.
;;;***
-;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (21981
-;;;;;; 37426 571399 97000))
+;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (22011
+;;;;;; 58553 541858 469000))
;;; Generated autoloads from gnus/gnus-registry.el
(autoload 'gnus-registry-initialize "gnus-registry" "\
@@ -12552,8 +12578,8 @@ Install the registry hooks.
;;;***
-;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (21980 16567
-;;;;;; 617544 893000))
+;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (22011 58553
+;;;;;; 541858 469000))
;;; Generated autoloads from gnus/gnus-sieve.el
(autoload 'gnus-sieve-update "gnus-sieve" "\
@@ -12591,8 +12617,8 @@ Update the format specification near point.
;;;***
-;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21981 37426
-;;;;;; 575399 97000))
+;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21993 28596
+;;;;;; 102597 473000))
;;; Generated autoloads from gnus/gnus-start.el
(autoload 'gnus-declare-backend "gnus-start" "\
@@ -12602,8 +12628,8 @@ Declare back end NAME with ABILITIES as a Gnus back end.
;;;***
-;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (21989 31537
-;;;;;; 843825 721000))
+;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (21993 28596
+;;;;;; 110597 473000))
;;; Generated autoloads from gnus/gnus-sum.el
(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\
@@ -12641,8 +12667,8 @@ Add the window configuration CONF to
`gnus-buffer-configuration'.
;;;***
-;;;### (autoloads nil "gnutls" "net/gnutls.el" (21978 61237 642488
-;;;;;; 269000))
+;;;### (autoloads nil "gnutls" "net/gnutls.el" (22011 58553 761858
+;;;;;; 469000))
;;; Generated autoloads from net/gnutls.el
(defvar gnutls-min-prime-bits 256 "\
@@ -12658,8 +12684,8 @@ A value of nil says to use the default GnuTLS value.")
;;;***
-;;;### (autoloads nil "gomoku" "play/gomoku.el" (21980 16567 969544
-;;;;;; 893000))
+;;;### (autoloads nil "gomoku" "play/gomoku.el" (21998 46517 190024
+;;;;;; 649000))
;;; Generated autoloads from play/gomoku.el
(autoload 'gomoku "gomoku" "\
@@ -12744,8 +12770,8 @@ Retrieve MAIL-ADDRESS gravatar and returns it.
;;;***
-;;;### (autoloads nil "grep" "progmodes/grep.el" (21903 51634 290370
-;;;;;; 580000))
+;;;### (autoloads nil "grep" "progmodes/grep.el" (22027 46774 676310
+;;;;;; 591000))
;;; Generated autoloads from progmodes/grep.el
(defvar grep-window-height nil "\
@@ -12922,8 +12948,8 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if
successful.
;;;***
-;;;### (autoloads nil "gud" "progmodes/gud.el" (21769 20661 366048
-;;;;;; 601000))
+;;;### (autoloads nil "gud" "progmodes/gud.el" (22018 31799 115263
+;;;;;; 120000))
;;; Generated autoloads from progmodes/gud.el
(autoload 'gud-gdb "gud" "\
@@ -13018,8 +13044,8 @@ it if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (21976 19509 880430
-;;;;;; 241000))
+;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (22011 58553 409858
+;;;;;; 469000))
;;; Generated autoloads from emacs-lisp/gv.el
(autoload 'gv-get "gv" "\
@@ -13078,7 +13104,7 @@ return a Lisp form that does the assignment.
The first arg in ARGLIST (the one that receives VAL) receives an expression
which can do arbitrary things, whereas the other arguments are all guaranteed
to be pure and copyable. Example use:
- (gv-define-setter aref (v a i) `(aset ,a ,i ,v))
+ (gv-define-setter aref (v a i) \\=`(aset ,a ,i ,v))
\(fn NAME ARGLIST &rest BODY)" nil t)
@@ -13121,8 +13147,8 @@ binding mode.
;;;***
-;;;### (autoloads nil "handwrite" "play/handwrite.el" (21852 24381
-;;;;;; 887244 288000))
+;;;### (autoloads nil "handwrite" "play/handwrite.el" (22026 25907
+;;;;;; 631502 692000))
;;; Generated autoloads from play/handwrite.el
(autoload 'handwrite "handwrite" "\
@@ -13338,8 +13364,8 @@ different regions. With numeric argument ARG, behaves
like
;;;***
-;;;### (autoloads nil "help-fns" "help-fns.el" (21985 34484 226705
-;;;;;; 925000))
+;;;### (autoloads nil "help-fns" "help-fns.el" (22011 58553 601858
+;;;;;; 469000))
;;; Generated autoloads from help-fns.el
(autoload 'describe-function "help-fns" "\
@@ -13650,7 +13676,8 @@ This discards the buffer's undo information.
;;;***
-;;;### (autoloads nil "hi-lock" "hi-lock.el" (21741 1161 438890 423000))
+;;;### (autoloads nil "hi-lock" "hi-lock.el" (21993 28596 134597
+;;;;;; 473000))
;;; Generated autoloads from hi-lock.el
(autoload 'hi-lock-mode "hi-lock" "\
@@ -13865,8 +13892,8 @@ Several variables affect how the hiding is done:
;;;***
-;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (22026 25907
+;;;;;; 635502 692000))
;;; Generated autoloads from progmodes/hideshow.el
(defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil
nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1))
(java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\
@@ -14143,8 +14170,8 @@ Global-Hl-Line mode uses the functions
`global-hl-line-unhighlight' and
;;;***
-;;;### (autoloads nil "holidays" "calendar/holidays.el" (21980 16567
-;;;;;; 417544 893000))
+;;;### (autoloads nil "holidays" "calendar/holidays.el" (22026 25907
+;;;;;; 551502 692000))
;;; Generated autoloads from calendar/holidays.el
(defvar holiday-general-holidays (mapcar 'purecopy '((holiday-fixed 1 1 "New
Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2
"Groundhog Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-float 2 1 3
"President's Day") (holiday-fixed 3 17 "St. Patrick's Day") (holiday-fixed 4 1
"April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-float 5 1 -1
"Memorial Day") (holiday-fixed 6 14 "Flag Day") (holiday-float 6 0 3 "Father's
Day") (holiday-fixed 7 [...]
@@ -14203,8 +14230,8 @@ See the documentation for `calendar-holidays' for
details.")
(put 'holiday-islamic-holidays 'risky-local-variable t)
-(defvar holiday-bahai-holidays (mapcar 'purecopy '((holiday-bahai-new-year)
(holiday-bahai-ridvan) (holiday-fixed 5 23 "Declaration of the Báb")
(holiday-fixed 5 29 "Ascension of Bahá'u'lláh") (holiday-fixed 7 9 "Martyrdom
of the Báb") (holiday-fixed 10 20 "Birth of the Báb") (holiday-fixed 11 12
"Birth of Bahá'u'lláh") (if calendar-bahai-all-holidays-flag (append
(holiday-fixed 11 26 "Day of the Covenant") (holiday-fixed 11 28 "Ascension of
`Abdu'l-Bahá"))))) "\
-Bahá'í holidays.
+(defvar holiday-bahai-holidays (mapcar 'purecopy '((holiday-bahai-new-year)
(holiday-bahai-ridvan) (holiday-fixed 5 23 "Declaration of the Báb")
(holiday-fixed 5 29 "Ascension of Bahá’u’lláh") (holiday-fixed 7 9 "Martyrdom
of the Báb") (holiday-fixed 10 20 "Birth of the Báb") (holiday-fixed 11 12
"Birth of Bahá’u’lláh") (if calendar-bahai-all-holidays-flag (append
(holiday-fixed 11 26 "Day of the Covenant") (holiday-fixed 11 28 "Ascension of
`Abdu’l-Bahá"))))) "\
+Bahá’í holidays.
See the documentation for `calendar-holidays' for details.")
(custom-autoload 'holiday-bahai-holidays "holidays" t)
@@ -14265,8 +14292,8 @@ Convert HTML to plain text in the current buffer.
;;;***
-;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (21980 16567
-;;;;;; 701544 893000))
+;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (22026 25907
+;;;;;; 591502 692000))
;;; Generated autoloads from htmlfontify.el
(push (purecopy '(htmlfontify 0 21)) package--builtin-versions)
@@ -14402,8 +14429,8 @@ bound to the current value of the filter.
;;;***
-;;;### (autoloads nil "ibuffer" "ibuffer.el" (21980 16640 605544
-;;;;;; 893000))
+;;;### (autoloads nil "ibuffer" "ibuffer.el" (22026 25907 595502
+;;;;;; 692000))
;;; Generated autoloads from ibuffer.el
(autoload 'ibuffer-list-buffers "ibuffer" "\
@@ -14422,7 +14449,7 @@ buffers which are visiting a file.
(autoload 'ibuffer "ibuffer" "\
Begin using Ibuffer to edit a list of buffers.
-Type ‘h’ after entering ibuffer for more information.
+Type `h' after entering ibuffer for more information.
All arguments are optional.
OTHER-WINDOW-P says to use another window.
@@ -14442,8 +14469,8 @@ FORMATS is the value to use for `ibuffer-formats'.
;;;***
-;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (21980
-;;;;;; 16567 421544 893000))
+;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (22026
+;;;;;; 25907 551502 692000))
;;; Generated autoloads from calendar/icalendar.el
(push (purecopy '(icalendar 0 19)) package--builtin-versions)
@@ -14577,8 +14604,8 @@ with no args, if that value is non-nil.
;;;***
-;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (21980
-;;;;;; 16568 33544 893000))
+;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (22011
+;;;;;; 58553 905858 469000))
;;; Generated autoloads from progmodes/idlw-shell.el
(autoload 'idlwave-shell "idlw-shell" "\
@@ -14603,8 +14630,8 @@ See also the variable `idlwave-shell-prompt-pattern'.
;;;***
-;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (21988 10682
-;;;;;; 41624 461000))
+;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (22011 58553
+;;;;;; 909858 469000))
;;; Generated autoloads from progmodes/idlwave.el
(push (purecopy '(idlwave 6 1 22)) package--builtin-versions)
@@ -14733,7 +14760,7 @@ The main features of this mode are
;;;***
-;;;### (autoloads nil "ido" "ido.el" (21981 37426 619399 97000))
+;;;### (autoloads nil "ido" "ido.el" (22011 58553 641858 469000))
;;; Generated autoloads from ido.el
(defvar ido-mode nil "\
@@ -15007,7 +15034,7 @@ See `inferior-emacs-lisp-mode' for details.
;;;***
-;;;### (autoloads nil "iimage" "iimage.el" (21670 32331 385639 720000))
+;;;### (autoloads nil "iimage" "iimage.el" (21990 52406 604500 385000))
;;; Generated autoloads from iimage.el
(define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1")
@@ -15023,7 +15050,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG
is `toggle'.
;;;***
-;;;### (autoloads nil "image" "image.el" (21974 64192 580009 993000))
+;;;### (autoloads nil "image" "image.el" (22011 58553 641858 469000))
;;; Generated autoloads from image.el
(autoload 'image-type-from-data "image" "\
@@ -15216,8 +15243,8 @@ If Emacs is compiled without ImageMagick support, this
does nothing.
;;;***
-;;;### (autoloads nil "image-dired" "image-dired.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "image-dired" "image-dired.el" (22011 58553
+;;;;;; 641858 469000))
;;; Generated autoloads from image-dired.el
(push (purecopy '(image-dired 0 4 11)) package--builtin-versions)
@@ -15634,8 +15661,8 @@ Convert old Emacs Devanagari characters to UCS.
;;;***
-;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (21887 31404
-;;;;;; 272735 656000))
+;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (22011 58553
+;;;;;; 909858 469000))
;;; Generated autoloads from progmodes/inf-lisp.el
(autoload 'inferior-lisp "inf-lisp" "\
@@ -15653,7 +15680,7 @@ of `inferior-lisp-program'). Runs the hooks from
;;;***
-;;;### (autoloads nil "info" "info.el" (21985 34484 234705 925000))
+;;;### (autoloads nil "info" "info.el" (22011 58553 645858 469000))
;;; Generated autoloads from info.el
(defcustom Info-default-directory-list (let* ((config-dir
(file-name-as-directory (or (and (featurep 'ns) (let ((dir (expand-file-name
"../info" data-directory))) (if (file-directory-p dir) dir)))
configure-info-directory))) (prefixes (prune-directory-list '("/usr/local/"
"/usr/" "/opt/" "/"))) (suffixes '("share/" "" "gnu/" "gnu/lib/"
"gnu/lib/emacs/" "emacs/" "lib/" "lib/emacs/")) (standard-info-dirs (apply
#'nconc (mapcar (lambda (pfx) (let ((dirs (mapcar (lambda (sfx) (concat pfx sfx
[...]
@@ -15865,8 +15892,8 @@ completion alternatives to currently visited manuals.
;;;***
-;;;### (autoloads nil "info-look" "info-look.el" (21862 60209 738095
-;;;;;; 873000))
+;;;### (autoloads nil "info-look" "info-look.el" (22011 58553 641858
+;;;;;; 469000))
;;; Generated autoloads from info-look.el
(autoload 'info-lookup-reset "info-look" "\
@@ -16058,8 +16085,8 @@ For example, invoke \"emacs -batch -f
batch-info-validate $info/ ~/*.info\"
;;;***
-;;;### (autoloads nil "inversion" "cedet/inversion.el" (21670 32330
-;;;;;; 885624 725000))
+;;;### (autoloads nil "inversion" "cedet/inversion.el" (21993 28595
+;;;;;; 998597 473000))
;;; Generated autoloads from cedet/inversion.el
(push (purecopy '(inversion 1 3)) package--builtin-versions)
@@ -16071,8 +16098,8 @@ Only checks one based on which kind of Emacs is being
run.
;;;***
-;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (21670
-;;;;;; 32331 385639 720000))
+;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (22003
+;;;;;; 64432 624146 533000))
;;; Generated autoloads from international/isearch-x.el
(autoload 'isearch-toggle-specified-input-method "isearch-x" "\
@@ -16107,8 +16134,8 @@ accessed via isearchb.
;;;***
-;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (21670
-;;;;;; 32331 385639 720000))
+;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (22011
+;;;;;; 58553 645858 469000))
;;; Generated autoloads from international/iso-cvt.el
(autoload 'iso-spanish "iso-cvt" "\
@@ -16206,8 +16233,8 @@ Add submenus to the File menu, to convert to and from
various formats.
;;;***
-;;;### (autoloads nil "ispell" "textmodes/ispell.el" (21988 10682
-;;;;;; 97624 461000))
+;;;### (autoloads nil "ispell" "textmodes/ispell.el" (22011 58554
+;;;;;; 45858 469000))
;;; Generated autoloads from textmodes/ispell.el
(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t
exclusive))))
@@ -16440,8 +16467,8 @@ You can bind this to the key C-c i in GNUS or mail by
adding to
;;;***
-;;;### (autoloads nil "japan-util" "language/japan-util.el" (21670
-;;;;;; 32331 385639 720000))
+;;;### (autoloads nil "japan-util" "language/japan-util.el" (22011
+;;;;;; 58553 673858 469000))
;;; Generated autoloads from language/japan-util.el
(autoload 'setup-japanese-environment-internal "japan-util" "\
@@ -16454,9 +16481,9 @@ Convert argument to Katakana and return that.
The argument may be a character or string. The result has the same type.
The argument object is not altered--the value is a copy.
Optional argument HANKAKU t means to convert to `hankaku' Katakana
- (`japanese-jisx0201-kana'), in which case return value
- may be a string even if OBJ is a character if two Katakanas are
- necessary to represent OBJ.
+\(`japanese-jisx0201-kana'), in which case return value
+may be a string even if OBJ is a character if two Katakanas are
+necessary to represent OBJ.
\(fn OBJ &optional HANKAKU)" nil nil)
@@ -16542,8 +16569,8 @@ by `jka-compr-installed'.
;;;***
-;;;### (autoloads nil "js" "progmodes/js.el" (21976 19510 104430
-;;;;;; 241000))
+;;;### (autoloads nil "js" "progmodes/js.el" (22026 25907 635502
+;;;;;; 692000))
;;; Generated autoloads from progmodes/js.el
(push (purecopy '(js 9)) package--builtin-versions)
@@ -16557,7 +16584,7 @@ Major mode for editing JavaScript.
;;;***
-;;;### (autoloads nil "json" "json.el" (21985 34484 234705 925000))
+;;;### (autoloads nil "json" "json.el" (21998 46517 78024 649000))
;;; Generated autoloads from json.el
(push (purecopy '(json 1 4)) package--builtin-versions)
@@ -16664,7 +16691,7 @@ and the return value is the length of the conversion.
;;;***
-;;;### (autoloads nil "kmacro" "kmacro.el" (21953 58033 303058 929000))
+;;;### (autoloads nil "kmacro" "kmacro.el" (21990 52406 604500 385000))
;;; Generated autoloads from kmacro.el
(global-set-key "\C-x(" 'kmacro-start-macro)
(global-set-key "\C-x)" 'kmacro-end-macro)
@@ -16862,7 +16889,7 @@ coding system names is determined from
`latex-inputenc-coding-alist'.
;;;***
;;;### (autoloads nil "latin1-disp" "international/latin1-disp.el"
-;;;;;; (21670 32331 385639 720000))
+;;;;;; (22011 58553 645858 469000))
;;; Generated autoloads from international/latin1-disp.el
(defvar latin1-display nil "\
@@ -17004,8 +17031,8 @@ See `linum-mode' for more information on Linum mode.
;;;***
-;;;### (autoloads nil "loadhist" "loadhist.el" (21964 28338 113695
-;;;;;; 749000))
+;;;### (autoloads nil "loadhist" "loadhist.el" (22011 58553 673858
+;;;;;; 469000))
;;; Generated autoloads from loadhist.el
(autoload 'unload-feature "loadhist" "\
@@ -17088,8 +17115,8 @@ except that FILTER is not optional.
;;;***
-;;;### (autoloads nil "log-edit" "vc/log-edit.el" (21942 1330 837986
-;;;;;; 820000))
+;;;### (autoloads nil "log-edit" "vc/log-edit.el" (22011 58554 93858
+;;;;;; 469000))
;;; Generated autoloads from vc/log-edit.el
(autoload 'log-edit "log-edit" "\
@@ -17131,7 +17158,7 @@ Major mode for browsing CVS log output.
;;;***
-;;;### (autoloads nil "lpr" "lpr.el" (21670 32331 385639 720000))
+;;;### (autoloads nil "lpr" "lpr.el" (22011 58553 673858 469000))
;;; Generated autoloads from lpr.el
(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\
@@ -17226,8 +17253,8 @@ for further customization of the printer command.
;;;***
-;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21907 48688 729360
-;;;;;; 195000))
+;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21993 28596 150597
+;;;;;; 473000))
;;; Generated autoloads from ls-lisp.el
(defvar ls-lisp-support-shell-wildcards t "\
@@ -17251,8 +17278,8 @@ This function is suitable for execution in an init file.
;;;***
-;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (22015 55603
+;;;;;; 805705 321000))
;;; Generated autoloads from progmodes/m4-mode.el
(autoload 'm4-mode "m4-mode" "\
@@ -17351,8 +17378,8 @@ and then select the region of un-tablified names and use
;;;***
-;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (22026 25907
+;;;;;; 599502 692000))
;;; Generated autoloads from mail/mail-extr.el
(autoload 'mail-extract-address-components "mail-extr" "\
@@ -17537,8 +17564,8 @@ double-quotes.
;;;***
-;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21855 577
-;;;;;; 57945 485000))
+;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21993 28596
+;;;;;; 166597 473000))
;;; Generated autoloads from mail/mailalias.el
(defvar mail-complete-style 'angles "\
@@ -17591,8 +17618,8 @@ current header, calls `mail-complete-function' and
passes prefix ARG if any.
;;;***
-;;;### (autoloads nil "mailclient" "mail/mailclient.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "mailclient" "mail/mailclient.el" (22011 58553
+;;;;;; 693858 469000))
;;; Generated autoloads from mail/mailclient.el
(autoload 'mailclient-send-it "mailclient" "\
@@ -17604,8 +17631,8 @@ The mail client is taken to be the handler of mailto
URLs.
;;;***
-;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (21907
-;;;;;; 48688 777360 195000))
+;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (22011
+;;;;;; 58553 913858 469000))
;;; Generated autoloads from progmodes/make-mode.el
(autoload 'makefile-mode "make-mode" "\
@@ -17734,7 +17761,7 @@ Previous contents of that buffer are killed first.
;;;***
-;;;### (autoloads nil "man" "man.el" (21814 9129 320508 708000))
+;;;### (autoloads nil "man" "man.el" (22026 25907 603502 692000))
;;; Generated autoloads from man.el
(defalias 'manual-entry 'man)
@@ -17790,8 +17817,8 @@ Default bookmark handler for Man buffers.
;;;***
-;;;### (autoloads nil "map" "emacs-lisp/map.el" (21919 39857 593327
-;;;;;; 44000))
+;;;### (autoloads nil "map" "emacs-lisp/map.el" (21996 4784 808983
+;;;;;; 429000))
;;; Generated autoloads from emacs-lisp/map.el
(push (purecopy '(map 1 0)) package--builtin-versions)
@@ -17854,8 +17881,8 @@ recursion depth in the minibuffer prompt. This is only
useful if
;;;***
-;;;### (autoloads nil "message" "gnus/message.el" (21989 31537 871825
-;;;;;; 721000))
+;;;### (autoloads nil "message" "gnus/message.el" (22011 58553 581858
+;;;;;; 469000))
;;; Generated autoloads from gnus/message.el
(define-mail-user-agent 'message-user-agent 'message-mail
'message-send-and-exit 'message-kill-buffer 'message-send-hook)
@@ -18081,8 +18108,8 @@ redisplayed as output is inserted.
;;;***
-;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (21895 57521 622301
-;;;;;; 332000))
+;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (22011 58553 729858
+;;;;;; 469000))
;;; Generated autoloads from mh-e/mh-comp.el
(autoload 'mh-smail "mh-comp" "\
@@ -18172,7 +18199,7 @@ delete the draft message.
;;;***
-;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (21989 31537 923825 721000))
+;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (22011 58553 749858 469000))
;;; Generated autoloads from mh-e/mh-e.el
(push (purecopy '(mh-e 8 6)) package--builtin-versions)
@@ -18189,8 +18216,8 @@ Display version information about MH-E and the MH mail
handling system.
;;;***
-;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (22011 58553
+;;;;;; 749858 469000))
;;; Generated autoloads from mh-e/mh-folder.el
(autoload 'mh-rmail "mh-folder" "\
@@ -18531,8 +18558,8 @@ Insert file contents of URL using `mm-url-program'.
;;;***
-;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (21989 31537 875825
-;;;;;; 721000))
+;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (22010 37685 116774
+;;;;;; 305000))
;;; Generated autoloads from gnus/mm-uu.el
(autoload 'mm-uu-dissect "mm-uu" "\
@@ -18633,8 +18660,8 @@ body) or \"attachment\" (separate from the body).
;;;***
-;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (21989 31537
-;;;;;; 763825 721000))
+;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (22011 58553
+;;;;;; 245858 469000))
;;; Generated autoloads from cedet/mode-local.el
(put 'define-overloadable-function 'doc-string-elt 3)
@@ -18675,8 +18702,8 @@ followed by the first character of the construct.
;;;***
-;;;### (autoloads nil "morse" "play/morse.el" (21980 16567 969544
-;;;;;; 893000))
+;;;### (autoloads nil "morse" "play/morse.el" (22026 25907 631502
+;;;;;; 692000))
;;; Generated autoloads from play/morse.el
(autoload 'morse-region "morse" "\
@@ -18701,8 +18728,8 @@ Convert NATO phonetic alphabet in region to ordinary
ASCII text.
;;;***
-;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21906 58825 986640
-;;;;;; 200000))
+;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21993 28596 194597
+;;;;;; 473000))
;;; Generated autoloads from mouse-drag.el
(autoload 'mouse-drag-throw "mouse-drag" "\
@@ -18725,7 +18752,7 @@ about which direction is natural. Perhaps it has to do
with which
hemisphere you're in.)
To test this function, evaluate:
- (global-set-key [down-mouse-2] 'mouse-drag-throw)
+ (global-set-key [down-mouse-2] \\='mouse-drag-throw)
\(fn START-EVENT)" t nil)
@@ -18743,13 +18770,13 @@ Drag scrolling is identical to the \"hand\" option in
MacPaint, or the
middle button in Tk text widgets.
To test this function, evaluate:
- (global-set-key [down-mouse-2] 'mouse-drag-drag)
+ (global-set-key [down-mouse-2] \\='mouse-drag-drag)
\(fn START-EVENT)" t nil)
;;;***
-;;;### (autoloads nil "mpc" "mpc.el" (21980 16567 797544 893000))
+;;;### (autoloads nil "mpc" "mpc.el" (22002 43570 536887 749000))
;;; Generated autoloads from mpc.el
(autoload 'mpc "mpc" "\
@@ -18769,7 +18796,7 @@ Multiplication puzzle with GNU Emacs.
;;;***
-;;;### (autoloads nil "msb" "msb.el" (21978 61237 622488 269000))
+;;;### (autoloads nil "msb" "msb.el" (22011 58553 757858 469000))
;;; Generated autoloads from msb.el
(defvar msb-mode nil "\
@@ -18794,8 +18821,8 @@ different buffer menu using the function `msb'.
;;;***
-;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21978
-;;;;;; 61237 582488 269000))
+;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21998
+;;;;;; 46517 78024 649000))
;;; Generated autoloads from international/mule-diag.el
(autoload 'list-character-sets "mule-diag" "\
@@ -18927,8 +18954,8 @@ The default is 20. If LIMIT is negative, do not limit
the listing.
;;;***
-;;;### (autoloads nil "mule-util" "international/mule-util.el" (21931
-;;;;;; 31023 753164 572000))
+;;;### (autoloads nil "mule-util" "international/mule-util.el" (22002
+;;;;;; 43570 532887 749000))
;;; Generated autoloads from international/mule-util.el
(defsubst string-to-list (string) "\
@@ -19087,8 +19114,8 @@ QUALITY can be:
;;;***
-;;;### (autoloads nil "net-utils" "net/net-utils.el" (21826 50071
-;;;;;; 80489 638000))
+;;;### (autoloads nil "net-utils" "net/net-utils.el" (22011 58553
+;;;;;; 761858 469000))
;;; Generated autoloads from net/net-utils.el
(autoload 'ifconfig "net-utils" "\
@@ -19292,8 +19319,8 @@ asynchronously, if possible.
;;;***
-;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (21980
-;;;;;; 16567 809544 893000))
+;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (22011
+;;;;;; 58553 765858 469000))
;;; Generated autoloads from net/newst-backend.el
(autoload 'newsticker-running-p "newst-backend" "\
@@ -19325,8 +19352,8 @@ Start newsticker plainview.
;;;***
-;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (21670
-;;;;;; 32331 385639 720000))
+;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (22011
+;;;;;; 58553 765858 469000))
;;; Generated autoloads from net/newst-reader.el
(autoload 'newsticker-show-news "newst-reader" "\
@@ -19357,8 +19384,8 @@ running already.
;;;***
-;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21978
-;;;;;; 61237 654488 269000))
+;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21998
+;;;;;; 46517 110024 649000))
;;; Generated autoloads from net/newst-treeview.el
(autoload 'newsticker-treeview "newst-treeview" "\
@@ -19368,8 +19395,8 @@ Start newsticker treeview.
;;;***
-;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21948 40114 262686
-;;;;;; 453000))
+;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21990 52406 596500
+;;;;;; 385000))
;;; Generated autoloads from gnus/nndiary.el
(autoload 'nndiary-generate-nov-databases "nndiary" "\
@@ -19379,7 +19406,8 @@ Generate NOV databases in all nndiary directories.
;;;***
-;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (21855 576 927958 586000))
+;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (22011 58553 585858
+;;;;;; 469000))
;;; Generated autoloads from gnus/nndoc.el
(autoload 'nndoc-add-type "nndoc" "\
@@ -19462,9 +19490,9 @@ closing requests for requests that are used in matched
pairs.
;;;***
-;;;### (autoloads nil "ntlm" "net/ntlm.el" (21670 32331 385639 720000))
+;;;### (autoloads nil "ntlm" "net/ntlm.el" (21997 25649 666447 325000))
;;; Generated autoloads from net/ntlm.el
-(push (purecopy '(ntlm 1 0)) package--builtin-versions)
+(push (purecopy '(ntlm 2 0)) package--builtin-versions)
;;;***
@@ -19481,8 +19509,8 @@ Return nil if the face cannot display a glyph for N.
;;;***
-;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (22021 7991
+;;;;;; 61719 83000))
;;; Generated autoloads from nxml/nxml-mode.el
(autoload 'nxml-mode "nxml-mode" "\
@@ -19555,8 +19583,8 @@ the variable `nxml-enabled-unicode-blocks'.
;;;***
-;;;### (autoloads nil "octave" "progmodes/octave.el" (21988 10682
-;;;;;; 41624 461000))
+;;;### (autoloads nil "octave" "progmodes/octave.el" (22027 46774
+;;;;;; 680310 591000))
;;; Generated autoloads from progmodes/octave.el
(autoload 'octave-mode "octave" "\
@@ -19629,7 +19657,7 @@ Coloring:
;;;***
-;;;### (autoloads nil "org" "org/org.el" (21988 10682 25624 461000))
+;;;### (autoloads nil "org" "org/org.el" (22011 58553 849858 469000))
;;; Generated autoloads from org/org.el
(autoload 'org-babel-do-load-languages "org" "\
@@ -19850,8 +19878,8 @@ Call the customize function with org as argument.
;;;***
-;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (21988 10681
-;;;;;; 989624 461000))
+;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (22011 58553
+;;;;;; 805858 469000))
;;; Generated autoloads from org/org-agenda.el
(autoload 'org-toggle-sticky-agenda "org-agenda" "\
@@ -20103,10 +20131,10 @@ calling the function returns nil. This function
takes one
argument: an entry from `org-agenda-get-day-entries'.
FILTER can also be an alist with the car of each cell being
-either 'headline or 'category. For example:
+either `headline' or `category'. For example:
- '((headline \"IMPORTANT\")
- (category \"Work\"))
+ ((headline \"IMPORTANT\")
+ (category \"Work\"))
will only add headlines containing IMPORTANT or headlines
belonging to the \"Work\" category.
@@ -20124,8 +20152,8 @@ to override `appt-message-warning-time'.
;;;***
-;;;### (autoloads nil "org-capture" "org/org-capture.el" (21988 10681
-;;;;;; 989624 461000))
+;;;### (autoloads nil "org-capture" "org/org-capture.el" (21993 28596
+;;;;;; 242597 473000))
;;; Generated autoloads from org/org-capture.el
(autoload 'org-capture-string "org-capture" "\
@@ -20167,8 +20195,8 @@ Set `org-capture-templates' to be similar to
`org-remember-templates'.
;;;***
-;;;### (autoloads nil "org-colview" "org/org-colview.el" (21948 40114
-;;;;;; 334686 453000))
+;;;### (autoloads nil "org-colview" "org/org-colview.el" (22011 58553
+;;;;;; 809858 469000))
;;; Generated autoloads from org/org-colview.el
(autoload 'org-columns-remove-overlays "org-colview" "\
@@ -20271,8 +20299,8 @@ The Git version of org-mode.
;;;***
-;;;### (autoloads nil "outline" "outline.el" (21981 37426 663399
-;;;;;; 97000))
+;;;### (autoloads nil "outline" "outline.el" (21990 52406 672500
+;;;;;; 385000))
;;; Generated autoloads from outline.el
(put 'outline-regexp 'safe-local-variable 'stringp)
(put 'outline-heading-end-regexp 'safe-local-variable 'stringp)
@@ -20315,8 +20343,8 @@ See the command `outline-mode' for more information on
this mode.
;;;***
-;;;### (autoloads nil "package" "emacs-lisp/package.el" (21978 61237
-;;;;;; 494488 269000))
+;;;### (autoloads nil "package" "emacs-lisp/package.el" (22000 31493
+;;;;;; 736082 901000))
;;; Generated autoloads from emacs-lisp/package.el
(push (purecopy '(package 1 0 1)) package--builtin-versions)
@@ -20337,6 +20365,9 @@ The variable `package-load-list' controls which
packages to load.
If optional arg NO-ACTIVATE is non-nil, don't activate packages.
If `user-init-file' does not mention `(package-initialize)', add
it to the file.
+If called as part of loading `user-init-file', set
+`package-enable-at-startup' to nil, to prevent accidentally
+loading packages twice.
\(fn &optional NO-ACTIVATE)" t nil)
@@ -20540,8 +20571,8 @@ Check if KEY is in the cache.
;;;***
-;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (21980 16567
-;;;;;; 509544 893000))
+;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (22026 25907
+;;;;;; 583502 692000))
;;; Generated autoloads from emacs-lisp/pcase.el
(autoload 'pcase "pcase" "\
@@ -20642,8 +20673,8 @@ to this macro.
;;;***
-;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21980 16567 953544
-;;;;;; 893000))
+;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21998 46517 178024
+;;;;;; 649000))
;;; Generated autoloads from pcmpl-cvs.el
(autoload 'pcomplete/cvs "pcmpl-cvs" "\
@@ -20936,8 +20967,8 @@ Global menu used by PCL-CVS.")
;;;***
-;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (21887
-;;;;;; 19055 813447 760000))
+;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (22011
+;;;;;; 58553 921858 469000))
;;; Generated autoloads from progmodes/perl-mode.el
(put 'perl-indent-level 'safe-local-variable 'integerp)
(put 'perl-continued-statement-offset 'safe-local-variable 'integerp)
@@ -21110,8 +21141,8 @@ Major mode for editing PLSTORE files.
;;;***
-;;;### (autoloads nil "po" "textmodes/po.el" (21670 32331 885635
-;;;;;; 586000))
+;;;### (autoloads nil "po" "textmodes/po.el" (22026 25907 651502
+;;;;;; 692000))
;;; Generated autoloads from textmodes/po.el
(autoload 'po-find-file-coding-system "po" "\
@@ -21200,8 +21231,8 @@ Ignores leading comment characters.
;;;***
-;;;### (autoloads nil "printing" "printing.el" (21981 37426 679399
-;;;;;; 97000))
+;;;### (autoloads nil "printing" "printing.el" (21990 52406 680500
+;;;;;; 385000))
;;; Generated autoloads from printing.el
(push (purecopy '(printing 6 9 3)) package--builtin-versions)
@@ -21789,7 +21820,7 @@ are both set to t.
;;;***
-;;;### (autoloads nil "proced" "proced.el" (21981 37426 683399 97000))
+;;;### (autoloads nil "proced" "proced.el" (21998 46517 190024 649000))
;;; Generated autoloads from proced.el
(autoload 'proced "proced" "\
@@ -21847,8 +21878,8 @@ Return the project instance in DIR or
`default-directory'.
;;;***
-;;;### (autoloads nil "prolog" "progmodes/prolog.el" (21955 13362
-;;;;;; 392569 401000))
+;;;### (autoloads nil "prolog" "progmodes/prolog.el" (22027 46774
+;;;;;; 684310 591000))
;;; Generated autoloads from progmodes/prolog.el
(autoload 'prolog-mode "prolog" "\
@@ -21939,8 +21970,8 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when
the cursor is at the number
;;;***
-;;;### (autoloads nil "ps-print" "ps-print.el" (21981 37426 699399
-;;;;;; 97000))
+;;;### (autoloads nil "ps-print" "ps-print.el" (22011 58553 993858
+;;;;;; 469000))
;;; Generated autoloads from ps-print.el
(push (purecopy '(ps-print 7 3 5)) package--builtin-versions)
@@ -22156,8 +22187,8 @@ Optional argument FACE specifies the face to do the
highlighting.
;;;***
-;;;### (autoloads nil "python" "progmodes/python.el" (21980 16568
-;;;;;; 37544 893000))
+;;;### (autoloads nil "python" "progmodes/python.el" (22026 25907
+;;;;;; 639502 692000))
;;; Generated autoloads from progmodes/python.el
(push (purecopy '(python 0 25 1)) package--builtin-versions)
@@ -22544,8 +22575,8 @@ Display `quickurl-list' as a formatted list using
`quickurl-list-mode'.
;;;***
-;;;### (autoloads nil "rcirc" "net/rcirc.el" (21980 16567 809544
-;;;;;; 893000))
+;;;### (autoloads nil "rcirc" "net/rcirc.el" (22011 58553 765858
+;;;;;; 469000))
;;; Generated autoloads from net/rcirc.el
(autoload 'rcirc "rcirc" "\
@@ -22583,8 +22614,8 @@ if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21976
-;;;;;; 19509 900430 241000))
+;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21998
+;;;;;; 46517 18024 649000))
;;; Generated autoloads from emacs-lisp/re-builder.el
(defalias 'regexp-builder 're-builder)
@@ -22602,8 +22633,8 @@ matching parts of the target buffer will be highlighted.
;;;***
-;;;### (autoloads nil "recentf" "recentf.el" (21981 37426 699399
-;;;;;; 97000))
+;;;### (autoloads nil "recentf" "recentf.el" (21998 46517 266024
+;;;;;; 649000))
;;; Generated autoloads from recentf.el
(defvar recentf-mode nil "\
@@ -22790,8 +22821,8 @@ For true \"word wrap\" behavior, use `visual-line-mode'
instead.
;;;***
-;;;### (autoloads nil "reftex" "textmodes/reftex.el" (21980 16640
-;;;;;; 469544 893000))
+;;;### (autoloads nil "reftex" "textmodes/reftex.el" (22026 25907
+;;;;;; 655502 692000))
;;; Generated autoloads from textmodes/reftex.el
(autoload 'reftex-citation "reftex-cite" nil t)
(autoload 'reftex-all-document-files "reftex-parse")
@@ -22844,8 +22875,8 @@ This enforces rescanning the buffer on next use.
;;;***
-;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (21887
-;;;;;; 63409 948052 707000))
+;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (22025
+;;;;;; 5040 882195 139000))
;;; Generated autoloads from textmodes/reftex-vars.el
(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x)
(symbolp x))))
(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x)
(symbolp x))))
@@ -22854,8 +22885,8 @@ This enforces rescanning the buffer on next use.
;;;***
-;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (21670
-;;;;;; 32330 885624 725000))
+;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (22011
+;;;;;; 58553 413858 469000))
;;; Generated autoloads from emacs-lisp/regexp-opt.el
(autoload 'regexp-opt "regexp-opt" "\
@@ -22866,7 +22897,7 @@ is enclosed by at least one regexp grouping construct.
The returned regexp is typically more efficient than the equivalent regexp:
(let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\")))
- (concat open (mapconcat 'regexp-quote STRINGS \"\\\\|\") close))
+ (concat open (mapconcat \\='regexp-quote STRINGS \"\\\\|\") close))
If PAREN is `words', then the resulting regexp is additionally surrounded
by \\=\\< and \\>.
@@ -23063,8 +23094,8 @@ the mode if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21976 19509 900430
-;;;;;; 241000))
+;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21998 46517 18024
+;;;;;; 649000))
;;; Generated autoloads from emacs-lisp/ring.el
(autoload 'ring-p "ring" "\
@@ -23079,8 +23110,8 @@ Make a ring that can contain SIZE elements.
;;;***
-;;;### (autoloads nil "rlogin" "net/rlogin.el" (21978 61237 654488
-;;;;;; 269000))
+;;;### (autoloads nil "rlogin" "net/rlogin.el" (22011 58553 765858
+;;;;;; 469000))
;;; Generated autoloads from net/rlogin.el
(autoload 'rlogin "rlogin" "\
@@ -23124,8 +23155,8 @@ variable.
;;;***
-;;;### (autoloads nil "rmail" "mail/rmail.el" (21989 31537 903825
-;;;;;; 721000))
+;;;### (autoloads nil "rmail" "mail/rmail.el" (22011 58553 725858
+;;;;;; 469000))
;;; Generated autoloads from mail/rmail.el
(defvar rmail-file-name (purecopy "~/RMAIL") "\
@@ -23541,8 +23572,8 @@ Toggle the use of ROT13 encoding for the current window.
;;;***
-;;;### (autoloads nil "rst" "textmodes/rst.el" (21955 13362 436569
-;;;;;; 401000))
+;;;### (autoloads nil "rst" "textmodes/rst.el" (22026 25907 659502
+;;;;;; 692000))
;;; Generated autoloads from textmodes/rst.el
(add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode)))
@@ -23572,8 +23603,8 @@ for modes derived from Text mode, like Mail mode.
;;;***
-;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (21955
-;;;;;; 13362 400569 401000))
+;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (22015
+;;;;;; 55603 817705 321000))
;;; Generated autoloads from progmodes/ruby-mode.el
(push (purecopy '(ruby-mode 1 2)) package--builtin-versions)
@@ -23590,8 +23621,8 @@ Major mode for editing Ruby code.
;;;***
-;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (21906 58826 62640
-;;;;;; 200000))
+;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (22026 25907 643502
+;;;;;; 692000))
;;; Generated autoloads from ruler-mode.el
(push (purecopy '(ruler-mode 1 6)) package--builtin-versions)
@@ -23609,8 +23640,8 @@ if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (21980 16567 509544
-;;;;;; 893000))
+;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (22011 58553 441858
+;;;;;; 469000))
;;; Generated autoloads from emacs-lisp/rx.el
(autoload 'rx-to-string "rx" "\
@@ -23983,8 +24014,8 @@ where it was when you previously visited the same file.
;;;***
-;;;### (autoloads nil "scheme" "progmodes/scheme.el" (21670 32331
-;;;;;; 385639 720000))
+;;;### (autoloads nil "scheme" "progmodes/scheme.el" (22011 58553
+;;;;;; 925858 469000))
;;; Generated autoloads from progmodes/scheme.el
(autoload 'scheme-mode "scheme" "\
@@ -24080,8 +24111,8 @@ vertically fixed relative to window boundaries during
scrolling.
;;;***
-;;;### (autoloads nil "secrets" "net/secrets.el" (21855 577 177946
-;;;;;; 739000))
+;;;### (autoloads nil "secrets" "net/secrets.el" (22011 58553 765858
+;;;;;; 469000))
;;; Generated autoloads from net/secrets.el
(when (featurep 'dbusbind)
(autoload 'secrets-show-secrets "secrets" nil t))
@@ -24168,8 +24199,8 @@ Major mode for editing Wisent grammars.
;;;***
-;;;### (autoloads nil "sendmail" "mail/sendmail.el" (21964 28338
-;;;;;; 141695 749000))
+;;;### (autoloads nil "sendmail" "mail/sendmail.el" (22026 25907
+;;;;;; 603502 692000))
;;; Generated autoloads from mail/sendmail.el
(defvar mail-from-style 'default "\
@@ -24450,14 +24481,14 @@ Like `mail' command, but display mail buffer in
another frame.
;;;***
-;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (21982 58292 436758
-;;;;;; 717000))
+;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (22026 25907 583502
+;;;;;; 692000))
;;; Generated autoloads from emacs-lisp/seq.el
(push (purecopy '(seq 2 0)) package--builtin-versions)
;;;***
-;;;### (autoloads nil "server" "server.el" (21981 37426 703399 97000))
+;;;### (autoloads nil "server" "server.el" (21998 46517 270024 649000))
;;; Generated autoloads from server.el
(put 'server-host 'risky-local-variable t)
@@ -24524,7 +24555,7 @@ only these files will be asked to be saved.
;;;***
-;;;### (autoloads nil "ses" "ses.el" (21981 37426 711399 97000))
+;;;### (autoloads nil "ses" "ses.el" (21990 52406 736500 385000))
;;; Generated autoloads from ses.el
(autoload 'ses-mode "ses" "\
@@ -24568,8 +24599,8 @@ formula:
;;;***
-;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (21988
-;;;;;; 10682 97624 461000))
+;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (22011
+;;;;;; 58554 69858 469000))
;;; Generated autoloads from textmodes/sgml-mode.el
(autoload 'sgml-mode "sgml-mode" "\
@@ -24626,7 +24657,7 @@ Images in many formats can be inlined with <img
src=\"URL\">.
If you mainly create your own documents, `sgml-specials' might be
interesting. But note that some HTML 2 browsers can't handle `''.
To work around that, do:
- (eval-after-load \"sgml-mode\" '(aset sgml-char-names ?\\=' nil))
+ (eval-after-load \"sgml-mode\" \\='(aset sgml-char-names ?\\=' nil))
\\{html-mode-map}
@@ -24634,8 +24665,8 @@ To work around that, do:
;;;***
-;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (21965
-;;;;;; 49202 339586 285000))
+;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (22027
+;;;;;; 46774 688310 591000))
;;; Generated autoloads from progmodes/sh-script.el
(push (purecopy '(sh-script 2 0 6)) package--builtin-versions)
(put 'sh-shell 'safe-local-variable 'symbolp)
@@ -24698,8 +24729,8 @@ with your script for an edit-interpret-debug cycle.
;;;***
-;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (21980 16567
-;;;;;; 509544 893000))
+;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (22026 25907
+;;;;;; 583502 692000))
;;; Generated autoloads from emacs-lisp/shadow.el
(autoload 'list-load-path-shadows "shadow" "\
@@ -24835,7 +24866,7 @@ Otherwise, one argument `-i' is passed to the shell.
;;;***
-;;;### (autoloads nil "shr" "net/shr.el" (21837 20530 521200 565000))
+;;;### (autoloads nil "shr" "net/shr.el" (22026 25907 631502 692000))
;;; Generated autoloads from net/shr.el
(autoload 'shr-render-region "shr" "\
@@ -24943,8 +24974,8 @@ with no arguments, if that value is non-nil.
;;;***
-;;;### (autoloads nil "skeleton" "skeleton.el" (21980 16568 61544
-;;;;;; 893000))
+;;;### (autoloads nil "skeleton" "skeleton.el" (22026 25907 643502
+;;;;;; 692000))
;;; Generated autoloads from skeleton.el
(defvar skeleton-filter-function 'identity "\
@@ -25271,7 +25302,7 @@ Pick your favorite shortcuts:
;;;***
-;;;### (autoloads nil "sort" "sort.el" (21670 32331 885635 586000))
+;;;### (autoloads nil "sort" "sort.el" (22011 58553 993858 469000))
;;; Generated autoloads from sort.el
(put 'sort-fold-case 'safe-local-variable 'booleanp)
@@ -25460,8 +25491,8 @@ installed through `spam-necessary-extra-headers'.
;;;***
-;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (21989
-;;;;;; 31537 879825 721000))
+;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (22011
+;;;;;; 58553 601858 469000))
;;; Generated autoloads from gnus/spam-report.el
(autoload 'spam-report-process-queue "spam-report" "\
@@ -25503,8 +25534,8 @@ Spam reports will be queued with the method used when
;;;***
-;;;### (autoloads nil "speedbar" "speedbar.el" (21670 32331 885635
-;;;;;; 586000))
+;;;### (autoloads nil "speedbar" "speedbar.el" (22011 58553 993858
+;;;;;; 469000))
;;; Generated autoloads from speedbar.el
(defalias 'speedbar 'speedbar-frame-mode)
@@ -25544,8 +25575,8 @@ Return a vector containing the lines from
`spook-phrases-file'.
;;;***
-;;;### (autoloads nil "sql" "progmodes/sql.el" (21980 16568 41544
-;;;;;; 893000))
+;;;### (autoloads nil "sql" "progmodes/sql.el" (22011 58553 929858
+;;;;;; 469000))
;;; Generated autoloads from progmodes/sql.el
(push (purecopy '(sql 3 5)) package--builtin-versions)
@@ -25562,8 +25593,8 @@ of the current highlighting list.
For example:
- (sql-add-product-keywords 'ms
- '((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
+ (sql-add-product-keywords \\='ms
+ \\='((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
adds a fontification pattern to fontify identifiers ending in
`_t' as data types.
@@ -26019,7 +26050,7 @@ Run vsql as an inferior process.
;;;***
;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el"
-;;;;;; (21978 61237 382488 269000))
+;;;;;; (21998 46516 910024 649000))
;;; Generated autoloads from cedet/srecode/srt-mode.el
(autoload 'srecode-template-mode "srecode/srt-mode" "\
@@ -26374,8 +26405,8 @@ The variable `tab-width' controls the spacing of tab
stops.
;;;***
-;;;### (autoloads nil "table" "textmodes/table.el" (21974 64192 704009
-;;;;;; 993000))
+;;;### (autoloads nil "table" "textmodes/table.el" (21998 46517 298024
+;;;;;; 649000))
;;; Generated autoloads from textmodes/table.el
(autoload 'table-insert "table" "\
@@ -26688,15 +26719,15 @@ ORIENTATION is a symbol either horizontally or
vertically.
(autoload 'table-justify "table" "\
Justify contents of a cell, a row of cells or a column of cells.
-WHAT is a symbol ‘cell’, ‘row’ or ‘column’. JUSTIFY is a symbol
-‘left’, ‘center’, ‘right’, ‘top’, ‘middle’, ‘bottom’ or ‘none’.
+WHAT is a symbol `cell', `row' or `column'. JUSTIFY is a symbol
+`left', `center', `right', `top', `middle', `bottom' or `none'.
\(fn WHAT JUSTIFY)" t nil)
(autoload 'table-justify-cell "table" "\
Justify cell contents.
-JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, or ‘top’,
-‘middle’, ‘bottom’ or ‘none’ for vertical. When optional PARAGRAPH is
+JUSTIFY is a symbol `left', `center' or `right' for horizontal, or `top',
+`middle', `bottom' or `none' for vertical. When optional PARAGRAPH is
non-nil the justify operation is limited to the current paragraph,
otherwise the entire cell contents is justified.
@@ -26704,15 +26735,15 @@ otherwise the entire cell contents is justified.
(autoload 'table-justify-row "table" "\
Justify cells of a row.
-JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal,
-or ‘top’, ‘middle’, ‘bottom’ or ‘none’ for vertical.
+JUSTIFY is a symbol `left', `center' or `right' for horizontal,
+or `top', `middle', `bottom' or `none' for vertical.
\(fn JUSTIFY)" t nil)
(autoload 'table-justify-column "table" "\
Justify cells of a column.
-JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal,
-or ‘top’, ‘middle’, ‘bottom’ or ‘none’ for vertical.
+JUSTIFY is a symbol `left', `center' or `right' for horizontal,
+or `top', `middle', `bottom' or `none' for vertical.
\(fn JUSTIFY)" t nil)
@@ -26785,25 +26816,25 @@ INTERVAL is the number of cells to travel between
sequence element
insertion which is normally 1. When zero or less is given for
INTERVAL it is interpreted as number of cells per row so that sequence
is placed straight down vertically as long as the table's cell
-structure is uniform. JUSTIFY is a symbol ‘left’, ‘center’ or
-‘right’ that specifies justification of the inserted string.
+structure is uniform. JUSTIFY is a symbol `left', `center' or
+`right' that specifies justification of the inserted string.
Example:
(progn
(table-insert 16 3 5 1)
(table-forward-cell 15)
- (table-insert-sequence \"D0\" -16 1 1 'center)
+ (table-insert-sequence \"D0\" -16 1 1 \\='center)
(table-forward-cell 16)
- (table-insert-sequence \"A[0]\" -16 1 1 'center)
+ (table-insert-sequence \"A[0]\" -16 1 1 \\='center)
(table-forward-cell 1)
- (table-insert-sequence \"-\" 16 0 1 'center))
+ (table-insert-sequence \"-\" 16 0 1 \\='center))
(progn
(table-insert 16 8 5 1)
- (table-insert-sequence \"@\" 0 1 2 'right)
+ (table-insert-sequence \"@\" 0 1 2 \\='right)
(table-forward-cell 1)
- (table-insert-sequence \"64\" 0 1 2 'left))
+ (table-insert-sequence \"64\" 0 1 2 \\='left))
\(fn STR N INCREMENT INTERVAL JUSTIFY)" t nil)
@@ -27060,7 +27091,7 @@ Normally input is edited in Emacs and sent a line at a
time.
;;;***
-;;;### (autoloads nil "term" "term.el" (21953 58033 491058 929000))
+;;;### (autoloads nil "term" "term.el" (22011 58553 997858 469000))
;;; Generated autoloads from term.el
(autoload 'make-term "term" "\
@@ -27102,8 +27133,8 @@ use in that buffer.
;;;***
-;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21976
-;;;;;; 19509 908430 241000))
+;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21998
+;;;;;; 46517 22024 649000))
;;; Generated autoloads from emacs-lisp/testcover.el
(autoload 'testcover-this-defun "testcover" "\
@@ -27113,8 +27144,8 @@ Start coverage on function under point.
;;;***
-;;;### (autoloads nil "tetris" "play/tetris.el" (21670 32331 385639
-;;;;;; 720000))
+;;;### (autoloads nil "tetris" "play/tetris.el" (22000 1842 148539
+;;;;;; 693000))
;;; Generated autoloads from play/tetris.el
(push (purecopy '(tetris 2 1)) package--builtin-versions)
@@ -27139,8 +27170,8 @@ tetris-mode keybindings:
;;;***
-;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (21980 16568
-;;;;;; 85544 893000))
+;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (22026 25907
+;;;;;; 663502 692000))
;;; Generated autoloads from textmodes/tex-mode.el
(defvar tex-shell-file-name nil "\
@@ -27441,8 +27472,8 @@ Major mode to edit DocTeX files.
;;;***
-;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (21988 10682
-;;;;;; 101624 461000))
+;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (22011 58554
+;;;;;; 81858 469000))
;;; Generated autoloads from textmodes/texinfmt.el
(autoload 'texinfo-format-buffer "texinfmt" "\
@@ -27481,8 +27512,8 @@ if large. You can use `Info-split' to do this manually.
;;;***
-;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (21980 16568
-;;;;;; 89544 893000))
+;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (22026 25907
+;;;;;; 667502 692000))
;;; Generated autoloads from textmodes/texinfo.el
(defvar texinfo-open-quote (purecopy "``") "\
@@ -27594,8 +27625,8 @@ Compose Thai characters in the current buffer.
;;;***
-;;;### (autoloads nil "thingatpt" "thingatpt.el" (21918 18992 829579
-;;;;;; 660000))
+;;;### (autoloads nil "thingatpt" "thingatpt.el" (22011 58554 85858
+;;;;;; 469000))
;;; Generated autoloads from thingatpt.el
(autoload 'forward-thing "thingatpt" "\
@@ -27659,7 +27690,7 @@ Return the Lisp list at point, or nil if none is found.
;;;***
-;;;### (autoloads nil "thumbs" "thumbs.el" (21974 64192 708009 993000))
+;;;### (autoloads nil "thumbs" "thumbs.el" (21993 28596 414597 473000))
;;; Generated autoloads from thumbs.el
(autoload 'thumbs-find-thumb "thumbs" "\
@@ -27767,8 +27798,8 @@ See also docstring of the function
tibetan-compose-region.
;;;***
-;;;### (autoloads nil "tildify" "textmodes/tildify.el" (21852 24382
-;;;;;; 87256 328000))
+;;;### (autoloads nil "tildify" "textmodes/tildify.el" (22026 25907
+;;;;;; 667502 692000))
;;; Generated autoloads from textmodes/tildify.el
(push (purecopy '(tildify 4 6 1)) package--builtin-versions)
@@ -27834,7 +27865,7 @@ variable will be set to the representation.
;;;***
-;;;### (autoloads nil "time" "time.el" (21942 1330 821986 820000))
+;;;### (autoloads nil "time" "time.el" (22026 25907 667502 692000))
;;; Generated autoloads from time.el
(defvar display-time-day-and-date nil "\
@@ -27896,8 +27927,8 @@ Return a string giving the duration of the Emacs
initialization.
;;;***
-;;;### (autoloads nil "time-date" "calendar/time-date.el" (21976
-;;;;;; 19509 736430 241000))
+;;;### (autoloads nil "time-date" "calendar/time-date.el" (22000
+;;;;;; 55581 510930 477000))
;;; Generated autoloads from calendar/time-date.el
(autoload 'date-to-time "time-date" "\
@@ -28041,8 +28072,8 @@ With ARG, turn time stamping on if and only if arg is
positive.
;;;***
-;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21980
-;;;;;; 16567 425544 893000))
+;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21998
+;;;;;; 46516 882024 649000))
;;; Generated autoloads from calendar/timeclock.el
(push (purecopy '(timeclock 2 6 1)) package--builtin-versions)
@@ -28152,7 +28183,7 @@ relative only to the time worked today, and not to past
time.
;;;***
;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el"
-;;;;;; (21988 10681 981624 461000))
+;;;;;; (22011 58553 673858 469000))
;;; Generated autoloads from international/titdic-cnv.el
(autoload 'titdic-convert "titdic-cnv" "\
@@ -28216,8 +28247,8 @@ Its value should be an event that has a binding in MENU.
;;;***
-;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (21985
-;;;;;; 34484 214705 925000))
+;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (22015
+;;;;;; 55603 665705 321000))
;;; Generated autoloads from calendar/todo-mode.el
(autoload 'todo-show "todo-mode" "\
@@ -28415,8 +28446,8 @@ the output buffer or changing the window configuration.
;;;***
-;;;### (autoloads nil "tramp" "net/tramp.el" (21981 37426 655399
-;;;;;; 97000))
+;;;### (autoloads nil "tramp" "net/tramp.el" (22015 55603 713705
+;;;;;; 321000))
;;; Generated autoloads from net/tramp.el
(defvar tramp-mode t "\
@@ -28542,8 +28573,8 @@ Discard Tramp from loading remote files.
;;;***
-;;;### (autoloads nil "tutorial" "tutorial.el" (21978 61237 774488
-;;;;;; 269000))
+;;;### (autoloads nil "tutorial" "tutorial.el" (22011 58554 85858
+;;;;;; 469000))
;;; Generated autoloads from tutorial.el
(autoload 'help-with-tutorial "tutorial" "\
@@ -28578,8 +28609,8 @@ resumed later.
;;;***
-;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21988
-;;;;;; 10682 101624 461000))
+;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21998
+;;;;;; 46517 298024 649000))
;;; Generated autoloads from textmodes/two-column.el
(autoload '2C-command "two-column" () t 'keymap)
(global-set-key "\C-x6" '2C-command)
@@ -28626,8 +28657,8 @@ First column's text sSs Second column's text
;;;***
-;;;### (autoloads nil "type-break" "type-break.el" (21976 19510 152430
-;;;;;; 241000))
+;;;### (autoloads nil "type-break" "type-break.el" (22011 58554 85858
+;;;;;; 469000))
;;; Generated autoloads from type-break.el
(defvar type-break-mode nil "\
@@ -28759,7 +28790,7 @@ FRAC should be the inverse of the fractional value; for
example, a value of
;;;***
-;;;### (autoloads nil "uce" "mail/uce.el" (21670 32331 385639 720000))
+;;;### (autoloads nil "uce" "mail/uce.el" (22026 25907 603502 692000))
;;; Generated autoloads from mail/uce.el
(autoload 'uce-reply-to-uce "uce" "\
@@ -29015,8 +29046,8 @@ Extract FNAM from the local disk cache.
;;;***
-;;;### (autoloads nil "url-dav" "url/url-dav.el" (21696 56380 925320
-;;;;;; 624000))
+;;;### (autoloads nil "url-dav" "url/url-dav.el" (22011 58554 85858
+;;;;;; 469000))
;;; Generated autoloads from url/url-dav.el
(autoload 'url-dav-supported-p "url-dav" "\
@@ -29061,8 +29092,8 @@ Handle file: and ftp: URLs.
;;;***
-;;;### (autoloads nil "url-gw" "url/url-gw.el" (21670 32331 885635
-;;;;;; 586000))
+;;;### (autoloads nil "url-gw" "url/url-gw.el" (22011 58554 85858
+;;;;;; 469000))
;;; Generated autoloads from url/url-gw.el
(autoload 'url-gateway-nslookup-host "url-gw" "\
@@ -29083,8 +29114,8 @@ overriding the value of `url-gateway-method'.
;;;***
-;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (21841
-;;;;;; 54062 172628 227000))
+;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (22011
+;;;;;; 58554 85858 469000))
;;; Generated autoloads from url/url-handlers.el
(defvar url-handler-mode nil "\
@@ -29138,8 +29169,8 @@ accessible.
;;;***
-;;;### (autoloads nil "url-http" "url/url-http.el" (21837 20526 641128
-;;;;;; 711000))
+;;;### (autoloads nil "url-http" "url/url-http.el" (22018 31799 119263
+;;;;;; 120000))
;;; Generated autoloads from url/url-http.el
(autoload 'url-default-expander "url-expand")
@@ -29378,8 +29409,8 @@ would have been passed to OPERATION.
;;;***
-;;;### (autoloads nil "url-util" "url/url-util.el" (21670 32331 885635
-;;;;;; 586000))
+;;;### (autoloads nil "url-util" "url/url-util.el" (21993 28596 418597
+;;;;;; 473000))
;;; Generated autoloads from url/url-util.el
(defvar url-debug nil "\
@@ -29472,7 +29503,7 @@ Return the nondirectory part of FILE, for a URL.
Build a query-string.
Given a QUERY in the form:
-'((key1 val1)
+ ((key1 val1)
(key2 val2)
(key3 val1 val2)
(key4)
@@ -29637,7 +29668,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME.
;;;***
-;;;### (autoloads nil "vc" "vc/vc.el" (21923 36911 845418 539000))
+;;;### (autoloads nil "vc" "vc/vc.el" (22014 34736 871840 613000))
;;; Generated autoloads from vc/vc.el
(defvar vc-checkout-hook nil "\
@@ -29944,8 +29975,8 @@ Return the branch part of a revision number REV.
;;;***
-;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (21850 34915
-;;;;;; 127238 802000))
+;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (22011 58554
+;;;;;; 93858 469000))
;;; Generated autoloads from vc/vc-annotate.el
(autoload 'vc-annotate "vc-annotate" "\
@@ -29984,8 +30015,8 @@ should be applied to the background or to the
foreground.
;;;***
-;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (21852 24382 97237
-;;;;;; 703000))
+;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (22014 34736 819840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-bzr.el
(defconst vc-bzr-admin-dirname ".bzr" "\
@@ -30001,8 +30032,8 @@ Name of the format file in a .bzr directory.")
;;;***
-;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (21985 34484 302705
-;;;;;; 925000))
+;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (22014 34736 823840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-cvs.el
(defun vc-cvs-registered (f)
"Return non-nil if file F is registered with CVS."
@@ -30062,8 +30093,8 @@ case, and the process object in the asynchronous case.
;;;***
-;;;### (autoloads nil "vc-git" "vc/vc-git.el" (21888 48854 948181
-;;;;;; 796000))
+;;;### (autoloads nil "vc-git" "vc/vc-git.el" (22014 34736 835840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-git.el
(defun vc-git-registered (file)
"Return non-nil if FILE is registered with git."
@@ -30074,7 +30105,7 @@ case, and the process object in the asynchronous case.
;;;***
-;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (21932 51888 960440 344000))
+;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (22014 34736 835840 613000))
;;; Generated autoloads from vc/vc-hg.el
(defun vc-hg-registered (file)
"Return non-nil if FILE is registered with hg."
@@ -30085,8 +30116,8 @@ case, and the process object in the asynchronous case.
;;;***
-;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (21945 63921 477174
-;;;;;; 555000))
+;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (22014 34736 839840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-mtn.el
(defconst vc-mtn-admin-dir "_MTN" "\
@@ -30102,8 +30133,8 @@ Name of the monotone directory's format file.")
;;;***
-;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (21896 48221 810207
-;;;;;; 816000))
+;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (22014 34736 851840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-rcs.el
(defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s"))
"\
@@ -30116,8 +30147,8 @@ For a description of possible values, see
`vc-check-master-templates'.")
;;;***
-;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (21748 18111 534605
-;;;;;; 274000))
+;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (22014 34736 863840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-sccs.el
(defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s"
vc-sccs-search-project-dir)) "\
@@ -30135,8 +30166,8 @@ find any project directory." (let ((project-dir (getenv
"PROJECTDIR")) dirs dir)
;;;***
-;;;### (autoloads nil "vc-src" "vc/vc-src.el" (21748 18111 534605
-;;;;;; 274000))
+;;;### (autoloads nil "vc-src" "vc/vc-src.el" (22014 34736 863840
+;;;;;; 613000))
;;; Generated autoloads from vc/vc-src.el
(defvar vc-src-master-templates (purecopy '("%s.src/%s,v")) "\
@@ -30149,8 +30180,8 @@ For a description of possible values, see
`vc-check-master-templates'.")
;;;***
-;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (21980 16568 97544
-;;;;;; 893000))
+;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (22011 58554 97858
+;;;;;; 469000))
;;; Generated autoloads from vc/vc-svn.el
(defun vc-svn-registered (f)
(let ((admin-dir (cond ((and (eq system-type 'windows-nt)
@@ -30163,8 +30194,8 @@ For a description of possible values, see
`vc-check-master-templates'.")
;;;***
-;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (21670
-;;;;;; 32331 885635 586000))
+;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (22011
+;;;;;; 58553 929858 469000))
;;; Generated autoloads from progmodes/vera-mode.el
(push (purecopy '(vera-mode 2 28)) package--builtin-versions)
(add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode))
@@ -30223,7 +30254,7 @@ Key bindings:
;;;***
;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el"
-;;;;;; (21988 10682 49624 461000))
+;;;;;; (22015 55603 833705 321000))
;;; Generated autoloads from progmodes/verilog-mode.el
(autoload 'verilog-mode "verilog-mode" "\
@@ -30362,8 +30393,8 @@ Key bindings specific to `verilog-mode-map' are:
;;;***
-;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (21988
-;;;;;; 10682 57624 461000))
+;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (22011
+;;;;;; 58553 969858 469000))
;;; Generated autoloads from progmodes/vhdl-mode.el
(autoload 'vhdl-mode "vhdl-mode" "\
@@ -30413,7 +30444,7 @@ Usage:
;;; --> \" := \" [[ --> [ --CR --> comment-out code
.. --> \" => \" ] --> ) --- --> horizontal line
,, --> \" <= \" ]] --> ] ---- --> display comment
- == --> \" == \" '' --> \\\"
+ == --> \" == \" \\='\\=' --> \\\"
WORD COMPLETION:
@@ -30425,7 +30456,7 @@ Usage:
Typing `TAB' after `(' looks for and inserts complete parenthesized
expressions (e.g. for array index ranges). All keywords as well as
standard types and subprograms of VHDL have predefined abbreviations
- (e.g. type \"std\" and `TAB' will toggle through all standard types
+ (e.g., type \"std\" and `TAB' will toggle through all standard types
beginning with \"std\").
Typing `TAB' after a non-word character indents the line if at the
@@ -30823,7 +30854,7 @@ Usage:
CODE FIXING:
`C-c C-x C-p' fixes the closing parenthesis of a generic/port clause
- (e.g. if the closing parenthesis is on the wrong line or is missing).
+ (e.g., if the closing parenthesis is on the wrong line or is missing).
PRINTING:
@@ -30860,7 +30891,7 @@ Usage:
automatically recognized as VHDL source files. To add an extension
\".xxx\", add the following line to your Emacs start-up file (`.emacs'):
- (push '(\"\\\\.xxx\\\\'\" . vhdl-mode) auto-mode-alist)
+ (push \\='(\"\\\\.xxx\\\\\\='\" . vhdl-mode) auto-mode-alist)
HINTS:
@@ -31218,8 +31249,8 @@ Exit View mode and make the current buffer editable.
;;;***
-;;;### (autoloads nil "viper" "emulation/viper.el" (21670 32330 885624
-;;;;;; 725000))
+;;;### (autoloads nil "viper" "emulation/viper.el" (22011 58553 461858
+;;;;;; 469000))
;;; Generated autoloads from emulation/viper.el
(push (purecopy '(viper 3 14 1)) package--builtin-versions)
@@ -31327,7 +31358,7 @@ this is equivalent to `display-warning', using
;;;***
-;;;### (autoloads nil "wdired" "wdired.el" (21981 37426 739399 97000))
+;;;### (autoloads nil "wdired" "wdired.el" (22026 25907 675502 692000))
;;; Generated autoloads from wdired.el
(push (purecopy '(wdired 2 0)) package--builtin-versions)
@@ -31393,8 +31424,8 @@ in certain major modes.
;;;***
-;;;### (autoloads nil "whitespace" "whitespace.el" (21985 34484 306705
-;;;;;; 925000))
+;;;### (autoloads nil "whitespace" "whitespace.el" (22026 25907 675502
+;;;;;; 692000))
;;; Generated autoloads from whitespace.el
(push (purecopy '(whitespace 13 2 2)) package--builtin-versions)
@@ -31791,8 +31822,8 @@ if ARG is omitted or nil.
;;;***
-;;;### (autoloads nil "wid-edit" "wid-edit.el" (21981 37426 739399
-;;;;;; 97000))
+;;;### (autoloads nil "wid-edit" "wid-edit.el" (22003 64432 668146
+;;;;;; 533000))
;;; Generated autoloads from wid-edit.el
(autoload 'widgetp "wid-edit" "\
@@ -31887,7 +31918,7 @@ Default MODIFIER is 'shift.
;;;***
-;;;### (autoloads nil "winner" "winner.el" (21733 50750 334730 5000))
+;;;### (autoloads nil "winner" "winner.el" (22009 58952 311546 645000))
;;; Generated autoloads from winner.el
(defvar winner-mode nil "\
@@ -31910,7 +31941,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG
is `toggle'.
;;;***
-;;;### (autoloads nil "woman" "woman.el" (21985 34484 338705 925000))
+;;;### (autoloads nil "woman" "woman.el" (22026 25907 679502 692000))
;;; Generated autoloads from woman.el
(push (purecopy '(woman 0 551)) package--builtin-versions)
@@ -32034,8 +32065,8 @@ If LIMIT is non-nil, then do not consider characters
beyond LIMIT.
;;;***
-;;;### (autoloads nil "xref" "progmodes/xref.el" (21963 7479 570964
-;;;;;; 861000))
+;;;### (autoloads nil "xref" "progmodes/xref.el" (21993 28596 366597
+;;;;;; 473000))
;;; Generated autoloads from progmodes/xref.el
(autoload 'xref-pop-marker-stack "xref" "\
@@ -32368,7 +32399,7 @@ Zone out, completely.
;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el"
"vc/pcvs-parse.el"
;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vc/vc-filewise.el" "vcursor.el"
;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el"
-;;;;;; "x-dnd.el") (21989 31602 291825 721000))
+;;;;;; "x-dnd.el") (22026 26004 435502 692000))
;;;***
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index f54893f..8e28973 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -417,7 +417,8 @@ and send the mail again%s."
(regexp-quote (system-name)))
from))
(not (yes-or-no-p
- (format "Is '%s' really your email address? " from)))
+ (format-message "Is `%s' really your email address? "
+ from)))
(error "Please edit the From address and try again"))))))
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 86bb9e8..839e24c 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,4 +1,4 @@
-;;; footnote.el --- footnote support for message mode -*- coding: utf-8;-*-
+;;; footnote.el --- footnote support for message mode
;; Copyright (C) 1997, 2000-2015 Free Software Foundation, Inc.
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index a7057ca..3513898 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1,4 +1,4 @@
-;;; mail-extr.el --- extract full name and address from RFC 822 mail header
-*- coding: utf-8 -*-
+;;; mail-extr.el --- extract full name and address from RFC 822 mail header
;; Copyright (C) 1991-1994, 1997, 2001-2015 Free Software Foundation,
;; Inc.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 4c0f2b9..9269d7f 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -2078,7 +2078,6 @@ you can move to one of them and type C-c C-c to recover
that one."
;; Local Variables:
;; byte-compile-dynamic: t
-;; coding: utf-8
;; End:
;;; sendmail.el ends here
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 74939d1..5db1357 100644
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -375,7 +375,3 @@ You might need to set `uce-mail-reader' before using this."
(provide 'uce)
;;; uce.el ends here
-
-;; Local Variables:
-;; coding: utf-8
-;; End:
diff --git a/lisp/man.el b/lisp/man.el
index fbfa6f0..90d658a 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1,4 +1,4 @@
-;;; man.el --- browse UNIX manual pages -*- coding: utf-8 -*-
+;;; man.el --- browse UNIX manual pages
;; Copyright (C) 1993-1994, 1996-1997, 2001-2015 Free Software
;; Foundation, Inc.
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 96fe7d7..c757920 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -2901,11 +2901,11 @@ This option contains the Unix command line which
performs the
actual printing for the \\[mh-print-msg] command. The string can
contain one escape, \"%s\", which is replaced by the name of the
folder and the message number and is useful for print job names.
-I use \"mpage -h'%s' -b Letter -H1of -mlrtb -P\" which produces a
+I use \"mpage -h\\='%s\\=' -b Letter -H1of -mlrtb -P\" which produces a
nice header and adds a bit of margin so the text fits within my
printer's margins.
-This options is not used by the commands \\[mh-ps-print-msg] or
+This option is not used by the commands \\[mh-ps-print-msg] or
\\[mh-ps-print-msg-file]."
:type 'string
:group 'mh-show
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 689911c..2814d02 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1374,7 +1374,7 @@ appear to be a match."
;; that file.
(= (length string) (length compl)))
(completion--replace beg end compl))))
- (funcall exit-function))
+ (funcall exit-function))
((memq minibuffer-completion-confirm '(confirm confirm-after-completion))
;; The user is permitted to exit with an input that's rejected
@@ -1391,7 +1391,7 @@ appear to be a match."
(t
;; Call do-completion, but ignore errors.
- (funcall completion-function))))
+ (funcall completion-function))))
(defun completion--try-word-completion (string table predicate point md)
(let ((comp (completion-try-completion string table predicate point md)))
@@ -1794,7 +1794,7 @@ variables.")
(if completions "Sole completion" "No completions")))
(let* ((last (last completions))
- (base-size (cdr last))
+ (base-size (or (cdr last) 0))
(prefix (unless (zerop base-size) (substring string 0 base-size)))
(all-md (completion--metadata (buffer-substring-no-properties
start (point))
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index f01f671..e48af4d 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -1,4 +1,4 @@
-;;; eudc-bob.el --- Binary Objects Support for EUDC -*- coding: utf-8 -*-
+;;; eudc-bob.el --- Binary Objects Support for EUDC
;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index ec0914d..c60911f 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -1,4 +1,4 @@
-;;; eudc-export.el --- functions to export EUDC query results -*- coding:
utf-8 -*-
+;;; eudc-export.el --- functions to export EUDC query results
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 7416ad0..55a2fd9 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -1,4 +1,4 @@
-;;; eudc-hotlist.el --- hotlist management for EUDC -*- coding: utf-8 -*-
+;;; eudc-hotlist.el --- hotlist management for EUDC
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 5e994a3..8cffa8e 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -1,4 +1,4 @@
-;;; eudc-vars.el --- Emacs Unified Directory Client -*- coding: utf-8 -*-
+;;; eudc-vars.el --- Emacs Unified Directory Client
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 66dbc65..7280d9d 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,4 +1,4 @@
-;;; eudc.el --- Emacs Unified Directory Client -*- coding: utf-8 -*-
+;;; eudc.el --- Emacs Unified Directory Client
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index bd5d453..0545304 100644
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -1,4 +1,4 @@
-;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend -*-
coding: utf-8 -*-
+;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index d22dff6..b50d29d 100644
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -1,4 +1,4 @@
-;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend -*-
coding: utf-8 -*-
+;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el
index a135e9b..f144bf6 100644
--- a/lisp/net/eudcb-ph.el
+++ b/lisp/net/eudcb-ph.el
@@ -1,4 +1,4 @@
-;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend -*-
coding: utf-8 -*-
+;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend
;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 4eef580..0c2df88 100644
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -940,7 +940,7 @@ Optional arguments CHANGED-WIDGET and EVENT are ignored."
"Return propertized copy of string TAG.
Optional argument NUM-NEW is used for choosing face, other
arguments NT-ID, FEED, and VFEED are added as properties."
- ;;(message "newsticker--treeview-propertize-tag '%s' %s" feed nt-id)
+ ;;(message "newsticker--treeview-propertize-tag `%s' %s" feed nt-id)
(let ((face 'newsticker-treeview-face)
(map (make-sparse-keymap)))
(if (and num-new (> num-new 0))
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 0ce77b9..9116e50 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -222,10 +222,29 @@ DOM should be a parse tree as generated by
(if (not shr-use-fonts)
shr-width
(* shr-width (frame-char-width))))
+ ;; We need to adjust the available
+ ;; width for when the user disables
+ ;; the fringes, which will cause the
+ ;; display engine usurp one column for
+ ;; the continuation glyph.
(if (not shr-use-fonts)
- (- (window-width) 2)
- (- (window-pixel-width)
- (* (frame-fringe-width) 2))))))
+ (- (window-body-width) 1
+ (if (and (null shr-width)
+ (or (zerop
+ (fringe-columns 'right))
+ (zerop
+ (fringe-columns 'left))))
+ 0
+ 1))
+ (- (window-body-width nil t)
+ (* 2 (frame-char-width))
+ (if (and (null shr-width)
+ (or (zerop
+ (fringe-columns 'right))
+ (zerop
+ (fringe-columns 'left))))
+ (* (frame-char-width) 2)
+ 0))))))
(shr-descend dom)
(shr-fill-lines start (point))
(shr-remove-trailing-whitespace start (point))
@@ -439,8 +458,18 @@ size, and full-buffer size."
(with-temp-buffer
(let ((shr-indentation 0)
(shr-start nil)
- (shr-internal-width (- (window-pixel-width)
- (* (frame-fringe-width) 2))))
+ (shr-internal-width (- (window-body-width nil t)
+ (* 2 (frame-char-width))
+ ;; Adjust the window width for when
+ ;; the user disables the fringes,
+ ;; which causes the display engine
+ ;; usurp one coplumn for the
+ ;; continuation glyph.
+ (if (and (null shr-width)
+ (or (zerop (fringe-columns 'right))
+ (zerop (fringe-columns
'left))))
+ (* (frame-char-width) 2)
+ 0))))
(shr-insert text)
(buffer-string)))))
@@ -620,7 +649,9 @@ size, and full-buffer size."
;; There's no breakable point, so we give it up.
(let (found)
(goto-char bp)
- (unless shr-kinsoku-shorten
+ ;; Don't overflow the window edge, even if
+ ;; shr-kinsoku-shorten is nil.
+ (unless (or shr-kinsoku-shorten (null shr-width))
(while (setq found (re-search-forward
"\\(\\c>\\)\\| \\|\\c<\\|\\c|"
(line-end-position) 'move)))
@@ -632,9 +663,12 @@ size, and full-buffer size."
;; Don't put kinsoku-bol characters at the beginning of a line,
;; or kinsoku-eol characters at the end of a line.
(cond
- (shr-kinsoku-shorten
+ ;; Don't overflow the window edge, even if shr-kinsoku-shorten
+ ;; is nil.
+ ((or shr-kinsoku-shorten (null shr-width))
(while (and (not (memq (preceding-char) (list ?\C-@ ?\n ? )))
- (shr-char-kinsoku-eol-p (preceding-char)))
+ (or (shr-char-kinsoku-eol-p (preceding-char))
+ (shr-char-kinsoku-bol-p (following-char))))
(backward-char 1))
(when (setq failed (<= (point) start))
;; There's no breakable point that doesn't violate kinsoku,
@@ -1042,7 +1076,7 @@ ones, in case fg and bg are nil."
(shr-color-visible bg fg)))))))
(defun shr-colorize-region (start end fg &optional bg)
- (when (or fg bg)
+ (when (and (or fg bg) (>= (display-color-cells) 88))
(let ((new-colors (shr-color-check fg bg)))
(when new-colors
(when fg
@@ -2050,8 +2084,4 @@ The preference is a float determined from
`shr-prefer-media-type'."
(provide 'shr)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; shr.el ends here
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 9848325..e645195 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -105,6 +105,12 @@
(unless (boundp 'remote-file-name-inhibit-cache)
(defvar remote-file-name-inhibit-cache nil))
+ ;; `directory-listing-before-filename-regexp' does not exist in
+ ;; XEmacs. Since we use it only in tramp-adb.el, it doesn't harm to
+ ;; declare it here.
+ (unless (boundp 'directory-listing-before-filename-regexp)
+ (defvar directory-listing-before-filename-regexp nil))
+
;; For not existing functions, or functions with a changed argument
;; list, there are compiler warnings. We want to avoid them in
;; cases we know what we do.
@@ -122,16 +128,6 @@
;; `tramp-handle-*' functions, because this would bypass the locking
;; mechanism.
- ;; `file-remote-p' has been introduced with Emacs 22. The version
- ;; of XEmacs is not a magic file name function (yet).
- (unless (fboundp 'file-remote-p)
- (defalias 'file-remote-p
- (lambda (file &optional identification connected)
- (when (tramp-tramp-file-p file)
- (tramp-compat-funcall
- 'tramp-file-name-handler
- 'file-remote-p file identification connected)))))
-
;; `process-file' does not exist in XEmacs.
(unless (fboundp 'process-file)
(defalias 'process-file
@@ -187,7 +183,11 @@
(lambda ()
(ad-remove-advice
'file-expand-wildcards 'around 'tramp-advice-file-expand-wildcards)
- (ad-activate 'file-expand-wildcards)))))
+ (ad-activate 'file-expand-wildcards))))
+
+ ;; `redisplay' does not exist in XEmacs.
+ (unless (fboundp 'redisplay)
+ (defalias 'redisplay 'ignore)))
;; `with-temp-message' does not exist in XEmacs.
(if (fboundp 'with-temp-message)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index fbb8c8a..df64f49 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4005,7 +4005,7 @@ be granted."
(or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp"))))
(with-tramp-connection-property vec "tmpdir"
(or (and (file-directory-p dir) (file-writable-p dir)
- (file-remote-p dir 'localname))
+ (tramp-file-name-handler 'file-remote-p dir 'localname))
(tramp-error vec 'file-error "Directory %s not accessible" dir)))
dir))
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index ab67120..5c42f3a 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -38,11 +38,14 @@
(defconst tramp-bug-report-address "address@hidden"
"Email address to send bug reports to.")
+;; `locate-dominating-file' does not exist in XEmacs. But it is not used here.
+(autoload 'locate-dominating-file "files")
+(autoload 'tramp-compat-replace-regexp-in-string "tramp-compat")
+
(defun tramp-repository-get-version ()
"Try to return as a string the repository revision of the Tramp sources."
(unless (featurep 'xemacs)
- (let ((dir
- (funcall 'locate-dominating-file (locate-library "tramp") ".git")))
+ (let ((dir (locate-dominating-file (locate-library "tramp") ".git")))
(when dir
(with-temp-buffer
(let ((default-directory (file-name-as-directory dir)))
diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el
index 358d0fc..3df786e 100644
--- a/lisp/obsolete/iso-insert.el
+++ b/lisp/obsolete/iso-insert.el
@@ -1,4 +1,4 @@
-;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: utf-8;-*-
+;;; iso-insert.el --- insert functions for ISO 8859/1
;; Copyright (C) 1987, 1994, 2001-2015 Free Software Foundation, Inc.
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 0258f1e..a07b381 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,4 +1,4 @@
-;;; 5x5.el --- simple little puzzle game -*- coding: utf-8 -*-
+;;; 5x5.el --- simple little puzzle game
;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el
index 1e06f1b..4dc4c77 100644
--- a/lisp/play/bubbles.el
+++ b/lisp/play/bubbles.el
@@ -1,4 +1,4 @@
-;;; bubbles.el --- Puzzle game for Emacs -*- coding: utf-8 -*-
+;;; bubbles.el --- Puzzle game for Emacs
;; Copyright (C) 2007-2015 Free Software Foundation, Inc.
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index 62a8fe4..30e8357 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1,4 +1,4 @@
-;;; handwrite.el --- turns your emacs buffer into a handwritten document -*-
coding: utf-8; -*-
+;;; handwrite.el --- turns your emacs buffer into a handwritten document
;; Copyright (C) 1996, 2001-2015 Free Software Foundation, Inc.
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index bbd3e6b..e35147d 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,4 +1,4 @@
-;;; morse.el --- convert text to morse code and back -*- coding:
utf-8 -*-
+;;; morse.el --- convert text to morse code and back
;; Copyright (C) 1995, 2001-2015 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 0f5b1bb..9953cae 100644
--- a/lisp/progmodes/cmacexp.el
+++ b/lisp/progmodes/cmacexp.el
@@ -405,7 +405,3 @@ Optional arg DISPLAY non-nil means show messages in the
echo area."
(kill-buffer outbuf))))
;;; cmacexp.el ends here
-
-;; Local Variables:
-;; coding: utf-8
-;; End:
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9cb367a..9e2d625 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -145,7 +145,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
" in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1)
(ant
- "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^:
\n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\
+ "^[ \t]*\\[[^] \n]+\\][ \t]*\\(\\(?:[A-Za-z]:\\\\\\)?[^:
\n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\
\\( warning\\)?" 1 (2 . 4) (3 . 5) (6))
(bash
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 0ac59e1..5c938fd 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -2382,8 +2382,4 @@ escape character."
(provide 'f90)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; f90.el ends here
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 3860c81..4bee7c1 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2315,10 +2315,67 @@ the end of the current result or async record is
reached."
; list ==>
; "[]" | "[" value ( "," value )* "]" | "[" result ( "," result )* "]"
+(defcustom gdb-mi-decode-strings nil
+ "When non-nil, decode octal escapes in GDB output into non-ASCII text.
+
+If the value is a coding-system, use that coding-system to decode
+the bytes reconstructed from octal escapes. Any other non-nil value
+means to decode using the coding-system set for the GDB process.
+
+Warning: setting this non-nil might mangle strings reported by GDB
+that have literal substrings which match the \\nnn octal escape
+patterns, where nnn is an octal number between 200 and 377. So
+we only recommend to set this variable non-nil if the program you
+are debugging really reports non-ASCII text, or some of its source
+file names include non-ASCII characters."
+ :type '(choice
+ (const :tag "Don't decode" nil)
+ (const :tag "Decode using default coding-system" t)
+ (coding-system :tag "Decode using this coding-system"))
+ :group 'gdb
+ :version "25.1")
+
+;; The idea of the following function was suggested
+;; by Kenichi Handa <address@hidden>.
+;;
+;; FIXME: This is fragile: it relies on the assumption that all the
+;; non-ASCII strings output by GDB, including names of the source
+;; files, values of string variables in the inferior, etc., are all
+;; encoded in the same encoding. It also assumes that the \nnn
+;; sequences are not split between chunks of output of the GDB process
+;; due to buffering, and arrive together. Finally, if some string
+;; included literal \nnn strings (as opposed to non-ASCII characters
+;; converted by by GDB/MI to octal escapes), this decoding will mangle
+;; those strings. When/if GDB acquires the ability to not
+;; escape-protect non-ASCII characters in its MI output, this kludge
+;; should be removed.
+(defun gdb-mi-decode (string)
+ "Decode octal escapes in MI output STRING into multibyte text."
+ (let ((coding
+ (if (coding-system-p gdb-mi-decode-strings)
+ gdb-mi-decode-strings
+ (with-current-buffer
+ (gdb-get-buffer-create 'gdb-partial-output-buffer)
+ buffer-file-coding-system))))
+ (with-temp-buffer
+ (set-buffer-multibyte nil)
+ (prin1 string (current-buffer))
+ (goto-char (point-min))
+ ;; prin1 quotes the octal escapes as well, which interferes with
+ ;; their interpretation by 'read' below. Remove the extra
+ ;; backslashes to countermand that.
+ (while (re-search-forward "\\\\\\(\\\\[2-3][0-7][0-7]\\)" nil t)
+ (replace-match "\\1" nil nil))
+ (goto-char (point-min))
+ (decode-coding-string (read (current-buffer)) coding))))
(defun gud-gdbmi-marker-filter (string)
"Filter GDB/MI output."
+ ;; If required, decode non-ASCII text encoded with octal escapes.
+ (or (null gdb-mi-decode-strings)
+ (setq string (gdb-mi-decode string)))
+
;; Record transactions if logging is enabled.
(when gdb-enable-debug
(push (cons 'recv string) gdb-debug-log)
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 3240ee8..452a42f 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -1039,16 +1039,18 @@ to specify a command to run."
;; we should use shell-quote-argument here
" -path "
(mapconcat
- #'(lambda (ignore)
- (cond ((stringp ignore)
- (shell-quote-argument
- (concat "*/" ignore)))
- ((consp ignore)
- (and (funcall (car ignore) dir)
- (shell-quote-argument
- (concat "*/"
- (cdr ignore)))))))
- grep-find-ignored-directories
+ 'identity
+ (delq nil (mapcar
+ #'(lambda (ignore)
+ (cond ((stringp ignore)
+ (shell-quote-argument
+ (concat "*/" ignore)))
+ ((consp ignore)
+ (and (funcall (car ignore) dir)
+ (shell-quote-argument
+ (concat "*/"
+ (cdr ignore)))))))
+ grep-find-ignored-directories))
" -o -path ")
" "
(shell-quote-argument ")")
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 845abc0..dba497b 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -1,4 +1,4 @@
-;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks
-*- coding: utf-8 -*-
+;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks
;; Copyright (C) 1994-2015 Free Software Foundation, Inc.
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index ab994f3..f214015 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -3571,8 +3571,4 @@ If one hasn't been set, or if it's stale, prompt for a
new one."
(provide 'js)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;; js.el ends here
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 70a2b1a..b54b88d 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -82,25 +82,6 @@ Used in `octave-mode' and `inferior-octave-mode' buffers.")
(defvar octave-comment-start-skip "\\(^\\|\\S<\\)\\(?:%!\\|\\s<+\\)\\s-*"
"Octave-specific `comment-start-skip' (which see).")
-(defvar octave-begin-keywords
- '("classdef" "do" "enumeration" "events" "for" "function" "if" "methods"
- "parfor" "properties" "switch" "try" "unwind_protect" "while"))
-
-(defvar octave-else-keywords
- '("case" "catch" "else" "elseif" "otherwise" "unwind_protect_cleanup"))
-
-(defvar octave-end-keywords
- '("endclassdef" "endenumeration" "endevents" "endfor" "endfunction" "endif"
- "endmethods" "endparfor" "endproperties" "endswitch" "end_try_catch"
- "end_unwind_protect" "endwhile" "until" "end"))
-
-(defvar octave-reserved-words
- (append octave-begin-keywords
- octave-else-keywords
- octave-end-keywords
- '("break" "continue" "global" "persistent" "return"))
- "Reserved words in Octave.")
-
(defvar octave-function-header-regexp
(concat "^\\s-*\\_<\\(function\\)\\_>"
"\\([^=;(\n]*=[ \t]*\\|[ \t]*\\)\\(\\(?:\\w\\|\\s_\\)+\\)\\_>")
@@ -231,20 +212,17 @@ parenthetical grouping.")
(defcustom octave-font-lock-texinfo-comment t
"Control whether to highlight the texinfo comment block."
:type 'boolean
- :group 'octave
:version "24.4")
(defcustom octave-blink-matching-block t
"Control the blinking of matching Octave block keywords.
Non-nil means show matching begin of block when inserting a space,
newline or semicolon after an else or end keyword."
- :type 'boolean
- :group 'octave)
+ :type 'boolean)
(defcustom octave-block-offset 2
"Extra indentation applied to statements in Octave block structures."
- :type 'integer
- :group 'octave)
+ :type 'integer)
(defvar octave-block-comment-start
(concat (make-string 2 octave-comment-char) " ")
@@ -252,8 +230,7 @@ newline or semicolon after an else or end keyword."
(defcustom octave-continuation-offset 4
"Extra indentation applied to Octave continuation lines."
- :type 'integer
- :group 'octave)
+ :type 'integer)
(eval-and-compile
(defconst octave-continuation-marker-regexp "\\\\\\|\\.\\.\\."))
@@ -274,109 +251,135 @@ newline or semicolon after an else or end keyword."
(defcustom octave-mode-hook nil
"Hook to be run when Octave mode is started."
- :type 'hook
- :group 'octave)
+ :type 'hook)
(defcustom octave-send-show-buffer t
"Non-nil means display `inferior-octave-buffer' after sending to it."
- :type 'boolean
- :group 'octave)
+ :type 'boolean)
(defcustom octave-send-line-auto-forward t
"Control auto-forward after sending to the inferior Octave process.
Non-nil means always go to the next Octave code line after sending."
- :type 'boolean
- :group 'octave)
+ :type 'boolean)
(defcustom octave-send-echo-input t
"Non-nil means echo input sent to the inferior Octave process."
- :type 'boolean
- :group 'octave)
+ :type 'boolean)
;;; SMIE indentation
(require 'smie)
-;; Use '__operators__' in Octave REPL to get a full list.
-(defconst octave-operator-table
- '((assoc ";" "\n") (assoc ",") ; The doc claims they have equal precedence!?
- (right "=" "+=" "-=" "*=" "/=")
- (assoc "&&") (assoc "||") ; The doc claims they have equal precedence!?
- (assoc "&") (assoc "|") ; The doc claims they have equal precedence!?
- (nonassoc "<" "<=" "==" ">=" ">" "!=" "~=")
- (nonassoc ":") ;No idea what this is.
- (assoc "+" "-")
- (assoc "*" "/" "\\" ".\\" ".*" "./")
- (nonassoc "'" ".'")
- (nonassoc "++" "--" "!" "~") ;And unary "+" and "-".
- (right "^" "**" ".^" ".**")
- ;; It's not really an operator, but for indentation purposes it
- ;; could be convenient to treat it as one.
- (assoc "...")))
-
-(defconst octave-smie-bnf-table
- '((atom)
- ;; We can't distinguish the first element in a sequence with
- ;; precedence grammars, so we can't distinguish the condition
- ;; if the `if' from the subsequent body, for example.
- ;; This has to be done later in the indentation rules.
- (exp (exp "\n" exp)
- ;; We need to mention at least one of the operators in this part
- ;; of the grammar: if the BNF and the operator table have
- ;; no overlap, SMIE can't know how they relate.
- (exp ";" exp)
- ("try" exp "catch" exp "end_try_catch")
- ("try" exp "catch" exp "end")
- ("unwind_protect" exp
- "unwind_protect_cleanup" exp "end_unwind_protect")
- ("unwind_protect" exp "unwind_protect_cleanup" exp "end")
- ("for" exp "endfor")
- ("for" exp "end")
- ("parfor" exp "endparfor")
- ("parfor" exp "end")
- ("do" exp "until" atom)
- ("while" exp "endwhile")
- ("while" exp "end")
- ("if" exp "endif")
- ("if" exp "else" exp "endif")
- ("if" exp "elseif" exp "else" exp "endif")
- ("if" exp "elseif" exp "elseif" exp "else" exp "endif")
- ("if" exp "elseif" exp "elseif" exp "else" exp "end")
- ("switch" exp "case" exp "endswitch")
- ("switch" exp "case" exp "otherwise" exp "endswitch")
- ("switch" exp "case" exp "case" exp "otherwise" exp "endswitch")
- ("switch" exp "case" exp "case" exp "otherwise" exp "end")
- ("function" exp "endfunction")
- ("function" exp "end")
- ("enumeration" exp "endenumeration")
- ("enumeration" exp "end")
- ("events" exp "endevents")
- ("events" exp "end")
- ("methods" exp "endmethods")
- ("methods" exp "end")
- ("properties" exp "endproperties")
- ("properties" exp "end")
- ("classdef" exp "endclassdef")
- ("classdef" exp "end"))
- ;; (fundesc (atom "=" atom))
- ))
+(let-when-compile
+ ((operator-table
+ ;; Use '__operators__' in Octave REPL to get a full list?
+ '((assoc ";" "\n") (assoc ",") ;The doc says they have equal precedence!?
+ (right "=" "+=" "-=" "*=" "/=")
+ (assoc "&&") (assoc "||") ; The doc claims they have equal precedence!?
+ (assoc "&") (assoc "|") ; The doc claims they have equal precedence!?
+ (nonassoc "<" "<=" "==" ">=" ">" "!=" "~=")
+ (nonassoc ":") ;No idea what this is.
+ (assoc "+" "-")
+ (assoc "*" "/" "\\" ".\\" ".*" "./")
+ (nonassoc "'" ".'")
+ (nonassoc "++" "--" "!" "~") ;And unary "+" and "-".
+ (right "^" "**" ".^" ".**")
+ ;; It's not really an operator, but for indentation purposes it
+ ;; could be convenient to treat it as one.
+ (assoc "...")))
+
+ (matchedrules
+ ;; We can't distinguish the first element in a sequence with
+ ;; precedence grammars, so we can't distinguish the condition
+ ;; of the `if' from the subsequent body, for example.
+ ;; This has to be done later in the indentation rules.
+ '(("try" exp "catch" exp "end_try_catch")
+ ("unwind_protect" exp
+ "unwind_protect_cleanup" exp "end_unwind_protect")
+ ("for" exp "endfor")
+ ("parfor" exp "endparfor")
+ ("while" exp "endwhile")
+ ("if" exp "endif")
+ ("if" exp "else" exp "endif")
+ ("if" exp "elseif" exp "else" exp "endif")
+ ("if" exp "elseif" exp "elseif" exp "else" exp "endif")
+ ("switch" exp "case" exp "endswitch")
+ ("switch" exp "case" exp "otherwise" exp "endswitch")
+ ("switch" exp "case" exp "case" exp "otherwise" exp "endswitch")
+ ("function" exp "endfunction")
+ ("enumeration" exp "endenumeration")
+ ("events" exp "endevents")
+ ("methods" exp "endmethods")
+ ("properties" exp "endproperties")
+ ("classdef" exp "endclassdef")
+ ))
+
+ (bnf-table
+ `((atom)
+ ;; FIXME: We don't parse these declarations correctly since
+ ;; SMIE *really* likes to parse "a b = 2 c" as "(a b) = (2 c)".
+ ;; IOW to do it right, we'd need to change octave-smie-*ward-token
+ ;; so that the spaces between vars in var-decls are lexed as
+ ;; something like ",".
+ ;; Doesn't seem worth the trouble/slowdown for now.
+ ;; We could hack smie-rules so as to work around the bad parse,
+ ;; but even that doesn't seem worth the trouble.
+ (var-decls (atom "=" atom)) ;; (var-decls "," var-decls)
+ (single-exp (atom "=" atom))
+ (exp (exp "\n" exp)
+ ;; We need to mention at least one of the operators in this part
+ ;; of the grammar: if the BNF and the operator table have
+ ;; no overlap, SMIE can't know how they relate.
+ (exp ";" exp)
+ ("do" exp "until" single-exp)
+ ,@matchedrules
+ ;; For every rule that ends in "endfoo", add a corresponding
+ ;; rule which uses "end" instead.
+ ,@(mapcar (lambda (rule) (nconc (butlast rule) '("end")))
+ matchedrules)
+ ("global" var-decls) ("persistent" var-decls)
+ ;; These aren't super-important, but having them here
+ ;; makes it easier to extract all keywords.
+ ("break") ("continue") ("return")
+ ;; The following rules do not correspond to valid code AFAIK,
+ ;; but they lead to a grammar that degrades more gracefully
+ ;; on incomplete/incorrect code. It also helps us in
+ ;; computing octave--block-offset-keywords.
+ ("try" exp "end") ("unwind_protect" exp "end")
+ )
+ ;; (fundesc (atom "=" atom))
+ )))
(defconst octave-smie-grammar
- (smie-prec2->grammar
- (smie-merge-prec2s
- (smie-bnf->prec2 octave-smie-bnf-table
- '((assoc "\n" ";")))
+ (eval-when-compile
+ (smie-prec2->grammar
+ (smie-merge-prec2s
+ (smie-bnf->prec2 bnf-table '((assoc "\n" ";")))
+ (smie-precs->prec2 operator-table)))))
- (smie-precs->prec2 octave-operator-table))))
+(defconst octave-operator-regexp
+ (eval-when-compile
+ (regexp-opt (remove "\n" (apply #'append
+ (mapcar #'cdr operator-table)))))))
;; Tokenizing needs to be refined so that ";;" is treated as two
;; tokens and also so as to recognize the \n separator (and
;; corresponding continuation lines).
-(defconst octave-operator-regexp
- (regexp-opt (remove "\n" (apply 'append
- (mapcar 'cdr octave-operator-table)))))
+(defun octave-smie--funcall-p ()
+ "Return non-nil if we're in an expression context. Moves point."
+ (looking-at "[ \t]*("))
+
+(defun octave-smie--end-index-p ()
+ (let ((ppss (syntax-ppss)))
+ (and (nth 1 ppss)
+ (memq (char-after (nth 1 ppss)) '(?\( ?\[ ?\{)))))
+
+(defun octave-smie--in-parens-p ()
+ (let ((ppss (syntax-ppss)))
+ (and (nth 1 ppss)
+ (eq ?\( (char-after (nth 1 ppss))))))
(defun octave-smie-backward-token ()
(let ((pos (point)))
@@ -390,10 +393,7 @@ Non-nil means always go to the next Octave code line after
sending."
(forward-comment (- (point)))
nil)
t)
- ;; Ignore it if it's within parentheses.
- (let ((ppss (syntax-ppss)))
- (not (and (nth 1 ppss)
- (eq ?\( (char-after (nth 1 ppss)))))))
+ (not (octave-smie--in-parens-p)))
(skip-chars-forward " \t")
;; Why bother distinguishing \n and ;?
";") ;;"\n"
@@ -403,7 +403,15 @@ Non-nil means always go to the next Octave code line after
sending."
(goto-char (match-beginning 0))
(match-string-no-properties 0))
(t
- (smie-default-backward-token)))))
+ (let ((tok (smie-default-backward-token)))
+ (cond
+ ((equal tok "enumeration")
+ (if (save-excursion (smie-default-forward-token)
+ (octave-smie--funcall-p))
+ "enumeration (function)"
+ tok))
+ ((equal tok "end") (if (octave-smie--end-index-p) "end (index)" tok))
+ (t tok)))))))
(defun octave-smie-forward-token ()
(skip-chars-forward " \t")
@@ -417,10 +425,7 @@ Non-nil means always go to the next Octave code line after
sending."
(not (or (save-excursion (skip-chars-backward " \t")
;; Only add implicit ; when needed.
(or (bolp) (eq (char-before) ?\;)))
- ;; Ignore it if it's within parentheses.
- (let ((ppss (syntax-ppss)))
- (and (nth 1 ppss)
- (eq ?\( (char-after (nth 1 ppss))))))))
+ (octave-smie--in-parens-p))))
(if (eolp) (forward-char 1) (forward-comment 1))
;; Why bother distinguishing \n and ;?
";") ;;"\n"
@@ -436,7 +441,25 @@ Non-nil means always go to the next Octave code line after
sending."
(goto-char (match-end 0))
(match-string-no-properties 0))
(t
- (smie-default-forward-token))))
+ (let ((tok (smie-default-forward-token)))
+ (cond
+ ((equal tok "enumeration")
+ (if (octave-smie--funcall-p)
+ "enumeration (function)"
+ tok))
+ ((equal tok "end") (if (octave-smie--end-index-p) "end (index)" tok))
+ (t tok))))))
+
+(defconst octave--block-offset-keywords
+ (let* ((end-prec (nth 1 (assoc "end" octave-smie-grammar)))
+ (end-matchers
+ (delq nil
+ (mapcar (lambda (x) (if (eq end-prec (nth 2 x)) (car x)))
+ octave-smie-grammar))))
+ ;; Not sure if it would harm to keep "switch", but the previous code
+ ;; excluded it, presumably because there shouldn't be any code on
+ ;; the lines between "switch" and "case".
+ (delete "switch" end-matchers)))
(defun octave-smie-rules (kind token)
(pcase (cons kind token)
@@ -445,15 +468,12 @@ Non-nil means always go to the next Octave code line
after sending."
;; - changes to octave-block-offset wouldn't take effect immediately.
;; - edebug wouldn't show the use of this variable.
(`(:elem . basic) octave-block-offset)
+ (`(:list-intro . ,(or "global" "persistent")) t)
;; Since "case" is in the same BNF rules as switch..end, SMIE by default
;; aligns it with "switch".
(`(:before . "case") (if (not (smie-rule-sibling-p)) octave-block-offset))
(`(:after . ";")
- (if (smie-rule-parent-p "classdef" "events" "enumeration" "function" "if"
- "while" "else" "elseif" "for" "parfor"
- "properties" "methods" "otherwise" "case"
- "try" "catch" "unwind_protect"
- "unwind_protect_cleanup")
+ (if (apply #'smie-rule-parent-p octave--block-offset-keywords)
(smie-rule-parent octave-block-offset)
;; For (invalid) code between switch and case.
;; (if (smie-rule-parent-p "switch") 4)
@@ -473,28 +493,33 @@ Non-nil means always go to the next Octave code line
after sending."
(comment-choose-indent)))))
+(defvar octave-reserved-words
+ (delq nil
+ (mapcar (lambda (x)
+ (setq x (car x))
+ (and (stringp x) (string-match "\\`[[:alpha:]]" x) x))
+ octave-smie-grammar))
+ "Reserved words in Octave.")
+
(defvar octave-font-lock-keywords
(list
;; Fontify all builtin keywords.
- (cons (concat "\\_<\\("
- (regexp-opt octave-reserved-words)
- "\\)\\_>")
+ (cons (concat "\\_<" (regexp-opt octave-reserved-words) "\\_>")
'font-lock-keyword-face)
- ;; Note: 'end' also serves as the last index in an indexing expression.
+ ;; Note: 'end' also serves as the last index in an indexing expression,
+ ;; and 'enumerate' is also a function.
;; Ref: http://www.mathworks.com/help/matlab/ref/end.html
+ ;; Ref: http://www.mathworks.com/help/matlab/ref/enumeration.html
(list (lambda (limit)
- (while (re-search-forward "\\_<end\\_>" limit 'move)
+ (while (re-search-forward "\\_<en\\(?:d\\|umeratio\\(n\\)\\)\\_>"
+ limit 'move)
(let ((beg (match-beginning 0))
(end (match-end 0)))
(unless (octave-in-string-or-comment-p)
- (condition-case nil
- (progn
- (goto-char beg)
- (backward-up-list)
- (when (memq (char-after) '(?\( ?\[ ?\{))
- (put-text-property beg end 'face nil))
- (goto-char end))
- (error (goto-char end))))))
+ (when (if (match-end 1)
+ (octave-smie--funcall-p)
+ (octave-smie--end-index-p))
+ (put-text-property beg end 'face nil)))))
nil))
;; Fontify all operators.
(cons octave-operator-regexp 'font-lock-builtin-face)
@@ -609,27 +634,23 @@ Key bindings:
(defcustom inferior-octave-program "octave"
"Program invoked by `inferior-octave'."
- :type 'string
- :group 'octave)
+ :type 'string)
(defcustom inferior-octave-buffer "*Inferior Octave*"
"Name of buffer for running an inferior Octave process."
- :type 'string
- :group 'octave)
+ :type 'string)
(defcustom inferior-octave-prompt
;; For Octave >= 3.8, default is always 'octave', see
;; http://hg.savannah.gnu.org/hgweb/octave/rev/708173343c50
"\\(?:^octave\\(?:.bin\\|.exe\\)?\\(?:-[.0-9]+\\)?\\(?::[0-9]+\\)?\\|^debug\\|^\\)>+
"
"Regexp to match prompts for the inferior Octave process."
- :type 'regexp
- :group 'octave)
+ :type 'regexp)
(defcustom inferior-octave-prompt-read-only comint-prompt-read-only
"If non-nil, the Octave prompt is read only.
See `comint-prompt-read-only' for details."
:type 'boolean
- :group 'octave
:version "24.4")
(defcustom inferior-octave-startup-file
@@ -639,7 +660,6 @@ See `comint-prompt-read-only' for details."
The contents of this file are sent to the inferior Octave process on
startup."
:type '(choice (const :tag "None" nil) file)
- :group 'octave
:version "24.4")
(defcustom inferior-octave-startup-args '("-i" "--no-line-editing")
@@ -647,13 +667,11 @@ startup."
For example, for suppressing the startup message and using `traditional'
mode, include \"-q\" and \"--traditional\"."
:type '(repeat string)
- :group 'octave
:version "24.4")
(defcustom inferior-octave-mode-hook nil
"Hook to be run when Inferior Octave mode is started."
- :type 'hook
- :group 'octave)
+ :type 'hook)
(defcustom inferior-octave-error-regexp-alist
'(("error:\\s-*\\(.*?\\) at line \\([0-9]+\\), column \\([0-9]+\\)"
@@ -663,8 +681,7 @@ mode, include \"-q\" and \"--traditional\"."
"Value for `compilation-error-regexp-alist' in inferior octave."
:version "24.4"
:type '(repeat (choice (symbol :tag "Predefined symbol")
- (sexp :tag "Error specification")))
- :group 'octave)
+ (sexp :tag "Error specification"))))
(defvar inferior-octave-compilation-font-lock-keywords
'(("\\_<PASS\\_>" . compilation-info-face)
@@ -995,7 +1012,6 @@ directory and makes this the current buffer's default
directory."
(defcustom inferior-octave-minimal-columns 80
"The minimal column width for the inferior Octave process."
:type 'integer
- :group 'octave
:version "24.4")
(defvar inferior-octave-last-column-width nil)
@@ -1180,8 +1196,7 @@ q: Don't fix\n" func file))
(defface octave-function-comment-block
'((t (:inherit font-lock-doc-face)))
- "Face used to highlight function comment block."
- :group 'octave)
+ "Face used to highlight function comment block.")
(eval-when-compile (require 'texinfo))
@@ -1602,7 +1617,6 @@ code line."
:type '(choice (const :tag "Automatic" auto)
(const :tag "One Line" oneline)
(const :tag "Multi Line" multiline))
- :group 'octave
:version "24.4")
;; (FN SIGNATURE1 SIGNATURE2 ...)
@@ -1661,7 +1675,6 @@ code line."
(defcustom octave-help-buffer "*Octave Help*"
"Buffer name for `octave-help'."
:type 'string
- :group 'octave
:version "24.4")
;; Used in a mode derived from help-mode.
@@ -1786,7 +1799,6 @@ sentence."
"A list of directories for Octave sources.
If the environment variable OCTAVE_SRCDIR is set, it is searched first."
:type '(repeat directory)
- :group 'octave
:version "24.4")
(defun octave-source-directories ()
diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index f1aa35f..6696356 100644
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -29,7 +29,8 @@
;;; Code:
-(eval-when-compile (require 'cl-lib))
+(eval-when-compile (require 'cl-lib)
+ (require 'subr-x))
(defgroup prog-mode nil
"Generic programming mode, from which others derive."
@@ -161,13 +162,20 @@ Regexp match data 0 points to the chars."
(let ((start (match-beginning 0))
(end (match-end 0))
(match (match-string 0)))
- (if (funcall prettify-symbols-compose-predicate start end match)
+ (if (and (not (equal prettify-symbols--current-symbol-bounds (list start
end)))
+ (funcall prettify-symbols-compose-predicate start end match))
;; That's a symbol alright, so add the composition.
- (compose-region start end (cdr (assoc match alist)))
+ (with-silent-modifications
+ (compose-region start end (cdr (assoc match alist)))
+ (add-text-properties
+ start end
+ `(prettify-symbols-start ,start prettify-symbols-end ,end)))
;; No composition for you. Let's actually remove any
;; composition we may have added earlier and which is now
;; incorrect.
- (remove-text-properties start end '(composition))))
+ (remove-text-properties start end '(composition
+ prettify-symbols-start
+ prettify-symbols-end))))
;; Return nil because we're not adding any face property.
nil)
@@ -179,6 +187,46 @@ Regexp match data 0 points to the chars."
(defvar-local prettify-symbols--keywords nil)
+(defvar-local prettify-symbols--current-symbol-bounds nil)
+
+(defcustom prettify-symbols-unprettify-at-point nil
+ "If non-nil, show the non-prettified version of a symbol when point is on it.
+If set to the symbol `right-edge', also unprettify if point
+is immediately after the symbol. The prettification will be
+reapplied as soon as point moves away from the symbol. If
+set to nil, the prettification persists even when point is
+on the symbol."
+ :type '(choice (const :tag "Never unprettify" nil)
+ (const :tag "Unprettify when point is inside" t)
+ (const :tag "Unprettify when point is inside or at right
edge" right-edge))
+ :group 'prog-mode)
+
+(defun prettify-symbols--post-command-hook ()
+ (cl-labels ((get-prop-as-list
+ (prop)
+ (remove nil
+ (list (get-text-property (point) prop)
+ (when (and (eq
prettify-symbols-unprettify-at-point 'right-edge)
+ (not (bobp)))
+ (get-text-property (1- (point)) prop))))))
+ ;; Re-apply prettification to the previous symbol.
+ (when (and prettify-symbols--current-symbol-bounds
+ (or (< (point) (car prettify-symbols--current-symbol-bounds))
+ (> (point) (cadr prettify-symbols--current-symbol-bounds))
+ (and (not (eq prettify-symbols-unprettify-at-point
'right-edge))
+ (= (point) (cadr
prettify-symbols--current-symbol-bounds)))))
+ (apply #'font-lock-flush prettify-symbols--current-symbol-bounds)
+ (setq prettify-symbols--current-symbol-bounds nil))
+ ;; Unprettify the current symbol.
+ (when-let ((c (get-prop-as-list 'composition))
+ (s (get-prop-as-list 'prettify-symbols-start))
+ (e (get-prop-as-list 'prettify-symbols-end))
+ (s (apply #'min s))
+ (e (apply #'max e)))
+ (with-silent-modifications
+ (setq prettify-symbols--current-symbol-bounds (list s e))
+ (remove-text-properties s e '(composition))))))
+
;;;###autoload
(define-minor-mode prettify-symbols-mode
"Toggle Prettify Symbols mode.
@@ -205,9 +253,16 @@ support it."
(when (setq prettify-symbols--keywords (prettify-symbols--make-keywords))
(font-lock-add-keywords nil prettify-symbols--keywords)
(setq-local font-lock-extra-managed-props
- (cons 'composition font-lock-extra-managed-props))
+ (append font-lock-extra-managed-props
+ '(composition
+ prettify-symbols-start
+ prettify-symbols-end)))
+ (when prettify-symbols-unprettify-at-point
+ (add-hook 'post-command-hook
+ #'prettify-symbols--post-command-hook nil t))
(font-lock-flush))
;; Turn off
+ (remove-hook 'post-command-hook #'prettify-symbols--post-command-hook t)
(when prettify-symbols--keywords
(font-lock-remove-keywords nil prettify-symbols--keywords)
(setq prettify-symbols--keywords nil))
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 3d9b0c3..81aeb8d 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -840,6 +840,8 @@ This is really kludgy, and unneeded (i.e. obsolete) in
Emacs>=24."
(require 'smie)
+(defconst prolog-operator-chars "-\\\\#&*+./:<=>address@hidden")
+
(defun prolog-smie-forward-token ()
;; FIXME: Add support for 0'<char>, if needed after adding it to
;; syntax-propertize-functions.
@@ -848,7 +850,7 @@ This is really kludgy, and unneeded (i.e. obsolete) in
Emacs>=24."
(point)
(progn (cond
((looking-at "[!;]") (forward-char 1))
- ((not (zerop (skip-chars-forward "#&*+-./:<=>address@hidden"))))
+ ((not (zerop (skip-chars-forward prolog-operator-chars))))
((not (zerop (skip-syntax-forward "w_'"))))
;; In case of non-ASCII punctuation.
((not (zerop (skip-syntax-forward ".")))))
@@ -861,8 +863,8 @@ This is really kludgy, and unneeded (i.e. obsolete) in
Emacs>=24."
(buffer-substring-no-properties
(point)
(progn (cond
- ((memq (char-before) '(?! ?\;)) (forward-char -1))
- ((not (zerop (skip-chars-backward "#&*+-./:<=>address@hidden"))))
+ ((memq (char-before) '(?! ?\; ?\,)) (forward-char -1))
+ ((not (zerop (skip-chars-backward prolog-operator-chars))))
((not (zerop (skip-syntax-backward "w_'"))))
;; In case of non-ASCII punctuation.
((not (zerop (skip-syntax-backward ".")))))
@@ -875,12 +877,21 @@ This is really kludgy, and unneeded (i.e. obsolete) in
Emacs>=24."
;; manual uses precedence levels in the opposite sense (higher
;; numbers bind less tightly) than SMIE, so we use negative numbers.
'(("." -10000 -10000)
+ ("?-" nil -1200)
(":-" -1200 -1200)
("-->" -1200 -1200)
+ ("discontiguous" nil -1150)
+ ("dynamic" nil -1150)
+ ("meta_predicate" nil -1150)
+ ("module_transparent" nil -1150)
+ ("multifile" nil -1150)
+ ("public" nil -1150)
+ ("|" -1105 -1105)
(";" -1100 -1100)
+ ("*->" -1050 -1050)
("->" -1050 -1050)
("," -1000 -1000)
- ("\\+" -900 -900)
+ ("\\+" nil -900)
("=" -700 -700)
("\\=" -700 -700)
("=.." -700 -700)
@@ -947,12 +958,36 @@ This is really kludgy, and unneeded (i.e. obsolete) in
Emacs>=24."
;; ; c)
;;
;; based on the space between the open paren and the "a".
- (unless (and (smie-rule-parent-p "(")
+ (unless (and (smie-rule-parent-p "(" ";")
(save-excursion
(smie-indent-forward-token)
(smie-backward-sexp 'halfsexp)
- (not (eq ?\( (char-before)))))
+ (if (smie-rule-parent-p "(")
+ (not (eq (char-before) ?\())
+ (smie-indent-backward-token)
+ (smie-rule-bolp))))
prolog-indent-width))
+ (`(:after . ";")
+ ;; Align with same-line comment as in:
+ ;; ; %% Toto
+ ;; foo
+ (and (smie-rule-bolp)
+ (looking-at ";[ \t]*\\(%\\)")
+ (let ((offset (- (save-excursion (goto-char (match-beginning 1))
+ (current-column))
+ (current-column))))
+ ;; Only do it for small offsets, since the comment may actually be
+ ;; an "end-of-line" comment at comment-column!
+ (if (<= offset prolog-indent-width) offset))))
+ (`(:after . ",")
+ ;; Special indent for:
+ ;; foopredicate(x) :- !,
+ ;; toto.
+ (and (eq (char-before) ?!)
+ (save-excursion
+ (smie-indent-backward-token) ;Skip !
+ (equal ":-" (car (smie-indent-backward-token))))
+ (smie-rule-parent prolog-indent-width)))
(`(:after . ,(or `":-" `"-->")) prolog-indent-width)))
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index b641e30..6ff12b5 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -5123,7 +5123,6 @@ returned as is."
(provide 'python)
;; Local Variables:
-;; coding: utf-8
;; indent-tabs-mode: nil
;; End:
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 049c93d..fbb4a90 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1991,9 +1991,30 @@ Does not preserve point."
(t tok)))))))
(defcustom sh-indent-after-continuation t
- "If non-nil, try to make sure text is indented after a line continuation."
- :version "24.3"
- :type 'boolean
+ "If non-nil, indent relative to the continued line's beginning.
+Continued lines can either be indented as \"one long wrapped line\" without
+paying attention to the actual syntactic structure, as in:
+
+ for f \
+ in a; do \
+ toto; \
+ done
+
+or as lines that just don't have implicit semi-colons between them, as in:
+
+ for f \
+ in a; do \
+ toto; \
+ done
+
+With `always' you get the former behavior whereas with nil you get the latter.
+With t, you get the latter as long as that would indent the continuation line
+deeper than the initial line."
+ :version "25.1"
+ :type '(choice
+ (const nil :tag "Never")
+ (const t :tag "Only if needed to make it deeper")
+ (const always :tag "Always"))
:group 'sh-indentation)
(defun sh-smie--continuation-start-indent ()
@@ -2004,24 +2025,49 @@ May return nil if the line should not be treated as
continued."
(unless (sh-smie--looking-back-at-continuation-p)
(current-indentation))))
+(defun sh-smie--indent-continuation ()
+ (cond
+ ((not (and sh-indent-after-continuation
+ (save-excursion
+ (ignore-errors
+ (skip-chars-backward " \t")
+ (sh-smie--looking-back-at-continuation-p)))))
+ nil)
+ ((eq sh-indent-after-continuation 'always)
+ (save-excursion
+ (forward-line -1)
+ (if (sh-smie--looking-back-at-continuation-p)
+ (current-indentation)
+ (+ (current-indentation) sh-indentation))))
+ (t
+ ;; Just make sure a line-continuation is indented deeper.
+ (save-excursion
+ (let ((indent (let ((sh-indent-after-continuation nil))
+ (smie-indent-calculate)))
+ (max most-positive-fixnum))
+ (if (not (numberp indent)) indent
+ (while (progn
+ (forward-line -1)
+ (let ((ci (current-indentation)))
+ (cond
+ ;; Previous line is less indented, we're good.
+ ((< ci indent) nil)
+ ((sh-smie--looking-back-at-continuation-p)
+ (setq max (min max ci))
+ ;; Previous line is itself a continuation.
+ ;; If it's indented like us, we're good, otherwise
+ ;; check the line before that one.
+ (> ci indent))
+ (t ;Previous line is the beginning of the continued line.
+ (setq indent (min (+ ci sh-indentation) max))
+ nil)))))
+ indent))))))
+
(defun sh-smie-sh-rules (kind token)
(pcase (cons kind token)
(`(:elem . basic) sh-indentation)
(`(:after . "case-)") (- (sh-var-value 'sh-indent-for-case-alt)
(sh-var-value 'sh-indent-for-case-label)))
- ((and `(:before . ,_)
- ;; After a line-continuation, make sure the rest is indented.
- (guard sh-indent-after-continuation)
- (guard (save-excursion
- (ignore-errors
- (skip-chars-backward " \t")
- (sh-smie--looking-back-at-continuation-p))))
- (let initial (sh-smie--continuation-start-indent))
- (guard (let* ((sh-indent-after-continuation nil)
- (indent (smie-indent-calculate)))
- (and (numberp indent) (numberp initial)
- (<= indent initial)))))
- `(column . ,(+ initial sh-indentation)))
(`(:before . ,(or `"(" `"{" `"[" "while" "if" "for" "case"))
(if (not (smie-rule-prev-p "&&" "||" "|"))
(when (smie-rule-hanging-p)
@@ -2363,6 +2409,7 @@ Calls the value of `sh-set-shell-hook' if set."
(if (looking-at "[ \t]*\\\\\n")
(goto-char (match-end 0))
(funcall orig))))
+ (add-hook 'smie-indent-functions #'sh-smie--indent-continuation nil
t)
(smie-setup (symbol-value (funcall mksym "grammar"))
(funcall mksym "rules")
:forward-token (funcall mksym "forward-token")
diff --git a/lisp/replace.el b/lisp/replace.el
index d84f3a2..3a908ac 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1,4 +1,4 @@
-;;; replace.el --- replace commands for Emacs -*- coding: utf-8 -*-
+;;; replace.el --- replace commands for Emacs
;; Copyright (C) 1985-1987, 1992, 1994, 1996-1997, 2000-2015 Free
;; Software Foundation, Inc.
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 4f68909..f1b5da4 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -775,8 +775,4 @@ Optional argument PROPS specifies other text properties to
apply."
(provide 'ruler-mode)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; ruler-mode.el ends here
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 69bd500..67d9fac 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -1,4 +1,4 @@
-;;; skeleton.el --- Lisp language extension for writing statement skeletons
-*- coding: utf-8 -*-
+;;; skeleton.el --- Lisp language extension for writing statement skeletons
;; Copyright (C) 1993-1996, 2001-2015 Free Software Foundation, Inc.
diff --git a/lisp/subr.el b/lisp/subr.el
index b1b3638..e176907 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1,4 +1,4 @@
-;;; subr.el --- basic lisp subroutines for Emacs -*- coding: utf-8;
lexical-binding:t -*-
+;;; subr.el --- basic lisp subroutines for Emacs -*- lexical-binding:t -*-
;; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2015 Free Software
;; Foundation, Inc.
diff --git a/lisp/tempo.el b/lisp/tempo.el
index 6e2f978..93df15a 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -759,7 +759,3 @@ space bar, and looks something like this:
(provide 'tempo)
;;; tempo.el ends here
-
-;; Local Variables:
-;; coding: utf-8
-;; End:
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index ebd76a6..5eb6f11 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1,4 +1,4 @@
-;;; x-win.el --- parse relevant switches and set up for X -*-coding: utf-8;
lexical-binding:t -*-
+;;; x-win.el --- parse relevant switches and set up for X -*-
lexical-binding:t -*-
;; Copyright (C) 1993-1994, 2001-2015 Free Software Foundation, Inc.
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 770571a..7d81bbc 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -1,4 +1,4 @@
-;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files
-*- coding: utf-8 -*-
+;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files
;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 5f2fbcd..a97facf 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1,4 +1,4 @@
-;;; fill.el --- fill commands for Emacs -*- coding: utf-8 -*-
+;;; fill.el --- fill commands for Emacs
;; Copyright (C) 1985-1986, 1992, 1994-1997, 1999, 2001-2015 Free
;; Software Foundation, Inc.
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 8bcc71e..58c6567 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -536,8 +536,4 @@ the current sentence with the one containing the mark."
(interactive "*p")
(transpose-subr 'forward-sentence arg))
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; paragraphs.el ends here
diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el
index 99ec291..a5f3946 100644
--- a/lisp/textmodes/po.el
+++ b/lisp/textmodes/po.el
@@ -1,4 +1,4 @@
-;;; po.el --- basic support of PO translation files -*- coding: utf-8; -*-
+;;; po.el --- basic support of PO translation files
;; Copyright (C) 1995-1998, 2000-2015 Free Software Foundation, Inc.
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el
index 357a093..97c8af3 100644
--- a/lisp/textmodes/reftex-vars.el
+++ b/lisp/textmodes/reftex-vars.el
@@ -85,8 +85,9 @@
(supertab "Supertabular environment"
(("supertabular" ?t nil nil "\\tablecaption{")))
- (wrapfig "The wrapfigure environment"
- (("wrapfigure" ?f nil nil caption)))
+ (wrapfig "The wrapfig package"
+ (("wrapfigure" ?f nil nil caption)
+ ("wraptable" ?t nil nil caption)))
(ctable "The ctable package"
(("\\ctable[]{}{}{}" ?t "tab:" "~\\ref{%s}" 1 ("table" "Tabelle"))))
@@ -653,7 +654,7 @@ Possible keys are sectioning macro names like `chapter',
section levels
(string :tag "Prefix"))))
(defcustom reftex-default-context-regexps
- '((caption . "\\\\\\(rot\\)?caption\\*?[[{]")
+ '((caption . "\\\\\\(rot\\|bi\\)?\\(sub\\)?caption\\(box\\)?\\*?[[{]")
(item . "\\\\item\\(\\[[^]]*\\]\\)?")
(eqnarray-like . "\\\\begin{%s}\\|\\\\\\\\")
(alignat-like . "\\\\begin{%s}{[0-9]*}\\|\\\\\\\\"))
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 4c234c9..7b2aabd 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -218,7 +218,7 @@ and before TAIL-RE and DELIM-RE in VAR or DEFAULT for no
match."
;; Use CVSHeader to really get information from CVS and not other version
;; control systems.
(defconst rst-cvs-header
- "$CVSHeader: sm/rst_el/rst.el,v 1.327.2.6 2012-10-07 13:05:50 stefan Exp $")
+ "$CVSHeader: sm/rst_el/rst.el,v 1.327.2.26 2015/10/04 09:26:04 stefan Exp $")
(defconst rst-cvs-rev
(rst-extract-version "\\$" "CVSHeader: \\S + " "[0-9]+\\(?:\\.[0-9]+\\)+"
" .*" rst-cvs-header "0.0")
@@ -232,22 +232,22 @@ and before TAIL-RE and DELIM-RE in VAR or DEFAULT for no
match."
;; Use LastChanged... to really get information from SVN.
(defconst rst-svn-rev
(rst-extract-version "\\$" "LastChangedRevision: " "[0-9]+" " "
- "$LastChangedRevision: 7515 $")
+ "$LastChangedRevision: 7925 $")
"The SVN revision of this file.
SVN revision is the upstream (docutils) revision.")
(defconst rst-svn-timestamp
(rst-extract-version "\\$" "LastChangedDate: " ".+?+" " "
- "$LastChangedDate: 2012-09-20 23:28:53 +0200 (Thu, 20
Sep 2012) $")
+ "$LastChangedDate: 2015-10-04 11:21:35 +0200 (Sun, 04
Oct 2015) $")
"The SVN time stamp of this file.")
;; Maintained by the release process.
(defconst rst-official-version
(rst-extract-version "%" "OfficialVersion: " "[0-9]+\\(?:\\.[0-9]+\\)+" " "
- "%OfficialVersion: 1.4.0 %")
+ "%OfficialVersion: 1.4.1 %")
"Official version of the package.")
(defconst rst-official-cvs-rev
(rst-extract-version "[%$]" "Revision: " "[0-9]+\\(?:\\.[0-9]+\\)+" " "
- "%Revision: 1.327 %")
+ "%Revision: 1.327.2.25 %")
"CVS revision of this file in the official version.")
(defconst rst-version
@@ -267,6 +267,7 @@ in parentheses follows the development revision and the
time stamp.")
("1.3.0" . "24.3")
("1.3.1" . "24.3")
("1.4.0" . "24.3")
+ ("1.4.1" . "24.5")
))
(unless (assoc rst-official-version rst-package-emacs-version-alist)
@@ -4235,8 +4236,4 @@ column is used (fill-column vs. end of previous/next
line)."
(provide 'rst)
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; rst.el ends here
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index bf15b26..cbeded2 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1,4 +1,4 @@
-;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*-
+;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
;; Copyright (C) 1985-1986, 1989, 1992, 1994-1999, 2001-2015 Free
;; Software Foundation, Inc.
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 5721817..2b606ed 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -1,4 +1,4 @@
-;;; texinfo.el --- major mode for editing Texinfo files -*- coding: utf-8 -*-
+;;; texinfo.el --- major mode for editing Texinfo files
;; Copyright (C) 1985, 1988-1993, 1996-1997, 2000-2015 Free Software
;; Foundation, Inc.
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index 0e645fc..f1a42f2 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -508,9 +508,4 @@ variable will be set to the representation."
(provide 'tildify)
-
-;; Local variables:
-;; coding: utf-8
-;; End:
-
;;; tildify.el ends here
diff --git a/lisp/time.el b/lisp/time.el
index d35f5b9..dec5940 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -1,4 +1,4 @@
-;;; time.el --- display time, load and mail indicator in mode line of Emacs
-*-coding: utf-8 -*-
+;;; time.el --- display time, load and mail indicator in mode line of Emacs
;; Copyright (C) 1985-1987, 1993-1994, 1996, 2000-2015 Free Software
;; Foundation, Inc.
diff --git a/lisp/vc/cvs-status.el b/lisp/vc/cvs-status.el
index dc43094..cf1f49c 100644
--- a/lisp/vc/cvs-status.el
+++ b/lisp/vc/cvs-status.el
@@ -1,4 +1,4 @@
-;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding:
utf-8; lexical-binding: t -*-
+;;; cvs-status.el --- major mode for browsing `cvs status' output -*-
lexical-binding: t -*-
;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index e664f9f..7ef4254 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -3348,6 +3348,7 @@ Without an argument, it saves customized diff argument,
if available
(setq wind (ediff-get-visible-buffer-window cloned-buff))
(select-window wind)
(delete-other-windows)
+ (or (mark) (push-mark))
(ediff-activate-mark)
(split-window-vertically)
(ediff-select-lowest-window)
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 2f04393..b557032 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -974,6 +974,34 @@ or BRANCH^ (where \"^\" can be repeated)."
(buffer-string))))
(defun vc-git-region-history (file buffer lfrom lto)
+ ;; The "git log" command below interprets the line numbers as applying
+ ;; to the HEAD version of the file, not to the current state of the file.
+ ;; So we need to look at all the local changes and adjust lfrom/lto
+ ;; accordingly.
+ ;; FIXME: Maybe this should be done in vc.el (i.e. for all backends), but
+ ;; since Git is the only backend to support this operation so far, it's hard
+ ;; to tell.
+ (with-temp-buffer
+ (vc-call-backend 'git 'diff file "HEAD" nil (current-buffer))
+ (goto-char (point-min))
+ (let ((last-offset 0)
+ (from-offset nil)
+ (to-offset nil))
+ (while (re-search-forward
+ "^@@ -\\([0-9]+\\),\\([0-9]+\\) \\+\\([0-9]+\\),\\([0-9]+\\) @@"
nil t)
+ (let ((headno (string-to-number (match-string 1)))
+ (headcnt (string-to-number (match-string 2)))
+ (curno (string-to-number (match-string 3)))
+ (curcnt (string-to-number (match-string 4))))
+ (cl-assert (equal (- curno headno) last-offset))
+ (and (null from-offset) (> curno lfrom)
+ (setq from-offset last-offset))
+ (and (null to-offset) (> curno lto)
+ (setq to-offset last-offset))
+ (setq last-offset
+ (- (+ curno curcnt) (+ headno headcnt)))))
+ (setq lto (- lto (or to-offset last-offset)))
+ (setq lfrom (- lfrom (or to-offset last-offset)))))
(vc-git-command buffer 'async nil "log" "-p" ;"--follow" ;FIXME: not
supported?
(format "-L%d,%d:%s" lfrom lto (file-relative-name file))))
diff --git a/lisp/wdired.el b/lisp/wdired.el
index a9e1e2a..8ee9a83 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -849,7 +849,6 @@ Like original function but it skips read-only words."
(provide 'wdired)
;; Local Variables:
-;; coding: utf-8
;; byte-compile-dynamic: t
;; End:
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 839ca8c..d45a1dc 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2581,8 +2581,5 @@ It should be added buffer-locally to
`write-file-functions'."
(run-hooks 'whitespace-load-hook)
-;; Local Variables:
-;; coding: utf-8
-;; End:
;;; whitespace.el ends here
diff --git a/lisp/winner.el b/lisp/winner.el
index a05f4ba..3767b9f 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -180,7 +180,8 @@ You may want to include buffer names such as *Help*,
*Apropos*,
;; Cull dead frames.
(setq winner-modified-list
- (cl-remove-if-not 'frame-live-p winner-modified-list))
+ (cl-loop for frame in winner-modified-list
+ if (frame-live-p frame) collect frame))
(unless (or (memq (selected-frame) winner-modified-list)
(/= 0 (minibuffer-depth)))
diff --git a/lisp/woman.el b/lisp/woman.el
index 8fe1bfa..81319fa 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -4627,9 +4627,4 @@ logging the message."
(provide 'woman)
-
-;; Local Variables:
-;; coding: utf-8
-;; End:
-
;;; woman.el ends here
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index b99db48..8ec5dfc 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -1,4 +1,4 @@
-;;; x-dnd.el --- drag and drop support for X -*- coding: utf-8 -*-
+;;; x-dnd.el --- drag and drop support for X
;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
diff --git a/nt/INSTALL b/nt/INSTALL
index da15040..3bcb496 100644
--- a/nt/INSTALL
+++ b/nt/INSTALL
@@ -75,6 +75,48 @@ build will run on Windows 9X and newer systems).
If these short instructions somehow fail, read the rest of this
file.
+* Installing Git for Windows
+
+ Skip this section if you already have Git installed and configured,
+ or if you are building from the release tarball, not from the
+ development repository.
+
+ Git for Windows is available from this download page:
+
+ https://github.com/git-for-windows/git/releases
+
+ That page offers both 32-bit and 64-bit installations; pick the one
+ suitable for your OS. In general, we recommend to install a 64-bit
+ Git if you have a 64-bit Windows system; the 32-bit Git will run on
+ 64-bit Windows just fine, but might run into memory problems where
+ the 64-bit Git won't.
+
+ During Git installation, be sure to select the "Checkout as-is,
+ commit as-is" option from the "Configure line ending conversions"
+ dialog. Otherwise, Git will convert text files to DOS-style CRLF
+ end-of-line (EOL) format, which will cause subtle problems when
+ building Emacs, because MSYS tools (see below) used to build Emacs
+ use binary file I/O that preserves the CR characters that get in the
+ way of some text-processing tools, like 'makeinfo' and the commands
+ invoked by the autogen.sh script.
+
+ If you already have Git installed and configured with some other EOL
+ conversion option, you will need to reconfigure it, removing the
+ following variables from all of your .gitconfig files:
+
+ core.eol
+ core.safecrlf
+ core.autocrlf
+
+ If you cloned the Emacs directory before changing these config
+ variables, you will have to delete the repository and re-clone it
+ after the change.
+
+ The instructions for cloning the Emacs repository can be found on
+ the Emacs's Savannah project page:
+
+ https://savannah.gnu.org/projects/emacs
+
* Installing MinGW and MSYS
Make sure you carefully read the following two sections in their
@@ -143,7 +185,7 @@ build will run on Windows 9X and newer systems).
optional libraries near the end of this document, before you start
the build. Also, consider installing additional MinGW packages that
are required/recommended, especially if you are building from the
- repository, as described in the next section.
+ development repository, as described in the next section.
** Installing MinGW and MSYS manually
@@ -187,7 +229,7 @@ build will run on Windows 9X and newer systems).
been warned!
Additional MinGW packages are required/recommended, especially if
- you are building from the repository:
+ you are building from the development repository:
. Texinfo (needed to produce the Info manuals when building from
the repository, and for "make install")
@@ -197,7 +239,7 @@ build will run on Windows 9X and newer systems).
. pkg-config (invoked by the configure script to look for optional
packages)
- Available from http://www.gtk.org/download/win32.php
+ Available from http://sourceforge.net/projects/ezwinports/files/.
. gzip (needed to compress files during "make install")
@@ -339,7 +381,12 @@ build will run on Windows 9X and newer systems).
Checking for automake (need at least version 1.11)...
ok
Your system has the required tools, running autoreconf...
- You can now run `./configure'.
+ Installing git hooks...
+ You can now run './configure'.
+
+ If the script fails because it cannot find Git, you will need to
+ arrange for the MSYS Bash's PATH to include the Git's 'bin'
+ subdirectory, where there's the git.exe executable.
* Configuring Emacs for MinGW:
@@ -419,7 +466,7 @@ build will run on Windows 9X and newer systems).
successful, will eventually produce a summary of the configuration
similar to this:
- Configured for `i686-pc-mingw32'.
+ Configured for 'i686-pc-mingw32'.
Where should the build process find the source code?
/path/to/emacs/sources
What compiler should emacs be built with? gcc -std=gnu99
-O0 -g3
@@ -577,14 +624,13 @@ build will run on Windows 9X and newer systems).
is in the PATH or otherwise accessible and that the binaries are
compatible (for example, that they were built with the same compiler).
+ To support XPM images (required for color tool-bar icons), you will
+ need the libXpm library. It is available from the ezwinports site,
+ http://sourceforge.net/projects/ezwinports/files/.
+
For PNG images, we recommend to use versions 1.4.x and later of
libpng, because previous versions had security issues. You can find
- precompiled libraries and headers on the GTK download page for
- Windows (http://www.gtk.org/download/win32.php for 32-bit builds and
- http://www.gtk.org/download/win64.php for 64-bit builds). The
- ezwinports site, http://sourceforge.net/projects/ezwinports/files/
- also offers PNG (as well as other image libraries), which are
- usually newer.
+ precompiled libraries and headers on the ezwinports site.
Versions 1.4.0 and later of libpng are binary incompatible with
earlier versions, so Emacs will only look for libpng libraries which
@@ -621,70 +667,32 @@ build will run on Windows 9X and newer systems).
libtiffN.dll or libtiff-N.dll or libtiff.dll. These can be found on
the ezwinports site.
- Pre-built versions of librsvg and its dependencies can be found in
- one of these places:
-
- 1. http://sourceforge.net/projects/ezwinports/files/
-
- This site includes a minimal (as much as possible for librsvg)
- build of the library and its dependencies; it is also more
- up-to-date with the latest upstream versions. However, it
- currently only offers 32-bit builds. For building Emacs, you
- need to download from this site all of the following *-bin.zip
- archives:
-
- librsvg, gdk-pixbuf, cairo, glib
-
- The 'bin' archives on this site include both header files and the
- libraries needed for building with librsvg and for running Emacs.
- The librsvg archive includes all the shared libraries needed to
- run Emacs with SVG support; the other 3 packages are required
- because the compiler needs to see their header files when
- building Emacs.
-
- 2. GTK project download site for Windows (see above for 2 URLs,
- either for 32-bit builds or 64-bit builds)
-
- This is the official Windows download site of the GTK project.
- Its builds of librsvg are fatter, but are currently the only
- alternative for 64-bit builds. The easiest way to obtain the
- dependencies required for building from this site is to download
- a pre-bundled GTK+ development environment for Windows. If you
- would nevertheless like to download only the packages that are
- strictly required, then, as of the time of this writing, here's
- the list of GTK+ packages you will need:
-
- librsvg, pango, freetype-2.4.11, freetype-2.4.2, croco, cairo,
- glib, gdk-pixbuf, fontconfig, libpng-1.4.x, libpng-1.5.x,
- libffi, libxml2, zlib
-
- The GTK download page provides 2 separate archives for each
- package: a 'bin' (binary) archive with programs and DLLs, and a
- 'dev' (development) archive with header files, import libraries,
- and pkg-config files; download and install both archives for each
- package you need. (Sources of each package are available in a
- separate, 3rd archive.)
-
- As you see, some libraries for using this site's librsvg are
- needed in more than one version -- this is because librsvg and
- some of its dependencies were linked against different versions
- of those libraries, and will look only for those DLLs when you
- invoke SVG function. So there's a bit of "DLL hell" involved
- here, but at least in theory this should work, as each library
- will dynamically link only against its dependencies, even if
- another version of the same library is already loaded. In
- particular, at least 2 different versions of libpng will have to
- be installed on your machine. When you install these libpng
- versions, be sure to keep the header files and the pkg-config
- files in sync, i.e. install both the 'bin' and 'dev' archives of
- the same libpng version together.
+ Pre-built versions of librsvg and its dependencies can be found
+ here:
+
+ http://sourceforge.net/projects/ezwinports/files/
+
+ This site includes a minimal (as much as possible for librsvg)
+ build of the library and its dependencies; it is also more
+ up-to-date with the latest upstream versions. However, it
+ currently only offers 32-bit builds. For building Emacs, you need
+ to download from this site all of the following *-bin.zip
+ archives:
+
+ librsvg, gdk-pixbuf, cairo, glib
+
+ The 'bin' archives on this site include both header files and the
+ libraries needed for building with librsvg and for running Emacs.
+ The librsvg archive includes all the shared libraries needed to
+ run Emacs with SVG support; the other 3 packages are required
+ because the compiler needs to see their header files when building
+ Emacs.
To use librsvg at runtime, ensure that librsvg and its dependencies
are on your PATH, or in the same directory as the emacs.exe binary.
If you are downloading from the ezwinports site, you only need to
install a single archive, librsvg-X.Y.Z-w32-bin.zip, which includes
- all the dependency DLLs. For the GTK project site, download the
- 'bin' archives for each of the libraries mentioned above.
+ all the dependency DLLs.
If you think you've got all the dependencies and SVG support is
still not working, check your PATH for other libraries that shadow
diff --git a/src/cmds.c b/src/cmds.c
index 7a575ae..ccc6891 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -264,7 +264,7 @@ because it respects values of `delete-active-region' and
`overwrite-mode'. */)
CHECK_NUMBER (n);
- if (abs (XINT (n)) < 2)
+ if (eabs (XINT (n)) < 2)
remove_excessive_undo_boundaries ();
pos = PT + XINT (n);
diff --git a/src/coding.c b/src/coding.c
index 3fc6fb6..c5099a7 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6004,6 +6004,8 @@ coding_inherit_eol_type (Lisp_Object coding_system,
Lisp_Object parent)
if (NILP (coding_system))
coding_system = Qraw_text;
+ else
+ CHECK_CODING_SYSTEM (coding_system);
spec = CODING_SYSTEM_SPEC (coding_system);
eol_type = AREF (spec, 2);
if (VECTORP (eol_type))
@@ -6014,6 +6016,7 @@ coding_inherit_eol_type (Lisp_Object coding_system,
Lisp_Object parent)
{
Lisp_Object parent_spec;
+ CHECK_CODING_SYSTEM (parent);
parent_spec = CODING_SYSTEM_SPEC (parent);
parent_eol_type = AREF (parent_spec, 2);
if (VECTORP (parent_eol_type))
diff --git a/src/dired.c b/src/dired.c
index 9773667..3486e49 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -397,8 +397,10 @@ Returns nil if DIRECTORY contains no name starting with
FILE.
If PREDICATE is non-nil, call PREDICATE with each possible
completion (in absolute form) and ignore it if PREDICATE returns nil.
-This function ignores some of the possible completions as
-determined by the variable `completion-ignored-extensions', which see. */)
+This function ignores some of the possible completions as determined
+by the variables `completion-regexp-list' and
+`completion-ignored-extensions', which see. `completion-regexp-list'
+is matched against file and directory names relative to DIRECTORY. */)
(Lisp_Object file, Lisp_Object directory, Lisp_Object predicate)
{
Lisp_Object handler;
@@ -422,7 +424,12 @@ determined by the variable
`completion-ignored-extensions', which see. */)
DEFUN ("file-name-all-completions", Ffile_name_all_completions,
Sfile_name_all_completions, 2, 2, 0,
doc: /* Return a list of all completions of file name FILE in directory
DIRECTORY.
-These are all file names in directory DIRECTORY which begin with FILE. */)
+These are all file names in directory DIRECTORY which begin with FILE.
+
+This function ignores some of the possible completions as determined
+by the variables `completion-regexp-list' and
+`completion-ignored-extensions', which see. `completion-regexp-list'
+is matched against file and directory names relative to DIRECTORY. */)
(Lisp_Object file, Lisp_Object directory)
{
Lisp_Object handler;
diff --git a/src/fileio.c b/src/fileio.c
index e4b255a..3155ef0 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3470,7 +3470,11 @@ by calling `format-decode', which see. */)
mtime = time_error_value (save_errno);
st.st_size = -1;
if (!NILP (Vcoding_system_for_read))
- Fset (Qbuffer_file_coding_system, Vcoding_system_for_read);
+ {
+ /* Don't let invalid values into buffer-file-coding-system. */
+ CHECK_CODING_SYSTEM (Vcoding_system_for_read);
+ Fset (Qbuffer_file_coding_system, Vcoding_system_for_read);
+ }
goto notfound;
}
@@ -4569,7 +4573,7 @@ choose_write_coding_system (Lisp_Object start,
Lisp_Object end, Lisp_Object file
if (NILP (val))
{
/* If we still have not decided a coding system, use the
- default value of buffer-file-coding-system. */
+ current buffer's value of buffer-file-coding-system. */
val = BVAR (current_buffer, buffer_file_coding_system);
using_default_coding = 1;
}
@@ -4578,6 +4582,7 @@ choose_write_coding_system (Lisp_Object start,
Lisp_Object end, Lisp_Object file
{
Lisp_Object spec, attrs;
+ CHECK_CODING_SYSTEM (val);
CHECK_CODING_SYSTEM_GET_SPEC (val, spec);
attrs = AREF (spec, 0);
if (EQ (CODING_ATTR_TYPE (attrs), Qraw_text))
@@ -4586,17 +4591,27 @@ choose_write_coding_system (Lisp_Object start,
Lisp_Object end, Lisp_Object file
if (!force_raw_text
&& !NILP (Ffboundp (Vselect_safe_coding_system_function)))
- /* Confirm that VAL can surely encode the current region. */
- val = call5 (Vselect_safe_coding_system_function,
- start, end, val, Qnil, filename);
+ {
+ /* Confirm that VAL can surely encode the current region. */
+ val = call5 (Vselect_safe_coding_system_function,
+ start, end, val, Qnil, filename);
+ /* As the function specified by select-safe-coding-system-function
+ is out of our control, make sure we are not fed by bogus
+ values. */
+ if (!NILP (val))
+ CHECK_CODING_SYSTEM (val);
+ }
/* If the decided coding-system doesn't specify end-of-line
format, we use that of
`default-buffer-file-coding-system'. */
- if (! using_default_coding
- && ! NILP (BVAR (&buffer_defaults, buffer_file_coding_system)))
- val = (coding_inherit_eol_type
- (val, BVAR (&buffer_defaults, buffer_file_coding_system)));
+ if (! using_default_coding)
+ {
+ Lisp_Object dflt = BVAR (&buffer_defaults, buffer_file_coding_system);
+
+ if (! NILP (dflt))
+ val = coding_inherit_eol_type (val, dflt);
+ }
/* If we decide not to encode text, use `raw-text' or one of its
subsidiaries. */
diff --git a/src/font.c b/src/font.c
index ce144e7..a52a653 100644
--- a/src/font.c
+++ b/src/font.c
@@ -1770,7 +1770,7 @@ font_parse_family_registry (Lisp_Object family,
Lisp_Object registry, Lisp_Objec
p1 = strchr (p0, '-');
if (! p1)
{
- AUTO_STRING (extra, ("*-*" + (len && p0[len - 1] == '*')));
+ AUTO_STRING (extra, (&"*-*"[len && p0[len - 1] == '*']));
registry = concat2 (registry, extra);
}
registry = Fdowncase (registry);
diff --git a/src/frame.c b/src/frame.c
index 121c55f..f1a78fb 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -3539,8 +3539,8 @@ x_set_screen_gamma (struct frame *f, Lisp_Object
new_value, Lisp_Object old_valu
(f, bgcolor, Qnil);
}
- clear_face_cache (true);
- windows_or_buffers_changed = 70;
+ clear_face_cache (true); /* FIXME: Why of all frames? */
+ fset_redisplay (f);
}
diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 8b6b0a0..69f635d 100644
--- a/src/gfilenotify.c
+++ b/src/gfilenotify.c
@@ -195,6 +195,7 @@ will be reported only in case of the `moved' event. */)
/* Enable watch. */
monitor = g_file_monitor (gfile, gflags, NULL, &gerror);
+ g_object_unref (gfile);
if (gerror)
{
char msg[1024];
diff --git a/src/macfont.m b/src/macfont.m
index 97a255b..fae284f 100644
--- a/src/macfont.m
+++ b/src/macfont.m
@@ -190,6 +190,14 @@ cfstring_create_with_string_noencode (Lisp_Object s)
return string;
}
+static CFIndex
+mac_font_get_weight (CTFontRef font)
+{
+ NSFont *nsFont = (NSFont *) font;
+
+ return [[NSFontManager sharedFontManager] weightOfFont:nsFont];
+}
+
static CGFloat
mac_screen_font_get_advance_width_for_glyph (ScreenFontRef font, CGGlyph glyph)
{
@@ -198,57 +206,53 @@ mac_screen_font_get_advance_width_for_glyph
(ScreenFontRef font, CGGlyph glyph)
return advancement.width;
}
+#if !USE_CT_GLYPH_INFO
static CGGlyph
mac_font_get_glyph_for_cid (CTFontRef font, CTCharacterCollection collection,
CGFontIndex cid)
{
-#if USE_CT_GLYPH_INFO
- return mac_ctfont_get_glyph_for_cid ((CTFontRef) font, collection, cid);
-#else
- {
- CGGlyph result = kCGFontIndexInvalid;
- NSFont *nsFont = (NSFont *) font;
- unichar characters[] = {0xfffd};
- NSString *string =
- [NSString stringWithCharacters:characters
- length:ARRAYELTS (characters)];
- NSGlyphInfo *glyphInfo =
- [NSGlyphInfo glyphInfoWithCharacterIdentifier:cid
- collection:collection
- baseString:string];
- NSDictionary *attributes =
- [NSDictionary dictionaryWithObjectsAndKeys:nsFont,NSFontAttributeName,
- glyphInfo,NSGlyphInfoAttributeName,nil];
- NSTextStorage *textStorage =
- [[NSTextStorage alloc] initWithString:string
- attributes:attributes];
- NSLayoutManager *layoutManager = [[NSLayoutManager alloc] init];
- NSTextContainer *textContainer = [[NSTextContainer alloc] init];
- NSFont *fontInTextStorage;
-
- [layoutManager addTextContainer:textContainer];
- [textContainer release];
- [textStorage addLayoutManager:layoutManager];
- [layoutManager release];
-
- /* Force layout. */
- (void) [layoutManager glyphRangeForTextContainer:textContainer];
-
- fontInTextStorage = [textStorage attribute:NSFontAttributeName atIndex:0
- effectiveRange:NULL];
- if (fontInTextStorage == nsFont
- || [[fontInTextStorage fontName] isEqualToString:[nsFont fontName]])
- {
- NSGlyph glyph = [layoutManager glyphAtIndex:0];
+ CGGlyph result = kCGFontIndexInvalid;
+ NSFont *nsFont = (NSFont *) font;
+ unichar characters[] = {0xfffd};
+ NSString *string =
+ [NSString stringWithCharacters:characters
+ length:ARRAYELTS (characters)];
+ NSGlyphInfo *glyphInfo =
+ [NSGlyphInfo glyphInfoWithCharacterIdentifier:cid
+ collection:collection
+ baseString:string];
+ NSDictionary *attributes =
+ [NSDictionary dictionaryWithObjectsAndKeys:nsFont,NSFontAttributeName,
+ glyphInfo,NSGlyphInfoAttributeName,nil];
+ NSTextStorage *textStorage =
+ [[NSTextStorage alloc] initWithString:string
+ attributes:attributes];
+ NSLayoutManager *layoutManager = [[NSLayoutManager alloc] init];
+ NSTextContainer *textContainer = [[NSTextContainer alloc] init];
+ NSFont *fontInTextStorage;
- if (glyph < [nsFont numberOfGlyphs])
- result = glyph;
- }
+ [layoutManager addTextContainer:textContainer];
+ [textContainer release];
+ [textStorage addLayoutManager:layoutManager];
+ [layoutManager release];
- [textStorage release];
+ /* Force layout. */
+ (void) [layoutManager glyphRangeForTextContainer:textContainer];
- return result;
- }
+ fontInTextStorage = [textStorage attribute:NSFontAttributeName atIndex:0
+ effectiveRange:NULL];
+ if (fontInTextStorage == nsFont
+ || [[fontInTextStorage fontName] isEqualToString:[nsFont fontName]])
+ {
+ NSGlyph glyph = [layoutManager glyphAtIndex:0];
+
+ if (glyph < [nsFont numberOfGlyphs])
+ result = glyph;
+ }
+
+ [textStorage release];
+
+ return result;
}
#endif
@@ -762,6 +766,46 @@ cfnumber_get_font_symbolic_traits_value (CFNumberRef
number,
return false;
}
+static CGFloat
+mac_font_descriptor_get_adjusted_weight (CTFontDescriptorRef desc, CGFloat val)
+{
+ long percent_val = lround (val * 100);
+
+ if (percent_val == -40 || percent_val == 56)
+ {
+ CTFontRef font = NULL;
+ CFStringRef name =
+ CTFontDescriptorCopyAttribute (desc, kCTFontNameAttribute);
+
+ if (name)
+ {
+ font = CTFontCreateWithName (name, 0, NULL);
+ CFRelease (name);
+ }
+ if (font)
+ {
+ CFIndex weight = mac_font_get_weight (font);
+
+ if (percent_val == -40)
+ {
+ /* Workaround for crash when displaying Oriya characters
+ with Arial Unicode MS on OS X 10.11. */
+ if (weight == 5)
+ val = 0;
+ }
+ else /* percent_val == 56 */
+ {
+ if (weight == 9)
+ /* Adjustment for HiraginoSans-W7 on OS X 10.11. */
+ val = 0.4;
+ }
+ CFRelease (font);
+ }
+ }
+
+ return val;
+}
+
static void
macfont_store_descriptor_attributes (CTFontDescriptorRef desc,
Lisp_Object spec_or_entity)
@@ -785,6 +829,7 @@ macfont_store_descriptor_attributes (CTFontDescriptorRef
desc,
enum font_property_index index;
CFStringRef trait;
CGPoint points[6];
+ CGFloat (*adjust_func) (CTFontDescriptorRef, CGFloat);
} numeric_traits[] =
{{FONT_WEIGHT_INDEX, kCTFontWeightTrait,
{{-0.4, 50}, /* light */
@@ -792,11 +837,12 @@ macfont_store_descriptor_attributes (CTFontDescriptorRef
desc,
{0, 100}, /* normal */
{0.24, 140}, /* (semi-bold + normal) / 2 */
{0.4, 200}, /* bold */
- {CGFLOAT_MAX, CGFLOAT_MAX}}},
+ {CGFLOAT_MAX, CGFLOAT_MAX}},
+ mac_font_descriptor_get_adjusted_weight},
{FONT_SLANT_INDEX, kCTFontSlantTrait,
- {{0, 100}, {0.1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}},
+ {{0, 100}, {0.1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}, NULL},
{FONT_WIDTH_INDEX, kCTFontWidthTrait,
- {{0, 100}, {1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}}};
+ {{0, 100}, {1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}, NULL}};
int i;
for (i = 0; i < ARRAYELTS (numeric_traits); i++)
@@ -806,6 +852,8 @@ macfont_store_descriptor_attributes (CTFontDescriptorRef
desc,
{
CGPoint *point = numeric_traits[i].points;
+ if (numeric_traits[i].adjust_func)
+ floatval = (*numeric_traits[i].adjust_func) (desc, floatval);
while (point->x < floatval)
point++;
if (point == numeric_traits[i].points)
@@ -2717,7 +2765,6 @@ macfont_has_char (Lisp_Object font, int c)
static unsigned
macfont_encode_char (struct font *font, int c)
{
- struct macfont_info *macfont_info = (struct macfont_info *) font;
CGGlyph glyph;
block_input ();
@@ -3379,18 +3426,24 @@ mac_font_descriptor_supports_languages
(CTFontDescriptorRef descriptor,
result = false;
else
{
- CFIndex desc_languages_count, i, languages_count;
+ CFRange range = CFRangeMake (0, CFArrayGetCount (desc_languages));
+ CFIndex i, languages_count = CFArrayGetCount (languages);
- desc_languages_count = CFArrayGetCount (desc_languages);
- languages_count = CFArrayGetCount (languages);
for (i = 0; i < languages_count; i++)
- if (!CFArrayContainsValue (desc_languages,
- CFRangeMake (0, desc_languages_count),
- CFArrayGetValueAtIndex (languages, i)))
- {
- result = false;
- break;
- }
+ {
+ CFStringRef language = CFArrayGetValueAtIndex (languages, i);
+
+ if (!CFArrayContainsValue (desc_languages, range, language)
+ /* PingFang SC contains "zh" and "zh-Hant" as covered
+ languages, but does not contain "zh-Hans". */
+ && !(CFEqual (language, CFSTR ("zh-Hans"))
+ && CFArrayContainsValue (desc_languages, range,
+ CFSTR ("zh"))))
+ {
+ result = false;
+ break;
+ }
+ }
CFRelease (desc_languages);
}
@@ -3998,8 +4051,6 @@ mac_register_font_driver (struct frame *f)
void
syms_of_macfont (void)
{
- static struct font_driver mac_font_driver;
-
/* Core Text, for Mac OS X. */
DEFSYM (Qmac_ct, "mac-ct");
macfont_driver.type = Qmac_ct;
diff --git a/src/nsterm.m b/src/nsterm.m
index a5bf06a..65d07b2 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -6724,6 +6724,11 @@ if (cols > 0 && rows > 0)
{
if (fs_state != emacsframe->want_fullscreen)
{
+ NSSize sz;
+ sz.width = frame_resize_pixelwise ? 1 : FRAME_COLUMN_WIDTH (emacsframe);
+ sz.height = frame_resize_pixelwise ? 1 : FRAME_LINE_HEIGHT (emacsframe);
+ [[self window] setResizeIncrements:sz];
+
if (fs_state == FULLSCREEN_BOTH)
{
[self toggleFullScreen:self];
diff --git a/src/process.c b/src/process.c
index 42dd17c..55f31a0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -5031,18 +5031,12 @@ wait_reading_process_output (intmax_t time_limit, int
nsecs, int read_kbd,
for (channel = 0; channel <= max_input_desc; ++channel)
{
struct fd_callback_data *d = &fd_callback_info[channel];
- if (d->func)
- {
- if (d->condition & FOR_READ
- && FD_ISSET (channel, &Available))
- {
- d->func (channel, d->data);
- FD_CLR (channel, &Available);
- }
- else if (d->condition & FOR_WRITE
- && FD_ISSET (channel, &write_mask))
- d->func (channel, d->data);
- }
+ if (d->func
+ && ((d->condition & FOR_READ
+ && FD_ISSET (channel, &Available))
+ || (d->condition & FOR_WRITE
+ && FD_ISSET (channel, &write_mask))))
+ d->func (channel, d->data);
}
for (channel = 0; channel <= max_process_desc; channel++)
diff --git a/src/window.c b/src/window.c
index 42a2ca6..6d06e54 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1686,8 +1686,10 @@ Return nil if that position is scrolled vertically out
of view. If a
character is only partially visible, nil is returned, unless the
optional argument PARTIALLY is non-nil. If POS is only out of view
because of horizontal scrolling, return non-nil. If POS is t, it
-specifies the position of the last visible glyph in WINDOW. POS
-defaults to point in WINDOW; WINDOW defaults to the selected window.
+specifies either the first position displayed on the last visible
+screen line in WINDOW, or the end-of-buffer position, whichever comes
+first. POS defaults to point in WINDOW; WINDOW defaults to the
+selected window.
If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil,
the return value is a list of 2 or 6 elements (X Y [RTOP RBOT ROWH VPOS]),
@@ -6607,7 +6609,6 @@ apply_window_adjustment (struct window *w)
eassert (w);
clear_glyph_matrix (w->current_matrix);
w->window_end_valid = false;
- windows_or_buffers_changed = 30;
wset_redisplay (w);
adjust_frame_glyphs (XFRAME (WINDOW_FRAME (w)));
}
diff --git a/src/xdisp.c b/src/xdisp.c
index 2c38aa9..44983bb 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -434,22 +434,54 @@ static Lisp_Object Vmessage_stack;
static bool message_enable_multibyte;
-/* Nonzero if we should redraw the mode lines on the next redisplay.
- If it has value REDISPLAY_SOME, then only redisplay the mode lines where
- the `redisplay' bit has been set. Otherwise, redisplay all mode lines
- (the number used is then only used to track down the cause for this
- full-redisplay). */
+/* At each redisplay cycle, we should refresh everything there is to refresh.
+ To do that efficiently, we use many optimizations that try to make sure we
+ don't waste too much time updating things that haven't changed.
+ The coarsest such optimization is that, in the most common cases, we only
+ look at the selected-window.
+
+ To know whether other windows should be considered for redisplay, we use the
+ variable windows_or_buffers_changed: as long as it is 0, it means that we
+ have not noticed anything that should require updating anything else than
+ the selected-window. If it is set to REDISPLAY_SOME, it means that since
+ last redisplay, some changes have been made which could impact other
+ windows. To know which ones need redisplay, every buffer, window, and frame
+ has a `redisplay' bit, which (if true) means that this object needs to be
+ redisplayed. If windows_or_buffers_changed is 0, we know there's no point
+ looking for those `redisplay' bits (actually, there might be some such bits
+ set, but then only on objects which aren't displayed anyway).
+
+ OTOH if it's non-zero we wil have to loop through all windows and then check
+ the `redisplay' bit of the corresponding window, frame, and buffer, in order
+ to decide whether that window needs attention or not. Not that we can't
+ just look at the frame's redisplay bit to decide that the whole frame can be
+ skipped, since even if the frame's redisplay bit is unset, some of its
+ windows's redisplay bits may be set.
+
+ Mostly for historical reasons, windows_or_buffers_changed can also take
+ other non-zero values. In that case, the precise value doesn't matter (it
+ encodes the cause of the setting but is only used for debugging purposes),
+ and what it means is that we shouldn't pay attention to any `redisplay' bits
+ and we should simply try and redisplay every window out there. */
-int update_mode_lines;
+int windows_or_buffers_changed;
-/* Nonzero if window sizes or contents other than selected-window have changed
- since last redisplay that finished.
- If it has value REDISPLAY_SOME, then only redisplay the windows where
- the `redisplay' bit has been set. Otherwise, redisplay all windows
- (the number used is then only used to track down the cause for this
- full-redisplay). */
+/* Nonzero if we should redraw the mode lines on the next redisplay.
+ Similarly to `windows_or_buffers_changed', If it has value REDISPLAY_SOME,
+ then only redisplay the mode lines in those buffers/windows/frames where the
+ `redisplay' bit has been set.
+ For any other value, redisplay all mode lines (the number used is then only
+ used to track down the cause for this full-redisplay).
+
+ The `redisplay' bits are the same as those used for
+ windows_or_buffers_changed, and setting windows_or_buffers_changed also
+ causes recomputation of the mode lines of all those windows. IOW this
+ variable only has an effect if windows_or_buffers_changed is zero, in which
+ case we should only need to redisplay the mode-line of those objects with
+ a `redisplay' bit set but not the window's text content (tho we may still
+ need to refresh the text content of the selected-window). */
-int windows_or_buffers_changed;
+int update_mode_lines;
/* True after display_mode_line if %l was used and it displayed a
line number. */
@@ -13383,6 +13415,8 @@ redisplay_internal (void)
pending = false;
forget_escape_and_glyphless_faces ();
+ inhibit_free_realized_faces = false;
+
/* If face_change, init_iterator will free all realized faces, which
includes the faces referenced from current matrices. So, we
can't reuse current matrices in this case. */
@@ -13430,7 +13464,7 @@ redisplay_internal (void)
/* If cursor type has been changed on the frame
other than selected, consider all frames. */
if (f != sf && f->cursor_type_changed)
- update_mode_lines = 31;
+ fset_redisplay (f);
}
clear_desired_matrices (f);
}
@@ -13528,9 +13562,12 @@ redisplay_internal (void)
consider_all_windows_p = (update_mode_lines
|| windows_or_buffers_changed);
-#define AINC(a,i) \
- if (VECTORP (a) && i >= 0 && i < ASIZE (a) && INTEGERP (AREF (a, i))) \
- ASET (a, i, make_number (1 + XINT (AREF (a, i))))
+#define AINC(a,i) \
+ { \
+ Lisp_Object entry = Fgethash (make_number (i), a, make_number (0));
\
+ if (INTEGERP (entry)) \
+ Fputhash (make_number (i), make_number (1 + XINT (entry)), a); \
+ }
AINC (Vredisplay__all_windows_cause, windows_or_buffers_changed);
AINC (Vredisplay__mode_lines_cause, update_mode_lines);
@@ -13745,7 +13782,8 @@ redisplay_internal (void)
#endif
/* Build desired matrices, and update the display. If
- consider_all_windows_p, do it for all windows on all frames.
+ consider_all_windows_p, do it for all windows on all frames that
+ require redisplay, as specified by their 'redisplay' flag.
Otherwise do it for selected_window, only. */
if (consider_all_windows_p)
@@ -13871,6 +13909,10 @@ redisplay_internal (void)
if (sf->fonts_changed)
goto retry;
+ /* Prevent freeing of realized faces, since desired matrices are
+ pending that reference the faces we computed and cached. */
+ inhibit_free_realized_faces = true;
+
/* Prevent various kinds of signals during display update.
stdio is not robust about handling signals,
which can cause an apparent I/O error. */
@@ -19802,7 +19844,8 @@ push_prefix_prop (struct it *it, Lisp_Object prop)
eassert (it->method == GET_FROM_BUFFER
|| it->method == GET_FROM_DISPLAY_VECTOR
- || it->method == GET_FROM_STRING);
+ || it->method == GET_FROM_STRING
+ || it->method == GET_FROM_IMAGE);
/* We need to save the current buffer/string position, so it will be
restored by pop_it, because iterate_out_of_display_property
@@ -31381,13 +31424,11 @@ display table takes effect; in this case, Emacs does
not consult
DEFVAR_LISP ("redisplay--all-windows-cause", Vredisplay__all_windows_cause,
doc: /* */);
- Vredisplay__all_windows_cause
- = Fmake_vector (make_number (100), make_number (0));
+ Vredisplay__all_windows_cause = Fmake_hash_table (0, NULL);
DEFVAR_LISP ("redisplay--mode-lines-cause", Vredisplay__mode_lines_cause,
doc: /* */);
- Vredisplay__mode_lines_cause
- = Fmake_vector (make_number (100), make_number (0));
+ Vredisplay__mode_lines_cause = Fmake_hash_table (0, NULL);
}
diff --git a/src/xfaces.c b/src/xfaces.c
index 40713f1..8cf0b42 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -631,7 +631,7 @@ free_frame_faces (struct frame *f)
/* Clear face caches, and recompute basic faces for frame F. Call
this after changing frame parameters on which those faces depend,
or when realized faces have been freed due to changing attributes
- of named faces. */
+ of named faces. */
void
recompute_basic_faces (struct frame *f)
@@ -2528,10 +2528,15 @@ Value is a vector of face attributes. */)
if (NILP (Fget (face, Qface_no_inherit)))
{
if (f)
- f->face_change = 1;
+ {
+ f->face_change = true;
+ fset_redisplay (f);
+ }
else
- face_change = true;
- windows_or_buffers_changed = 54;
+ {
+ face_change = true;
+ windows_or_buffers_changed = 54;
+ }
}
eassert (LFACEP (lface));
@@ -2613,10 +2618,15 @@ The value is TO. */)
if (NILP (Fget (to, Qface_no_inherit)))
{
if (f)
- f->face_change = 1;
+ {
+ f->face_change = true;
+ fset_redisplay (f);
+ }
else
- face_change = true;
- windows_or_buffers_changed = 55;
+ {
+ face_change = true;
+ windows_or_buffers_changed = 55;
+ }
}
return to;
@@ -3120,7 +3130,7 @@ FRAME 0 means change the face on all frames, and change
the default
&& NILP (Fequal (old_value, value)))
{
f->face_change = true;
- windows_or_buffers_changed = 56;
+ fset_redisplay (f);
}
if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value)
@@ -3293,7 +3303,7 @@ update_face_from_frame_parameter (struct frame *f,
Lisp_Object param,
&& NILP (Fget (face, Qface_no_inherit)))
{
f->face_change = true;
- windows_or_buffers_changed = 57;
+ fset_redisplay (f);
}
}
diff --git a/src/xfns.c b/src/xfns.c
index d6a3d76..fc6111c 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1041,7 +1041,7 @@ x_set_menu_bar_lines (struct frame *f, Lisp_Object value,
Lisp_Object oldval)
nlines = 0;
/* Make sure we redisplay all windows in this frame. */
- windows_or_buffers_changed = 59;
+ fset_redisplay (f);
#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
FRAME_MENU_BAR_LINES (f) = 0;
@@ -1160,8 +1160,7 @@ x_change_tool_bar_height (struct frame *f, int height)
Lisp_Object fullscreen;
/* Make sure we redisplay all windows in this frame. */
- windows_or_buffers_changed = 60;
-
+ fset_redisplay (f);
/* Recalculate tool bar and frame text sizes. */
FRAME_TOOL_BAR_HEIGHT (f) = height;
diff --git a/test/automated/auth-source-tests.el
b/test/automated/auth-source-tests.el
new file mode 100644
index 0000000..0b49b90
--- /dev/null
+++ b/test/automated/auth-source-tests.el
@@ -0,0 +1,178 @@
+;;; auth-source-tests.el --- Tests for auth-source.el -*- lexical-binding: t;
-*-
+
+;; Copyright (C) 2015 Free Software Foundation, Inc.
+
+;; Author: Damien Cassou <address@hidden>,
+;; Nicolas Petton <address@hidden>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(require 'ert)
+(require 'auth-source)
+
+(defvar secrets-enabled t
+ "Enable the secrets backend to test its features.")
+
+(defun auth-source-validate-backend (source validation-alist)
+ (let ((backend (auth-source-backend-parse source)))
+ (should (auth-source-backend-p backend))
+ (dolist (pair validation-alist)
+ (should (equal (eieio-oref backend (car pair)) (cdr pair))))))
+
+(ert-deftest auth-source-backend-parse-macos-keychain ()
+ (auth-source-validate-backend '(:source (:macos-keychain-generic foobar))
+ '((:source . "foobar")
+ (:type . macos-keychain-generic)
+ (:search-function .
auth-source-macos-keychain-search)
+ (:create-function .
auth-source-macos-keychain-create))))
+
+(ert-deftest auth-source-backend-parse-macos-keychain-generic-string ()
+ (auth-source-validate-backend "macos-keychain-generic:foobar"
+ '((:source . "foobar")
+ (:type . macos-keychain-generic)
+ (:search-function .
auth-source-macos-keychain-search)
+ (:create-function .
auth-source-macos-keychain-create))))
+
+(ert-deftest auth-source-backend-parse-macos-keychain-internet-string ()
+ (auth-source-validate-backend "macos-keychain-internet:foobar"
+ '((:source . "foobar")
+ (:type . macos-keychain-internet)
+ (:search-function .
auth-source-macos-keychain-search)
+ (:create-function .
auth-source-macos-keychain-create))))
+
+(ert-deftest auth-source-backend-parse-macos-keychain-internet-symbol ()
+ (auth-source-validate-backend 'macos-keychain-internet
+ '((:source . "default")
+ (:type . macos-keychain-internet)
+ (:search-function .
auth-source-macos-keychain-search)
+ (:create-function .
auth-source-macos-keychain-create))))
+
+(ert-deftest auth-source-backend-parse-macos-keychain-generic-symbol ()
+ (auth-source-validate-backend 'macos-keychain-generic
+ '((:source . "default")
+ (:type . macos-keychain-generic)
+ (:search-function .
auth-source-macos-keychain-search)
+ (:create-function .
auth-source-macos-keychain-create))))
+
+(ert-deftest auth-source-backend-parse-macos-keychain-internet-default-string
()
+ (auth-source-validate-backend 'macos-keychain-internet
+ '((:source . "default")
+ (:type . macos-keychain-internet)
+ (:search-function .
auth-source-macos-keychain-search)
+ (:create-function .
auth-source-macos-keychain-create))))
+
+(ert-deftest auth-source-backend-parse-plstore ()
+ (auth-source-validate-backend '(:source "foo.plist")
+ '((:source . "foo.plist")
+ (:type . plstore)
+ (:search-function .
auth-source-plstore-search)
+ (:create-function .
auth-source-plstore-create))))
+
+(ert-deftest auth-source-backend-parse-netrc ()
+ (auth-source-validate-backend '(:source "foo")
+ '((:source . "foo")
+ (:type . netrc)
+ (:search-function . auth-source-netrc-search)
+ (:create-function .
auth-source-netrc-create))))
+
+(ert-deftest auth-source-backend-parse-netrc-string ()
+ (auth-source-validate-backend "foo"
+ '((:source . "foo")
+ (:type . netrc)
+ (:search-function . auth-source-netrc-search)
+ (:create-function .
auth-source-netrc-create))))
+
+(ert-deftest auth-source-backend-parse-secrets ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ (auth-source-validate-backend '(:source (:secrets "foo"))
+ '((:source . "foo")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create)))))
+
+(ert-deftest auth-source-backend-parse-secrets-strings ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ (auth-source-validate-backend "secrets:foo"
+ '((:source . "foo")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create)))))
+
+(ert-deftest auth-source-backend-parse-secrets-nil-source ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ (auth-source-validate-backend '(:source (:secrets nil))
+ '((:source . "session")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create)))))
+
+(ert-deftest auth-source-backend-parse-secrets-alias ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ ;; Redefine `secrets-get-alias' to map 'foo to "foo"
+ (cl-letf (((symbol-function 'secrets-get-alias) (lambda (_) "foo")))
+ (auth-source-validate-backend '(:source (:secrets foo))
+ '((:source . "foo")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create))))))
+
+(ert-deftest auth-source-backend-parse-secrets-symbol ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ ;; Redefine `secrets-get-alias' to map 'default to "foo"
+ (cl-letf (((symbol-function 'secrets-get-alias) (lambda (_) "foo")))
+ (auth-source-validate-backend 'default
+ '((:source . "foo")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create))))))
+
+(ert-deftest auth-source-backend-parse-secrets-no-alias ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ ;; Redefine `secrets-get-alias' to map 'foo to nil (so that
+ ;; "Login" is used by default
+ (cl-letf (((symbol-function 'secrets-get-alias) (lambda (_) nil)))
+ (auth-source-validate-backend '(:source (:secrets foo))
+ '((:source . "Login")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create))))))
+
+;; TODO This test shows suspicious behavior of auth-source: the
+;; "secrets" source is used even though nothing in the input indicates
+;; that is what we want
+(ert-deftest auth-source-backend-parse-secrets-no-source ()
+ (provide 'secrets) ; simulates the presence of the `secrets' package
+ (let ((secrets-enabled t))
+ (auth-source-validate-backend '(:source '(foo))
+ '((:source . "session")
+ (:type . secrets)
+ (:search-function .
auth-source-secrets-search)
+ (:create-function .
auth-source-secrets-create)))))
+
+(provide 'auth-source-tests)
+;;; auth-source-tests.el ends here
diff --git a/test/automated/coding-tests.el b/test/automated/coding-tests.el
new file mode 100644
index 0000000..ebbf896
--- /dev/null
+++ b/test/automated/coding-tests.el
@@ -0,0 +1,50 @@
+;;; coding-tests.el --- tests for text encoding and decoding
+
+;; Copyright (C) 2015 Free Software Foundation, Inc.
+
+;; Author: Eli Zaretskii <address@hidden>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+
+;; Directory to hold test data files.
+(defvar coding-tests-workdir
+ (expand-file-name "coding-tests" temporary-file-directory))
+
+;; Remove all generated test files.
+(defun coding-tests-remove-files ()
+ (delete-directory coding-tests-workdir t))
+
+(ert-deftest ert-test-coding-bogus-coding-systems ()
+ (unwind-protect
+ (let (test-file)
+ (or (file-directory-p coding-tests-workdir)
+ (mkdir coding-tests-workdir t))
+ (setq test-file (expand-file-name "nonexisting" coding-tests-workdir))
+ (if (file-exists-p test-file)
+ (delete-file test-file))
+ (should-error
+ (let ((coding-system-for-read 'bogus))
+ (insert-file-contents test-file)))
+ ;; See bug #21602.
+ (setq test-file (expand-file-name "writing" coding-tests-workdir))
+ (should-error
+ (let ((coding-system-for-write (intern "\"us-ascii\"")))
+ (write-region "some text" nil test-file))))
+ (coding-tests-remove-files)))
diff --git a/test/automated/json-tests.el b/test/automated/json-tests.el
index fd89b7a..d1b7a2f 100644
--- a/test/automated/json-tests.el
+++ b/test/automated/json-tests.el
@@ -22,15 +22,22 @@
(require 'ert)
(require 'json)
+(ert-deftest test-json-plist-reverse ()
+ (should (equal (json--plist-reverse '()) '()))
+ (should (equal (json--plist-reverse '(:a 1)) '(:a 1)))
+ (should (equal (json--plist-reverse '(:a 1 :b 2 :c 3))
+ '(:c 3 :b 2 :a 1))))
+
(ert-deftest json-encode-simple-alist ()
(should (equal (json-encode '((a . 1)
(b . 2)))
"{\"a\":1,\"b\":2}")))
(ert-deftest json-read-simple-alist ()
- (should (equal (json-read-from-string "{\"a\": 1, \"b\": 2}")
- '((b . 2)
- (a . 1)))))
+ (let ((json-object-type 'alist))
+ (should (equal (json-read-from-string "{\"a\": 1, \"b\": 2}")
+ '((a . 1)
+ (b . 2))))))
(ert-deftest json-encode-string-with-special-chars ()
(should (equal (json-encode-string "a\n\fb")
diff --git a/test/automated/mule-util.el b/test/automated/mule-util.el
index 038881a..24b56c0 100644
--- a/test/automated/mule-util.el
+++ b/test/automated/mule-util.el
@@ -1,4 +1,4 @@
-;;; mule-util --- tests for international/mule-util.el -*- coding: utf-8; -*-
+;;; mule-util --- tests for international/mule-util.el
;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
diff --git a/test/automated/python-tests.el b/test/automated/python-tests.el
index d9b4c3e..44b05e2 100644
--- a/test/automated/python-tests.el
+++ b/test/automated/python-tests.el
@@ -5216,7 +5216,6 @@ class SomeClass:
(provide 'python-tests)
;; Local Variables:
-;; coding: utf-8
;; indent-tabs-mode: nil
;; End:
diff --git a/test/indent/octave.m b/test/indent/octave.m
index a704146..4758f99 100644
--- a/test/indent/octave.m
+++ b/test/indent/octave.m
@@ -1,6 +1,19 @@
## -*- mode: octave; coding: utf-8 -*-
0; # Don't make this a function file
function res = tcomp (fn)
+
+ global x y ...
+ z1 z2
+ persistent x y ...
+ z1 z2
+ global x y = 2 ...
+ z1 z2 # FIXME
+
+ do
+ something
+ until x = ...
+ y
+
%% res = tcomp (fn)
%% imports components and rearranges them.
@@ -10,6 +23,15 @@ function res = tcomp (fn)
data = dlmread(fn, 3, 0);
+ enumeration
+ first (1)
+ second (2)
+ end
+
+ y = enumeration (x); #Beware: "enumeration" can also be a function!
+ y = foo(enumeration (x),
+ 2); #Beware: "enumeration" can also be a function!
+
x = data(:,2:end);
y = 'hello';
z = y';
diff --git a/test/indent/prolog.prolog b/test/indent/prolog.prolog
index 6bf9437..9ac6df1 100644
--- a/test/indent/prolog.prolog
+++ b/test/indent/prolog.prolog
@@ -1,16 +1,18 @@
%% -*- mode: prolog; coding: utf-8; fill-column: 78 -*-
%% bug#21526
-test1 :-
+test21526_1 :-
( a ->
- ( a ->
- b
- ; c
- )
- ; c
+ ( a ->
+ b
+ ; c
+ )
+ ; % Toto
+ c ->
+ d
).
-test2 :-
+test21526_2 :-
( a
-> ( a,
b
@@ -19,7 +21,31 @@ test2 :-
b2
; c1,
c2
- )
+ ).
+
+test21526_3 :-
+ X \= Y,
+ \+ a,
+ b,
+ \+ \+ c,
+ d.
+
+test21526_4 :-
+ ( \+ a ->
+ b
+ ; \+ c,
+ \+ d
+ ).
+
+
+test21526_5 :-
+ (a;
+ b ->
+ c).
+
+test21526_predicate(c) :- !,
+ test_goal1,
+ test_goal2.
%% Testing correct tokenizing.
foo(X) :- 0'= = X.
@@ -74,11 +100,11 @@ subst(X, V, FV, lambda(Y, Ti, Bi), lambda(Y1, To, Bo)) :-
%% If X is equal to Y, X is shadowed, so no subst can take place.
-> Y1 = Y, Bo = Bi
; (member((Y, _), FV)
- %% If Y appears in FV, it can appear in V, so we need to
- %% rename it to avoid name capture.
- -> new_atom(Y, Y1),
- subst(Y, Y1, [], Bi, Bi1)
- ; Y1 = Y, Bi1 = Bi),
+ %% If Y appears in FV, it can appear in V, so we need to
+ %% rename it to avoid name capture.
+ -> new_atom(Y, Y1),
+ subst(Y, Y1, [], Bi, Bi1)
+ ; Y1 = Y, Bi1 = Bi),
%% Perform substitution on the body.
subst(X, V, FV, Bi1, Bo)
).
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, (continued)
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Stefan Monnier, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Artur Malabarba, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Eli Zaretskii, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Artur Malabarba, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Eli Zaretskii, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Kaushal Modi, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Óscar Fuentes, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Kaushal Modi, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, David Kastrup, 2015/10/08
- Re: [Emacs-diffs] master 94ed516 2/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Alan Mackenzie, 2015/10/08
[Emacs-diffs] master 47e9556 4/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs,
Kenichi Handa <=
[Emacs-diffs] master 52beda9 3/4: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs, Kenichi Handa, 2015/10/08
[Emacs-diffs] master 33f2e00 1/4: fix for the case that M17N_FLT_USE_NEW_FEATURE is not defined, Kenichi Handa, 2015/10/08