aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorK. Handa2015-10-05 22:56:26 +0900
committerK. Handa2015-10-05 22:56:26 +0900
commit47e9556c70a7009d7c750fd7bf10a0e6cf41cdce (patch)
tree4e944bd68080adee76291dd7d4f34103e2b55d50
parent52beda922d2cb523a03661bf74b8678c8b45e440 (diff)
parentef171d1d0b42758b5f705847d558436e867372f4 (diff)
downloademacs-47e9556c70a7009d7c750fd7bf10a0e6cf41cdce.tar.gz
emacs-47e9556c70a7009d7c750fd7bf10a0e6cf41cdce.zip
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
-rw-r--r--CONTRIBUTE14
-rw-r--r--ChangeLog.21081
-rw-r--r--admin/MAINTAINERS112
-rw-r--r--admin/authors.el2
-rwxr-xr-xautogen.sh2
-rw-r--r--doc/emacs/frames.texi1
-rw-r--r--doc/emacs/text.texi4
-rw-r--r--doc/lispintro/emacs-lisp-intro.texi3
-rw-r--r--doc/lispref/control.texi16
-rw-r--r--doc/lispref/display.texi22
-rw-r--r--doc/lispref/objects.texi4
-rw-r--r--doc/lispref/sequences.texi84
-rw-r--r--doc/lispref/windows.texi14
-rw-r--r--etc/NEWS17
-rw-r--r--etc/compilation.txt1
-rw-r--r--etc/themes/wombat-theme.el2
-rw-r--r--etc/tutorials/TUTORIAL.cn5
-rw-r--r--lisp/ChangeLog.175
-rw-r--r--lisp/arc-mode.el65
-rw-r--r--lisp/battery.el2
-rw-r--r--lisp/calc/calc-aent.el1
-rw-r--r--lisp/calc/calc-ext.el4
-rw-r--r--lisp/calc/calc-lang.el4
-rw-r--r--lisp/calc/calc-store.el4
-rw-r--r--lisp/calc/calc-units.el4
-rw-r--r--lisp/calc/calc.el4
-rw-r--r--lisp/calc/calccomp.el4
-rw-r--r--lisp/calendar/cal-bahai.el4
-rw-r--r--lisp/calendar/cal-french.el4
-rw-r--r--lisp/calendar/cal-menu.el4
-rw-r--r--lisp/calendar/calendar.el1
-rw-r--r--lisp/calendar/diary-lib.el4
-rw-r--r--lisp/calendar/holidays.el4
-rw-r--r--lisp/calendar/icalendar.el2
-rw-r--r--lisp/cedet/mode-local.el4
-rw-r--r--lisp/color.el2
-rw-r--r--lisp/desktop.el4
-rw-r--r--lisp/dnd.el2
-rw-r--r--lisp/emacs-lisp/bytecomp.el2
-rw-r--r--lisp/emacs-lisp/cconv.el2
-rw-r--r--lisp/emacs-lisp/cl-macs.el2
-rw-r--r--lisp/emacs-lisp/copyright.el5
-rw-r--r--lisp/emacs-lisp/elint.el2
-rw-r--r--lisp/emacs-lisp/lisp-mode.el20
-rw-r--r--lisp/emacs-lisp/macroexp.el2
-rw-r--r--lisp/emacs-lisp/pcase.el2
-rw-r--r--lisp/emacs-lisp/seq.el3
-rw-r--r--lisp/emacs-lisp/shadow.el4
-rw-r--r--lisp/emacs-lisp/tabulated-list.el4
-rw-r--r--lisp/filesets.el2
-rw-r--r--lisp/fringe.el2
-rw-r--r--lisp/gnus/auth-source.el2
-rw-r--r--lisp/htmlfontify.el4
-rw-r--r--lisp/ibuffer.el18
-rw-r--r--lisp/info-xref.el2
-rw-r--r--lisp/json.el21
-rw-r--r--lisp/ldefs-boot.el1095
-rw-r--r--lisp/mail/emacsbug.el3
-rw-r--r--lisp/mail/footnote.el2
-rw-r--r--lisp/mail/mail-extr.el2
-rw-r--r--lisp/mail/sendmail.el1
-rw-r--r--lisp/mail/uce.el4
-rw-r--r--lisp/man.el2
-rw-r--r--lisp/mh-e/mh-e.el4
-rw-r--r--lisp/minibuffer.el6
-rw-r--r--lisp/net/eudc-bob.el2
-rw-r--r--lisp/net/eudc-export.el2
-rw-r--r--lisp/net/eudc-hotlist.el2
-rw-r--r--lisp/net/eudc-vars.el2
-rw-r--r--lisp/net/eudc.el2
-rw-r--r--lisp/net/eudcb-bbdb.el2
-rw-r--r--lisp/net/eudcb-ldap.el2
-rw-r--r--lisp/net/eudcb-ph.el2
-rw-r--r--lisp/net/newst-treeview.el2
-rw-r--r--lisp/net/shr.el56
-rw-r--r--lisp/net/tramp-compat.el22
-rw-r--r--lisp/net/tramp.el2
-rw-r--r--lisp/net/trampver.el7
-rw-r--r--lisp/obsolete/iso-insert.el2
-rw-r--r--lisp/play/5x5.el2
-rw-r--r--lisp/play/bubbles.el2
-rw-r--r--lisp/play/handwrite.el2
-rw-r--r--lisp/play/morse.el2
-rw-r--r--lisp/progmodes/cmacexp.el4
-rw-r--r--lisp/progmodes/compile.el2
-rw-r--r--lisp/progmodes/f90.el4
-rw-r--r--lisp/progmodes/gdb-mi.el57
-rw-r--r--lisp/progmodes/grep.el22
-rw-r--r--lisp/progmodes/hideshow.el2
-rw-r--r--lisp/progmodes/js.el4
-rw-r--r--lisp/progmodes/octave.el316
-rw-r--r--lisp/progmodes/prog-mode.el65
-rw-r--r--lisp/progmodes/prolog.el47
-rw-r--r--lisp/progmodes/python.el1
-rw-r--r--lisp/progmodes/sh-script.el79
-rw-r--r--lisp/replace.el2
-rw-r--r--lisp/ruler-mode.el4
-rw-r--r--lisp/skeleton.el2
-rw-r--r--lisp/subr.el2
-rw-r--r--lisp/tempo.el4
-rw-r--r--lisp/term/x-win.el2
-rw-r--r--lisp/textmodes/conf-mode.el2
-rw-r--r--lisp/textmodes/fill.el2
-rw-r--r--lisp/textmodes/paragraphs.el4
-rw-r--r--lisp/textmodes/po.el2
-rw-r--r--lisp/textmodes/reftex-vars.el7
-rw-r--r--lisp/textmodes/rst.el15
-rw-r--r--lisp/textmodes/tex-mode.el2
-rw-r--r--lisp/textmodes/texinfo.el2
-rw-r--r--lisp/textmodes/tildify.el5
-rw-r--r--lisp/time.el2
-rw-r--r--lisp/vc/cvs-status.el2
-rw-r--r--lisp/vc/ediff-util.el1
-rw-r--r--lisp/vc/vc-git.el28
-rw-r--r--lisp/wdired.el1
-rw-r--r--lisp/whitespace.el3
-rw-r--r--lisp/winner.el3
-rw-r--r--lisp/woman.el5
-rw-r--r--lisp/x-dnd.el2
-rw-r--r--nt/INSTALL148
-rw-r--r--src/cmds.c2
-rw-r--r--src/coding.c3
-rw-r--r--src/dired.c13
-rw-r--r--src/fileio.c33
-rw-r--r--src/font.c2
-rw-r--r--src/frame.c4
-rw-r--r--src/gfilenotify.c1
-rw-r--r--src/macfont.m171
-rw-r--r--src/nsterm.m5
-rw-r--r--src/process.c18
-rw-r--r--src/window.c7
-rw-r--r--src/xdisp.c87
-rw-r--r--src/xfaces.c28
-rw-r--r--src/xfns.c5
-rw-r--r--test/automated/auth-source-tests.el178
-rw-r--r--test/automated/coding-tests.el50
-rw-r--r--test/automated/json-tests.el13
-rw-r--r--test/automated/mule-util.el2
-rw-r--r--test/automated/python-tests.el1
-rw-r--r--test/indent/octave.m22
-rw-r--r--test/indent/prolog.prolog52
141 files changed, 3152 insertions, 1249 deletions
diff --git a/CONTRIBUTE b/CONTRIBUTE
index 609ab7acb6b..4d5d08a0fd5 100644
--- a/CONTRIBUTE
+++ b/CONTRIBUTE
@@ -201,6 +201,20 @@ then exclude that commit from the merge to trunk.
201 201
202** Other process information 202** Other process information
203 203
204*** Non-ASCII characters in Emacs files
205
206If you introduce non-ASCII characters into Emacs source files, it is a
207good idea to add a 'coding' cookie to the file to state its encoding.
208Please use the UTF-8 encoding unless it cannot do the job for some
209good reason. As of Emacs 24.4, it is no longer necessary to have
210explicit 'coding' cookies in *.el files if they are encoded in UTF-8,
211but other files need them even if encoded in UTF-8. However, if
212an *.el file is intended for use with older Emacs versions (e.g. if
213it's also distributed via ELPA), having an explicit encoding
214specification is still a good idea.
215
216*** Useful files in the admin/ directory
217
204See all the files in admin/notes/* . In particular, see 218See all the files in admin/notes/* . In particular, see
205admin/notes/newfile, see admin/notes/repo. 219admin/notes/newfile, see admin/notes/repo.
206 220
diff --git a/ChangeLog.2 b/ChangeLog.2
index 0fb3df621c8..94c850884b5 100644
--- a/ChangeLog.2
+++ b/ChangeLog.2
@@ -1,3 +1,1082 @@
12015-10-04 Eli Zaretskii <eliz@gnu.org>
2 Michael Heerdegen <michael_heerdegen@web.de>
3
4 shr: fix too long lines in rendered buffers (Bug#21012)
5
6 * lisp/net/shr.el (shr-insert-document, shr-fill-text):
7 Correct calculation of available width.
8 (shr-find-fill-point): Don't overflow window edge if shr-kinsoku-shorten
9 is nil.
10
112015-10-04 Vincent Belaïche <vincentb1@users.sourceforge.net>
12
13 Restore blank line before next section, erroneously erased in my previous commit
14
15 * 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
16
172015-10-04 Vincent Belaïche <vincentb1@users.sourceforge.net>
18
19 Support MSW filename style for ant compilation error regexp
20
21 * etc/compilation.txt (symbol ant):
22 * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist): Support MSW filename style
23
242015-10-03 Paul Eggert <eggert@cs.ucla.edu>
25
26 * nt/INSTALL: Minor spelling and quote fixes.
27
28 * lisp/ibuffer.el: Fix docstring length (Bug#21541).
29
302015-10-03 Simen Heggestøyl <simenheg@gmail.com>
31
32 Maintain ordering of JSON object keys by default
33
34 * lisp/json.el (json-object-type): Mention order handling in doc-string.
35 (json--plist-reverse): New utility function.
36 (json-read-object): Maintain ordering for alists and plists.
37 (json-pretty-print): Ensure that ordering is maintained.
38
39 * test/automated/json-tests.el (test-json-plist-reverse): New test for
40 `json--plist-reverse'.
41 (json-read-simple-alist): Update test to accommodate for changes in
42 `json-read-object'.
43
44 * etc/NEWS: Document the new behavior of the pretty printing functions.
45
462015-10-03 Andreas Schwab <schwab@linux-m68k.org>
47
48 * src/coding.c (complement_process_encoding_system): Revert last
49 change.
50
512015-10-03 Ulf Jasper <ulf.jasper@web.de>
52
53 Add entry for Ulf Jasper.
54
552015-10-03 Xue Fuqiao <xfq.free@gmail.com>
56
57 Doc fix for `defmacro'
58
59 * doc/lispref/objects.texi (Macro Type): `defmacro' is a macro now.
60
612015-10-03 Andreas Schwab <schwab@linux-m68k.org>
62
63 More validatation of coding systems
64
65 * src/fileio.c (Finsert_file_contents): Remove redundant
66 coding-system check.
67 (choose_write_coding_system): Likewise.
68 * src/coding.c (complement_process_encoding_system): Check
69 argument for valid coding system.
70
712015-10-03 Eli Zaretskii <eliz@gnu.org>
72
73 Avoid crashes in coding_inherit_eol_type
74
75 * src/coding.c (coding_inherit_eol_type): Check the validity of
76 the arguments. Suggested by Andreas Schwab <schwab@linux-m68k.org>.
77 (Bug#21602)
78
792015-10-03 Eli Zaretskii <eliz@gnu.org>
80
81 More validatation of coding system in 'write-region'
82
83 * src/coding.c (choose_write_coding_system): More validation of
84 coding-system from various sources. Suggested by Andreas Schwab
85 <schwab@linux-m68k.org>. (Bug#21602)
86
872015-10-03 Eli Zaretskii <eliz@gnu.org>
88
89 Avoid crashes due to invalid coding-system
90
91 * src/fileio.c (choose_write_coding_system)
92 (Finsert_file_contents): Check validity of coding-system-for-write
93 and coding-system-for-read bound by the caller. (Bug#21602)
94
952015-10-03 Tassilo Horn <tsdh@gnu.org>
96
97 Adapt to new prettify-symbols-unprettify-at-point default
98
99 * etc/NEWS: Mention that unprettication of symbol at point is off by
100 default.
101
1022015-10-03 Tassilo Horn <tsdh@gnu.org>
103
104 Revert my two recent process.c changes
105
106 Revert "Improve last commit to process.c" and "Remove callback-handled
107 channels from Available set" because they did not fix bug#21313.
108
109 This reverts commits bfa1aa8e2bdaf14adbbf1e9e824051d3f740694c and
110 27f871907cc24f33a7d12ac3a4ab71a88f0bc554..
111
1122015-10-02 Markus Triska <triska@metalevel.at>
113
114 * prolog.el: Update and extend operator table
115
116 (prolog-smie-grammar): Add multifile, public etc.
117
1182015-10-02 Paul Eggert <eggert@cs.ucla.edu>
119
120 Allow autogen even when Git is not installed
121
122 * autogen.sh: Test ‘git status’ before trying to use Git.
123
1242015-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
125
126 * lisp/vc/vc-git.el (vc-git-region-history): Handle local changes
127
128 Adjust lto/lfrom when we have uncommitted changes.
129
1302015-10-02 Paul Eggert <eggert@cs.ucla.edu>
131
132 Fix problems found by clang 3.5.0
133
134 * src/cmds.c (Fdelete_char): Don’t assume XINT returns int.
135 * src/font.c (font_parse_family_registry):
136 Use &"str"[X] instead of "str"+X, to pacify clang -Wstring-plus-int.
137
1382015-10-02 Eli Zaretskii <eliz@gnu.org>
139
140 * nt/INSTALL: Update instructions for running autogen.sh
141
142 * nt/INSTALL: Point to ezwinports for libXpm binaries.
143
1442015-10-02 Daniel Colascione <dancol@dancol.org>
145
146 Fix winner in cl-lib not loaded case
147
148 * lisp/winner.el (winner-change-fun): Don't use cl-lib functions
149 without requiring CL
150
1512015-10-02 Paul Eggert <eggert@cs.ucla.edu>
152
153 Fix a few problems with directed quotes
154
155 This is in response to a problem report by Kaushal Modi in:
156 http://bugs.gnu.org/21588#25
157 * lisp/cedet/mode-local.el (describe-mode-local-overload):
158 * lisp/emacs-lisp/bytecomp.el (byte-compile-fix-header):
159 * lisp/info-xref.el (info-xref-check-all-custom):
160 * lisp/mail/emacsbug.el (report-emacs-bug-hook):
161 Prefer directed to undirected single quotes in diagnostics.
162
1632015-10-01 Eli Zaretskii <eliz@gnu.org>
164
165 Revert "Attempt to fix slow redisplay caused by last changes"
166
167 * src/xdisp.c (try_window_id, try_window_reusing_current_matrix)
168 (try_cursor_movement): Don't relax requirements for redisplay
169 optimizations for the selected frame. (Bug#21597)
170
171 This reverts commit c4c1fb97727ff52bcfa83ad5ed94a64a93d12e59.
172
1732015-10-01 Eli Zaretskii <eliz@gnu.org>
174
175 Fix slow redisplay when daemon frame exists
176
177 * src/xdisp.c (redisplay_internal): Don't consider daemon frames
178 when looking for frames that need to be redisplayed. (Bug#21597)
179
1802015-10-01 Eli Zaretskii <eliz@gnu.org>
181
182 Attempt to fix slow redisplay caused by last changes
183
184 * src/xdisp.c (try_window_id, try_window_reusing_current_matrix)
185 (try_cursor_movement): Relax requirements for redisplay
186 optimizations for the selected frame. (Bug#21597)
187
1882015-10-01 Stephen Leake <stephen_leake@stephe-leake.org>
189
190 Improve doc strings in dired.c
191
192 * src/dired.c (Ffile_name_completion, Ffile_name_all_completions):
193 Improve doc string.
194
1952015-10-01 Stephen Leake <stephen_leake@stephe-leake.org>
196
197 Set default base-size in minibuffer-completion-help
198
199 * lisp/minibuffer.el (minibuffer-completion-help): Set default base-size,
200 in case completion table does not set it.
201
2022015-10-01 Eli Zaretskii <eliz@gnu.org>
203
204 Fix GUD display of GDB output with non-ASCII text
205
206 * lisp/progmodes/gdb-mi.el (gdb-mi-decode-strings): New defcustom.
207 (gdb-mi-decode): New function.
208 (gud-gdbmi-marker-filter): If gdb-mi-decode-strings is non-nil,
209 decode octal escapes in GDB output. (Bug#21572)
210
2112015-10-01 Eli Zaretskii <eliz@gnu.org>
212
213 * nt/INSTALL: Document where to find XPM support files
214
2152015-10-01 Tassilo Horn <tsdh@gnu.org>
216
217 Un- and re-prettification are not exclusive
218
219 * lisp/progmodes/prog-mode.el (prettify-symbols--post-command-hook):
220 Re-apply prettification to previous symbol also when unprettifying next
221 one.
222
2232015-10-01 Tassilo Horn <tsdh@gnu.org>
224
225 Don't unprettify symbol at point by default
226
227 * lisp/progmodes/prog-mode.el (prettify-symbols-unprettify-at-point):
228 Default to disabled (nil).
229
2302015-09-30 Artur Malabarba <bruce.connor.am@gmail.com>
231
232 * lisp/progmodes/prog-mode.el (prettify-symbols-unprettify-at-point):
233
234 Support unprettifying when point is after a symbol.
235
236 * etc/NEWS: Document `prettify-symbols-unprettify-at-point'
237
2382015-09-30 Eli Zaretskii <eliz@gnu.org>
239
240 Avoid assertion violations in push_prefix_prop
241
242 * src/xdisp.c (push_prefix_prop): Avoid assertion violations when
243 a line that has a line-prefix defined starts with an image. (Bug#21428)
244
2452015-09-30 Eli Zaretskii <eliz@gnu.org>
246
247 Disable some display optimizations when frames need redisplay
248
249 These optimizations were previously disabled by the
250 windows_or_buffers_changed flag, which now is not set
251 when only some frames need to be redrawn.
252 * src/xdisp.c (redisplay_internal): Redisplay any frame whose
253 'redisplay' flag is set.
254 (try_window_reusing_current_matrix, try_window_id)
255 (try_cursor_movement): Disable these optimizations when the
256 frame's 'redisplay' flag is set.
257
2582015-09-30 Tassilo Horn <tsdh@gnu.org>
259
260 Don't modify buffer by unprettification
261
262 * lisp/progmodes/prog-mode.el (prettify-symbols--compose-symbol):
263 (prettify-symbols--post-command-hook, prettify-symbols-mode): Don't
264 modify buffer when setting/removing custom prettify-symbols-start/end
265 text properties. Add them to font-lock-extra-managed-props, too.
266
2672015-09-30 Stefan Monnier <monnier@iro.umontreal.ca>
268
269 Try to avoid redisplaying all frames when creating a new one
270
271 * src/xfns.c (x_set_menu_bar_lines, x_change_tool_bar_height):
272 * src/xfaces.c (Finternal_make_lisp_face, Finternal_copy_lisp_face)
273 (Finternal_set_lisp_face_attribute, update_face_from_frame_parameter):
274 * src/frame.c (x_set_screen_gamma): Set the specific frame's
275 `redisplay' bit rather than windows_or_buffers_changed.
276
277 * src/window.c (apply_window_adjustment): Remove redundant setting of
278 windows_or_buffers_changed.
279
280 * src/xdisp.c (redisplay_internal): Set the specific frame's
281 `redisplay' bit rather than update_mode_lines in response to
282 cursor_type_changed.
283 (syms_of_xdisp): Use hash-tables for redisplay_*_cause tables.
284 (AINC): Adjust accordingly.
285
2862015-09-30 Tassilo Horn <tsdh@gnu.org>
287
288 Implement unprettification of symbol at point
289
290 * lisp/progmodes/prog-mode.el: Implement feature for unprettifying the
291 symbol at point.
292 (prettify-symbols--current-symbol-bounds): New variable.
293 (prettify-symbols--post-command-hook): New function.
294 (prettify-symbols-unprettify-at-point): New defcustom.
295 (prettify-symbols-mode): Use it.
296 (prettify-symbols--compose-symbol): Use them.
297
2982015-09-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
299
300 * src/macfont.m (mac_font_descriptor_supports_languages): Regard "zh" as synonym of "zh-Hans".
301
3022015-09-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
303
304 Work around crash when displaying etc/HELLO on OS X 10.11
305
306 * src/macfont.m (mac_font_get_weight)
307 (mac_font_descriptor_get_adjusted_weight): New functions.
308 (macfont_store_descriptor_attributes): Adjust weight.
309
3102015-09-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
311
312 * src/macfont.m: Fix compilation with USE_CT_GLYPH_INFO.
313
3142015-09-30 Nicolas Petton <nicolas@petton.fr>
315
316 * lisp/arc-mode.el (archive-rar-summarize): Better alignment of the columns.
317
3182015-09-30 Nicolas Petton <nicolas@petton.fr>
319
320 Use unar and lsar to handle RAR archives in arc-mode
321
322 * lisp/arc-mode.el (archive-rar-extract, archive-extract-by-file): Rely
323 on unar and lsar instead of unrar-free for RAR archives (Bug#17663).
324
3252015-09-30 Wieland Hoffmann <themineo@gmail.com> (tiny change)
326
327 Clarify :create in auth-source's docs
328
329 * auth-source.el (auth-source-search): Clarify :create's meaning.
330
3312015-09-30 Phil Sainty <psainty@orcon.net.nz>
332
333 Avoid empty -path arguments in rgrep
334
335 * lisp/progmodes/grep.el (rgrep-default-command): Remove nil from
336 the list produced according to grep-find-ignored-directories,
337 before passing it to Find/Grep invocation. (Bug#21548)
338
3392015-09-30 Eli Zaretskii <eliz@gnu.org>
340
341 Clarify documentation of pos-visible-in-window-p
342
343 * src/window.c (Fpos_visible_in_window_p): Clarify the meaning of
344 t for POS. See
345 http://lists.gnu.org/archive/html/emacs-devel/2015-09/msg01040.html
346 for the original report.
347
348 * doc/lispref/windows.texi (Window Start and End): Clarify the
349 meaning of t for the POSITION argument of pos-visible-in-window-p.
350
3512015-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
352
353 * lisp/progmodes/prolog.el: Fix various indentation cases
354
355 (prolog-operator-chars): New const (add \\).
356 (prolog-smie-forward-token, prolog-smie-backward-token): Use it.
357 (prolog-smie-rules): Add rules according to bug#21526.
358
3592015-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
360
361 * lisp/progmodes/sh-script.el: Old "dumb" continued line indent
362
363 (sh-indent-after-continuation): Add new value `always' (bug#17620)
364 (sh-smie-sh-rules): Remove old handling of continued lines.
365 (sh-smie--indent-continuation): New function.
366 (sh-set-shell): Use it.
367
3682015-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
369
370 * lisp/progmodes/octave.el: Use grammar more; Handle enumeration fun
371
372 Remove redundant :group keyword args.
373 (octave-begin-keywords, octave-else-keywords, octave-end-keywords):
374 Remove variables.
375 (octave-operator-table, octave-smie-bnf-table): Use let-when-compile to
376 turn them into compile-time variables.
377 Auto-generate the "foo ... end" rules from the "foo ... endfoo" rules.
378 Add rules for break, continue, return, global, and persistent.
379 Refine the rule for "until".
380 (octave-smie--funcall-p, octave-smie--end-index-p)
381 (octave-smie--in-parens-p): New functions.
382 (octave-smie-backward-token, octave-smie-forward-token): Use them to
383 distinguish the "enumeration" function and the "end" index from
384 their corresponding keywords.
385 (octave--block-offset-keywords): New constant.
386 (octave-smie-rules): Use it. Adjust rules for new global/persistent parsing.
387 (octave-reserved-words): Redefine using octave-smie-grammar.
388 (octave-font-lock-keywords): Use octave-smie--funcall-p and
389 octave-smie--end-index-p.
390
3912015-09-29 Stefan Monnier <monnier@iro.umontreal.ca>
392
393 * lisp/emacs-lisp/lisp-mode.el (let-when-compile): Work like let*
394
3952015-09-29 Eli Zaretskii <eliz@gnu.org>
396
397 nt/INSTALL: Remove references to GTK site
398
399 That site no longer offers Windows downloads.
400
4012015-09-29 Eli Zaretskii <eliz@gnu.org>
402
403 * nt/INSTALL: Add instructions for installing Git.
404
4052015-09-29 Katsumi Yamaoka <yamaoka@jpl.org>
406
407 * net/shr.el (shr-colorize-region): Allow 88-color tty to use colors.
408 Suggested by Eli Zaretskii.
409
4102015-09-28 Katsumi Yamaoka <yamaoka@jpl.org>
411
412 * net/shr.el (shr-colorize-region):
413 Don't do it on a system not supporting 256 above colors (bug#21557).
414
4152015-09-28 Dmitry Gutov <dgutov@yandex.ru>
416
417 Revert "Don't rely on defaults in decoding UTF-8 encoded Lisp files"
418
419 This reverts commit db828f62f6f17414fbbc3206dac123dc73dd6055.
420
4212015-09-28 Nicolas Petton <nicolas@petton.fr>
422
423 Add documentation for seq.el
424
425 * doc/lispref/sequences.texi: Add documentation regarding extending
426 seq.el, as well as missing documentation for seq-elt, seq-length, seq-p,
427 seq-do and seq-map.
428
4292015-09-28 Nicolas Petton <nicolas@petton.fr>
430
431 Better documentation for seq-some
432
433 * doc/lispref/sequences.texi:
434 * lisp/emacs-lisp/seq.el: Update the documentation of seq-some to
435 guarantee that the returned value is the first non-nil value that
436 resulted from applying the predicate.
437
4382015-09-28 Nicolas Petton <nicolas@petton.fr>
439
440 * lisp/arc-mode.el: Sharp-quote function arguments.
441
4422015-09-28 Eli Zaretskii <eliz@gnu.org>
443
444 Avoid redisplay error in ediff-regions-wordwise
445
446 * lisp/vc/ediff-util.el
447 (ediff-clone-buffer-for-region-comparison): Make sure the mark is
448 set before activating it. (Bug#21567)
449
4502015-09-28 Eli Zaretskii <eliz@gnu.org>
451
452 Another attempt to fix crashes due to prematurely freed faces
453
454 * src/xdisp.c (redisplay_internal): Inhibit freeing of realized
455 faces for as long as we might have desired matrices that reference
456 those faces. (Bug#21428)
457
4582015-09-28 Tassilo Horn <tsdh@gnu.org>
459
460 Add auctex development list email address
461
4622015-09-28 Tassilo Horn <tsdh@gnu.org>
463
464 Add admin/MAINTAINERS entries
465
466 * admin/MAINTAINERS: Add entries for AUCTeX team and myself.
467
4682015-09-28 (tiny change) Arash Esbati <esbati@gmx.de> (tiny change)
469
470 Improve wrapfig package support and caption parsing
471
472 * lisp/textmodes/reftex-vars.el (reftex-label-alist-builtin): Correct
473 description string and add wraptable environment.
474 (reftex-default-context-regexps): Improve caption regexp.
475
4762015-09-28 Anders Lindgren <andlind@gmail.com>
477
478 Respect value of frame_resize_pixelwise when handling fullscreen state.
479
480 * src/nsterm.m (handleFS): Respect frame_resize_pixelwise when
481 setting size increments.
482
4832015-09-27 Michael Albinus <michael.albinus@gmx.de>
484
485 * src/gfilenotify.c (Fgfile_add_watch): Cleanup temporary variable.
486
4872015-09-27 Simen Heggestøyl <simenheg@gmail.com>
488
489 Add prettify-symbols-alist for js-mode
490
491 * lisp/progmodes/js.el (js--prettify-symbols-alist): New defconst.
492 (js-mode): Use it.
493
4942015-09-27 Eli Zaretskii <eliz@gnu.org>
495
496 * nt/subdirs.el: File deleted (no longer used).
497
4982015-09-26 Alan Mackenzie <acm@muc.de>
499
500 Fix follow-scroll-up/down, making them replacements for scroll-up/down.
501
502 1. Allow point to move between follow windows in scroll operations.
503 2. Fix bug where `right-char' just before EOB caused spurious scrolling,
504 when EOB was isolated in the last follow window.
505
506 lisp/follow.el (follow-fixed-window): New variable.
507 (follow-get-scrolled-point): New function.
508 (follow-scrol-up, follow-scroll-down): Add autoload cookies.
509 Reformulate
510 the code. Put `scroll-command' properties on the functions. Correct
511 minor errors in ...-down's doc string and code.
512 (follow-calc-win-end): Amend incomplete doc string. Use
513 `pos-visible-in-window-p' to check whether EOB is in the window.
514 (follow-estimate-first-window-start): Correct an off-by-1 error.
515 (follow-adjust-window): Add handling for explicit scrolling operations.
516
5172015-09-26 Paul Eggert <eggert@cs.ucla.edu>
518
519 * admin/MAINTAINERS: Add self, plus list some more files sans maintaners.
520
5212015-09-26 Zachary Kanfer <zkanfer@gmail.com> (tiny change)
522
523 New DWIM commands for changing letter-case
524
525 * lisp/simple.el (upcase-dwim, downcase-dwim, capitalize-dwim):
526 New functions. (Bug#21501)
527
5282015-09-26 Eli Zaretskii <eliz@gnu.org>
529
530 * etc/PROBLEMS: Document problems with pasting on MS-Windows
531
5322015-09-26 Eli Zaretskii <eliz@gnu.org>
533
534 Make face realization be more frame-specific
535
536 * src/frame.h (struct f): New flag face_change.
537 * src/xfaces.c (Finternal_make_lisp_face)
538 (Finternal_copy_lisp_face, Finternal_set_lisp_face_attribute)
539 (update_face_from_frame_parameter): Set the face_change flag only
540 for the frame whose faces are affected.
541 * src/xdisp.c (init_iterator): If a frame's face_change flag is
542 set, free faces only on that frame.
543 (redisplay_internal): Disable "display optimization 1" if the
544 frame's face_change flag is set.
545 (redisplay_window): Don't allow skipping a window's redisplay if
546 its frame's face_change flag is set.
547 * src/frame.c (x_set_screen_gamma): Instead of calling
548 Fclear_face_cache, call clear_face_cache and set
549 windows_or_buffers_changed to a non-zero value. This avoids
550 setting the global face_change flag that triggers face realization
551 on all frames and thorough redisplay of all of them.
552
553 * lisp/term/tty-colors.el (tty-register-default-colors): Don't
554 clear face cache if the selected frame is a GUI frame.
555
5562015-09-26 Tassilo Horn <tsdh@gnu.org>
557
558 Remove font-latex specific check
559
560 * lisp/textmodes/tex-mode.el (tex--prettify-symbols-compose-p): Use
561 syntax-ppss data to identify verbatim contents.
562
5632015-09-25 Tassilo Horn <tsdh@gnu.org>
564
565 Fix false negatives in tex--prettify-symbols-compose-p.
566
567 * lisp/textmodes/tex-mode.el (tex--prettify-symbols-compose-p): Fix some
568 false negatives.
569
5702015-09-25 Eli Zaretskii <eliz@gnu.org>
571
572 Reorder Windows version in Emacs manifests
573
574 * nt/emacs-x64.manifest:
575 * nt/emacs-x86.manifest: Reorder Windows version from lowest to
576 highest.
577
5782015-09-25 Eli Zaretskii <eliz@gnu.org>
579
580 Update Emacs manifest files for Windows 10
581
582 * nt/emacs-x86.manifest:
583 * nt/emacs-x64.manifest: Declare compatibility with Windows 10.
584
5852015-09-25 Eli Zaretskii <eliz@gnu.org>
586
587 Avoid non-ASCII decoding errors in C src files
588
589 * src/nsterm.m:
590 * src/lisp.h:
591 * src/editfns.c:
592 * src/doprnt.c: Add 'coding' cookies -- these files include
593 Unicode characters and should be decoded as UTF-8.
594
5952015-09-25 Alan Mackenzie <acm@muc.de>
596
597 Resurrect edebug-set-initial-mode, repurposing it to set the global mode.
598
599 lisp/emacs-lisp/edebug.el (edebug-initial-mode-alist): Uncomment, and
600 amend to match current modes and functions.
601 (edebug-set-initial-mode): Uncomment and change from setting a defun's
602 `edebug-initial-mode''s property to setting the variable
603 `edebug-initial-mode'.
604 (top level): Create new binding C-x C-a C-m for
605 `edebug-set-initial-mode'.
606
607 doc/lispref/edebug.texi (Edebug Execution Modes): document
608 `edebug-set-initial-mode' and its new key binding.
609 (Edebug Options): Mention the new command in the pertinent place.
610
611 etc/NEWS: Write entry for this change.
612
6132015-09-25 Eli Zaretskii <eliz@gnu.org>
614
615 Avoid non-ASCII decoding errors in Texinfo files
616
617 * doc/misc/tramp.texi:
618 * doc/lispref/strings.texi:
619 * doc/lispref/positions.texi:
620 * doc/lispref/help.texi:
621 * doc/lispref/functions.texi:
622 * doc/lispintro/emacs-lisp-intro.texi:
623 * doc/emacs/text.texi:
624 * doc/emacs/modes.texi:
625 * doc/emacs/mini.texi:
626 * doc/emacs/display.texi:
627 * doc/emacs/custom.texi:
628 * doc/emacs/basic.texi: Add 'coding' cookies -- these files use
629 Unicode characters and should be decoded as UTF-8.
630 * doc/lispref/frames.texi (Size Parameters): Don't use a non-ASCII
631 apostrophe unnecessarily.
632
6332015-09-25 Paul Eggert <eggert@cs.ucla.edu>
634
635 Merge from gnulib
636
637 This incorporates:
638 2015-09-25 c-ctype: rewrite to use inline functions
639 2015-09-24 maint: add coding cookies to non-ASCII sources
640 2015-09-24 gitlog-to-changelog: trim only trailing whitespaces
641 * build-aux/gitlog-to-changelog, doc/misc/texinfo.tex:
642 * lib/acl-internal.c, lib/acl-internal.h, lib/c-ctype.c:
643 * lib/c-ctype.h, lib/get-permissions.c, lib/qcopy-acl.c:
644 * lib/set-permissions.c:
645 Copy from gnulib.
646
6472015-09-24 Paul Eggert <eggert@cs.ucla.edu>
648
649 Update publicsuffix.txt from upstream
650
651 * etc/publicsuffix.txt: Update from
652 https://publicsuffix.org/list/effective_tld_names.dat
653 dated 2015-09-24 17:29:21 UTC.
654
6552015-09-24 Eli Zaretskii <eliz@gnu.org>
656
657 Prevent timers from messing up TTY menus
658
659 * src/term.c (tty_menu_activate): Inhibit redisplay for as long as
660 the TTY menu is open. (Bug#21530)
661
6622015-09-24 Paul Eggert <eggert@cs.ucla.edu>
663
664 No need to mention K&R C in c-mode intro
665
6662015-09-24 Stefan Monnier <monnier@iro.umontreal.ca>
667
668 Fix recent bootstrap problems
669
670 * src/syntax.c (parse_sexp_propertize): Fix last fix.
671 * lisp/nxml/nxml-mode.el (nxml-comment-quote-nested): Fix paren typo.
672 * lisp/emacs-lisp/lisp-mode.el: Require cl-lib for cl-progv.
673
6742015-09-24 Michael Albinus <michael.albinus@gmx.de>
675
676 * src/gfilenotify.c (Fgfile_add_watch): Decrease polling rate.
677
6782015-09-23 Ivan Andrus <darthandrus@gmail.com>
679
680 Properly quote nested xml comments (Bug#6267) (Bug#20001)
681
682 * nxml-mode.el (nxml-comment-quote-nested): New function
683 (nxml-mode): Set comment-quote-nested-function
684
6852015-09-23 Ivan Andrus <darthandrus@gmail.com>
686
687 Allow major-modes full control over quoting nested comments
688
689 * newcomment.el (comment-quote-nested-function): New variable.
690 (comment-quote-nested-default): New function.
691 (comment-quote-nested): Use `comment-quote-nested-function'.
692
6932015-09-23 Paul Eggert <eggert@cs.ucla.edu>
694
695 Prefer CALLN in a few more places
696
697 * src/macfont.m (macfont_set_family_cache):
698 * src/nsterm.m (append2):
699 * src/xterm.c (x_cr_export_frames):
700 Prefer CALLN to allocating the arg arrays by hand.
701
7022015-09-23 Michael Albinus <michael.albinus@gmx.de>
703
704 Adapt file-notify-test02-events test case
705
706 * test/automated/file-notify-tests.el (file-notify-test02-events):
707 Create a new watch for every test.
708
7092015-09-23 Michael Albinus <michael.albinus@gmx.de>
710
711 Continue gfilenotify.c implementation of missing parts
712
713 * lisp/filenotify.el (file-notify-add-watch): Append `flags' to
714 `gfile-add-watch' call.
715 (file-notify-rm-watch): Modify `file-notify-descriptors' only
716 after calling the low level functions.
717
718 * src/gfilenotify.c (dir_monitor_callback): Check, whether
719 event_type is expected.
720 (Fgfile_add_watch): Allow also `change'and `attribute-change' for FLAGS.
721 (Fgfile_rm_watch): Fix typo.
722 (syms_of_gfilenotify): Declare Qchange and Qattribute_change.
723
7242015-09-23 Stefan Monnier <monnier@iro.umontreal.ca>
725
726 * src/syntax.c: Handle spurious e_property_truncated flag
727
728 * src/syntax.c (parse_sexp_propertize): Handle spurious
729 e_property_truncated flag.
730 (update_syntax_table_forward): Remove invalid assertion.
731
7322015-09-23 Eli Zaretskii <eliz@gnu.org>
733
734 Support ':relative-width' space display spec on text-mode terminals
735
736 * src/xdisp.c (produce_stretch_glyph): Support ':relative-width'
737 space display spec on text-mode terminals, by calling
738 PRODUCE_GLYPHS instead of x_produce_glyphs. Remove the HAVE_WINDOW_SYSTEM
739 guards from the supporting code, as well as the test for a GUI frame.
740
7412015-09-23 Oleh Krehel <ohwoeowho@gmail.com>
742
743 Move let-when-compile to lisp-mode.el
744
745 This fixes the bootstrapping problem of `let-when-compile' using
746 `cl-progv' while being in subr.el (i.e. before cl stuff was loaded).
747
7482015-09-23 Thomas Fitzsimmons <fitzsim@fitzsim.org>
749
750 Do not include authorization header in an HTTP redirect
751
752 * lisp/url/url-http.el (url-http-parse-headers): Do not
753 automatically include Authorization header in redirect.
754 (Bug#21350)
755
7562015-09-22 Eli Zaretskii <eliz@gnu.org>
757
758 Clarify documentation of ':relative-width'
759
760 * doc/lispref/display.texi (Specified Space): Document that
761 ':relative-width' is only supported on GUI frames.
762
7632015-09-22 Eli Zaretskii <eliz@gnu.org>
764
765 Fix 'current-column' in presence of :relative-width
766
767 * src/indent.c (check_display_width): Support ':relative-width'
768 in a display spec that specifies a stretch glyph. (Bug#21533)
769
7702015-09-22 Ken Manheimer <ken.manheimer@gmail.com>
771
772 Reformat the pdbtrack remote-file fix ChangeLog.2 entry
773
774 ... to conform better to CONTRIBUTE guidelines.
775
7762015-09-22 Stefan Monnier <monnier@iro.umontreal.ca>
777
778 * prolog.el: Fix indentation of empty line
779
780 * lisp/emacs-lisp/smie.el (smie-rules-function): Document new
781 `empty-line-token' element.
782 (smie-indent-empty-line): New function.
783 (smie-indent-functions): Add it.
784
785 * lisp/progmodes/prolog.el (prolog-smie-rules): Fix :list-intro behavior
786 and use the new `empty-line-token' element (bug#21526).
787 (prolog-mode-variables): Fix comment-start-skip setting to match
788 comment-start.
789
790 * test/indent/prolog.prolog: Add nested indentation tests.
791
792 * lisp/newcomment.el (comment-normalize-vars): Fix default value of
793 comment-start-skip not to misuse submatch 1.
794
7952015-09-22 Alan Mackenzie <acm@muc.de>
796
797 Make description of `edebug-initial-mode' user friendly.
798
799 Fixes debbugs#21365.
800
801 dec/lispref/edebug.texi (Edebug Execution Modes): Change the
802 desscription
803 of `edebug-initial-mode' from that of its implementation to that of its
804 visual effect and use. Move the paragraph higher up.
805
8062015-09-22 Eli Zaretskii <eliz@gnu.org>
807
808 lisp/progmodes/gud.el (gud-format-command): Fix last commit
809
810 * lisp/progmodes/gud.el (gud-format-command): Don't use Tramp internal
811 functions 'tramp-file-name-localname' and 'tramp-dissect-file-name'.
812
8132015-09-22 Tassilo Horn <tsdh@gnu.org>
814
815 Improve last commit to process.c
816
8172015-09-22 Michael Albinus <michael.albinus@gmx.de>
818
819 Implement gfile-valid-p
820
821 * lisp/filenotify.el (file-notify-callback): Fix typo.
822 (gfile-valid-p): Remove defalias.
823
824 * src/gfilenotify.c (dir_monitor_callback): Cancel the monitor if
825 the file or directory to be watched is deleted.
826 (Fgfile_add_watch): Make watch_object a triple.
827 (Fgfile_rm_watch): Check, whether watch is cancelled already.
828 (Fgfile_valid_p): New defun.
829 (syms_of_gfilenotify): Declare Sgfile_valid_p.
830
8312015-09-22 Tassilo Horn <tsdh@gnu.org>
832
833 Remove callback-handled channels from Available set
834
835 * src/process.c (wait_reading_process_output): Remove channel from
836 Available set if it is handled by a callback, e.g., dbus or
837 inotify (bug#21313).
838
8392015-09-21 Mark Oteiza <mvoteiza@udel.edu>
840
841 Use lunate epsilon for TeX \epsilon
842
843 * lisp/textmodes/tex-mode.el (tex--prettify-symbols-alist): Add
844 \varepsilon using GREEK SMALL LETTER EPSILON, and change \epsilon to use
845 GREEK LUNATE EPSILON SYMBOL
846
8472015-09-21 Stefan Monnier <monnier@iro.umontreal.ca>
848
849 * lisp/progmodes/prolog.el: Fix nested electric if-then-else
850
851 * lisp/progmodes/prolog.el (prolog-find-unmatched-paren): Use innermost
852 rather than outermost paren (bug#21526).
853
8542015-09-21 Paul Eggert <eggert@cs.ucla.edu>
855
856 Improve git diff hunk headers for .el, .texi
857
858 Problem reported by Alan Mackenzie in:
859 http://lists.gnu.org/archive/html/emacs-devel/2015-09/msg00826.html
860 * .gitattributes (*.el, *.texi): New patterns.
861 * autogen.sh: Configure diff.elisp.xfuncname and
862 diff.texinfo.xfuncname if using Git.
863
8642015-09-21 Eli Zaretskii <eliz@gnu.org>
865
866 Don't rely on defaults in decoding UTF-8 encoded Lisp files
867
868 * lisp/replace.el:
869 * lisp/textmodes/rst.el:
870 * lisp/whitespace.el: Add an explicit UTF-8 encoding tag.
871
8722015-09-21 Paul Eggert <eggert@cs.ucla.edu>
873
874 Clarify or replace a few \u escapes.
875
876 * doc/lispref/nonascii.texi (Character Properties)
877 More-detailed commentary for \u escapes.
878 * lisp/progmodes/python.el (python--prettify-symbols-alist):
879 * lisp/replace.el (query-replace-from-to-separator):
880 * lisp/textmodes/rst.el (rst-bullets, rst-re-alist-def)
881 (rst-mode-syntax-table):
882 * lisp/whitespace.el (whitespace-display-mappings):
883 Prefer actual character to \u escape when this makes the code
884 easier to follow in the usual case where Unicode chars can be
885 displayed.
886
8872015-09-21 Paul Eggert <eggert@cs.ucla.edu>
888
889 Pacify GCC -Wmaybe-uninitialized in xdisp.c
890
891 * src/xdisp.c (face_before_or_after_it_pos): Use do-while rather
892 than while loop to avoid GCC -Wmaybe-uninitialized diagnostic with
893 charpos. The loop should always execute at least once anyway.
894
8952015-09-21 Tassilo Horn <tsdh@gnu.org>
896
897 Signal error on invalid regexp
898
899 * lisp/textmodes/reftex-cite.el (reftex-extract-bib-entries): Signal an
900 error when the user tries searching with a regexp matching the empty
901 string.
902
9032015-09-21 Eli Zaretskii <eliz@gnu.org>
904
905 Another fix of file-notify-tests for w32notify
906
907 * test/automated/file-notify-tests.el (file-notify-test02-events):
908 Further adaptation for w32notify: reduce the number of expected
909 'changed' events. (Bug#21435)
910
9112015-09-21 Michael Albinus <michael.albinus@gmx.de>
912
913 Adapt tests and manual for w32notify
914
915 * doc/lispref/os.texi (File Notifications): w32notify does not
916 send `attribute-changed' events.
917
918 * test/automated/file-notify-tests.el (file-notify--test-with-events):
919 Simplify parameters. Adapt all callees.
920 (file-notify-test02-events): w32notify does not send
921 `attribute-changed' events.
922 (file-notify-test04-file-validity, file-notify-test05-dir-validity):
923 Do not skip in case of w32notify. Simply ignore this part of the test.
924
9252015-09-21 Dima Kogan <dima@secretsauce.net>
926
927 Fix setting breakpoints when remote-debugging
928
929 * lisp/progmodes/gud.el (gud-format-command): Send localized file
930 names to the debugger running on the remote. (Bug#13304)
931
9322015-09-21 Nicolas Petton <nicolas@petton.fr>
933
934 Better docstring and parameter name for seq-find
935
936 * lisp/emacs-lisp/seq.el (seq-find): Improve the docstring and rename
937 the parameter `sentinel' to `default'.
938
939 * doc/lispref/sequences.texi (Sequence Functions): Update the
940 documentation for `seq-find' accordingly.
941
9422015-09-21 Eli Zaretskii <eliz@gnu.org>
943
944 Avoid infinite recursion while displaying box face
945
946 * src/xdisp.c (face_before_or_after_it_pos): Fix calculation of
947 the previous string/buffer character position under bidi
948 iteration. (Bug#21428)
949
9502015-09-21 Anders Lindgren <andlind@gmail.com>
951
952 Keep upper edge unchanged when changing size of NS frame (Bug#21415)
953
954 * src/nsterm.m (x_set_window_size): Keep upper frame edge unchanged
955 (Bug#21415).
956
9572015-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
958
959 Subject: * lisp/progmodes/prolog.el: Improve handling of if/then/else
960
961 (prolog-smie-rules): Accomodate standard if/then/else special indentation.
962 (prolog-mode): Add . to electric-indent-chars.
963 (prolog-electric--if-then-else): Re-indent the line before adding space
964 after the new char (bug#21526).
965
9662015-09-20 Mark Oteiza <mvoteiza@udel.edu>
967
968 Add prettify symbols to python-mode
969
970 lisp/progmodes/python.el (python-prettify-symbols-alist): New variable
971 lisp/progmodes/python.el (python-mode): Use it
972
9732015-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
974
975 * lisp/emacs-lisp/syntax.el (syntax-begin-function): Make obsolete
976
9772015-09-20 Jostein Kjønigsen <jostein@secure.kjonigsen.net> (tiny change)
978
979 (compilation-error-regexp-alist-alist): Tone down guile-file
980
981 * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
982 Make guile-file a bit less enthusiastic (bug#21496).
983
9842015-09-20 Drew Csillag <drew@thecsillags.com>
985
986 * m4-mode.el (m4-font-lock-keywords): Fix m4_* highlighting
987
988 * lisp/progmodes/m4-mode.el (m4-font-lock-keywords): Fix recognition
989 of commands when they have a "m4_" prefix.
990
9912015-09-20 Paul Eggert <eggert@cs.ucla.edu>
992
993 '.' -> `.' in doc string
994
995 * lisp/emacs-lisp/timer.el (run-at-time): In doc string, quote
996 individual chars with grave quotes instead of straight quotes, as
997 this works better when they are translated to curved quotes.
998
9992015-09-20 Michael Albinus <michael.albinus@gmx.de>
1000
1001 Improve file notifications, especially for Tramp
1002
1003 * doc/lispref/files.texi (Magic File Names):
1004 Mention `file-notify-valid-p'.
1005
1006 * doc/lispref/os.texi (File Notifications):
1007 Describe `file-notify-valid-p'.
1008
1009 * etc/NEWS: Add `file-notify-valid-p'.
1010
1011 * lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-notify-add-watch):
1012 Improve implementation.
1013 (tramp-gvfs-monitor-file-process-filter): Rename from
1014 `tramp-gvfs-file-gvfs-monitor-file-process-filter'. Delete
1015 process if appropriate.
1016
1017 * lisp/net/tramp-sh.el (tramp-sh-handle-file-notify-add-watch):
1018 Improve implementation.
1019 (tramp-sh-gvfs-monitor-dir-process-filter): Rename from
1020 `tramp-sh-file-gvfs-monitor-dir-process-filter'. Delete process
1021 if appropriate.
1022 (tramp-sh-inotifywait-process-filter): Rename from
1023 `tramp-sh-file-inotifywait-process-filter'. Delete process if
1024 appropriate.
1025
1026 * lisp/net/tramp.el (tramp-handle-file-notify-rm-watch):
1027 Use `delete-process'
1028 (tramp-handle-file-notify-valid-p): Check also, that file or
1029 directory to be watched still exists.
1030
1031 * test/automated/file-notify-tests.el (file-notify--test-timeout):
1032 New defun. Use it at all places a timeout is needed.
1033 (file-notify--test-cleanup): Delete directories recursively.
1034 Cleanup also Tramp connections.
1035 (file-notify-test02-events): Add tests for `attribute-change'.
1036 (file-notify-test04-file-validity, file-notify-test05-dir-validity):
1037 Add tests for `file-notify-rm-watch'.
1038
10392015-09-20 Paul Eggert <eggert@cs.ucla.edu>
1040
1041 Use %s to format strings instead of splicing them
1042
1043 If FOO might contain quotes that are part of a file or variable
1044 name, the quotes should not be translated when showing FOO’s name
1045 in a diagnostic. So, for example, (message (concat (FOO ": bar")))
1046 is not quite right, as it would translate FOO’s quotes.
1047 Change it to (message "%s: bar" FOO) instead.
1048 * lisp/allout.el (allout-process-exposed):
1049 * lisp/calc/calc-ext.el (calc-do-prefix-help):
1050 * lisp/calc/calc-store.el (calc-store-into):
1051 * lisp/calendar/todo-mode.el (todo-category-completions):
1052 * lisp/cedet/semantic/complete.el (semantic-completion-message):
1053 * lisp/org/ob-latex.el (convert-pdf):
1054 * lisp/org/org-crypt.el (org-crypt-check-auto-save):
1055 * lisp/org/ox-latex.el (org-latex-compile):
1056 * lisp/org/ox-man.el (org-man-compile):
1057 * lisp/org/ox-odt.el (org-odt--export-wrap):
1058 * lisp/org/ox-texinfo.el (org-texinfo-compile):
1059 * lisp/progmodes/ruby-mode.el (ruby-in-ppss-context-p):
1060 * lisp/progmodes/verilog-mode.el (verilog-batch-execute-func)
1061 (verilog-signals-combine-bus, verilog-read-defines)
1062 (verilog-getopt-file, verilog-expand-dirnames)
1063 (verilog-modi-lookup, verilog-modi-modport-lookup-one):
1064 * lisp/term/ns-win.el (ns-spi-service-call):
1065 Use %s to avoid translating quotes of file names etc. in diagnostics.
1066
10672015-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
1068
1069 * lisp/progmodes/js.el (js--syntax-begin-function): Remove.
1070
1071 (js-mode): Don't set syntax-begin-function.
1072
10732015-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
1074
1075 Don't assume syntax-begin-function is a symbol.
1076
1077 * lisp/font-lock.el (font-lock-compile-keywords): Don't assume
1078 syntax-begin-function is a symbol.
1079
12015-09-20 Eli Zaretskii <eliz@gnu.org> 10802015-09-20 Eli Zaretskii <eliz@gnu.org>
2 1081
3 Improve documentation of 'run-at-time' 1082 Improve documentation of 'run-at-time'
@@ -13449,7 +14528,7 @@
13449 14528
13450This file records repository revisions from 14529This file records repository revisions from
13451commit 9d56a21e6a696ad19ac65c4b405aeca44785884a (exclusive) to 14530commit 9d56a21e6a696ad19ac65c4b405aeca44785884a (exclusive) to
13452commit 00a65e3238a888fc92b0c2aab8cb5bda8bd99c29 (inclusive). 14531commit 2021680e9dcd277a4ebbdb613d535e6edc86f384 (inclusive).
13453See ChangeLog.1 for earlier changes. 14532See ChangeLog.1 for earlier changes.
13454 14533
13455;; Local Variables: 14534;; Local Variables:
diff --git a/admin/MAINTAINERS b/admin/MAINTAINERS
index da5646696b8..8b7647eaad8 100644
--- a/admin/MAINTAINERS
+++ b/admin/MAINTAINERS
@@ -108,6 +108,43 @@ Nicolas Petton
108 lisp/emacs-lisp/map.el 108 lisp/emacs-lisp/map.el
109 lisp/emacs-lisp/seq.el 109 lisp/emacs-lisp/seq.el
110 110
111The GNU AUCTeX maintainers (auctex-devel@gnu.org)
112 RefTeX
113 lisp/textmodes/reftex-auc.el
114 lisp/textmodes/reftex-cite.el
115 lisp/textmodes/reftex-dcr.el
116 lisp/textmodes/reftex-global.el
117 lisp/textmodes/reftex-index.el
118 lisp/textmodes/reftex-parse.el
119 lisp/textmodes/reftex-ref.el
120 lisp/textmodes/reftex-sel.el
121 lisp/textmodes/reftex-toc.el
122 lisp/textmodes/reftex-vars.el
123 lisp/textmodes/reftex.el
124
125Dmitry Gutov
126 lisp/progmodes/ruby-mode.el
127 test/automated/ruby-mode-tests.el
128 test/indent/ruby.rb
129 lisp/progmodes/xref.el
130 lisp/progmodes/project.el
131
132Ulf Jasper
133 Newsticker
134 doc/misc/newsticker.texi
135 etc/images/newsticker/*
136 lisp/net/newst-backend.el
137 lisp/net/newst-plainview.el
138 lisp/net/newst-reader.el
139 lisp/net/newst-ticker.el
140 lisp/net/newst-treeview.el
141 lisp/net/newsticker.el
142 test/automated/newsticker-tests.el
143
144 Icalendar
145 lisp/calendar/icalendar.el
146 test/automated/icalendar-tests.el
147
111============================================================================== 148==============================================================================
1122. 1492.
113============================================================================== 150==============================================================================
@@ -197,6 +234,7 @@ Paul Eggert
197Michael Albinus 234Michael Albinus
198 src/inotify.c 235 src/inotify.c
199 lisp/autorevert.el 236 lisp/autorevert.el
237 lisp/eshell/em-tramp.el
200 lisp/notifications.el 238 lisp/notifications.el
201 test/automated/auto-revert-tests.el 239 test/automated/auto-revert-tests.el
202 test/automated/inotify-test.el 240 test/automated/inotify-test.el
@@ -209,6 +247,17 @@ Nicolas Petton
209Xue Fuqiao 247Xue Fuqiao
210 doc/lispref/* 248 doc/lispref/*
211 249
250Tassilo Horn
251 lisp/doc-view.el
252
253Dmitry Gutov
254 lisp/whitespace.el
255 lisp/vc/*
256
257Vibhav Pant
258 lisp/net/browse-url.el
259 lisp/erc/*
260
212============================================================================== 261==============================================================================
2133. 2623.
214============================================================================== 263==============================================================================
@@ -276,7 +325,6 @@ lisp/dired.el
276lisp/dirtrack.el 325lisp/dirtrack.el
277lisp/disp-table.el 326lisp/disp-table.el
278lisp/dnd.el 327lisp/dnd.el
279lisp/doc-view.el
280lisp/dom.el 328lisp/dom.el
281lisp/double.el 329lisp/double.el
282lisp/dynamic-setting.el 330lisp/dynamic-setting.el
@@ -488,7 +536,50 @@ lisp/mouse.el
488lisp/mpc.el 536lisp/mpc.el
489lisp/msb.el 537lisp/msb.el
490lisp/mwheel.el 538lisp/mwheel.el
491lisp/net/* 539lisp/net/ange-ftp.el
540lisp/net/dig.el
541lisp/net/dns.el
542lisp/net/eudcb-bbdb.el
543lisp/net/eudcb-ldap.el
544lisp/net/eudcb-mab.el
545lisp/net/eudc-bob.el
546lisp/net/eudcb-ph.el
547lisp/net/eudc.el
548lisp/net/eudc-export.el
549lisp/net/eudc-hotlist.el
550lisp/net/eudc-vars.el
551lisp/net/eww.el
552lisp/net/gnutls.el
553lisp/net/goto-addr.el
554lisp/net/hmac-def.el
555lisp/net/hmac-md5.el
556lisp/net/imap.el
557lisp/net/ldap.el
558lisp/net/mairix.el
559lisp/net/netrc.el
560lisp/net/net-utils.el
561lisp/net/network-stream.el
562lisp/net/nsm.el
563lisp/net/ntlm.el
564lisp/net/pinentry.el
565lisp/net/quickurl.el
566lisp/net/rcirc.el
567lisp/net/rfc2104.el
568lisp/net/rlogin.el
569lisp/net/sasl-cram.el
570lisp/net/sasl-digest.el
571lisp/net/sasl.el
572lisp/net/sasl-ntlm.el
573lisp/net/sasl-scram-rfc.el
574lisp/net/shr-color.el
575lisp/net/shr.el
576lisp/net/snmp-mode.el
577lisp/net/soap-client.el
578lisp/net/soap-inspect.el
579lisp/net/socks.el
580lisp/net/telnet.el
581lisp/net/tls.el
582lisp/net/webjump.el
492lisp/newcomment.el 583lisp/newcomment.el
493lisp/novice.el 584lisp/novice.el
494lisp/nxml/* 585lisp/nxml/*
@@ -574,11 +665,9 @@ lisp/progmodes/octave.el
574lisp/progmodes/opascal.el 665lisp/progmodes/opascal.el
575lisp/progmodes/pascal.el 666lisp/progmodes/pascal.el
576lisp/progmodes/prog-mode.el 667lisp/progmodes/prog-mode.el
577lisp/progmodes/project.el
578lisp/progmodes/prolog.el 668lisp/progmodes/prolog.el
579lisp/progmodes/ps-mode.el 669lisp/progmodes/ps-mode.el
580lisp/progmodes/python.el 670lisp/progmodes/python.el
581lisp/progmodes/ruby-mode.el
582lisp/progmodes/scheme.el 671lisp/progmodes/scheme.el
583lisp/progmodes/sh-script.el 672lisp/progmodes/sh-script.el
584lisp/progmodes/simula.el 673lisp/progmodes/simula.el
@@ -588,7 +677,6 @@ lisp/progmodes/vera-mode.el
588lisp/progmodes/verilog-mode.el 677lisp/progmodes/verilog-mode.el
589lisp/progmodes/vhdl-mode.el 678lisp/progmodes/vhdl-mode.el
590lisp/progmodes/which-func.el 679lisp/progmodes/which-func.el
591lisp/progmodes/xref.el
592lisp/progmodes/xscheme.el 680lisp/progmodes/xscheme.el
593lisp/ps-bdf.el 681lisp/ps-bdf.el
594lisp/ps-def.el 682lisp/ps-def.el
@@ -662,17 +750,6 @@ lisp/textmodes/picture.el
662lisp/textmodes/po.el 750lisp/textmodes/po.el
663lisp/textmodes/refbib.el 751lisp/textmodes/refbib.el
664lisp/textmodes/refer.el 752lisp/textmodes/refer.el
665lisp/textmodes/reftex-auc.el
666lisp/textmodes/reftex-cite.el
667lisp/textmodes/reftex-dcr.el
668lisp/textmodes/reftex-global.el
669lisp/textmodes/reftex-index.el
670lisp/textmodes/reftex-parse.el
671lisp/textmodes/reftex-ref.el
672lisp/textmodes/reftex-sel.el
673lisp/textmodes/reftex-toc.el
674lisp/textmodes/reftex-vars.el
675lisp/textmodes/reftex.el
676lisp/textmodes/remember.el 753lisp/textmodes/remember.el
677lisp/textmodes/rst.el 754lisp/textmodes/rst.el
678lisp/textmodes/sgml-mode.el 755lisp/textmodes/sgml-mode.el
@@ -698,14 +775,12 @@ lisp/type-break.el
698lisp/uniquify.el 775lisp/uniquify.el
699lisp/url/* 776lisp/url/*
700lisp/userlock.el 777lisp/userlock.el
701lisp/vc/*
702lisp/vcursor.el 778lisp/vcursor.el
703lisp/version.el 779lisp/version.el
704lisp/view.el 780lisp/view.el
705lisp/vt-control.el 781lisp/vt-control.el
706lisp/vt100-led.el 782lisp/vt100-led.el
707lisp/wdired.el 783lisp/wdired.el
708lisp/whitespace.el
709lisp/wid-browse.el 784lisp/wid-browse.el
710lisp/wid-edit.el 785lisp/wid-edit.el
711lisp/widget.el 786lisp/widget.el
@@ -735,4 +810,5 @@ test/rmailmm.el
735 810
736;;; Local Variables: 811;;; Local Variables:
737;;; coding: utf-8 812;;; coding: utf-8
813;;; indent-tabs-mode: t
738;;; End: 814;;; End:
diff --git a/admin/authors.el b/admin/authors.el
index 092da68dbce..3d7850af57d 100644
--- a/admin/authors.el
+++ b/admin/authors.el
@@ -1,4 +1,4 @@
1;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding: utf-8 -*- 1;;; authors.el --- utility for maintaining Emacs's AUTHORS file
2 2
3;; Copyright (C) 2000-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2000-2015 Free Software Foundation, Inc.
4 4
diff --git a/autogen.sh b/autogen.sh
index 926915c1af1..563a0244ca8 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -218,7 +218,7 @@ echo timestamp > src/stamp-h.in || exit
218 218
219 219
220## Configure Git, if using Git. 220## Configure Git, if using Git.
221if test -d .git; then 221if test -d .git && (git status -s) >/dev/null 2>&1; then
222 222
223 # Configure 'git diff' hunk header format. 223 # Configure 'git diff' hunk header format.
224 224
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi
index a171db7bb03..95b721fa739 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
329@kbd{Mouse-3} by adding the following line to your init file 329@kbd{Mouse-3} by adding the following line to your init file
330(@pxref{Init Rebinding}): 330(@pxref{Init Rebinding}):
331 331
332@c FIXME: `mouse-popup-menubar-stuff' is obsolete since 23.1.
332@smallexample 333@smallexample
333(global-set-key [mouse-3] 'mouse-popup-menubar-stuff) 334(global-set-key [mouse-3] 'mouse-popup-menubar-stuff)
334@end smallexample 335@end smallexample
diff --git a/doc/emacs/text.texi b/doc/emacs/text.texi
index 7f3afd71d5b..bab660e1e10 100644
--- a/doc/emacs/text.texi
+++ b/doc/emacs/text.texi
@@ -417,8 +417,8 @@ beginning of a line.
417using straight apostrophes @t{'like this'} or double-quotes @t{"like 417using straight apostrophes @t{'like this'} or double-quotes @t{"like
418this"}. Another common way is the curved quote convention, which uses 418this"}. Another common way is the curved quote convention, which uses
419left and right single or double quotation marks @t{‘like this’} or 419left and right single or double quotation marks @t{‘like this’} or
420@t{“like thisâ€}. Typewriter quotes are simple and portable; curved 420@t{“like thisâ€}. In text files, typewriter quotes are simple and
421quotes are less ambiguous and typically look nicer. 421portable; curved quotes are less ambiguous and typically look nicer.
422 422
423 Electric Quote mode makes it easier to type curved quotes. As you 423 Electric Quote mode makes it easier to type curved quotes. As you
424type characters it optionally converts @t{`} to @t{‘}, @t{'} to @t{’}, 424type 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 22e50e94f48..245113b86d7 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
3454Consider the function @code{zap-to-char}. Its interactive expression 3454Consider the function @code{zap-to-char}. Its interactive expression
3455is 3455is
3456 3456
3457@c FIXME: the interactive expression of zap-to-char has been changed
3458@c (in 2012-04-10).
3459
3457@smallexample 3460@smallexample
3458(interactive "p\ncZap to char: ") 3461(interactive "p\ncZap to char: ")
3459@end smallexample 3462@end smallexample
diff --git a/doc/lispref/control.texi b/doc/lispref/control.texi
index fca16da5d3f..412903f8fbc 100644
--- a/doc/lispref/control.texi
+++ b/doc/lispref/control.texi
@@ -1,4 +1,4 @@
1@c -*-texinfo-*- 1@c -*- mode: texinfo; coding: utf-8 -*-
2@c This is part of the GNU Emacs Lisp Reference Manual. 2@c This is part of the GNU Emacs Lisp Reference Manual.
3@c Copyright (C) 1990-1995, 1998-1999, 2001-2015 Free Software 3@c Copyright (C) 1990-1995, 1998-1999, 2001-2015 Free Software
4@c Foundation, Inc. 4@c Foundation, Inc.
@@ -1002,8 +1002,8 @@ These examples show typical uses of @code{error}:
1002@end group 1002@end group
1003 1003
1004@group 1004@group
1005(error "You have committed %d errors" 10) 1005(error "Invalid name `%s'" "A%%B")
1006 @error{} You have committed 10 errors 1006 @error{} Invalid name ‘A%%B’
1007@end group 1007@end group
1008@end example 1008@end example
1009 1009
@@ -1011,10 +1011,16 @@ These examples show typical uses of @code{error}:
1011error symbol @code{error}, and a list containing the string returned by 1011error symbol @code{error}, and a list containing the string returned by
1012@code{format-message}. 1012@code{format-message}.
1013 1013
1014In a format string containing single quotes, curved quotes @t{‘like
1015this’} and grave quotes @t{`like this'} work better than straight
1016quotes @t{'like this'}, as @code{error} typically formats every
1017straight quote as a curved closing quote.
1018
1014@strong{Warning:} If you want to use your own string as an error message 1019@strong{Warning:} If you want to use your own string as an error message
1015verbatim, don't just write @code{(error @var{string})}. If @var{string} 1020verbatim, don't just write @code{(error @var{string})}. If @var{string}
1016contains @samp{%}, it will be interpreted as a format specifier, with 1021@var{string} contains @samp{%}, @samp{`}, or @samp{'} it may be
1017undesirable results. Instead, use @code{(error "%s" @var{string})}. 1022reformatted, with undesirable results. Instead, use @code{(error "%s"
1023@var{string})}.
1018@end defun 1024@end defun
1019 1025
1020@defun signal error-symbol data 1026@defun signal error-symbol data
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 452462adcfc..ad248b116ed 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -1,4 +1,4 @@
1@c -*-texinfo-*- 1@c -*- mode: texinfo; coding: utf-8 -*-
2@c This is part of the GNU Emacs Lisp Reference Manual. 2@c This is part of the GNU Emacs Lisp Reference Manual.
3@c Copyright (C) 1990-1995, 1998-2015 Free Software Foundation, Inc. 3@c Copyright (C) 1990-1995, 1998-2015 Free Software Foundation, Inc.
4@c See the file elisp.texi for copying conditions. 4@c See the file elisp.texi for copying conditions.
@@ -254,6 +254,11 @@ properties, it is displayed with the specified faces (@pxref{Faces}).
254The string is also added to the @file{*Messages*} buffer, but without 254The string is also added to the @file{*Messages*} buffer, but without
255text properties (@pxref{Logging Messages}). 255text properties (@pxref{Logging Messages}).
256 256
257In a format string containing single quotes, curved quotes @t{‘like
258this’} and grave quotes @t{`like this'} work better than straight
259quotes @t{'like this'}, as @code{message} typically formats every
260straight quote as a curved closing quote.
261
257In batch mode, the message is printed to the standard error stream, 262In batch mode, the message is printed to the standard error stream,
258followed by a newline. 263followed by a newline.
259 264
@@ -268,21 +273,26 @@ onto the screen immediately.
268 273
269@example 274@example
270@group 275@group
271(message "Minibuffer depth is %d." 276(message "Reverting `%s'..." (buffer-name))
272 (minibuffer-depth)) 277 @print{} Reverting ‘subr.el’...
273 @print{} Minibuffer depth is 0. 278@result{} "Reverting ‘subr.el’..."
274@result{} "Minibuffer depth is 0."
275@end group 279@end group
276 280
277@group 281@group
278---------- Echo Area ---------- 282---------- Echo Area ----------
279Minibuffer depth is 0. 283Reverting ‘subr.el’...
280---------- Echo Area ---------- 284---------- Echo Area ----------
281@end group 285@end group
282@end example 286@end example
283 287
284To automatically display a message in the echo area or in a pop-buffer, 288To automatically display a message in the echo area or in a pop-buffer,
285depending on its size, use @code{display-message-or-buffer} (see below). 289depending on its size, use @code{display-message-or-buffer} (see below).
290
291@strong{Warning:} If you want to use your own string as a message
292verbatim, don't just write @code{(message @var{string})}. If
293@var{string} contains @samp{%}, @samp{`}, or @samp{'} it may be
294reformatted, with undesirable results. Instead, use @code{(message
295"%s" @var{string})}.
286@end defun 296@end defun
287 297
288@defvar inhibit-message 298@defvar inhibit-message
diff --git a/doc/lispref/objects.texi b/doc/lispref/objects.texi
index 0a19274f6a1..c65057202a0 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}
1279is a Lisp function object, including the @code{lambda} symbol. 1279is a Lisp function object, including the @code{lambda} symbol.
1280 1280
1281 Lisp macro objects are usually defined with the built-in 1281 Lisp macro objects are usually defined with the built-in
1282@code{defmacro} function, but any list that begins with @code{macro} is 1282@code{defmacro} macro, but any list that begins with @code{macro} is a
1283a macro as far as Emacs is concerned. @xref{Macros}, for an explanation 1283macro as far as Emacs is concerned. @xref{Macros}, for an explanation
1284of how to write a macro. 1284of how to write a macro.
1285 1285
1286 @strong{Warning}: Lisp macros and keyboard macros (@pxref{Keyboard 1286 @strong{Warning}: Lisp macros and keyboard macros (@pxref{Keyboard
diff --git a/doc/lispref/sequences.texi b/doc/lispref/sequences.texi
index b85d5d4c1b1..0a6f4c6623c 100644
--- a/doc/lispref/sequences.texi
+++ b/doc/lispref/sequences.texi
@@ -72,6 +72,7 @@ string, bool-vector, or char-table, @code{nil} otherwise.
72@cindex vector length 72@cindex vector length
73@cindex sequence length 73@cindex sequence length
74@cindex char-table length 74@cindex char-table length
75@anchor{Definition of length}
75This function returns the number of elements in @var{sequence}. If 76This function returns the number of elements in @var{sequence}. If
76@var{sequence} is a dotted list, a @code{wrong-type-argument} error is 77@var{sequence} is a dotted list, a @code{wrong-type-argument} error is
77signaled. Circular lists may cause an infinite loop. For a 78signaled. 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
113account for the display width of each character. 114account for the display width of each character.
114 115
115@defun elt sequence index 116@defun elt sequence index
117@anchor{Definition of elt}
116@cindex elements of sequences 118@cindex elements of sequences
117This function returns the element of @var{sequence} indexed by 119This function returns the element of @var{sequence} indexed by
118@var{index}. Legitimate values of @var{index} are integers ranging 120@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
431sequence of the same type as the input. For those functions that take 433sequence of the same type as the input. For those functions that take
432a predicate, this should be a function of one argument. 434a predicate, this should be a function of one argument.
433 435
436 The @file{seq.el} library can be extended to work with additional
437types of sequential data-structures. For that purpose, all functions
438are defined using @code{cl-defgeneric}.
439
440@defun seq-elt sequence index
441 This function the element at the index @var{index} in
442@var{sequence}. @var{index} can be an integer from zero up to the
443length of @var{sequence} minus one. For out-of-range values on
444built-in sequence types, @code{seq-elt} behaves like @code{elt}.
445@xref{Definition of elt}.
446
447@example
448@group
449(seq-elt [1 2 3 4] 2)
450@result{} 3
451@end group
452
453 @code{seq-elt} returns settable places using @code{setf}.
454
455@group
456(setq vec [1 2 3 4])
457(setf (seq-elt vec 2) 5)
458vec
459@result{} [1 2 5 4]
460@end group
461@end example
462@end defun
463
464@defun seq-length sequence
465 This function returns the number of elements in @var{sequence}. For
466built-in sequence types, @code{seq-length} behaves like @code{length}.
467@xref{Definition of length}.
468@end defun
469
470@defun seq-p sequence
471 This function returns non-@code{nil} if @var{sequence} is a sequence
472(a list or array), or any additional type of sequence defined via
473@file{seq.el} generic functions.
474
475@example
476@group
477(seq-p [1 2])
478@result{} t
479@end group
480@group
481(seq-p 2)
482@result{} nil
483@end group
484@end example
485@end defun
486
434@defun seq-drop sequence n 487@defun seq-drop sequence n
435 This function returns all but the first @var{n} (an integer) 488 This function returns all but the first @var{n} (an integer)
436elements of @var{sequence}. If @var{n} is negative or zero, 489elements 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}.
497@end example 550@end example
498@end defun 551@end defun
499 552
553@defun seq-do function sequence
554 This function applies @var{function} to each element of
555@var{sequence} in turn (presumably for side effects) and returns
556@var{sequence}.
557@end defun
558
559@defun seq-map function sequence
560 This function returns the result of applying @var{function} to each
561element of @var{sequence}. The returned value is a list.
562
563@example
564@group
565(seq-map #'1+ '(2 4 6))
566@result{} (3 5 7)
567@end group
568@group
569(seq-map #'symbol-name [foo bar])
570@result{} ("foo" "bar")
571@end group
572@end example
573@end defun
574
500@defun seq-filter predicate sequence 575@defun seq-filter predicate sequence
501@cindex filtering sequences 576@cindex filtering sequences
502 This function returns a list of all the elements in @var{sequence} 577 This function returns a list of all the elements in @var{sequence}
@@ -558,9 +633,8 @@ calling @var{function}.
558@end defun 633@end defun
559 634
560@defun seq-some predicate sequence 635@defun seq-some predicate sequence
561 This function returns non-@code{nil} if @var{predicate} returns 636 This function returns the first non-@code{nil} value returned by
562non-@code{nil} for any element of @var{sequence}. If so, the returned 637applying @var{predicate} to each element of @var{sequence} in turn.
563value is the value returned by @var{predicate}.
564 638
565@example 639@example
566@group 640@group
@@ -575,6 +649,10 @@ value is the value returned by @var{predicate}.
575(seq-some #'null ["abc" 1 nil]) 649(seq-some #'null ["abc" 1 nil])
576@result{} t 650@result{} t
577@end group 651@end group
652@group
653(seq-some #'1+ [2 4 6])
654@result{} 3
655@end group
578@end example 656@end example
579@end defun 657@end defun
580 658
diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi
index 00161b28b66..1da2d1cfe7b 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.
3174@defun pos-visible-in-window-p &optional position window partially 3174@defun pos-visible-in-window-p &optional position window partially
3175This function returns non-@code{nil} if @var{position} is within the 3175This function returns non-@code{nil} if @var{position} is within the
3176range of text currently visible on the screen in @var{window}. It 3176range of text currently visible on the screen in @var{window}. It
3177returns @code{nil} if @var{position} is scrolled vertically out of view. 3177returns @code{nil} if @var{position} is scrolled vertically out of
3178Locations that are partially obscured are not considered visible unless 3178view. Locations that are partially obscured are not considered
3179@var{partially} is non-@code{nil}. The argument @var{position} defaults 3179visible unless @var{partially} is non-@code{nil}. The argument
3180to the current position of point in @var{window}; @var{window}, to the 3180@var{position} defaults to the current position of point in
3181selected window. If @var{position} is @code{t}, that means to check the 3181@var{window}; @var{window} defaults to the selected window. If
3182last visible position in @var{window}. 3182@var{position} is @code{t}, that means to check either the first
3183visible position of the last screen line in @var{window}, or the
3184end-of-buffer position, whichever comes first.
3183 3185
3184This function considers only vertical scrolling. If @var{position} is 3186This function considers only vertical scrolling. If @var{position} is
3185out of view only because @var{window} has been scrolled horizontally, 3187out of view only because @var{window} has been scrolled horizontally,
diff --git a/etc/NEWS b/etc/NEWS
index e823905e8d3..dbe0de38db6 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -314,17 +314,26 @@ standards.
314 314
315* Changes in Specialized Modes and Packages in Emacs 25.1 315* Changes in Specialized Modes and Packages in Emacs 25.1
316 316
317** JSON
318---
319*** `json-pretty-print' and `json-pretty-print-buffer' now maintain
320the ordering of object keys by default.
321
317** You can recompute the VC state of a file buffer with `M-x vc-refresh-state' 322** You can recompute the VC state of a file buffer with `M-x vc-refresh-state'
318** Prog mode has some support for multi-mode indentation. 323** Prog mode has some support for multi-mode indentation.
319See `prog-indentation-context' and `prog-widen'. 324See `prog-indentation-context' and `prog-widen'.
320 325
321** Prettify Symbols mode supports custom composition predicates. By 326** Prettify Symbols mode
327*** Prettify Symbols mode supports custom composition predicates. By
322overriding the default `prettify-symbols-compose-predicate', modes can 328overriding the default `prettify-symbols-compose-predicate', modes can
323specify in which contexts a symbol map be composed to some unicode 329specify in which contexts a symbol map be composed to some unicode
324character. `prettify-symbols-default-compose-p' is the default which 330character. `prettify-symbols-default-compose-p' is the default which
325is suitable for most programming languages such as C or Lisp (but not 331is suitable for most programming languages such as C or Lisp (but not
326(La)TeX). 332(La)TeX).
327 333
334*** Symbols can be unprettified while point is inside them.
335New variable `prettify-symbols-unprettify-at-point' configures this.
336
328** New `xterm-screen-extra-capabilities' config. 337** New `xterm-screen-extra-capabilities' config.
329 338
330** The `save-place' variable is replaced by a `save-place-mode'. 339** 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.
634 643
635** SES now supports local printer functions; see `ses-define-local-printer'. 644** SES now supports local printer functions; see `ses-define-local-printer'.
636 645
637** In sh-mode, you can now use `sh-shell' as a file-local variable to 646** sh-script
647*** In sh-mode you can now use `sh-shell' as a file-local variable to
638specify the type of shell in use (bash, csh, etc). 648specify the type of shell in use (bash, csh, etc).
639 649
650*** New value `always' for sh-indent-after-continuation.
651This provides old-style ("dumb") indentation of continued lines.
652
640** TLS 653** TLS
641--- 654---
642*** Fatal TLS errors are now silent by default. 655*** Fatal TLS errors are now silent by default.
diff --git a/etc/compilation.txt b/etc/compilation.txt
index f134f53d00c..da6df8a1bb4 100644
--- a/etc/compilation.txt
+++ b/etc/compilation.txt
@@ -52,6 +52,7 @@ jikes are the ending line and ending column.
52 [javac] /src/DataBaseTestCase.java:27: unreported exception ... 52 [javac] /src/DataBaseTestCase.java:27: unreported exception ...
53 [javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally 53 [javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally
54 [jikes] foo.java:3:5:7:9: blah blah 54 [jikes] foo.java:3:5:7:9: blah blah
55 [javadoc] c:\MyProject\Polynomial.java:560: error: unknown tag: math
55 56
56 57
57* Bash v2 58* Bash v2
diff --git a/etc/themes/wombat-theme.el b/etc/themes/wombat-theme.el
index d49f9bf636f..734731a1ffa 100644
--- a/etc/themes/wombat-theme.el
+++ b/etc/themes/wombat-theme.el
@@ -1,4 +1,4 @@
1;;; wombat-theme.el --- Custom face theme for Emacs -*-coding: utf-8 -*- 1;;; wombat-theme.el --- Custom face theme for Emacs
2 2
3;; Copyright (C) 2011-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
4 4
diff --git a/etc/tutorials/TUTORIAL.cn b/etc/tutorials/TUTORIAL.cn
index 5e187a45ce1..6a558c3f4f2 100644
--- a/etc/tutorials/TUTORIAL.cn
+++ b/etc/tutorials/TUTORIAL.cn
@@ -286,10 +286,9 @@ Emacs å¯ä»¥æœ‰å¤šä¸ªâ€œçª—æ ¼â€ï¼Œæ¯ä¸ªçª—格显示ä¸åŒçš„æ–‡å­—。åŽé¢ä¼
286 286
287<Return> 是一个特殊的键,因为按下这个键åŽï¼Œå¾—到的å¯èƒ½ä¸ä»…仅是一个æ¢è¡Œ 287<Return> 是一个特殊的键,因为按下这个键åŽï¼Œå¾—到的å¯èƒ½ä¸ä»…仅是一个æ¢è¡Œ
288符。根æ®å‘¨å›´æ–‡æœ¬çš„ä¸åŒï¼ŒEmacs å¯èƒ½ä¼šåœ¨æ¢è¡Œç¬¦ä¹‹åŽæ’入一些空白字符,这样, 288符。根æ®å‘¨å›´æ–‡æœ¬çš„ä¸åŒï¼ŒEmacs å¯èƒ½ä¼šåœ¨æ¢è¡Œç¬¦ä¹‹åŽæ’入一些空白字符,这样,
289当你在新的一行开始打字时,文本会自动与å‰ä¸€è¡Œå¯¹é½ã€‚我们把这个按下一个键 289当你在新的一行开始打字时,文本会自动与å‰ä¸€è¡Œå¯¹é½ã€‚
290æ—¶ä¸åªæ˜¯æ’入其对应字符的特性å«åšâ€œç”µåЍâ€ï¼ˆelectric)。
291 290
292>> 这是一个电动 <Return> 的例å­ã€‚ 291>> 这是一个自动缩进的例å­ã€‚
293 在这一行的末尾输入 <Return>。 292 在这一行的末尾输入 <Return>。
294 293
295å¯ä»¥çœ‹åˆ°ï¼Œåœ¨æ’å…¥æ¢è¡Œç¬¦ä¹‹åŽï¼ŒEmacs æ’入了空格,因此光标移动到了“在â€è¿™ä¸ª 294å¯ä»¥çœ‹åˆ°ï¼Œåœ¨æ’å…¥æ¢è¡Œç¬¦ä¹‹åŽï¼ŒEmacs æ’入了空格,因此光标移动到了“在â€è¿™ä¸ª
diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17
index 224e2a6da7f..a40f8f3d67a 100644
--- a/lisp/ChangeLog.17
+++ b/lisp/ChangeLog.17
@@ -1,8 +1,3 @@
12015-09-20 Ken Manheimer <ken.manheimer@gmail.com>
2
3 * python.el (python-pdbtrack-set-tracked-buffer): Repair pdbtrack
4 so it follows transition from one remote file to another.
5
62015-04-06 Alan Mackenzie <acm@muc.de> 12015-04-06 Alan Mackenzie <acm@muc.de>
7 2
8 Fix miscellaneous glitches in cc-mode.el. (Bug#20245) 3 Fix miscellaneous glitches in cc-mode.el. (Bug#20245)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 4df41b5613c..cf071e2a1f5 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -839,7 +839,7 @@ when parsing the archive."
839 ;; long when the archive -- which has to be moved in memory -- is large. 839 ;; long when the archive -- which has to be moved in memory -- is large.
840 (insert 840 (insert
841 (apply 841 (apply
842 (function concat) 842 #'concat
843 (mapcar 843 (mapcar
844 (lambda (fil) 844 (lambda (fil)
845 ;; Using `concat' here copies the text also, so we can add 845 ;; 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."
1050 (setq default-directory arcdir) 1050 (setq default-directory arcdir)
1051 (make-local-variable 'archive-superior-buffer) 1051 (make-local-variable 'archive-superior-buffer)
1052 (setq archive-superior-buffer archive-buffer) 1052 (setq archive-superior-buffer archive-buffer)
1053 (add-hook 'write-file-functions 'archive-write-file-member nil t) 1053 (add-hook 'write-file-functions #'archive-write-file-member nil t)
1054 (setq archive-subfile-mode descr) 1054 (setq archive-subfile-mode descr)
1055 (setq archive-file-name-coding-system file-name-coding) 1055 (setq archive-file-name-coding-system file-name-coding)
1056 (if (and 1056 (if (and
@@ -1091,7 +1091,7 @@ using `make-temp-file', and the generated name is returned."
1091 (if read-only-p (setq archive-read-only t)) 1091 (if read-only-p (setq archive-read-only t))
1092 ;; We will write out the archive ourselves if it is 1092 ;; We will write out the archive ourselves if it is
1093 ;; part of another archive. 1093 ;; part of another archive.
1094 (remove-hook 'write-contents-functions 'archive-write-file t)) 1094 (remove-hook 'write-contents-functions #'archive-write-file t))
1095 (run-hooks 'archive-extract-hook) 1095 (run-hooks 'archive-extract-hook)
1096 (if archive-read-only 1096 (if archive-read-only
1097 (message "Note: altering this archive is not implemented.")))) 1097 (message "Note: altering this archive is not implemented."))))
@@ -1111,7 +1111,7 @@ using `make-temp-file', and the generated name is returned."
1111 exit-status success) 1111 exit-status success)
1112 (make-directory (directory-file-name default-directory) t) 1112 (make-directory (directory-file-name default-directory) t)
1113 (setq exit-status 1113 (setq exit-status
1114 (apply 'call-process 1114 (apply #'call-process
1115 (car command) 1115 (car command)
1116 nil 1116 nil
1117 nil 1117 nil
@@ -1136,7 +1136,7 @@ using `make-temp-file', and the generated name is returned."
1136 (let ((stderr-file (make-temp-file "arc-stderr"))) 1136 (let ((stderr-file (make-temp-file "arc-stderr")))
1137 (unwind-protect 1137 (unwind-protect
1138 (prog1 1138 (prog1
1139 (apply 'call-process 1139 (apply #'call-process
1140 (car command) 1140 (car command)
1141 nil 1141 nil
1142 (if stderr-file (list t stderr-file) t) 1142 (if stderr-file (list t stderr-file) t)
@@ -1157,12 +1157,12 @@ using `make-temp-file', and the generated name is returned."
1157 (stdout-file (make-temp-file "arc-stdout"))) 1157 (stdout-file (make-temp-file "arc-stdout")))
1158 (unwind-protect 1158 (unwind-protect
1159 (prog1 1159 (prog1
1160 (apply 'call-process 1160 (apply #'call-process
1161 (car command) 1161 (car command)
1162 nil 1162 nil
1163 `(:file ,stdout-file) 1163 `(:file ,stdout-file)
1164 nil 1164 nil
1165 (append (cdr command) (list archive name dest))) 1165 `(,archive ,name ,@(cdr command) ,dest))
1166 (with-temp-buffer 1166 (with-temp-buffer
1167 (insert-file-contents stdout-file) 1167 (insert-file-contents stdout-file)
1168 (goto-char (point-min)) 1168 (goto-char (point-min))
@@ -1284,7 +1284,7 @@ using `make-temp-file', and the generated name is returned."
1284 (setq ename 1284 (setq ename
1285 (encode-coding-string ename archive-file-name-coding-system)) 1285 (encode-coding-string ename archive-file-name-coding-system))
1286 (let* ((coding-system-for-write 'no-conversion) 1286 (let* ((coding-system-for-write 'no-conversion)
1287 (exitcode (apply 'call-process 1287 (exitcode (apply #'call-process
1288 (car command) 1288 (car command)
1289 nil 1289 nil
1290 nil 1290 nil
@@ -1444,7 +1444,7 @@ as a relative change like \"g+rw\" as for chmod(2)."
1444 (revert-buffer)))))) 1444 (revert-buffer))))))
1445 1445
1446(defun archive-*-expunge (archive files command) 1446(defun archive-*-expunge (archive files command)
1447 (apply 'call-process 1447 (apply #'call-process
1448 (car command) 1448 (car command)
1449 nil 1449 nil
1450 nil 1450 nil
@@ -1539,7 +1539,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
1539 (length files) 1539 (length files)
1540 (if (= 1 (length files)) "" "s")) 1540 (if (= 1 (length files)) "" "s"))
1541 "\n")) 1541 "\n"))
1542 (apply 'vector (nreverse files)))) 1542 (apply #'vector (nreverse files))))
1543 1543
1544(defun archive-arc-rename-entry (newname descr) 1544(defun archive-arc-rename-entry (newname descr)
1545 (if (string-match "[:\\\\/]" newname) 1545 (if (string-match "[:\\\\/]" newname)
@@ -1708,7 +1708,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
1708 (length files) 1708 (length files)
1709 (if (= 1 (length files)) "" "s")) 1709 (if (= 1 (length files)) "" "s"))
1710 "\n")) 1710 "\n"))
1711 (apply 'vector (nreverse files)))) 1711 (apply #'vector (nreverse files))))
1712 1712
1713(defconst archive-lzh-alternate-display t) 1713(defconst archive-lzh-alternate-display t)
1714 1714
@@ -1905,7 +1905,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
1905 (length files) 1905 (length files)
1906 (if (= 1 (length files)) "" "s")) 1906 (if (= 1 (length files)) "" "s"))
1907 "\n")) 1907 "\n"))
1908 (apply 'vector (nreverse files)))) 1908 (apply #'vector (nreverse files))))
1909 1909
1910(defun archive-zip-extract (archive name) 1910(defun archive-zip-extract (archive name)
1911 (cond 1911 (cond
@@ -2022,7 +2022,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
2022 (length files) 2022 (length files)
2023 (if (= 1 (length files)) "" "s")) 2023 (if (= 1 (length files)) "" "s"))
2024 "\n")) 2024 "\n"))
2025 (apply 'vector (nreverse files)))) 2025 (apply #'vector (nreverse files))))
2026 2026
2027(defun archive-zoo-extract (archive name) 2027(defun archive-zoo-extract (archive name)
2028 (archive-extract-by-stdout archive name archive-zoo-extract)) 2028 (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."
2038 (maxsize 5) 2038 (maxsize 5)
2039 (files ())) 2039 (files ()))
2040 (with-temp-buffer 2040 (with-temp-buffer
2041 (call-process "unrar-free" nil t nil "--list" (or file copy)) 2041 (call-process "lsar" nil t nil "-l" (or file copy))
2042 (if copy (delete-file copy)) 2042 (if copy (delete-file copy))
2043 (goto-char (point-min)) 2043 (goto-char (point-min))
2044 (re-search-forward "^-+\n") 2044 (re-search-forward "^\\(\s+=+\s?+\\)+\n")
2045 (while (looking-at (concat " \\(.*\\)\n" ;Name. 2045 (while (looking-at (concat "^\s+[0-9.]+\s+-+\s+" ; Flags
2046 ;; Size ; Packed. 2046 "\\([0-9-]+\\)\s+" ; Size
2047 " +\\([0-9]+\\) +[0-9]+" 2047 "\\([0-9.%]+\\)\s+" ; Ratio
2048 ;; Ratio ; Date' 2048 "\\([0-9a-zA-Z]+\\)\s+" ; Mode
2049 " +\\([0-9%]+\\) +\\([-0-9]+\\)" 2049 "\\([0-9-]+\\)\s+" ; Date
2050 ;; Time ; Attr. 2050 "\\([0-9:]+\\)\s+" ; Time
2051 " +\\([0-9:]+\\) +[^ \n]\\{6,10\\}" 2051 "\\(.*\\)\n" ; Name
2052 ;; CRC; Meth ; Var. 2052 ))
2053 " +[0-9A-F]+ +[^ \n]+ +[0-9.]+\n"))
2054 (goto-char (match-end 0)) 2053 (goto-char (match-end 0))
2055 (let ((name (match-string 1)) 2054 (let ((name (match-string 6))
2056 (size (match-string 2))) 2055 (size (match-string 1)))
2057 (if (> (length name) maxname) (setq maxname (length name))) 2056 (if (> (length name) maxname) (setq maxname (length name)))
2058 (if (> (length size) maxsize) (setq maxsize (length size))) 2057 (if (> (length size) maxsize) (setq maxsize (length size)))
2059 (push (vector name name nil nil 2058 (push (vector name name nil nil
2060 ;; Size, Ratio. 2059 ;; Size, Ratio.
2061 size (match-string 3) 2060 size (match-string 2)
2062 ;; Date, Time. 2061 ;; Date, Time.
2063 (match-string 4) (match-string 5)) 2062 (match-string 4) (match-string 5))
2064 files)))) 2063 files))))
2065 (setq files (nreverse files)) 2064 (setq files (nreverse files))
2066 (goto-char (point-min)) 2065 (goto-char (point-min))
2067 (let* ((format (format " %%s %%s %%%ds %%5s %%s" maxsize)) 2066 (let* ((format (format " %%s %%s %%%ds %%5s %%s" maxsize))
2068 (sep (format format "--------" "-----" (make-string maxsize ?-) 2067 (sep (format format "----------" "-----" (make-string maxsize ?-)
2069 "-----" "")) 2068 "-----" ""))
2070 (column (length sep))) 2069 (column (length sep)))
2071 (insert (format format " Date " "Time " "Size " "Ratio" " Filename") "\n") 2070 (insert (format format " Date " "Time " "Size" "Ratio" "Filename") "\n")
2072 (insert sep (make-string maxname ?-) "\n") 2071 (insert sep (make-string maxname ?-) "\n")
2073 (archive-summarize-files (mapcar (lambda (desc) 2072 (archive-summarize-files (mapcar (lambda (desc)
2074 (let ((text 2073 (let ((text
@@ -2083,7 +2082,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
2083 (length text)))) 2082 (length text))))
2084 files)) 2083 files))
2085 (insert sep (make-string maxname ?-) "\n") 2084 (insert sep (make-string maxname ?-) "\n")
2086 (apply 'vector files)))) 2085 (apply #'vector files))))
2087 2086
2088(defun archive-rar-extract (archive name) 2087(defun archive-rar-extract (archive name)
2089 ;; unrar-free seems to have no way to extract to stdout or even to a file. 2088 ;; 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."
2091 ;; The code below assumes the name is relative and may do undesirable 2090 ;; The code below assumes the name is relative and may do undesirable
2092 ;; things otherwise. 2091 ;; things otherwise.
2093 (error "Can't extract files with non-relative names") 2092 (error "Can't extract files with non-relative names")
2094 (archive-extract-by-file archive name '("unrar-free" "--extract") "All OK"))) 2093 (archive-extract-by-file archive name `("unar" "-no-directory" "-o") "Successfully extracted")))
2095 2094
2096;;; Section: Rar self-extracting .exe archives. 2095;;; Section: Rar self-extracting .exe archives.
2097 2096
@@ -2171,7 +2170,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
2171 (length text)))) 2170 (length text))))
2172 files)) 2171 files))
2173 (insert sep (make-string maxname ?-) "\n") 2172 (insert sep (make-string maxname ?-) "\n")
2174 (apply 'vector files)))) 2173 (apply #'vector files))))
2175 2174
2176(defun archive-7z-extract (archive name) 2175(defun archive-7z-extract (archive name)
2177 ;; 7z doesn't provide a `quiet' option to suppress non-essential 2176 ;; 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."
2272 (length text)))) 2271 (length text))))
2273 files)) 2272 files))
2274 (insert sep (make-string maxname ?-) "\n") 2273 (insert sep (make-string maxname ?-) "\n")
2275 (apply 'vector files)))) 2274 (apply #'vector files))))
2276 2275
2277(defun archive-ar-extract (archive name) 2276(defun archive-ar-extract (archive name)
2278 (let ((destbuf (current-buffer)) 2277 (let ((destbuf (current-buffer))
diff --git a/lisp/battery.el b/lisp/battery.el
index b9ce5b49093..b33e906f21e 100644
--- a/lisp/battery.el
+++ b/lisp/battery.el
@@ -1,4 +1,4 @@
1;;; battery.el --- display battery status information -*- coding: utf-8 -*- 1;;; battery.el --- display battery status information
2 2
3;; Copyright (C) 1997-1998, 2000-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1997-1998, 2000-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index 2319c484498..6336c3362fb 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."
1266(provide 'calc-aent) 1266(provide 'calc-aent)
1267 1267
1268;; Local variables: 1268;; Local variables:
1269;; coding: utf-8
1270;; generated-autoload-file: "calc-loaddefs.el" 1269;; generated-autoload-file: "calc-loaddefs.el"
1271;; End: 1270;; End:
1272 1271
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 933c446875e..9adf66f23bd 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.")
3507 3507
3508(provide 'calc-ext) 3508(provide 'calc-ext)
3509 3509
3510;; Local variables:
3511;; coding: utf-8
3512;; End:
3513
3514;;; calc-ext.el ends here 3510;;; calc-ext.el ends here
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index 6b3b949424d..94366060a41 100644
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -2525,8 +2525,4 @@ order to Calc's."
2525 2525
2526(provide 'calc-lang) 2526(provide 'calc-lang)
2527 2527
2528;; Local variables:
2529;; coding: utf-8
2530;; End:
2531
2532;;; calc-lang.el ends here 2528;;; calc-lang.el ends here
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 21209c66677..2684e627883 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -677,8 +677,4 @@
677 677
678(provide 'calc-store) 678(provide 'calc-store)
679 679
680;; Local variables:
681;; coding: utf-8
682;; End:
683
684;;; calc-store.el ends here 680;;; calc-store.el ends here
diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 4373e52eb87..a450d8f82a9 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."
2163 2163
2164(provide 'calc-units) 2164(provide 'calc-units)
2165 2165
2166;; Local variables:
2167;; coding: utf-8
2168;; End:
2169
2170;;; calc-units.el ends here 2166;;; calc-units.el ends here
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index b4b0ad8b185..de7bfb8cbef 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -3918,8 +3918,4 @@ See Info node `(calc)Defining Functions'."
3918 3918
3919(provide 'calc) 3919(provide 'calc)
3920 3920
3921;; Local variables:
3922;; coding: utf-8
3923;; End:
3924
3925;;; calc.el ends here 3921;;; calc.el ends here
diff --git a/lisp/calc/calccomp.el b/lisp/calc/calccomp.el
index a3432c14b15..119f41993c3 100644
--- a/lisp/calc/calccomp.el
+++ b/lisp/calc/calccomp.el
@@ -1670,8 +1670,4 @@
1670 1670
1671(provide 'calccomp) 1671(provide 'calccomp)
1672 1672
1673;; Local variables:
1674;; coding: utf-8
1675;; End:
1676
1677;;; calccomp.el ends here 1673;;; calccomp.el ends here
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 998dc6c7056..d0b3021ea60 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."
324 324
325(provide 'cal-bahai) 325(provide 'cal-bahai)
326 326
327;; Local Variables:
328;; coding: utf-8
329;; End:
330
331;;; cal-bahai.el ends here 327;;; cal-bahai.el ends here
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index b88adb9b636..33e8e8e0618 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."
256 256
257(provide 'cal-french) 257(provide 'cal-french)
258 258
259;; Local Variables:
260;; coding: utf-8
261;; End:
262
263;;; cal-french.el ends here 259;;; cal-french.el ends here
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index 251d811bc52..211f16c22f7 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -280,8 +280,4 @@ is non-nil."
280 280
281(provide 'cal-menu) 281(provide 'cal-menu)
282 282
283;; Local Variables:
284;; coding: utf-8
285;; End:
286
287;;; cal-menu.el ends here 283;;; cal-menu.el ends here
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 86e5477aa6f..f188b68b050 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."
2635 2635
2636;; Local variables: 2636;; Local variables:
2637;; byte-compile-dynamic: t 2637;; byte-compile-dynamic: t
2638;; coding: utf-8
2639;; End: 2638;; End:
2640 2639
2641;;; calendar.el ends here 2640;;; calendar.el ends here
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index a1370bbc5e3..7382abf67fc 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."
2534 2534
2535(provide 'diary-lib) 2535(provide 'diary-lib)
2536 2536
2537;; Local Variables:
2538;; coding: utf-8
2539;; End:
2540
2541;;; diary-lib.el ends here 2537;;; diary-lib.el ends here
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index bd3a558dc2c..307ab4deb82 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)."
823 823
824(provide 'holidays) 824(provide 'holidays)
825 825
826;; Local Variables:
827;; coding: utf-8
828;; End:
829
830;;; holidays.el ends here 826;;; holidays.el ends here
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 4b71530febb..0955e72aa04 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -1,4 +1,4 @@
1;;; icalendar.el --- iCalendar implementation -*-coding: utf-8 -*- 1;;; icalendar.el --- iCalendar implementation
2 2
3;; Copyright (C) 2002-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index 8736a4ff93c..b5995ffa397 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."
644 (insert (overload-docstring-extension symbol) "\n\n") 644 (insert (overload-docstring-extension symbol) "\n\n")
645 (insert (format-message "default function: `%s'\n" default)) 645 (insert (format-message "default function: `%s'\n" default))
646 (if override 646 (if override
647 (insert (format-message "\noverride in buffer '%s': `%s'\n" 647 (insert (format-message "\noverride in buffer `%s': `%s'\n"
648 describe-function-orig-buffer override)) 648 describe-function-orig-buffer override))
649 (insert (format-message "\nno override in buffer '%s'\n" 649 (insert (format-message "\nno override in buffer `%s'\n"
650 describe-function-orig-buffer))) 650 describe-function-orig-buffer)))
651 651
652 (mapatoms 652 (mapatoms
diff --git a/lisp/color.el b/lisp/color.el
index 3471243a656..d572222021b 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -1,4 +1,4 @@
1;;; color.el --- Color manipulation library -*- coding: utf-8; lexical-binding:t -*- 1;;; color.el --- Color manipulation library -*- lexical-binding:t -*-
2 2
3;; Copyright (C) 2010-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 9d023e3dc89..e95a8c9288b 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1590,7 +1590,3 @@ If there are no buffers left to create, kill the timer."
1590(provide 'desktop) 1590(provide 'desktop)
1591 1591
1592;;; desktop.el ends here 1592;;; desktop.el ends here
1593
1594;; Local Variables:
1595;; coding: utf-8
1596;; End:
diff --git a/lisp/dnd.el b/lisp/dnd.el
index 3e161dcfb51..d4fb0889f0a 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -1,4 +1,4 @@
1;;; dnd.el --- drag and drop support. -*- coding: utf-8 -*- 1;;; dnd.el --- drag and drop support
2 2
3;; Copyright (C) 2005-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2005-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 8699af60ea8..6f7ba3353f6 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."))
2015 (format " (string-lessp emacs-version \"%s\")\n" minimum-version) 2015 (format " (string-lessp emacs-version \"%s\")\n" minimum-version)
2016 ;; Because the header must fit in a fixed width, we cannot 2016 ;; Because the header must fit in a fixed width, we cannot
2017 ;; insert arbitrary-length file names (Bug#11585). 2017 ;; insert arbitrary-length file names (Bug#11585).
2018 " (error \"'%s' was compiled for " 2018 " (error \"`%s' was compiled for "
2019 (format "Emacs %s or later\" #$))\n\n" minimum-version)) 2019 (format "Emacs %s or later\" #$))\n\n" minimum-version))
2020 ;; Now compensate for any change in size, to make sure all 2020 ;; Now compensate for any change in size, to make sure all
2021 ;; positions in the file remain valid. 2021 ;; positions in the file remain valid.
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 0f75f0a1664..efa9a3da011 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -1,4 +1,4 @@
1;;; cconv.el --- Closure conversion for statically scoped Emacs lisp. -*- lexical-binding: t; coding: utf-8 -*- 1;;; cconv.el --- Closure conversion for statically scoped Emacs lisp. -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 2011-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index d5d8ef0a8a1..c42094f0f0c 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1,4 +1,4 @@
1;;; cl-macs.el --- Common Lisp macros -*- lexical-binding: t; coding: utf-8 -*- 1;;; cl-macs.el --- Common Lisp macros -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 1993, 2001-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1993, 2001-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 1317d699d25..50f880d7b33 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."
375 375
376(provide 'copyright) 376(provide 'copyright)
377 377
378;; For the copyright sign:
379;; Local Variables:
380;; coding: utf-8
381;; End:
382
383;;; copyright.el ends here 378;;; copyright.el ends here
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 86ac33c2600..64d65c05902 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."
520 ;;; (with-syntax-table emacs-lisp-mode-syntax-table 520 ;;; (with-syntax-table emacs-lisp-mode-syntax-table
521 ;;; (elint-update-env)) 521 ;;; (elint-update-env))
522 ;;; (setq env (elint-env-add-env env elint-buffer-env)))) 522 ;;; (setq env (elint-env-add-env env elint-buffer-env))))
523 ;;(message "Elint processed (require '%s)" name)) 523 ;;(message "%s" (format "Elint processed (require '%s)" name))
524 (error "%s.el not found in load-path" libname))) 524 (error "%s.el not found in load-path" libname)))
525 (error 525 (error
526 (message "Can't get variables from require'd library %s: %s" 526 (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 fec9467bbb7..9ce0dfd49e8 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -238,17 +238,21 @@
238 (throw 'found t)))))) 238 (throw 'found t))))))
239 239
240(defmacro let-when-compile (bindings &rest body) 240(defmacro let-when-compile (bindings &rest body)
241 "Like `let', but allow for compile time optimization. 241 "Like `let*', but allow for compile time optimization.
242Use BINDINGS as in regular `let', but in BODY each usage should 242Use BINDINGS as in regular `let*', but in BODY each usage should
243be wrapped in `eval-when-compile'. 243be wrapped in `eval-when-compile'.
244This will generate compile-time constants from BINDINGS." 244This will generate compile-time constants from BINDINGS."
245 (declare (indent 1) (debug let)) 245 (declare (indent 1) (debug let))
246 (cl-progv (mapcar #'car bindings) 246 (letrec ((loop
247 (mapcar (lambda (x) (eval (cadr x))) bindings) 247 (lambda (bindings)
248 (macroexpand-all 248 (if (null bindings)
249 (macroexp-progn 249 (macroexpand-all (macroexp-progn body)
250 body) 250 macroexpand-all-environment)
251 macroexpand-all-environment))) 251 (let ((binding (pop bindings)))
252 (cl-progv (list (car binding))
253 (list (eval (nth 1 binding) t))
254 (funcall loop bindings)))))))
255 (funcall loop bindings)))
252 256
253(let-when-compile 257(let-when-compile
254 ((lisp-fdefs '("defmacro" "defun")) 258 ((lisp-fdefs '("defmacro" "defun"))
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 2c33d39c32f..8bf49b01689 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -1,4 +1,4 @@
1;;; macroexp.el --- Additional macro-expansion support -*- lexical-binding: t; coding: utf-8 -*- 1;;; macroexp.el --- Additional macro-expansion support -*- lexical-binding: t -*-
2;; 2;;
3;; Copyright (C) 2004-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
4;; 4;;
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index ea4f38add76..8bcb447cfbb 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -1,4 +1,4 @@
1;;; pcase.el --- ML-style pattern-matching macro for Elisp -*- lexical-binding: t; coding: utf-8 -*- 1;;; pcase.el --- ML-style pattern-matching macro for Elisp -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 2010-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index e0f17c0335d..a63447d3243 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."
261 t)) 261 t))
262 262
263(cl-defgeneric seq-some (pred seq) 263(cl-defgeneric seq-some (pred seq)
264 "Return non-nil if (PRED element) is non-nil for any element in SEQ, nil otherwise. 264 "Return the first value for which if (PRED element) is non-nil for in SEQ."
265If so, return the non-nil value returned by PRED."
266 (catch 'seq--break 265 (catch 'seq--break
267 (seq-doseq (elt seq) 266 (seq-doseq (elt seq)
268 (let ((result (funcall pred elt))) 267 (let ((result (funcall pred elt)))
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 17e3be7d3ff..229bb587488 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")
286(provide 'shadow) 286(provide 'shadow)
287 287
288;;; shadow.el ends here 288;;; shadow.el ends here
289
290;; Local Variables:
291;; coding: utf-8
292;; End:
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index cd61eb9ae56..47ecd2b7922 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -581,8 +581,4 @@ as the ewoc pretty-printer."
581 581
582(provide 'tabulated-list) 582(provide 'tabulated-list)
583 583
584;; Local Variables:
585;; coding: utf-8
586;; End:
587
588;;; tabulated-list.el ends here 584;;; tabulated-list.el ends here
diff --git a/lisp/filesets.el b/lisp/filesets.el
index ab332bbeff0..28d0cd85582 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1,4 +1,4 @@
1;;; filesets.el --- handle group of files -*- coding: utf-8 -*- 1;;; filesets.el --- handle group of files
2 2
3;; Copyright (C) 2002-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/fringe.el b/lisp/fringe.el
index 8f40c46c3d3..8524f2ad2a2 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -1,4 +1,4 @@
1;;; fringe.el --- fringe setup and control -*- coding: utf-8 -*- 1;;; fringe.el --- fringe setup and control
2 2
3;; Copyright (C) 2002-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index f101ecdea08..32e22ebc29b 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -560,7 +560,7 @@ other properties will always hold scalar values.
560Typically the :secret property, if present, contains a password. 560Typically the :secret property, if present, contains a password.
561 561
562Common search keys are :max, :host, :port, and :user. In 562Common search keys are :max, :host, :port, and :user. In
563addition, :create specifies how tokens will be or created. 563addition, :create specifies if and how tokens will be created.
564Finally, :type can specify which backend types you want to check. 564Finally, :type can specify which backend types you want to check.
565 565
566A string value is always matched literally. A symbol is matched 566A string value is always matched literally. A symbol is matched
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 0a0a0b346c0..719cb50ac77 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.
2433 2433
2434(provide 'htmlfontify) 2434(provide 'htmlfontify)
2435 2435
2436;; Local Variables:
2437;; coding: utf-8
2438;; End:
2439
2440;;; htmlfontify.el ends here 2436;;; htmlfontify.el ends here
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 5065b661101..89477bd919f 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
2493buffers which satisfy ALL criteria on the stack. For example, suppose 2493buffers which satisfy ALL criteria on the stack. For example, suppose
2494you only want to see buffers in `emacs-lisp' mode, whose names begin 2494you only want to see buffers in `emacs-lisp' mode, whose names begin
2495with \"gnus\". You can accomplish this via: 2495with \"gnus\". You can accomplish this via:
2496`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET 2496
2497\\[ibuffer-filter-by-name] ^gnus RET'. 2497 \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
2498 \\[ibuffer-filter-by-name] ^gnus RET
2498 2499
2499Additionally, you can OR the top two filters together with 2500Additionally, you can OR the top two filters together with
2500`\\[ibuffer-or-filters]'. To see all buffers in either 2501`\\[ibuffer-or-filters]'. To see all buffers in either
2501`emacs-lisp-mode' or `lisp-interaction-mode', type: 2502`emacs-lisp-mode' or `lisp-interaction-mode', type:
2502 2503
2503`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filter-by-mode] lisp-interaction-mode RET \\[ibuffer-or-filters]'. 2504 \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
2505 \\[ibuffer-filter-by-mode] lisp-interaction-mode RET
2506 \\[ibuffer-or-filters]
2504 2507
2505Filters can also be saved and restored using mnemonic names: see the 2508Filters can also be saved and restored using mnemonic names: see the
2506functions `ibuffer-save-filters' and `ibuffer-switch-to-saved-filters'. 2509functions `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
2518filter, and then type `\\[ibuffer-filters-to-filter-group]'. 2521filter, and then type `\\[ibuffer-filters-to-filter-group]'.
2519 2522
2520A quick example will make things clearer. Suppose that one wants to 2523A quick example will make things clearer. Suppose that one wants to
2521group all of one's Emacs Lisp buffers together. To do this, type 2524group all of one's Emacs Lisp buffers together. To do this, type:
2522 2525
2523`\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filters-to-filter-group] RET emacs lisp buffers RET' 2526 \\[ibuffer-filter-by-mode] emacs-lisp-mode RET
2527 \\[ibuffer-filters-to-filter-group] emacs lisp buffers RET
2524 2528
2525You may, of course, name the group whatever you want; it doesn't have 2529You may, of course, name the group whatever you want; it doesn't have
2526to be \"emacs lisp buffers\". Filter groups may be composed of any 2530to be \"emacs lisp buffers\". Filter groups may be composed of any
@@ -2974,8 +2978,4 @@ defaults to one.
2974 2978
2975(run-hooks 'ibuffer-load-hook) 2979(run-hooks 'ibuffer-load-hook)
2976 2980
2977;; Local Variables:
2978;; coding: utf-8
2979;; End:
2980
2981;;; ibuffer.el ends here 2981;;; ibuffer.el ends here
diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index 2b81efa178e..fcdf5323db7 100644
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -454,7 +454,7 @@ and can take a long time."
454 (cond ((symbolp load) 454 (cond ((symbolp load)
455 (condition-case cause (require load) 455 (condition-case cause (require load)
456 (error 456 (error
457 (info-xref-output "Symbol `%s': cannot require '%s: %s" 457 (info-xref-output "Symbol `%s': cannot require `%s': %s"
458 symbol load cause)))) 458 symbol load cause))))
459 ;; skip if previously loaded 459 ;; skip if previously loaded
460 ((assoc load load-history)) 460 ((assoc load load-history))
diff --git a/lisp/json.el b/lisp/json.el
index daa0c94da28..e2c7cc77222 100644
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -57,7 +57,8 @@
57(defvar json-object-type 'alist 57(defvar json-object-type 'alist
58 "Type to convert JSON objects to. 58 "Type to convert JSON objects to.
59Must be one of `alist', `plist', or `hash-table'. Consider let-binding 59Must be one of `alist', `plist', or `hash-table'. Consider let-binding
60this around your call to `json-read' instead of `setq'ing it.") 60this around your call to `json-read' instead of `setq'ing it. Ordering
61is maintained for `alist' and `plist', but not for `hash-table'.")
61 62
62(defvar json-array-type 'vector 63(defvar json-array-type 'vector
63 "Type to convert JSON arrays to. 64 "Type to convert JSON arrays to.
@@ -136,6 +137,17 @@ without indentation.")
136 'not-plist))) 137 'not-plist)))
137 (null list)) 138 (null list))
138 139
140(defun json--plist-reverse (plist)
141 "Return a copy of PLIST in reverse order.
142Unlike `reverse', this keeps the property-value pairs intact."
143 (let (res)
144 (while plist
145 (let ((prop (pop plist))
146 (val (pop plist)))
147 (push val res)
148 (push prop res)))
149 res))
150
139(defmacro json--with-indentation (body) 151(defmacro json--with-indentation (body)
140 `(let ((json--encoding-current-indentation 152 `(let ((json--encoding-current-indentation
141 (if json-encoding-pretty-print 153 (if json-encoding-pretty-print
@@ -400,7 +412,10 @@ Please see the documentation of `json-object-type' and `json-key-type'."
400 (signal 'json-object-format (list "," (json-peek)))))) 412 (signal 'json-object-format (list "," (json-peek))))))
401 ;; Skip over the "}" 413 ;; Skip over the "}"
402 (json-advance) 414 (json-advance)
403 elements)) 415 (pcase json-object-type
416 (`alist (nreverse elements))
417 (`plist (json--plist-reverse elements))
418 (_ elements))))
404 419
405;; Hash table encoding 420;; Hash table encoding
406 421
@@ -602,6 +617,8 @@ Advances point just past JSON object."
602 (interactive "r") 617 (interactive "r")
603 (atomic-change-group 618 (atomic-change-group
604 (let ((json-encoding-pretty-print t) 619 (let ((json-encoding-pretty-print t)
620 ;; Ensure that ordering is maintained
621 (json-object-type 'alist)
605 (txt (delete-and-extract-region begin end))) 622 (txt (delete-and-extract-region begin end)))
606 (insert (json-encode (json-read-from-string txt)))))) 623 (insert (json-encode (json-read-from-string txt))))))
607 624
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 14c634f937c..e3e620c746b 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -3,7 +3,7 @@
3;;; Code: 3;;; Code:
4 4
5 5
6;;;### (autoloads nil "5x5" "play/5x5.el" (21799 41767 31221 635000)) 6;;;### (autoloads nil "5x5" "play/5x5.el" (22026 25907 631502 692000))
7;;; Generated autoloads from play/5x5.el 7;;; Generated autoloads from play/5x5.el
8 8
9(autoload '5x5 "5x5" "\ 9(autoload '5x5 "5x5" "\
@@ -65,8 +65,8 @@ should return a grid vector array that is the new solution.
65 65
66;;;*** 66;;;***
67 67
68;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (21980 16567 68;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (22011 58553
69;;;;;; 981544 893000)) 69;;;;;; 865858 469000))
70;;; Generated autoloads from progmodes/ada-mode.el 70;;; Generated autoloads from progmodes/ada-mode.el
71 71
72(autoload 'ada-add-extensions "ada-mode" "\ 72(autoload 'ada-add-extensions "ada-mode" "\
@@ -96,8 +96,8 @@ Insert a descriptive header at the top of the file.
96 96
97;;;*** 97;;;***
98 98
99;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (21980 16567 99;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (22011 58553
100;;;;;; 981544 893000)) 100;;;;;; 869858 469000))
101;;; Generated autoloads from progmodes/ada-xref.el 101;;; Generated autoloads from progmodes/ada-xref.el
102 102
103(autoload 'ada-find-file "ada-xref" "\ 103(autoload 'ada-find-file "ada-xref" "\
@@ -108,8 +108,8 @@ Completion is available.
108 108
109;;;*** 109;;;***
110 110
111;;;### (autoloads nil "add-log" "vc/add-log.el" (21985 34484 266705 111;;;### (autoloads nil "add-log" "vc/add-log.el" (22011 58554 85858
112;;;;;; 925000)) 112;;;;;; 469000))
113;;; Generated autoloads from vc/add-log.el 113;;; Generated autoloads from vc/add-log.el
114 114
115(put 'change-log-default-name 'safe-local-variable 'string-or-null-p) 115(put 'change-log-default-name 'safe-local-variable 'string-or-null-p)
@@ -238,8 +238,8 @@ old-style time formats for entries are supported.
238 238
239;;;*** 239;;;***
240 240
241;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (21976 19509 241;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (22011 58553
242;;;;;; 764430 241000)) 242;;;;;; 345858 469000))
243;;; Generated autoloads from emacs-lisp/advice.el 243;;; Generated autoloads from emacs-lisp/advice.el
244 244
245(defvar ad-redefinition-action 'warn "\ 245(defvar ad-redefinition-action 'warn "\
@@ -374,7 +374,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
374 374
375;;;*** 375;;;***
376 376
377;;;### (autoloads nil "align" "align.el" (21980 16567 345544 893000)) 377;;;### (autoloads nil "align" "align.el" (21998 46516 830024 649000))
378;;; Generated autoloads from align.el 378;;; Generated autoloads from align.el
379 379
380(autoload 'align "align" "\ 380(autoload 'align "align" "\
@@ -477,7 +477,7 @@ A replacement function for `newline-and-indent', aligning as it goes.
477 477
478;;;*** 478;;;***
479 479
480;;;### (autoloads nil "allout" "allout.el" (21981 37426 507399 97000)) 480;;;### (autoloads nil "allout" "allout.el" (22015 55603 653705 321000))
481;;; Generated autoloads from allout.el 481;;; Generated autoloads from allout.el
482(push (purecopy '(allout 2 3)) package--builtin-versions) 482(push (purecopy '(allout 2 3)) package--builtin-versions)
483 483
@@ -837,8 +837,8 @@ for details on preparing Emacs for automatic allout activation.
837 837
838;;;*** 838;;;***
839 839
840;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21980 840;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21998
841;;;;;; 16567 353544 893000)) 841;;;;;; 46516 830024 649000))
842;;; Generated autoloads from allout-widgets.el 842;;; Generated autoloads from allout-widgets.el
843(push (purecopy '(allout-widgets 1 0)) package--builtin-versions) 843(push (purecopy '(allout-widgets 1 0)) package--builtin-versions)
844 844
@@ -896,8 +896,8 @@ outline hot-spot navigation (see `allout-mode').
896 896
897;;;*** 897;;;***
898 898
899;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (21980 16567 805544 899;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (22011 58553 761858
900;;;;;; 893000)) 900;;;;;; 469000))
901;;; Generated autoloads from net/ange-ftp.el 901;;; Generated autoloads from net/ange-ftp.el
902 902
903(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) 903(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'.
978 978
979;;;*** 979;;;***
980 980
981;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (21980 981;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (22011
982;;;;;; 16567 993544 893000)) 982;;;;;; 58553 873858 469000))
983;;; Generated autoloads from progmodes/antlr-mode.el 983;;; Generated autoloads from progmodes/antlr-mode.el
984(push (purecopy '(antlr-mode 2 2 3)) package--builtin-versions) 984(push (purecopy '(antlr-mode 2 2 3)) package--builtin-versions)
985 985
@@ -1015,8 +1015,8 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'.
1015 1015
1016;;;*** 1016;;;***
1017 1017
1018;;;### (autoloads nil "appt" "calendar/appt.el" (21976 19509 728430 1018;;;### (autoloads nil "appt" "calendar/appt.el" (21998 46516 878024
1019;;;;;; 241000)) 1019;;;;;; 649000))
1020;;; Generated autoloads from calendar/appt.el 1020;;; Generated autoloads from calendar/appt.el
1021 1021
1022(autoload 'appt-add "appt" "\ 1022(autoload 'appt-add "appt" "\
@@ -1037,8 +1037,8 @@ ARG is positive, otherwise off.
1037 1037
1038;;;*** 1038;;;***
1039 1039
1040;;;### (autoloads nil "apropos" "apropos.el" (21985 34484 142705 1040;;;### (autoloads nil "apropos" "apropos.el" (21998 46516 834024
1041;;;;;; 925000)) 1041;;;;;; 649000))
1042;;; Generated autoloads from apropos.el 1042;;; Generated autoloads from apropos.el
1043 1043
1044(autoload 'apropos-read-pattern "apropos" "\ 1044(autoload 'apropos-read-pattern "apropos" "\
@@ -1153,8 +1153,8 @@ Returns list of symbols and documentation found.
1153 1153
1154;;;*** 1154;;;***
1155 1155
1156;;;### (autoloads nil "arc-mode" "arc-mode.el" (21878 48426 204093 1156;;;### (autoloads nil "arc-mode" "arc-mode.el" (22027 46774 644310
1157;;;;;; 508000)) 1157;;;;;; 591000))
1158;;; Generated autoloads from arc-mode.el 1158;;; Generated autoloads from arc-mode.el
1159 1159
1160(autoload 'archive-mode "arc-mode" "\ 1160(autoload 'archive-mode "arc-mode" "\
@@ -1480,8 +1480,8 @@ Special commands:
1480 1480
1481;;;*** 1481;;;***
1482 1482
1483;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (21981 1483;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (22027
1484;;;;;; 37426 543399 97000)) 1484;;;;;; 46774 676310 591000))
1485;;; Generated autoloads from gnus/auth-source.el 1485;;; Generated autoloads from gnus/auth-source.el
1486 1486
1487(defvar auth-source-cache-expiry 7200 "\ 1487(defvar auth-source-cache-expiry 7200 "\
@@ -1802,8 +1802,8 @@ Run script using `bat-run' and `bat-run-args'.
1802 1802
1803;;;*** 1803;;;***
1804 1804
1805;;;### (autoloads nil "battery" "battery.el" (21754 56896 744606 1805;;;### (autoloads nil "battery" "battery.el" (22026 25907 487502
1806;;;;;; 568000)) 1806;;;;;; 692000))
1807;;; Generated autoloads from battery.el 1807;;; Generated autoloads from battery.el
1808 (put 'battery-mode-line-string 'risky-local-variable t) 1808 (put 'battery-mode-line-string 'risky-local-variable t)
1809 1809
@@ -1875,8 +1875,8 @@ For non-interactive use see also `benchmark-run' and
1875 1875
1876;;;*** 1876;;;***
1877 1877
1878;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (21988 10682 1878;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (22011 58554
1879;;;;;; 61624 461000)) 1879;;;;;; 41858 469000))
1880;;; Generated autoloads from textmodes/bibtex.el 1880;;; Generated autoloads from textmodes/bibtex.el
1881 1881
1882(autoload 'bibtex-initialize "bibtex" "\ 1882(autoload 'bibtex-initialize "bibtex" "\
@@ -2123,8 +2123,8 @@ a reflection.
2123 2123
2124;;;*** 2124;;;***
2125 2125
2126;;;### (autoloads nil "bookmark" "bookmark.el" (21980 16567 369544 2126;;;### (autoloads nil "bookmark" "bookmark.el" (22011 58553 109858
2127;;;;;; 893000)) 2127;;;;;; 469000))
2128;;; Generated autoloads from bookmark.el 2128;;; Generated autoloads from bookmark.el
2129 (define-key ctl-x-r-map "b" 'bookmark-jump) 2129 (define-key ctl-x-r-map "b" 'bookmark-jump)
2130 (define-key ctl-x-r-map "m" 'bookmark-set) 2130 (define-key ctl-x-r-map "m" 'bookmark-set)
@@ -2317,8 +2317,8 @@ Incremental search of bookmarks, hiding the non-matches as we go.
2317 2317
2318;;;*** 2318;;;***
2319 2319
2320;;;### (autoloads nil "browse-url" "net/browse-url.el" (21811 32939 2320;;;### (autoloads nil "browse-url" "net/browse-url.el" (21993 28596
2321;;;;;; 190503 320000)) 2321;;;;;; 198597 473000))
2322;;; Generated autoloads from net/browse-url.el 2322;;; Generated autoloads from net/browse-url.el
2323 2323
2324(defvar browse-url-browser-function 'browse-url-default-browser "\ 2324(defvar browse-url-browser-function 'browse-url-default-browser "\
@@ -2658,7 +2658,7 @@ from `browse-url-elinks-wrapper'.
2658 2658
2659;;;*** 2659;;;***
2660 2660
2661;;;### (autoloads nil "bs" "bs.el" (21980 16567 373544 893000)) 2661;;;### (autoloads nil "bs" "bs.el" (21998 46516 834024 649000))
2662;;; Generated autoloads from bs.el 2662;;; Generated autoloads from bs.el
2663(push (purecopy '(bs 1 17)) package--builtin-versions) 2663(push (purecopy '(bs 1 17)) package--builtin-versions)
2664 2664
@@ -2699,8 +2699,8 @@ name of buffer configuration.
2699 2699
2700;;;*** 2700;;;***
2701 2701
2702;;;### (autoloads nil "bubbles" "play/bubbles.el" (21980 16567 957544 2702;;;### (autoloads nil "bubbles" "play/bubbles.el" (22026 25907 631502
2703;;;;;; 893000)) 2703;;;;;; 692000))
2704;;; Generated autoloads from play/bubbles.el 2704;;; Generated autoloads from play/bubbles.el
2705 2705
2706(autoload 'bubbles "bubbles" "\ 2706(autoload 'bubbles "bubbles" "\
@@ -2742,8 +2742,8 @@ Like `bug-reference-mode', but only buttonize in comments and strings.
2742 2742
2743;;;*** 2743;;;***
2744 2744
2745;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (21988 2745;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (22011
2746;;;;;; 10681 977624 461000)) 2746;;;;;; 58553 361858 469000))
2747;;; Generated autoloads from emacs-lisp/bytecomp.el 2747;;; Generated autoloads from emacs-lisp/bytecomp.el
2748(put 'byte-compile-dynamic 'safe-local-variable 'booleanp) 2748(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
2749(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) 2749(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
2823all functions called by those functions. 2823all functions called by those functions.
2824 2824
2825The call graph does not include macros, inline functions, or 2825The call graph does not include macros, inline functions, or
2826primitives that the byte-code interpreter knows about directly (eq, 2826primitives that the byte-code interpreter knows about directly
2827cons, etc.). 2827\(`eq', `cons', etc.).
2828 2828
2829The call tree also lists those functions which are not known to be called 2829The call tree also lists those functions which are not known to be called
2830\(that is, to which no calls have been compiled), and which cannot be 2830\(that is, to which no calls have been compiled), and which cannot be
@@ -2873,8 +2873,8 @@ and corresponding effects.
2873 2873
2874;;;*** 2874;;;***
2875 2875
2876;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21670 32330 2876;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21990 52406
2877;;;;;; 885624 725000)) 2877;;;;;; 468500 385000))
2878;;; Generated autoloads from calendar/cal-dst.el 2878;;; Generated autoloads from calendar/cal-dst.el
2879 2879
2880(put 'calendar-daylight-savings-starts 'risky-local-variable t) 2880(put 'calendar-daylight-savings-starts 'risky-local-variable t)
@@ -2885,8 +2885,8 @@ and corresponding effects.
2885 2885
2886;;;*** 2886;;;***
2887 2887
2888;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21670 2888;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21993
2889;;;;;; 32330 885624 725000)) 2889;;;;;; 28595 970597 473000))
2890;;; Generated autoloads from calendar/cal-hebrew.el 2890;;; Generated autoloads from calendar/cal-hebrew.el
2891 2891
2892(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ 2892(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\
@@ -2898,7 +2898,7 @@ from the cursor position.
2898 2898
2899;;;*** 2899;;;***
2900 2900
2901;;;### (autoloads nil "calc" "calc/calc.el" (21985 34484 202705 925000)) 2901;;;### (autoloads nil "calc" "calc/calc.el" (22026 25907 527502 692000))
2902;;; Generated autoloads from calc/calc.el 2902;;; Generated autoloads from calc/calc.el
2903 (define-key ctl-x-map "*" 'calc-dispatch) 2903 (define-key ctl-x-map "*" 'calc-dispatch)
2904 2904
@@ -2995,8 +2995,8 @@ See Info node `(calc)Defining Functions'.
2995 2995
2996;;;*** 2996;;;***
2997 2997
2998;;;### (autoloads nil "calculator" "calculator.el" (21974 64192 548009 2998;;;### (autoloads nil "calculator" "calculator.el" (21993 28595 966597
2999;;;;;; 993000)) 2999;;;;;; 473000))
3000;;; Generated autoloads from calculator.el 3000;;; Generated autoloads from calculator.el
3001 3001
3002(autoload 'calculator "calculator" "\ 3002(autoload 'calculator "calculator" "\
@@ -3007,8 +3007,8 @@ See the documentation for `calculator-mode' for more information.
3007 3007
3008;;;*** 3008;;;***
3009 3009
3010;;;### (autoloads nil "calendar" "calendar/calendar.el" (21980 16567 3010;;;### (autoloads nil "calendar" "calendar/calendar.el" (22026 25907
3011;;;;;; 413544 893000)) 3011;;;;;; 535502 692000))
3012;;; Generated autoloads from calendar/calendar.el 3012;;; Generated autoloads from calendar/calendar.el
3013 3013
3014(autoload 'calendar "calendar" "\ 3014(autoload 'calendar "calendar" "\
@@ -3069,8 +3069,8 @@ it fails.
3069 3069
3070;;;*** 3070;;;***
3071 3071
3072;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (21988 3072;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (22011
3073;;;;;; 10682 33624 461000)) 3073;;;;;; 58553 881858 469000))
3074;;; Generated autoloads from progmodes/cc-engine.el 3074;;; Generated autoloads from progmodes/cc-engine.el
3075 3075
3076(autoload 'c-guess-basic-syntax "cc-engine" "\ 3076(autoload 'c-guess-basic-syntax "cc-engine" "\
@@ -3179,8 +3179,8 @@ the absolute file name of the file if STYLE-NAME is nil.
3179 3179
3180;;;*** 3180;;;***
3181 3181
3182;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (21976 19510 3182;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (22021 7991
3183;;;;;; 104430 241000)) 3183;;;;;; 65719 83000))
3184;;; Generated autoloads from progmodes/cc-mode.el 3184;;; Generated autoloads from progmodes/cc-mode.el
3185 3185
3186(autoload 'c-initialize-cc-mode "cc-mode" "\ 3186(autoload 'c-initialize-cc-mode "cc-mode" "\
@@ -3202,7 +3202,8 @@ control). See \"cc-mode.el\" for more info.
3202 (add-to-list 'auto-mode-alist '("\\.ii\\'" . c++-mode)) 3202 (add-to-list 'auto-mode-alist '("\\.ii\\'" . c++-mode))
3203 3203
3204(autoload 'c-mode "cc-mode" "\ 3204(autoload 'c-mode "cc-mode" "\
3205Major mode for editing K&R and ANSI C code. 3205Major mode for editing C code.
3206
3206To submit a problem report, enter `\\[c-submit-bug-report]' from a 3207To submit a problem report, enter `\\[c-submit-bug-report]' from a
3207c-mode buffer. This automatically sets up a mail buffer with version 3208c-mode buffer. This automatically sets up a mail buffer with version
3208information already added. You just need to add a description of the 3209information already added. You just need to add a description of the
@@ -3389,8 +3390,8 @@ and exists only for compatibility reasons.
3389 3390
3390;;;*** 3391;;;***
3391 3392
3392;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (21976 19510 3393;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (22011 58553
3393;;;;;; 104430 241000)) 3394;;;;;; 885858 469000))
3394;;; Generated autoloads from progmodes/cc-vars.el 3395;;; Generated autoloads from progmodes/cc-vars.el
3395(put 'c-basic-offset 'safe-local-variable 'integerp) 3396(put 'c-basic-offset 'safe-local-variable 'integerp)
3396(put 'c-backslash-column 'safe-local-variable 'integerp) 3397(put 'c-backslash-column 'safe-local-variable 'integerp)
@@ -3398,8 +3399,8 @@ and exists only for compatibility reasons.
3398 3399
3399;;;*** 3400;;;***
3400 3401
3401;;;### (autoloads nil "ccl" "international/ccl.el" (21988 10681 977624 3402;;;### (autoloads nil "ccl" "international/ccl.el" (21998 46517 74024
3402;;;;;; 461000)) 3403;;;;;; 649000))
3403;;; Generated autoloads from international/ccl.el 3404;;; Generated autoloads from international/ccl.el
3404 3405
3405(autoload 'ccl-compile "ccl" "\ 3406(autoload 'ccl-compile "ccl" "\
@@ -3692,8 +3693,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program.
3692 3693
3693;;;*** 3694;;;***
3694 3695
3695;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (21978 61237 3696;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (22026 25907
3696;;;;;; 422488 269000)) 3697;;;;;; 559502 692000))
3697;;; Generated autoloads from emacs-lisp/cconv.el 3698;;; Generated autoloads from emacs-lisp/cconv.el
3698 3699
3699(autoload 'cconv-closure-convert "cconv" "\ 3700(autoload 'cconv-closure-convert "cconv" "\
@@ -3719,8 +3720,8 @@ Add the warnings that closure conversion would encounter.
3719 3720
3720;;;*** 3721;;;***
3721 3722
3722;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (21980 16568 3723;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (22011 58553
3723;;;;;; 17544 893000)) 3724;;;;;; 889858 469000))
3724;;; Generated autoloads from progmodes/cfengine.el 3725;;; Generated autoloads from progmodes/cfengine.el
3725(push (purecopy '(cfengine 1 4)) package--builtin-versions) 3726(push (purecopy '(cfengine 1 4)) package--builtin-versions)
3726 3727
@@ -3773,15 +3774,15 @@ match any number of times.
3773 3774
3774;;;*** 3775;;;***
3775 3776
3776;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21976 19509 3777;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21998 46516
3777;;;;;; 812430 241000)) 3778;;;;;; 978024 649000))
3778;;; Generated autoloads from emacs-lisp/chart.el 3779;;; Generated autoloads from emacs-lisp/chart.el
3779(push (purecopy '(chart 0 2)) package--builtin-versions) 3780(push (purecopy '(chart 0 2)) package--builtin-versions)
3780 3781
3781;;;*** 3782;;;***
3782 3783
3783;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el" 3784;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el"
3784;;;;;; (21978 61237 422488 269000)) 3785;;;;;; (22011 58553 361858 469000))
3785;;; Generated autoloads from emacs-lisp/check-declare.el 3786;;; Generated autoloads from emacs-lisp/check-declare.el
3786 3787
3787(autoload 'check-declare-file "check-declare" "\ 3788(autoload 'check-declare-file "check-declare" "\
@@ -3798,8 +3799,8 @@ Returns non-nil if any false statements are found.
3798 3799
3799;;;*** 3800;;;***
3800 3801
3801;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (21986 3802;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (22002
3802;;;;;; 55346 260512 613000)) 3803;;;;;; 43570 516887 749000))
3803;;; Generated autoloads from emacs-lisp/checkdoc.el 3804;;; Generated autoloads from emacs-lisp/checkdoc.el
3804(push (purecopy '(checkdoc 0 6 2)) package--builtin-versions) 3805(push (purecopy '(checkdoc 0 6 2)) package--builtin-versions)
3805(put 'checkdoc-force-docstrings-flag 'safe-local-variable #'booleanp) 3806(put 'checkdoc-force-docstrings-flag 'safe-local-variable #'booleanp)
@@ -4190,8 +4191,8 @@ a future Emacs interpreter will be able to use it.")
4190 4191
4191;;;*** 4192;;;***
4192 4193
4193;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (21988 10682 4194;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (22026 25907
4194;;;;;; 33624 461000)) 4195;;;;;; 631502 692000))
4195;;; Generated autoloads from progmodes/cmacexp.el 4196;;; Generated autoloads from progmodes/cmacexp.el
4196 4197
4197(autoload 'c-macro-expand "cmacexp" "\ 4198(autoload 'c-macro-expand "cmacexp" "\
@@ -4211,8 +4212,8 @@ For use inside Lisp programs, see also `c-macro-expansion'.
4211 4212
4212;;;*** 4213;;;***
4213 4214
4214;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (21887 31417 144735 4215;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (22011 58553 281858
4215;;;;;; 656000)) 4216;;;;;; 469000))
4216;;; Generated autoloads from cmuscheme.el 4217;;; Generated autoloads from cmuscheme.el
4217 4218
4218(autoload 'run-scheme "cmuscheme" "\ 4219(autoload 'run-scheme "cmuscheme" "\
@@ -4232,7 +4233,7 @@ is run).
4232 4233
4233;;;*** 4234;;;***
4234 4235
4235;;;### (autoloads nil "color" "color.el" (21670 32330 885624 725000)) 4236;;;### (autoloads nil "color" "color.el" (22026 25907 555502 692000))
4236;;; Generated autoloads from color.el 4237;;; Generated autoloads from color.el
4237 4238
4238(autoload 'color-name-to-rgb "color" "\ 4239(autoload 'color-name-to-rgb "color" "\
@@ -4251,7 +4252,7 @@ If FRAME cannot display COLOR, return nil.
4251 4252
4252;;;*** 4253;;;***
4253 4254
4254;;;### (autoloads nil "comint" "comint.el" (21980 16567 473544 893000)) 4255;;;### (autoloads nil "comint" "comint.el" (22011 58553 293858 469000))
4255;;; Generated autoloads from comint.el 4256;;; Generated autoloads from comint.el
4256 4257
4257(defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ 4258(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.
4389 4390
4390;;;*** 4391;;;***
4391 4392
4392;;;### (autoloads nil "compile" "progmodes/compile.el" (21980 16568 4393;;;### (autoloads nil "compile" "progmodes/compile.el" (22015 55603
4393;;;;;; 17544 893000)) 4394;;;;;; 789705 321000))
4394;;; Generated autoloads from progmodes/compile.el 4395;;; Generated autoloads from progmodes/compile.el
4395 4396
4396(defvar compilation-mode-hook nil "\ 4397(defvar compilation-mode-hook nil "\
@@ -4594,8 +4595,8 @@ if ARG is omitted or nil.
4594 4595
4595;;;*** 4596;;;***
4596 4597
4597;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (21988 4598;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (22026
4598;;;;;; 10682 61624 461000)) 4599;;;;;; 25907 647502 692000))
4599;;; Generated autoloads from textmodes/conf-mode.el 4600;;; Generated autoloads from textmodes/conf-mode.el
4600 4601
4601(autoload 'conf-mode "conf-mode" "\ 4602(autoload 'conf-mode "conf-mode" "\
@@ -4779,8 +4780,8 @@ and subsequent calls on the same file won't go to disk.
4779 4780
4780;;;*** 4781;;;***
4781 4782
4782;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (21976 4783;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (22026
4783;;;;;; 19509 832430 241000)) 4784;;;;;; 25907 575502 692000))
4784;;; Generated autoloads from emacs-lisp/copyright.el 4785;;; Generated autoloads from emacs-lisp/copyright.el
4785(put 'copyright-at-end-flag 'safe-local-variable 'booleanp) 4786(put 'copyright-at-end-flag 'safe-local-variable 'booleanp)
4786(put 'copyright-names-regexp 'safe-local-variable 'stringp) 4787(put 'copyright-names-regexp 'safe-local-variable 'stringp)
@@ -4818,8 +4819,8 @@ If FIX is non-nil, run `copyright-fix-years' instead.
4818 4819
4819;;;*** 4820;;;***
4820 4821
4821;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (21980 4822;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (22011
4822;;;;;; 16568 21544 893000)) 4823;;;;;; 58553 893858 469000))
4823;;; Generated autoloads from progmodes/cperl-mode.el 4824;;; Generated autoloads from progmodes/cperl-mode.el
4824(put 'cperl-indent-level 'safe-local-variable 'integerp) 4825(put 'cperl-indent-level 'safe-local-variable 'integerp)
4825(put 'cperl-brace-offset 'safe-local-variable 'integerp) 4826(put 'cperl-brace-offset 'safe-local-variable 'integerp)
@@ -5063,8 +5064,8 @@ with empty strings removed.
5063 5064
5064;;;*** 5065;;;***
5065 5066
5066;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (21985 34484 5067;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (22014 34736
5067;;;;;; 258705 925000)) 5068;;;;;; 811840 613000))
5068;;; Generated autoloads from textmodes/css-mode.el 5069;;; Generated autoloads from textmodes/css-mode.el
5069 5070
5070(autoload 'css-mode "css-mode" "\ 5071(autoload 'css-mode "css-mode" "\
@@ -5080,8 +5081,8 @@ Major mode to edit \"Sassy CSS\" files.
5080 5081
5081;;;*** 5082;;;***
5082 5083
5083;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21826 50080 5084;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21990 52406
5084;;;;;; 561727 536000)) 5085;;;;;; 528500 385000))
5085;;; Generated autoloads from emulation/cua-base.el 5086;;; Generated autoloads from emulation/cua-base.el
5086 5087
5087(defvar cua-mode nil "\ 5088(defvar cua-mode nil "\
@@ -5159,8 +5160,8 @@ entering the area covered by the text-property property or leaving it.
5159 5160
5160;;;*** 5161;;;***
5161 5162
5162;;;### (autoloads nil "cus-edit" "cus-edit.el" (21981 37426 511399 5163;;;### (autoloads nil "cus-edit" "cus-edit.el" (21993 28596 22597
5163;;;;;; 97000)) 5164;;;;;; 473000))
5164;;; Generated autoloads from cus-edit.el 5165;;; Generated autoloads from cus-edit.el
5165 5166
5166(defvar custom-browse-sort-alphabetically nil "\ 5167(defvar custom-browse-sort-alphabetically nil "\
@@ -5297,8 +5298,8 @@ and `defface'.
5297 5298
5298For example, the MH-E package updates this alist as follows: 5299For example, the MH-E package updates this alist as follows:
5299 5300
5300 (add-to-list 'customize-package-emacs-version-alist 5301 (add-to-list \\='customize-package-emacs-version-alist
5301 '(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\") 5302 \\='(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\")
5302 (\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\") 5303 (\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\")
5303 (\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\") 5304 (\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\")
5304 (\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\"))) 5305 (\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\")))
@@ -5479,8 +5480,8 @@ The format is suitable for use with `easy-menu-define'.
5479 5480
5480;;;*** 5481;;;***
5481 5482
5482;;;### (autoloads nil "cus-theme" "cus-theme.el" (21985 34484 218705 5483;;;### (autoloads nil "cus-theme" "cus-theme.el" (21998 46516 910024
5483;;;;;; 925000)) 5484;;;;;; 649000))
5484;;; Generated autoloads from cus-theme.el 5485;;; Generated autoloads from cus-theme.el
5485 5486
5486(autoload 'customize-create-theme "cus-theme" "\ 5487(autoload 'customize-create-theme "cus-theme" "\
@@ -5513,8 +5514,8 @@ omitted, a buffer named *Custom Themes* is used.
5513 5514
5514;;;*** 5515;;;***
5515 5516
5516;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (21670 32331 5517;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (22026 25907
5517;;;;;; 885635 586000)) 5518;;;;;; 671502 692000))
5518;;; Generated autoloads from vc/cvs-status.el 5519;;; Generated autoloads from vc/cvs-status.el
5519 5520
5520(autoload 'cvs-status-mode "cvs-status" "\ 5521(autoload 'cvs-status-mode "cvs-status" "\
@@ -5598,8 +5599,8 @@ If the argument is nil, we return the display table to its standard state.
5598 5599
5599;;;*** 5600;;;***
5600 5601
5601;;;### (autoloads nil "dabbrev" "dabbrev.el" (21980 16567 473544 5602;;;### (autoloads nil "dabbrev" "dabbrev.el" (22011 58553 321858
5602;;;;;; 893000)) 5603;;;;;; 469000))
5603;;; Generated autoloads from dabbrev.el 5604;;; Generated autoloads from dabbrev.el
5604(put 'dabbrev-case-fold-search 'risky-local-variable t) 5605(put 'dabbrev-case-fold-search 'risky-local-variable t)
5605(put 'dabbrev-case-replace 'risky-local-variable t) 5606(put 'dabbrev-case-replace 'risky-local-variable t)
@@ -5656,7 +5657,7 @@ Create a new data-debug buffer with NAME.
5656 5657
5657;;;*** 5658;;;***
5658 5659
5659;;;### (autoloads nil "dbus" "net/dbus.el" (21855 577 147947 107000)) 5660;;;### (autoloads nil "dbus" "net/dbus.el" (22011 58553 761858 469000))
5660;;; Generated autoloads from net/dbus.el 5661;;; Generated autoloads from net/dbus.el
5661 5662
5662(autoload 'dbus-handle-event "dbus" "\ 5663(autoload 'dbus-handle-event "dbus" "\
@@ -5669,8 +5670,8 @@ If the HANDLER returns a `dbus-error', it is propagated as return message.
5669 5670
5670;;;*** 5671;;;***
5671 5672
5672;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (21980 16568 5673;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (22011 58553
5673;;;;;; 21544 893000)) 5674;;;;;; 897858 469000))
5674;;; Generated autoloads from progmodes/dcl-mode.el 5675;;; Generated autoloads from progmodes/dcl-mode.el
5675 5676
5676(autoload 'dcl-mode "dcl-mode" "\ 5677(autoload 'dcl-mode "dcl-mode" "\
@@ -5992,8 +5993,8 @@ the first time the mode is used.
5992 5993
5993;;;*** 5994;;;***
5994 5995
5995;;;### (autoloads nil "descr-text" "descr-text.el" (21981 37426 511399 5996;;;### (autoloads nil "descr-text" "descr-text.el" (21998 46516 914024
5996;;;;;; 97000)) 5997;;;;;; 649000))
5997;;; Generated autoloads from descr-text.el 5998;;; Generated autoloads from descr-text.el
5998 5999
5999(autoload 'describe-text-properties "descr-text" "\ 6000(autoload 'describe-text-properties "descr-text" "\
@@ -6042,8 +6043,8 @@ This function is meant to be used as a value of
6042 6043
6043;;;*** 6044;;;***
6044 6045
6045;;;### (autoloads nil "desktop" "desktop.el" (21976 19509 748430 6046;;;### (autoloads nil "desktop" "desktop.el" (22026 25907 555502
6046;;;;;; 241000)) 6047;;;;;; 692000))
6047;;; Generated autoloads from desktop.el 6048;;; Generated autoloads from desktop.el
6048 6049
6049(defvar desktop-save-mode nil "\ 6050(defvar desktop-save-mode nil "\
@@ -6285,8 +6286,8 @@ Deuglify broken Outlook (Express) articles and redisplay.
6285 6286
6286;;;*** 6287;;;***
6287 6288
6288;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (21985 6289;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (22026
6289;;;;;; 34484 206705 925000)) 6290;;;;;; 25907 547502 692000))
6290;;; Generated autoloads from calendar/diary-lib.el 6291;;; Generated autoloads from calendar/diary-lib.el
6291 6292
6292(autoload 'diary "diary-lib" "\ 6293(autoload 'diary "diary-lib" "\
@@ -6376,8 +6377,8 @@ This requires the external program `diff' to be in your `exec-path'.
6376 6377
6377;;;*** 6378;;;***
6378 6379
6379;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (21985 34484 6380;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (22011 58554
6380;;;;;; 282705 925000)) 6381;;;;;; 89858 469000))
6381;;; Generated autoloads from vc/diff-mode.el 6382;;; Generated autoloads from vc/diff-mode.el
6382 6383
6383(autoload 'diff-mode "diff-mode" "\ 6384(autoload 'diff-mode "diff-mode" "\
@@ -6420,7 +6421,7 @@ Optional arguments are passed to `dig-invoke'.
6420 6421
6421;;;*** 6422;;;***
6422 6423
6423;;;### (autoloads nil "dired" "dired.el" (21985 34484 222705 925000)) 6424;;;### (autoloads nil "dired" "dired.el" (21998 46624 946024 649000))
6424;;; Generated autoloads from dired.el 6425;;; Generated autoloads from dired.el
6425 6426
6426(defvar dired-listing-switches (purecopy "-al") "\ 6427(defvar dired-listing-switches (purecopy "-al") "\
@@ -6577,8 +6578,8 @@ from `default-directory'.
6577 6578
6578;;;*** 6579;;;***
6579 6580
6580;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21670 32330 6581;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21993 28596
6581;;;;;; 885624 725000)) 6582;;;;;; 58597 473000))
6582;;; Generated autoloads from emacs-lisp/disass.el 6583;;; Generated autoloads from emacs-lisp/disass.el
6583 6584
6584(autoload 'disassemble "disass" "\ 6585(autoload 'disassemble "disass" "\
@@ -6731,7 +6732,7 @@ Default is 2.
6731 6732
6732;;;*** 6733;;;***
6733 6734
6734;;;### (autoloads nil "dnd" "dnd.el" (21670 32330 885624 725000)) 6735;;;### (autoloads nil "dnd" "dnd.el" (22026 25907 555502 692000))
6735;;; Generated autoloads from dnd.el 6736;;; Generated autoloads from dnd.el
6736 6737
6737(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)) "\ 6738(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.
6822 6823
6823;;;*** 6824;;;***
6824 6825
6825;;;### (autoloads nil "doctor" "play/doctor.el" (21670 32331 385639 6826;;;### (autoloads nil "doctor" "play/doctor.el" (22011 58553 865858
6826;;;;;; 720000)) 6827;;;;;; 469000))
6827;;; Generated autoloads from play/doctor.el 6828;;; Generated autoloads from play/doctor.el
6828 6829
6829(autoload 'doctor "doctor" "\ 6830(autoload 'doctor "doctor" "\
@@ -6861,8 +6862,8 @@ Switch to *dungeon* buffer and start game.
6861 6862
6862;;;*** 6863;;;***
6863 6864
6864;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (21907 6865;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (22011
6865;;;;;; 48688 657360 195000)) 6866;;;;;; 58553 361858 469000))
6866;;; Generated autoloads from emacs-lisp/easy-mmode.el 6867;;; Generated autoloads from emacs-lisp/easy-mmode.el
6867 6868
6868(defalias 'easy-mmode-define-minor-mode 'define-minor-mode) 6869(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
@@ -7145,8 +7146,8 @@ To implement dynamic menus, either call this from
7145 7146
7146;;;*** 7147;;;***
7147 7148
7148;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (21978 61237 7149;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (22011 58553
7149;;;;;; 706488 269000)) 7150;;;;;; 897858 469000))
7150;;; Generated autoloads from progmodes/ebnf2ps.el 7151;;; Generated autoloads from progmodes/ebnf2ps.el
7151(push (purecopy '(ebnf2ps 4 4)) package--builtin-versions) 7152(push (purecopy '(ebnf2ps 4 4)) package--builtin-versions)
7152 7153
@@ -7411,8 +7412,8 @@ See `ebnf-style-database' documentation.
7411 7412
7412;;;*** 7413;;;***
7413 7414
7414;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21988 10682 7415;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21998 46517
7415;;;;;; 37624 461000)) 7416;;;;;; 206024 649000))
7416;;; Generated autoloads from progmodes/ebrowse.el 7417;;; Generated autoloads from progmodes/ebrowse.el
7417 7418
7418(autoload 'ebrowse-tree-mode "ebrowse" "\ 7419(autoload 'ebrowse-tree-mode "ebrowse" "\
@@ -7616,7 +7617,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing.
7616 7617
7617;;;*** 7618;;;***
7618 7619
7619;;;### (autoloads nil "ede" "cedet/ede.el" (21986 55346 252512 613000)) 7620;;;### (autoloads nil "ede" "cedet/ede.el" (21996 4784 796983 429000))
7620;;; Generated autoloads from cedet/ede.el 7621;;; Generated autoloads from cedet/ede.el
7621(push (purecopy '(ede 1 2)) package--builtin-versions) 7622(push (purecopy '(ede 1 2)) package--builtin-versions)
7622 7623
@@ -7642,8 +7643,8 @@ an EDE controlled project.
7642 7643
7643;;;*** 7644;;;***
7644 7645
7645;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (21980 16567 7646;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (22022 28851
7646;;;;;; 505544 893000)) 7647;;;;;; 765037 303000))
7647;;; Generated autoloads from emacs-lisp/edebug.el 7648;;; Generated autoloads from emacs-lisp/edebug.el
7648 7649
7649(defvar edebug-all-defs nil "\ 7650(defvar edebug-all-defs nil "\
@@ -7707,7 +7708,7 @@ Toggle edebugging of all forms.
7707 7708
7708;;;*** 7709;;;***
7709 7710
7710;;;### (autoloads nil "ediff" "vc/ediff.el" (21985 34484 298705 925000)) 7711;;;### (autoloads nil "ediff" "vc/ediff.el" (22011 58554 93858 469000))
7711;;; Generated autoloads from vc/ediff.el 7712;;; Generated autoloads from vc/ediff.el
7712(push (purecopy '(ediff 2 81 4)) package--builtin-versions) 7713(push (purecopy '(ediff 2 81 4)) package--builtin-versions)
7713 7714
@@ -7990,8 +7991,8 @@ With optional NODE, goes to that node.
7990 7991
7991;;;*** 7992;;;***
7992 7993
7993;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21670 32331 7994;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21993 28596
7994;;;;;; 885635 586000)) 7995;;;;;; 422597 473000))
7995;;; Generated autoloads from vc/ediff-mult.el 7996;;; Generated autoloads from vc/ediff-mult.el
7996 7997
7997(autoload 'ediff-show-registry "ediff-mult" "\ 7998(autoload 'ediff-show-registry "ediff-mult" "\
@@ -8003,8 +8004,8 @@ Display Ediff's registry.
8003 8004
8004;;;*** 8005;;;***
8005 8006
8006;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (21985 34484 8007;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (22026 25907
8007;;;;;; 298705 925000)) 8008;;;;;; 671502 692000))
8008;;; Generated autoloads from vc/ediff-util.el 8009;;; Generated autoloads from vc/ediff-util.el
8009 8010
8010(autoload 'ediff-toggle-multiframe "ediff-util" "\ 8011(autoload 'ediff-toggle-multiframe "ediff-util" "\
@@ -8073,8 +8074,8 @@ or nil, use a compact 80-column format.
8073 8074
8074;;;*** 8075;;;***
8075 8076
8076;;;### (autoloads nil "edt" "emulation/edt.el" (21986 55346 264512 8077;;;### (autoloads nil "edt" "emulation/edt.el" (22011 58553 453858
8077;;;;;; 613000)) 8078;;;;;; 469000))
8078;;; Generated autoloads from emulation/edt.el 8079;;; Generated autoloads from emulation/edt.el
8079 8080
8080(autoload 'edt-set-scroll-margins "edt" "\ 8081(autoload 'edt-set-scroll-margins "edt" "\
@@ -8127,15 +8128,15 @@ BUFFER is put back into its original major mode.
8127 8128
8128;;;*** 8129;;;***
8129 8130
8130;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21978 61583 8131;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21998 46624
8131;;;;;; 178488 269000)) 8132;;;;;; 898024 649000))
8132;;; Generated autoloads from emacs-lisp/eieio.el 8133;;; Generated autoloads from emacs-lisp/eieio.el
8133(push (purecopy '(eieio 1 4)) package--builtin-versions) 8134(push (purecopy '(eieio 1 4)) package--builtin-versions)
8134 8135
8135;;;*** 8136;;;***
8136 8137
8137;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (21978 8138;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (22009
8138;;;;;; 61237 458488 269000)) 8139;;;;;; 58952 307546 645000))
8139;;; Generated autoloads from emacs-lisp/eieio-core.el 8140;;; Generated autoloads from emacs-lisp/eieio-core.el
8140(push (purecopy '(eieio-core 1 4)) package--builtin-versions) 8141(push (purecopy '(eieio-core 1 4)) package--builtin-versions)
8141 8142
@@ -8209,8 +8210,8 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks.
8209 8210
8210;;;*** 8211;;;***
8211 8212
8212;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (21980 16567 8213;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (21998 46516
8213;;;;;; 505544 893000)) 8214;;;;;; 994024 649000))
8214;;; Generated autoloads from emacs-lisp/elint.el 8215;;; Generated autoloads from emacs-lisp/elint.el
8215 8216
8216(autoload 'elint-file "elint" "\ 8217(autoload 'elint-file "elint" "\
@@ -8732,7 +8733,7 @@ if ARG is omitted or nil.
8732 8733
8733;;;*** 8734;;;***
8734 8735
8735;;;### (autoloads nil "epg" "epg.el" (21980 16567 517544 893000)) 8736;;;### (autoloads nil "epg" "epg.el" (22011 58553 461858 469000))
8736;;; Generated autoloads from epg.el 8737;;; Generated autoloads from epg.el
8737(push (purecopy '(epg 1 0 0)) package--builtin-versions) 8738(push (purecopy '(epg 1 0 0)) package--builtin-versions)
8738 8739
@@ -8764,7 +8765,7 @@ Look at CONFIG and try to expand GROUP.
8764 8765
8765;;;*** 8766;;;***
8766 8767
8767;;;### (autoloads nil "erc" "erc/erc.el" (21980 16567 529544 893000)) 8768;;;### (autoloads nil "erc" "erc/erc.el" (22011 58553 477858 469000))
8768;;; Generated autoloads from erc/erc.el 8769;;; Generated autoloads from erc/erc.el
8769(push (purecopy '(erc 5 3)) package--builtin-versions) 8770(push (purecopy '(erc 5 3)) package--builtin-versions)
8770 8771
@@ -8820,8 +8821,8 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
8820 8821
8821;;;*** 8822;;;***
8822 8823
8823;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21980 16567 8824;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21998 46517
8824;;;;;; 517544 893000)) 8825;;;;;; 30024 649000))
8825;;; Generated autoloads from erc/erc-button.el 8826;;; Generated autoloads from erc/erc-button.el
8826 (autoload 'erc-button-mode "erc-button" nil t) 8827 (autoload 'erc-button-mode "erc-button" nil t)
8827 8828
@@ -8841,8 +8842,8 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
8841 8842
8842;;;*** 8843;;;***
8843 8844
8844;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21980 16567 517544 8845;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21998 46517 30024
8845;;;;;; 893000)) 8846;;;;;; 649000))
8846;;; Generated autoloads from erc/erc-dcc.el 8847;;; Generated autoloads from erc/erc-dcc.el
8847 (autoload 'erc-dcc-mode "erc-dcc") 8848 (autoload 'erc-dcc-mode "erc-dcc")
8848 8849
@@ -9031,8 +9032,8 @@ You can save every individual message by putting this function on
9031 9032
9032;;;*** 9033;;;***
9033 9034
9034;;;### (autoloads nil "erc-match" "erc/erc-match.el" (21980 16567 9035;;;### (autoloads nil "erc-match" "erc/erc-match.el" (22011 58553
9035;;;;;; 517544 893000)) 9036;;;;;; 461858 469000))
9036;;; Generated autoloads from erc/erc-match.el 9037;;; Generated autoloads from erc/erc-match.el
9037 (autoload 'erc-match-mode "erc-match") 9038 (autoload 'erc-match-mode "erc-match")
9038 9039
@@ -9097,8 +9098,8 @@ Show who's gone.
9097 9098
9098;;;*** 9099;;;***
9099 9100
9100;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (21670 9101;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (22011
9101;;;;;; 32330 885624 725000)) 9102;;;;;; 58553 473858 469000))
9102;;; Generated autoloads from erc/erc-networks.el 9103;;; Generated autoloads from erc/erc-networks.el
9103 9104
9104(autoload 'erc-determine-network "erc-networks" "\ 9105(autoload 'erc-determine-network "erc-networks" "\
@@ -9162,8 +9163,8 @@ with args, toggle notify status of people.
9162 9163
9163;;;*** 9164;;;***
9164 9165
9165;;;### (autoloads nil "erc-services" "erc/erc-services.el" (21980 9166;;;### (autoloads nil "erc-services" "erc/erc-services.el" (22011
9166;;;;;; 16567 517544 893000)) 9167;;;;;; 58553 473858 469000))
9167;;; Generated autoloads from erc/erc-services.el 9168;;; Generated autoloads from erc/erc-services.el
9168 (autoload 'erc-services-mode "erc-services" nil t) 9169 (autoload 'erc-services-mode "erc-services" nil t)
9169 9170
@@ -9271,8 +9272,8 @@ Add a file to `erc-xdcc-files'.
9271 9272
9272;;;*** 9273;;;***
9273 9274
9274;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (21976 19509 868430 9275;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (22011 58553 409858
9275;;;;;; 241000)) 9276;;;;;; 469000))
9276;;; Generated autoloads from emacs-lisp/ert.el 9277;;; Generated autoloads from emacs-lisp/ert.el
9277 9278
9278(autoload 'ert-deftest "ert" "\ 9279(autoload 'ert-deftest "ert" "\
@@ -9341,8 +9342,8 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test).
9341 9342
9342;;;*** 9343;;;***
9343 9344
9344;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (21980 16567 9345;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (22011 58553
9345;;;;;; 505544 893000)) 9346;;;;;; 393858 469000))
9346;;; Generated autoloads from emacs-lisp/ert-x.el 9347;;; Generated autoloads from emacs-lisp/ert-x.el
9347 9348
9348(put 'ert-with-test-buffer 'lisp-indent-function 1) 9349(put 'ert-with-test-buffer 'lisp-indent-function 1)
@@ -9354,8 +9355,8 @@ Kill all test buffers that are still live.
9354 9355
9355;;;*** 9356;;;***
9356 9357
9357;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (21861 39358 9358;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (22003 64432
9358;;;;;; 497944 643000)) 9359;;;;;; 600146 533000))
9359;;; Generated autoloads from eshell/esh-mode.el 9360;;; Generated autoloads from eshell/esh-mode.el
9360 9361
9361(autoload 'eshell-mode "esh-mode" "\ 9362(autoload 'eshell-mode "esh-mode" "\
@@ -9401,8 +9402,8 @@ corresponding to a successful execution.
9401 9402
9402;;;*** 9403;;;***
9403 9404
9404;;;### (autoloads nil "etags" "progmodes/etags.el" (21988 10682 37624 9405;;;### (autoloads nil "etags" "progmodes/etags.el" (21998 46517 206024
9405;;;;;; 461000)) 9406;;;;;; 649000))
9406;;; Generated autoloads from progmodes/etags.el 9407;;; Generated autoloads from progmodes/etags.el
9407 9408
9408(defvar tags-file-name nil "\ 9409(defvar tags-file-name nil "\
@@ -9888,7 +9889,7 @@ With ARG, insert that many delimiters.
9888 9889
9889;;;*** 9890;;;***
9890 9891
9891;;;### (autoloads nil "eudc" "net/eudc.el" (21799 41767 21224 988000)) 9892;;;### (autoloads nil "eudc" "net/eudc.el" (22026 25907 611502 692000))
9892;;; Generated autoloads from net/eudc.el 9893;;; Generated autoloads from net/eudc.el
9893 9894
9894(autoload 'eudc-set-server "eudc" "\ 9895(autoload 'eudc-set-server "eudc" "\
@@ -9942,8 +9943,8 @@ This does nothing except loading eudc by autoload side-effect.
9942 9943
9943;;;*** 9944;;;***
9944 9945
9945;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (21704 50495 455324 9946;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (22026 25907 607502
9946;;;;;; 752000)) 9947;;;;;; 692000))
9947;;; Generated autoloads from net/eudc-bob.el 9948;;; Generated autoloads from net/eudc-bob.el
9948 9949
9949(autoload 'eudc-display-generic-binary "eudc-bob" "\ 9950(autoload 'eudc-display-generic-binary "eudc-bob" "\
@@ -9978,8 +9979,8 @@ Display a button for the JPEG DATA.
9978 9979
9979;;;*** 9980;;;***
9980 9981
9981;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (21794 23865 9982;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (22026 25907
9982;;;;;; 772631 636000)) 9983;;;;;; 607502 692000))
9983;;; Generated autoloads from net/eudc-export.el 9984;;; Generated autoloads from net/eudc-export.el
9984 9985
9985(autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ 9986(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.
9995 9996
9996;;;*** 9997;;;***
9997 9998
9998;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (21704 9999;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (22026
9999;;;;;; 50495 455324 752000)) 10000;;;;;; 25907 607502 692000))
10000;;; Generated autoloads from net/eudc-hotlist.el 10001;;; Generated autoloads from net/eudc-hotlist.el
10001 10002
10002(autoload 'eudc-edit-hotlist "eudc-hotlist" "\ 10003(autoload 'eudc-edit-hotlist "eudc-hotlist" "\
@@ -10033,7 +10034,7 @@ fourth arg NOSEP non-nil inhibits this.
10033 10034
10034;;;*** 10035;;;***
10035 10036
10036;;;### (autoloads nil "eww" "net/eww.el" (21826 49851 770496 504000)) 10037;;;### (autoloads nil "eww" "net/eww.el" (22011 58553 761858 469000))
10037;;; Generated autoloads from net/eww.el 10038;;; Generated autoloads from net/eww.el
10038 10039
10039(defvar eww-suggest-uris '(eww-links-at-point url-get-url-at-point eww-current-url) "\ 10040(defvar eww-suggest-uris '(eww-links-at-point url-get-url-at-point eww-current-url) "\
@@ -10116,7 +10117,7 @@ file modes.
10116 10117
10117;;;*** 10118;;;***
10118 10119
10119;;;### (autoloads nil "expand" "expand.el" (21670 32330 885624 725000)) 10120;;;### (autoloads nil "expand" "expand.el" (22011 58553 477858 469000))
10120;;; Generated autoloads from expand.el 10121;;; Generated autoloads from expand.el
10121 10122
10122(autoload 'expand-add-abbrevs "expand" "\ 10123(autoload 'expand-add-abbrevs "expand" "\
@@ -10165,8 +10166,8 @@ This is used only in conjunction with `expand-add-abbrevs'.
10165 10166
10166;;;*** 10167;;;***
10167 10168
10168;;;### (autoloads nil "f90" "progmodes/f90.el" (21914 21937 459876 10169;;;### (autoloads nil "f90" "progmodes/f90.el" (22026 25907 635502
10169;;;;;; 215000)) 10170;;;;;; 692000))
10170;;; Generated autoloads from progmodes/f90.el 10171;;; Generated autoloads from progmodes/f90.el
10171 10172
10172(autoload 'f90-mode "f90" "\ 10173(autoload 'f90-mode "f90" "\
@@ -10215,7 +10216,7 @@ Variables controlling indentation style and extra features:
10215 Non-nil causes `f90-do-auto-fill' to break lines before delimiters 10216 Non-nil causes `f90-do-auto-fill' to break lines before delimiters
10216 (default t). 10217 (default t).
10217`f90-beginning-ampersand' 10218`f90-beginning-ampersand'
10218 Automatic insertion of & at beginning of continuation lines (default t). 10219 Automatic insertion of `&' at beginning of continuation lines (default t).
10219`f90-smart-end' 10220`f90-smart-end'
10220 From an END statement, check and fill the end using matching block start. 10221 From an END statement, check and fill the end using matching block start.
10221 Allowed values are `blink', `no-blink', and nil, which determine 10222 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'.
10393 10394
10394;;;*** 10395;;;***
10395 10396
10396;;;### (autoloads nil "feedmail" "mail/feedmail.el" (21989 31537 10397;;;### (autoloads nil "feedmail" "mail/feedmail.el" (22011 58553
10397;;;;;; 891825 721000)) 10398;;;;;; 677858 469000))
10398;;; Generated autoloads from mail/feedmail.el 10399;;; Generated autoloads from mail/feedmail.el
10399(push (purecopy '(feedmail 11)) package--builtin-versions) 10400(push (purecopy '(feedmail 11)) package--builtin-versions)
10400 10401
@@ -10448,7 +10449,7 @@ you can set `feedmail-queue-reminder-alist' to nil.
10448 10449
10449;;;*** 10450;;;***
10450 10451
10451;;;### (autoloads nil "ffap" "ffap.el" (21960 31281 328212 153000)) 10452;;;### (autoloads nil "ffap" "ffap.el" (21993 28596 82597 473000))
10452;;; Generated autoloads from ffap.el 10453;;; Generated autoloads from ffap.el
10453 10454
10454(autoload 'ffap-next "ffap" "\ 10455(autoload 'ffap-next "ffap" "\
@@ -10569,15 +10570,15 @@ the name is considered already unique; only the second substitution
10569 10570
10570;;;*** 10571;;;***
10571 10572
10572;;;### (autoloads nil "filenotify" "filenotify.el" (21704 50495 455324 10573;;;### (autoloads nil "filenotify" "filenotify.el" (22019 52657 867929
10573;;;;;; 752000)) 10574;;;;;; 676000))
10574;;; Generated autoloads from filenotify.el 10575;;; Generated autoloads from filenotify.el
10575 10576
10576(autoload 'file-notify-handle-event "filenotify" "\ 10577(autoload 'file-notify-handle-event "filenotify" "\
10577Handle file system monitoring event. 10578Handle file system monitoring event.
10578If EVENT is a filewatch event, call its callback. It has the format 10579If EVENT is a filewatch event, call its callback. It has the format
10579 10580
10580 (file-notify (DESCRIPTOR ACTIONS FILE COOKIE) CALLBACK) 10581 (file-notify (DESCRIPTOR ACTIONS FILE [FILE1-OR-COOKIE]) CALLBACK)
10581 10582
10582Otherwise, signal a `file-notify-error'. 10583Otherwise, signal a `file-notify-error'.
10583 10584
@@ -10585,8 +10586,7 @@ Otherwise, signal a `file-notify-error'.
10585 10586
10586;;;*** 10587;;;***
10587 10588
10588;;;### (autoloads nil "files-x" "files-x.el" (21980 16567 557544 10589;;;### (autoloads nil "files-x" "files-x.el" (21998 46517 38024 649000))
10589;;;;;; 893000))
10590;;; Generated autoloads from files-x.el 10590;;; Generated autoloads from files-x.el
10591 10591
10592(autoload 'add-file-local-variable "files-x" "\ 10592(autoload 'add-file-local-variable "files-x" "\
@@ -10651,8 +10651,8 @@ Copy directory-local variables to the -*- line.
10651 10651
10652;;;*** 10652;;;***
10653 10653
10654;;;### (autoloads nil "filesets" "filesets.el" (21980 16567 557544 10654;;;### (autoloads nil "filesets" "filesets.el" (22026 25907 587502
10655;;;;;; 893000)) 10655;;;;;; 692000))
10656;;; Generated autoloads from filesets.el 10656;;; Generated autoloads from filesets.el
10657 10657
10658(autoload 'filesets-init "filesets" "\ 10658(autoload 'filesets-init "filesets" "\
@@ -10663,8 +10663,8 @@ Set up hooks, load the cache file -- if existing -- and build the menu.
10663 10663
10664;;;*** 10664;;;***
10665 10665
10666;;;### (autoloads nil "find-cmd" "find-cmd.el" (21980 16567 573544 10666;;;### (autoloads nil "find-cmd" "find-cmd.el" (22011 58553 489858
10667;;;;;; 893000)) 10667;;;;;; 469000))
10668;;; Generated autoloads from find-cmd.el 10668;;; Generated autoloads from find-cmd.el
10669(push (purecopy '(find-cmd 0 6)) package--builtin-versions) 10669(push (purecopy '(find-cmd 0 6)) package--builtin-versions)
10670 10670
@@ -10684,8 +10684,8 @@ result is a string that should be ready for the command line.
10684 10684
10685;;;*** 10685;;;***
10686 10686
10687;;;### (autoloads nil "find-dired" "find-dired.el" (21981 37426 535399 10687;;;### (autoloads nil "find-dired" "find-dired.el" (22011 58553 489858
10688;;;;;; 97000)) 10688;;;;;; 469000))
10689;;; Generated autoloads from find-dired.el 10689;;; Generated autoloads from find-dired.el
10690 10690
10691(autoload 'find-dired "find-dired" "\ 10691(autoload 'find-dired "find-dired" "\
@@ -10725,8 +10725,8 @@ use in place of \"-ls\" as the final argument.
10725 10725
10726;;;*** 10726;;;***
10727 10727
10728;;;### (autoloads nil "find-file" "find-file.el" (21670 32330 885624 10728;;;### (autoloads nil "find-file" "find-file.el" (22011 58553 489858
10729;;;;;; 725000)) 10729;;;;;; 469000))
10730;;; Generated autoloads from find-file.el 10730;;; Generated autoloads from find-file.el
10731 10731
10732(defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\ 10732(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.
10816 10816
10817;;;*** 10817;;;***
10818 10818
10819;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (21978 10819;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (22011
10820;;;;;; 61237 486488 269000)) 10820;;;;;; 58553 409858 469000))
10821;;; Generated autoloads from emacs-lisp/find-func.el 10821;;; Generated autoloads from emacs-lisp/find-func.el
10822 10822
10823(autoload 'find-library "find-func" "\ 10823(autoload 'find-library "find-func" "\
@@ -11008,7 +11008,7 @@ Change the filter on a `find-lisp-find-dired' buffer to REGEXP.
11008 11008
11009;;;*** 11009;;;***
11010 11010
11011;;;### (autoloads nil "finder" "finder.el" (21980 16567 573544 893000)) 11011;;;### (autoloads nil "finder" "finder.el" (21998 46517 46024 649000))
11012;;; Generated autoloads from finder.el 11012;;; Generated autoloads from finder.el
11013(push (purecopy '(finder 1 0)) package--builtin-versions) 11013(push (purecopy '(finder 1 0)) package--builtin-versions)
11014 11014
@@ -11068,8 +11068,8 @@ to get the effect of a C-q.
11068 11068
11069;;;*** 11069;;;***
11070 11070
11071;;;### (autoloads nil "flymake" "progmodes/flymake.el" (21980 16568 11071;;;### (autoloads nil "flymake" "progmodes/flymake.el" (22011 58553
11072;;;;;; 25544 893000)) 11072;;;;;; 901858 469000))
11073;;; Generated autoloads from progmodes/flymake.el 11073;;; Generated autoloads from progmodes/flymake.el
11074(push (purecopy '(flymake 0 3)) package--builtin-versions) 11074(push (purecopy '(flymake 0 3)) package--builtin-versions)
11075 11075
@@ -11170,14 +11170,14 @@ Flyspell whole buffer.
11170 11170
11171;;;*** 11171;;;***
11172 11172
11173;;;### (autoloads nil "foldout" "foldout.el" (21824 11953 672190 11173;;;### (autoloads nil "foldout" "foldout.el" (22011 58553 513858
11174;;;;;; 35000)) 11174;;;;;; 469000))
11175;;; Generated autoloads from foldout.el 11175;;; Generated autoloads from foldout.el
11176(push (purecopy '(foldout 1 10)) package--builtin-versions) 11176(push (purecopy '(foldout 1 10)) package--builtin-versions)
11177 11177
11178;;;*** 11178;;;***
11179 11179
11180;;;### (autoloads nil "follow" "follow.el" (21976 19509 932430 241000)) 11180;;;### (autoloads nil "follow" "follow.el" (22023 49716 552634 164000))
11181;;; Generated autoloads from follow.el 11181;;; Generated autoloads from follow.el
11182 11182
11183(autoload 'turn-on-follow-mode "follow" "\ 11183(autoload 'turn-on-follow-mode "follow" "\
@@ -11227,6 +11227,32 @@ Keys specific to Follow mode:
11227 11227
11228\(fn &optional ARG)" t nil) 11228\(fn &optional ARG)" t nil)
11229 11229
11230(autoload 'follow-scroll-up "follow" "\
11231Scroll text in a Follow mode window chain up.
11232
11233If called with no ARG, the `next-screen-context-lines' last lines of
11234the bottom window in the chain will be visible in the top window.
11235
11236If called with an argument, scroll ARG lines up.
11237Negative ARG means scroll downward.
11238
11239Works like `scroll-up' when not in Follow mode.
11240
11241\(fn &optional ARG)" t nil)
11242
11243(autoload 'follow-scroll-down "follow" "\
11244Scroll text in a Follow mode window chain down.
11245
11246If called with no ARG, the `next-screen-context-lines' top lines of
11247the top window in the chain will be visible in the bottom window.
11248
11249If called with an argument, scroll ARG lines down.
11250Negative ARG means scroll upward.
11251
11252Works like `scroll-down' when not in Follow mode.
11253
11254\(fn &optional ARG)" t nil)
11255
11230(autoload 'follow-delete-other-windows-and-split "follow" "\ 11256(autoload 'follow-delete-other-windows-and-split "follow" "\
11231Create two side by side windows and enter Follow mode. 11257Create two side by side windows and enter Follow mode.
11232 11258
@@ -11245,8 +11271,8 @@ selected if the original window is the first one in the frame.
11245 11271
11246;;;*** 11272;;;***
11247 11273
11248;;;### (autoloads nil "footnote" "mail/footnote.el" (21814 9129 310503 11274;;;### (autoloads nil "footnote" "mail/footnote.el" (22026 25907
11249;;;;;; 742000)) 11275;;;;;; 595502 692000))
11250;;; Generated autoloads from mail/footnote.el 11276;;; Generated autoloads from mail/footnote.el
11251(push (purecopy '(footnote 0 19)) package--builtin-versions) 11277(push (purecopy '(footnote 0 19)) package--builtin-versions)
11252 11278
@@ -11301,8 +11327,8 @@ Visit a file in Forms mode in other window.
11301 11327
11302;;;*** 11328;;;***
11303 11329
11304;;;### (autoloads nil "fortran" "progmodes/fortran.el" (21953 58033 11330;;;### (autoloads nil "fortran" "progmodes/fortran.el" (22011 58553
11305;;;;;; 403058 929000)) 11331;;;;;; 901858 469000))
11306;;; Generated autoloads from progmodes/fortran.el 11332;;; Generated autoloads from progmodes/fortran.el
11307 11333
11308(autoload 'fortran-mode "fortran" "\ 11334(autoload 'fortran-mode "fortran" "\
@@ -11334,15 +11360,15 @@ Variables controlling indentation style and extra features:
11334 Amount of extra indentation for text in full-line comments (default 0). 11360 Amount of extra indentation for text in full-line comments (default 0).
11335`fortran-comment-indent-style' 11361`fortran-comment-indent-style'
11336 How to indent the text in full-line comments. Allowed values are: 11362 How to indent the text in full-line comments. Allowed values are:
11337 nil don't change the indentation 11363 nil don't change the indentation
11338 fixed indent to `fortran-comment-line-extra-indent' beyond the 11364 `fixed' indent to `fortran-comment-line-extra-indent' beyond the
11339 value of either 11365 value of either
11340 `fortran-minimum-statement-indent-fixed' (fixed format) or 11366 `fortran-minimum-statement-indent-fixed' (fixed format) or
11341 `fortran-minimum-statement-indent-tab' (TAB format), 11367 `fortran-minimum-statement-indent-tab' (TAB format),
11342 depending on the continuation format in use. 11368 depending on the continuation format in use.
11343 relative indent to `fortran-comment-line-extra-indent' beyond the 11369 `relative' indent to `fortran-comment-line-extra-indent' beyond the
11344 indentation for a line of code. 11370 indentation for a line of code.
11345 (default 'fixed) 11371 (default `fixed')
11346`fortran-comment-indent-char' 11372`fortran-comment-indent-char'
11347 Single-character string to be inserted instead of space for 11373 Single-character string to be inserted instead of space for
11348 full-line comment indentation (default \" \"). 11374 full-line comment indentation (default \" \").
@@ -11622,8 +11648,8 @@ Interactively, reads the register using `register-read-with-preview'.
11622 11648
11623;;;*** 11649;;;***
11624 11650
11625;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (21980 16568 11651;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (22029 2088
11626;;;;;; 25544 893000)) 11652;;;;;; 514685 339000))
11627;;; Generated autoloads from progmodes/gdb-mi.el 11653;;; Generated autoloads from progmodes/gdb-mi.el
11628 11654
11629(defvar gdb-enable-debug nil "\ 11655(defvar gdb-enable-debug nil "\
@@ -11781,8 +11807,8 @@ regular expression that can be used as an element of
11781 11807
11782;;;*** 11808;;;***
11783 11809
11784;;;### (autoloads nil "glasses" "progmodes/glasses.el" (21670 32331 11810;;;### (autoloads nil "glasses" "progmodes/glasses.el" (22011 58553
11785;;;;;; 385639 720000)) 11811;;;;;; 901858 469000))
11786;;; Generated autoloads from progmodes/glasses.el 11812;;; Generated autoloads from progmodes/glasses.el
11787 11813
11788(autoload 'glasses-mode "glasses" "\ 11814(autoload 'glasses-mode "glasses" "\
@@ -11796,8 +11822,8 @@ add virtual separators (like underscores) at places they belong to.
11796 11822
11797;;;*** 11823;;;***
11798 11824
11799;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21670 32330 11825;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21993 28596
11800;;;;;; 885624 725000)) 11826;;;;;; 86597 473000))
11801;;; Generated autoloads from gnus/gmm-utils.el 11827;;; Generated autoloads from gnus/gmm-utils.el
11802 11828
11803(autoload 'gmm-regexp-concat "gmm-utils" "\ 11829(autoload 'gmm-regexp-concat "gmm-utils" "\
@@ -11851,7 +11877,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST.
11851 11877
11852;;;*** 11878;;;***
11853 11879
11854;;;### (autoloads nil "gnus" "gnus/gnus.el" (21980 16567 677544 893000)) 11880;;;### (autoloads nil "gnus" "gnus/gnus.el" (22011 58553 561858 469000))
11855;;; Generated autoloads from gnus/gnus.el 11881;;; Generated autoloads from gnus/gnus.el
11856(push (purecopy '(gnus 5 13)) package--builtin-versions) 11882(push (purecopy '(gnus 5 13)) package--builtin-versions)
11857(when (fboundp 'custom-autoload) 11883(when (fboundp 'custom-autoload)
@@ -11992,8 +12018,8 @@ CLEAN is obsolete and ignored.
11992 12018
11993;;;*** 12019;;;***
11994 12020
11995;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (21989 31537 12021;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (22011 58553
11996;;;;;; 811825 721000)) 12022;;;;;; 521858 469000))
11997;;; Generated autoloads from gnus/gnus-art.el 12023;;; Generated autoloads from gnus/gnus-art.el
11998 12024
11999(autoload 'gnus-article-prepare-display "gnus-art" "\ 12025(autoload 'gnus-article-prepare-display "gnus-art" "\
@@ -12003,8 +12029,8 @@ Make the current buffer look like a nice article.
12003 12029
12004;;;*** 12030;;;***
12005 12031
12006;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (21670 12032;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (22011
12007;;;;;; 32330 885624 725000)) 12033;;;;;; 58553 521858 469000))
12008;;; Generated autoloads from gnus/gnus-bookmark.el 12034;;; Generated autoloads from gnus/gnus-bookmark.el
12009 12035
12010(autoload 'gnus-bookmark-set "gnus-bookmark" "\ 12036(autoload 'gnus-bookmark-set "gnus-bookmark" "\
@@ -12227,8 +12253,8 @@ If gravatars are already displayed, remove them.
12227 12253
12228;;;*** 12254;;;***
12229 12255
12230;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (21989 31537 12256;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (22011 58553
12231;;;;;; 823825 721000)) 12257;;;;;; 529858 469000))
12232;;; Generated autoloads from gnus/gnus-group.el 12258;;; Generated autoloads from gnus/gnus-group.el
12233 12259
12234(autoload 'gnus-fetch-group "gnus-group" "\ 12260(autoload 'gnus-fetch-group "gnus-group" "\
@@ -12299,8 +12325,8 @@ Minor mode for providing mailing-list commands.
12299 12325
12300;;;*** 12326;;;***
12301 12327
12302;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (21670 32330 12328;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (22011 58553
12303;;;;;; 885624 725000)) 12329;;;;;; 529858 469000))
12304;;; Generated autoloads from gnus/gnus-mlspl.el 12330;;; Generated autoloads from gnus/gnus-mlspl.el
12305 12331
12306(autoload 'gnus-group-split-setup "gnus-mlspl" "\ 12332(autoload 'gnus-group-split-setup "gnus-mlspl" "\
@@ -12536,8 +12562,8 @@ Add NUM into sorted LIST by side effect.
12536 12562
12537;;;*** 12563;;;***
12538 12564
12539;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (21981 12565;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (22011
12540;;;;;; 37426 571399 97000)) 12566;;;;;; 58553 541858 469000))
12541;;; Generated autoloads from gnus/gnus-registry.el 12567;;; Generated autoloads from gnus/gnus-registry.el
12542 12568
12543(autoload 'gnus-registry-initialize "gnus-registry" "\ 12569(autoload 'gnus-registry-initialize "gnus-registry" "\
@@ -12552,8 +12578,8 @@ Install the registry hooks.
12552 12578
12553;;;*** 12579;;;***
12554 12580
12555;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (21980 16567 12581;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (22011 58553
12556;;;;;; 617544 893000)) 12582;;;;;; 541858 469000))
12557;;; Generated autoloads from gnus/gnus-sieve.el 12583;;; Generated autoloads from gnus/gnus-sieve.el
12558 12584
12559(autoload 'gnus-sieve-update "gnus-sieve" "\ 12585(autoload 'gnus-sieve-update "gnus-sieve" "\
@@ -12591,8 +12617,8 @@ Update the format specification near point.
12591 12617
12592;;;*** 12618;;;***
12593 12619
12594;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21981 37426 12620;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21993 28596
12595;;;;;; 575399 97000)) 12621;;;;;; 102597 473000))
12596;;; Generated autoloads from gnus/gnus-start.el 12622;;; Generated autoloads from gnus/gnus-start.el
12597 12623
12598(autoload 'gnus-declare-backend "gnus-start" "\ 12624(autoload 'gnus-declare-backend "gnus-start" "\
@@ -12602,8 +12628,8 @@ Declare back end NAME with ABILITIES as a Gnus back end.
12602 12628
12603;;;*** 12629;;;***
12604 12630
12605;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (21989 31537 12631;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (21993 28596
12606;;;;;; 843825 721000)) 12632;;;;;; 110597 473000))
12607;;; Generated autoloads from gnus/gnus-sum.el 12633;;; Generated autoloads from gnus/gnus-sum.el
12608 12634
12609(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ 12635(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\
@@ -12641,8 +12667,8 @@ Add the window configuration CONF to `gnus-buffer-configuration'.
12641 12667
12642;;;*** 12668;;;***
12643 12669
12644;;;### (autoloads nil "gnutls" "net/gnutls.el" (21978 61237 642488 12670;;;### (autoloads nil "gnutls" "net/gnutls.el" (22011 58553 761858
12645;;;;;; 269000)) 12671;;;;;; 469000))
12646;;; Generated autoloads from net/gnutls.el 12672;;; Generated autoloads from net/gnutls.el
12647 12673
12648(defvar gnutls-min-prime-bits 256 "\ 12674(defvar gnutls-min-prime-bits 256 "\
@@ -12658,8 +12684,8 @@ A value of nil says to use the default GnuTLS value.")
12658 12684
12659;;;*** 12685;;;***
12660 12686
12661;;;### (autoloads nil "gomoku" "play/gomoku.el" (21980 16567 969544 12687;;;### (autoloads nil "gomoku" "play/gomoku.el" (21998 46517 190024
12662;;;;;; 893000)) 12688;;;;;; 649000))
12663;;; Generated autoloads from play/gomoku.el 12689;;; Generated autoloads from play/gomoku.el
12664 12690
12665(autoload 'gomoku "gomoku" "\ 12691(autoload 'gomoku "gomoku" "\
@@ -12744,8 +12770,8 @@ Retrieve MAIL-ADDRESS gravatar and returns it.
12744 12770
12745;;;*** 12771;;;***
12746 12772
12747;;;### (autoloads nil "grep" "progmodes/grep.el" (21903 51634 290370 12773;;;### (autoloads nil "grep" "progmodes/grep.el" (22027 46774 676310
12748;;;;;; 580000)) 12774;;;;;; 591000))
12749;;; Generated autoloads from progmodes/grep.el 12775;;; Generated autoloads from progmodes/grep.el
12750 12776
12751(defvar grep-window-height nil "\ 12777(defvar grep-window-height nil "\
@@ -12922,8 +12948,8 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful.
12922 12948
12923;;;*** 12949;;;***
12924 12950
12925;;;### (autoloads nil "gud" "progmodes/gud.el" (21769 20661 366048 12951;;;### (autoloads nil "gud" "progmodes/gud.el" (22018 31799 115263
12926;;;;;; 601000)) 12952;;;;;; 120000))
12927;;; Generated autoloads from progmodes/gud.el 12953;;; Generated autoloads from progmodes/gud.el
12928 12954
12929(autoload 'gud-gdb "gud" "\ 12955(autoload 'gud-gdb "gud" "\
@@ -13018,8 +13044,8 @@ it if ARG is omitted or nil.
13018 13044
13019;;;*** 13045;;;***
13020 13046
13021;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (21976 19509 880430 13047;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (22011 58553 409858
13022;;;;;; 241000)) 13048;;;;;; 469000))
13023;;; Generated autoloads from emacs-lisp/gv.el 13049;;; Generated autoloads from emacs-lisp/gv.el
13024 13050
13025(autoload 'gv-get "gv" "\ 13051(autoload 'gv-get "gv" "\
@@ -13078,7 +13104,7 @@ return a Lisp form that does the assignment.
13078The first arg in ARGLIST (the one that receives VAL) receives an expression 13104The first arg in ARGLIST (the one that receives VAL) receives an expression
13079which can do arbitrary things, whereas the other arguments are all guaranteed 13105which can do arbitrary things, whereas the other arguments are all guaranteed
13080to be pure and copyable. Example use: 13106to be pure and copyable. Example use:
13081 (gv-define-setter aref (v a i) `(aset ,a ,i ,v)) 13107 (gv-define-setter aref (v a i) \\=`(aset ,a ,i ,v))
13082 13108
13083\(fn NAME ARGLIST &rest BODY)" nil t) 13109\(fn NAME ARGLIST &rest BODY)" nil t)
13084 13110
@@ -13121,8 +13147,8 @@ binding mode.
13121 13147
13122;;;*** 13148;;;***
13123 13149
13124;;;### (autoloads nil "handwrite" "play/handwrite.el" (21852 24381 13150;;;### (autoloads nil "handwrite" "play/handwrite.el" (22026 25907
13125;;;;;; 887244 288000)) 13151;;;;;; 631502 692000))
13126;;; Generated autoloads from play/handwrite.el 13152;;; Generated autoloads from play/handwrite.el
13127 13153
13128(autoload 'handwrite "handwrite" "\ 13154(autoload 'handwrite "handwrite" "\
@@ -13338,8 +13364,8 @@ different regions. With numeric argument ARG, behaves like
13338 13364
13339;;;*** 13365;;;***
13340 13366
13341;;;### (autoloads nil "help-fns" "help-fns.el" (21985 34484 226705 13367;;;### (autoloads nil "help-fns" "help-fns.el" (22011 58553 601858
13342;;;;;; 925000)) 13368;;;;;; 469000))
13343;;; Generated autoloads from help-fns.el 13369;;; Generated autoloads from help-fns.el
13344 13370
13345(autoload 'describe-function "help-fns" "\ 13371(autoload 'describe-function "help-fns" "\
@@ -13650,7 +13676,8 @@ This discards the buffer's undo information.
13650 13676
13651;;;*** 13677;;;***
13652 13678
13653;;;### (autoloads nil "hi-lock" "hi-lock.el" (21741 1161 438890 423000)) 13679;;;### (autoloads nil "hi-lock" "hi-lock.el" (21993 28596 134597
13680;;;;;; 473000))
13654;;; Generated autoloads from hi-lock.el 13681;;; Generated autoloads from hi-lock.el
13655 13682
13656(autoload 'hi-lock-mode "hi-lock" "\ 13683(autoload 'hi-lock-mode "hi-lock" "\
@@ -13865,8 +13892,8 @@ Several variables affect how the hiding is done:
13865 13892
13866;;;*** 13893;;;***
13867 13894
13868;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (21670 32331 13895;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (22026 25907
13869;;;;;; 385639 720000)) 13896;;;;;; 635502 692000))
13870;;; Generated autoloads from progmodes/hideshow.el 13897;;; Generated autoloads from progmodes/hideshow.el
13871 13898
13872(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))) "\ 13899(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
14143 14170
14144;;;*** 14171;;;***
14145 14172
14146;;;### (autoloads nil "holidays" "calendar/holidays.el" (21980 16567 14173;;;### (autoloads nil "holidays" "calendar/holidays.el" (22026 25907
14147;;;;;; 417544 893000)) 14174;;;;;; 551502 692000))
14148;;; Generated autoloads from calendar/holidays.el 14175;;; Generated autoloads from calendar/holidays.el
14149 14176
14150(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 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving"))) "\ 14177(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 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving"))) "\
@@ -14203,8 +14230,8 @@ See the documentation for `calendar-holidays' for details.")
14203 14230
14204(put 'holiday-islamic-holidays 'risky-local-variable t) 14231(put 'holiday-islamic-holidays 'risky-local-variable t)
14205 14232
14206(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á"))))) "\ 14233(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á"))))) "\
14207Bahá'í holidays. 14234Bahá’í holidays.
14208See the documentation for `calendar-holidays' for details.") 14235See the documentation for `calendar-holidays' for details.")
14209 14236
14210(custom-autoload 'holiday-bahai-holidays "holidays" t) 14237(custom-autoload 'holiday-bahai-holidays "holidays" t)
@@ -14265,8 +14292,8 @@ Convert HTML to plain text in the current buffer.
14265 14292
14266;;;*** 14293;;;***
14267 14294
14268;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (21980 16567 14295;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (22026 25907
14269;;;;;; 701544 893000)) 14296;;;;;; 591502 692000))
14270;;; Generated autoloads from htmlfontify.el 14297;;; Generated autoloads from htmlfontify.el
14271(push (purecopy '(htmlfontify 0 21)) package--builtin-versions) 14298(push (purecopy '(htmlfontify 0 21)) package--builtin-versions)
14272 14299
@@ -14402,8 +14429,8 @@ bound to the current value of the filter.
14402 14429
14403;;;*** 14430;;;***
14404 14431
14405;;;### (autoloads nil "ibuffer" "ibuffer.el" (21980 16640 605544 14432;;;### (autoloads nil "ibuffer" "ibuffer.el" (22026 25907 595502
14406;;;;;; 893000)) 14433;;;;;; 692000))
14407;;; Generated autoloads from ibuffer.el 14434;;; Generated autoloads from ibuffer.el
14408 14435
14409(autoload 'ibuffer-list-buffers "ibuffer" "\ 14436(autoload 'ibuffer-list-buffers "ibuffer" "\
@@ -14422,7 +14449,7 @@ buffers which are visiting a file.
14422 14449
14423(autoload 'ibuffer "ibuffer" "\ 14450(autoload 'ibuffer "ibuffer" "\
14424Begin using Ibuffer to edit a list of buffers. 14451Begin using Ibuffer to edit a list of buffers.
14425Type ‘h’ after entering ibuffer for more information. 14452Type `h' after entering ibuffer for more information.
14426 14453
14427All arguments are optional. 14454All arguments are optional.
14428OTHER-WINDOW-P says to use another window. 14455OTHER-WINDOW-P says to use another window.
@@ -14442,8 +14469,8 @@ FORMATS is the value to use for `ibuffer-formats'.
14442 14469
14443;;;*** 14470;;;***
14444 14471
14445;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (21980 14472;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (22026
14446;;;;;; 16567 421544 893000)) 14473;;;;;; 25907 551502 692000))
14447;;; Generated autoloads from calendar/icalendar.el 14474;;; Generated autoloads from calendar/icalendar.el
14448(push (purecopy '(icalendar 0 19)) package--builtin-versions) 14475(push (purecopy '(icalendar 0 19)) package--builtin-versions)
14449 14476
@@ -14577,8 +14604,8 @@ with no args, if that value is non-nil.
14577 14604
14578;;;*** 14605;;;***
14579 14606
14580;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (21980 14607;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (22011
14581;;;;;; 16568 33544 893000)) 14608;;;;;; 58553 905858 469000))
14582;;; Generated autoloads from progmodes/idlw-shell.el 14609;;; Generated autoloads from progmodes/idlw-shell.el
14583 14610
14584(autoload 'idlwave-shell "idlw-shell" "\ 14611(autoload 'idlwave-shell "idlw-shell" "\
@@ -14603,8 +14630,8 @@ See also the variable `idlwave-shell-prompt-pattern'.
14603 14630
14604;;;*** 14631;;;***
14605 14632
14606;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (21988 10682 14633;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (22011 58553
14607;;;;;; 41624 461000)) 14634;;;;;; 909858 469000))
14608;;; Generated autoloads from progmodes/idlwave.el 14635;;; Generated autoloads from progmodes/idlwave.el
14609(push (purecopy '(idlwave 6 1 22)) package--builtin-versions) 14636(push (purecopy '(idlwave 6 1 22)) package--builtin-versions)
14610 14637
@@ -14733,7 +14760,7 @@ The main features of this mode are
14733 14760
14734;;;*** 14761;;;***
14735 14762
14736;;;### (autoloads nil "ido" "ido.el" (21981 37426 619399 97000)) 14763;;;### (autoloads nil "ido" "ido.el" (22011 58553 641858 469000))
14737;;; Generated autoloads from ido.el 14764;;; Generated autoloads from ido.el
14738 14765
14739(defvar ido-mode nil "\ 14766(defvar ido-mode nil "\
@@ -15007,7 +15034,7 @@ See `inferior-emacs-lisp-mode' for details.
15007 15034
15008;;;*** 15035;;;***
15009 15036
15010;;;### (autoloads nil "iimage" "iimage.el" (21670 32331 385639 720000)) 15037;;;### (autoloads nil "iimage" "iimage.el" (21990 52406 604500 385000))
15011;;; Generated autoloads from iimage.el 15038;;; Generated autoloads from iimage.el
15012 15039
15013(define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") 15040(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'.
15023 15050
15024;;;*** 15051;;;***
15025 15052
15026;;;### (autoloads nil "image" "image.el" (21974 64192 580009 993000)) 15053;;;### (autoloads nil "image" "image.el" (22011 58553 641858 469000))
15027;;; Generated autoloads from image.el 15054;;; Generated autoloads from image.el
15028 15055
15029(autoload 'image-type-from-data "image" "\ 15056(autoload 'image-type-from-data "image" "\
@@ -15216,8 +15243,8 @@ If Emacs is compiled without ImageMagick support, this does nothing.
15216 15243
15217;;;*** 15244;;;***
15218 15245
15219;;;### (autoloads nil "image-dired" "image-dired.el" (21670 32331 15246;;;### (autoloads nil "image-dired" "image-dired.el" (22011 58553
15220;;;;;; 385639 720000)) 15247;;;;;; 641858 469000))
15221;;; Generated autoloads from image-dired.el 15248;;; Generated autoloads from image-dired.el
15222(push (purecopy '(image-dired 0 4 11)) package--builtin-versions) 15249(push (purecopy '(image-dired 0 4 11)) package--builtin-versions)
15223 15250
@@ -15634,8 +15661,8 @@ Convert old Emacs Devanagari characters to UCS.
15634 15661
15635;;;*** 15662;;;***
15636 15663
15637;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (21887 31404 15664;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (22011 58553
15638;;;;;; 272735 656000)) 15665;;;;;; 909858 469000))
15639;;; Generated autoloads from progmodes/inf-lisp.el 15666;;; Generated autoloads from progmodes/inf-lisp.el
15640 15667
15641(autoload 'inferior-lisp "inf-lisp" "\ 15668(autoload 'inferior-lisp "inf-lisp" "\
@@ -15653,7 +15680,7 @@ of `inferior-lisp-program'). Runs the hooks from
15653 15680
15654;;;*** 15681;;;***
15655 15682
15656;;;### (autoloads nil "info" "info.el" (21985 34484 234705 925000)) 15683;;;### (autoloads nil "info" "info.el" (22011 58553 645858 469000))
15657;;; Generated autoloads from info.el 15684;;; Generated autoloads from info.el
15658 15685
15659(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 "info/")) suffixes))) (prune-directory-list dirs))) prefixes))) (dirs (if (member config-dir standard-info-dirs) (nconc standard-info-dirs (list config-dir)) (cons config-dir standard-info-dirs)))) (if (not (eq system-type 'windows-nt)) dirs (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (cond ((file-exists-p dir1) (append dirs (list dir1))) ((file-exists-p dir2) (append dirs (list dir2))) (t dirs))))) "\ 15686(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 "info/")) suffixes))) (prune-directory-list dirs))) prefixes))) (dirs (if (member config-dir standard-info-dirs) (nconc standard-info-dirs (list config-dir)) (cons config-dir standard-info-dirs)))) (if (not (eq system-type 'windows-nt)) dirs (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (cond ((file-exists-p dir1) (append dirs (list dir1))) ((file-exists-p dir2) (append dirs (list dir2))) (t dirs))))) "\
@@ -15865,8 +15892,8 @@ completion alternatives to currently visited manuals.
15865 15892
15866;;;*** 15893;;;***
15867 15894
15868;;;### (autoloads nil "info-look" "info-look.el" (21862 60209 738095 15895;;;### (autoloads nil "info-look" "info-look.el" (22011 58553 641858
15869;;;;;; 873000)) 15896;;;;;; 469000))
15870;;; Generated autoloads from info-look.el 15897;;; Generated autoloads from info-look.el
15871 15898
15872(autoload 'info-lookup-reset "info-look" "\ 15899(autoload 'info-lookup-reset "info-look" "\
@@ -16058,8 +16085,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\"
16058 16085
16059;;;*** 16086;;;***
16060 16087
16061;;;### (autoloads nil "inversion" "cedet/inversion.el" (21670 32330 16088;;;### (autoloads nil "inversion" "cedet/inversion.el" (21993 28595
16062;;;;;; 885624 725000)) 16089;;;;;; 998597 473000))
16063;;; Generated autoloads from cedet/inversion.el 16090;;; Generated autoloads from cedet/inversion.el
16064(push (purecopy '(inversion 1 3)) package--builtin-versions) 16091(push (purecopy '(inversion 1 3)) package--builtin-versions)
16065 16092
@@ -16071,8 +16098,8 @@ Only checks one based on which kind of Emacs is being run.
16071 16098
16072;;;*** 16099;;;***
16073 16100
16074;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (21670 16101;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (22003
16075;;;;;; 32331 385639 720000)) 16102;;;;;; 64432 624146 533000))
16076;;; Generated autoloads from international/isearch-x.el 16103;;; Generated autoloads from international/isearch-x.el
16077 16104
16078(autoload 'isearch-toggle-specified-input-method "isearch-x" "\ 16105(autoload 'isearch-toggle-specified-input-method "isearch-x" "\
@@ -16107,8 +16134,8 @@ accessed via isearchb.
16107 16134
16108;;;*** 16135;;;***
16109 16136
16110;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (21670 16137;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (22011
16111;;;;;; 32331 385639 720000)) 16138;;;;;; 58553 645858 469000))
16112;;; Generated autoloads from international/iso-cvt.el 16139;;; Generated autoloads from international/iso-cvt.el
16113 16140
16114(autoload 'iso-spanish "iso-cvt" "\ 16141(autoload 'iso-spanish "iso-cvt" "\
@@ -16206,8 +16233,8 @@ Add submenus to the File menu, to convert to and from various formats.
16206 16233
16207;;;*** 16234;;;***
16208 16235
16209;;;### (autoloads nil "ispell" "textmodes/ispell.el" (21988 10682 16236;;;### (autoloads nil "ispell" "textmodes/ispell.el" (22011 58554
16210;;;;;; 97624 461000)) 16237;;;;;; 45858 469000))
16211;;; Generated autoloads from textmodes/ispell.el 16238;;; Generated autoloads from textmodes/ispell.el
16212 16239
16213(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) 16240(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
16440 16467
16441;;;*** 16468;;;***
16442 16469
16443;;;### (autoloads nil "japan-util" "language/japan-util.el" (21670 16470;;;### (autoloads nil "japan-util" "language/japan-util.el" (22011
16444;;;;;; 32331 385639 720000)) 16471;;;;;; 58553 673858 469000))
16445;;; Generated autoloads from language/japan-util.el 16472;;; Generated autoloads from language/japan-util.el
16446 16473
16447(autoload 'setup-japanese-environment-internal "japan-util" "\ 16474(autoload 'setup-japanese-environment-internal "japan-util" "\
@@ -16454,9 +16481,9 @@ Convert argument to Katakana and return that.
16454The argument may be a character or string. The result has the same type. 16481The argument may be a character or string. The result has the same type.
16455The argument object is not altered--the value is a copy. 16482The argument object is not altered--the value is a copy.
16456Optional argument HANKAKU t means to convert to `hankaku' Katakana 16483Optional argument HANKAKU t means to convert to `hankaku' Katakana
16457 (`japanese-jisx0201-kana'), in which case return value 16484\(`japanese-jisx0201-kana'), in which case return value
16458 may be a string even if OBJ is a character if two Katakanas are 16485may be a string even if OBJ is a character if two Katakanas are
16459 necessary to represent OBJ. 16486necessary to represent OBJ.
16460 16487
16461\(fn OBJ &optional HANKAKU)" nil nil) 16488\(fn OBJ &optional HANKAKU)" nil nil)
16462 16489
@@ -16542,8 +16569,8 @@ by `jka-compr-installed'.
16542 16569
16543;;;*** 16570;;;***
16544 16571
16545;;;### (autoloads nil "js" "progmodes/js.el" (21976 19510 104430 16572;;;### (autoloads nil "js" "progmodes/js.el" (22026 25907 635502
16546;;;;;; 241000)) 16573;;;;;; 692000))
16547;;; Generated autoloads from progmodes/js.el 16574;;; Generated autoloads from progmodes/js.el
16548(push (purecopy '(js 9)) package--builtin-versions) 16575(push (purecopy '(js 9)) package--builtin-versions)
16549 16576
@@ -16557,7 +16584,7 @@ Major mode for editing JavaScript.
16557 16584
16558;;;*** 16585;;;***
16559 16586
16560;;;### (autoloads nil "json" "json.el" (21985 34484 234705 925000)) 16587;;;### (autoloads nil "json" "json.el" (21998 46517 78024 649000))
16561;;; Generated autoloads from json.el 16588;;; Generated autoloads from json.el
16562(push (purecopy '(json 1 4)) package--builtin-versions) 16589(push (purecopy '(json 1 4)) package--builtin-versions)
16563 16590
@@ -16664,7 +16691,7 @@ and the return value is the length of the conversion.
16664 16691
16665;;;*** 16692;;;***
16666 16693
16667;;;### (autoloads nil "kmacro" "kmacro.el" (21953 58033 303058 929000)) 16694;;;### (autoloads nil "kmacro" "kmacro.el" (21990 52406 604500 385000))
16668;;; Generated autoloads from kmacro.el 16695;;; Generated autoloads from kmacro.el
16669 (global-set-key "\C-x(" 'kmacro-start-macro) 16696 (global-set-key "\C-x(" 'kmacro-start-macro)
16670 (global-set-key "\C-x)" 'kmacro-end-macro) 16697 (global-set-key "\C-x)" 'kmacro-end-macro)
@@ -16862,7 +16889,7 @@ coding system names is determined from `latex-inputenc-coding-alist'.
16862;;;*** 16889;;;***
16863 16890
16864;;;### (autoloads nil "latin1-disp" "international/latin1-disp.el" 16891;;;### (autoloads nil "latin1-disp" "international/latin1-disp.el"
16865;;;;;; (21670 32331 385639 720000)) 16892;;;;;; (22011 58553 645858 469000))
16866;;; Generated autoloads from international/latin1-disp.el 16893;;; Generated autoloads from international/latin1-disp.el
16867 16894
16868(defvar latin1-display nil "\ 16895(defvar latin1-display nil "\
@@ -17004,8 +17031,8 @@ See `linum-mode' for more information on Linum mode.
17004 17031
17005;;;*** 17032;;;***
17006 17033
17007;;;### (autoloads nil "loadhist" "loadhist.el" (21964 28338 113695 17034;;;### (autoloads nil "loadhist" "loadhist.el" (22011 58553 673858
17008;;;;;; 749000)) 17035;;;;;; 469000))
17009;;; Generated autoloads from loadhist.el 17036;;; Generated autoloads from loadhist.el
17010 17037
17011(autoload 'unload-feature "loadhist" "\ 17038(autoload 'unload-feature "loadhist" "\
@@ -17088,8 +17115,8 @@ except that FILTER is not optional.
17088 17115
17089;;;*** 17116;;;***
17090 17117
17091;;;### (autoloads nil "log-edit" "vc/log-edit.el" (21942 1330 837986 17118;;;### (autoloads nil "log-edit" "vc/log-edit.el" (22011 58554 93858
17092;;;;;; 820000)) 17119;;;;;; 469000))
17093;;; Generated autoloads from vc/log-edit.el 17120;;; Generated autoloads from vc/log-edit.el
17094 17121
17095(autoload 'log-edit "log-edit" "\ 17122(autoload 'log-edit "log-edit" "\
@@ -17131,7 +17158,7 @@ Major mode for browsing CVS log output.
17131 17158
17132;;;*** 17159;;;***
17133 17160
17134;;;### (autoloads nil "lpr" "lpr.el" (21670 32331 385639 720000)) 17161;;;### (autoloads nil "lpr" "lpr.el" (22011 58553 673858 469000))
17135;;; Generated autoloads from lpr.el 17162;;; Generated autoloads from lpr.el
17136 17163
17137(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\ 17164(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\
@@ -17226,8 +17253,8 @@ for further customization of the printer command.
17226 17253
17227;;;*** 17254;;;***
17228 17255
17229;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21907 48688 729360 17256;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21993 28596 150597
17230;;;;;; 195000)) 17257;;;;;; 473000))
17231;;; Generated autoloads from ls-lisp.el 17258;;; Generated autoloads from ls-lisp.el
17232 17259
17233(defvar ls-lisp-support-shell-wildcards t "\ 17260(defvar ls-lisp-support-shell-wildcards t "\
@@ -17251,8 +17278,8 @@ This function is suitable for execution in an init file.
17251 17278
17252;;;*** 17279;;;***
17253 17280
17254;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (21670 32331 17281;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (22015 55603
17255;;;;;; 385639 720000)) 17282;;;;;; 805705 321000))
17256;;; Generated autoloads from progmodes/m4-mode.el 17283;;; Generated autoloads from progmodes/m4-mode.el
17257 17284
17258(autoload 'm4-mode "m4-mode" "\ 17285(autoload 'm4-mode "m4-mode" "\
@@ -17351,8 +17378,8 @@ and then select the region of un-tablified names and use
17351 17378
17352;;;*** 17379;;;***
17353 17380
17354;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (21670 32331 17381;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (22026 25907
17355;;;;;; 385639 720000)) 17382;;;;;; 599502 692000))
17356;;; Generated autoloads from mail/mail-extr.el 17383;;; Generated autoloads from mail/mail-extr.el
17357 17384
17358(autoload 'mail-extract-address-components "mail-extr" "\ 17385(autoload 'mail-extract-address-components "mail-extr" "\
@@ -17537,8 +17564,8 @@ double-quotes.
17537 17564
17538;;;*** 17565;;;***
17539 17566
17540;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21855 577 17567;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21993 28596
17541;;;;;; 57945 485000)) 17568;;;;;; 166597 473000))
17542;;; Generated autoloads from mail/mailalias.el 17569;;; Generated autoloads from mail/mailalias.el
17543 17570
17544(defvar mail-complete-style 'angles "\ 17571(defvar mail-complete-style 'angles "\
@@ -17591,8 +17618,8 @@ current header, calls `mail-complete-function' and passes prefix ARG if any.
17591 17618
17592;;;*** 17619;;;***
17593 17620
17594;;;### (autoloads nil "mailclient" "mail/mailclient.el" (21670 32331 17621;;;### (autoloads nil "mailclient" "mail/mailclient.el" (22011 58553
17595;;;;;; 385639 720000)) 17622;;;;;; 693858 469000))
17596;;; Generated autoloads from mail/mailclient.el 17623;;; Generated autoloads from mail/mailclient.el
17597 17624
17598(autoload 'mailclient-send-it "mailclient" "\ 17625(autoload 'mailclient-send-it "mailclient" "\
@@ -17604,8 +17631,8 @@ The mail client is taken to be the handler of mailto URLs.
17604 17631
17605;;;*** 17632;;;***
17606 17633
17607;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (21907 17634;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (22011
17608;;;;;; 48688 777360 195000)) 17635;;;;;; 58553 913858 469000))
17609;;; Generated autoloads from progmodes/make-mode.el 17636;;; Generated autoloads from progmodes/make-mode.el
17610 17637
17611(autoload 'makefile-mode "make-mode" "\ 17638(autoload 'makefile-mode "make-mode" "\
@@ -17734,7 +17761,7 @@ Previous contents of that buffer are killed first.
17734 17761
17735;;;*** 17762;;;***
17736 17763
17737;;;### (autoloads nil "man" "man.el" (21814 9129 320508 708000)) 17764;;;### (autoloads nil "man" "man.el" (22026 25907 603502 692000))
17738;;; Generated autoloads from man.el 17765;;; Generated autoloads from man.el
17739 17766
17740(defalias 'manual-entry 'man) 17767(defalias 'manual-entry 'man)
@@ -17790,8 +17817,8 @@ Default bookmark handler for Man buffers.
17790 17817
17791;;;*** 17818;;;***
17792 17819
17793;;;### (autoloads nil "map" "emacs-lisp/map.el" (21919 39857 593327 17820;;;### (autoloads nil "map" "emacs-lisp/map.el" (21996 4784 808983
17794;;;;;; 44000)) 17821;;;;;; 429000))
17795;;; Generated autoloads from emacs-lisp/map.el 17822;;; Generated autoloads from emacs-lisp/map.el
17796(push (purecopy '(map 1 0)) package--builtin-versions) 17823(push (purecopy '(map 1 0)) package--builtin-versions)
17797 17824
@@ -17854,8 +17881,8 @@ recursion depth in the minibuffer prompt. This is only useful if
17854 17881
17855;;;*** 17882;;;***
17856 17883
17857;;;### (autoloads nil "message" "gnus/message.el" (21989 31537 871825 17884;;;### (autoloads nil "message" "gnus/message.el" (22011 58553 581858
17858;;;;;; 721000)) 17885;;;;;; 469000))
17859;;; Generated autoloads from gnus/message.el 17886;;; Generated autoloads from gnus/message.el
17860 17887
17861(define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) 17888(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.
18081 18108
18082;;;*** 18109;;;***
18083 18110
18084;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (21895 57521 622301 18111;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (22011 58553 729858
18085;;;;;; 332000)) 18112;;;;;; 469000))
18086;;; Generated autoloads from mh-e/mh-comp.el 18113;;; Generated autoloads from mh-e/mh-comp.el
18087 18114
18088(autoload 'mh-smail "mh-comp" "\ 18115(autoload 'mh-smail "mh-comp" "\
@@ -18172,7 +18199,7 @@ delete the draft message.
18172 18199
18173;;;*** 18200;;;***
18174 18201
18175;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (21989 31537 923825 721000)) 18202;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (22011 58553 749858 469000))
18176;;; Generated autoloads from mh-e/mh-e.el 18203;;; Generated autoloads from mh-e/mh-e.el
18177(push (purecopy '(mh-e 8 6)) package--builtin-versions) 18204(push (purecopy '(mh-e 8 6)) package--builtin-versions)
18178 18205
@@ -18189,8 +18216,8 @@ Display version information about MH-E and the MH mail handling system.
18189 18216
18190;;;*** 18217;;;***
18191 18218
18192;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (21670 32331 18219;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (22011 58553
18193;;;;;; 385639 720000)) 18220;;;;;; 749858 469000))
18194;;; Generated autoloads from mh-e/mh-folder.el 18221;;; Generated autoloads from mh-e/mh-folder.el
18195 18222
18196(autoload 'mh-rmail "mh-folder" "\ 18223(autoload 'mh-rmail "mh-folder" "\
@@ -18531,8 +18558,8 @@ Insert file contents of URL using `mm-url-program'.
18531 18558
18532;;;*** 18559;;;***
18533 18560
18534;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (21989 31537 875825 18561;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (22010 37685 116774
18535;;;;;; 721000)) 18562;;;;;; 305000))
18536;;; Generated autoloads from gnus/mm-uu.el 18563;;; Generated autoloads from gnus/mm-uu.el
18537 18564
18538(autoload 'mm-uu-dissect "mm-uu" "\ 18565(autoload 'mm-uu-dissect "mm-uu" "\
@@ -18633,8 +18660,8 @@ body) or \"attachment\" (separate from the body).
18633 18660
18634;;;*** 18661;;;***
18635 18662
18636;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (21989 31537 18663;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (22011 58553
18637;;;;;; 763825 721000)) 18664;;;;;; 245858 469000))
18638;;; Generated autoloads from cedet/mode-local.el 18665;;; Generated autoloads from cedet/mode-local.el
18639 18666
18640(put 'define-overloadable-function 'doc-string-elt 3) 18667(put 'define-overloadable-function 'doc-string-elt 3)
@@ -18675,8 +18702,8 @@ followed by the first character of the construct.
18675 18702
18676;;;*** 18703;;;***
18677 18704
18678;;;### (autoloads nil "morse" "play/morse.el" (21980 16567 969544 18705;;;### (autoloads nil "morse" "play/morse.el" (22026 25907 631502
18679;;;;;; 893000)) 18706;;;;;; 692000))
18680;;; Generated autoloads from play/morse.el 18707;;; Generated autoloads from play/morse.el
18681 18708
18682(autoload 'morse-region "morse" "\ 18709(autoload 'morse-region "morse" "\
@@ -18701,8 +18728,8 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text.
18701 18728
18702;;;*** 18729;;;***
18703 18730
18704;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21906 58825 986640 18731;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21993 28596 194597
18705;;;;;; 200000)) 18732;;;;;; 473000))
18706;;; Generated autoloads from mouse-drag.el 18733;;; Generated autoloads from mouse-drag.el
18707 18734
18708(autoload 'mouse-drag-throw "mouse-drag" "\ 18735(autoload 'mouse-drag-throw "mouse-drag" "\
@@ -18725,7 +18752,7 @@ about which direction is natural. Perhaps it has to do with which
18725hemisphere you're in.) 18752hemisphere you're in.)
18726 18753
18727To test this function, evaluate: 18754To test this function, evaluate:
18728 (global-set-key [down-mouse-2] 'mouse-drag-throw) 18755 (global-set-key [down-mouse-2] \\='mouse-drag-throw)
18729 18756
18730\(fn START-EVENT)" t nil) 18757\(fn START-EVENT)" t nil)
18731 18758
@@ -18743,13 +18770,13 @@ Drag scrolling is identical to the \"hand\" option in MacPaint, or the
18743middle button in Tk text widgets. 18770middle button in Tk text widgets.
18744 18771
18745To test this function, evaluate: 18772To test this function, evaluate:
18746 (global-set-key [down-mouse-2] 'mouse-drag-drag) 18773 (global-set-key [down-mouse-2] \\='mouse-drag-drag)
18747 18774
18748\(fn START-EVENT)" t nil) 18775\(fn START-EVENT)" t nil)
18749 18776
18750;;;*** 18777;;;***
18751 18778
18752;;;### (autoloads nil "mpc" "mpc.el" (21980 16567 797544 893000)) 18779;;;### (autoloads nil "mpc" "mpc.el" (22002 43570 536887 749000))
18753;;; Generated autoloads from mpc.el 18780;;; Generated autoloads from mpc.el
18754 18781
18755(autoload 'mpc "mpc" "\ 18782(autoload 'mpc "mpc" "\
@@ -18769,7 +18796,7 @@ Multiplication puzzle with GNU Emacs.
18769 18796
18770;;;*** 18797;;;***
18771 18798
18772;;;### (autoloads nil "msb" "msb.el" (21978 61237 622488 269000)) 18799;;;### (autoloads nil "msb" "msb.el" (22011 58553 757858 469000))
18773;;; Generated autoloads from msb.el 18800;;; Generated autoloads from msb.el
18774 18801
18775(defvar msb-mode nil "\ 18802(defvar msb-mode nil "\
@@ -18794,8 +18821,8 @@ different buffer menu using the function `msb'.
18794 18821
18795;;;*** 18822;;;***
18796 18823
18797;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21978 18824;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21998
18798;;;;;; 61237 582488 269000)) 18825;;;;;; 46517 78024 649000))
18799;;; Generated autoloads from international/mule-diag.el 18826;;; Generated autoloads from international/mule-diag.el
18800 18827
18801(autoload 'list-character-sets "mule-diag" "\ 18828(autoload 'list-character-sets "mule-diag" "\
@@ -18927,8 +18954,8 @@ The default is 20. If LIMIT is negative, do not limit the listing.
18927 18954
18928;;;*** 18955;;;***
18929 18956
18930;;;### (autoloads nil "mule-util" "international/mule-util.el" (21931 18957;;;### (autoloads nil "mule-util" "international/mule-util.el" (22002
18931;;;;;; 31023 753164 572000)) 18958;;;;;; 43570 532887 749000))
18932;;; Generated autoloads from international/mule-util.el 18959;;; Generated autoloads from international/mule-util.el
18933 18960
18934(defsubst string-to-list (string) "\ 18961(defsubst string-to-list (string) "\
@@ -19087,8 +19114,8 @@ QUALITY can be:
19087 19114
19088;;;*** 19115;;;***
19089 19116
19090;;;### (autoloads nil "net-utils" "net/net-utils.el" (21826 50071 19117;;;### (autoloads nil "net-utils" "net/net-utils.el" (22011 58553
19091;;;;;; 80489 638000)) 19118;;;;;; 761858 469000))
19092;;; Generated autoloads from net/net-utils.el 19119;;; Generated autoloads from net/net-utils.el
19093 19120
19094(autoload 'ifconfig "net-utils" "\ 19121(autoload 'ifconfig "net-utils" "\
@@ -19292,8 +19319,8 @@ asynchronously, if possible.
19292 19319
19293;;;*** 19320;;;***
19294 19321
19295;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (21980 19322;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (22011
19296;;;;;; 16567 809544 893000)) 19323;;;;;; 58553 765858 469000))
19297;;; Generated autoloads from net/newst-backend.el 19324;;; Generated autoloads from net/newst-backend.el
19298 19325
19299(autoload 'newsticker-running-p "newst-backend" "\ 19326(autoload 'newsticker-running-p "newst-backend" "\
@@ -19325,8 +19352,8 @@ Start newsticker plainview.
19325 19352
19326;;;*** 19353;;;***
19327 19354
19328;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (21670 19355;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (22011
19329;;;;;; 32331 385639 720000)) 19356;;;;;; 58553 765858 469000))
19330;;; Generated autoloads from net/newst-reader.el 19357;;; Generated autoloads from net/newst-reader.el
19331 19358
19332(autoload 'newsticker-show-news "newst-reader" "\ 19359(autoload 'newsticker-show-news "newst-reader" "\
@@ -19357,8 +19384,8 @@ running already.
19357 19384
19358;;;*** 19385;;;***
19359 19386
19360;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21978 19387;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21998
19361;;;;;; 61237 654488 269000)) 19388;;;;;; 46517 110024 649000))
19362;;; Generated autoloads from net/newst-treeview.el 19389;;; Generated autoloads from net/newst-treeview.el
19363 19390
19364(autoload 'newsticker-treeview "newst-treeview" "\ 19391(autoload 'newsticker-treeview "newst-treeview" "\
@@ -19368,8 +19395,8 @@ Start newsticker treeview.
19368 19395
19369;;;*** 19396;;;***
19370 19397
19371;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21948 40114 262686 19398;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21990 52406 596500
19372;;;;;; 453000)) 19399;;;;;; 385000))
19373;;; Generated autoloads from gnus/nndiary.el 19400;;; Generated autoloads from gnus/nndiary.el
19374 19401
19375(autoload 'nndiary-generate-nov-databases "nndiary" "\ 19402(autoload 'nndiary-generate-nov-databases "nndiary" "\
@@ -19379,7 +19406,8 @@ Generate NOV databases in all nndiary directories.
19379 19406
19380;;;*** 19407;;;***
19381 19408
19382;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (21855 576 927958 586000)) 19409;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (22011 58553 585858
19410;;;;;; 469000))
19383;;; Generated autoloads from gnus/nndoc.el 19411;;; Generated autoloads from gnus/nndoc.el
19384 19412
19385(autoload 'nndoc-add-type "nndoc" "\ 19413(autoload 'nndoc-add-type "nndoc" "\
@@ -19462,9 +19490,9 @@ closing requests for requests that are used in matched pairs.
19462 19490
19463;;;*** 19491;;;***
19464 19492
19465;;;### (autoloads nil "ntlm" "net/ntlm.el" (21670 32331 385639 720000)) 19493;;;### (autoloads nil "ntlm" "net/ntlm.el" (21997 25649 666447 325000))
19466;;; Generated autoloads from net/ntlm.el 19494;;; Generated autoloads from net/ntlm.el
19467(push (purecopy '(ntlm 1 0)) package--builtin-versions) 19495(push (purecopy '(ntlm 2 0)) package--builtin-versions)
19468 19496
19469;;;*** 19497;;;***
19470 19498
@@ -19481,8 +19509,8 @@ Return nil if the face cannot display a glyph for N.
19481 19509
19482;;;*** 19510;;;***
19483 19511
19484;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (21670 32331 19512;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (22021 7991
19485;;;;;; 385639 720000)) 19513;;;;;; 61719 83000))
19486;;; Generated autoloads from nxml/nxml-mode.el 19514;;; Generated autoloads from nxml/nxml-mode.el
19487 19515
19488(autoload 'nxml-mode "nxml-mode" "\ 19516(autoload 'nxml-mode "nxml-mode" "\
@@ -19555,8 +19583,8 @@ the variable `nxml-enabled-unicode-blocks'.
19555 19583
19556;;;*** 19584;;;***
19557 19585
19558;;;### (autoloads nil "octave" "progmodes/octave.el" (21988 10682 19586;;;### (autoloads nil "octave" "progmodes/octave.el" (22027 46774
19559;;;;;; 41624 461000)) 19587;;;;;; 680310 591000))
19560;;; Generated autoloads from progmodes/octave.el 19588;;; Generated autoloads from progmodes/octave.el
19561 19589
19562(autoload 'octave-mode "octave" "\ 19590(autoload 'octave-mode "octave" "\
@@ -19629,7 +19657,7 @@ Coloring:
19629 19657
19630;;;*** 19658;;;***
19631 19659
19632;;;### (autoloads nil "org" "org/org.el" (21988 10682 25624 461000)) 19660;;;### (autoloads nil "org" "org/org.el" (22011 58553 849858 469000))
19633;;; Generated autoloads from org/org.el 19661;;; Generated autoloads from org/org.el
19634 19662
19635(autoload 'org-babel-do-load-languages "org" "\ 19663(autoload 'org-babel-do-load-languages "org" "\
@@ -19850,8 +19878,8 @@ Call the customize function with org as argument.
19850 19878
19851;;;*** 19879;;;***
19852 19880
19853;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (21988 10681 19881;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (22011 58553
19854;;;;;; 989624 461000)) 19882;;;;;; 805858 469000))
19855;;; Generated autoloads from org/org-agenda.el 19883;;; Generated autoloads from org/org-agenda.el
19856 19884
19857(autoload 'org-toggle-sticky-agenda "org-agenda" "\ 19885(autoload 'org-toggle-sticky-agenda "org-agenda" "\
@@ -20103,10 +20131,10 @@ calling the function returns nil. This function takes one
20103argument: an entry from `org-agenda-get-day-entries'. 20131argument: an entry from `org-agenda-get-day-entries'.
20104 20132
20105FILTER can also be an alist with the car of each cell being 20133FILTER can also be an alist with the car of each cell being
20106either 'headline or 'category. For example: 20134either `headline' or `category'. For example:
20107 20135
20108 '((headline \"IMPORTANT\") 20136 ((headline \"IMPORTANT\")
20109 (category \"Work\")) 20137 (category \"Work\"))
20110 20138
20111will only add headlines containing IMPORTANT or headlines 20139will only add headlines containing IMPORTANT or headlines
20112belonging to the \"Work\" category. 20140belonging to the \"Work\" category.
@@ -20124,8 +20152,8 @@ to override `appt-message-warning-time'.
20124 20152
20125;;;*** 20153;;;***
20126 20154
20127;;;### (autoloads nil "org-capture" "org/org-capture.el" (21988 10681 20155;;;### (autoloads nil "org-capture" "org/org-capture.el" (21993 28596
20128;;;;;; 989624 461000)) 20156;;;;;; 242597 473000))
20129;;; Generated autoloads from org/org-capture.el 20157;;; Generated autoloads from org/org-capture.el
20130 20158
20131(autoload 'org-capture-string "org-capture" "\ 20159(autoload 'org-capture-string "org-capture" "\
@@ -20167,8 +20195,8 @@ Set `org-capture-templates' to be similar to `org-remember-templates'.
20167 20195
20168;;;*** 20196;;;***
20169 20197
20170;;;### (autoloads nil "org-colview" "org/org-colview.el" (21948 40114 20198;;;### (autoloads nil "org-colview" "org/org-colview.el" (22011 58553
20171;;;;;; 334686 453000)) 20199;;;;;; 809858 469000))
20172;;; Generated autoloads from org/org-colview.el 20200;;; Generated autoloads from org/org-colview.el
20173 20201
20174(autoload 'org-columns-remove-overlays "org-colview" "\ 20202(autoload 'org-columns-remove-overlays "org-colview" "\
@@ -20271,8 +20299,8 @@ The Git version of org-mode.
20271 20299
20272;;;*** 20300;;;***
20273 20301
20274;;;### (autoloads nil "outline" "outline.el" (21981 37426 663399 20302;;;### (autoloads nil "outline" "outline.el" (21990 52406 672500
20275;;;;;; 97000)) 20303;;;;;; 385000))
20276;;; Generated autoloads from outline.el 20304;;; Generated autoloads from outline.el
20277(put 'outline-regexp 'safe-local-variable 'stringp) 20305(put 'outline-regexp 'safe-local-variable 'stringp)
20278(put 'outline-heading-end-regexp 'safe-local-variable 'stringp) 20306(put 'outline-heading-end-regexp 'safe-local-variable 'stringp)
@@ -20315,8 +20343,8 @@ See the command `outline-mode' for more information on this mode.
20315 20343
20316;;;*** 20344;;;***
20317 20345
20318;;;### (autoloads nil "package" "emacs-lisp/package.el" (21978 61237 20346;;;### (autoloads nil "package" "emacs-lisp/package.el" (22000 31493
20319;;;;;; 494488 269000)) 20347;;;;;; 736082 901000))
20320;;; Generated autoloads from emacs-lisp/package.el 20348;;; Generated autoloads from emacs-lisp/package.el
20321(push (purecopy '(package 1 0 1)) package--builtin-versions) 20349(push (purecopy '(package 1 0 1)) package--builtin-versions)
20322 20350
@@ -20337,6 +20365,9 @@ The variable `package-load-list' controls which packages to load.
20337If optional arg NO-ACTIVATE is non-nil, don't activate packages. 20365If optional arg NO-ACTIVATE is non-nil, don't activate packages.
20338If `user-init-file' does not mention `(package-initialize)', add 20366If `user-init-file' does not mention `(package-initialize)', add
20339it to the file. 20367it to the file.
20368If called as part of loading `user-init-file', set
20369`package-enable-at-startup' to nil, to prevent accidentally
20370loading packages twice.
20340 20371
20341\(fn &optional NO-ACTIVATE)" t nil) 20372\(fn &optional NO-ACTIVATE)" t nil)
20342 20373
@@ -20540,8 +20571,8 @@ Check if KEY is in the cache.
20540 20571
20541;;;*** 20572;;;***
20542 20573
20543;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (21980 16567 20574;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (22026 25907
20544;;;;;; 509544 893000)) 20575;;;;;; 583502 692000))
20545;;; Generated autoloads from emacs-lisp/pcase.el 20576;;; Generated autoloads from emacs-lisp/pcase.el
20546 20577
20547(autoload 'pcase "pcase" "\ 20578(autoload 'pcase "pcase" "\
@@ -20642,8 +20673,8 @@ to this macro.
20642 20673
20643;;;*** 20674;;;***
20644 20675
20645;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21980 16567 953544 20676;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21998 46517 178024
20646;;;;;; 893000)) 20677;;;;;; 649000))
20647;;; Generated autoloads from pcmpl-cvs.el 20678;;; Generated autoloads from pcmpl-cvs.el
20648 20679
20649(autoload 'pcomplete/cvs "pcmpl-cvs" "\ 20680(autoload 'pcomplete/cvs "pcmpl-cvs" "\
@@ -20936,8 +20967,8 @@ Global menu used by PCL-CVS.")
20936 20967
20937;;;*** 20968;;;***
20938 20969
20939;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (21887 20970;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (22011
20940;;;;;; 19055 813447 760000)) 20971;;;;;; 58553 921858 469000))
20941;;; Generated autoloads from progmodes/perl-mode.el 20972;;; Generated autoloads from progmodes/perl-mode.el
20942(put 'perl-indent-level 'safe-local-variable 'integerp) 20973(put 'perl-indent-level 'safe-local-variable 'integerp)
20943(put 'perl-continued-statement-offset 'safe-local-variable 'integerp) 20974(put 'perl-continued-statement-offset 'safe-local-variable 'integerp)
@@ -21110,8 +21141,8 @@ Major mode for editing PLSTORE files.
21110 21141
21111;;;*** 21142;;;***
21112 21143
21113;;;### (autoloads nil "po" "textmodes/po.el" (21670 32331 885635 21144;;;### (autoloads nil "po" "textmodes/po.el" (22026 25907 651502
21114;;;;;; 586000)) 21145;;;;;; 692000))
21115;;; Generated autoloads from textmodes/po.el 21146;;; Generated autoloads from textmodes/po.el
21116 21147
21117(autoload 'po-find-file-coding-system "po" "\ 21148(autoload 'po-find-file-coding-system "po" "\
@@ -21200,8 +21231,8 @@ Ignores leading comment characters.
21200 21231
21201;;;*** 21232;;;***
21202 21233
21203;;;### (autoloads nil "printing" "printing.el" (21981 37426 679399 21234;;;### (autoloads nil "printing" "printing.el" (21990 52406 680500
21204;;;;;; 97000)) 21235;;;;;; 385000))
21205;;; Generated autoloads from printing.el 21236;;; Generated autoloads from printing.el
21206(push (purecopy '(printing 6 9 3)) package--builtin-versions) 21237(push (purecopy '(printing 6 9 3)) package--builtin-versions)
21207 21238
@@ -21789,7 +21820,7 @@ are both set to t.
21789 21820
21790;;;*** 21821;;;***
21791 21822
21792;;;### (autoloads nil "proced" "proced.el" (21981 37426 683399 97000)) 21823;;;### (autoloads nil "proced" "proced.el" (21998 46517 190024 649000))
21793;;; Generated autoloads from proced.el 21824;;; Generated autoloads from proced.el
21794 21825
21795(autoload 'proced "proced" "\ 21826(autoload 'proced "proced" "\
@@ -21847,8 +21878,8 @@ Return the project instance in DIR or `default-directory'.
21847 21878
21848;;;*** 21879;;;***
21849 21880
21850;;;### (autoloads nil "prolog" "progmodes/prolog.el" (21955 13362 21881;;;### (autoloads nil "prolog" "progmodes/prolog.el" (22027 46774
21851;;;;;; 392569 401000)) 21882;;;;;; 684310 591000))
21852;;; Generated autoloads from progmodes/prolog.el 21883;;; Generated autoloads from progmodes/prolog.el
21853 21884
21854(autoload 'prolog-mode "prolog" "\ 21885(autoload 'prolog-mode "prolog" "\
@@ -21939,8 +21970,8 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
21939 21970
21940;;;*** 21971;;;***
21941 21972
21942;;;### (autoloads nil "ps-print" "ps-print.el" (21981 37426 699399 21973;;;### (autoloads nil "ps-print" "ps-print.el" (22011 58553 993858
21943;;;;;; 97000)) 21974;;;;;; 469000))
21944;;; Generated autoloads from ps-print.el 21975;;; Generated autoloads from ps-print.el
21945(push (purecopy '(ps-print 7 3 5)) package--builtin-versions) 21976(push (purecopy '(ps-print 7 3 5)) package--builtin-versions)
21946 21977
@@ -22156,8 +22187,8 @@ Optional argument FACE specifies the face to do the highlighting.
22156 22187
22157;;;*** 22188;;;***
22158 22189
22159;;;### (autoloads nil "python" "progmodes/python.el" (21980 16568 22190;;;### (autoloads nil "python" "progmodes/python.el" (22026 25907
22160;;;;;; 37544 893000)) 22191;;;;;; 639502 692000))
22161;;; Generated autoloads from progmodes/python.el 22192;;; Generated autoloads from progmodes/python.el
22162(push (purecopy '(python 0 25 1)) package--builtin-versions) 22193(push (purecopy '(python 0 25 1)) package--builtin-versions)
22163 22194
@@ -22544,8 +22575,8 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'.
22544 22575
22545;;;*** 22576;;;***
22546 22577
22547;;;### (autoloads nil "rcirc" "net/rcirc.el" (21980 16567 809544 22578;;;### (autoloads nil "rcirc" "net/rcirc.el" (22011 58553 765858
22548;;;;;; 893000)) 22579;;;;;; 469000))
22549;;; Generated autoloads from net/rcirc.el 22580;;; Generated autoloads from net/rcirc.el
22550 22581
22551(autoload 'rcirc "rcirc" "\ 22582(autoload 'rcirc "rcirc" "\
@@ -22583,8 +22614,8 @@ if ARG is omitted or nil.
22583 22614
22584;;;*** 22615;;;***
22585 22616
22586;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21976 22617;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21998
22587;;;;;; 19509 900430 241000)) 22618;;;;;; 46517 18024 649000))
22588;;; Generated autoloads from emacs-lisp/re-builder.el 22619;;; Generated autoloads from emacs-lisp/re-builder.el
22589 22620
22590(defalias 'regexp-builder 're-builder) 22621(defalias 'regexp-builder 're-builder)
@@ -22602,8 +22633,8 @@ matching parts of the target buffer will be highlighted.
22602 22633
22603;;;*** 22634;;;***
22604 22635
22605;;;### (autoloads nil "recentf" "recentf.el" (21981 37426 699399 22636;;;### (autoloads nil "recentf" "recentf.el" (21998 46517 266024
22606;;;;;; 97000)) 22637;;;;;; 649000))
22607;;; Generated autoloads from recentf.el 22638;;; Generated autoloads from recentf.el
22608 22639
22609(defvar recentf-mode nil "\ 22640(defvar recentf-mode nil "\
@@ -22790,8 +22821,8 @@ For true \"word wrap\" behavior, use `visual-line-mode' instead.
22790 22821
22791;;;*** 22822;;;***
22792 22823
22793;;;### (autoloads nil "reftex" "textmodes/reftex.el" (21980 16640 22824;;;### (autoloads nil "reftex" "textmodes/reftex.el" (22026 25907
22794;;;;;; 469544 893000)) 22825;;;;;; 655502 692000))
22795;;; Generated autoloads from textmodes/reftex.el 22826;;; Generated autoloads from textmodes/reftex.el
22796(autoload 'reftex-citation "reftex-cite" nil t) 22827(autoload 'reftex-citation "reftex-cite" nil t)
22797(autoload 'reftex-all-document-files "reftex-parse") 22828(autoload 'reftex-all-document-files "reftex-parse")
@@ -22844,8 +22875,8 @@ This enforces rescanning the buffer on next use.
22844 22875
22845;;;*** 22876;;;***
22846 22877
22847;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (21887 22878;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (22025
22848;;;;;; 63409 948052 707000)) 22879;;;;;; 5040 882195 139000))
22849;;; Generated autoloads from textmodes/reftex-vars.el 22880;;; Generated autoloads from textmodes/reftex-vars.el
22850(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) 22881(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
22851(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) 22882(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.
22854 22885
22855;;;*** 22886;;;***
22856 22887
22857;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (21670 22888;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (22011
22858;;;;;; 32330 885624 725000)) 22889;;;;;; 58553 413858 469000))
22859;;; Generated autoloads from emacs-lisp/regexp-opt.el 22890;;; Generated autoloads from emacs-lisp/regexp-opt.el
22860 22891
22861(autoload 'regexp-opt "regexp-opt" "\ 22892(autoload 'regexp-opt "regexp-opt" "\
@@ -22866,7 +22897,7 @@ is enclosed by at least one regexp grouping construct.
22866The returned regexp is typically more efficient than the equivalent regexp: 22897The returned regexp is typically more efficient than the equivalent regexp:
22867 22898
22868 (let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\"))) 22899 (let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\")))
22869 (concat open (mapconcat 'regexp-quote STRINGS \"\\\\|\") close)) 22900 (concat open (mapconcat \\='regexp-quote STRINGS \"\\\\|\") close))
22870 22901
22871If PAREN is `words', then the resulting regexp is additionally surrounded 22902If PAREN is `words', then the resulting regexp is additionally surrounded
22872by \\=\\< and \\>. 22903by \\=\\< and \\>.
@@ -23063,8 +23094,8 @@ the mode if ARG is omitted or nil.
23063 23094
23064;;;*** 23095;;;***
23065 23096
23066;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21976 19509 900430 23097;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21998 46517 18024
23067;;;;;; 241000)) 23098;;;;;; 649000))
23068;;; Generated autoloads from emacs-lisp/ring.el 23099;;; Generated autoloads from emacs-lisp/ring.el
23069 23100
23070(autoload 'ring-p "ring" "\ 23101(autoload 'ring-p "ring" "\
@@ -23079,8 +23110,8 @@ Make a ring that can contain SIZE elements.
23079 23110
23080;;;*** 23111;;;***
23081 23112
23082;;;### (autoloads nil "rlogin" "net/rlogin.el" (21978 61237 654488 23113;;;### (autoloads nil "rlogin" "net/rlogin.el" (22011 58553 765858
23083;;;;;; 269000)) 23114;;;;;; 469000))
23084;;; Generated autoloads from net/rlogin.el 23115;;; Generated autoloads from net/rlogin.el
23085 23116
23086(autoload 'rlogin "rlogin" "\ 23117(autoload 'rlogin "rlogin" "\
@@ -23124,8 +23155,8 @@ variable.
23124 23155
23125;;;*** 23156;;;***
23126 23157
23127;;;### (autoloads nil "rmail" "mail/rmail.el" (21989 31537 903825 23158;;;### (autoloads nil "rmail" "mail/rmail.el" (22011 58553 725858
23128;;;;;; 721000)) 23159;;;;;; 469000))
23129;;; Generated autoloads from mail/rmail.el 23160;;; Generated autoloads from mail/rmail.el
23130 23161
23131(defvar rmail-file-name (purecopy "~/RMAIL") "\ 23162(defvar rmail-file-name (purecopy "~/RMAIL") "\
@@ -23541,8 +23572,8 @@ Toggle the use of ROT13 encoding for the current window.
23541 23572
23542;;;*** 23573;;;***
23543 23574
23544;;;### (autoloads nil "rst" "textmodes/rst.el" (21955 13362 436569 23575;;;### (autoloads nil "rst" "textmodes/rst.el" (22026 25907 659502
23545;;;;;; 401000)) 23576;;;;;; 692000))
23546;;; Generated autoloads from textmodes/rst.el 23577;;; Generated autoloads from textmodes/rst.el
23547 (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) 23578 (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode)))
23548 23579
@@ -23572,8 +23603,8 @@ for modes derived from Text mode, like Mail mode.
23572 23603
23573;;;*** 23604;;;***
23574 23605
23575;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (21955 23606;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (22015
23576;;;;;; 13362 400569 401000)) 23607;;;;;; 55603 817705 321000))
23577;;; Generated autoloads from progmodes/ruby-mode.el 23608;;; Generated autoloads from progmodes/ruby-mode.el
23578(push (purecopy '(ruby-mode 1 2)) package--builtin-versions) 23609(push (purecopy '(ruby-mode 1 2)) package--builtin-versions)
23579 23610
@@ -23590,8 +23621,8 @@ Major mode for editing Ruby code.
23590 23621
23591;;;*** 23622;;;***
23592 23623
23593;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (21906 58826 62640 23624;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (22026 25907 643502
23594;;;;;; 200000)) 23625;;;;;; 692000))
23595;;; Generated autoloads from ruler-mode.el 23626;;; Generated autoloads from ruler-mode.el
23596(push (purecopy '(ruler-mode 1 6)) package--builtin-versions) 23627(push (purecopy '(ruler-mode 1 6)) package--builtin-versions)
23597 23628
@@ -23609,8 +23640,8 @@ if ARG is omitted or nil.
23609 23640
23610;;;*** 23641;;;***
23611 23642
23612;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (21980 16567 509544 23643;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (22011 58553 441858
23613;;;;;; 893000)) 23644;;;;;; 469000))
23614;;; Generated autoloads from emacs-lisp/rx.el 23645;;; Generated autoloads from emacs-lisp/rx.el
23615 23646
23616(autoload 'rx-to-string "rx" "\ 23647(autoload 'rx-to-string "rx" "\
@@ -23983,8 +24014,8 @@ where it was when you previously visited the same file.
23983 24014
23984;;;*** 24015;;;***
23985 24016
23986;;;### (autoloads nil "scheme" "progmodes/scheme.el" (21670 32331 24017;;;### (autoloads nil "scheme" "progmodes/scheme.el" (22011 58553
23987;;;;;; 385639 720000)) 24018;;;;;; 925858 469000))
23988;;; Generated autoloads from progmodes/scheme.el 24019;;; Generated autoloads from progmodes/scheme.el
23989 24020
23990(autoload 'scheme-mode "scheme" "\ 24021(autoload 'scheme-mode "scheme" "\
@@ -24080,8 +24111,8 @@ vertically fixed relative to window boundaries during scrolling.
24080 24111
24081;;;*** 24112;;;***
24082 24113
24083;;;### (autoloads nil "secrets" "net/secrets.el" (21855 577 177946 24114;;;### (autoloads nil "secrets" "net/secrets.el" (22011 58553 765858
24084;;;;;; 739000)) 24115;;;;;; 469000))
24085;;; Generated autoloads from net/secrets.el 24116;;; Generated autoloads from net/secrets.el
24086(when (featurep 'dbusbind) 24117(when (featurep 'dbusbind)
24087 (autoload 'secrets-show-secrets "secrets" nil t)) 24118 (autoload 'secrets-show-secrets "secrets" nil t))
@@ -24168,8 +24199,8 @@ Major mode for editing Wisent grammars.
24168 24199
24169;;;*** 24200;;;***
24170 24201
24171;;;### (autoloads nil "sendmail" "mail/sendmail.el" (21964 28338 24202;;;### (autoloads nil "sendmail" "mail/sendmail.el" (22026 25907
24172;;;;;; 141695 749000)) 24203;;;;;; 603502 692000))
24173;;; Generated autoloads from mail/sendmail.el 24204;;; Generated autoloads from mail/sendmail.el
24174 24205
24175(defvar mail-from-style 'default "\ 24206(defvar mail-from-style 'default "\
@@ -24450,14 +24481,14 @@ Like `mail' command, but display mail buffer in another frame.
24450 24481
24451;;;*** 24482;;;***
24452 24483
24453;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (21982 58292 436758 24484;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (22026 25907 583502
24454;;;;;; 717000)) 24485;;;;;; 692000))
24455;;; Generated autoloads from emacs-lisp/seq.el 24486;;; Generated autoloads from emacs-lisp/seq.el
24456(push (purecopy '(seq 2 0)) package--builtin-versions) 24487(push (purecopy '(seq 2 0)) package--builtin-versions)
24457 24488
24458;;;*** 24489;;;***
24459 24490
24460;;;### (autoloads nil "server" "server.el" (21981 37426 703399 97000)) 24491;;;### (autoloads nil "server" "server.el" (21998 46517 270024 649000))
24461;;; Generated autoloads from server.el 24492;;; Generated autoloads from server.el
24462 24493
24463(put 'server-host 'risky-local-variable t) 24494(put 'server-host 'risky-local-variable t)
@@ -24524,7 +24555,7 @@ only these files will be asked to be saved.
24524 24555
24525;;;*** 24556;;;***
24526 24557
24527;;;### (autoloads nil "ses" "ses.el" (21981 37426 711399 97000)) 24558;;;### (autoloads nil "ses" "ses.el" (21990 52406 736500 385000))
24528;;; Generated autoloads from ses.el 24559;;; Generated autoloads from ses.el
24529 24560
24530(autoload 'ses-mode "ses" "\ 24561(autoload 'ses-mode "ses" "\
@@ -24568,8 +24599,8 @@ formula:
24568 24599
24569;;;*** 24600;;;***
24570 24601
24571;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (21988 24602;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (22011
24572;;;;;; 10682 97624 461000)) 24603;;;;;; 58554 69858 469000))
24573;;; Generated autoloads from textmodes/sgml-mode.el 24604;;; Generated autoloads from textmodes/sgml-mode.el
24574 24605
24575(autoload 'sgml-mode "sgml-mode" "\ 24606(autoload 'sgml-mode "sgml-mode" "\
@@ -24626,7 +24657,7 @@ Images in many formats can be inlined with <img src=\"URL\">.
24626If you mainly create your own documents, `sgml-specials' might be 24657If you mainly create your own documents, `sgml-specials' might be
24627interesting. But note that some HTML 2 browsers can't handle `&apos;'. 24658interesting. But note that some HTML 2 browsers can't handle `&apos;'.
24628To work around that, do: 24659To work around that, do:
24629 (eval-after-load \"sgml-mode\" '(aset sgml-char-names ?\\=' nil)) 24660 (eval-after-load \"sgml-mode\" \\='(aset sgml-char-names ?\\=' nil))
24630 24661
24631\\{html-mode-map} 24662\\{html-mode-map}
24632 24663
@@ -24634,8 +24665,8 @@ To work around that, do:
24634 24665
24635;;;*** 24666;;;***
24636 24667
24637;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (21965 24668;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (22027
24638;;;;;; 49202 339586 285000)) 24669;;;;;; 46774 688310 591000))
24639;;; Generated autoloads from progmodes/sh-script.el 24670;;; Generated autoloads from progmodes/sh-script.el
24640(push (purecopy '(sh-script 2 0 6)) package--builtin-versions) 24671(push (purecopy '(sh-script 2 0 6)) package--builtin-versions)
24641(put 'sh-shell 'safe-local-variable 'symbolp) 24672(put 'sh-shell 'safe-local-variable 'symbolp)
@@ -24698,8 +24729,8 @@ with your script for an edit-interpret-debug cycle.
24698 24729
24699;;;*** 24730;;;***
24700 24731
24701;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (21980 16567 24732;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (22026 25907
24702;;;;;; 509544 893000)) 24733;;;;;; 583502 692000))
24703;;; Generated autoloads from emacs-lisp/shadow.el 24734;;; Generated autoloads from emacs-lisp/shadow.el
24704 24735
24705(autoload 'list-load-path-shadows "shadow" "\ 24736(autoload 'list-load-path-shadows "shadow" "\
@@ -24835,7 +24866,7 @@ Otherwise, one argument `-i' is passed to the shell.
24835 24866
24836;;;*** 24867;;;***
24837 24868
24838;;;### (autoloads nil "shr" "net/shr.el" (21837 20530 521200 565000)) 24869;;;### (autoloads nil "shr" "net/shr.el" (22026 25907 631502 692000))
24839;;; Generated autoloads from net/shr.el 24870;;; Generated autoloads from net/shr.el
24840 24871
24841(autoload 'shr-render-region "shr" "\ 24872(autoload 'shr-render-region "shr" "\
@@ -24943,8 +24974,8 @@ with no arguments, if that value is non-nil.
24943 24974
24944;;;*** 24975;;;***
24945 24976
24946;;;### (autoloads nil "skeleton" "skeleton.el" (21980 16568 61544 24977;;;### (autoloads nil "skeleton" "skeleton.el" (22026 25907 643502
24947;;;;;; 893000)) 24978;;;;;; 692000))
24948;;; Generated autoloads from skeleton.el 24979;;; Generated autoloads from skeleton.el
24949 24980
24950(defvar skeleton-filter-function 'identity "\ 24981(defvar skeleton-filter-function 'identity "\
@@ -25271,7 +25302,7 @@ Pick your favorite shortcuts:
25271 25302
25272;;;*** 25303;;;***
25273 25304
25274;;;### (autoloads nil "sort" "sort.el" (21670 32331 885635 586000)) 25305;;;### (autoloads nil "sort" "sort.el" (22011 58553 993858 469000))
25275;;; Generated autoloads from sort.el 25306;;; Generated autoloads from sort.el
25276(put 'sort-fold-case 'safe-local-variable 'booleanp) 25307(put 'sort-fold-case 'safe-local-variable 'booleanp)
25277 25308
@@ -25460,8 +25491,8 @@ installed through `spam-necessary-extra-headers'.
25460 25491
25461;;;*** 25492;;;***
25462 25493
25463;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (21989 25494;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (22011
25464;;;;;; 31537 879825 721000)) 25495;;;;;; 58553 601858 469000))
25465;;; Generated autoloads from gnus/spam-report.el 25496;;; Generated autoloads from gnus/spam-report.el
25466 25497
25467(autoload 'spam-report-process-queue "spam-report" "\ 25498(autoload 'spam-report-process-queue "spam-report" "\
@@ -25503,8 +25534,8 @@ Spam reports will be queued with the method used when
25503 25534
25504;;;*** 25535;;;***
25505 25536
25506;;;### (autoloads nil "speedbar" "speedbar.el" (21670 32331 885635 25537;;;### (autoloads nil "speedbar" "speedbar.el" (22011 58553 993858
25507;;;;;; 586000)) 25538;;;;;; 469000))
25508;;; Generated autoloads from speedbar.el 25539;;; Generated autoloads from speedbar.el
25509 25540
25510(defalias 'speedbar 'speedbar-frame-mode) 25541(defalias 'speedbar 'speedbar-frame-mode)
@@ -25544,8 +25575,8 @@ Return a vector containing the lines from `spook-phrases-file'.
25544 25575
25545;;;*** 25576;;;***
25546 25577
25547;;;### (autoloads nil "sql" "progmodes/sql.el" (21980 16568 41544 25578;;;### (autoloads nil "sql" "progmodes/sql.el" (22011 58553 929858
25548;;;;;; 893000)) 25579;;;;;; 469000))
25549;;; Generated autoloads from progmodes/sql.el 25580;;; Generated autoloads from progmodes/sql.el
25550(push (purecopy '(sql 3 5)) package--builtin-versions) 25581(push (purecopy '(sql 3 5)) package--builtin-versions)
25551 25582
@@ -25562,8 +25593,8 @@ of the current highlighting list.
25562 25593
25563For example: 25594For example:
25564 25595
25565 (sql-add-product-keywords 'ms 25596 (sql-add-product-keywords \\='ms
25566 '((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face))) 25597 \\='((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
25567 25598
25568adds a fontification pattern to fontify identifiers ending in 25599adds a fontification pattern to fontify identifiers ending in
25569`_t' as data types. 25600`_t' as data types.
@@ -26019,7 +26050,7 @@ Run vsql as an inferior process.
26019;;;*** 26050;;;***
26020 26051
26021;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el" 26052;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el"
26022;;;;;; (21978 61237 382488 269000)) 26053;;;;;; (21998 46516 910024 649000))
26023;;; Generated autoloads from cedet/srecode/srt-mode.el 26054;;; Generated autoloads from cedet/srecode/srt-mode.el
26024 26055
26025(autoload 'srecode-template-mode "srecode/srt-mode" "\ 26056(autoload 'srecode-template-mode "srecode/srt-mode" "\
@@ -26374,8 +26405,8 @@ The variable `tab-width' controls the spacing of tab stops.
26374 26405
26375;;;*** 26406;;;***
26376 26407
26377;;;### (autoloads nil "table" "textmodes/table.el" (21974 64192 704009 26408;;;### (autoloads nil "table" "textmodes/table.el" (21998 46517 298024
26378;;;;;; 993000)) 26409;;;;;; 649000))
26379;;; Generated autoloads from textmodes/table.el 26410;;; Generated autoloads from textmodes/table.el
26380 26411
26381(autoload 'table-insert "table" "\ 26412(autoload 'table-insert "table" "\
@@ -26688,15 +26719,15 @@ ORIENTATION is a symbol either horizontally or vertically.
26688 26719
26689(autoload 'table-justify "table" "\ 26720(autoload 'table-justify "table" "\
26690Justify contents of a cell, a row of cells or a column of cells. 26721Justify contents of a cell, a row of cells or a column of cells.
26691WHAT is a symbol ‘cell’, ‘row’ or ‘column’. JUSTIFY is a symbol 26722WHAT is a symbol `cell', `row' or `column'. JUSTIFY is a symbol
26692‘left’, ‘center’, ‘right’, ‘top’, ‘middle’, ‘bottom’ or ‘none’. 26723`left', `center', `right', `top', `middle', `bottom' or `none'.
26693 26724
26694\(fn WHAT JUSTIFY)" t nil) 26725\(fn WHAT JUSTIFY)" t nil)
26695 26726
26696(autoload 'table-justify-cell "table" "\ 26727(autoload 'table-justify-cell "table" "\
26697Justify cell contents. 26728Justify cell contents.
26698JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, or ‘top’, 26729JUSTIFY is a symbol `left', `center' or `right' for horizontal, or `top',
26699‘middle’, ‘bottom’ or ‘none’ for vertical. When optional PARAGRAPH is 26730`middle', `bottom' or `none' for vertical. When optional PARAGRAPH is
26700non-nil the justify operation is limited to the current paragraph, 26731non-nil the justify operation is limited to the current paragraph,
26701otherwise the entire cell contents is justified. 26732otherwise the entire cell contents is justified.
26702 26733
@@ -26704,15 +26735,15 @@ otherwise the entire cell contents is justified.
26704 26735
26705(autoload 'table-justify-row "table" "\ 26736(autoload 'table-justify-row "table" "\
26706Justify cells of a row. 26737Justify cells of a row.
26707JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, 26738JUSTIFY is a symbol `left', `center' or `right' for horizontal,
26708or ‘top’, ‘middle’, ‘bottom’ or ‘none’ for vertical. 26739or `top', `middle', `bottom' or `none' for vertical.
26709 26740
26710\(fn JUSTIFY)" t nil) 26741\(fn JUSTIFY)" t nil)
26711 26742
26712(autoload 'table-justify-column "table" "\ 26743(autoload 'table-justify-column "table" "\
26713Justify cells of a column. 26744Justify cells of a column.
26714JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, 26745JUSTIFY is a symbol `left', `center' or `right' for horizontal,
26715or ‘top’, ‘middle’, ‘bottom’ or ‘none’ for vertical. 26746or `top', `middle', `bottom' or `none' for vertical.
26716 26747
26717\(fn JUSTIFY)" t nil) 26748\(fn JUSTIFY)" t nil)
26718 26749
@@ -26785,25 +26816,25 @@ INTERVAL is the number of cells to travel between sequence element
26785insertion which is normally 1. When zero or less is given for 26816insertion which is normally 1. When zero or less is given for
26786INTERVAL it is interpreted as number of cells per row so that sequence 26817INTERVAL it is interpreted as number of cells per row so that sequence
26787is placed straight down vertically as long as the table's cell 26818is placed straight down vertically as long as the table's cell
26788structure is uniform. JUSTIFY is a symbol ‘left’, ‘center’ or 26819structure is uniform. JUSTIFY is a symbol `left', `center' or
26789‘right’ that specifies justification of the inserted string. 26820`right' that specifies justification of the inserted string.
26790 26821
26791Example: 26822Example:
26792 26823
26793 (progn 26824 (progn
26794 (table-insert 16 3 5 1) 26825 (table-insert 16 3 5 1)
26795 (table-forward-cell 15) 26826 (table-forward-cell 15)
26796 (table-insert-sequence \"D0\" -16 1 1 'center) 26827 (table-insert-sequence \"D0\" -16 1 1 \\='center)
26797 (table-forward-cell 16) 26828 (table-forward-cell 16)
26798 (table-insert-sequence \"A[0]\" -16 1 1 'center) 26829 (table-insert-sequence \"A[0]\" -16 1 1 \\='center)
26799 (table-forward-cell 1) 26830 (table-forward-cell 1)
26800 (table-insert-sequence \"-\" 16 0 1 'center)) 26831 (table-insert-sequence \"-\" 16 0 1 \\='center))
26801 26832
26802 (progn 26833 (progn
26803 (table-insert 16 8 5 1) 26834 (table-insert 16 8 5 1)
26804 (table-insert-sequence \"@\" 0 1 2 'right) 26835 (table-insert-sequence \"@\" 0 1 2 \\='right)
26805 (table-forward-cell 1) 26836 (table-forward-cell 1)
26806 (table-insert-sequence \"64\" 0 1 2 'left)) 26837 (table-insert-sequence \"64\" 0 1 2 \\='left))
26807 26838
26808\(fn STR N INCREMENT INTERVAL JUSTIFY)" t nil) 26839\(fn STR N INCREMENT INTERVAL JUSTIFY)" t nil)
26809 26840
@@ -27060,7 +27091,7 @@ Normally input is edited in Emacs and sent a line at a time.
27060 27091
27061;;;*** 27092;;;***
27062 27093
27063;;;### (autoloads nil "term" "term.el" (21953 58033 491058 929000)) 27094;;;### (autoloads nil "term" "term.el" (22011 58553 997858 469000))
27064;;; Generated autoloads from term.el 27095;;; Generated autoloads from term.el
27065 27096
27066(autoload 'make-term "term" "\ 27097(autoload 'make-term "term" "\
@@ -27102,8 +27133,8 @@ use in that buffer.
27102 27133
27103;;;*** 27134;;;***
27104 27135
27105;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21976 27136;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21998
27106;;;;;; 19509 908430 241000)) 27137;;;;;; 46517 22024 649000))
27107;;; Generated autoloads from emacs-lisp/testcover.el 27138;;; Generated autoloads from emacs-lisp/testcover.el
27108 27139
27109(autoload 'testcover-this-defun "testcover" "\ 27140(autoload 'testcover-this-defun "testcover" "\
@@ -27113,8 +27144,8 @@ Start coverage on function under point.
27113 27144
27114;;;*** 27145;;;***
27115 27146
27116;;;### (autoloads nil "tetris" "play/tetris.el" (21670 32331 385639 27147;;;### (autoloads nil "tetris" "play/tetris.el" (22000 1842 148539
27117;;;;;; 720000)) 27148;;;;;; 693000))
27118;;; Generated autoloads from play/tetris.el 27149;;; Generated autoloads from play/tetris.el
27119(push (purecopy '(tetris 2 1)) package--builtin-versions) 27150(push (purecopy '(tetris 2 1)) package--builtin-versions)
27120 27151
@@ -27139,8 +27170,8 @@ tetris-mode keybindings:
27139 27170
27140;;;*** 27171;;;***
27141 27172
27142;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (21980 16568 27173;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (22026 25907
27143;;;;;; 85544 893000)) 27174;;;;;; 663502 692000))
27144;;; Generated autoloads from textmodes/tex-mode.el 27175;;; Generated autoloads from textmodes/tex-mode.el
27145 27176
27146(defvar tex-shell-file-name nil "\ 27177(defvar tex-shell-file-name nil "\
@@ -27441,8 +27472,8 @@ Major mode to edit DocTeX files.
27441 27472
27442;;;*** 27473;;;***
27443 27474
27444;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (21988 10682 27475;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (22011 58554
27445;;;;;; 101624 461000)) 27476;;;;;; 81858 469000))
27446;;; Generated autoloads from textmodes/texinfmt.el 27477;;; Generated autoloads from textmodes/texinfmt.el
27447 27478
27448(autoload 'texinfo-format-buffer "texinfmt" "\ 27479(autoload 'texinfo-format-buffer "texinfmt" "\
@@ -27481,8 +27512,8 @@ if large. You can use `Info-split' to do this manually.
27481 27512
27482;;;*** 27513;;;***
27483 27514
27484;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (21980 16568 27515;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (22026 25907
27485;;;;;; 89544 893000)) 27516;;;;;; 667502 692000))
27486;;; Generated autoloads from textmodes/texinfo.el 27517;;; Generated autoloads from textmodes/texinfo.el
27487 27518
27488(defvar texinfo-open-quote (purecopy "``") "\ 27519(defvar texinfo-open-quote (purecopy "``") "\
@@ -27594,8 +27625,8 @@ Compose Thai characters in the current buffer.
27594 27625
27595;;;*** 27626;;;***
27596 27627
27597;;;### (autoloads nil "thingatpt" "thingatpt.el" (21918 18992 829579 27628;;;### (autoloads nil "thingatpt" "thingatpt.el" (22011 58554 85858
27598;;;;;; 660000)) 27629;;;;;; 469000))
27599;;; Generated autoloads from thingatpt.el 27630;;; Generated autoloads from thingatpt.el
27600 27631
27601(autoload 'forward-thing "thingatpt" "\ 27632(autoload 'forward-thing "thingatpt" "\
@@ -27659,7 +27690,7 @@ Return the Lisp list at point, or nil if none is found.
27659 27690
27660;;;*** 27691;;;***
27661 27692
27662;;;### (autoloads nil "thumbs" "thumbs.el" (21974 64192 708009 993000)) 27693;;;### (autoloads nil "thumbs" "thumbs.el" (21993 28596 414597 473000))
27663;;; Generated autoloads from thumbs.el 27694;;; Generated autoloads from thumbs.el
27664 27695
27665(autoload 'thumbs-find-thumb "thumbs" "\ 27696(autoload 'thumbs-find-thumb "thumbs" "\
@@ -27767,8 +27798,8 @@ See also docstring of the function tibetan-compose-region.
27767 27798
27768;;;*** 27799;;;***
27769 27800
27770;;;### (autoloads nil "tildify" "textmodes/tildify.el" (21852 24382 27801;;;### (autoloads nil "tildify" "textmodes/tildify.el" (22026 25907
27771;;;;;; 87256 328000)) 27802;;;;;; 667502 692000))
27772;;; Generated autoloads from textmodes/tildify.el 27803;;; Generated autoloads from textmodes/tildify.el
27773(push (purecopy '(tildify 4 6 1)) package--builtin-versions) 27804(push (purecopy '(tildify 4 6 1)) package--builtin-versions)
27774 27805
@@ -27834,7 +27865,7 @@ variable will be set to the representation.
27834 27865
27835;;;*** 27866;;;***
27836 27867
27837;;;### (autoloads nil "time" "time.el" (21942 1330 821986 820000)) 27868;;;### (autoloads nil "time" "time.el" (22026 25907 667502 692000))
27838;;; Generated autoloads from time.el 27869;;; Generated autoloads from time.el
27839 27870
27840(defvar display-time-day-and-date nil "\ 27871(defvar display-time-day-and-date nil "\
@@ -27896,8 +27927,8 @@ Return a string giving the duration of the Emacs initialization.
27896 27927
27897;;;*** 27928;;;***
27898 27929
27899;;;### (autoloads nil "time-date" "calendar/time-date.el" (21976 27930;;;### (autoloads nil "time-date" "calendar/time-date.el" (22000
27900;;;;;; 19509 736430 241000)) 27931;;;;;; 55581 510930 477000))
27901;;; Generated autoloads from calendar/time-date.el 27932;;; Generated autoloads from calendar/time-date.el
27902 27933
27903(autoload 'date-to-time "time-date" "\ 27934(autoload 'date-to-time "time-date" "\
@@ -28041,8 +28072,8 @@ With ARG, turn time stamping on if and only if arg is positive.
28041 28072
28042;;;*** 28073;;;***
28043 28074
28044;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21980 28075;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21998
28045;;;;;; 16567 425544 893000)) 28076;;;;;; 46516 882024 649000))
28046;;; Generated autoloads from calendar/timeclock.el 28077;;; Generated autoloads from calendar/timeclock.el
28047(push (purecopy '(timeclock 2 6 1)) package--builtin-versions) 28078(push (purecopy '(timeclock 2 6 1)) package--builtin-versions)
28048 28079
@@ -28152,7 +28183,7 @@ relative only to the time worked today, and not to past time.
28152;;;*** 28183;;;***
28153 28184
28154;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el" 28185;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el"
28155;;;;;; (21988 10681 981624 461000)) 28186;;;;;; (22011 58553 673858 469000))
28156;;; Generated autoloads from international/titdic-cnv.el 28187;;; Generated autoloads from international/titdic-cnv.el
28157 28188
28158(autoload 'titdic-convert "titdic-cnv" "\ 28189(autoload 'titdic-convert "titdic-cnv" "\
@@ -28216,8 +28247,8 @@ Its value should be an event that has a binding in MENU.
28216 28247
28217;;;*** 28248;;;***
28218 28249
28219;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (21985 28250;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (22015
28220;;;;;; 34484 214705 925000)) 28251;;;;;; 55603 665705 321000))
28221;;; Generated autoloads from calendar/todo-mode.el 28252;;; Generated autoloads from calendar/todo-mode.el
28222 28253
28223(autoload 'todo-show "todo-mode" "\ 28254(autoload 'todo-show "todo-mode" "\
@@ -28415,8 +28446,8 @@ the output buffer or changing the window configuration.
28415 28446
28416;;;*** 28447;;;***
28417 28448
28418;;;### (autoloads nil "tramp" "net/tramp.el" (21981 37426 655399 28449;;;### (autoloads nil "tramp" "net/tramp.el" (22015 55603 713705
28419;;;;;; 97000)) 28450;;;;;; 321000))
28420;;; Generated autoloads from net/tramp.el 28451;;; Generated autoloads from net/tramp.el
28421 28452
28422(defvar tramp-mode t "\ 28453(defvar tramp-mode t "\
@@ -28542,8 +28573,8 @@ Discard Tramp from loading remote files.
28542 28573
28543;;;*** 28574;;;***
28544 28575
28545;;;### (autoloads nil "tutorial" "tutorial.el" (21978 61237 774488 28576;;;### (autoloads nil "tutorial" "tutorial.el" (22011 58554 85858
28546;;;;;; 269000)) 28577;;;;;; 469000))
28547;;; Generated autoloads from tutorial.el 28578;;; Generated autoloads from tutorial.el
28548 28579
28549(autoload 'help-with-tutorial "tutorial" "\ 28580(autoload 'help-with-tutorial "tutorial" "\
@@ -28578,8 +28609,8 @@ resumed later.
28578 28609
28579;;;*** 28610;;;***
28580 28611
28581;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21988 28612;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21998
28582;;;;;; 10682 101624 461000)) 28613;;;;;; 46517 298024 649000))
28583;;; Generated autoloads from textmodes/two-column.el 28614;;; Generated autoloads from textmodes/two-column.el
28584 (autoload '2C-command "two-column" () t 'keymap) 28615 (autoload '2C-command "two-column" () t 'keymap)
28585 (global-set-key "\C-x6" '2C-command) 28616 (global-set-key "\C-x6" '2C-command)
@@ -28626,8 +28657,8 @@ First column's text sSs Second column's text
28626 28657
28627;;;*** 28658;;;***
28628 28659
28629;;;### (autoloads nil "type-break" "type-break.el" (21976 19510 152430 28660;;;### (autoloads nil "type-break" "type-break.el" (22011 58554 85858
28630;;;;;; 241000)) 28661;;;;;; 469000))
28631;;; Generated autoloads from type-break.el 28662;;; Generated autoloads from type-break.el
28632 28663
28633(defvar type-break-mode nil "\ 28664(defvar type-break-mode nil "\
@@ -28759,7 +28790,7 @@ FRAC should be the inverse of the fractional value; for example, a value of
28759 28790
28760;;;*** 28791;;;***
28761 28792
28762;;;### (autoloads nil "uce" "mail/uce.el" (21670 32331 385639 720000)) 28793;;;### (autoloads nil "uce" "mail/uce.el" (22026 25907 603502 692000))
28763;;; Generated autoloads from mail/uce.el 28794;;; Generated autoloads from mail/uce.el
28764 28795
28765(autoload 'uce-reply-to-uce "uce" "\ 28796(autoload 'uce-reply-to-uce "uce" "\
@@ -29015,8 +29046,8 @@ Extract FNAM from the local disk cache.
29015 29046
29016;;;*** 29047;;;***
29017 29048
29018;;;### (autoloads nil "url-dav" "url/url-dav.el" (21696 56380 925320 29049;;;### (autoloads nil "url-dav" "url/url-dav.el" (22011 58554 85858
29019;;;;;; 624000)) 29050;;;;;; 469000))
29020;;; Generated autoloads from url/url-dav.el 29051;;; Generated autoloads from url/url-dav.el
29021 29052
29022(autoload 'url-dav-supported-p "url-dav" "\ 29053(autoload 'url-dav-supported-p "url-dav" "\
@@ -29061,8 +29092,8 @@ Handle file: and ftp: URLs.
29061 29092
29062;;;*** 29093;;;***
29063 29094
29064;;;### (autoloads nil "url-gw" "url/url-gw.el" (21670 32331 885635 29095;;;### (autoloads nil "url-gw" "url/url-gw.el" (22011 58554 85858
29065;;;;;; 586000)) 29096;;;;;; 469000))
29066;;; Generated autoloads from url/url-gw.el 29097;;; Generated autoloads from url/url-gw.el
29067 29098
29068(autoload 'url-gateway-nslookup-host "url-gw" "\ 29099(autoload 'url-gateway-nslookup-host "url-gw" "\
@@ -29083,8 +29114,8 @@ overriding the value of `url-gateway-method'.
29083 29114
29084;;;*** 29115;;;***
29085 29116
29086;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (21841 29117;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (22011
29087;;;;;; 54062 172628 227000)) 29118;;;;;; 58554 85858 469000))
29088;;; Generated autoloads from url/url-handlers.el 29119;;; Generated autoloads from url/url-handlers.el
29089 29120
29090(defvar url-handler-mode nil "\ 29121(defvar url-handler-mode nil "\
@@ -29138,8 +29169,8 @@ accessible.
29138 29169
29139;;;*** 29170;;;***
29140 29171
29141;;;### (autoloads nil "url-http" "url/url-http.el" (21837 20526 641128 29172;;;### (autoloads nil "url-http" "url/url-http.el" (22018 31799 119263
29142;;;;;; 711000)) 29173;;;;;; 120000))
29143;;; Generated autoloads from url/url-http.el 29174;;; Generated autoloads from url/url-http.el
29144 (autoload 'url-default-expander "url-expand") 29175 (autoload 'url-default-expander "url-expand")
29145 29176
@@ -29378,8 +29409,8 @@ would have been passed to OPERATION.
29378 29409
29379;;;*** 29410;;;***
29380 29411
29381;;;### (autoloads nil "url-util" "url/url-util.el" (21670 32331 885635 29412;;;### (autoloads nil "url-util" "url/url-util.el" (21993 28596 418597
29382;;;;;; 586000)) 29413;;;;;; 473000))
29383;;; Generated autoloads from url/url-util.el 29414;;; Generated autoloads from url/url-util.el
29384 29415
29385(defvar url-debug nil "\ 29416(defvar url-debug nil "\
@@ -29472,7 +29503,7 @@ Return the nondirectory part of FILE, for a URL.
29472Build a query-string. 29503Build a query-string.
29473 29504
29474Given a QUERY in the form: 29505Given a QUERY in the form:
29475'((key1 val1) 29506 ((key1 val1)
29476 (key2 val2) 29507 (key2 val2)
29477 (key3 val1 val2) 29508 (key3 val1 val2)
29478 (key4) 29509 (key4)
@@ -29637,7 +29668,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME.
29637 29668
29638;;;*** 29669;;;***
29639 29670
29640;;;### (autoloads nil "vc" "vc/vc.el" (21923 36911 845418 539000)) 29671;;;### (autoloads nil "vc" "vc/vc.el" (22014 34736 871840 613000))
29641;;; Generated autoloads from vc/vc.el 29672;;; Generated autoloads from vc/vc.el
29642 29673
29643(defvar vc-checkout-hook nil "\ 29674(defvar vc-checkout-hook nil "\
@@ -29944,8 +29975,8 @@ Return the branch part of a revision number REV.
29944 29975
29945;;;*** 29976;;;***
29946 29977
29947;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (21850 34915 29978;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (22011 58554
29948;;;;;; 127238 802000)) 29979;;;;;; 93858 469000))
29949;;; Generated autoloads from vc/vc-annotate.el 29980;;; Generated autoloads from vc/vc-annotate.el
29950 29981
29951(autoload 'vc-annotate "vc-annotate" "\ 29982(autoload 'vc-annotate "vc-annotate" "\
@@ -29984,8 +30015,8 @@ should be applied to the background or to the foreground.
29984 30015
29985;;;*** 30016;;;***
29986 30017
29987;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (21852 24382 97237 30018;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (22014 34736 819840
29988;;;;;; 703000)) 30019;;;;;; 613000))
29989;;; Generated autoloads from vc/vc-bzr.el 30020;;; Generated autoloads from vc/vc-bzr.el
29990 30021
29991(defconst vc-bzr-admin-dirname ".bzr" "\ 30022(defconst vc-bzr-admin-dirname ".bzr" "\
@@ -30001,8 +30032,8 @@ Name of the format file in a .bzr directory.")
30001 30032
30002;;;*** 30033;;;***
30003 30034
30004;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (21985 34484 302705 30035;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (22014 34736 823840
30005;;;;;; 925000)) 30036;;;;;; 613000))
30006;;; Generated autoloads from vc/vc-cvs.el 30037;;; Generated autoloads from vc/vc-cvs.el
30007(defun vc-cvs-registered (f) 30038(defun vc-cvs-registered (f)
30008 "Return non-nil if file F is registered with CVS." 30039 "Return non-nil if file F is registered with CVS."
@@ -30062,8 +30093,8 @@ case, and the process object in the asynchronous case.
30062 30093
30063;;;*** 30094;;;***
30064 30095
30065;;;### (autoloads nil "vc-git" "vc/vc-git.el" (21888 48854 948181 30096;;;### (autoloads nil "vc-git" "vc/vc-git.el" (22014 34736 835840
30066;;;;;; 796000)) 30097;;;;;; 613000))
30067;;; Generated autoloads from vc/vc-git.el 30098;;; Generated autoloads from vc/vc-git.el
30068 (defun vc-git-registered (file) 30099 (defun vc-git-registered (file)
30069 "Return non-nil if FILE is registered with git." 30100 "Return non-nil if FILE is registered with git."
@@ -30074,7 +30105,7 @@ case, and the process object in the asynchronous case.
30074 30105
30075;;;*** 30106;;;***
30076 30107
30077;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (21932 51888 960440 344000)) 30108;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (22014 34736 835840 613000))
30078;;; Generated autoloads from vc/vc-hg.el 30109;;; Generated autoloads from vc/vc-hg.el
30079 (defun vc-hg-registered (file) 30110 (defun vc-hg-registered (file)
30080 "Return non-nil if FILE is registered with hg." 30111 "Return non-nil if FILE is registered with hg."
@@ -30085,8 +30116,8 @@ case, and the process object in the asynchronous case.
30085 30116
30086;;;*** 30117;;;***
30087 30118
30088;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (21945 63921 477174 30119;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (22014 34736 839840
30089;;;;;; 555000)) 30120;;;;;; 613000))
30090;;; Generated autoloads from vc/vc-mtn.el 30121;;; Generated autoloads from vc/vc-mtn.el
30091 30122
30092(defconst vc-mtn-admin-dir "_MTN" "\ 30123(defconst vc-mtn-admin-dir "_MTN" "\
@@ -30102,8 +30133,8 @@ Name of the monotone directory's format file.")
30102 30133
30103;;;*** 30134;;;***
30104 30135
30105;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (21896 48221 810207 30136;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (22014 34736 851840
30106;;;;;; 816000)) 30137;;;;;; 613000))
30107;;; Generated autoloads from vc/vc-rcs.el 30138;;; Generated autoloads from vc/vc-rcs.el
30108 30139
30109(defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ 30140(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'.")
30116 30147
30117;;;*** 30148;;;***
30118 30149
30119;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (21748 18111 534605 30150;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (22014 34736 863840
30120;;;;;; 274000)) 30151;;;;;; 613000))
30121;;; Generated autoloads from vc/vc-sccs.el 30152;;; Generated autoloads from vc/vc-sccs.el
30122 30153
30123(defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ 30154(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)
30135 30166
30136;;;*** 30167;;;***
30137 30168
30138;;;### (autoloads nil "vc-src" "vc/vc-src.el" (21748 18111 534605 30169;;;### (autoloads nil "vc-src" "vc/vc-src.el" (22014 34736 863840
30139;;;;;; 274000)) 30170;;;;;; 613000))
30140;;; Generated autoloads from vc/vc-src.el 30171;;; Generated autoloads from vc/vc-src.el
30141 30172
30142(defvar vc-src-master-templates (purecopy '("%s.src/%s,v")) "\ 30173(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'.")
30149 30180
30150;;;*** 30181;;;***
30151 30182
30152;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (21980 16568 97544 30183;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (22011 58554 97858
30153;;;;;; 893000)) 30184;;;;;; 469000))
30154;;; Generated autoloads from vc/vc-svn.el 30185;;; Generated autoloads from vc/vc-svn.el
30155 (defun vc-svn-registered (f) 30186 (defun vc-svn-registered (f)
30156 (let ((admin-dir (cond ((and (eq system-type 'windows-nt) 30187 (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'.")
30163 30194
30164;;;*** 30195;;;***
30165 30196
30166;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (21670 30197;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (22011
30167;;;;;; 32331 885635 586000)) 30198;;;;;; 58553 929858 469000))
30168;;; Generated autoloads from progmodes/vera-mode.el 30199;;; Generated autoloads from progmodes/vera-mode.el
30169(push (purecopy '(vera-mode 2 28)) package--builtin-versions) 30200(push (purecopy '(vera-mode 2 28)) package--builtin-versions)
30170 (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) 30201 (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode))
@@ -30223,7 +30254,7 @@ Key bindings:
30223;;;*** 30254;;;***
30224 30255
30225;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el" 30256;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el"
30226;;;;;; (21988 10682 49624 461000)) 30257;;;;;; (22015 55603 833705 321000))
30227;;; Generated autoloads from progmodes/verilog-mode.el 30258;;; Generated autoloads from progmodes/verilog-mode.el
30228 30259
30229(autoload 'verilog-mode "verilog-mode" "\ 30260(autoload 'verilog-mode "verilog-mode" "\
@@ -30362,8 +30393,8 @@ Key bindings specific to `verilog-mode-map' are:
30362 30393
30363;;;*** 30394;;;***
30364 30395
30365;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (21988 30396;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (22011
30366;;;;;; 10682 57624 461000)) 30397;;;;;; 58553 969858 469000))
30367;;; Generated autoloads from progmodes/vhdl-mode.el 30398;;; Generated autoloads from progmodes/vhdl-mode.el
30368 30399
30369(autoload 'vhdl-mode "vhdl-mode" "\ 30400(autoload 'vhdl-mode "vhdl-mode" "\
@@ -30413,7 +30444,7 @@ Usage:
30413 ;;; --> \" := \" [[ --> [ --CR --> comment-out code 30444 ;;; --> \" := \" [[ --> [ --CR --> comment-out code
30414 .. --> \" => \" ] --> ) --- --> horizontal line 30445 .. --> \" => \" ] --> ) --- --> horizontal line
30415 ,, --> \" <= \" ]] --> ] ---- --> display comment 30446 ,, --> \" <= \" ]] --> ] ---- --> display comment
30416 == --> \" == \" '' --> \\\" 30447 == --> \" == \" \\='\\=' --> \\\"
30417 30448
30418 30449
30419 WORD COMPLETION: 30450 WORD COMPLETION:
@@ -30425,7 +30456,7 @@ Usage:
30425 Typing `TAB' after `(' looks for and inserts complete parenthesized 30456 Typing `TAB' after `(' looks for and inserts complete parenthesized
30426 expressions (e.g. for array index ranges). All keywords as well as 30457 expressions (e.g. for array index ranges). All keywords as well as
30427 standard types and subprograms of VHDL have predefined abbreviations 30458 standard types and subprograms of VHDL have predefined abbreviations
30428 (e.g. type \"std\" and `TAB' will toggle through all standard types 30459 (e.g., type \"std\" and `TAB' will toggle through all standard types
30429 beginning with \"std\"). 30460 beginning with \"std\").
30430 30461
30431 Typing `TAB' after a non-word character indents the line if at the 30462 Typing `TAB' after a non-word character indents the line if at the
@@ -30823,7 +30854,7 @@ Usage:
30823 30854
30824 CODE FIXING: 30855 CODE FIXING:
30825 `C-c C-x C-p' fixes the closing parenthesis of a generic/port clause 30856 `C-c C-x C-p' fixes the closing parenthesis of a generic/port clause
30826 (e.g. if the closing parenthesis is on the wrong line or is missing). 30857 (e.g., if the closing parenthesis is on the wrong line or is missing).
30827 30858
30828 30859
30829 PRINTING: 30860 PRINTING:
@@ -30860,7 +30891,7 @@ Usage:
30860 automatically recognized as VHDL source files. To add an extension 30891 automatically recognized as VHDL source files. To add an extension
30861 \".xxx\", add the following line to your Emacs start-up file (`.emacs'): 30892 \".xxx\", add the following line to your Emacs start-up file (`.emacs'):
30862 30893
30863 (push '(\"\\\\.xxx\\\\'\" . vhdl-mode) auto-mode-alist) 30894 (push \\='(\"\\\\.xxx\\\\\\='\" . vhdl-mode) auto-mode-alist)
30864 30895
30865 30896
30866 HINTS: 30897 HINTS:
@@ -31218,8 +31249,8 @@ Exit View mode and make the current buffer editable.
31218 31249
31219;;;*** 31250;;;***
31220 31251
31221;;;### (autoloads nil "viper" "emulation/viper.el" (21670 32330 885624 31252;;;### (autoloads nil "viper" "emulation/viper.el" (22011 58553 461858
31222;;;;;; 725000)) 31253;;;;;; 469000))
31223;;; Generated autoloads from emulation/viper.el 31254;;; Generated autoloads from emulation/viper.el
31224(push (purecopy '(viper 3 14 1)) package--builtin-versions) 31255(push (purecopy '(viper 3 14 1)) package--builtin-versions)
31225 31256
@@ -31327,7 +31358,7 @@ this is equivalent to `display-warning', using
31327 31358
31328;;;*** 31359;;;***
31329 31360
31330;;;### (autoloads nil "wdired" "wdired.el" (21981 37426 739399 97000)) 31361;;;### (autoloads nil "wdired" "wdired.el" (22026 25907 675502 692000))
31331;;; Generated autoloads from wdired.el 31362;;; Generated autoloads from wdired.el
31332(push (purecopy '(wdired 2 0)) package--builtin-versions) 31363(push (purecopy '(wdired 2 0)) package--builtin-versions)
31333 31364
@@ -31393,8 +31424,8 @@ in certain major modes.
31393 31424
31394;;;*** 31425;;;***
31395 31426
31396;;;### (autoloads nil "whitespace" "whitespace.el" (21985 34484 306705 31427;;;### (autoloads nil "whitespace" "whitespace.el" (22026 25907 675502
31397;;;;;; 925000)) 31428;;;;;; 692000))
31398;;; Generated autoloads from whitespace.el 31429;;; Generated autoloads from whitespace.el
31399(push (purecopy '(whitespace 13 2 2)) package--builtin-versions) 31430(push (purecopy '(whitespace 13 2 2)) package--builtin-versions)
31400 31431
@@ -31791,8 +31822,8 @@ if ARG is omitted or nil.
31791 31822
31792;;;*** 31823;;;***
31793 31824
31794;;;### (autoloads nil "wid-edit" "wid-edit.el" (21981 37426 739399 31825;;;### (autoloads nil "wid-edit" "wid-edit.el" (22003 64432 668146
31795;;;;;; 97000)) 31826;;;;;; 533000))
31796;;; Generated autoloads from wid-edit.el 31827;;; Generated autoloads from wid-edit.el
31797 31828
31798(autoload 'widgetp "wid-edit" "\ 31829(autoload 'widgetp "wid-edit" "\
@@ -31887,7 +31918,7 @@ Default MODIFIER is 'shift.
31887 31918
31888;;;*** 31919;;;***
31889 31920
31890;;;### (autoloads nil "winner" "winner.el" (21733 50750 334730 5000)) 31921;;;### (autoloads nil "winner" "winner.el" (22009 58952 311546 645000))
31891;;; Generated autoloads from winner.el 31922;;; Generated autoloads from winner.el
31892 31923
31893(defvar winner-mode nil "\ 31924(defvar winner-mode nil "\
@@ -31910,7 +31941,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
31910 31941
31911;;;*** 31942;;;***
31912 31943
31913;;;### (autoloads nil "woman" "woman.el" (21985 34484 338705 925000)) 31944;;;### (autoloads nil "woman" "woman.el" (22026 25907 679502 692000))
31914;;; Generated autoloads from woman.el 31945;;; Generated autoloads from woman.el
31915(push (purecopy '(woman 0 551)) package--builtin-versions) 31946(push (purecopy '(woman 0 551)) package--builtin-versions)
31916 31947
@@ -32034,8 +32065,8 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT.
32034 32065
32035;;;*** 32066;;;***
32036 32067
32037;;;### (autoloads nil "xref" "progmodes/xref.el" (21963 7479 570964 32068;;;### (autoloads nil "xref" "progmodes/xref.el" (21993 28596 366597
32038;;;;;; 861000)) 32069;;;;;; 473000))
32039;;; Generated autoloads from progmodes/xref.el 32070;;; Generated autoloads from progmodes/xref.el
32040 32071
32041(autoload 'xref-pop-marker-stack "xref" "\ 32072(autoload 'xref-pop-marker-stack "xref" "\
@@ -32368,7 +32399,7 @@ Zone out, completely.
32368;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" 32399;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el"
32369;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vc/vc-filewise.el" "vcursor.el" 32400;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vc/vc-filewise.el" "vcursor.el"
32370;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el" 32401;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el"
32371;;;;;; "x-dnd.el") (21989 31602 291825 721000)) 32402;;;;;; "x-dnd.el") (22026 26004 435502 692000))
32372 32403
32373;;;*** 32404;;;***
32374 32405
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index f54893fb4be..8e28973c43f 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -417,7 +417,8 @@ and send the mail again%s."
417 (regexp-quote (system-name))) 417 (regexp-quote (system-name)))
418 from)) 418 from))
419 (not (yes-or-no-p 419 (not (yes-or-no-p
420 (format "Is '%s' really your email address? " from))) 420 (format-message "Is `%s' really your email address? "
421 from)))
421 (error "Please edit the From address and try again")))))) 422 (error "Please edit the From address and try again"))))))
422 423
423 424
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 86bb9e89618..839e24c8a90 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,4 +1,4 @@
1;;; footnote.el --- footnote support for message mode -*- coding: utf-8;-*- 1;;; footnote.el --- footnote support for message mode
2 2
3;; Copyright (C) 1997, 2000-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1997, 2000-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index a7057ca21c8..35138985ed7 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1,4 +1,4 @@
1;;; mail-extr.el --- extract full name and address from RFC 822 mail header -*- coding: utf-8 -*- 1;;; mail-extr.el --- extract full name and address from RFC 822 mail header
2 2
3;; Copyright (C) 1991-1994, 1997, 2001-2015 Free Software Foundation, 3;; Copyright (C) 1991-1994, 1997, 2001-2015 Free Software Foundation,
4;; Inc. 4;; Inc.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 4c0f2b98257..9269d7f7d83 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."
2078 2078
2079;; Local Variables: 2079;; Local Variables:
2080;; byte-compile-dynamic: t 2080;; byte-compile-dynamic: t
2081;; coding: utf-8
2082;; End: 2081;; End:
2083 2082
2084;;; sendmail.el ends here 2083;;; sendmail.el ends here
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 74939d1c975..5db135728ea 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."
375(provide 'uce) 375(provide 'uce)
376 376
377;;; uce.el ends here 377;;; uce.el ends here
378
379;; Local Variables:
380;; coding: utf-8
381;; End:
diff --git a/lisp/man.el b/lisp/man.el
index fbfa6f0c7f7..90d658a3e76 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1,4 +1,4 @@
1;;; man.el --- browse UNIX manual pages -*- coding: utf-8 -*- 1;;; man.el --- browse UNIX manual pages
2 2
3;; Copyright (C) 1993-1994, 1996-1997, 2001-2015 Free Software 3;; Copyright (C) 1993-1994, 1996-1997, 2001-2015 Free Software
4;; Foundation, Inc. 4;; Foundation, Inc.
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 96fe7d797c2..c757920ef29 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
2901actual printing for the \\[mh-print-msg] command. The string can 2901actual printing for the \\[mh-print-msg] command. The string can
2902contain one escape, \"%s\", which is replaced by the name of the 2902contain one escape, \"%s\", which is replaced by the name of the
2903folder and the message number and is useful for print job names. 2903folder and the message number and is useful for print job names.
2904I use \"mpage -h'%s' -b Letter -H1of -mlrtb -P\" which produces a 2904I use \"mpage -h\\='%s\\=' -b Letter -H1of -mlrtb -P\" which produces a
2905nice header and adds a bit of margin so the text fits within my 2905nice header and adds a bit of margin so the text fits within my
2906printer's margins. 2906printer's margins.
2907 2907
2908This options is not used by the commands \\[mh-ps-print-msg] or 2908This option is not used by the commands \\[mh-ps-print-msg] or
2909\\[mh-ps-print-msg-file]." 2909\\[mh-ps-print-msg-file]."
2910 :type 'string 2910 :type 'string
2911 :group 'mh-show 2911 :group 'mh-show
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 689911c405a..2814d020b8d 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1374,7 +1374,7 @@ appear to be a match."
1374 ;; that file. 1374 ;; that file.
1375 (= (length string) (length compl))) 1375 (= (length string) (length compl)))
1376 (completion--replace beg end compl)))) 1376 (completion--replace beg end compl))))
1377 (funcall exit-function)) 1377 (funcall exit-function))
1378 1378
1379 ((memq minibuffer-completion-confirm '(confirm confirm-after-completion)) 1379 ((memq minibuffer-completion-confirm '(confirm confirm-after-completion))
1380 ;; The user is permitted to exit with an input that's rejected 1380 ;; The user is permitted to exit with an input that's rejected
@@ -1391,7 +1391,7 @@ appear to be a match."
1391 1391
1392 (t 1392 (t
1393 ;; Call do-completion, but ignore errors. 1393 ;; Call do-completion, but ignore errors.
1394 (funcall completion-function)))) 1394 (funcall completion-function))))
1395 1395
1396(defun completion--try-word-completion (string table predicate point md) 1396(defun completion--try-word-completion (string table predicate point md)
1397 (let ((comp (completion-try-completion string table predicate point md))) 1397 (let ((comp (completion-try-completion string table predicate point md)))
@@ -1794,7 +1794,7 @@ variables.")
1794 (if completions "Sole completion" "No completions"))) 1794 (if completions "Sole completion" "No completions")))
1795 1795
1796 (let* ((last (last completions)) 1796 (let* ((last (last completions))
1797 (base-size (cdr last)) 1797 (base-size (or (cdr last) 0))
1798 (prefix (unless (zerop base-size) (substring string 0 base-size))) 1798 (prefix (unless (zerop base-size) (substring string 0 base-size)))
1799 (all-md (completion--metadata (buffer-substring-no-properties 1799 (all-md (completion--metadata (buffer-substring-no-properties
1800 start (point)) 1800 start (point))
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index f01f671de9e..e48af4dc205 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -1,4 +1,4 @@
1;;; eudc-bob.el --- Binary Objects Support for EUDC -*- coding: utf-8 -*- 1;;; eudc-bob.el --- Binary Objects Support for EUDC
2 2
3;; Copyright (C) 1999-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el
index ec0914d636b..c60911ff0c5 100644
--- a/lisp/net/eudc-export.el
+++ b/lisp/net/eudc-export.el
@@ -1,4 +1,4 @@
1;;; eudc-export.el --- functions to export EUDC query results -*- coding: utf-8 -*- 1;;; eudc-export.el --- functions to export EUDC query results
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 7416ad090eb..55a2fd9a20a 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -1,4 +1,4 @@
1;;; eudc-hotlist.el --- hotlist management for EUDC -*- coding: utf-8 -*- 1;;; eudc-hotlist.el --- hotlist management for EUDC
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 5e994a3a38f..8cffa8e466a 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -1,4 +1,4 @@
1;;; eudc-vars.el --- Emacs Unified Directory Client -*- coding: utf-8 -*- 1;;; eudc-vars.el --- Emacs Unified Directory Client
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 66dbc65da9c..7280d9d2625 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,4 +1,4 @@
1;;; eudc.el --- Emacs Unified Directory Client -*- coding: utf-8 -*- 1;;; eudc.el --- Emacs Unified Directory Client
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el
index bd5d4536aab..0545304b4a3 100644
--- a/lisp/net/eudcb-bbdb.el
+++ b/lisp/net/eudcb-bbdb.el
@@ -1,4 +1,4 @@
1;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend -*- coding: utf-8 -*- 1;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el
index d22dff615ee..b50d29ddae8 100644
--- a/lisp/net/eudcb-ldap.el
+++ b/lisp/net/eudcb-ldap.el
@@ -1,4 +1,4 @@
1;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend -*- coding: utf-8 -*- 1;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el
index a135e9ba059..f144bf695f5 100644
--- a/lisp/net/eudcb-ph.el
+++ b/lisp/net/eudcb-ph.el
@@ -1,4 +1,4 @@
1;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend -*- coding: utf-8 -*- 1;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend
2 2
3;; Copyright (C) 1998-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 4eef5809233..0c2df8897d7 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."
940 "Return propertized copy of string TAG. 940 "Return propertized copy of string TAG.
941Optional argument NUM-NEW is used for choosing face, other 941Optional argument NUM-NEW is used for choosing face, other
942arguments NT-ID, FEED, and VFEED are added as properties." 942arguments NT-ID, FEED, and VFEED are added as properties."
943 ;;(message "newsticker--treeview-propertize-tag '%s' %s" feed nt-id) 943 ;;(message "newsticker--treeview-propertize-tag `%s' %s" feed nt-id)
944 (let ((face 'newsticker-treeview-face) 944 (let ((face 'newsticker-treeview-face)
945 (map (make-sparse-keymap))) 945 (map (make-sparse-keymap)))
946 (if (and num-new (> num-new 0)) 946 (if (and num-new (> num-new 0))
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 0ce77b9055c..9116e506756 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -222,10 +222,29 @@ DOM should be a parse tree as generated by
222 (if (not shr-use-fonts) 222 (if (not shr-use-fonts)
223 shr-width 223 shr-width
224 (* shr-width (frame-char-width)))) 224 (* shr-width (frame-char-width))))
225 ;; We need to adjust the available
226 ;; width for when the user disables
227 ;; the fringes, which will cause the
228 ;; display engine usurp one column for
229 ;; the continuation glyph.
225 (if (not shr-use-fonts) 230 (if (not shr-use-fonts)
226 (- (window-width) 2) 231 (- (window-body-width) 1
227 (- (window-pixel-width) 232 (if (and (null shr-width)
228 (* (frame-fringe-width) 2)))))) 233 (or (zerop
234 (fringe-columns 'right))
235 (zerop
236 (fringe-columns 'left))))
237 0
238 1))
239 (- (window-body-width nil t)
240 (* 2 (frame-char-width))
241 (if (and (null shr-width)
242 (or (zerop
243 (fringe-columns 'right))
244 (zerop
245 (fringe-columns 'left))))
246 (* (frame-char-width) 2)
247 0))))))
229 (shr-descend dom) 248 (shr-descend dom)
230 (shr-fill-lines start (point)) 249 (shr-fill-lines start (point))
231 (shr-remove-trailing-whitespace start (point)) 250 (shr-remove-trailing-whitespace start (point))
@@ -439,8 +458,18 @@ size, and full-buffer size."
439 (with-temp-buffer 458 (with-temp-buffer
440 (let ((shr-indentation 0) 459 (let ((shr-indentation 0)
441 (shr-start nil) 460 (shr-start nil)
442 (shr-internal-width (- (window-pixel-width) 461 (shr-internal-width (- (window-body-width nil t)
443 (* (frame-fringe-width) 2)))) 462 (* 2 (frame-char-width))
463 ;; Adjust the window width for when
464 ;; the user disables the fringes,
465 ;; which causes the display engine
466 ;; usurp one coplumn for the
467 ;; continuation glyph.
468 (if (and (null shr-width)
469 (or (zerop (fringe-columns 'right))
470 (zerop (fringe-columns 'left))))
471 (* (frame-char-width) 2)
472 0))))
444 (shr-insert text) 473 (shr-insert text)
445 (buffer-string))))) 474 (buffer-string)))))
446 475
@@ -620,7 +649,9 @@ size, and full-buffer size."
620 ;; There's no breakable point, so we give it up. 649 ;; There's no breakable point, so we give it up.
621 (let (found) 650 (let (found)
622 (goto-char bp) 651 (goto-char bp)
623 (unless shr-kinsoku-shorten 652 ;; Don't overflow the window edge, even if
653 ;; shr-kinsoku-shorten is nil.
654 (unless (or shr-kinsoku-shorten (null shr-width))
624 (while (setq found (re-search-forward 655 (while (setq found (re-search-forward
625 "\\(\\c>\\)\\| \\|\\c<\\|\\c|" 656 "\\(\\c>\\)\\| \\|\\c<\\|\\c|"
626 (line-end-position) 'move))) 657 (line-end-position) 'move)))
@@ -632,9 +663,12 @@ size, and full-buffer size."
632 ;; Don't put kinsoku-bol characters at the beginning of a line, 663 ;; Don't put kinsoku-bol characters at the beginning of a line,
633 ;; or kinsoku-eol characters at the end of a line. 664 ;; or kinsoku-eol characters at the end of a line.
634 (cond 665 (cond
635 (shr-kinsoku-shorten 666 ;; Don't overflow the window edge, even if shr-kinsoku-shorten
667 ;; is nil.
668 ((or shr-kinsoku-shorten (null shr-width))
636 (while (and (not (memq (preceding-char) (list ?\C-@ ?\n ? ))) 669 (while (and (not (memq (preceding-char) (list ?\C-@ ?\n ? )))
637 (shr-char-kinsoku-eol-p (preceding-char))) 670 (or (shr-char-kinsoku-eol-p (preceding-char))
671 (shr-char-kinsoku-bol-p (following-char))))
638 (backward-char 1)) 672 (backward-char 1))
639 (when (setq failed (<= (point) start)) 673 (when (setq failed (<= (point) start))
640 ;; There's no breakable point that doesn't violate kinsoku, 674 ;; There's no breakable point that doesn't violate kinsoku,
@@ -1042,7 +1076,7 @@ ones, in case fg and bg are nil."
1042 (shr-color-visible bg fg))))))) 1076 (shr-color-visible bg fg)))))))
1043 1077
1044(defun shr-colorize-region (start end fg &optional bg) 1078(defun shr-colorize-region (start end fg &optional bg)
1045 (when (or fg bg) 1079 (when (and (or fg bg) (>= (display-color-cells) 88))
1046 (let ((new-colors (shr-color-check fg bg))) 1080 (let ((new-colors (shr-color-check fg bg)))
1047 (when new-colors 1081 (when new-colors
1048 (when fg 1082 (when fg
@@ -2050,8 +2084,4 @@ The preference is a float determined from `shr-prefer-media-type'."
2050 2084
2051(provide 'shr) 2085(provide 'shr)
2052 2086
2053;; Local Variables:
2054;; coding: utf-8
2055;; End:
2056
2057;;; shr.el ends here 2087;;; shr.el ends here
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 9848325e45a..e6451956dc4 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -105,6 +105,12 @@
105 (unless (boundp 'remote-file-name-inhibit-cache) 105 (unless (boundp 'remote-file-name-inhibit-cache)
106 (defvar remote-file-name-inhibit-cache nil)) 106 (defvar remote-file-name-inhibit-cache nil))
107 107
108 ;; `directory-listing-before-filename-regexp' does not exist in
109 ;; XEmacs. Since we use it only in tramp-adb.el, it doesn't harm to
110 ;; declare it here.
111 (unless (boundp 'directory-listing-before-filename-regexp)
112 (defvar directory-listing-before-filename-regexp nil))
113
108 ;; For not existing functions, or functions with a changed argument 114 ;; For not existing functions, or functions with a changed argument
109 ;; list, there are compiler warnings. We want to avoid them in 115 ;; list, there are compiler warnings. We want to avoid them in
110 ;; cases we know what we do. 116 ;; cases we know what we do.
@@ -122,16 +128,6 @@
122 ;; `tramp-handle-*' functions, because this would bypass the locking 128 ;; `tramp-handle-*' functions, because this would bypass the locking
123 ;; mechanism. 129 ;; mechanism.
124 130
125 ;; `file-remote-p' has been introduced with Emacs 22. The version
126 ;; of XEmacs is not a magic file name function (yet).
127 (unless (fboundp 'file-remote-p)
128 (defalias 'file-remote-p
129 (lambda (file &optional identification connected)
130 (when (tramp-tramp-file-p file)
131 (tramp-compat-funcall
132 'tramp-file-name-handler
133 'file-remote-p file identification connected)))))
134
135 ;; `process-file' does not exist in XEmacs. 131 ;; `process-file' does not exist in XEmacs.
136 (unless (fboundp 'process-file) 132 (unless (fboundp 'process-file)
137 (defalias 'process-file 133 (defalias 'process-file
@@ -187,7 +183,11 @@
187 (lambda () 183 (lambda ()
188 (ad-remove-advice 184 (ad-remove-advice
189 'file-expand-wildcards 'around 'tramp-advice-file-expand-wildcards) 185 'file-expand-wildcards 'around 'tramp-advice-file-expand-wildcards)
190 (ad-activate 'file-expand-wildcards))))) 186 (ad-activate 'file-expand-wildcards))))
187
188 ;; `redisplay' does not exist in XEmacs.
189 (unless (fboundp 'redisplay)
190 (defalias 'redisplay 'ignore)))
191 191
192;; `with-temp-message' does not exist in XEmacs. 192;; `with-temp-message' does not exist in XEmacs.
193(if (fboundp 'with-temp-message) 193(if (fboundp 'with-temp-message)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index fbb8c8a349e..df64f49e1e6 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4005,7 +4005,7 @@ be granted."
4005 (or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp")))) 4005 (or (tramp-get-method-parameter vec 'tramp-tmpdir) "/tmp"))))
4006 (with-tramp-connection-property vec "tmpdir" 4006 (with-tramp-connection-property vec "tmpdir"
4007 (or (and (file-directory-p dir) (file-writable-p dir) 4007 (or (and (file-directory-p dir) (file-writable-p dir)
4008 (file-remote-p dir 'localname)) 4008 (tramp-file-name-handler 'file-remote-p dir 'localname))
4009 (tramp-error vec 'file-error "Directory %s not accessible" dir))) 4009 (tramp-error vec 'file-error "Directory %s not accessible" dir)))
4010 dir)) 4010 dir))
4011 4011
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index ab671204e32..5c42f3a828a 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -38,11 +38,14 @@
38(defconst tramp-bug-report-address "tramp-devel@gnu.org" 38(defconst tramp-bug-report-address "tramp-devel@gnu.org"
39 "Email address to send bug reports to.") 39 "Email address to send bug reports to.")
40 40
41;; `locate-dominating-file' does not exist in XEmacs. But it is not used here.
42(autoload 'locate-dominating-file "files")
43(autoload 'tramp-compat-replace-regexp-in-string "tramp-compat")
44
41(defun tramp-repository-get-version () 45(defun tramp-repository-get-version ()
42 "Try to return as a string the repository revision of the Tramp sources." 46 "Try to return as a string the repository revision of the Tramp sources."
43 (unless (featurep 'xemacs) 47 (unless (featurep 'xemacs)
44 (let ((dir 48 (let ((dir (locate-dominating-file (locate-library "tramp") ".git")))
45 (funcall 'locate-dominating-file (locate-library "tramp") ".git")))
46 (when dir 49 (when dir
47 (with-temp-buffer 50 (with-temp-buffer
48 (let ((default-directory (file-name-as-directory dir))) 51 (let ((default-directory (file-name-as-directory dir)))
diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el
index 358d0fc4bbe..3df786e1f2b 100644
--- a/lisp/obsolete/iso-insert.el
+++ b/lisp/obsolete/iso-insert.el
@@ -1,4 +1,4 @@
1;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: utf-8;-*- 1;;; iso-insert.el --- insert functions for ISO 8859/1
2 2
3;; Copyright (C) 1987, 1994, 2001-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1987, 1994, 2001-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 0258f1e4e4a..a07b381d057 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,4 +1,4 @@
1;;; 5x5.el --- simple little puzzle game -*- coding: utf-8 -*- 1;;; 5x5.el --- simple little puzzle game
2 2
3;; Copyright (C) 1999-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el
index 1e06f1ba9de..4dc4c774550 100644
--- a/lisp/play/bubbles.el
+++ b/lisp/play/bubbles.el
@@ -1,4 +1,4 @@
1;;; bubbles.el --- Puzzle game for Emacs -*- coding: utf-8 -*- 1;;; bubbles.el --- Puzzle game for Emacs
2 2
3;; Copyright (C) 2007-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2007-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index 62a8fe4bb0b..30e8357e86a 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1,4 +1,4 @@
1;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: utf-8; -*- 1;;; handwrite.el --- turns your emacs buffer into a handwritten document
2 2
3;; Copyright (C) 1996, 2001-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1996, 2001-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index bbd3e6bc970..e35147dceb4 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,4 +1,4 @@
1;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*- 1;;; morse.el --- convert text to morse code and back
2 2
3;; Copyright (C) 1995, 2001-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1995, 2001-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/progmodes/cmacexp.el b/lisp/progmodes/cmacexp.el
index 0f5b1bb8c6a..9953cae2bef 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."
405 (kill-buffer outbuf)))) 405 (kill-buffer outbuf))))
406 406
407;;; cmacexp.el ends here 407;;; cmacexp.el ends here
408
409;; Local Variables:
410;; coding: utf-8
411;; End:
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9cb367aa633..9e2d625a4d4 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))
145 " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1) 145 " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1)
146 146
147 (ant 147 (ant
148 "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\ 148 "^[ \t]*\\[[^] \n]+\\][ \t]*\\(\\(?:[A-Za-z]:\\\\\\)?[^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\
149\\( warning\\)?" 1 (2 . 4) (3 . 5) (6)) 149\\( warning\\)?" 1 (2 . 4) (3 . 5) (6))
150 150
151 (bash 151 (bash
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 0ac59e1a1ea..5c938fd1a93 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -2382,8 +2382,4 @@ escape character."
2382 2382
2383(provide 'f90) 2383(provide 'f90)
2384 2384
2385;; Local Variables:
2386;; coding: utf-8
2387;; End:
2388
2389;;; f90.el ends here 2385;;; f90.el ends here
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 3860c81065d..4bee7c1dfa2 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."
2315; list ==> 2315; list ==>
2316; "[]" | "[" value ( "," value )* "]" | "[" result ( "," result )* "]" 2316; "[]" | "[" value ( "," value )* "]" | "[" result ( "," result )* "]"
2317 2317
2318(defcustom gdb-mi-decode-strings nil
2319 "When non-nil, decode octal escapes in GDB output into non-ASCII text.
2320
2321If the value is a coding-system, use that coding-system to decode
2322the bytes reconstructed from octal escapes. Any other non-nil value
2323means to decode using the coding-system set for the GDB process.
2324
2325Warning: setting this non-nil might mangle strings reported by GDB
2326that have literal substrings which match the \\nnn octal escape
2327patterns, where nnn is an octal number between 200 and 377. So
2328we only recommend to set this variable non-nil if the program you
2329are debugging really reports non-ASCII text, or some of its source
2330file names include non-ASCII characters."
2331 :type '(choice
2332 (const :tag "Don't decode" nil)
2333 (const :tag "Decode using default coding-system" t)
2334 (coding-system :tag "Decode using this coding-system"))
2335 :group 'gdb
2336 :version "25.1")
2337
2338;; The idea of the following function was suggested
2339;; by Kenichi Handa <handa@gnu.org>.
2340;;
2341;; FIXME: This is fragile: it relies on the assumption that all the
2342;; non-ASCII strings output by GDB, including names of the source
2343;; files, values of string variables in the inferior, etc., are all
2344;; encoded in the same encoding. It also assumes that the \nnn
2345;; sequences are not split between chunks of output of the GDB process
2346;; due to buffering, and arrive together. Finally, if some string
2347;; included literal \nnn strings (as opposed to non-ASCII characters
2348;; converted by by GDB/MI to octal escapes), this decoding will mangle
2349;; those strings. When/if GDB acquires the ability to not
2350;; escape-protect non-ASCII characters in its MI output, this kludge
2351;; should be removed.
2352(defun gdb-mi-decode (string)
2353 "Decode octal escapes in MI output STRING into multibyte text."
2354 (let ((coding
2355 (if (coding-system-p gdb-mi-decode-strings)
2356 gdb-mi-decode-strings
2357 (with-current-buffer
2358 (gdb-get-buffer-create 'gdb-partial-output-buffer)
2359 buffer-file-coding-system))))
2360 (with-temp-buffer
2361 (set-buffer-multibyte nil)
2362 (prin1 string (current-buffer))
2363 (goto-char (point-min))
2364 ;; prin1 quotes the octal escapes as well, which interferes with
2365 ;; their interpretation by 'read' below. Remove the extra
2366 ;; backslashes to countermand that.
2367 (while (re-search-forward "\\\\\\(\\\\[2-3][0-7][0-7]\\)" nil t)
2368 (replace-match "\\1" nil nil))
2369 (goto-char (point-min))
2370 (decode-coding-string (read (current-buffer)) coding))))
2318 2371
2319(defun gud-gdbmi-marker-filter (string) 2372(defun gud-gdbmi-marker-filter (string)
2320 "Filter GDB/MI output." 2373 "Filter GDB/MI output."
2321 2374
2375 ;; If required, decode non-ASCII text encoded with octal escapes.
2376 (or (null gdb-mi-decode-strings)
2377 (setq string (gdb-mi-decode string)))
2378
2322 ;; Record transactions if logging is enabled. 2379 ;; Record transactions if logging is enabled.
2323 (when gdb-enable-debug 2380 (when gdb-enable-debug
2324 (push (cons 'recv string) gdb-debug-log) 2381 (push (cons 'recv string) gdb-debug-log)
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 3240ee8a0db..452a42f4bc2 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -1039,16 +1039,18 @@ to specify a command to run."
1039 ;; we should use shell-quote-argument here 1039 ;; we should use shell-quote-argument here
1040 " -path " 1040 " -path "
1041 (mapconcat 1041 (mapconcat
1042 #'(lambda (ignore) 1042 'identity
1043 (cond ((stringp ignore) 1043 (delq nil (mapcar
1044 (shell-quote-argument 1044 #'(lambda (ignore)
1045 (concat "*/" ignore))) 1045 (cond ((stringp ignore)
1046 ((consp ignore) 1046 (shell-quote-argument
1047 (and (funcall (car ignore) dir) 1047 (concat "*/" ignore)))
1048 (shell-quote-argument 1048 ((consp ignore)
1049 (concat "*/" 1049 (and (funcall (car ignore) dir)
1050 (cdr ignore))))))) 1050 (shell-quote-argument
1051 grep-find-ignored-directories 1051 (concat "*/"
1052 (cdr ignore)))))))
1053 grep-find-ignored-directories))
1052 " -o -path ") 1054 " -o -path ")
1053 " " 1055 " "
1054 (shell-quote-argument ")") 1056 (shell-quote-argument ")")
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 845abc09842..dba497b1f41 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -1,4 +1,4 @@
1;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks -*- coding: utf-8 -*- 1;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks
2 2
3;; Copyright (C) 1994-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1994-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index ab994f38252..f2140159e64 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."
3571 3571
3572(provide 'js) 3572(provide 'js)
3573 3573
3574;; Local Variables:
3575;; coding: utf-8
3576;; End:
3577
3578;; js.el ends here 3574;; js.el ends here
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 70a2b1ab5ad..b54b88dccb5 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -82,25 +82,6 @@ Used in `octave-mode' and `inferior-octave-mode' buffers.")
82(defvar octave-comment-start-skip "\\(^\\|\\S<\\)\\(?:%!\\|\\s<+\\)\\s-*" 82(defvar octave-comment-start-skip "\\(^\\|\\S<\\)\\(?:%!\\|\\s<+\\)\\s-*"
83 "Octave-specific `comment-start-skip' (which see).") 83 "Octave-specific `comment-start-skip' (which see).")
84 84
85(defvar octave-begin-keywords
86 '("classdef" "do" "enumeration" "events" "for" "function" "if" "methods"
87 "parfor" "properties" "switch" "try" "unwind_protect" "while"))
88
89(defvar octave-else-keywords
90 '("case" "catch" "else" "elseif" "otherwise" "unwind_protect_cleanup"))
91
92(defvar octave-end-keywords
93 '("endclassdef" "endenumeration" "endevents" "endfor" "endfunction" "endif"
94 "endmethods" "endparfor" "endproperties" "endswitch" "end_try_catch"
95 "end_unwind_protect" "endwhile" "until" "end"))
96
97(defvar octave-reserved-words
98 (append octave-begin-keywords
99 octave-else-keywords
100 octave-end-keywords
101 '("break" "continue" "global" "persistent" "return"))
102 "Reserved words in Octave.")
103
104(defvar octave-function-header-regexp 85(defvar octave-function-header-regexp
105 (concat "^\\s-*\\_<\\(function\\)\\_>" 86 (concat "^\\s-*\\_<\\(function\\)\\_>"
106 "\\([^=;(\n]*=[ \t]*\\|[ \t]*\\)\\(\\(?:\\w\\|\\s_\\)+\\)\\_>") 87 "\\([^=;(\n]*=[ \t]*\\|[ \t]*\\)\\(\\(?:\\w\\|\\s_\\)+\\)\\_>")
@@ -231,20 +212,17 @@ parenthetical grouping.")
231(defcustom octave-font-lock-texinfo-comment t 212(defcustom octave-font-lock-texinfo-comment t
232 "Control whether to highlight the texinfo comment block." 213 "Control whether to highlight the texinfo comment block."
233 :type 'boolean 214 :type 'boolean
234 :group 'octave
235 :version "24.4") 215 :version "24.4")
236 216
237(defcustom octave-blink-matching-block t 217(defcustom octave-blink-matching-block t
238 "Control the blinking of matching Octave block keywords. 218 "Control the blinking of matching Octave block keywords.
239Non-nil means show matching begin of block when inserting a space, 219Non-nil means show matching begin of block when inserting a space,
240newline or semicolon after an else or end keyword." 220newline or semicolon after an else or end keyword."
241 :type 'boolean 221 :type 'boolean)
242 :group 'octave)
243 222
244(defcustom octave-block-offset 2 223(defcustom octave-block-offset 2
245 "Extra indentation applied to statements in Octave block structures." 224 "Extra indentation applied to statements in Octave block structures."
246 :type 'integer 225 :type 'integer)
247 :group 'octave)
248 226
249(defvar octave-block-comment-start 227(defvar octave-block-comment-start
250 (concat (make-string 2 octave-comment-char) " ") 228 (concat (make-string 2 octave-comment-char) " ")
@@ -252,8 +230,7 @@ newline or semicolon after an else or end keyword."
252 230
253(defcustom octave-continuation-offset 4 231(defcustom octave-continuation-offset 4
254 "Extra indentation applied to Octave continuation lines." 232 "Extra indentation applied to Octave continuation lines."
255 :type 'integer 233 :type 'integer)
256 :group 'octave)
257 234
258(eval-and-compile 235(eval-and-compile
259 (defconst octave-continuation-marker-regexp "\\\\\\|\\.\\.\\.")) 236 (defconst octave-continuation-marker-regexp "\\\\\\|\\.\\.\\."))
@@ -274,109 +251,135 @@ newline or semicolon after an else or end keyword."
274 251
275(defcustom octave-mode-hook nil 252(defcustom octave-mode-hook nil
276 "Hook to be run when Octave mode is started." 253 "Hook to be run when Octave mode is started."
277 :type 'hook 254 :type 'hook)
278 :group 'octave)
279 255
280(defcustom octave-send-show-buffer t 256(defcustom octave-send-show-buffer t
281 "Non-nil means display `inferior-octave-buffer' after sending to it." 257 "Non-nil means display `inferior-octave-buffer' after sending to it."
282 :type 'boolean 258 :type 'boolean)
283 :group 'octave)
284 259
285(defcustom octave-send-line-auto-forward t 260(defcustom octave-send-line-auto-forward t
286 "Control auto-forward after sending to the inferior Octave process. 261 "Control auto-forward after sending to the inferior Octave process.
287Non-nil means always go to the next Octave code line after sending." 262Non-nil means always go to the next Octave code line after sending."
288 :type 'boolean 263 :type 'boolean)
289 :group 'octave)
290 264
291(defcustom octave-send-echo-input t 265(defcustom octave-send-echo-input t
292 "Non-nil means echo input sent to the inferior Octave process." 266 "Non-nil means echo input sent to the inferior Octave process."
293 :type 'boolean 267 :type 'boolean)
294 :group 'octave)
295 268
296 269
297;;; SMIE indentation 270;;; SMIE indentation
298 271
299(require 'smie) 272(require 'smie)
300 273
301;; Use '__operators__' in Octave REPL to get a full list. 274(let-when-compile
302(defconst octave-operator-table 275 ((operator-table
303 '((assoc ";" "\n") (assoc ",") ; The doc claims they have equal precedence!? 276 ;; Use '__operators__' in Octave REPL to get a full list?
304 (right "=" "+=" "-=" "*=" "/=") 277 '((assoc ";" "\n") (assoc ",") ;The doc says they have equal precedence!?
305 (assoc "&&") (assoc "||") ; The doc claims they have equal precedence!? 278 (right "=" "+=" "-=" "*=" "/=")
306 (assoc "&") (assoc "|") ; The doc claims they have equal precedence!? 279 (assoc "&&") (assoc "||") ; The doc claims they have equal precedence!?
307 (nonassoc "<" "<=" "==" ">=" ">" "!=" "~=") 280 (assoc "&") (assoc "|") ; The doc claims they have equal precedence!?
308 (nonassoc ":") ;No idea what this is. 281 (nonassoc "<" "<=" "==" ">=" ">" "!=" "~=")
309 (assoc "+" "-") 282 (nonassoc ":") ;No idea what this is.
310 (assoc "*" "/" "\\" ".\\" ".*" "./") 283 (assoc "+" "-")
311 (nonassoc "'" ".'") 284 (assoc "*" "/" "\\" ".\\" ".*" "./")
312 (nonassoc "++" "--" "!" "~") ;And unary "+" and "-". 285 (nonassoc "'" ".'")
313 (right "^" "**" ".^" ".**") 286 (nonassoc "++" "--" "!" "~") ;And unary "+" and "-".
314 ;; It's not really an operator, but for indentation purposes it 287 (right "^" "**" ".^" ".**")
315 ;; could be convenient to treat it as one. 288 ;; It's not really an operator, but for indentation purposes it
316 (assoc "..."))) 289 ;; could be convenient to treat it as one.
317 290 (assoc "...")))
318(defconst octave-smie-bnf-table 291
319 '((atom) 292 (matchedrules
320 ;; We can't distinguish the first element in a sequence with 293 ;; We can't distinguish the first element in a sequence with
321 ;; precedence grammars, so we can't distinguish the condition 294 ;; precedence grammars, so we can't distinguish the condition
322 ;; if the `if' from the subsequent body, for example. 295 ;; of the `if' from the subsequent body, for example.
323 ;; This has to be done later in the indentation rules. 296 ;; This has to be done later in the indentation rules.
324 (exp (exp "\n" exp) 297 '(("try" exp "catch" exp "end_try_catch")
325 ;; We need to mention at least one of the operators in this part 298 ("unwind_protect" exp
326 ;; of the grammar: if the BNF and the operator table have 299 "unwind_protect_cleanup" exp "end_unwind_protect")
327 ;; no overlap, SMIE can't know how they relate. 300 ("for" exp "endfor")
328 (exp ";" exp) 301 ("parfor" exp "endparfor")
329 ("try" exp "catch" exp "end_try_catch") 302 ("while" exp "endwhile")
330 ("try" exp "catch" exp "end") 303 ("if" exp "endif")
331 ("unwind_protect" exp 304 ("if" exp "else" exp "endif")
332 "unwind_protect_cleanup" exp "end_unwind_protect") 305 ("if" exp "elseif" exp "else" exp "endif")
333 ("unwind_protect" exp "unwind_protect_cleanup" exp "end") 306 ("if" exp "elseif" exp "elseif" exp "else" exp "endif")
334 ("for" exp "endfor") 307 ("switch" exp "case" exp "endswitch")
335 ("for" exp "end") 308 ("switch" exp "case" exp "otherwise" exp "endswitch")
336 ("parfor" exp "endparfor") 309 ("switch" exp "case" exp "case" exp "otherwise" exp "endswitch")
337 ("parfor" exp "end") 310 ("function" exp "endfunction")
338 ("do" exp "until" atom) 311 ("enumeration" exp "endenumeration")
339 ("while" exp "endwhile") 312 ("events" exp "endevents")
340 ("while" exp "end") 313 ("methods" exp "endmethods")
341 ("if" exp "endif") 314 ("properties" exp "endproperties")
342 ("if" exp "else" exp "endif") 315 ("classdef" exp "endclassdef")
343 ("if" exp "elseif" exp "else" exp "endif") 316 ))
344 ("if" exp "elseif" exp "elseif" exp "else" exp "endif") 317
345 ("if" exp "elseif" exp "elseif" exp "else" exp "end") 318 (bnf-table
346 ("switch" exp "case" exp "endswitch") 319 `((atom)
347 ("switch" exp "case" exp "otherwise" exp "endswitch") 320 ;; FIXME: We don't parse these declarations correctly since
348 ("switch" exp "case" exp "case" exp "otherwise" exp "endswitch") 321 ;; SMIE *really* likes to parse "a b = 2 c" as "(a b) = (2 c)".
349 ("switch" exp "case" exp "case" exp "otherwise" exp "end") 322 ;; IOW to do it right, we'd need to change octave-smie-*ward-token
350 ("function" exp "endfunction") 323 ;; so that the spaces between vars in var-decls are lexed as
351 ("function" exp "end") 324 ;; something like ",".
352 ("enumeration" exp "endenumeration") 325 ;; Doesn't seem worth the trouble/slowdown for now.
353 ("enumeration" exp "end") 326 ;; We could hack smie-rules so as to work around the bad parse,
354 ("events" exp "endevents") 327 ;; but even that doesn't seem worth the trouble.
355 ("events" exp "end") 328 (var-decls (atom "=" atom)) ;; (var-decls "," var-decls)
356 ("methods" exp "endmethods") 329 (single-exp (atom "=" atom))
357 ("methods" exp "end") 330 (exp (exp "\n" exp)
358 ("properties" exp "endproperties") 331 ;; We need to mention at least one of the operators in this part
359 ("properties" exp "end") 332 ;; of the grammar: if the BNF and the operator table have
360 ("classdef" exp "endclassdef") 333 ;; no overlap, SMIE can't know how they relate.
361 ("classdef" exp "end")) 334 (exp ";" exp)
362 ;; (fundesc (atom "=" atom)) 335 ("do" exp "until" single-exp)
363 )) 336 ,@matchedrules
337 ;; For every rule that ends in "endfoo", add a corresponding
338 ;; rule which uses "end" instead.
339 ,@(mapcar (lambda (rule) (nconc (butlast rule) '("end")))
340 matchedrules)
341 ("global" var-decls) ("persistent" var-decls)
342 ;; These aren't super-important, but having them here
343 ;; makes it easier to extract all keywords.
344 ("break") ("continue") ("return")
345 ;; The following rules do not correspond to valid code AFAIK,
346 ;; but they lead to a grammar that degrades more gracefully
347 ;; on incomplete/incorrect code. It also helps us in
348 ;; computing octave--block-offset-keywords.
349 ("try" exp "end") ("unwind_protect" exp "end")
350 )
351 ;; (fundesc (atom "=" atom))
352 )))
364 353
365(defconst octave-smie-grammar 354(defconst octave-smie-grammar
366 (smie-prec2->grammar 355 (eval-when-compile
367 (smie-merge-prec2s 356 (smie-prec2->grammar
368 (smie-bnf->prec2 octave-smie-bnf-table 357 (smie-merge-prec2s
369 '((assoc "\n" ";"))) 358 (smie-bnf->prec2 bnf-table '((assoc "\n" ";")))
359 (smie-precs->prec2 operator-table)))))
370 360
371 (smie-precs->prec2 octave-operator-table)))) 361(defconst octave-operator-regexp
362 (eval-when-compile
363 (regexp-opt (remove "\n" (apply #'append
364 (mapcar #'cdr operator-table)))))))
372 365
373;; Tokenizing needs to be refined so that ";;" is treated as two 366;; Tokenizing needs to be refined so that ";;" is treated as two
374;; tokens and also so as to recognize the \n separator (and 367;; tokens and also so as to recognize the \n separator (and
375;; corresponding continuation lines). 368;; corresponding continuation lines).
376 369
377(defconst octave-operator-regexp 370(defun octave-smie--funcall-p ()
378 (regexp-opt (remove "\n" (apply 'append 371 "Return non-nil if we're in an expression context. Moves point."
379 (mapcar 'cdr octave-operator-table))))) 372 (looking-at "[ \t]*("))
373
374(defun octave-smie--end-index-p ()
375 (let ((ppss (syntax-ppss)))
376 (and (nth 1 ppss)
377 (memq (char-after (nth 1 ppss)) '(?\( ?\[ ?\{)))))
378
379(defun octave-smie--in-parens-p ()
380 (let ((ppss (syntax-ppss)))
381 (and (nth 1 ppss)
382 (eq ?\( (char-after (nth 1 ppss))))))
380 383
381(defun octave-smie-backward-token () 384(defun octave-smie-backward-token ()
382 (let ((pos (point))) 385 (let ((pos (point)))
@@ -390,10 +393,7 @@ Non-nil means always go to the next Octave code line after sending."
390 (forward-comment (- (point))) 393 (forward-comment (- (point)))
391 nil) 394 nil)
392 t) 395 t)
393 ;; Ignore it if it's within parentheses. 396 (not (octave-smie--in-parens-p)))
394 (let ((ppss (syntax-ppss)))
395 (not (and (nth 1 ppss)
396 (eq ?\( (char-after (nth 1 ppss)))))))
397 (skip-chars-forward " \t") 397 (skip-chars-forward " \t")
398 ;; Why bother distinguishing \n and ;? 398 ;; Why bother distinguishing \n and ;?
399 ";") ;;"\n" 399 ";") ;;"\n"
@@ -403,7 +403,15 @@ Non-nil means always go to the next Octave code line after sending."
403 (goto-char (match-beginning 0)) 403 (goto-char (match-beginning 0))
404 (match-string-no-properties 0)) 404 (match-string-no-properties 0))
405 (t 405 (t
406 (smie-default-backward-token))))) 406 (let ((tok (smie-default-backward-token)))
407 (cond
408 ((equal tok "enumeration")
409 (if (save-excursion (smie-default-forward-token)
410 (octave-smie--funcall-p))
411 "enumeration (function)"
412 tok))
413 ((equal tok "end") (if (octave-smie--end-index-p) "end (index)" tok))
414 (t tok)))))))
407 415
408(defun octave-smie-forward-token () 416(defun octave-smie-forward-token ()
409 (skip-chars-forward " \t") 417 (skip-chars-forward " \t")
@@ -417,10 +425,7 @@ Non-nil means always go to the next Octave code line after sending."
417 (not (or (save-excursion (skip-chars-backward " \t") 425 (not (or (save-excursion (skip-chars-backward " \t")
418 ;; Only add implicit ; when needed. 426 ;; Only add implicit ; when needed.
419 (or (bolp) (eq (char-before) ?\;))) 427 (or (bolp) (eq (char-before) ?\;)))
420 ;; Ignore it if it's within parentheses. 428 (octave-smie--in-parens-p))))
421 (let ((ppss (syntax-ppss)))
422 (and (nth 1 ppss)
423 (eq ?\( (char-after (nth 1 ppss))))))))
424 (if (eolp) (forward-char 1) (forward-comment 1)) 429 (if (eolp) (forward-char 1) (forward-comment 1))
425 ;; Why bother distinguishing \n and ;? 430 ;; Why bother distinguishing \n and ;?
426 ";") ;;"\n" 431 ";") ;;"\n"
@@ -436,7 +441,25 @@ Non-nil means always go to the next Octave code line after sending."
436 (goto-char (match-end 0)) 441 (goto-char (match-end 0))
437 (match-string-no-properties 0)) 442 (match-string-no-properties 0))
438 (t 443 (t
439 (smie-default-forward-token)))) 444 (let ((tok (smie-default-forward-token)))
445 (cond
446 ((equal tok "enumeration")
447 (if (octave-smie--funcall-p)
448 "enumeration (function)"
449 tok))
450 ((equal tok "end") (if (octave-smie--end-index-p) "end (index)" tok))
451 (t tok))))))
452
453(defconst octave--block-offset-keywords
454 (let* ((end-prec (nth 1 (assoc "end" octave-smie-grammar)))
455 (end-matchers
456 (delq nil
457 (mapcar (lambda (x) (if (eq end-prec (nth 2 x)) (car x)))
458 octave-smie-grammar))))
459 ;; Not sure if it would harm to keep "switch", but the previous code
460 ;; excluded it, presumably because there shouldn't be any code on
461 ;; the lines between "switch" and "case".
462 (delete "switch" end-matchers)))
440 463
441(defun octave-smie-rules (kind token) 464(defun octave-smie-rules (kind token)
442 (pcase (cons kind token) 465 (pcase (cons kind token)
@@ -445,15 +468,12 @@ Non-nil means always go to the next Octave code line after sending."
445 ;; - changes to octave-block-offset wouldn't take effect immediately. 468 ;; - changes to octave-block-offset wouldn't take effect immediately.
446 ;; - edebug wouldn't show the use of this variable. 469 ;; - edebug wouldn't show the use of this variable.
447 (`(:elem . basic) octave-block-offset) 470 (`(:elem . basic) octave-block-offset)
471 (`(:list-intro . ,(or "global" "persistent")) t)
448 ;; Since "case" is in the same BNF rules as switch..end, SMIE by default 472 ;; Since "case" is in the same BNF rules as switch..end, SMIE by default
449 ;; aligns it with "switch". 473 ;; aligns it with "switch".
450 (`(:before . "case") (if (not (smie-rule-sibling-p)) octave-block-offset)) 474 (`(:before . "case") (if (not (smie-rule-sibling-p)) octave-block-offset))
451 (`(:after . ";") 475 (`(:after . ";")
452 (if (smie-rule-parent-p "classdef" "events" "enumeration" "function" "if" 476 (if (apply #'smie-rule-parent-p octave--block-offset-keywords)
453 "while" "else" "elseif" "for" "parfor"
454 "properties" "methods" "otherwise" "case"
455 "try" "catch" "unwind_protect"
456 "unwind_protect_cleanup")
457 (smie-rule-parent octave-block-offset) 477 (smie-rule-parent octave-block-offset)
458 ;; For (invalid) code between switch and case. 478 ;; For (invalid) code between switch and case.
459 ;; (if (smie-rule-parent-p "switch") 4) 479 ;; (if (smie-rule-parent-p "switch") 4)
@@ -473,28 +493,33 @@ Non-nil means always go to the next Octave code line after sending."
473 (comment-choose-indent))))) 493 (comment-choose-indent)))))
474 494
475 495
496(defvar octave-reserved-words
497 (delq nil
498 (mapcar (lambda (x)
499 (setq x (car x))
500 (and (stringp x) (string-match "\\`[[:alpha:]]" x) x))
501 octave-smie-grammar))
502 "Reserved words in Octave.")
503
476(defvar octave-font-lock-keywords 504(defvar octave-font-lock-keywords
477 (list 505 (list
478 ;; Fontify all builtin keywords. 506 ;; Fontify all builtin keywords.
479 (cons (concat "\\_<\\(" 507 (cons (concat "\\_<" (regexp-opt octave-reserved-words) "\\_>")
480 (regexp-opt octave-reserved-words)
481 "\\)\\_>")
482 'font-lock-keyword-face) 508 'font-lock-keyword-face)
483 ;; Note: 'end' also serves as the last index in an indexing expression. 509 ;; Note: 'end' also serves as the last index in an indexing expression,
510 ;; and 'enumerate' is also a function.
484 ;; Ref: http://www.mathworks.com/help/matlab/ref/end.html 511 ;; Ref: http://www.mathworks.com/help/matlab/ref/end.html
512 ;; Ref: http://www.mathworks.com/help/matlab/ref/enumeration.html
485 (list (lambda (limit) 513 (list (lambda (limit)
486 (while (re-search-forward "\\_<end\\_>" limit 'move) 514 (while (re-search-forward "\\_<en\\(?:d\\|umeratio\\(n\\)\\)\\_>"
515 limit 'move)
487 (let ((beg (match-beginning 0)) 516 (let ((beg (match-beginning 0))
488 (end (match-end 0))) 517 (end (match-end 0)))
489 (unless (octave-in-string-or-comment-p) 518 (unless (octave-in-string-or-comment-p)
490 (condition-case nil 519 (when (if (match-end 1)
491 (progn 520 (octave-smie--funcall-p)
492 (goto-char beg) 521 (octave-smie--end-index-p))
493 (backward-up-list) 522 (put-text-property beg end 'face nil)))))
494 (when (memq (char-after) '(?\( ?\[ ?\{))
495 (put-text-property beg end 'face nil))
496 (goto-char end))
497 (error (goto-char end))))))
498 nil)) 523 nil))
499 ;; Fontify all operators. 524 ;; Fontify all operators.
500 (cons octave-operator-regexp 'font-lock-builtin-face) 525 (cons octave-operator-regexp 'font-lock-builtin-face)
@@ -609,27 +634,23 @@ Key bindings:
609 634
610(defcustom inferior-octave-program "octave" 635(defcustom inferior-octave-program "octave"
611 "Program invoked by `inferior-octave'." 636 "Program invoked by `inferior-octave'."
612 :type 'string 637 :type 'string)
613 :group 'octave)
614 638
615(defcustom inferior-octave-buffer "*Inferior Octave*" 639(defcustom inferior-octave-buffer "*Inferior Octave*"
616 "Name of buffer for running an inferior Octave process." 640 "Name of buffer for running an inferior Octave process."
617 :type 'string 641 :type 'string)
618 :group 'octave)
619 642
620(defcustom inferior-octave-prompt 643(defcustom inferior-octave-prompt
621 ;; For Octave >= 3.8, default is always 'octave', see 644 ;; For Octave >= 3.8, default is always 'octave', see
622 ;; http://hg.savannah.gnu.org/hgweb/octave/rev/708173343c50 645 ;; http://hg.savannah.gnu.org/hgweb/octave/rev/708173343c50
623 "\\(?:^octave\\(?:.bin\\|.exe\\)?\\(?:-[.0-9]+\\)?\\(?::[0-9]+\\)?\\|^debug\\|^\\)>+ " 646 "\\(?:^octave\\(?:.bin\\|.exe\\)?\\(?:-[.0-9]+\\)?\\(?::[0-9]+\\)?\\|^debug\\|^\\)>+ "
624 "Regexp to match prompts for the inferior Octave process." 647 "Regexp to match prompts for the inferior Octave process."
625 :type 'regexp 648 :type 'regexp)
626 :group 'octave)
627 649
628(defcustom inferior-octave-prompt-read-only comint-prompt-read-only 650(defcustom inferior-octave-prompt-read-only comint-prompt-read-only
629 "If non-nil, the Octave prompt is read only. 651 "If non-nil, the Octave prompt is read only.
630See `comint-prompt-read-only' for details." 652See `comint-prompt-read-only' for details."
631 :type 'boolean 653 :type 'boolean
632 :group 'octave
633 :version "24.4") 654 :version "24.4")
634 655
635(defcustom inferior-octave-startup-file 656(defcustom inferior-octave-startup-file
@@ -639,7 +660,6 @@ See `comint-prompt-read-only' for details."
639The contents of this file are sent to the inferior Octave process on 660The contents of this file are sent to the inferior Octave process on
640startup." 661startup."
641 :type '(choice (const :tag "None" nil) file) 662 :type '(choice (const :tag "None" nil) file)
642 :group 'octave
643 :version "24.4") 663 :version "24.4")
644 664
645(defcustom inferior-octave-startup-args '("-i" "--no-line-editing") 665(defcustom inferior-octave-startup-args '("-i" "--no-line-editing")
@@ -647,13 +667,11 @@ startup."
647For example, for suppressing the startup message and using `traditional' 667For example, for suppressing the startup message and using `traditional'
648mode, include \"-q\" and \"--traditional\"." 668mode, include \"-q\" and \"--traditional\"."
649 :type '(repeat string) 669 :type '(repeat string)
650 :group 'octave
651 :version "24.4") 670 :version "24.4")
652 671
653(defcustom inferior-octave-mode-hook nil 672(defcustom inferior-octave-mode-hook nil
654 "Hook to be run when Inferior Octave mode is started." 673 "Hook to be run when Inferior Octave mode is started."
655 :type 'hook 674 :type 'hook)
656 :group 'octave)
657 675
658(defcustom inferior-octave-error-regexp-alist 676(defcustom inferior-octave-error-regexp-alist
659 '(("error:\\s-*\\(.*?\\) at line \\([0-9]+\\), column \\([0-9]+\\)" 677 '(("error:\\s-*\\(.*?\\) at line \\([0-9]+\\), column \\([0-9]+\\)"
@@ -663,8 +681,7 @@ mode, include \"-q\" and \"--traditional\"."
663 "Value for `compilation-error-regexp-alist' in inferior octave." 681 "Value for `compilation-error-regexp-alist' in inferior octave."
664 :version "24.4" 682 :version "24.4"
665 :type '(repeat (choice (symbol :tag "Predefined symbol") 683 :type '(repeat (choice (symbol :tag "Predefined symbol")
666 (sexp :tag "Error specification"))) 684 (sexp :tag "Error specification"))))
667 :group 'octave)
668 685
669(defvar inferior-octave-compilation-font-lock-keywords 686(defvar inferior-octave-compilation-font-lock-keywords
670 '(("\\_<PASS\\_>" . compilation-info-face) 687 '(("\\_<PASS\\_>" . compilation-info-face)
@@ -995,7 +1012,6 @@ directory and makes this the current buffer's default directory."
995(defcustom inferior-octave-minimal-columns 80 1012(defcustom inferior-octave-minimal-columns 80
996 "The minimal column width for the inferior Octave process." 1013 "The minimal column width for the inferior Octave process."
997 :type 'integer 1014 :type 'integer
998 :group 'octave
999 :version "24.4") 1015 :version "24.4")
1000 1016
1001(defvar inferior-octave-last-column-width nil) 1017(defvar inferior-octave-last-column-width nil)
@@ -1180,8 +1196,7 @@ q: Don't fix\n" func file))
1180 1196
1181(defface octave-function-comment-block 1197(defface octave-function-comment-block
1182 '((t (:inherit font-lock-doc-face))) 1198 '((t (:inherit font-lock-doc-face)))
1183 "Face used to highlight function comment block." 1199 "Face used to highlight function comment block.")
1184 :group 'octave)
1185 1200
1186(eval-when-compile (require 'texinfo)) 1201(eval-when-compile (require 'texinfo))
1187 1202
@@ -1602,7 +1617,6 @@ code line."
1602 :type '(choice (const :tag "Automatic" auto) 1617 :type '(choice (const :tag "Automatic" auto)
1603 (const :tag "One Line" oneline) 1618 (const :tag "One Line" oneline)
1604 (const :tag "Multi Line" multiline)) 1619 (const :tag "Multi Line" multiline))
1605 :group 'octave
1606 :version "24.4") 1620 :version "24.4")
1607 1621
1608;; (FN SIGNATURE1 SIGNATURE2 ...) 1622;; (FN SIGNATURE1 SIGNATURE2 ...)
@@ -1661,7 +1675,6 @@ code line."
1661(defcustom octave-help-buffer "*Octave Help*" 1675(defcustom octave-help-buffer "*Octave Help*"
1662 "Buffer name for `octave-help'." 1676 "Buffer name for `octave-help'."
1663 :type 'string 1677 :type 'string
1664 :group 'octave
1665 :version "24.4") 1678 :version "24.4")
1666 1679
1667;; Used in a mode derived from help-mode. 1680;; Used in a mode derived from help-mode.
@@ -1786,7 +1799,6 @@ sentence."
1786 "A list of directories for Octave sources. 1799 "A list of directories for Octave sources.
1787If the environment variable OCTAVE_SRCDIR is set, it is searched first." 1800If the environment variable OCTAVE_SRCDIR is set, it is searched first."
1788 :type '(repeat directory) 1801 :type '(repeat directory)
1789 :group 'octave
1790 :version "24.4") 1802 :version "24.4")
1791 1803
1792(defun octave-source-directories () 1804(defun octave-source-directories ()
diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index f1aa35f2871..6696356a2dc 100644
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -29,7 +29,8 @@
29 29
30;;; Code: 30;;; Code:
31 31
32(eval-when-compile (require 'cl-lib)) 32(eval-when-compile (require 'cl-lib)
33 (require 'subr-x))
33 34
34(defgroup prog-mode nil 35(defgroup prog-mode nil
35 "Generic programming mode, from which others derive." 36 "Generic programming mode, from which others derive."
@@ -161,13 +162,20 @@ Regexp match data 0 points to the chars."
161 (let ((start (match-beginning 0)) 162 (let ((start (match-beginning 0))
162 (end (match-end 0)) 163 (end (match-end 0))
163 (match (match-string 0))) 164 (match (match-string 0)))
164 (if (funcall prettify-symbols-compose-predicate start end match) 165 (if (and (not (equal prettify-symbols--current-symbol-bounds (list start end)))
166 (funcall prettify-symbols-compose-predicate start end match))
165 ;; That's a symbol alright, so add the composition. 167 ;; That's a symbol alright, so add the composition.
166 (compose-region start end (cdr (assoc match alist))) 168 (with-silent-modifications
169 (compose-region start end (cdr (assoc match alist)))
170 (add-text-properties
171 start end
172 `(prettify-symbols-start ,start prettify-symbols-end ,end)))
167 ;; No composition for you. Let's actually remove any 173 ;; No composition for you. Let's actually remove any
168 ;; composition we may have added earlier and which is now 174 ;; composition we may have added earlier and which is now
169 ;; incorrect. 175 ;; incorrect.
170 (remove-text-properties start end '(composition)))) 176 (remove-text-properties start end '(composition
177 prettify-symbols-start
178 prettify-symbols-end))))
171 ;; Return nil because we're not adding any face property. 179 ;; Return nil because we're not adding any face property.
172 nil) 180 nil)
173 181
@@ -179,6 +187,46 @@ Regexp match data 0 points to the chars."
179 187
180(defvar-local prettify-symbols--keywords nil) 188(defvar-local prettify-symbols--keywords nil)
181 189
190(defvar-local prettify-symbols--current-symbol-bounds nil)
191
192(defcustom prettify-symbols-unprettify-at-point nil
193 "If non-nil, show the non-prettified version of a symbol when point is on it.
194If set to the symbol `right-edge', also unprettify if point
195is immediately after the symbol. The prettification will be
196reapplied as soon as point moves away from the symbol. If
197set to nil, the prettification persists even when point is
198on the symbol."
199 :type '(choice (const :tag "Never unprettify" nil)
200 (const :tag "Unprettify when point is inside" t)
201 (const :tag "Unprettify when point is inside or at right edge" right-edge))
202 :group 'prog-mode)
203
204(defun prettify-symbols--post-command-hook ()
205 (cl-labels ((get-prop-as-list
206 (prop)
207 (remove nil
208 (list (get-text-property (point) prop)
209 (when (and (eq prettify-symbols-unprettify-at-point 'right-edge)
210 (not (bobp)))
211 (get-text-property (1- (point)) prop))))))
212 ;; Re-apply prettification to the previous symbol.
213 (when (and prettify-symbols--current-symbol-bounds
214 (or (< (point) (car prettify-symbols--current-symbol-bounds))
215 (> (point) (cadr prettify-symbols--current-symbol-bounds))
216 (and (not (eq prettify-symbols-unprettify-at-point 'right-edge))
217 (= (point) (cadr prettify-symbols--current-symbol-bounds)))))
218 (apply #'font-lock-flush prettify-symbols--current-symbol-bounds)
219 (setq prettify-symbols--current-symbol-bounds nil))
220 ;; Unprettify the current symbol.
221 (when-let ((c (get-prop-as-list 'composition))
222 (s (get-prop-as-list 'prettify-symbols-start))
223 (e (get-prop-as-list 'prettify-symbols-end))
224 (s (apply #'min s))
225 (e (apply #'max e)))
226 (with-silent-modifications
227 (setq prettify-symbols--current-symbol-bounds (list s e))
228 (remove-text-properties s e '(composition))))))
229
182;;;###autoload 230;;;###autoload
183(define-minor-mode prettify-symbols-mode 231(define-minor-mode prettify-symbols-mode
184 "Toggle Prettify Symbols mode. 232 "Toggle Prettify Symbols mode.
@@ -205,9 +253,16 @@ support it."
205 (when (setq prettify-symbols--keywords (prettify-symbols--make-keywords)) 253 (when (setq prettify-symbols--keywords (prettify-symbols--make-keywords))
206 (font-lock-add-keywords nil prettify-symbols--keywords) 254 (font-lock-add-keywords nil prettify-symbols--keywords)
207 (setq-local font-lock-extra-managed-props 255 (setq-local font-lock-extra-managed-props
208 (cons 'composition font-lock-extra-managed-props)) 256 (append font-lock-extra-managed-props
257 '(composition
258 prettify-symbols-start
259 prettify-symbols-end)))
260 (when prettify-symbols-unprettify-at-point
261 (add-hook 'post-command-hook
262 #'prettify-symbols--post-command-hook nil t))
209 (font-lock-flush)) 263 (font-lock-flush))
210 ;; Turn off 264 ;; Turn off
265 (remove-hook 'post-command-hook #'prettify-symbols--post-command-hook t)
211 (when prettify-symbols--keywords 266 (when prettify-symbols--keywords
212 (font-lock-remove-keywords nil prettify-symbols--keywords) 267 (font-lock-remove-keywords nil prettify-symbols--keywords)
213 (setq prettify-symbols--keywords nil)) 268 (setq prettify-symbols--keywords nil))
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 3d9b0c322ab..81aeb8d0f81 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."
840 840
841(require 'smie) 841(require 'smie)
842 842
843(defconst prolog-operator-chars "-\\\\#&*+./:<=>?@\\^`~")
844
843(defun prolog-smie-forward-token () 845(defun prolog-smie-forward-token ()
844 ;; FIXME: Add support for 0'<char>, if needed after adding it to 846 ;; FIXME: Add support for 0'<char>, if needed after adding it to
845 ;; syntax-propertize-functions. 847 ;; syntax-propertize-functions.
@@ -848,7 +850,7 @@ This is really kludgy, and unneeded (i.e. obsolete) in Emacs>=24."
848 (point) 850 (point)
849 (progn (cond 851 (progn (cond
850 ((looking-at "[!;]") (forward-char 1)) 852 ((looking-at "[!;]") (forward-char 1))
851 ((not (zerop (skip-chars-forward "#&*+-./:<=>?@\\^`~")))) 853 ((not (zerop (skip-chars-forward prolog-operator-chars))))
852 ((not (zerop (skip-syntax-forward "w_'")))) 854 ((not (zerop (skip-syntax-forward "w_'"))))
853 ;; In case of non-ASCII punctuation. 855 ;; In case of non-ASCII punctuation.
854 ((not (zerop (skip-syntax-forward "."))))) 856 ((not (zerop (skip-syntax-forward ".")))))
@@ -861,8 +863,8 @@ This is really kludgy, and unneeded (i.e. obsolete) in Emacs>=24."
861 (buffer-substring-no-properties 863 (buffer-substring-no-properties
862 (point) 864 (point)
863 (progn (cond 865 (progn (cond
864 ((memq (char-before) '(?! ?\;)) (forward-char -1)) 866 ((memq (char-before) '(?! ?\; ?\,)) (forward-char -1))
865 ((not (zerop (skip-chars-backward "#&*+-./:<=>?@\\^`~")))) 867 ((not (zerop (skip-chars-backward prolog-operator-chars))))
866 ((not (zerop (skip-syntax-backward "w_'")))) 868 ((not (zerop (skip-syntax-backward "w_'"))))
867 ;; In case of non-ASCII punctuation. 869 ;; In case of non-ASCII punctuation.
868 ((not (zerop (skip-syntax-backward "."))))) 870 ((not (zerop (skip-syntax-backward ".")))))
@@ -875,12 +877,21 @@ This is really kludgy, and unneeded (i.e. obsolete) in Emacs>=24."
875 ;; manual uses precedence levels in the opposite sense (higher 877 ;; manual uses precedence levels in the opposite sense (higher
876 ;; numbers bind less tightly) than SMIE, so we use negative numbers. 878 ;; numbers bind less tightly) than SMIE, so we use negative numbers.
877 '(("." -10000 -10000) 879 '(("." -10000 -10000)
880 ("?-" nil -1200)
878 (":-" -1200 -1200) 881 (":-" -1200 -1200)
879 ("-->" -1200 -1200) 882 ("-->" -1200 -1200)
883 ("discontiguous" nil -1150)
884 ("dynamic" nil -1150)
885 ("meta_predicate" nil -1150)
886 ("module_transparent" nil -1150)
887 ("multifile" nil -1150)
888 ("public" nil -1150)
889 ("|" -1105 -1105)
880 (";" -1100 -1100) 890 (";" -1100 -1100)
891 ("*->" -1050 -1050)
881 ("->" -1050 -1050) 892 ("->" -1050 -1050)
882 ("," -1000 -1000) 893 ("," -1000 -1000)
883 ("\\+" -900 -900) 894 ("\\+" nil -900)
884 ("=" -700 -700) 895 ("=" -700 -700)
885 ("\\=" -700 -700) 896 ("\\=" -700 -700)
886 ("=.." -700 -700) 897 ("=.." -700 -700)
@@ -947,12 +958,36 @@ This is really kludgy, and unneeded (i.e. obsolete) in Emacs>=24."
947 ;; ; c) 958 ;; ; c)
948 ;; 959 ;;
949 ;; based on the space between the open paren and the "a". 960 ;; based on the space between the open paren and the "a".
950 (unless (and (smie-rule-parent-p "(") 961 (unless (and (smie-rule-parent-p "(" ";")
951 (save-excursion 962 (save-excursion
952 (smie-indent-forward-token) 963 (smie-indent-forward-token)
953 (smie-backward-sexp 'halfsexp) 964 (smie-backward-sexp 'halfsexp)
954 (not (eq ?\( (char-before))))) 965 (if (smie-rule-parent-p "(")
966 (not (eq (char-before) ?\())
967 (smie-indent-backward-token)
968 (smie-rule-bolp))))
955 prolog-indent-width)) 969 prolog-indent-width))
970 (`(:after . ";")
971 ;; Align with same-line comment as in:
972 ;; ; %% Toto
973 ;; foo
974 (and (smie-rule-bolp)
975 (looking-at ";[ \t]*\\(%\\)")
976 (let ((offset (- (save-excursion (goto-char (match-beginning 1))
977 (current-column))
978 (current-column))))
979 ;; Only do it for small offsets, since the comment may actually be
980 ;; an "end-of-line" comment at comment-column!
981 (if (<= offset prolog-indent-width) offset))))
982 (`(:after . ",")
983 ;; Special indent for:
984 ;; foopredicate(x) :- !,
985 ;; toto.
986 (and (eq (char-before) ?!)
987 (save-excursion
988 (smie-indent-backward-token) ;Skip !
989 (equal ":-" (car (smie-indent-backward-token))))
990 (smie-rule-parent prolog-indent-width)))
956 (`(:after . ,(or `":-" `"-->")) prolog-indent-width))) 991 (`(:after . ,(or `":-" `"-->")) prolog-indent-width)))
957 992
958 993
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index b641e300163..6ff12b54976 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -5123,7 +5123,6 @@ returned as is."
5123(provide 'python) 5123(provide 'python)
5124 5124
5125;; Local Variables: 5125;; Local Variables:
5126;; coding: utf-8
5127;; indent-tabs-mode: nil 5126;; indent-tabs-mode: nil
5128;; End: 5127;; End:
5129 5128
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 049c93dfae2..fbb4a90db40 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1991,9 +1991,30 @@ Does not preserve point."
1991 (t tok))))))) 1991 (t tok)))))))
1992 1992
1993(defcustom sh-indent-after-continuation t 1993(defcustom sh-indent-after-continuation t
1994 "If non-nil, try to make sure text is indented after a line continuation." 1994 "If non-nil, indent relative to the continued line's beginning.
1995 :version "24.3" 1995Continued lines can either be indented as \"one long wrapped line\" without
1996 :type 'boolean 1996paying attention to the actual syntactic structure, as in:
1997
1998 for f \
1999 in a; do \
2000 toto; \
2001 done
2002
2003or as lines that just don't have implicit semi-colons between them, as in:
2004
2005 for f \
2006 in a; do \
2007 toto; \
2008 done
2009
2010With `always' you get the former behavior whereas with nil you get the latter.
2011With t, you get the latter as long as that would indent the continuation line
2012deeper than the initial line."
2013 :version "25.1"
2014 :type '(choice
2015 (const nil :tag "Never")
2016 (const t :tag "Only if needed to make it deeper")
2017 (const always :tag "Always"))
1997 :group 'sh-indentation) 2018 :group 'sh-indentation)
1998 2019
1999(defun sh-smie--continuation-start-indent () 2020(defun sh-smie--continuation-start-indent ()
@@ -2004,24 +2025,49 @@ May return nil if the line should not be treated as continued."
2004 (unless (sh-smie--looking-back-at-continuation-p) 2025 (unless (sh-smie--looking-back-at-continuation-p)
2005 (current-indentation)))) 2026 (current-indentation))))
2006 2027
2028(defun sh-smie--indent-continuation ()
2029 (cond
2030 ((not (and sh-indent-after-continuation
2031 (save-excursion
2032 (ignore-errors
2033 (skip-chars-backward " \t")
2034 (sh-smie--looking-back-at-continuation-p)))))
2035 nil)
2036 ((eq sh-indent-after-continuation 'always)
2037 (save-excursion
2038 (forward-line -1)
2039 (if (sh-smie--looking-back-at-continuation-p)
2040 (current-indentation)
2041 (+ (current-indentation) sh-indentation))))
2042 (t
2043 ;; Just make sure a line-continuation is indented deeper.
2044 (save-excursion
2045 (let ((indent (let ((sh-indent-after-continuation nil))
2046 (smie-indent-calculate)))
2047 (max most-positive-fixnum))
2048 (if (not (numberp indent)) indent
2049 (while (progn
2050 (forward-line -1)
2051 (let ((ci (current-indentation)))
2052 (cond
2053 ;; Previous line is less indented, we're good.
2054 ((< ci indent) nil)
2055 ((sh-smie--looking-back-at-continuation-p)
2056 (setq max (min max ci))
2057 ;; Previous line is itself a continuation.
2058 ;; If it's indented like us, we're good, otherwise
2059 ;; check the line before that one.
2060 (> ci indent))
2061 (t ;Previous line is the beginning of the continued line.
2062 (setq indent (min (+ ci sh-indentation) max))
2063 nil)))))
2064 indent))))))
2065
2007(defun sh-smie-sh-rules (kind token) 2066(defun sh-smie-sh-rules (kind token)
2008 (pcase (cons kind token) 2067 (pcase (cons kind token)
2009 (`(:elem . basic) sh-indentation) 2068 (`(:elem . basic) sh-indentation)
2010 (`(:after . "case-)") (- (sh-var-value 'sh-indent-for-case-alt) 2069 (`(:after . "case-)") (- (sh-var-value 'sh-indent-for-case-alt)
2011 (sh-var-value 'sh-indent-for-case-label))) 2070 (sh-var-value 'sh-indent-for-case-label)))
2012 ((and `(:before . ,_)
2013 ;; After a line-continuation, make sure the rest is indented.
2014 (guard sh-indent-after-continuation)
2015 (guard (save-excursion
2016 (ignore-errors
2017 (skip-chars-backward " \t")
2018 (sh-smie--looking-back-at-continuation-p))))
2019 (let initial (sh-smie--continuation-start-indent))
2020 (guard (let* ((sh-indent-after-continuation nil)
2021 (indent (smie-indent-calculate)))
2022 (and (numberp indent) (numberp initial)
2023 (<= indent initial)))))
2024 `(column . ,(+ initial sh-indentation)))
2025 (`(:before . ,(or `"(" `"{" `"[" "while" "if" "for" "case")) 2071 (`(:before . ,(or `"(" `"{" `"[" "while" "if" "for" "case"))
2026 (if (not (smie-rule-prev-p "&&" "||" "|")) 2072 (if (not (smie-rule-prev-p "&&" "||" "|"))
2027 (when (smie-rule-hanging-p) 2073 (when (smie-rule-hanging-p)
@@ -2363,6 +2409,7 @@ Calls the value of `sh-set-shell-hook' if set."
2363 (if (looking-at "[ \t]*\\\\\n") 2409 (if (looking-at "[ \t]*\\\\\n")
2364 (goto-char (match-end 0)) 2410 (goto-char (match-end 0))
2365 (funcall orig)))) 2411 (funcall orig))))
2412 (add-hook 'smie-indent-functions #'sh-smie--indent-continuation nil t)
2366 (smie-setup (symbol-value (funcall mksym "grammar")) 2413 (smie-setup (symbol-value (funcall mksym "grammar"))
2367 (funcall mksym "rules") 2414 (funcall mksym "rules")
2368 :forward-token (funcall mksym "forward-token") 2415 :forward-token (funcall mksym "forward-token")
diff --git a/lisp/replace.el b/lisp/replace.el
index d84f3a24f61..3a908ac4d8d 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1,4 +1,4 @@
1;;; replace.el --- replace commands for Emacs -*- coding: utf-8 -*- 1;;; replace.el --- replace commands for Emacs
2 2
3;; Copyright (C) 1985-1987, 1992, 1994, 1996-1997, 2000-2015 Free 3;; Copyright (C) 1985-1987, 1992, 1994, 1996-1997, 2000-2015 Free
4;; Software Foundation, Inc. 4;; Software Foundation, Inc.
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 4f68909ed4c..f1b5da497c9 100644
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -775,8 +775,4 @@ Optional argument PROPS specifies other text properties to apply."
775 775
776(provide 'ruler-mode) 776(provide 'ruler-mode)
777 777
778;; Local Variables:
779;; coding: utf-8
780;; End:
781
782;;; ruler-mode.el ends here 778;;; ruler-mode.el ends here
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 69bd500fa95..67d9faca3e4 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -1,4 +1,4 @@
1;;; skeleton.el --- Lisp language extension for writing statement skeletons -*- coding: utf-8 -*- 1;;; skeleton.el --- Lisp language extension for writing statement skeletons
2 2
3;; Copyright (C) 1993-1996, 2001-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1993-1996, 2001-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/subr.el b/lisp/subr.el
index b1b363864f9..e1769074ee5 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1,4 +1,4 @@
1;;; subr.el --- basic lisp subroutines for Emacs -*- coding: utf-8; lexical-binding:t -*- 1;;; subr.el --- basic lisp subroutines for Emacs -*- lexical-binding:t -*-
2 2
3;; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2015 Free Software 3;; Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2015 Free Software
4;; Foundation, Inc. 4;; Foundation, Inc.
diff --git a/lisp/tempo.el b/lisp/tempo.el
index 6e2f978b5b7..93df15a8934 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -759,7 +759,3 @@ space bar, and looks something like this:
759(provide 'tempo) 759(provide 'tempo)
760 760
761;;; tempo.el ends here 761;;; tempo.el ends here
762
763;; Local Variables:
764;; coding: utf-8
765;; End:
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index ebd76a679a3..5eb6f115f8b 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1,4 +1,4 @@
1;;; x-win.el --- parse relevant switches and set up for X -*-coding: utf-8; lexical-binding:t -*- 1;;; x-win.el --- parse relevant switches and set up for X -*- lexical-binding:t -*-
2 2
3;; Copyright (C) 1993-1994, 2001-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1993-1994, 2001-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 770571a264e..7d81bbca7d5 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -1,4 +1,4 @@
1;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files -*- coding: utf-8 -*- 1;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files
2 2
3;; Copyright (C) 2004-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 5f2fbcda04c..a97facf5427 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1,4 +1,4 @@
1;;; fill.el --- fill commands for Emacs -*- coding: utf-8 -*- 1;;; fill.el --- fill commands for Emacs
2 2
3;; Copyright (C) 1985-1986, 1992, 1994-1997, 1999, 2001-2015 Free 3;; Copyright (C) 1985-1986, 1992, 1994-1997, 1999, 2001-2015 Free
4;; Software Foundation, Inc. 4;; Software Foundation, Inc.
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 8bcc71ed531..58c65678802 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -536,8 +536,4 @@ the current sentence with the one containing the mark."
536 (interactive "*p") 536 (interactive "*p")
537 (transpose-subr 'forward-sentence arg)) 537 (transpose-subr 'forward-sentence arg))
538 538
539;; Local Variables:
540;; coding: utf-8
541;; End:
542
543;;; paragraphs.el ends here 539;;; paragraphs.el ends here
diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el
index 99ec2916067..a5f39461498 100644
--- a/lisp/textmodes/po.el
+++ b/lisp/textmodes/po.el
@@ -1,4 +1,4 @@
1;;; po.el --- basic support of PO translation files -*- coding: utf-8; -*- 1;;; po.el --- basic support of PO translation files
2 2
3;; Copyright (C) 1995-1998, 2000-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1995-1998, 2000-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el
index 357a0938e6a..97c8af365e8 100644
--- a/lisp/textmodes/reftex-vars.el
+++ b/lisp/textmodes/reftex-vars.el
@@ -85,8 +85,9 @@
85 (supertab "Supertabular environment" 85 (supertab "Supertabular environment"
86 (("supertabular" ?t nil nil "\\tablecaption{"))) 86 (("supertabular" ?t nil nil "\\tablecaption{")))
87 87
88 (wrapfig "The wrapfigure environment" 88 (wrapfig "The wrapfig package"
89 (("wrapfigure" ?f nil nil caption))) 89 (("wrapfigure" ?f nil nil caption)
90 ("wraptable" ?t nil nil caption)))
90 91
91 (ctable "The ctable package" 92 (ctable "The ctable package"
92 (("\\ctable[]{}{}{}" ?t "tab:" "~\\ref{%s}" 1 ("table" "Tabelle")))) 93 (("\\ctable[]{}{}{}" ?t "tab:" "~\\ref{%s}" 1 ("table" "Tabelle"))))
@@ -653,7 +654,7 @@ Possible keys are sectioning macro names like `chapter', section levels
653 (string :tag "Prefix")))) 654 (string :tag "Prefix"))))
654 655
655(defcustom reftex-default-context-regexps 656(defcustom reftex-default-context-regexps
656 '((caption . "\\\\\\(rot\\)?caption\\*?[[{]") 657 '((caption . "\\\\\\(rot\\|bi\\)?\\(sub\\)?caption\\(box\\)?\\*?[[{]")
657 (item . "\\\\item\\(\\[[^]]*\\]\\)?") 658 (item . "\\\\item\\(\\[[^]]*\\]\\)?")
658 (eqnarray-like . "\\\\begin{%s}\\|\\\\\\\\") 659 (eqnarray-like . "\\\\begin{%s}\\|\\\\\\\\")
659 (alignat-like . "\\\\begin{%s}{[0-9]*}\\|\\\\\\\\")) 660 (alignat-like . "\\\\begin{%s}{[0-9]*}\\|\\\\\\\\"))
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 4c234c9a31f..7b2aabd7ea5 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."
218;; Use CVSHeader to really get information from CVS and not other version 218;; Use CVSHeader to really get information from CVS and not other version
219;; control systems. 219;; control systems.
220(defconst rst-cvs-header 220(defconst rst-cvs-header
221 "$CVSHeader: sm/rst_el/rst.el,v 1.327.2.6 2012-10-07 13:05:50 stefan Exp $") 221 "$CVSHeader: sm/rst_el/rst.el,v 1.327.2.26 2015/10/04 09:26:04 stefan Exp $")
222(defconst rst-cvs-rev 222(defconst rst-cvs-rev
223 (rst-extract-version "\\$" "CVSHeader: \\S + " "[0-9]+\\(?:\\.[0-9]+\\)+" 223 (rst-extract-version "\\$" "CVSHeader: \\S + " "[0-9]+\\(?:\\.[0-9]+\\)+"
224 " .*" rst-cvs-header "0.0") 224 " .*" rst-cvs-header "0.0")
@@ -232,22 +232,22 @@ and before TAIL-RE and DELIM-RE in VAR or DEFAULT for no match."
232;; Use LastChanged... to really get information from SVN. 232;; Use LastChanged... to really get information from SVN.
233(defconst rst-svn-rev 233(defconst rst-svn-rev
234 (rst-extract-version "\\$" "LastChangedRevision: " "[0-9]+" " " 234 (rst-extract-version "\\$" "LastChangedRevision: " "[0-9]+" " "
235 "$LastChangedRevision: 7515 $") 235 "$LastChangedRevision: 7925 $")
236 "The SVN revision of this file. 236 "The SVN revision of this file.
237SVN revision is the upstream (docutils) revision.") 237SVN revision is the upstream (docutils) revision.")
238(defconst rst-svn-timestamp 238(defconst rst-svn-timestamp
239 (rst-extract-version "\\$" "LastChangedDate: " ".+?+" " " 239 (rst-extract-version "\\$" "LastChangedDate: " ".+?+" " "
240 "$LastChangedDate: 2012-09-20 23:28:53 +0200 (Thu, 20 Sep 2012) $") 240 "$LastChangedDate: 2015-10-04 11:21:35 +0200 (Sun, 04 Oct 2015) $")
241 "The SVN time stamp of this file.") 241 "The SVN time stamp of this file.")
242 242
243;; Maintained by the release process. 243;; Maintained by the release process.
244(defconst rst-official-version 244(defconst rst-official-version
245 (rst-extract-version "%" "OfficialVersion: " "[0-9]+\\(?:\\.[0-9]+\\)+" " " 245 (rst-extract-version "%" "OfficialVersion: " "[0-9]+\\(?:\\.[0-9]+\\)+" " "
246 "%OfficialVersion: 1.4.0 %") 246 "%OfficialVersion: 1.4.1 %")
247 "Official version of the package.") 247 "Official version of the package.")
248(defconst rst-official-cvs-rev 248(defconst rst-official-cvs-rev
249 (rst-extract-version "[%$]" "Revision: " "[0-9]+\\(?:\\.[0-9]+\\)+" " " 249 (rst-extract-version "[%$]" "Revision: " "[0-9]+\\(?:\\.[0-9]+\\)+" " "
250 "%Revision: 1.327 %") 250 "%Revision: 1.327.2.25 %")
251 "CVS revision of this file in the official version.") 251 "CVS revision of this file in the official version.")
252 252
253(defconst rst-version 253(defconst rst-version
@@ -267,6 +267,7 @@ in parentheses follows the development revision and the time stamp.")
267 ("1.3.0" . "24.3") 267 ("1.3.0" . "24.3")
268 ("1.3.1" . "24.3") 268 ("1.3.1" . "24.3")
269 ("1.4.0" . "24.3") 269 ("1.4.0" . "24.3")
270 ("1.4.1" . "24.5")
270 )) 271 ))
271 272
272(unless (assoc rst-official-version rst-package-emacs-version-alist) 273(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)."
4235 4236
4236(provide 'rst) 4237(provide 'rst)
4237 4238
4238;; Local Variables:
4239;; coding: utf-8
4240;; End:
4241
4242;;; rst.el ends here 4239;;; rst.el ends here
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index bf15b2628f9..cbeded2c61b 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1,4 +1,4 @@
1;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*- 1;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands
2 2
3;; Copyright (C) 1985-1986, 1989, 1992, 1994-1999, 2001-2015 Free 3;; Copyright (C) 1985-1986, 1989, 1992, 1994-1999, 2001-2015 Free
4;; Software Foundation, Inc. 4;; Software Foundation, Inc.
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 57218177d7b..2b606ed002e 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -1,4 +1,4 @@
1;;; texinfo.el --- major mode for editing Texinfo files -*- coding: utf-8 -*- 1;;; texinfo.el --- major mode for editing Texinfo files
2 2
3;; Copyright (C) 1985, 1988-1993, 1996-1997, 2000-2015 Free Software 3;; Copyright (C) 1985, 1988-1993, 1996-1997, 2000-2015 Free Software
4;; Foundation, Inc. 4;; Foundation, Inc.
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el
index 0e645fcdd38..f1a42f2b688 100644
--- a/lisp/textmodes/tildify.el
+++ b/lisp/textmodes/tildify.el
@@ -508,9 +508,4 @@ variable will be set to the representation."
508 508
509(provide 'tildify) 509(provide 'tildify)
510 510
511
512;; Local variables:
513;; coding: utf-8
514;; End:
515
516;;; tildify.el ends here 511;;; tildify.el ends here
diff --git a/lisp/time.el b/lisp/time.el
index d35f5b93964..dec594061a4 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -1,4 +1,4 @@
1;;; time.el --- display time, load and mail indicator in mode line of Emacs -*-coding: utf-8 -*- 1;;; time.el --- display time, load and mail indicator in mode line of Emacs
2 2
3;; Copyright (C) 1985-1987, 1993-1994, 1996, 2000-2015 Free Software 3;; Copyright (C) 1985-1987, 1993-1994, 1996, 2000-2015 Free Software
4;; Foundation, Inc. 4;; Foundation, Inc.
diff --git a/lisp/vc/cvs-status.el b/lisp/vc/cvs-status.el
index dc43094796e..cf1f49cbeee 100644
--- a/lisp/vc/cvs-status.el
+++ b/lisp/vc/cvs-status.el
@@ -1,4 +1,4 @@
1;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding: utf-8; lexical-binding: t -*- 1;;; cvs-status.el --- major mode for browsing `cvs status' output -*- lexical-binding: t -*-
2 2
3;; Copyright (C) 1999-2015 Free Software Foundation, Inc. 3;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
4 4
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index e664f9fdac3..7ef425449c1 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
3348 (setq wind (ediff-get-visible-buffer-window cloned-buff)) 3348 (setq wind (ediff-get-visible-buffer-window cloned-buff))
3349 (select-window wind) 3349 (select-window wind)
3350 (delete-other-windows) 3350 (delete-other-windows)
3351 (or (mark) (push-mark))
3351 (ediff-activate-mark) 3352 (ediff-activate-mark)
3352 (split-window-vertically) 3353 (split-window-vertically)
3353 (ediff-select-lowest-window) 3354 (ediff-select-lowest-window)
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 2f0439365e8..b5570323e03 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -974,6 +974,34 @@ or BRANCH^ (where \"^\" can be repeated)."
974 (buffer-string)))) 974 (buffer-string))))
975 975
976(defun vc-git-region-history (file buffer lfrom lto) 976(defun vc-git-region-history (file buffer lfrom lto)
977 ;; The "git log" command below interprets the line numbers as applying
978 ;; to the HEAD version of the file, not to the current state of the file.
979 ;; So we need to look at all the local changes and adjust lfrom/lto
980 ;; accordingly.
981 ;; FIXME: Maybe this should be done in vc.el (i.e. for all backends), but
982 ;; since Git is the only backend to support this operation so far, it's hard
983 ;; to tell.
984 (with-temp-buffer
985 (vc-call-backend 'git 'diff file "HEAD" nil (current-buffer))
986 (goto-char (point-min))
987 (let ((last-offset 0)
988 (from-offset nil)
989 (to-offset nil))
990 (while (re-search-forward
991 "^@@ -\\([0-9]+\\),\\([0-9]+\\) \\+\\([0-9]+\\),\\([0-9]+\\) @@" nil t)
992 (let ((headno (string-to-number (match-string 1)))
993 (headcnt (string-to-number (match-string 2)))
994 (curno (string-to-number (match-string 3)))
995 (curcnt (string-to-number (match-string 4))))
996 (cl-assert (equal (- curno headno) last-offset))
997 (and (null from-offset) (> curno lfrom)
998 (setq from-offset last-offset))
999 (and (null to-offset) (> curno lto)
1000 (setq to-offset last-offset))
1001 (setq last-offset
1002 (- (+ curno curcnt) (+ headno headcnt)))))
1003 (setq lto (- lto (or to-offset last-offset)))
1004 (setq lfrom (- lfrom (or to-offset last-offset)))))
977 (vc-git-command buffer 'async nil "log" "-p" ;"--follow" ;FIXME: not supported? 1005 (vc-git-command buffer 'async nil "log" "-p" ;"--follow" ;FIXME: not supported?
978 (format "-L%d,%d:%s" lfrom lto (file-relative-name file)))) 1006 (format "-L%d,%d:%s" lfrom lto (file-relative-name file))))
979 1007
diff --git a/lisp/wdired.el b/lisp/wdired.el
index a9e1e2acc2a..8ee9a83d1d2 100644
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -849,7 +849,6 @@ Like original function but it skips read-only words."
849(provide 'wdired) 849(provide 'wdired)
850 850
851;; Local Variables: 851;; Local Variables:
852;; coding: utf-8
853;; byte-compile-dynamic: t 852;; byte-compile-dynamic: t
854;; End: 853;; End:
855 854
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 839ca8c3ac5..d45a1dcc47f 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2581,8 +2581,5 @@ It should be added buffer-locally to `write-file-functions'."
2581 2581
2582(run-hooks 'whitespace-load-hook) 2582(run-hooks 'whitespace-load-hook)
2583 2583
2584;; Local Variables:
2585;; coding: utf-8
2586;; End:
2587 2584
2588;;; whitespace.el ends here 2585;;; whitespace.el ends here
diff --git a/lisp/winner.el b/lisp/winner.el
index a05f4ba867e..3767b9f1f69 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -180,7 +180,8 @@ You may want to include buffer names such as *Help*, *Apropos*,
180 180
181 ;; Cull dead frames. 181 ;; Cull dead frames.
182 (setq winner-modified-list 182 (setq winner-modified-list
183 (cl-remove-if-not 'frame-live-p winner-modified-list)) 183 (cl-loop for frame in winner-modified-list
184 if (frame-live-p frame) collect frame))
184 185
185 (unless (or (memq (selected-frame) winner-modified-list) 186 (unless (or (memq (selected-frame) winner-modified-list)
186 (/= 0 (minibuffer-depth))) 187 (/= 0 (minibuffer-depth)))
diff --git a/lisp/woman.el b/lisp/woman.el
index 8fe1bfa0446..81319fa6a9f 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -4627,9 +4627,4 @@ logging the message."
4627 4627
4628(provide 'woman) 4628(provide 'woman)
4629 4629
4630
4631;; Local Variables:
4632;; coding: utf-8
4633;; End:
4634
4635;;; woman.el ends here 4630;;; woman.el ends here
diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index b99db489a99..8ec5dfc65c0 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -1,4 +1,4 @@
1;;; x-dnd.el --- drag and drop support for X -*- coding: utf-8 -*- 1;;; x-dnd.el --- drag and drop support for X
2 2
3;; Copyright (C) 2004-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
4 4
diff --git a/nt/INSTALL b/nt/INSTALL
index da150407b39..3bcb496cd52 100644
--- a/nt/INSTALL
+++ b/nt/INSTALL
@@ -75,6 +75,48 @@ build will run on Windows 9X and newer systems).
75 If these short instructions somehow fail, read the rest of this 75 If these short instructions somehow fail, read the rest of this
76 file. 76 file.
77 77
78* Installing Git for Windows
79
80 Skip this section if you already have Git installed and configured,
81 or if you are building from the release tarball, not from the
82 development repository.
83
84 Git for Windows is available from this download page:
85
86 https://github.com/git-for-windows/git/releases
87
88 That page offers both 32-bit and 64-bit installations; pick the one
89 suitable for your OS. In general, we recommend to install a 64-bit
90 Git if you have a 64-bit Windows system; the 32-bit Git will run on
91 64-bit Windows just fine, but might run into memory problems where
92 the 64-bit Git won't.
93
94 During Git installation, be sure to select the "Checkout as-is,
95 commit as-is" option from the "Configure line ending conversions"
96 dialog. Otherwise, Git will convert text files to DOS-style CRLF
97 end-of-line (EOL) format, which will cause subtle problems when
98 building Emacs, because MSYS tools (see below) used to build Emacs
99 use binary file I/O that preserves the CR characters that get in the
100 way of some text-processing tools, like 'makeinfo' and the commands
101 invoked by the autogen.sh script.
102
103 If you already have Git installed and configured with some other EOL
104 conversion option, you will need to reconfigure it, removing the
105 following variables from all of your .gitconfig files:
106
107 core.eol
108 core.safecrlf
109 core.autocrlf
110
111 If you cloned the Emacs directory before changing these config
112 variables, you will have to delete the repository and re-clone it
113 after the change.
114
115 The instructions for cloning the Emacs repository can be found on
116 the Emacs's Savannah project page:
117
118 https://savannah.gnu.org/projects/emacs
119
78* Installing MinGW and MSYS 120* Installing MinGW and MSYS
79 121
80 Make sure you carefully read the following two sections in their 122 Make sure you carefully read the following two sections in their
@@ -143,7 +185,7 @@ build will run on Windows 9X and newer systems).
143 optional libraries near the end of this document, before you start 185 optional libraries near the end of this document, before you start
144 the build. Also, consider installing additional MinGW packages that 186 the build. Also, consider installing additional MinGW packages that
145 are required/recommended, especially if you are building from the 187 are required/recommended, especially if you are building from the
146 repository, as described in the next section. 188 development repository, as described in the next section.
147 189
148** Installing MinGW and MSYS manually 190** Installing MinGW and MSYS manually
149 191
@@ -187,7 +229,7 @@ build will run on Windows 9X and newer systems).
187 been warned! 229 been warned!
188 230
189 Additional MinGW packages are required/recommended, especially if 231 Additional MinGW packages are required/recommended, especially if
190 you are building from the repository: 232 you are building from the development repository:
191 233
192 . Texinfo (needed to produce the Info manuals when building from 234 . Texinfo (needed to produce the Info manuals when building from
193 the repository, and for "make install") 235 the repository, and for "make install")
@@ -197,7 +239,7 @@ build will run on Windows 9X and newer systems).
197 . pkg-config (invoked by the configure script to look for optional 239 . pkg-config (invoked by the configure script to look for optional
198 packages) 240 packages)
199 241
200 Available from http://www.gtk.org/download/win32.php 242 Available from http://sourceforge.net/projects/ezwinports/files/.
201 243
202 . gzip (needed to compress files during "make install") 244 . gzip (needed to compress files during "make install")
203 245
@@ -339,7 +381,12 @@ build will run on Windows 9X and newer systems).
339 Checking for automake (need at least version 1.11)... 381 Checking for automake (need at least version 1.11)...
340 ok 382 ok
341 Your system has the required tools, running autoreconf... 383 Your system has the required tools, running autoreconf...
342 You can now run `./configure'. 384 Installing git hooks...
385 You can now run './configure'.
386
387 If the script fails because it cannot find Git, you will need to
388 arrange for the MSYS Bash's PATH to include the Git's 'bin'
389 subdirectory, where there's the git.exe executable.
343 390
344* Configuring Emacs for MinGW: 391* Configuring Emacs for MinGW:
345 392
@@ -419,7 +466,7 @@ build will run on Windows 9X and newer systems).
419 successful, will eventually produce a summary of the configuration 466 successful, will eventually produce a summary of the configuration
420 similar to this: 467 similar to this:
421 468
422 Configured for `i686-pc-mingw32'. 469 Configured for 'i686-pc-mingw32'.
423 470
424 Where should the build process find the source code? /path/to/emacs/sources 471 Where should the build process find the source code? /path/to/emacs/sources
425 What compiler should emacs be built with? gcc -std=gnu99 -O0 -g3 472 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).
577 is in the PATH or otherwise accessible and that the binaries are 624 is in the PATH or otherwise accessible and that the binaries are
578 compatible (for example, that they were built with the same compiler). 625 compatible (for example, that they were built with the same compiler).
579 626
627 To support XPM images (required for color tool-bar icons), you will
628 need the libXpm library. It is available from the ezwinports site,
629 http://sourceforge.net/projects/ezwinports/files/.
630
580 For PNG images, we recommend to use versions 1.4.x and later of 631 For PNG images, we recommend to use versions 1.4.x and later of
581 libpng, because previous versions had security issues. You can find 632 libpng, because previous versions had security issues. You can find
582 precompiled libraries and headers on the GTK download page for 633 precompiled libraries and headers on the ezwinports site.
583 Windows (http://www.gtk.org/download/win32.php for 32-bit builds and
584 http://www.gtk.org/download/win64.php for 64-bit builds). The
585 ezwinports site, http://sourceforge.net/projects/ezwinports/files/
586 also offers PNG (as well as other image libraries), which are
587 usually newer.
588 634
589 Versions 1.4.0 and later of libpng are binary incompatible with 635 Versions 1.4.0 and later of libpng are binary incompatible with
590 earlier versions, so Emacs will only look for libpng libraries which 636 earlier versions, so Emacs will only look for libpng libraries which
@@ -621,70 +667,32 @@ build will run on Windows 9X and newer systems).
621 libtiffN.dll or libtiff-N.dll or libtiff.dll. These can be found on 667 libtiffN.dll or libtiff-N.dll or libtiff.dll. These can be found on
622 the ezwinports site. 668 the ezwinports site.
623 669
624 Pre-built versions of librsvg and its dependencies can be found in 670 Pre-built versions of librsvg and its dependencies can be found
625 one of these places: 671 here:
626 672
627 1. http://sourceforge.net/projects/ezwinports/files/ 673 http://sourceforge.net/projects/ezwinports/files/
628 674
629 This site includes a minimal (as much as possible for librsvg) 675 This site includes a minimal (as much as possible for librsvg)
630 build of the library and its dependencies; it is also more 676 build of the library and its dependencies; it is also more
631 up-to-date with the latest upstream versions. However, it 677 up-to-date with the latest upstream versions. However, it
632 currently only offers 32-bit builds. For building Emacs, you 678 currently only offers 32-bit builds. For building Emacs, you need
633 need to download from this site all of the following *-bin.zip 679 to download from this site all of the following *-bin.zip
634 archives: 680 archives:
635 681
636 librsvg, gdk-pixbuf, cairo, glib 682 librsvg, gdk-pixbuf, cairo, glib
637 683
638 The 'bin' archives on this site include both header files and the 684 The 'bin' archives on this site include both header files and the
639 libraries needed for building with librsvg and for running Emacs. 685 libraries needed for building with librsvg and for running Emacs.
640 The librsvg archive includes all the shared libraries needed to 686 The librsvg archive includes all the shared libraries needed to
641 run Emacs with SVG support; the other 3 packages are required 687 run Emacs with SVG support; the other 3 packages are required
642 because the compiler needs to see their header files when 688 because the compiler needs to see their header files when building
643 building Emacs. 689 Emacs.
644
645 2. GTK project download site for Windows (see above for 2 URLs,
646 either for 32-bit builds or 64-bit builds)
647
648 This is the official Windows download site of the GTK project.
649 Its builds of librsvg are fatter, but are currently the only
650 alternative for 64-bit builds. The easiest way to obtain the
651 dependencies required for building from this site is to download
652 a pre-bundled GTK+ development environment for Windows. If you
653 would nevertheless like to download only the packages that are
654 strictly required, then, as of the time of this writing, here's
655 the list of GTK+ packages you will need:
656
657 librsvg, pango, freetype-2.4.11, freetype-2.4.2, croco, cairo,
658 glib, gdk-pixbuf, fontconfig, libpng-1.4.x, libpng-1.5.x,
659 libffi, libxml2, zlib
660
661 The GTK download page provides 2 separate archives for each
662 package: a 'bin' (binary) archive with programs and DLLs, and a
663 'dev' (development) archive with header files, import libraries,
664 and pkg-config files; download and install both archives for each
665 package you need. (Sources of each package are available in a
666 separate, 3rd archive.)
667
668 As you see, some libraries for using this site's librsvg are
669 needed in more than one version -- this is because librsvg and
670 some of its dependencies were linked against different versions
671 of those libraries, and will look only for those DLLs when you
672 invoke SVG function. So there's a bit of "DLL hell" involved
673 here, but at least in theory this should work, as each library
674 will dynamically link only against its dependencies, even if
675 another version of the same library is already loaded. In
676 particular, at least 2 different versions of libpng will have to
677 be installed on your machine. When you install these libpng
678 versions, be sure to keep the header files and the pkg-config
679 files in sync, i.e. install both the 'bin' and 'dev' archives of
680 the same libpng version together.
681 690
682 To use librsvg at runtime, ensure that librsvg and its dependencies 691 To use librsvg at runtime, ensure that librsvg and its dependencies
683 are on your PATH, or in the same directory as the emacs.exe binary. 692 are on your PATH, or in the same directory as the emacs.exe binary.
684 If you are downloading from the ezwinports site, you only need to 693 If you are downloading from the ezwinports site, you only need to
685 install a single archive, librsvg-X.Y.Z-w32-bin.zip, which includes 694 install a single archive, librsvg-X.Y.Z-w32-bin.zip, which includes
686 all the dependency DLLs. For the GTK project site, download the 695 all the dependency DLLs.
687 'bin' archives for each of the libraries mentioned above.
688 696
689 If you think you've got all the dependencies and SVG support is 697 If you think you've got all the dependencies and SVG support is
690 still not working, check your PATH for other libraries that shadow 698 still not working, check your PATH for other libraries that shadow
diff --git a/src/cmds.c b/src/cmds.c
index 7a575ae7348..ccc68911624 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -264,7 +264,7 @@ because it respects values of `delete-active-region' and `overwrite-mode'. */)
264 264
265 CHECK_NUMBER (n); 265 CHECK_NUMBER (n);
266 266
267 if (abs (XINT (n)) < 2) 267 if (eabs (XINT (n)) < 2)
268 remove_excessive_undo_boundaries (); 268 remove_excessive_undo_boundaries ();
269 269
270 pos = PT + XINT (n); 270 pos = PT + XINT (n);
diff --git a/src/coding.c b/src/coding.c
index 3fc6fb684c6..c5099a7b0b9 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6004,6 +6004,8 @@ coding_inherit_eol_type (Lisp_Object coding_system, Lisp_Object parent)
6004 6004
6005 if (NILP (coding_system)) 6005 if (NILP (coding_system))
6006 coding_system = Qraw_text; 6006 coding_system = Qraw_text;
6007 else
6008 CHECK_CODING_SYSTEM (coding_system);
6007 spec = CODING_SYSTEM_SPEC (coding_system); 6009 spec = CODING_SYSTEM_SPEC (coding_system);
6008 eol_type = AREF (spec, 2); 6010 eol_type = AREF (spec, 2);
6009 if (VECTORP (eol_type)) 6011 if (VECTORP (eol_type))
@@ -6014,6 +6016,7 @@ coding_inherit_eol_type (Lisp_Object coding_system, Lisp_Object parent)
6014 { 6016 {
6015 Lisp_Object parent_spec; 6017 Lisp_Object parent_spec;
6016 6018
6019 CHECK_CODING_SYSTEM (parent);
6017 parent_spec = CODING_SYSTEM_SPEC (parent); 6020 parent_spec = CODING_SYSTEM_SPEC (parent);
6018 parent_eol_type = AREF (parent_spec, 2); 6021 parent_eol_type = AREF (parent_spec, 2);
6019 if (VECTORP (parent_eol_type)) 6022 if (VECTORP (parent_eol_type))
diff --git a/src/dired.c b/src/dired.c
index 97736673f5d..3486e49b566 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -397,8 +397,10 @@ Returns nil if DIRECTORY contains no name starting with FILE.
397If PREDICATE is non-nil, call PREDICATE with each possible 397If PREDICATE is non-nil, call PREDICATE with each possible
398completion (in absolute form) and ignore it if PREDICATE returns nil. 398completion (in absolute form) and ignore it if PREDICATE returns nil.
399 399
400This function ignores some of the possible completions as 400This function ignores some of the possible completions as determined
401determined by the variable `completion-ignored-extensions', which see. */) 401by the variables `completion-regexp-list' and
402`completion-ignored-extensions', which see. `completion-regexp-list'
403is matched against file and directory names relative to DIRECTORY. */)
402 (Lisp_Object file, Lisp_Object directory, Lisp_Object predicate) 404 (Lisp_Object file, Lisp_Object directory, Lisp_Object predicate)
403{ 405{
404 Lisp_Object handler; 406 Lisp_Object handler;
@@ -422,7 +424,12 @@ determined by the variable `completion-ignored-extensions', which see. */)
422DEFUN ("file-name-all-completions", Ffile_name_all_completions, 424DEFUN ("file-name-all-completions", Ffile_name_all_completions,
423 Sfile_name_all_completions, 2, 2, 0, 425 Sfile_name_all_completions, 2, 2, 0,
424 doc: /* Return a list of all completions of file name FILE in directory DIRECTORY. 426 doc: /* Return a list of all completions of file name FILE in directory DIRECTORY.
425These are all file names in directory DIRECTORY which begin with FILE. */) 427These are all file names in directory DIRECTORY which begin with FILE.
428
429This function ignores some of the possible completions as determined
430by the variables `completion-regexp-list' and
431`completion-ignored-extensions', which see. `completion-regexp-list'
432is matched against file and directory names relative to DIRECTORY. */)
426 (Lisp_Object file, Lisp_Object directory) 433 (Lisp_Object file, Lisp_Object directory)
427{ 434{
428 Lisp_Object handler; 435 Lisp_Object handler;
diff --git a/src/fileio.c b/src/fileio.c
index e4b255a53ac..3155ef0edf1 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3470,7 +3470,11 @@ by calling `format-decode', which see. */)
3470 mtime = time_error_value (save_errno); 3470 mtime = time_error_value (save_errno);
3471 st.st_size = -1; 3471 st.st_size = -1;
3472 if (!NILP (Vcoding_system_for_read)) 3472 if (!NILP (Vcoding_system_for_read))
3473 Fset (Qbuffer_file_coding_system, Vcoding_system_for_read); 3473 {
3474 /* Don't let invalid values into buffer-file-coding-system. */
3475 CHECK_CODING_SYSTEM (Vcoding_system_for_read);
3476 Fset (Qbuffer_file_coding_system, Vcoding_system_for_read);
3477 }
3474 goto notfound; 3478 goto notfound;
3475 } 3479 }
3476 3480
@@ -4569,7 +4573,7 @@ choose_write_coding_system (Lisp_Object start, Lisp_Object end, Lisp_Object file
4569 if (NILP (val)) 4573 if (NILP (val))
4570 { 4574 {
4571 /* If we still have not decided a coding system, use the 4575 /* If we still have not decided a coding system, use the
4572 default value of buffer-file-coding-system. */ 4576 current buffer's value of buffer-file-coding-system. */
4573 val = BVAR (current_buffer, buffer_file_coding_system); 4577 val = BVAR (current_buffer, buffer_file_coding_system);
4574 using_default_coding = 1; 4578 using_default_coding = 1;
4575 } 4579 }
@@ -4578,6 +4582,7 @@ choose_write_coding_system (Lisp_Object start, Lisp_Object end, Lisp_Object file
4578 { 4582 {
4579 Lisp_Object spec, attrs; 4583 Lisp_Object spec, attrs;
4580 4584
4585 CHECK_CODING_SYSTEM (val);
4581 CHECK_CODING_SYSTEM_GET_SPEC (val, spec); 4586 CHECK_CODING_SYSTEM_GET_SPEC (val, spec);
4582 attrs = AREF (spec, 0); 4587 attrs = AREF (spec, 0);
4583 if (EQ (CODING_ATTR_TYPE (attrs), Qraw_text)) 4588 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
4586 4591
4587 if (!force_raw_text 4592 if (!force_raw_text
4588 && !NILP (Ffboundp (Vselect_safe_coding_system_function))) 4593 && !NILP (Ffboundp (Vselect_safe_coding_system_function)))
4589 /* Confirm that VAL can surely encode the current region. */ 4594 {
4590 val = call5 (Vselect_safe_coding_system_function, 4595 /* Confirm that VAL can surely encode the current region. */
4591 start, end, val, Qnil, filename); 4596 val = call5 (Vselect_safe_coding_system_function,
4597 start, end, val, Qnil, filename);
4598 /* As the function specified by select-safe-coding-system-function
4599 is out of our control, make sure we are not fed by bogus
4600 values. */
4601 if (!NILP (val))
4602 CHECK_CODING_SYSTEM (val);
4603 }
4592 4604
4593 /* If the decided coding-system doesn't specify end-of-line 4605 /* If the decided coding-system doesn't specify end-of-line
4594 format, we use that of 4606 format, we use that of
4595 `default-buffer-file-coding-system'. */ 4607 `default-buffer-file-coding-system'. */
4596 if (! using_default_coding 4608 if (! using_default_coding)
4597 && ! NILP (BVAR (&buffer_defaults, buffer_file_coding_system))) 4609 {
4598 val = (coding_inherit_eol_type 4610 Lisp_Object dflt = BVAR (&buffer_defaults, buffer_file_coding_system);
4599 (val, BVAR (&buffer_defaults, buffer_file_coding_system))); 4611
4612 if (! NILP (dflt))
4613 val = coding_inherit_eol_type (val, dflt);
4614 }
4600 4615
4601 /* If we decide not to encode text, use `raw-text' or one of its 4616 /* If we decide not to encode text, use `raw-text' or one of its
4602 subsidiaries. */ 4617 subsidiaries. */
diff --git a/src/font.c b/src/font.c
index ce144e78a08..a52a653d29b 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
1770 p1 = strchr (p0, '-'); 1770 p1 = strchr (p0, '-');
1771 if (! p1) 1771 if (! p1)
1772 { 1772 {
1773 AUTO_STRING (extra, ("*-*" + (len && p0[len - 1] == '*'))); 1773 AUTO_STRING (extra, (&"*-*"[len && p0[len - 1] == '*']));
1774 registry = concat2 (registry, extra); 1774 registry = concat2 (registry, extra);
1775 } 1775 }
1776 registry = Fdowncase (registry); 1776 registry = Fdowncase (registry);
diff --git a/src/frame.c b/src/frame.c
index 121c55fdb20..f1a78fbdbf8 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
3539 (f, bgcolor, Qnil); 3539 (f, bgcolor, Qnil);
3540 } 3540 }
3541 3541
3542 clear_face_cache (true); 3542 clear_face_cache (true); /* FIXME: Why of all frames? */
3543 windows_or_buffers_changed = 70; 3543 fset_redisplay (f);
3544} 3544}
3545 3545
3546 3546
diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 8b6b0a0cd2d..69f635d4115 100644
--- a/src/gfilenotify.c
+++ b/src/gfilenotify.c
@@ -195,6 +195,7 @@ will be reported only in case of the `moved' event. */)
195 195
196 /* Enable watch. */ 196 /* Enable watch. */
197 monitor = g_file_monitor (gfile, gflags, NULL, &gerror); 197 monitor = g_file_monitor (gfile, gflags, NULL, &gerror);
198 g_object_unref (gfile);
198 if (gerror) 199 if (gerror)
199 { 200 {
200 char msg[1024]; 201 char msg[1024];
diff --git a/src/macfont.m b/src/macfont.m
index 97a255bf018..fae284fad89 100644
--- a/src/macfont.m
+++ b/src/macfont.m
@@ -190,6 +190,14 @@ cfstring_create_with_string_noencode (Lisp_Object s)
190 return string; 190 return string;
191} 191}
192 192
193static CFIndex
194mac_font_get_weight (CTFontRef font)
195{
196 NSFont *nsFont = (NSFont *) font;
197
198 return [[NSFontManager sharedFontManager] weightOfFont:nsFont];
199}
200
193static CGFloat 201static CGFloat
194mac_screen_font_get_advance_width_for_glyph (ScreenFontRef font, CGGlyph glyph) 202mac_screen_font_get_advance_width_for_glyph (ScreenFontRef font, CGGlyph glyph)
195{ 203{
@@ -198,57 +206,53 @@ mac_screen_font_get_advance_width_for_glyph (ScreenFontRef font, CGGlyph glyph)
198 return advancement.width; 206 return advancement.width;
199} 207}
200 208
209#if !USE_CT_GLYPH_INFO
201static CGGlyph 210static CGGlyph
202mac_font_get_glyph_for_cid (CTFontRef font, CTCharacterCollection collection, 211mac_font_get_glyph_for_cid (CTFontRef font, CTCharacterCollection collection,
203 CGFontIndex cid) 212 CGFontIndex cid)
204{ 213{
205#if USE_CT_GLYPH_INFO 214 CGGlyph result = kCGFontIndexInvalid;
206 return mac_ctfont_get_glyph_for_cid ((CTFontRef) font, collection, cid); 215 NSFont *nsFont = (NSFont *) font;
207#else 216 unichar characters[] = {0xfffd};
208 { 217 NSString *string =
209 CGGlyph result = kCGFontIndexInvalid; 218 [NSString stringWithCharacters:characters
210 NSFont *nsFont = (NSFont *) font; 219 length:ARRAYELTS (characters)];
211 unichar characters[] = {0xfffd}; 220 NSGlyphInfo *glyphInfo =
212 NSString *string = 221 [NSGlyphInfo glyphInfoWithCharacterIdentifier:cid
213 [NSString stringWithCharacters:characters 222 collection:collection
214 length:ARRAYELTS (characters)]; 223 baseString:string];
215 NSGlyphInfo *glyphInfo = 224 NSDictionary *attributes =
216 [NSGlyphInfo glyphInfoWithCharacterIdentifier:cid 225 [NSDictionary dictionaryWithObjectsAndKeys:nsFont,NSFontAttributeName,
217 collection:collection 226 glyphInfo,NSGlyphInfoAttributeName,nil];
218 baseString:string]; 227 NSTextStorage *textStorage =
219 NSDictionary *attributes = 228 [[NSTextStorage alloc] initWithString:string
220 [NSDictionary dictionaryWithObjectsAndKeys:nsFont,NSFontAttributeName, 229 attributes:attributes];
221 glyphInfo,NSGlyphInfoAttributeName,nil]; 230 NSLayoutManager *layoutManager = [[NSLayoutManager alloc] init];
222 NSTextStorage *textStorage = 231 NSTextContainer *textContainer = [[NSTextContainer alloc] init];
223 [[NSTextStorage alloc] initWithString:string 232 NSFont *fontInTextStorage;
224 attributes:attributes];
225 NSLayoutManager *layoutManager = [[NSLayoutManager alloc] init];
226 NSTextContainer *textContainer = [[NSTextContainer alloc] init];
227 NSFont *fontInTextStorage;
228
229 [layoutManager addTextContainer:textContainer];
230 [textContainer release];
231 [textStorage addLayoutManager:layoutManager];
232 [layoutManager release];
233
234 /* Force layout. */
235 (void) [layoutManager glyphRangeForTextContainer:textContainer];
236
237 fontInTextStorage = [textStorage attribute:NSFontAttributeName atIndex:0
238 effectiveRange:NULL];
239 if (fontInTextStorage == nsFont
240 || [[fontInTextStorage fontName] isEqualToString:[nsFont fontName]])
241 {
242 NSGlyph glyph = [layoutManager glyphAtIndex:0];
243 233
244 if (glyph < [nsFont numberOfGlyphs]) 234 [layoutManager addTextContainer:textContainer];
245 result = glyph; 235 [textContainer release];
246 } 236 [textStorage addLayoutManager:layoutManager];
237 [layoutManager release];
247 238
248 [textStorage release]; 239 /* Force layout. */
240 (void) [layoutManager glyphRangeForTextContainer:textContainer];
249 241
250 return result; 242 fontInTextStorage = [textStorage attribute:NSFontAttributeName atIndex:0
251 } 243 effectiveRange:NULL];
244 if (fontInTextStorage == nsFont
245 || [[fontInTextStorage fontName] isEqualToString:[nsFont fontName]])
246 {
247 NSGlyph glyph = [layoutManager glyphAtIndex:0];
248
249 if (glyph < [nsFont numberOfGlyphs])
250 result = glyph;
251 }
252
253 [textStorage release];
254
255 return result;
252} 256}
253#endif 257#endif
254 258
@@ -762,6 +766,46 @@ cfnumber_get_font_symbolic_traits_value (CFNumberRef number,
762 return false; 766 return false;
763} 767}
764 768
769static CGFloat
770mac_font_descriptor_get_adjusted_weight (CTFontDescriptorRef desc, CGFloat val)
771{
772 long percent_val = lround (val * 100);
773
774 if (percent_val == -40 || percent_val == 56)
775 {
776 CTFontRef font = NULL;
777 CFStringRef name =
778 CTFontDescriptorCopyAttribute (desc, kCTFontNameAttribute);
779
780 if (name)
781 {
782 font = CTFontCreateWithName (name, 0, NULL);
783 CFRelease (name);
784 }
785 if (font)
786 {
787 CFIndex weight = mac_font_get_weight (font);
788
789 if (percent_val == -40)
790 {
791 /* Workaround for crash when displaying Oriya characters
792 with Arial Unicode MS on OS X 10.11. */
793 if (weight == 5)
794 val = 0;
795 }
796 else /* percent_val == 56 */
797 {
798 if (weight == 9)
799 /* Adjustment for HiraginoSans-W7 on OS X 10.11. */
800 val = 0.4;
801 }
802 CFRelease (font);
803 }
804 }
805
806 return val;
807}
808
765static void 809static void
766macfont_store_descriptor_attributes (CTFontDescriptorRef desc, 810macfont_store_descriptor_attributes (CTFontDescriptorRef desc,
767 Lisp_Object spec_or_entity) 811 Lisp_Object spec_or_entity)
@@ -785,6 +829,7 @@ macfont_store_descriptor_attributes (CTFontDescriptorRef desc,
785 enum font_property_index index; 829 enum font_property_index index;
786 CFStringRef trait; 830 CFStringRef trait;
787 CGPoint points[6]; 831 CGPoint points[6];
832 CGFloat (*adjust_func) (CTFontDescriptorRef, CGFloat);
788 } numeric_traits[] = 833 } numeric_traits[] =
789 {{FONT_WEIGHT_INDEX, kCTFontWeightTrait, 834 {{FONT_WEIGHT_INDEX, kCTFontWeightTrait,
790 {{-0.4, 50}, /* light */ 835 {{-0.4, 50}, /* light */
@@ -792,11 +837,12 @@ macfont_store_descriptor_attributes (CTFontDescriptorRef desc,
792 {0, 100}, /* normal */ 837 {0, 100}, /* normal */
793 {0.24, 140}, /* (semi-bold + normal) / 2 */ 838 {0.24, 140}, /* (semi-bold + normal) / 2 */
794 {0.4, 200}, /* bold */ 839 {0.4, 200}, /* bold */
795 {CGFLOAT_MAX, CGFLOAT_MAX}}}, 840 {CGFLOAT_MAX, CGFLOAT_MAX}},
841 mac_font_descriptor_get_adjusted_weight},
796 {FONT_SLANT_INDEX, kCTFontSlantTrait, 842 {FONT_SLANT_INDEX, kCTFontSlantTrait,
797 {{0, 100}, {0.1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}}, 843 {{0, 100}, {0.1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}, NULL},
798 {FONT_WIDTH_INDEX, kCTFontWidthTrait, 844 {FONT_WIDTH_INDEX, kCTFontWidthTrait,
799 {{0, 100}, {1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}}}; 845 {{0, 100}, {1, 200}, {CGFLOAT_MAX, CGFLOAT_MAX}}, NULL}};
800 int i; 846 int i;
801 847
802 for (i = 0; i < ARRAYELTS (numeric_traits); i++) 848 for (i = 0; i < ARRAYELTS (numeric_traits); i++)
@@ -806,6 +852,8 @@ macfont_store_descriptor_attributes (CTFontDescriptorRef desc,
806 { 852 {
807 CGPoint *point = numeric_traits[i].points; 853 CGPoint *point = numeric_traits[i].points;
808 854
855 if (numeric_traits[i].adjust_func)
856 floatval = (*numeric_traits[i].adjust_func) (desc, floatval);
809 while (point->x < floatval) 857 while (point->x < floatval)
810 point++; 858 point++;
811 if (point == numeric_traits[i].points) 859 if (point == numeric_traits[i].points)
@@ -2717,7 +2765,6 @@ macfont_has_char (Lisp_Object font, int c)
2717static unsigned 2765static unsigned
2718macfont_encode_char (struct font *font, int c) 2766macfont_encode_char (struct font *font, int c)
2719{ 2767{
2720 struct macfont_info *macfont_info = (struct macfont_info *) font;
2721 CGGlyph glyph; 2768 CGGlyph glyph;
2722 2769
2723 block_input (); 2770 block_input ();
@@ -3379,18 +3426,24 @@ mac_font_descriptor_supports_languages (CTFontDescriptorRef descriptor,
3379 result = false; 3426 result = false;
3380 else 3427 else
3381 { 3428 {
3382 CFIndex desc_languages_count, i, languages_count; 3429 CFRange range = CFRangeMake (0, CFArrayGetCount (desc_languages));
3430 CFIndex i, languages_count = CFArrayGetCount (languages);
3383 3431
3384 desc_languages_count = CFArrayGetCount (desc_languages);
3385 languages_count = CFArrayGetCount (languages);
3386 for (i = 0; i < languages_count; i++) 3432 for (i = 0; i < languages_count; i++)
3387 if (!CFArrayContainsValue (desc_languages, 3433 {
3388 CFRangeMake (0, desc_languages_count), 3434 CFStringRef language = CFArrayGetValueAtIndex (languages, i);
3389 CFArrayGetValueAtIndex (languages, i))) 3435
3390 { 3436 if (!CFArrayContainsValue (desc_languages, range, language)
3391 result = false; 3437 /* PingFang SC contains "zh" and "zh-Hant" as covered
3392 break; 3438 languages, but does not contain "zh-Hans". */
3393 } 3439 && !(CFEqual (language, CFSTR ("zh-Hans"))
3440 && CFArrayContainsValue (desc_languages, range,
3441 CFSTR ("zh"))))
3442 {
3443 result = false;
3444 break;
3445 }
3446 }
3394 CFRelease (desc_languages); 3447 CFRelease (desc_languages);
3395 } 3448 }
3396 3449
@@ -3998,8 +4051,6 @@ mac_register_font_driver (struct frame *f)
3998void 4051void
3999syms_of_macfont (void) 4052syms_of_macfont (void)
4000{ 4053{
4001 static struct font_driver mac_font_driver;
4002
4003 /* Core Text, for Mac OS X. */ 4054 /* Core Text, for Mac OS X. */
4004 DEFSYM (Qmac_ct, "mac-ct"); 4055 DEFSYM (Qmac_ct, "mac-ct");
4005 macfont_driver.type = Qmac_ct; 4056 macfont_driver.type = Qmac_ct;
diff --git a/src/nsterm.m b/src/nsterm.m
index a5bf06a70af..65d07b2f1e4 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -6724,6 +6724,11 @@ if (cols > 0 && rows > 0)
6724{ 6724{
6725 if (fs_state != emacsframe->want_fullscreen) 6725 if (fs_state != emacsframe->want_fullscreen)
6726 { 6726 {
6727 NSSize sz;
6728 sz.width = frame_resize_pixelwise ? 1 : FRAME_COLUMN_WIDTH (emacsframe);
6729 sz.height = frame_resize_pixelwise ? 1 : FRAME_LINE_HEIGHT (emacsframe);
6730 [[self window] setResizeIncrements:sz];
6731
6727 if (fs_state == FULLSCREEN_BOTH) 6732 if (fs_state == FULLSCREEN_BOTH)
6728 { 6733 {
6729 [self toggleFullScreen:self]; 6734 [self toggleFullScreen:self];
diff --git a/src/process.c b/src/process.c
index 42dd17c57e0..55f31a02673 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,
5031 for (channel = 0; channel <= max_input_desc; ++channel) 5031 for (channel = 0; channel <= max_input_desc; ++channel)
5032 { 5032 {
5033 struct fd_callback_data *d = &fd_callback_info[channel]; 5033 struct fd_callback_data *d = &fd_callback_info[channel];
5034 if (d->func) 5034 if (d->func
5035 { 5035 && ((d->condition & FOR_READ
5036 if (d->condition & FOR_READ 5036 && FD_ISSET (channel, &Available))
5037 && FD_ISSET (channel, &Available)) 5037 || (d->condition & FOR_WRITE
5038 { 5038 && FD_ISSET (channel, &write_mask))))
5039 d->func (channel, d->data); 5039 d->func (channel, d->data);
5040 FD_CLR (channel, &Available);
5041 }
5042 else if (d->condition & FOR_WRITE
5043 && FD_ISSET (channel, &write_mask))
5044 d->func (channel, d->data);
5045 }
5046 } 5040 }
5047 5041
5048 for (channel = 0; channel <= max_process_desc; channel++) 5042 for (channel = 0; channel <= max_process_desc; channel++)
diff --git a/src/window.c b/src/window.c
index 42a2ca68f14..6d06e548094 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
1686character is only partially visible, nil is returned, unless the 1686character is only partially visible, nil is returned, unless the
1687optional argument PARTIALLY is non-nil. If POS is only out of view 1687optional argument PARTIALLY is non-nil. If POS is only out of view
1688because of horizontal scrolling, return non-nil. If POS is t, it 1688because of horizontal scrolling, return non-nil. If POS is t, it
1689specifies the position of the last visible glyph in WINDOW. POS 1689specifies either the first position displayed on the last visible
1690defaults to point in WINDOW; WINDOW defaults to the selected window. 1690screen line in WINDOW, or the end-of-buffer position, whichever comes
1691first. POS defaults to point in WINDOW; WINDOW defaults to the
1692selected window.
1691 1693
1692If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil, 1694If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil,
1693the return value is a list of 2 or 6 elements (X Y [RTOP RBOT ROWH VPOS]), 1695the 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)
6607 eassert (w); 6609 eassert (w);
6608 clear_glyph_matrix (w->current_matrix); 6610 clear_glyph_matrix (w->current_matrix);
6609 w->window_end_valid = false; 6611 w->window_end_valid = false;
6610 windows_or_buffers_changed = 30;
6611 wset_redisplay (w); 6612 wset_redisplay (w);
6612 adjust_frame_glyphs (XFRAME (WINDOW_FRAME (w))); 6613 adjust_frame_glyphs (XFRAME (WINDOW_FRAME (w)));
6613} 6614}
diff --git a/src/xdisp.c b/src/xdisp.c
index 2c38aa9ccff..44983bb4f9d 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -434,22 +434,54 @@ static Lisp_Object Vmessage_stack;
434 434
435static bool message_enable_multibyte; 435static bool message_enable_multibyte;
436 436
437/* Nonzero if we should redraw the mode lines on the next redisplay. 437/* At each redisplay cycle, we should refresh everything there is to refresh.
438 If it has value REDISPLAY_SOME, then only redisplay the mode lines where 438 To do that efficiently, we use many optimizations that try to make sure we
439 the `redisplay' bit has been set. Otherwise, redisplay all mode lines 439 don't waste too much time updating things that haven't changed.
440 (the number used is then only used to track down the cause for this 440 The coarsest such optimization is that, in the most common cases, we only
441 full-redisplay). */ 441 look at the selected-window.
442
443 To know whether other windows should be considered for redisplay, we use the
444 variable windows_or_buffers_changed: as long as it is 0, it means that we
445 have not noticed anything that should require updating anything else than
446 the selected-window. If it is set to REDISPLAY_SOME, it means that since
447 last redisplay, some changes have been made which could impact other
448 windows. To know which ones need redisplay, every buffer, window, and frame
449 has a `redisplay' bit, which (if true) means that this object needs to be
450 redisplayed. If windows_or_buffers_changed is 0, we know there's no point
451 looking for those `redisplay' bits (actually, there might be some such bits
452 set, but then only on objects which aren't displayed anyway).
453
454 OTOH if it's non-zero we wil have to loop through all windows and then check
455 the `redisplay' bit of the corresponding window, frame, and buffer, in order
456 to decide whether that window needs attention or not. Not that we can't
457 just look at the frame's redisplay bit to decide that the whole frame can be
458 skipped, since even if the frame's redisplay bit is unset, some of its
459 windows's redisplay bits may be set.
460
461 Mostly for historical reasons, windows_or_buffers_changed can also take
462 other non-zero values. In that case, the precise value doesn't matter (it
463 encodes the cause of the setting but is only used for debugging purposes),
464 and what it means is that we shouldn't pay attention to any `redisplay' bits
465 and we should simply try and redisplay every window out there. */
442 466
443int update_mode_lines; 467int windows_or_buffers_changed;
444 468
445/* Nonzero if window sizes or contents other than selected-window have changed 469/* Nonzero if we should redraw the mode lines on the next redisplay.
446 since last redisplay that finished. 470 Similarly to `windows_or_buffers_changed', If it has value REDISPLAY_SOME,
447 If it has value REDISPLAY_SOME, then only redisplay the windows where 471 then only redisplay the mode lines in those buffers/windows/frames where the
448 the `redisplay' bit has been set. Otherwise, redisplay all windows 472 `redisplay' bit has been set.
449 (the number used is then only used to track down the cause for this 473 For any other value, redisplay all mode lines (the number used is then only
450 full-redisplay). */ 474 used to track down the cause for this full-redisplay).
475
476 The `redisplay' bits are the same as those used for
477 windows_or_buffers_changed, and setting windows_or_buffers_changed also
478 causes recomputation of the mode lines of all those windows. IOW this
479 variable only has an effect if windows_or_buffers_changed is zero, in which
480 case we should only need to redisplay the mode-line of those objects with
481 a `redisplay' bit set but not the window's text content (tho we may still
482 need to refresh the text content of the selected-window). */
451 483
452int windows_or_buffers_changed; 484int update_mode_lines;
453 485
454/* True after display_mode_line if %l was used and it displayed a 486/* True after display_mode_line if %l was used and it displayed a
455 line number. */ 487 line number. */
@@ -13383,6 +13415,8 @@ redisplay_internal (void)
13383 pending = false; 13415 pending = false;
13384 forget_escape_and_glyphless_faces (); 13416 forget_escape_and_glyphless_faces ();
13385 13417
13418 inhibit_free_realized_faces = false;
13419
13386 /* If face_change, init_iterator will free all realized faces, which 13420 /* If face_change, init_iterator will free all realized faces, which
13387 includes the faces referenced from current matrices. So, we 13421 includes the faces referenced from current matrices. So, we
13388 can't reuse current matrices in this case. */ 13422 can't reuse current matrices in this case. */
@@ -13430,7 +13464,7 @@ redisplay_internal (void)
13430 /* If cursor type has been changed on the frame 13464 /* If cursor type has been changed on the frame
13431 other than selected, consider all frames. */ 13465 other than selected, consider all frames. */
13432 if (f != sf && f->cursor_type_changed) 13466 if (f != sf && f->cursor_type_changed)
13433 update_mode_lines = 31; 13467 fset_redisplay (f);
13434 } 13468 }
13435 clear_desired_matrices (f); 13469 clear_desired_matrices (f);
13436 } 13470 }
@@ -13528,9 +13562,12 @@ redisplay_internal (void)
13528 consider_all_windows_p = (update_mode_lines 13562 consider_all_windows_p = (update_mode_lines
13529 || windows_or_buffers_changed); 13563 || windows_or_buffers_changed);
13530 13564
13531#define AINC(a,i) \ 13565#define AINC(a,i) \
13532 if (VECTORP (a) && i >= 0 && i < ASIZE (a) && INTEGERP (AREF (a, i))) \ 13566 { \
13533 ASET (a, i, make_number (1 + XINT (AREF (a, i)))) 13567 Lisp_Object entry = Fgethash (make_number (i), a, make_number (0)); \
13568 if (INTEGERP (entry)) \
13569 Fputhash (make_number (i), make_number (1 + XINT (entry)), a); \
13570 }
13534 13571
13535 AINC (Vredisplay__all_windows_cause, windows_or_buffers_changed); 13572 AINC (Vredisplay__all_windows_cause, windows_or_buffers_changed);
13536 AINC (Vredisplay__mode_lines_cause, update_mode_lines); 13573 AINC (Vredisplay__mode_lines_cause, update_mode_lines);
@@ -13745,7 +13782,8 @@ redisplay_internal (void)
13745#endif 13782#endif
13746 13783
13747 /* Build desired matrices, and update the display. If 13784 /* Build desired matrices, and update the display. If
13748 consider_all_windows_p, do it for all windows on all frames. 13785 consider_all_windows_p, do it for all windows on all frames that
13786 require redisplay, as specified by their 'redisplay' flag.
13749 Otherwise do it for selected_window, only. */ 13787 Otherwise do it for selected_window, only. */
13750 13788
13751 if (consider_all_windows_p) 13789 if (consider_all_windows_p)
@@ -13871,6 +13909,10 @@ redisplay_internal (void)
13871 if (sf->fonts_changed) 13909 if (sf->fonts_changed)
13872 goto retry; 13910 goto retry;
13873 13911
13912 /* Prevent freeing of realized faces, since desired matrices are
13913 pending that reference the faces we computed and cached. */
13914 inhibit_free_realized_faces = true;
13915
13874 /* Prevent various kinds of signals during display update. 13916 /* Prevent various kinds of signals during display update.
13875 stdio is not robust about handling signals, 13917 stdio is not robust about handling signals,
13876 which can cause an apparent I/O error. */ 13918 which can cause an apparent I/O error. */
@@ -19802,7 +19844,8 @@ push_prefix_prop (struct it *it, Lisp_Object prop)
19802 19844
19803 eassert (it->method == GET_FROM_BUFFER 19845 eassert (it->method == GET_FROM_BUFFER
19804 || it->method == GET_FROM_DISPLAY_VECTOR 19846 || it->method == GET_FROM_DISPLAY_VECTOR
19805 || it->method == GET_FROM_STRING); 19847 || it->method == GET_FROM_STRING
19848 || it->method == GET_FROM_IMAGE);
19806 19849
19807 /* We need to save the current buffer/string position, so it will be 19850 /* We need to save the current buffer/string position, so it will be
19808 restored by pop_it, because iterate_out_of_display_property 19851 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
31381 31424
31382 DEFVAR_LISP ("redisplay--all-windows-cause", Vredisplay__all_windows_cause, 31425 DEFVAR_LISP ("redisplay--all-windows-cause", Vredisplay__all_windows_cause,
31383 doc: /* */); 31426 doc: /* */);
31384 Vredisplay__all_windows_cause 31427 Vredisplay__all_windows_cause = Fmake_hash_table (0, NULL);
31385 = Fmake_vector (make_number (100), make_number (0));
31386 31428
31387 DEFVAR_LISP ("redisplay--mode-lines-cause", Vredisplay__mode_lines_cause, 31429 DEFVAR_LISP ("redisplay--mode-lines-cause", Vredisplay__mode_lines_cause,
31388 doc: /* */); 31430 doc: /* */);
31389 Vredisplay__mode_lines_cause 31431 Vredisplay__mode_lines_cause = Fmake_hash_table (0, NULL);
31390 = Fmake_vector (make_number (100), make_number (0));
31391} 31432}
31392 31433
31393 31434
diff --git a/src/xfaces.c b/src/xfaces.c
index 40713f167ff..8cf0b427799 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -631,7 +631,7 @@ free_frame_faces (struct frame *f)
631/* Clear face caches, and recompute basic faces for frame F. Call 631/* Clear face caches, and recompute basic faces for frame F. Call
632 this after changing frame parameters on which those faces depend, 632 this after changing frame parameters on which those faces depend,
633 or when realized faces have been freed due to changing attributes 633 or when realized faces have been freed due to changing attributes
634 of named faces. */ 634 of named faces. */
635 635
636void 636void
637recompute_basic_faces (struct frame *f) 637recompute_basic_faces (struct frame *f)
@@ -2528,10 +2528,15 @@ Value is a vector of face attributes. */)
2528 if (NILP (Fget (face, Qface_no_inherit))) 2528 if (NILP (Fget (face, Qface_no_inherit)))
2529 { 2529 {
2530 if (f) 2530 if (f)
2531 f->face_change = 1; 2531 {
2532 f->face_change = true;
2533 fset_redisplay (f);
2534 }
2532 else 2535 else
2533 face_change = true; 2536 {
2534 windows_or_buffers_changed = 54; 2537 face_change = true;
2538 windows_or_buffers_changed = 54;
2539 }
2535 } 2540 }
2536 2541
2537 eassert (LFACEP (lface)); 2542 eassert (LFACEP (lface));
@@ -2613,10 +2618,15 @@ The value is TO. */)
2613 if (NILP (Fget (to, Qface_no_inherit))) 2618 if (NILP (Fget (to, Qface_no_inherit)))
2614 { 2619 {
2615 if (f) 2620 if (f)
2616 f->face_change = 1; 2621 {
2622 f->face_change = true;
2623 fset_redisplay (f);
2624 }
2617 else 2625 else
2618 face_change = true; 2626 {
2619 windows_or_buffers_changed = 55; 2627 face_change = true;
2628 windows_or_buffers_changed = 55;
2629 }
2620 } 2630 }
2621 2631
2622 return to; 2632 return to;
@@ -3120,7 +3130,7 @@ FRAME 0 means change the face on all frames, and change the default
3120 && NILP (Fequal (old_value, value))) 3130 && NILP (Fequal (old_value, value)))
3121 { 3131 {
3122 f->face_change = true; 3132 f->face_change = true;
3123 windows_or_buffers_changed = 56; 3133 fset_redisplay (f);
3124 } 3134 }
3125 3135
3126 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value) 3136 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value)
@@ -3293,7 +3303,7 @@ update_face_from_frame_parameter (struct frame *f, Lisp_Object param,
3293 && NILP (Fget (face, Qface_no_inherit))) 3303 && NILP (Fget (face, Qface_no_inherit)))
3294 { 3304 {
3295 f->face_change = true; 3305 f->face_change = true;
3296 windows_or_buffers_changed = 57; 3306 fset_redisplay (f);
3297 } 3307 }
3298} 3308}
3299 3309
diff --git a/src/xfns.c b/src/xfns.c
index d6a3d76e948..fc6111c4fab 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)
1041 nlines = 0; 1041 nlines = 0;
1042 1042
1043 /* Make sure we redisplay all windows in this frame. */ 1043 /* Make sure we redisplay all windows in this frame. */
1044 windows_or_buffers_changed = 59; 1044 fset_redisplay (f);
1045 1045
1046#if defined (USE_X_TOOLKIT) || defined (USE_GTK) 1046#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1047 FRAME_MENU_BAR_LINES (f) = 0; 1047 FRAME_MENU_BAR_LINES (f) = 0;
@@ -1160,8 +1160,7 @@ x_change_tool_bar_height (struct frame *f, int height)
1160 Lisp_Object fullscreen; 1160 Lisp_Object fullscreen;
1161 1161
1162 /* Make sure we redisplay all windows in this frame. */ 1162 /* Make sure we redisplay all windows in this frame. */
1163 windows_or_buffers_changed = 60; 1163 fset_redisplay (f);
1164
1165 1164
1166 /* Recalculate tool bar and frame text sizes. */ 1165 /* Recalculate tool bar and frame text sizes. */
1167 FRAME_TOOL_BAR_HEIGHT (f) = height; 1166 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 00000000000..0b49b9013f7
--- /dev/null
+++ b/test/automated/auth-source-tests.el
@@ -0,0 +1,178 @@
1;;; auth-source-tests.el --- Tests for auth-source.el -*- lexical-binding: t; -*-
2
3;; Copyright (C) 2015 Free Software Foundation, Inc.
4
5;; Author: Damien Cassou <damien@cassou.me>,
6;; Nicolas Petton <nicolas@petton.fr>
7
8;; This file is part of GNU Emacs.
9
10;; GNU Emacs is free software: you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation, either version 3 of the License, or
13;; (at your option) any later version.
14
15;; GNU Emacs is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
22
23;;; Commentary:
24
25;;
26
27;;; Code:
28
29(require 'ert)
30(require 'auth-source)
31
32(defvar secrets-enabled t
33 "Enable the secrets backend to test its features.")
34
35(defun auth-source-validate-backend (source validation-alist)
36 (let ((backend (auth-source-backend-parse source)))
37 (should (auth-source-backend-p backend))
38 (dolist (pair validation-alist)
39 (should (equal (eieio-oref backend (car pair)) (cdr pair))))))
40
41(ert-deftest auth-source-backend-parse-macos-keychain ()
42 (auth-source-validate-backend '(:source (:macos-keychain-generic foobar))
43 '((:source . "foobar")
44 (:type . macos-keychain-generic)
45 (:search-function . auth-source-macos-keychain-search)
46 (:create-function . auth-source-macos-keychain-create))))
47
48(ert-deftest auth-source-backend-parse-macos-keychain-generic-string ()
49 (auth-source-validate-backend "macos-keychain-generic:foobar"
50 '((:source . "foobar")
51 (:type . macos-keychain-generic)
52 (:search-function . auth-source-macos-keychain-search)
53 (:create-function . auth-source-macos-keychain-create))))
54
55(ert-deftest auth-source-backend-parse-macos-keychain-internet-string ()
56 (auth-source-validate-backend "macos-keychain-internet:foobar"
57 '((:source . "foobar")
58 (:type . macos-keychain-internet)
59 (:search-function . auth-source-macos-keychain-search)
60 (:create-function . auth-source-macos-keychain-create))))
61
62(ert-deftest auth-source-backend-parse-macos-keychain-internet-symbol ()
63 (auth-source-validate-backend 'macos-keychain-internet
64 '((:source . "default")
65 (:type . macos-keychain-internet)
66 (:search-function . auth-source-macos-keychain-search)
67 (:create-function . auth-source-macos-keychain-create))))
68
69(ert-deftest auth-source-backend-parse-macos-keychain-generic-symbol ()
70 (auth-source-validate-backend 'macos-keychain-generic
71 '((:source . "default")
72 (:type . macos-keychain-generic)
73 (:search-function . auth-source-macos-keychain-search)
74 (:create-function . auth-source-macos-keychain-create))))
75
76(ert-deftest auth-source-backend-parse-macos-keychain-internet-default-string ()
77 (auth-source-validate-backend 'macos-keychain-internet
78 '((:source . "default")
79 (:type . macos-keychain-internet)
80 (:search-function . auth-source-macos-keychain-search)
81 (:create-function . auth-source-macos-keychain-create))))
82
83(ert-deftest auth-source-backend-parse-plstore ()
84 (auth-source-validate-backend '(:source "foo.plist")
85 '((:source . "foo.plist")
86 (:type . plstore)
87 (:search-function . auth-source-plstore-search)
88 (:create-function . auth-source-plstore-create))))
89
90(ert-deftest auth-source-backend-parse-netrc ()
91 (auth-source-validate-backend '(:source "foo")
92 '((:source . "foo")
93 (:type . netrc)
94 (:search-function . auth-source-netrc-search)
95 (:create-function . auth-source-netrc-create))))
96
97(ert-deftest auth-source-backend-parse-netrc-string ()
98 (auth-source-validate-backend "foo"
99 '((:source . "foo")
100 (:type . netrc)
101 (:search-function . auth-source-netrc-search)
102 (:create-function . auth-source-netrc-create))))
103
104(ert-deftest auth-source-backend-parse-secrets ()
105 (provide 'secrets) ; simulates the presence of the `secrets' package
106 (let ((secrets-enabled t))
107 (auth-source-validate-backend '(:source (:secrets "foo"))
108 '((:source . "foo")
109 (:type . secrets)
110 (:search-function . auth-source-secrets-search)
111 (:create-function . auth-source-secrets-create)))))
112
113(ert-deftest auth-source-backend-parse-secrets-strings ()
114 (provide 'secrets) ; simulates the presence of the `secrets' package
115 (let ((secrets-enabled t))
116 (auth-source-validate-backend "secrets:foo"
117 '((:source . "foo")
118 (:type . secrets)
119 (:search-function . auth-source-secrets-search)
120 (:create-function . auth-source-secrets-create)))))
121
122(ert-deftest auth-source-backend-parse-secrets-nil-source ()
123 (provide 'secrets) ; simulates the presence of the `secrets' package
124 (let ((secrets-enabled t))
125 (auth-source-validate-backend '(:source (:secrets nil))
126 '((:source . "session")
127 (:type . secrets)
128 (:search-function . auth-source-secrets-search)
129 (:create-function . auth-source-secrets-create)))))
130
131(ert-deftest auth-source-backend-parse-secrets-alias ()
132 (provide 'secrets) ; simulates the presence of the `secrets' package
133 (let ((secrets-enabled t))
134 ;; Redefine `secrets-get-alias' to map 'foo to "foo"
135 (cl-letf (((symbol-function 'secrets-get-alias) (lambda (_) "foo")))
136 (auth-source-validate-backend '(:source (:secrets foo))
137 '((:source . "foo")
138 (:type . secrets)
139 (:search-function . auth-source-secrets-search)
140 (:create-function . auth-source-secrets-create))))))
141
142(ert-deftest auth-source-backend-parse-secrets-symbol ()
143 (provide 'secrets) ; simulates the presence of the `secrets' package
144 (let ((secrets-enabled t))
145 ;; Redefine `secrets-get-alias' to map 'default to "foo"
146 (cl-letf (((symbol-function 'secrets-get-alias) (lambda (_) "foo")))
147 (auth-source-validate-backend 'default
148 '((:source . "foo")
149 (:type . secrets)
150 (:search-function . auth-source-secrets-search)
151 (:create-function . auth-source-secrets-create))))))
152
153(ert-deftest auth-source-backend-parse-secrets-no-alias ()
154 (provide 'secrets) ; simulates the presence of the `secrets' package
155 (let ((secrets-enabled t))
156 ;; Redefine `secrets-get-alias' to map 'foo to nil (so that
157 ;; "Login" is used by default
158 (cl-letf (((symbol-function 'secrets-get-alias) (lambda (_) nil)))
159 (auth-source-validate-backend '(:source (:secrets foo))
160 '((:source . "Login")
161 (:type . secrets)
162 (:search-function . auth-source-secrets-search)
163 (:create-function . auth-source-secrets-create))))))
164
165;; TODO This test shows suspicious behavior of auth-source: the
166;; "secrets" source is used even though nothing in the input indicates
167;; that is what we want
168(ert-deftest auth-source-backend-parse-secrets-no-source ()
169 (provide 'secrets) ; simulates the presence of the `secrets' package
170 (let ((secrets-enabled t))
171 (auth-source-validate-backend '(:source '(foo))
172 '((:source . "session")
173 (:type . secrets)
174 (:search-function . auth-source-secrets-search)
175 (:create-function . auth-source-secrets-create)))))
176
177(provide 'auth-source-tests)
178;;; 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 00000000000..ebbf8968fc7
--- /dev/null
+++ b/test/automated/coding-tests.el
@@ -0,0 +1,50 @@
1;;; coding-tests.el --- tests for text encoding and decoding
2
3;; Copyright (C) 2015 Free Software Foundation, Inc.
4
5;; Author: Eli Zaretskii <eliz@gnu.org>
6
7;; This file is part of GNU Emacs.
8
9;; GNU Emacs is free software: you can redistribute it and/or modify
10;; it under the terms of the GNU General Public License as published by
11;; the Free Software Foundation, either version 3 of the License, or
12;; (at your option) any later version.
13
14;; GNU Emacs is distributed in the hope that it will be useful,
15;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17;; GNU General Public License for more details.
18
19;; You should have received a copy of the GNU General Public License
20;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
21
22;;; Code:
23
24(require 'ert)
25
26;; Directory to hold test data files.
27(defvar coding-tests-workdir
28 (expand-file-name "coding-tests" temporary-file-directory))
29
30;; Remove all generated test files.
31(defun coding-tests-remove-files ()
32 (delete-directory coding-tests-workdir t))
33
34(ert-deftest ert-test-coding-bogus-coding-systems ()
35 (unwind-protect
36 (let (test-file)
37 (or (file-directory-p coding-tests-workdir)
38 (mkdir coding-tests-workdir t))
39 (setq test-file (expand-file-name "nonexisting" coding-tests-workdir))
40 (if (file-exists-p test-file)
41 (delete-file test-file))
42 (should-error
43 (let ((coding-system-for-read 'bogus))
44 (insert-file-contents test-file)))
45 ;; See bug #21602.
46 (setq test-file (expand-file-name "writing" coding-tests-workdir))
47 (should-error
48 (let ((coding-system-for-write (intern "\"us-ascii\"")))
49 (write-region "some text" nil test-file))))
50 (coding-tests-remove-files)))
diff --git a/test/automated/json-tests.el b/test/automated/json-tests.el
index fd89b7aa994..d1b7a2fa022 100644
--- a/test/automated/json-tests.el
+++ b/test/automated/json-tests.el
@@ -22,15 +22,22 @@
22(require 'ert) 22(require 'ert)
23(require 'json) 23(require 'json)
24 24
25(ert-deftest test-json-plist-reverse ()
26 (should (equal (json--plist-reverse '()) '()))
27 (should (equal (json--plist-reverse '(:a 1)) '(:a 1)))
28 (should (equal (json--plist-reverse '(:a 1 :b 2 :c 3))
29 '(:c 3 :b 2 :a 1))))
30
25(ert-deftest json-encode-simple-alist () 31(ert-deftest json-encode-simple-alist ()
26 (should (equal (json-encode '((a . 1) 32 (should (equal (json-encode '((a . 1)
27 (b . 2))) 33 (b . 2)))
28 "{\"a\":1,\"b\":2}"))) 34 "{\"a\":1,\"b\":2}")))
29 35
30(ert-deftest json-read-simple-alist () 36(ert-deftest json-read-simple-alist ()
31 (should (equal (json-read-from-string "{\"a\": 1, \"b\": 2}") 37 (let ((json-object-type 'alist))
32 '((b . 2) 38 (should (equal (json-read-from-string "{\"a\": 1, \"b\": 2}")
33 (a . 1))))) 39 '((a . 1)
40 (b . 2))))))
34 41
35(ert-deftest json-encode-string-with-special-chars () 42(ert-deftest json-encode-string-with-special-chars ()
36 (should (equal (json-encode-string "a\n\fb") 43 (should (equal (json-encode-string "a\n\fb")
diff --git a/test/automated/mule-util.el b/test/automated/mule-util.el
index 038881a7915..24b56c0969b 100644
--- a/test/automated/mule-util.el
+++ b/test/automated/mule-util.el
@@ -1,4 +1,4 @@
1;;; mule-util --- tests for international/mule-util.el -*- coding: utf-8; -*- 1;;; mule-util --- tests for international/mule-util.el
2 2
3;; Copyright (C) 2002-2015 Free Software Foundation, Inc. 3;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
4 4
diff --git a/test/automated/python-tests.el b/test/automated/python-tests.el
index d9b4c3e1b06..44b05e2b476 100644
--- a/test/automated/python-tests.el
+++ b/test/automated/python-tests.el
@@ -5216,7 +5216,6 @@ class SomeClass:
5216(provide 'python-tests) 5216(provide 'python-tests)
5217 5217
5218;; Local Variables: 5218;; Local Variables:
5219;; coding: utf-8
5220;; indent-tabs-mode: nil 5219;; indent-tabs-mode: nil
5221;; End: 5220;; End:
5222 5221
diff --git a/test/indent/octave.m b/test/indent/octave.m
index a7041462f7f..4758f9933cb 100644
--- a/test/indent/octave.m
+++ b/test/indent/octave.m
@@ -1,6 +1,19 @@
1## -*- mode: octave; coding: utf-8 -*- 1## -*- mode: octave; coding: utf-8 -*-
20; # Don't make this a function file 20; # Don't make this a function file
3function res = tcomp (fn) 3function res = tcomp (fn)
4
5 global x y ...
6 z1 z2
7 persistent x y ...
8 z1 z2
9 global x y = 2 ...
10 z1 z2 # FIXME
11
12 do
13 something
14 until x = ...
15 y
16
4 %% res = tcomp (fn) 17 %% res = tcomp (fn)
5 %% imports components and rearranges them. 18 %% imports components and rearranges them.
6 19
@@ -10,6 +23,15 @@ function res = tcomp (fn)
10 23
11 data = dlmread(fn, 3, 0); 24 data = dlmread(fn, 3, 0);
12 25
26 enumeration
27 first (1)
28 second (2)
29 end
30
31 y = enumeration (x); #Beware: "enumeration" can also be a function!
32 y = foo(enumeration (x),
33 2); #Beware: "enumeration" can also be a function!
34
13 x = data(:,2:end); 35 x = data(:,2:end);
14 y = 'hello'; 36 y = 'hello';
15 z = y'; 37 z = y';
diff --git a/test/indent/prolog.prolog b/test/indent/prolog.prolog
index 6bf9437b883..9ac6df1b6c7 100644
--- a/test/indent/prolog.prolog
+++ b/test/indent/prolog.prolog
@@ -1,16 +1,18 @@
1%% -*- mode: prolog; coding: utf-8; fill-column: 78 -*- 1%% -*- mode: prolog; coding: utf-8; fill-column: 78 -*-
2 2
3%% bug#21526 3%% bug#21526
4test1 :- 4test21526_1 :-
5 ( a -> 5 ( a ->
6 ( a -> 6 ( a ->
7 b 7 b
8 ; c 8 ; c
9 ) 9 )
10 ; c 10 ; % Toto
11 c ->
12 d
11 ). 13 ).
12 14
13test2 :- 15test21526_2 :-
14 ( a 16 ( a
15 -> ( a, 17 -> ( a,
16 b 18 b
@@ -19,7 +21,31 @@ test2 :-
19 b2 21 b2
20 ; c1, 22 ; c1,
21 c2 23 c2
22 ) 24 ).
25
26test21526_3 :-
27 X \= Y,
28 \+ a,
29 b,
30 \+ \+ c,
31 d.
32
33test21526_4 :-
34 ( \+ a ->
35 b
36 ; \+ c,
37 \+ d
38 ).
39
40
41test21526_5 :-
42 (a;
43 b ->
44 c).
45
46test21526_predicate(c) :- !,
47 test_goal1,
48 test_goal2.
23 49
24%% Testing correct tokenizing. 50%% Testing correct tokenizing.
25foo(X) :- 0'= = X. 51foo(X) :- 0'= = X.
@@ -74,11 +100,11 @@ subst(X, V, FV, lambda(Y, Ti, Bi), lambda(Y1, To, Bo)) :-
74 %% If X is equal to Y, X is shadowed, so no subst can take place. 100 %% If X is equal to Y, X is shadowed, so no subst can take place.
75 -> Y1 = Y, Bo = Bi 101 -> Y1 = Y, Bo = Bi
76 ; (member((Y, _), FV) 102 ; (member((Y, _), FV)
77 %% If Y appears in FV, it can appear in V, so we need to 103 %% If Y appears in FV, it can appear in V, so we need to
78 %% rename it to avoid name capture. 104 %% rename it to avoid name capture.
79 -> new_atom(Y, Y1), 105 -> new_atom(Y, Y1),
80 subst(Y, Y1, [], Bi, Bi1) 106 subst(Y, Y1, [], Bi, Bi1)
81 ; Y1 = Y, Bi1 = Bi), 107 ; Y1 = Y, Bi1 = Bi),
82 %% Perform substitution on the body. 108 %% Perform substitution on the body.
83 subst(X, V, FV, Bi1, Bo) 109 subst(X, V, FV, Bi1, Bo)
84 ). 110 ).