diff options
| author | K. Handa | 2015-10-05 22:56:26 +0900 |
|---|---|---|
| committer | K. Handa | 2015-10-05 22:56:26 +0900 |
| commit | 47e9556c70a7009d7c750fd7bf10a0e6cf41cdce (patch) | |
| tree | 4e944bd68080adee76291dd7d4f34103e2b55d50 | |
| parent | 52beda922d2cb523a03661bf74b8678c8b45e440 (diff) | |
| parent | ef171d1d0b42758b5f705847d558436e867372f4 (diff) | |
| download | emacs-47e9556c70a7009d7c750fd7bf10a0e6cf41cdce.tar.gz emacs-47e9556c70a7009d7c750fd7bf10a0e6cf41cdce.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
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 | |||
| 206 | If you introduce non-ASCII characters into Emacs source files, it is a | ||
| 207 | good idea to add a 'coding' cookie to the file to state its encoding. | ||
| 208 | Please use the UTF-8 encoding unless it cannot do the job for some | ||
| 209 | good reason. As of Emacs 24.4, it is no longer necessary to have | ||
| 210 | explicit 'coding' cookies in *.el files if they are encoded in UTF-8, | ||
| 211 | but other files need them even if encoded in UTF-8. However, if | ||
| 212 | an *.el file is intended for use with older Emacs versions (e.g. if | ||
| 213 | it's also distributed via ELPA), having an explicit encoding | ||
| 214 | specification is still a good idea. | ||
| 215 | |||
| 216 | *** Useful files in the admin/ directory | ||
| 217 | |||
| 204 | See all the files in admin/notes/* . In particular, see | 218 | See all the files in admin/notes/* . In particular, see |
| 205 | admin/notes/newfile, see admin/notes/repo. | 219 | admin/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 @@ | |||
| 1 | 2015-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 | |||
| 11 | 2015-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 | |||
| 17 | 2015-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 | |||
| 24 | 2015-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 | |||
| 30 | 2015-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 | |||
| 46 | 2015-10-03 Andreas Schwab <schwab@linux-m68k.org> | ||
| 47 | |||
| 48 | * src/coding.c (complement_process_encoding_system): Revert last | ||
| 49 | change. | ||
| 50 | |||
| 51 | 2015-10-03 Ulf Jasper <ulf.jasper@web.de> | ||
| 52 | |||
| 53 | Add entry for Ulf Jasper. | ||
| 54 | |||
| 55 | 2015-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 | |||
| 61 | 2015-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 | |||
| 71 | 2015-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 | |||
| 79 | 2015-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 | |||
| 87 | 2015-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 | |||
| 95 | 2015-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 | |||
| 102 | 2015-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 | |||
| 112 | 2015-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 | |||
| 118 | 2015-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 | |||
| 124 | 2015-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 | |||
| 130 | 2015-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 | |||
| 138 | 2015-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 | |||
| 144 | 2015-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 | |||
| 151 | 2015-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 | |||
| 163 | 2015-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 | |||
| 173 | 2015-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 | |||
| 180 | 2015-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 | |||
| 188 | 2015-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 | |||
| 195 | 2015-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 | |||
| 202 | 2015-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 | |||
| 211 | 2015-10-01 Eli Zaretskii <eliz@gnu.org> | ||
| 212 | |||
| 213 | * nt/INSTALL: Document where to find XPM support files | ||
| 214 | |||
| 215 | 2015-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 | |||
| 223 | 2015-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 | |||
| 230 | 2015-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 | |||
| 238 | 2015-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 | |||
| 245 | 2015-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 | |||
| 258 | 2015-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 | |||
| 267 | 2015-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 | |||
| 286 | 2015-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 | |||
| 298 | 2015-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 | |||
| 302 | 2015-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 | |||
| 310 | 2015-09-30 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | ||
| 311 | |||
| 312 | * src/macfont.m: Fix compilation with USE_CT_GLYPH_INFO. | ||
| 313 | |||
| 314 | 2015-09-30 Nicolas Petton <nicolas@petton.fr> | ||
| 315 | |||
| 316 | * lisp/arc-mode.el (archive-rar-summarize): Better alignment of the columns. | ||
| 317 | |||
| 318 | 2015-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 | |||
| 325 | 2015-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 | |||
| 331 | 2015-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 | |||
| 339 | 2015-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 | |||
| 351 | 2015-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 | |||
| 359 | 2015-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 | |||
| 368 | 2015-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 | |||
| 391 | 2015-09-29 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 392 | |||
| 393 | * lisp/emacs-lisp/lisp-mode.el (let-when-compile): Work like let* | ||
| 394 | |||
| 395 | 2015-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 | |||
| 401 | 2015-09-29 Eli Zaretskii <eliz@gnu.org> | ||
| 402 | |||
| 403 | * nt/INSTALL: Add instructions for installing Git. | ||
| 404 | |||
| 405 | 2015-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 | |||
| 410 | 2015-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 | |||
| 415 | 2015-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 | |||
| 421 | 2015-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 | |||
| 429 | 2015-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 | |||
| 438 | 2015-09-28 Nicolas Petton <nicolas@petton.fr> | ||
| 439 | |||
| 440 | * lisp/arc-mode.el: Sharp-quote function arguments. | ||
| 441 | |||
| 442 | 2015-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 | |||
| 450 | 2015-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 | |||
| 458 | 2015-09-28 Tassilo Horn <tsdh@gnu.org> | ||
| 459 | |||
| 460 | Add auctex development list email address | ||
| 461 | |||
| 462 | 2015-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 | |||
| 468 | 2015-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 | |||
| 476 | 2015-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 | |||
| 483 | 2015-09-27 Michael Albinus <michael.albinus@gmx.de> | ||
| 484 | |||
| 485 | * src/gfilenotify.c (Fgfile_add_watch): Cleanup temporary variable. | ||
| 486 | |||
| 487 | 2015-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 | |||
| 494 | 2015-09-27 Eli Zaretskii <eliz@gnu.org> | ||
| 495 | |||
| 496 | * nt/subdirs.el: File deleted (no longer used). | ||
| 497 | |||
| 498 | 2015-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 | |||
| 517 | 2015-09-26 Paul Eggert <eggert@cs.ucla.edu> | ||
| 518 | |||
| 519 | * admin/MAINTAINERS: Add self, plus list some more files sans maintaners. | ||
| 520 | |||
| 521 | 2015-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 | |||
| 528 | 2015-09-26 Eli Zaretskii <eliz@gnu.org> | ||
| 529 | |||
| 530 | * etc/PROBLEMS: Document problems with pasting on MS-Windows | ||
| 531 | |||
| 532 | 2015-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 | |||
| 556 | 2015-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 | |||
| 563 | 2015-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 | |||
| 570 | 2015-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 | |||
| 578 | 2015-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 | |||
| 585 | 2015-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 | |||
| 595 | 2015-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 | |||
| 613 | 2015-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 | |||
| 633 | 2015-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 | |||
| 647 | 2015-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 | |||
| 655 | 2015-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 | |||
| 662 | 2015-09-24 Paul Eggert <eggert@cs.ucla.edu> | ||
| 663 | |||
| 664 | No need to mention K&R C in c-mode intro | ||
| 665 | |||
| 666 | 2015-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 | |||
| 674 | 2015-09-24 Michael Albinus <michael.albinus@gmx.de> | ||
| 675 | |||
| 676 | * src/gfilenotify.c (Fgfile_add_watch): Decrease polling rate. | ||
| 677 | |||
| 678 | 2015-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 | |||
| 685 | 2015-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 | |||
| 693 | 2015-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 | |||
| 702 | 2015-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 | |||
| 709 | 2015-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 | |||
| 724 | 2015-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 | |||
| 732 | 2015-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 | |||
| 741 | 2015-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 | |||
| 748 | 2015-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 | |||
| 756 | 2015-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 | |||
| 763 | 2015-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 | |||
| 770 | 2015-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 | |||
| 776 | 2015-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 | |||
| 795 | 2015-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 | |||
| 806 | 2015-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 | |||
| 813 | 2015-09-22 Tassilo Horn <tsdh@gnu.org> | ||
| 814 | |||
| 815 | Improve last commit to process.c | ||
| 816 | |||
| 817 | 2015-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 | |||
| 831 | 2015-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 | |||
| 839 | 2015-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 | |||
| 847 | 2015-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 | |||
| 854 | 2015-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 | |||
| 864 | 2015-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 | |||
| 872 | 2015-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 | |||
| 887 | 2015-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 | |||
| 895 | 2015-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 | |||
| 903 | 2015-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 | |||
| 911 | 2015-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 | |||
| 925 | 2015-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 | |||
| 932 | 2015-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 | |||
| 942 | 2015-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 | |||
| 950 | 2015-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 | |||
| 957 | 2015-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 | |||
| 966 | 2015-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 | |||
| 973 | 2015-09-20 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 974 | |||
| 975 | * lisp/emacs-lisp/syntax.el (syntax-begin-function): Make obsolete | ||
| 976 | |||
| 977 | 2015-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 | |||
| 984 | 2015-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 | |||
| 991 | 2015-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 | |||
| 999 | 2015-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 | |||
| 1039 | 2015-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 | |||
| 1067 | 2015-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 | |||
| 1073 | 2015-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 | |||
| 1 | 2015-09-20 Eli Zaretskii <eliz@gnu.org> | 1080 | 2015-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 | ||
| 13450 | This file records repository revisions from | 14529 | This file records repository revisions from |
| 13451 | commit 9d56a21e6a696ad19ac65c4b405aeca44785884a (exclusive) to | 14530 | commit 9d56a21e6a696ad19ac65c4b405aeca44785884a (exclusive) to |
| 13452 | commit 00a65e3238a888fc92b0c2aab8cb5bda8bd99c29 (inclusive). | 14531 | commit 2021680e9dcd277a4ebbdb613d535e6edc86f384 (inclusive). |
| 13453 | See ChangeLog.1 for earlier changes. | 14532 | See 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 | ||
| 111 | The 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 | |||
| 125 | Dmitry 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 | |||
| 132 | Ulf 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 | ============================================================================== |
| 112 | 2. | 149 | 2. |
| 113 | ============================================================================== | 150 | ============================================================================== |
| @@ -197,6 +234,7 @@ Paul Eggert | |||
| 197 | Michael Albinus | 234 | Michael 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 | |||
| 209 | Xue Fuqiao | 247 | Xue Fuqiao |
| 210 | doc/lispref/* | 248 | doc/lispref/* |
| 211 | 249 | ||
| 250 | Tassilo Horn | ||
| 251 | lisp/doc-view.el | ||
| 252 | |||
| 253 | Dmitry Gutov | ||
| 254 | lisp/whitespace.el | ||
| 255 | lisp/vc/* | ||
| 256 | |||
| 257 | Vibhav Pant | ||
| 258 | lisp/net/browse-url.el | ||
| 259 | lisp/erc/* | ||
| 260 | |||
| 212 | ============================================================================== | 261 | ============================================================================== |
| 213 | 3. | 262 | 3. |
| 214 | ============================================================================== | 263 | ============================================================================== |
| @@ -276,7 +325,6 @@ lisp/dired.el | |||
| 276 | lisp/dirtrack.el | 325 | lisp/dirtrack.el |
| 277 | lisp/disp-table.el | 326 | lisp/disp-table.el |
| 278 | lisp/dnd.el | 327 | lisp/dnd.el |
| 279 | lisp/doc-view.el | ||
| 280 | lisp/dom.el | 328 | lisp/dom.el |
| 281 | lisp/double.el | 329 | lisp/double.el |
| 282 | lisp/dynamic-setting.el | 330 | lisp/dynamic-setting.el |
| @@ -488,7 +536,50 @@ lisp/mouse.el | |||
| 488 | lisp/mpc.el | 536 | lisp/mpc.el |
| 489 | lisp/msb.el | 537 | lisp/msb.el |
| 490 | lisp/mwheel.el | 538 | lisp/mwheel.el |
| 491 | lisp/net/* | 539 | lisp/net/ange-ftp.el |
| 540 | lisp/net/dig.el | ||
| 541 | lisp/net/dns.el | ||
| 542 | lisp/net/eudcb-bbdb.el | ||
| 543 | lisp/net/eudcb-ldap.el | ||
| 544 | lisp/net/eudcb-mab.el | ||
| 545 | lisp/net/eudc-bob.el | ||
| 546 | lisp/net/eudcb-ph.el | ||
| 547 | lisp/net/eudc.el | ||
| 548 | lisp/net/eudc-export.el | ||
| 549 | lisp/net/eudc-hotlist.el | ||
| 550 | lisp/net/eudc-vars.el | ||
| 551 | lisp/net/eww.el | ||
| 552 | lisp/net/gnutls.el | ||
| 553 | lisp/net/goto-addr.el | ||
| 554 | lisp/net/hmac-def.el | ||
| 555 | lisp/net/hmac-md5.el | ||
| 556 | lisp/net/imap.el | ||
| 557 | lisp/net/ldap.el | ||
| 558 | lisp/net/mairix.el | ||
| 559 | lisp/net/netrc.el | ||
| 560 | lisp/net/net-utils.el | ||
| 561 | lisp/net/network-stream.el | ||
| 562 | lisp/net/nsm.el | ||
| 563 | lisp/net/ntlm.el | ||
| 564 | lisp/net/pinentry.el | ||
| 565 | lisp/net/quickurl.el | ||
| 566 | lisp/net/rcirc.el | ||
| 567 | lisp/net/rfc2104.el | ||
| 568 | lisp/net/rlogin.el | ||
| 569 | lisp/net/sasl-cram.el | ||
| 570 | lisp/net/sasl-digest.el | ||
| 571 | lisp/net/sasl.el | ||
| 572 | lisp/net/sasl-ntlm.el | ||
| 573 | lisp/net/sasl-scram-rfc.el | ||
| 574 | lisp/net/shr-color.el | ||
| 575 | lisp/net/shr.el | ||
| 576 | lisp/net/snmp-mode.el | ||
| 577 | lisp/net/soap-client.el | ||
| 578 | lisp/net/soap-inspect.el | ||
| 579 | lisp/net/socks.el | ||
| 580 | lisp/net/telnet.el | ||
| 581 | lisp/net/tls.el | ||
| 582 | lisp/net/webjump.el | ||
| 492 | lisp/newcomment.el | 583 | lisp/newcomment.el |
| 493 | lisp/novice.el | 584 | lisp/novice.el |
| 494 | lisp/nxml/* | 585 | lisp/nxml/* |
| @@ -574,11 +665,9 @@ lisp/progmodes/octave.el | |||
| 574 | lisp/progmodes/opascal.el | 665 | lisp/progmodes/opascal.el |
| 575 | lisp/progmodes/pascal.el | 666 | lisp/progmodes/pascal.el |
| 576 | lisp/progmodes/prog-mode.el | 667 | lisp/progmodes/prog-mode.el |
| 577 | lisp/progmodes/project.el | ||
| 578 | lisp/progmodes/prolog.el | 668 | lisp/progmodes/prolog.el |
| 579 | lisp/progmodes/ps-mode.el | 669 | lisp/progmodes/ps-mode.el |
| 580 | lisp/progmodes/python.el | 670 | lisp/progmodes/python.el |
| 581 | lisp/progmodes/ruby-mode.el | ||
| 582 | lisp/progmodes/scheme.el | 671 | lisp/progmodes/scheme.el |
| 583 | lisp/progmodes/sh-script.el | 672 | lisp/progmodes/sh-script.el |
| 584 | lisp/progmodes/simula.el | 673 | lisp/progmodes/simula.el |
| @@ -588,7 +677,6 @@ lisp/progmodes/vera-mode.el | |||
| 588 | lisp/progmodes/verilog-mode.el | 677 | lisp/progmodes/verilog-mode.el |
| 589 | lisp/progmodes/vhdl-mode.el | 678 | lisp/progmodes/vhdl-mode.el |
| 590 | lisp/progmodes/which-func.el | 679 | lisp/progmodes/which-func.el |
| 591 | lisp/progmodes/xref.el | ||
| 592 | lisp/progmodes/xscheme.el | 680 | lisp/progmodes/xscheme.el |
| 593 | lisp/ps-bdf.el | 681 | lisp/ps-bdf.el |
| 594 | lisp/ps-def.el | 682 | lisp/ps-def.el |
| @@ -662,17 +750,6 @@ lisp/textmodes/picture.el | |||
| 662 | lisp/textmodes/po.el | 750 | lisp/textmodes/po.el |
| 663 | lisp/textmodes/refbib.el | 751 | lisp/textmodes/refbib.el |
| 664 | lisp/textmodes/refer.el | 752 | lisp/textmodes/refer.el |
| 665 | lisp/textmodes/reftex-auc.el | ||
| 666 | lisp/textmodes/reftex-cite.el | ||
| 667 | lisp/textmodes/reftex-dcr.el | ||
| 668 | lisp/textmodes/reftex-global.el | ||
| 669 | lisp/textmodes/reftex-index.el | ||
| 670 | lisp/textmodes/reftex-parse.el | ||
| 671 | lisp/textmodes/reftex-ref.el | ||
| 672 | lisp/textmodes/reftex-sel.el | ||
| 673 | lisp/textmodes/reftex-toc.el | ||
| 674 | lisp/textmodes/reftex-vars.el | ||
| 675 | lisp/textmodes/reftex.el | ||
| 676 | lisp/textmodes/remember.el | 753 | lisp/textmodes/remember.el |
| 677 | lisp/textmodes/rst.el | 754 | lisp/textmodes/rst.el |
| 678 | lisp/textmodes/sgml-mode.el | 755 | lisp/textmodes/sgml-mode.el |
| @@ -698,14 +775,12 @@ lisp/type-break.el | |||
| 698 | lisp/uniquify.el | 775 | lisp/uniquify.el |
| 699 | lisp/url/* | 776 | lisp/url/* |
| 700 | lisp/userlock.el | 777 | lisp/userlock.el |
| 701 | lisp/vc/* | ||
| 702 | lisp/vcursor.el | 778 | lisp/vcursor.el |
| 703 | lisp/version.el | 779 | lisp/version.el |
| 704 | lisp/view.el | 780 | lisp/view.el |
| 705 | lisp/vt-control.el | 781 | lisp/vt-control.el |
| 706 | lisp/vt100-led.el | 782 | lisp/vt100-led.el |
| 707 | lisp/wdired.el | 783 | lisp/wdired.el |
| 708 | lisp/whitespace.el | ||
| 709 | lisp/wid-browse.el | 784 | lisp/wid-browse.el |
| 710 | lisp/wid-edit.el | 785 | lisp/wid-edit.el |
| 711 | lisp/widget.el | 786 | lisp/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. |
| 221 | if test -d .git; then | 221 | if 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. | |||
| 417 | using straight apostrophes @t{'like this'} or double-quotes @t{"like | 417 | using straight apostrophes @t{'like this'} or double-quotes @t{"like |
| 418 | this"}. Another common way is the curved quote convention, which uses | 418 | this"}. Another common way is the curved quote convention, which uses |
| 419 | left and right single or double quotation marks @t{‘like this’} or | 419 | left 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 |
| 421 | quotes are less ambiguous and typically look nicer. | 421 | portable; 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 |
| 424 | type characters it optionally converts @t{`} to @t{‘}, @t{'} to @t{’}, | 424 | type characters it optionally converts @t{`} to @t{‘}, @t{'} to @t{’}, |
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi index 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 | |||
| 3454 | Consider the function @code{zap-to-char}. Its interactive expression | 3454 | Consider the function @code{zap-to-char}. Its interactive expression |
| 3455 | is | 3455 | is |
| 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}: | |||
| 1011 | error symbol @code{error}, and a list containing the string returned by | 1011 | error symbol @code{error}, and a list containing the string returned by |
| 1012 | @code{format-message}. | 1012 | @code{format-message}. |
| 1013 | 1013 | ||
| 1014 | In a format string containing single quotes, curved quotes @t{‘like | ||
| 1015 | this’} and grave quotes @t{`like this'} work better than straight | ||
| 1016 | quotes @t{'like this'}, as @code{error} typically formats every | ||
| 1017 | straight 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 |
| 1015 | verbatim, don't just write @code{(error @var{string})}. If @var{string} | 1020 | verbatim, don't just write @code{(error @var{string})}. If @var{string} |
| 1016 | contains @samp{%}, it will be interpreted as a format specifier, with | 1021 | @var{string} contains @samp{%}, @samp{`}, or @samp{'} it may be |
| 1017 | undesirable results. Instead, use @code{(error "%s" @var{string})}. | 1022 | reformatted, 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}). | |||
| 254 | The string is also added to the @file{*Messages*} buffer, but without | 254 | The string is also added to the @file{*Messages*} buffer, but without |
| 255 | text properties (@pxref{Logging Messages}). | 255 | text properties (@pxref{Logging Messages}). |
| 256 | 256 | ||
| 257 | In a format string containing single quotes, curved quotes @t{‘like | ||
| 258 | this’} and grave quotes @t{`like this'} work better than straight | ||
| 259 | quotes @t{'like this'}, as @code{message} typically formats every | ||
| 260 | straight quote as a curved closing quote. | ||
| 261 | |||
| 257 | In batch mode, the message is printed to the standard error stream, | 262 | In batch mode, the message is printed to the standard error stream, |
| 258 | followed by a newline. | 263 | followed 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 ---------- |
| 279 | Minibuffer depth is 0. | 283 | Reverting ‘subr.el’... |
| 280 | ---------- Echo Area ---------- | 284 | ---------- Echo Area ---------- |
| 281 | @end group | 285 | @end group |
| 282 | @end example | 286 | @end example |
| 283 | 287 | ||
| 284 | To automatically display a message in the echo area or in a pop-buffer, | 288 | To automatically display a message in the echo area or in a pop-buffer, |
| 285 | depending on its size, use @code{display-message-or-buffer} (see below). | 289 | depending 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 | ||
| 292 | verbatim, don't just write @code{(message @var{string})}. If | ||
| 293 | @var{string} contains @samp{%}, @samp{`}, or @samp{'} it may be | ||
| 294 | reformatted, 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} | |||
| 1279 | is a Lisp function object, including the @code{lambda} symbol. | 1279 | is 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 |
| 1283 | a macro as far as Emacs is concerned. @xref{Macros}, for an explanation | 1283 | macro as far as Emacs is concerned. @xref{Macros}, for an explanation |
| 1284 | of how to write a macro. | 1284 | of 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} | ||
| 75 | This function returns the number of elements in @var{sequence}. If | 76 | This 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 |
| 77 | signaled. Circular lists may cause an infinite loop. For a | 78 | signaled. Circular lists may cause an infinite loop. For a |
| @@ -113,6 +114,7 @@ since @code{length} only counts the number of characters, but does not | |||
| 113 | account for the display width of each character. | 114 | account 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 |
| 117 | This function returns the element of @var{sequence} indexed by | 119 | This 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 | |||
| 431 | sequence of the same type as the input. For those functions that take | 433 | sequence of the same type as the input. For those functions that take |
| 432 | a predicate, this should be a function of one argument. | 434 | a predicate, this should be a function of one argument. |
| 433 | 435 | ||
| 436 | The @file{seq.el} library can be extended to work with additional | ||
| 437 | types of sequential data-structures. For that purpose, all functions | ||
| 438 | are 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 | ||
| 443 | length of @var{sequence} minus one. For out-of-range values on | ||
| 444 | built-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) | ||
| 458 | vec | ||
| 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 | ||
| 466 | built-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) |
| 436 | elements of @var{sequence}. If @var{n} is negative or zero, | 489 | elements of @var{sequence}. If @var{n} is negative or zero, |
| @@ -497,6 +550,28 @@ starting from the first one for which @var{predicate} returns @code{nil}. | |||
| 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 | ||
| 561 | element 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 |
| 562 | non-@code{nil} for any element of @var{sequence}. If so, the returned | 637 | applying @var{predicate} to each element of @var{sequence} in turn. |
| 563 | value 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 |
| 3175 | This function returns non-@code{nil} if @var{position} is within the | 3175 | This function returns non-@code{nil} if @var{position} is within the |
| 3176 | range of text currently visible on the screen in @var{window}. It | 3176 | range of text currently visible on the screen in @var{window}. It |
| 3177 | returns @code{nil} if @var{position} is scrolled vertically out of view. | 3177 | returns @code{nil} if @var{position} is scrolled vertically out of |
| 3178 | Locations that are partially obscured are not considered visible unless | 3178 | view. Locations that are partially obscured are not considered |
| 3179 | @var{partially} is non-@code{nil}. The argument @var{position} defaults | 3179 | visible unless @var{partially} is non-@code{nil}. The argument |
| 3180 | to the current position of point in @var{window}; @var{window}, to the | 3180 | @var{position} defaults to the current position of point in |
| 3181 | selected window. If @var{position} is @code{t}, that means to check the | 3181 | @var{window}; @var{window} defaults to the selected window. If |
| 3182 | last visible position in @var{window}. | 3182 | @var{position} is @code{t}, that means to check either the first |
| 3183 | visible position of the last screen line in @var{window}, or the | ||
| 3184 | end-of-buffer position, whichever comes first. | ||
| 3183 | 3185 | ||
| 3184 | This function considers only vertical scrolling. If @var{position} is | 3186 | This function considers only vertical scrolling. If @var{position} is |
| 3185 | out of view only because @var{window} has been scrolled horizontally, | 3187 | out of view only because @var{window} has been scrolled horizontally, |
| @@ -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 | ||
| 320 | the 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. |
| 319 | See `prog-indentation-context' and `prog-widen'. | 324 | See `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 | ||
| 322 | overriding the default `prettify-symbols-compose-predicate', modes can | 328 | overriding the default `prettify-symbols-compose-predicate', modes can |
| 323 | specify in which contexts a symbol map be composed to some unicode | 329 | specify in which contexts a symbol map be composed to some unicode |
| 324 | character. `prettify-symbols-default-compose-p' is the default which | 330 | character. `prettify-symbols-default-compose-p' is the default which |
| 325 | is suitable for most programming languages such as C or Lisp (but not | 331 | is 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. | ||
| 335 | New 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 | ||
| 638 | specify the type of shell in use (bash, csh, etc). | 648 | specify the type of shell in use (bash, csh, etc). |
| 639 | 649 | ||
| 650 | *** New value `always' for sh-indent-after-continuation. | ||
| 651 | This 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 @@ | |||
| 1 | 2015-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 | |||
| 6 | 2015-04-06 Alan Mackenzie <acm@muc.de> | 1 | 2015-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. |
| 242 | Use BINDINGS as in regular `let', but in BODY each usage should | 242 | Use BINDINGS as in regular `let*', but in BODY each usage should |
| 243 | be wrapped in `eval-when-compile'. | 243 | be wrapped in `eval-when-compile'. |
| 244 | This will generate compile-time constants from BINDINGS." | 244 | This 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." |
| 265 | If 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. | |||
| 560 | Typically the :secret property, if present, contains a password. | 560 | Typically the :secret property, if present, contains a password. |
| 561 | 561 | ||
| 562 | Common search keys are :max, :host, :port, and :user. In | 562 | Common search keys are :max, :host, :port, and :user. In |
| 563 | addition, :create specifies how tokens will be or created. | 563 | addition, :create specifies if and how tokens will be created. |
| 564 | Finally, :type can specify which backend types you want to check. | 564 | Finally, :type can specify which backend types you want to check. |
| 565 | 565 | ||
| 566 | A string value is always matched literally. A symbol is matched | 566 | A 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 | |||
| 2493 | buffers which satisfy ALL criteria on the stack. For example, suppose | 2493 | buffers which satisfy ALL criteria on the stack. For example, suppose |
| 2494 | you only want to see buffers in `emacs-lisp' mode, whose names begin | 2494 | you only want to see buffers in `emacs-lisp' mode, whose names begin |
| 2495 | with \"gnus\". You can accomplish this via: | 2495 | with \"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 | ||
| 2499 | Additionally, you can OR the top two filters together with | 2500 | Additionally, 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 | ||
| 2505 | Filters can also be saved and restored using mnemonic names: see the | 2508 | Filters can also be saved and restored using mnemonic names: see the |
| 2506 | functions `ibuffer-save-filters' and `ibuffer-switch-to-saved-filters'. | 2509 | functions `ibuffer-save-filters' and `ibuffer-switch-to-saved-filters'. |
| @@ -2518,9 +2521,10 @@ create a filter group, simply use the regular functions to create a | |||
| 2518 | filter, and then type `\\[ibuffer-filters-to-filter-group]'. | 2521 | filter, and then type `\\[ibuffer-filters-to-filter-group]'. |
| 2519 | 2522 | ||
| 2520 | A quick example will make things clearer. Suppose that one wants to | 2523 | A quick example will make things clearer. Suppose that one wants to |
| 2521 | group all of one's Emacs Lisp buffers together. To do this, type | 2524 | group 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 | ||
| 2525 | You may, of course, name the group whatever you want; it doesn't have | 2529 | You may, of course, name the group whatever you want; it doesn't have |
| 2526 | to be \"emacs lisp buffers\". Filter groups may be composed of any | 2530 | to 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. |
| 59 | Must be one of `alist', `plist', or `hash-table'. Consider let-binding | 59 | Must be one of `alist', `plist', or `hash-table'. Consider let-binding |
| 60 | this around your call to `json-read' instead of `setq'ing it.") | 60 | this around your call to `json-read' instead of `setq'ing it. Ordering |
| 61 | is 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. | ||
| 142 | Unlike `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 | |||
| 2823 | all functions called by those functions. | 2823 | all functions called by those functions. |
| 2824 | 2824 | ||
| 2825 | The call graph does not include macros, inline functions, or | 2825 | The call graph does not include macros, inline functions, or |
| 2826 | primitives that the byte-code interpreter knows about directly (eq, | 2826 | primitives that the byte-code interpreter knows about directly |
| 2827 | cons, etc.). | 2827 | \(`eq', `cons', etc.). |
| 2828 | 2828 | ||
| 2829 | The call tree also lists those functions which are not known to be called | 2829 | The 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" "\ |
| 3205 | Major mode for editing K&R and ANSI C code. | 3205 | Major mode for editing C code. |
| 3206 | |||
| 3206 | To submit a problem report, enter `\\[c-submit-bug-report]' from a | 3207 | To submit a problem report, enter `\\[c-submit-bug-report]' from a |
| 3207 | c-mode buffer. This automatically sets up a mail buffer with version | 3208 | c-mode buffer. This automatically sets up a mail buffer with version |
| 3208 | information already added. You just need to add a description of the | 3209 | information 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 | ||
| 5298 | For example, the MH-E package updates this alist as follows: | 5299 | For 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" "\ |
| 10577 | Handle file system monitoring event. | 10578 | Handle file system monitoring event. |
| 10578 | If EVENT is a filewatch event, call its callback. It has the format | 10579 | If 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 | ||
| 10582 | Otherwise, signal a `file-notify-error'. | 10583 | Otherwise, 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" "\ | ||
| 11231 | Scroll text in a Follow mode window chain up. | ||
| 11232 | |||
| 11233 | If called with no ARG, the `next-screen-context-lines' last lines of | ||
| 11234 | the bottom window in the chain will be visible in the top window. | ||
| 11235 | |||
| 11236 | If called with an argument, scroll ARG lines up. | ||
| 11237 | Negative ARG means scroll downward. | ||
| 11238 | |||
| 11239 | Works like `scroll-up' when not in Follow mode. | ||
| 11240 | |||
| 11241 | \(fn &optional ARG)" t nil) | ||
| 11242 | |||
| 11243 | (autoload 'follow-scroll-down "follow" "\ | ||
| 11244 | Scroll text in a Follow mode window chain down. | ||
| 11245 | |||
| 11246 | If called with no ARG, the `next-screen-context-lines' top lines of | ||
| 11247 | the top window in the chain will be visible in the bottom window. | ||
| 11248 | |||
| 11249 | If called with an argument, scroll ARG lines down. | ||
| 11250 | Negative ARG means scroll upward. | ||
| 11251 | |||
| 11252 | Works 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" "\ |
| 11231 | Create two side by side windows and enter Follow mode. | 11257 | Create 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. | |||
| 13078 | The first arg in ARGLIST (the one that receives VAL) receives an expression | 13104 | The first arg in ARGLIST (the one that receives VAL) receives an expression |
| 13079 | which can do arbitrary things, whereas the other arguments are all guaranteed | 13105 | which can do arbitrary things, whereas the other arguments are all guaranteed |
| 13080 | to be pure and copyable. Example use: | 13106 | to 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á"))))) "\ |
| 14207 | Bahá'à holidays. | 14234 | Bahá’à holidays. |
| 14208 | See the documentation for `calendar-holidays' for details.") | 14235 | See 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" "\ |
| 14424 | Begin using Ibuffer to edit a list of buffers. | 14451 | Begin using Ibuffer to edit a list of buffers. |
| 14425 | Type ‘h’ after entering ibuffer for more information. | 14452 | Type `h' after entering ibuffer for more information. |
| 14426 | 14453 | ||
| 14427 | All arguments are optional. | 14454 | All arguments are optional. |
| 14428 | OTHER-WINDOW-P says to use another window. | 14455 | OTHER-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. | |||
| 16454 | The argument may be a character or string. The result has the same type. | 16481 | The argument may be a character or string. The result has the same type. |
| 16455 | The argument object is not altered--the value is a copy. | 16482 | The argument object is not altered--the value is a copy. |
| 16456 | Optional argument HANKAKU t means to convert to `hankaku' Katakana | 16483 | Optional 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 | 16485 | may be a string even if OBJ is a character if two Katakanas are |
| 16459 | necessary to represent OBJ. | 16486 | necessary 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 | |||
| 18725 | hemisphere you're in.) | 18752 | hemisphere you're in.) |
| 18726 | 18753 | ||
| 18727 | To test this function, evaluate: | 18754 | To 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 | |||
| 18743 | middle button in Tk text widgets. | 18770 | middle button in Tk text widgets. |
| 18744 | 18771 | ||
| 18745 | To test this function, evaluate: | 18772 | To 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 | |||
| 20103 | argument: an entry from `org-agenda-get-day-entries'. | 20131 | argument: an entry from `org-agenda-get-day-entries'. |
| 20104 | 20132 | ||
| 20105 | FILTER can also be an alist with the car of each cell being | 20133 | FILTER can also be an alist with the car of each cell being |
| 20106 | either 'headline or 'category. For example: | 20134 | either `headline' or `category'. For example: |
| 20107 | 20135 | ||
| 20108 | '((headline \"IMPORTANT\") | 20136 | ((headline \"IMPORTANT\") |
| 20109 | (category \"Work\")) | 20137 | (category \"Work\")) |
| 20110 | 20138 | ||
| 20111 | will only add headlines containing IMPORTANT or headlines | 20139 | will only add headlines containing IMPORTANT or headlines |
| 20112 | belonging to the \"Work\" category. | 20140 | belonging 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. | |||
| 20337 | If optional arg NO-ACTIVATE is non-nil, don't activate packages. | 20365 | If optional arg NO-ACTIVATE is non-nil, don't activate packages. |
| 20338 | If `user-init-file' does not mention `(package-initialize)', add | 20366 | If `user-init-file' does not mention `(package-initialize)', add |
| 20339 | it to the file. | 20367 | it to the file. |
| 20368 | If called as part of loading `user-init-file', set | ||
| 20369 | `package-enable-at-startup' to nil, to prevent accidentally | ||
| 20370 | loading 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. | |||
| 22866 | The returned regexp is typically more efficient than the equivalent regexp: | 22897 | The 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 | ||
| 22871 | If PAREN is `words', then the resulting regexp is additionally surrounded | 22902 | If PAREN is `words', then the resulting regexp is additionally surrounded |
| 22872 | by \\=\\< and \\>. | 22903 | by \\=\\< 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\">. | |||
| 24626 | If you mainly create your own documents, `sgml-specials' might be | 24657 | If you mainly create your own documents, `sgml-specials' might be |
| 24627 | interesting. But note that some HTML 2 browsers can't handle `''. | 24658 | interesting. But note that some HTML 2 browsers can't handle `''. |
| 24628 | To work around that, do: | 24659 | To 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 | ||
| 25563 | For example: | 25594 | For 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 | ||
| 25568 | adds a fontification pattern to fontify identifiers ending in | 25599 | adds 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" "\ |
| 26690 | Justify contents of a cell, a row of cells or a column of cells. | 26721 | Justify contents of a cell, a row of cells or a column of cells. |
| 26691 | WHAT is a symbol ‘cell’, ‘row’ or ‘column’. JUSTIFY is a symbol | 26722 | WHAT 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" "\ |
| 26697 | Justify cell contents. | 26728 | Justify cell contents. |
| 26698 | JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, or ‘top’, | 26729 | JUSTIFY 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 |
| 26700 | non-nil the justify operation is limited to the current paragraph, | 26731 | non-nil the justify operation is limited to the current paragraph, |
| 26701 | otherwise the entire cell contents is justified. | 26732 | otherwise 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" "\ |
| 26706 | Justify cells of a row. | 26737 | Justify cells of a row. |
| 26707 | JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, | 26738 | JUSTIFY is a symbol `left', `center' or `right' for horizontal, |
| 26708 | or ‘top’, ‘middle’, ‘bottom’ or ‘none’ for vertical. | 26739 | or `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" "\ |
| 26713 | Justify cells of a column. | 26744 | Justify cells of a column. |
| 26714 | JUSTIFY is a symbol ‘left’, ‘center’ or ‘right’ for horizontal, | 26745 | JUSTIFY is a symbol `left', `center' or `right' for horizontal, |
| 26715 | or ‘top’, ‘middle’, ‘bottom’ or ‘none’ for vertical. | 26746 | or `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 | |||
| 26785 | insertion which is normally 1. When zero or less is given for | 26816 | insertion which is normally 1. When zero or less is given for |
| 26786 | INTERVAL it is interpreted as number of cells per row so that sequence | 26817 | INTERVAL it is interpreted as number of cells per row so that sequence |
| 26787 | is placed straight down vertically as long as the table's cell | 26818 | is placed straight down vertically as long as the table's cell |
| 26788 | structure is uniform. JUSTIFY is a symbol ‘left’, ‘center’ or | 26819 | structure 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 | ||
| 26791 | Example: | 26822 | Example: |
| 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. | |||
| 29472 | Build a query-string. | 29503 | Build a query-string. |
| 29473 | 29504 | ||
| 29474 | Given a QUERY in the form: | 29505 | Given 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 | |||
| 2901 | actual printing for the \\[mh-print-msg] command. The string can | 2901 | actual printing for the \\[mh-print-msg] command. The string can |
| 2902 | contain one escape, \"%s\", which is replaced by the name of the | 2902 | contain one escape, \"%s\", which is replaced by the name of the |
| 2903 | folder and the message number and is useful for print job names. | 2903 | folder and the message number and is useful for print job names. |
| 2904 | I use \"mpage -h'%s' -b Letter -H1of -mlrtb -P\" which produces a | 2904 | I use \"mpage -h\\='%s\\=' -b Letter -H1of -mlrtb -P\" which produces a |
| 2905 | nice header and adds a bit of margin so the text fits within my | 2905 | nice header and adds a bit of margin so the text fits within my |
| 2906 | printer's margins. | 2906 | printer's margins. |
| 2907 | 2907 | ||
| 2908 | This options is not used by the commands \\[mh-ps-print-msg] or | 2908 | This 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. |
| 941 | Optional argument NUM-NEW is used for choosing face, other | 941 | Optional argument NUM-NEW is used for choosing face, other |
| 942 | arguments NT-ID, FEED, and VFEED are added as properties." | 942 | arguments 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 | |||
| 2321 | If the value is a coding-system, use that coding-system to decode | ||
| 2322 | the bytes reconstructed from octal escapes. Any other non-nil value | ||
| 2323 | means to decode using the coding-system set for the GDB process. | ||
| 2324 | |||
| 2325 | Warning: setting this non-nil might mangle strings reported by GDB | ||
| 2326 | that have literal substrings which match the \\nnn octal escape | ||
| 2327 | patterns, where nnn is an octal number between 200 and 377. So | ||
| 2328 | we only recommend to set this variable non-nil if the program you | ||
| 2329 | are debugging really reports non-ASCII text, or some of its source | ||
| 2330 | file 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. |
| 239 | Non-nil means show matching begin of block when inserting a space, | 219 | Non-nil means show matching begin of block when inserting a space, |
| 240 | newline or semicolon after an else or end keyword." | 220 | newline 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. |
| 287 | Non-nil means always go to the next Octave code line after sending." | 262 | Non-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. |
| 630 | See `comint-prompt-read-only' for details." | 652 | See `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." | |||
| 639 | The contents of this file are sent to the inferior Octave process on | 660 | The contents of this file are sent to the inferior Octave process on |
| 640 | startup." | 661 | startup." |
| 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." | |||
| 647 | For example, for suppressing the startup message and using `traditional' | 667 | For example, for suppressing the startup message and using `traditional' |
| 648 | mode, include \"-q\" and \"--traditional\"." | 668 | mode, 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. |
| 1787 | If the environment variable OCTAVE_SRCDIR is set, it is searched first." | 1800 | If 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. | ||
| 194 | If set to the symbol `right-edge', also unprettify if point | ||
| 195 | is immediately after the symbol. The prettification will be | ||
| 196 | reapplied as soon as point moves away from the symbol. If | ||
| 197 | set to nil, the prettification persists even when point is | ||
| 198 | on 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" | 1995 | Continued lines can either be indented as \"one long wrapped line\" without |
| 1996 | :type 'boolean | 1996 | paying attention to the actual syntactic structure, as in: |
| 1997 | |||
| 1998 | for f \ | ||
| 1999 | in a; do \ | ||
| 2000 | toto; \ | ||
| 2001 | done | ||
| 2002 | |||
| 2003 | or 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 | |||
| 2010 | With `always' you get the former behavior whereas with nil you get the latter. | ||
| 2011 | With t, you get the latter as long as that would indent the continuation line | ||
| 2012 | deeper 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. |
| 237 | SVN revision is the upstream (docutils) revision.") | 237 | SVN 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. | |||
| 397 | If PREDICATE is non-nil, call PREDICATE with each possible | 397 | If PREDICATE is non-nil, call PREDICATE with each possible |
| 398 | completion (in absolute form) and ignore it if PREDICATE returns nil. | 398 | completion (in absolute form) and ignore it if PREDICATE returns nil. |
| 399 | 399 | ||
| 400 | This function ignores some of the possible completions as | 400 | This function ignores some of the possible completions as determined |
| 401 | determined by the variable `completion-ignored-extensions', which see. */) | 401 | by the variables `completion-regexp-list' and |
| 402 | `completion-ignored-extensions', which see. `completion-regexp-list' | ||
| 403 | is 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. */) | |||
| 422 | DEFUN ("file-name-all-completions", Ffile_name_all_completions, | 424 | DEFUN ("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. |
| 425 | These are all file names in directory DIRECTORY which begin with FILE. */) | 427 | These are all file names in directory DIRECTORY which begin with FILE. |
| 428 | |||
| 429 | This function ignores some of the possible completions as determined | ||
| 430 | by the variables `completion-regexp-list' and | ||
| 431 | `completion-ignored-extensions', which see. `completion-regexp-list' | ||
| 432 | is 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 | ||
| 193 | static CFIndex | ||
| 194 | mac_font_get_weight (CTFontRef font) | ||
| 195 | { | ||
| 196 | NSFont *nsFont = (NSFont *) font; | ||
| 197 | |||
| 198 | return [[NSFontManager sharedFontManager] weightOfFont:nsFont]; | ||
| 199 | } | ||
| 200 | |||
| 193 | static CGFloat | 201 | static CGFloat |
| 194 | mac_screen_font_get_advance_width_for_glyph (ScreenFontRef font, CGGlyph glyph) | 202 | mac_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 | ||
| 201 | static CGGlyph | 210 | static CGGlyph |
| 202 | mac_font_get_glyph_for_cid (CTFontRef font, CTCharacterCollection collection, | 211 | mac_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 | ||
| 769 | static CGFloat | ||
| 770 | mac_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 | |||
| 765 | static void | 809 | static void |
| 766 | macfont_store_descriptor_attributes (CTFontDescriptorRef desc, | 810 | macfont_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) | |||
| 2717 | static unsigned | 2765 | static unsigned |
| 2718 | macfont_encode_char (struct font *font, int c) | 2766 | macfont_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) | |||
| 3998 | void | 4051 | void |
| 3999 | syms_of_macfont (void) | 4052 | syms_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 | |||
| 1686 | character is only partially visible, nil is returned, unless the | 1686 | character is only partially visible, nil is returned, unless the |
| 1687 | optional argument PARTIALLY is non-nil. If POS is only out of view | 1687 | optional argument PARTIALLY is non-nil. If POS is only out of view |
| 1688 | because of horizontal scrolling, return non-nil. If POS is t, it | 1688 | because of horizontal scrolling, return non-nil. If POS is t, it |
| 1689 | specifies the position of the last visible glyph in WINDOW. POS | 1689 | specifies either the first position displayed on the last visible |
| 1690 | defaults to point in WINDOW; WINDOW defaults to the selected window. | 1690 | screen line in WINDOW, or the end-of-buffer position, whichever comes |
| 1691 | first. POS defaults to point in WINDOW; WINDOW defaults to the | ||
| 1692 | selected window. | ||
| 1691 | 1693 | ||
| 1692 | If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil, | 1694 | If POS is visible, return t if PARTIALLY is nil; if PARTIALLY is non-nil, |
| 1693 | the return value is a list of 2 or 6 elements (X Y [RTOP RBOT ROWH VPOS]), | 1695 | the return value is a list of 2 or 6 elements (X Y [RTOP RBOT ROWH VPOS]), |
| @@ -6607,7 +6609,6 @@ apply_window_adjustment (struct window *w) | |||
| 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 | ||
| 435 | static bool message_enable_multibyte; | 435 | static 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 | ||
| 443 | int update_mode_lines; | 467 | int 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 | ||
| 452 | int windows_or_buffers_changed; | 484 | int 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 | ||
| 636 | void | 636 | void |
| 637 | recompute_basic_faces (struct frame *f) | 637 | recompute_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 -*- |
| 2 | 0; # Don't make this a function file | 2 | 0; # Don't make this a function file |
| 3 | function res = tcomp (fn) | 3 | function 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 |
| 4 | test1 :- | 4 | test21526_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 | ||
| 13 | test2 :- | 15 | test21526_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 | |||
| 26 | test21526_3 :- | ||
| 27 | X \= Y, | ||
| 28 | \+ a, | ||
| 29 | b, | ||
| 30 | \+ \+ c, | ||
| 31 | d. | ||
| 32 | |||
| 33 | test21526_4 :- | ||
| 34 | ( \+ a -> | ||
| 35 | b | ||
| 36 | ; \+ c, | ||
| 37 | \+ d | ||
| 38 | ). | ||
| 39 | |||
| 40 | |||
| 41 | test21526_5 :- | ||
| 42 | (a; | ||
| 43 | b -> | ||
| 44 | c). | ||
| 45 | |||
| 46 | test21526_predicate(c) :- !, | ||
| 47 | test_goal1, | ||
| 48 | test_goal2. | ||
| 23 | 49 | ||
| 24 | %% Testing correct tokenizing. | 50 | %% Testing correct tokenizing. |
| 25 | foo(X) :- 0'= = X. | 51 | foo(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 | ). |