diff options
| author | Joakim Verona | 2011-12-28 04:12:56 +0100 |
|---|---|---|
| committer | Joakim Verona | 2011-12-28 04:12:56 +0100 |
| commit | bb29f044aa967831cd664c54eba0de0c701436ce (patch) | |
| tree | 1398cc9780bbae0fdad071a3a3765a571c3f6d7b | |
| parent | 3c935a7e996701244d166f684119f0ff97e25496 (diff) | |
| parent | 5e605a2e528955721fc6f2bd7b9f174c15075fb1 (diff) | |
| download | emacs-bb29f044aa967831cd664c54eba0de0c701436ce.tar.gz emacs-bb29f044aa967831cd664c54eba0de0c701436ce.zip | |
upstream i think
348 files changed, 8125 insertions, 5197 deletions
| @@ -1,3 +1,26 @@ | |||
| 1 | 2011-12-03 Paul Eggert <eggert@cs.ucla.edu> | ||
| 2 | |||
| 3 | * INSTALL.BZR: Mention configure -C, --disable-maintainer-mode. | ||
| 4 | |||
| 5 | Propagate configure flags to sub-configures. | ||
| 6 | * Makefile.in (cache_file, MAINTAINER_MODE_FLAG, CONFIGUREFLAGS): | ||
| 7 | New macros. | ||
| 8 | (config.status, bootstrap): Use them to propagate configure flags | ||
| 9 | to sub-configures. | ||
| 10 | * configure.in (cache_file): AC_SUBST this, for Makefile.in. | ||
| 11 | |||
| 12 | 2011-12-03 Paul Eggert <eggert@cs.ucla.edu> | ||
| 13 | |||
| 14 | * .bzrignore: Add config.cache. | ||
| 15 | |||
| 16 | 2011-11-27 Jan Djärv <jan.h.d@swipnet.se> | ||
| 17 | |||
| 18 | * configure.in: Check for gtk_window_set_has_resize_grip. | ||
| 19 | |||
| 20 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 21 | |||
| 22 | * configure.in (HAVE_XPM): Fix typo. | ||
| 23 | |||
| 1 | 2011-11-22 Glenn Morris <rgm@gnu.org> | 24 | 2011-11-22 Glenn Morris <rgm@gnu.org> |
| 2 | 25 | ||
| 3 | * configure.in (EMACSDATA, EMACSDOC): If set, print, since they can | 26 | * configure.in (EMACSDATA, EMACSDOC): If set, print, since they can |
| @@ -1434,7 +1457,7 @@ | |||
| 1434 | 1457 | ||
| 1435 | 2010-10-24 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1458 | 2010-10-24 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 1436 | 1459 | ||
| 1437 | * configure.in: Remove the BROKEN annotation from gnutls. | 1460 | * configure.in: Remove the BROKEN annotation from GnuTLS. |
| 1438 | 1461 | ||
| 1439 | 2010-10-22 Glenn Morris <rgm@gnu.org> | 1462 | 2010-10-22 Glenn Morris <rgm@gnu.org> |
| 1440 | 1463 | ||
| @@ -1517,7 +1540,7 @@ | |||
| 1517 | 2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1540 | 2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 1518 | 1541 | ||
| 1519 | * configure.in (HAVE_GNUTLS): Don't break if we don't have the | 1542 | * configure.in (HAVE_GNUTLS): Don't break if we don't have the |
| 1520 | gnutls libraries. | 1543 | GnuTLS libraries. |
| 1521 | 1544 | ||
| 1522 | 2010-09-26 Teodor Zlatanov <tzz@lifelogs.com> | 1545 | 2010-09-26 Teodor Zlatanov <tzz@lifelogs.com> |
| 1523 | 1546 | ||
diff --git a/INSTALL.BZR b/INSTALL.BZR index 664aab1c765..69babac7a8b 100644 --- a/INSTALL.BZR +++ b/INSTALL.BZR | |||
| @@ -28,6 +28,10 @@ options you can set): | |||
| 28 | 28 | ||
| 29 | $ ./configure | 29 | $ ./configure |
| 30 | 30 | ||
| 31 | If you want later builds to go faster, at the expense of sometimes | ||
| 32 | doing the wrong thing if you update the build procedure, you can | ||
| 33 | invoke "./configure -C --disable-maintainer-mode" instead. | ||
| 34 | |||
| 31 | Some of the files that are included in the Emacs tarball, such as | 35 | Some of the files that are included in the Emacs tarball, such as |
| 32 | byte-compiled Lisp files, are not stored in Bazaar. Therefore, to | 36 | byte-compiled Lisp files, are not stored in Bazaar. Therefore, to |
| 33 | build from Bazaar you must run "make bootstrap" instead of just "make": | 37 | build from Bazaar you must run "make bootstrap" instead of just "make": |
diff --git a/Makefile.in b/Makefile.in index c0d108877c1..3ba7c9baae7 100644 --- a/Makefile.in +++ b/Makefile.in | |||
| @@ -66,6 +66,11 @@ CDPATH= | |||
| 66 | 66 | ||
| 67 | # ==================== Things `configure' Might Edit ==================== | 67 | # ==================== Things `configure' Might Edit ==================== |
| 68 | 68 | ||
| 69 | MAINTAINER_MODE_FLAG = --disable-maintainer-mode | ||
| 70 | @MAINT@MAINTAINER_MODE_FLAG = --enable-maintainer-mode | ||
| 71 | cache_file = @cache_file@ | ||
| 72 | CONFIGURE_FLAGS = --cache-file=$(cache_file) $(MAINTAINER_MODE_FLAG) | ||
| 73 | |||
| 69 | CC=@CC@ | 74 | CC=@CC@ |
| 70 | CFLAGS=@CFLAGS@ | 75 | CFLAGS=@CFLAGS@ |
| 71 | LDFLAGS=@LDFLAGS@ | 76 | LDFLAGS=@LDFLAGS@ |
| @@ -404,7 +409,7 @@ config.status: ${srcdir}/configure ${srcdir}/lisp/version.el | |||
| 404 | if [ -x ./config.status ]; then \ | 409 | if [ -x ./config.status ]; then \ |
| 405 | ./config.status --recheck; \ | 410 | ./config.status --recheck; \ |
| 406 | else \ | 411 | else \ |
| 407 | ./configure; \ | 412 | ./configure $(CONFIGURE_FLAGS); \ |
| 408 | fi | 413 | fi |
| 409 | 414 | ||
| 410 | AUTOCONF_INPUTS = @MAINT@ $(srcdir)/configure.in $(srcdir)/aclocal.m4 | 415 | AUTOCONF_INPUTS = @MAINT@ $(srcdir)/configure.in $(srcdir)/aclocal.m4 |
| @@ -936,7 +941,7 @@ bootstrap: bootstrap-clean FRC | |||
| 936 | if [ -x ./config.status ]; then \ | 941 | if [ -x ./config.status ]; then \ |
| 937 | ./config.status; \ | 942 | ./config.status; \ |
| 938 | else \ | 943 | else \ |
| 939 | ./configure --enable-maintainer-mode; \ | 944 | ./configure $(CONFIGURE_FLAGS); \ |
| 940 | fi | 945 | fi |
| 941 | $(MAKE) $(MFLAGS) info all | 946 | $(MAKE) $(MFLAGS) info all |
| 942 | 947 | ||
| @@ -2,7 +2,7 @@ Copyright (C) 2001-2011 Free Software Foundation, Inc. | |||
| 2 | See the end of the file for license conditions. | 2 | See the end of the file for license conditions. |
| 3 | 3 | ||
| 4 | 4 | ||
| 5 | This directory tree holds version 24.0.91 of GNU Emacs, the extensible, | 5 | This directory tree holds version 24.0.92 of GNU Emacs, the extensible, |
| 6 | customizable, self-documenting real-time display editor. | 6 | customizable, self-documenting real-time display editor. |
| 7 | 7 | ||
| 8 | The file INSTALL in this directory says how to build and install GNU | 8 | The file INSTALL in this directory says how to build and install GNU |
diff --git a/admin/ChangeLog b/admin/ChangeLog index aa815c552b4..4da85943b7f 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog | |||
| @@ -1,3 +1,16 @@ | |||
| 1 | 2011-11-26 Andreas Schwab <schwab@linux-m68k.org> | ||
| 2 | |||
| 3 | * grammars/bovine-grammar.el (bovine--grammar-newstyle-unquote): | ||
| 4 | Avoid warning about old-style backquote. | ||
| 5 | |||
| 6 | * grammars/wisent-grammar.el (auto-mode-alist): Change `$' to `\'' | ||
| 7 | in regexp. | ||
| 8 | (wisent-make-parsers): Likewise. Quote `.'. | ||
| 9 | |||
| 10 | * grammars/bovine-grammar.el (auto-mode-alist): Change `$' to `\'' | ||
| 11 | in regexp. | ||
| 12 | (bovine-make-parsers): Likewise. Quote `.'. | ||
| 13 | |||
| 1 | 2011-11-20 Andreas Schwab <schwab@linux-m68k.org> | 14 | 2011-11-20 Andreas Schwab <schwab@linux-m68k.org> |
| 2 | 15 | ||
| 3 | * CPP-DEFINES (VIRT_ADDR_VARIES): Remove. | 16 | * CPP-DEFINES (VIRT_ADDR_VARIES): Remove. |
| @@ -897,11 +910,11 @@ | |||
| 897 | 910 | ||
| 898 | * FOR-RELEASE (NEW FEATURES): Completed work on this item: | 911 | * FOR-RELEASE (NEW FEATURES): Completed work on this item: |
| 899 | Rework how fringe bitmaps are defined and used. | 912 | Rework how fringe bitmaps are defined and used. |
| 900 | Currently, bitmap usage and bitmap appearence are "mixed-up" in a | 913 | Currently, bitmap usage and bitmap appearance are "mixed-up" in a |
| 901 | one-level representation. It would be cleaner to split the | 914 | one-level representation. It would be cleaner to split the |
| 902 | representation into a two-level model where first level maps | 915 | representation into a two-level model where first level maps |
| 903 | bitmap usage to a bitmap name, and second level maps bitmap name to | 916 | bitmap usage to a bitmap name, and second level maps bitmap name to |
| 904 | a bitmap appearence. | 917 | a bitmap appearance. |
| 905 | 918 | ||
| 906 | 2006-01-27 Chong Yidong <cyd@stupidchicken.com> | 919 | 2006-01-27 Chong Yidong <cyd@stupidchicken.com> |
| 907 | 920 | ||
diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 01d488c97e3..23d2bd2b16a 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE | |||
| @@ -170,10 +170,10 @@ entering.texi cyd | |||
| 170 | files.texi cyd | 170 | files.texi cyd |
| 171 | fixit.texi | 171 | fixit.texi |
| 172 | fortran-xtra.texi | 172 | fortran-xtra.texi |
| 173 | frames.texi | 173 | frames.texi cyd |
| 174 | glossary.texi | 174 | glossary.texi |
| 175 | help.texi cyd | 175 | help.texi cyd |
| 176 | indent.texi | 176 | indent.texi cyd |
| 177 | killing.texi cyd | 177 | killing.texi cyd |
| 178 | kmacro.texi cyd | 178 | kmacro.texi cyd |
| 179 | macos.texi | 179 | macos.texi |
| @@ -182,6 +182,7 @@ major.texi | |||
| 182 | mark.texi cyd | 182 | mark.texi cyd |
| 183 | mini.texi | 183 | mini.texi |
| 184 | misc.texi | 184 | misc.texi |
| 185 | modes.texi cyd | ||
| 185 | msdog.texi | 186 | msdog.texi |
| 186 | msdog-xtra.texi | 187 | msdog-xtra.texi |
| 187 | mule.texi | 188 | mule.texi |
| @@ -197,7 +198,7 @@ text.texi | |||
| 197 | trouble.texi | 198 | trouble.texi |
| 198 | vc-xtra.texi | 199 | vc-xtra.texi |
| 199 | vc1-xtra.texi | 200 | vc1-xtra.texi |
| 200 | windows.texi | 201 | windows.texi cyd |
| 201 | xresources.texi | 202 | xresources.texi |
| 202 | 203 | ||
| 203 | ** Check the Lisp manual. | 204 | ** Check the Lisp manual. |
diff --git a/admin/MAINTAINERS b/admin/MAINTAINERS index e4a04763061..bfac347eb15 100644 --- a/admin/MAINTAINERS +++ b/admin/MAINTAINERS | |||
| @@ -99,6 +99,7 @@ Eli Zaretskii | |||
| 99 | src/xfaces.c | 99 | src/xfaces.c |
| 100 | src/xdisp.c | 100 | src/xdisp.c |
| 101 | src/term.c | 101 | src/term.c |
| 102 | src/dispnew.c | ||
| 102 | src/frame.c | 103 | src/frame.c |
| 103 | src/dired.c | 104 | src/dired.c |
| 104 | 105 | ||
| @@ -108,6 +109,7 @@ Eli Zaretskii | |||
| 108 | lisp/info.el | 109 | lisp/info.el |
| 109 | lisp/ls-lisp.el | 110 | lisp/ls-lisp.el |
| 110 | lisp/startup.el | 111 | lisp/startup.el |
| 112 | lisp/w32*.el | ||
| 111 | 113 | ||
| 112 | Stefan Monnier | 114 | Stefan Monnier |
| 113 | src/intervals.c | 115 | src/intervals.c |
| @@ -148,7 +150,6 @@ src/coding.c | |||
| 148 | src/composite.c | 150 | src/composite.c |
| 149 | src/config.in | 151 | src/config.in |
| 150 | src/data.c | 152 | src/data.c |
| 151 | src/dispnew.c | ||
| 152 | src/doc.c | 153 | src/doc.c |
| 153 | src/doprnt.c | 154 | src/doprnt.c |
| 154 | src/ecrt0.c | 155 | src/ecrt0.c |
| @@ -214,7 +215,6 @@ src/w32term.c | |||
| 214 | src/w32xfns.c | 215 | src/w32xfns.c |
| 215 | src/widget.c | 216 | src/widget.c |
| 216 | src/window.c | 217 | src/window.c |
| 217 | src/xdisp.c | ||
| 218 | src/xfns.c | 218 | src/xfns.c |
| 219 | src/xmenu.c | 219 | src/xmenu.c |
| 220 | src/xrdb.c | 220 | src/xrdb.c |
diff --git a/admin/charsets/cp51932.awk b/admin/charsets/cp51932.awk index b611def710d..c8879b30200 100644 --- a/admin/charsets/cp51932.awk +++ b/admin/charsets/cp51932.awk | |||
| @@ -32,7 +32,7 @@ | |||
| 32 | 32 | ||
| 33 | BEGIN { | 33 | BEGIN { |
| 34 | print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-"; | 34 | print ";;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*-"; |
| 35 | print ";;; Automatically genrated from CP932-2BYTE.map"; | 35 | print ";;; Automatically generated from CP932-2BYTE.map"; |
| 36 | print "(let ((map"; | 36 | print "(let ((map"; |
| 37 | printf " '(;JISEXT<->UNICODE"; | 37 | printf " '(;JISEXT<->UNICODE"; |
| 38 | } | 38 | } |
diff --git a/admin/grammars/README b/admin/grammars/README index c8328bbc885..419797e0dcb 100644 --- a/admin/grammars/README +++ b/admin/grammars/README | |||
| @@ -3,17 +3,8 @@ generate the parser data in the lisp/semantic/bovine/ and | |||
| 3 | lisp/semantic/wisent/ directories. You can run the parser generators | 3 | lisp/semantic/wisent/ directories. You can run the parser generators |
| 4 | with | 4 | with |
| 5 | 5 | ||
| 6 | emacs -batch --no-site-file -l bovine-grammar.el -f semantic-mode \ | 6 | emacs -batch -Q -l bovine-grammar.el -f bovine-make-parsers |
| 7 | -f semantic-grammar-batch-build-packages *.by | 7 | emacs -batch -Q -l wisent-grammar.el -f wisent-make-parsers |
| 8 | |||
| 9 | emacs -batch --no-site-file -l wisent-grammar.el -f semantic-mode \ | ||
| 10 | -f semantic-grammar-batch-build-packages *.wy | ||
| 11 | |||
| 12 | The output files were subsequently edited by hand to fix copyright | ||
| 13 | headers, variable names (to follow library name conventions), and | ||
| 14 | feature names. These changes do not alter the code logic, and can be | ||
| 15 | viewed by diffing to the files in lisp/semantic/bovine/ and | ||
| 16 | lisp/semantic/wisent/. | ||
| 17 | 8 | ||
| 18 | Currently, the parser files in lisp/ are not generated directly from | 9 | Currently, the parser files in lisp/ are not generated directly from |
| 19 | these grammar files when making Emacs. This state of affairs, and the | 10 | these grammar files when making Emacs. This state of affairs, and the |
diff --git a/admin/grammars/bovine-grammar.el b/admin/grammars/bovine-grammar.el index 0e8756e1c5b..eda7b42adbd 100644 --- a/admin/grammars/bovine-grammar.el +++ b/admin/grammars/bovine-grammar.el | |||
| @@ -115,7 +115,7 @@ NAME, ALIASCLASS, DEFINITION and ATTRIBUTES." | |||
| 115 | ;; when it is released, but at the moment it might be possible that people | 115 | ;; when it is released, but at the moment it might be possible that people |
| 116 | ;; are using an older snapshot. | 116 | ;; are using an older snapshot. |
| 117 | (defvar bovine--grammar-newstyle-unquote | 117 | (defvar bovine--grammar-newstyle-unquote |
| 118 | (equal '(, test) (read ",test"))) | 118 | (equal '(\, test) (read ",test"))) |
| 119 | 119 | ||
| 120 | (defun bovine-grammar-expand-form (form quotemode &optional inplace) | 120 | (defun bovine-grammar-expand-form (form quotemode &optional inplace) |
| 121 | "Expand FORM into a new one suitable to the bovine parser. | 121 | "Expand FORM into a new one suitable to the bovine parser. |
| @@ -434,7 +434,7 @@ Menu items are appended to the common grammar menu.") | |||
| 434 | (grammar-setupcode-builder . bovine-grammar-setupcode-builder) | 434 | (grammar-setupcode-builder . bovine-grammar-setupcode-builder) |
| 435 | ))) | 435 | ))) |
| 436 | 436 | ||
| 437 | (add-to-list 'auto-mode-alist '("\\.by$" . bovine-grammar-mode)) | 437 | (add-to-list 'auto-mode-alist '("\\.by\\'" . bovine-grammar-mode)) |
| 438 | 438 | ||
| 439 | (defvar-mode-local bovine-grammar-mode semantic-grammar-macros | 439 | (defvar-mode-local bovine-grammar-mode semantic-grammar-macros |
| 440 | '( | 440 | '( |
| @@ -454,4 +454,66 @@ Menu items are appended to the common grammar menu.") | |||
| 454 | 454 | ||
| 455 | (provide 'semantic/bovine/grammar) | 455 | (provide 'semantic/bovine/grammar) |
| 456 | 456 | ||
| 457 | (defun bovine-make-parsers () | ||
| 458 | "Generate Emacs' built-in Bovine-based parser files." | ||
| 459 | (semantic-mode 1) | ||
| 460 | ;; Loop through each .by file in current directory, and run | ||
| 461 | ;; `semantic-grammar-batch-build-one-package' to build the grammar. | ||
| 462 | (dolist (f (directory-files default-directory nil "\\.by\\'")) | ||
| 463 | (let ((packagename | ||
| 464 | (condition-case err | ||
| 465 | (with-current-buffer (find-file-noselect f) | ||
| 466 | (semantic-grammar-create-package)) | ||
| 467 | (error (message "%s" (error-message-string err)) nil))) | ||
| 468 | lang) | ||
| 469 | (when (and packagename | ||
| 470 | (string-match "^semantic-\\(.*\\)-by\\.el\\'" packagename)) | ||
| 471 | (setq lang (match-string 1 packagename)) | ||
| 472 | (with-temp-buffer | ||
| 473 | (insert-file-contents packagename) | ||
| 474 | (setq buffer-file-name (expand-file-name packagename)) | ||
| 475 | ;; Fix copyright header: | ||
| 476 | (goto-char (point-min)) | ||
| 477 | (re-search-forward "^;; Author:") | ||
| 478 | (setq copyright-end (match-beginning 0)) | ||
| 479 | (re-search-forward "^;;; Code:\n") | ||
| 480 | (delete-region copyright-end (match-end 0)) | ||
| 481 | (goto-char copyright-end) | ||
| 482 | (insert ";; This file is part of GNU Emacs. | ||
| 483 | |||
| 484 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 485 | ;; it under the terms of the GNU General Public License as published by | ||
| 486 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 487 | ;; (at your option) any later version. | ||
| 488 | |||
| 489 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 490 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 491 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 492 | ;; GNU General Public License for more details. | ||
| 493 | |||
| 494 | ;; You should have received a copy of the GNU General Public License | ||
| 495 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 496 | |||
| 497 | ;;; Commentary: | ||
| 498 | ;; | ||
| 499 | ;; This file was generated from admin/grammars/" | ||
| 500 | lang ".by. | ||
| 501 | |||
| 502 | ;;; Code: | ||
| 503 | |||
| 504 | \(require 'semantic/lex) | ||
| 505 | \(eval-when-compile (require 'semantic/bovine))\n") | ||
| 506 | (goto-char (point-min)) | ||
| 507 | (delete-region (point-min) (line-end-position)) | ||
| 508 | (insert ";;; semantic/bovine/" lang | ||
| 509 | "-by.el --- Generated parser support file") | ||
| 510 | (delete-trailing-whitespace) | ||
| 511 | ;; Fix footer: | ||
| 512 | (goto-char (point-max)) | ||
| 513 | (re-search-backward ".\n;;; Analyzers") | ||
| 514 | (delete-region (point) (point-max)) | ||
| 515 | (insert "(provide 'semantic/bovine/" lang "-by)\n\n") | ||
| 516 | (insert ";;; semantic/bovine/" lang "-by.el ends here\n") | ||
| 517 | (save-buffer)))))) | ||
| 518 | |||
| 457 | ;;; bovine-grammar.el ends here | 519 | ;;; bovine-grammar.el ends here |
diff --git a/admin/grammars/grammar.wy b/admin/grammars/grammar.wy new file mode 100644 index 00000000000..18e8b814303 --- /dev/null +++ b/admin/grammars/grammar.wy | |||
| @@ -0,0 +1,434 @@ | |||
| 1 | ;;; semantic-grammar.wy -- LALR grammar of Semantic input grammars | ||
| 2 | ;; | ||
| 3 | ;; Copyright (C) 2002-2011 Free Software Foundation, Inc. | ||
| 4 | ;; | ||
| 5 | ;; Author: David Ponce <david@dponce.com> | ||
| 6 | ;; Maintainer: David Ponce <david@dponce.com> | ||
| 7 | ;; Created: 26 Aug 2002 | ||
| 8 | ;; Keywords: syntax | ||
| 9 | ;; X-RCS: $Id: semantic-grammar.wy,v 1.16 2005/09/30 20:20:27 zappo Exp $ | ||
| 10 | |||
| 11 | ;; This file is part of GNU Emacs. | ||
| 12 | |||
| 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 14 | ;; it under the terms of the GNU General Public License as published by | ||
| 15 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 16 | ;; (at your option) any later version. | ||
| 17 | |||
| 18 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 21 | ;; GNU General Public License for more details. | ||
| 22 | |||
| 23 | ;; You should have received a copy of the GNU General Public License | ||
| 24 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 25 | |||
| 26 | %{ | ||
| 27 | (defvar semantic-grammar-lex-c-char-re) | ||
| 28 | |||
| 29 | ;; Current parsed nonterminal name. | ||
| 30 | (defvar semantic-grammar-wy--nterm nil) | ||
| 31 | ;; Index of rule in a nonterminal clause. | ||
| 32 | (defvar semantic-grammar-wy--rindx nil) | ||
| 33 | } | ||
| 34 | |||
| 35 | %package semantic-grammar-wy | ||
| 36 | |||
| 37 | %languagemode wy-mode | ||
| 38 | |||
| 39 | ;; Main | ||
| 40 | %start grammar | ||
| 41 | ;; Reparse | ||
| 42 | %start prologue epilogue declaration nonterminal rule | ||
| 43 | ;; EXPANDFULL | ||
| 44 | %start put_names put_values use_names | ||
| 45 | |||
| 46 | ;; Keywords | ||
| 47 | %type <keyword> | ||
| 48 | %keyword DEFAULT-PREC "%default-prec" | ||
| 49 | %keyword NO-DEFAULT-PREC "%no-default-prec" | ||
| 50 | %keyword KEYWORD "%keyword" | ||
| 51 | %keyword LANGUAGEMODE "%languagemode" | ||
| 52 | %keyword LEFT "%left" | ||
| 53 | %keyword NONASSOC "%nonassoc" | ||
| 54 | %keyword PACKAGE "%package" | ||
| 55 | %keyword PREC "%prec" | ||
| 56 | %keyword PUT "%put" | ||
| 57 | %keyword QUOTEMODE "%quotemode" | ||
| 58 | %keyword RIGHT "%right" | ||
| 59 | %keyword SCOPESTART "%scopestart" | ||
| 60 | %keyword START "%start" | ||
| 61 | %keyword TOKEN "%token" | ||
| 62 | %keyword TYPE "%type" | ||
| 63 | %keyword USE-MACROS "%use-macros" | ||
| 64 | |||
| 65 | ;; Literals | ||
| 66 | %type <string> | ||
| 67 | %token <string> STRING | ||
| 68 | |||
| 69 | %type <symbol> syntax ":?\\(\\sw\\|\\s_\\)+" | ||
| 70 | %token <symbol> SYMBOL | ||
| 71 | %token <symbol> PERCENT_PERCENT "\\`%%\\'" | ||
| 72 | |||
| 73 | %type <char> syntax semantic-grammar-lex-c-char-re | ||
| 74 | %token <char> CHARACTER | ||
| 75 | |||
| 76 | %type <qlist> matchdatatype sexp syntax "\\s'\\s-*(" | ||
| 77 | %token <qlist> PREFIXED_LIST | ||
| 78 | |||
| 79 | %type <sexp> matchdatatype sexp syntax "\\=" | ||
| 80 | %token <sexp> SEXP | ||
| 81 | |||
| 82 | ;; Don't generate these analyzers which needs special handling code. | ||
| 83 | %token <code> PROLOGUE "%{...%}" | ||
| 84 | %token <code> EPILOGUE "%%...EOF" | ||
| 85 | |||
| 86 | ;; Blocks & Parenthesis | ||
| 87 | %type <block> | ||
| 88 | %token <block> PAREN_BLOCK "(LPAREN RPAREN)" | ||
| 89 | %token <block> BRACE_BLOCK "(LBRACE RBRACE)" | ||
| 90 | %token <open-paren> LPAREN "(" | ||
| 91 | %token <close-paren> RPAREN ")" | ||
| 92 | %token <open-paren> LBRACE "{" | ||
| 93 | %token <close-paren> RBRACE "}" | ||
| 94 | |||
| 95 | ;; Punctuations | ||
| 96 | %type <punctuation> | ||
| 97 | %token <punctuation> COLON ":" | ||
| 98 | %token <punctuation> SEMI ";" | ||
| 99 | %token <punctuation> OR "|" | ||
| 100 | %token <punctuation> LT "<" | ||
| 101 | %token <punctuation> GT ">" | ||
| 102 | |||
| 103 | %% | ||
| 104 | |||
| 105 | grammar: | ||
| 106 | prologue | ||
| 107 | | epilogue | ||
| 108 | | declaration | ||
| 109 | | nonterminal | ||
| 110 | | PERCENT_PERCENT | ||
| 111 | ; | ||
| 112 | |||
| 113 | ;;; Prologue/Epilogue | ||
| 114 | ;; | ||
| 115 | prologue: | ||
| 116 | PROLOGUE | ||
| 117 | (CODE-TAG "prologue" nil) | ||
| 118 | ; | ||
| 119 | |||
| 120 | epilogue: | ||
| 121 | EPILOGUE | ||
| 122 | (CODE-TAG "epilogue" nil) | ||
| 123 | ; | ||
| 124 | |||
| 125 | ;;; Declarations | ||
| 126 | ;; | ||
| 127 | declaration: | ||
| 128 | decl | ||
| 129 | (eval $1) | ||
| 130 | ; | ||
| 131 | |||
| 132 | decl: | ||
| 133 | default_prec_decl | ||
| 134 | | no_default_prec_decl | ||
| 135 | | languagemode_decl | ||
| 136 | | package_decl | ||
| 137 | | precedence_decl | ||
| 138 | | put_decl | ||
| 139 | | quotemode_decl | ||
| 140 | | scopestart_decl | ||
| 141 | | start_decl | ||
| 142 | | keyword_decl | ||
| 143 | | token_decl | ||
| 144 | | type_decl | ||
| 145 | | use_macros_decl | ||
| 146 | ; | ||
| 147 | |||
| 148 | default_prec_decl: | ||
| 149 | DEFAULT-PREC | ||
| 150 | `(TAG "default-prec" 'assoc :value '("t")) | ||
| 151 | ; | ||
| 152 | |||
| 153 | no_default_prec_decl: | ||
| 154 | NO-DEFAULT-PREC | ||
| 155 | `(TAG "default-prec" 'assoc :value '("nil")) | ||
| 156 | ; | ||
| 157 | |||
| 158 | languagemode_decl: | ||
| 159 | LANGUAGEMODE symbols | ||
| 160 | `(TAG ',(car $2) 'languagemode :rest ',(cdr $2)) | ||
| 161 | ; | ||
| 162 | |||
| 163 | package_decl: | ||
| 164 | PACKAGE SYMBOL | ||
| 165 | `(PACKAGE-TAG ',$2 nil) | ||
| 166 | ; | ||
| 167 | |||
| 168 | precedence_decl: | ||
| 169 | associativity token_type_opt items | ||
| 170 | `(TAG ',$1 'assoc :type ',$2 :value ',$3) | ||
| 171 | ; | ||
| 172 | |||
| 173 | associativity: | ||
| 174 | LEFT | ||
| 175 | (progn "left") | ||
| 176 | | RIGHT | ||
| 177 | (progn "right") | ||
| 178 | | NONASSOC | ||
| 179 | (progn "nonassoc") | ||
| 180 | ; | ||
| 181 | |||
| 182 | put_decl: | ||
| 183 | PUT put_name put_value | ||
| 184 | `(TAG ',$2 'put :value ',(list $3)) | ||
| 185 | | PUT put_name put_value_list | ||
| 186 | `(TAG ',$2 'put :value ',$3) | ||
| 187 | | PUT put_name_list put_value | ||
| 188 | `(TAG ',(car $2) 'put :rest ',(cdr $2) :value ',(list $3)) | ||
| 189 | | PUT put_name_list put_value_list | ||
| 190 | `(TAG ',(car $2) 'put :rest ',(cdr $2) :value ',$3) | ||
| 191 | ; | ||
| 192 | |||
| 193 | put_name_list: | ||
| 194 | BRACE_BLOCK | ||
| 195 | (mapcar 'semantic-tag-name (EXPANDFULL $1 put_names)) | ||
| 196 | ; | ||
| 197 | |||
| 198 | put_names: | ||
| 199 | LBRACE | ||
| 200 | () | ||
| 201 | | RBRACE | ||
| 202 | () | ||
| 203 | | put_name | ||
| 204 | ;; Must return a list of Semantic tags to EXPANDFULL! | ||
| 205 | (TAG $1 'put-name) | ||
| 206 | ; | ||
| 207 | |||
| 208 | put_name: | ||
| 209 | SYMBOL | ||
| 210 | | token_type | ||
| 211 | ; | ||
| 212 | |||
| 213 | put_value_list: | ||
| 214 | BRACE_BLOCK | ||
| 215 | (mapcar 'semantic-tag-code-detail (EXPANDFULL $1 put_values)) | ||
| 216 | ; | ||
| 217 | |||
| 218 | put_values: | ||
| 219 | LBRACE | ||
| 220 | () | ||
| 221 | | RBRACE | ||
| 222 | () | ||
| 223 | | put_value | ||
| 224 | ;; Must return a list of Semantic tags to EXPANDFULL! | ||
| 225 | (CODE-TAG "put-value" $1) | ||
| 226 | ; | ||
| 227 | |||
| 228 | put_value: | ||
| 229 | SYMBOL any_value | ||
| 230 | (cons $1 $2) | ||
| 231 | ; | ||
| 232 | |||
| 233 | scopestart_decl: | ||
| 234 | SCOPESTART SYMBOL | ||
| 235 | `(TAG ',$2 'scopestart) | ||
| 236 | ; | ||
| 237 | |||
| 238 | quotemode_decl: | ||
| 239 | QUOTEMODE SYMBOL | ||
| 240 | `(TAG ',$2 'quotemode) | ||
| 241 | ; | ||
| 242 | |||
| 243 | start_decl: | ||
| 244 | START symbols | ||
| 245 | `(TAG ',(car $2) 'start :rest ',(cdr $2)) | ||
| 246 | ; | ||
| 247 | |||
| 248 | keyword_decl: | ||
| 249 | KEYWORD SYMBOL string_value | ||
| 250 | `(TAG ',$2 'keyword :value ',$3) | ||
| 251 | ; | ||
| 252 | |||
| 253 | token_decl: | ||
| 254 | TOKEN token_type_opt SYMBOL string_value | ||
| 255 | `(TAG ',$3 ',(if $2 'token 'keyword) :type ',$2 :value ',$4) | ||
| 256 | | TOKEN token_type_opt symbols | ||
| 257 | `(TAG ',(car $3) 'token :type ',$2 :rest ',(cdr $3)) | ||
| 258 | ; | ||
| 259 | |||
| 260 | token_type_opt: | ||
| 261 | ;; EMPTY | ||
| 262 | | token_type | ||
| 263 | ; | ||
| 264 | |||
| 265 | token_type: | ||
| 266 | LT SYMBOL GT | ||
| 267 | (progn $2) | ||
| 268 | ; | ||
| 269 | |||
| 270 | type_decl: | ||
| 271 | TYPE token_type plist_opt | ||
| 272 | `(TAG ',$2 'type :value ',$3) | ||
| 273 | ; | ||
| 274 | |||
| 275 | plist_opt: | ||
| 276 | ;;EMPTY | ||
| 277 | | plist | ||
| 278 | ; | ||
| 279 | |||
| 280 | plist: | ||
| 281 | plist put_value | ||
| 282 | (append (list $2) $1) | ||
| 283 | | put_value | ||
| 284 | (list $1) | ||
| 285 | ; | ||
| 286 | |||
| 287 | use_name_list: | ||
| 288 | BRACE_BLOCK | ||
| 289 | (mapcar 'semantic-tag-name (EXPANDFULL $1 use_names)) | ||
| 290 | ; | ||
| 291 | |||
| 292 | use_names: | ||
| 293 | LBRACE | ||
| 294 | () | ||
| 295 | | RBRACE | ||
| 296 | () | ||
| 297 | | SYMBOL | ||
| 298 | ;; Must return a list of Semantic tags to EXPANDFULL! | ||
| 299 | (TAG $1 'use-name) | ||
| 300 | ; | ||
| 301 | |||
| 302 | use_macros_decl: | ||
| 303 | USE-MACROS SYMBOL use_name_list | ||
| 304 | `(TAG "macro" 'macro :type ',$2 :value ',$3) | ||
| 305 | ; | ||
| 306 | |||
| 307 | string_value: | ||
| 308 | STRING | ||
| 309 | (read $1) | ||
| 310 | ; | ||
| 311 | |||
| 312 | ;; Return a Lisp readable form | ||
| 313 | any_value: | ||
| 314 | SYMBOL | ||
| 315 | | STRING | ||
| 316 | | PAREN_BLOCK | ||
| 317 | | PREFIXED_LIST | ||
| 318 | | SEXP | ||
| 319 | ; | ||
| 320 | |||
| 321 | symbols: | ||
| 322 | lifo_symbols | ||
| 323 | (nreverse $1) | ||
| 324 | ; | ||
| 325 | |||
| 326 | lifo_symbols: | ||
| 327 | lifo_symbols SYMBOL | ||
| 328 | (cons $2 $1) | ||
| 329 | | SYMBOL | ||
| 330 | (list $1) | ||
| 331 | ; | ||
| 332 | |||
| 333 | ;;; Grammar rules | ||
| 334 | ;; | ||
| 335 | nonterminal: | ||
| 336 | SYMBOL | ||
| 337 | (setq semantic-grammar-wy--nterm $1 | ||
| 338 | semantic-grammar-wy--rindx 0) | ||
| 339 | COLON rules SEMI | ||
| 340 | (TAG $1 'nonterminal :children $4) | ||
| 341 | ; | ||
| 342 | |||
| 343 | rules: | ||
| 344 | lifo_rules | ||
| 345 | (apply 'nconc (nreverse $1)) | ||
| 346 | ; | ||
| 347 | |||
| 348 | lifo_rules: | ||
| 349 | lifo_rules OR rule | ||
| 350 | (cons $3 $1) | ||
| 351 | | rule | ||
| 352 | (list $1) | ||
| 353 | ; | ||
| 354 | |||
| 355 | rule: | ||
| 356 | rhs | ||
| 357 | (let* ((nterm semantic-grammar-wy--nterm) | ||
| 358 | (rindx semantic-grammar-wy--rindx) | ||
| 359 | (rhs $1) | ||
| 360 | comps prec action elt) | ||
| 361 | (setq semantic-grammar-wy--rindx (1+ semantic-grammar-wy--rindx)) | ||
| 362 | (while rhs | ||
| 363 | (setq elt (car rhs) | ||
| 364 | rhs (cdr rhs)) | ||
| 365 | (cond | ||
| 366 | ;; precedence level | ||
| 367 | ((vectorp elt) | ||
| 368 | (if prec | ||
| 369 | (error "Duplicate %%prec in `%s:%d' rule" nterm rindx)) | ||
| 370 | (setq prec (aref elt 0))) | ||
| 371 | ;; action | ||
| 372 | ((consp elt) | ||
| 373 | ;; don't forget that rhs items are in reverse order, so | ||
| 374 | ;; the end-of-rule semantic action is the first item. | ||
| 375 | (if (or action comps) | ||
| 376 | ;; a mid-rule action | ||
| 377 | (setq comps (cons elt comps) | ||
| 378 | ;; keep rule and action index synchronized | ||
| 379 | semantic-grammar-wy--rindx | ||
| 380 | (1+ semantic-grammar-wy--rindx)) | ||
| 381 | ;; the end-of-rule action | ||
| 382 | (setq action (car elt)))) | ||
| 383 | ;; item | ||
| 384 | (t | ||
| 385 | (setq comps (cons elt comps))))) | ||
| 386 | (EXPANDTAG | ||
| 387 | (TAG (format "%s:%d" nterm rindx) 'rule | ||
| 388 | :type (if comps "group" "empty") | ||
| 389 | :value comps :prec prec :expr action))) | ||
| 390 | ; | ||
| 391 | |||
| 392 | rhs: | ||
| 393 | ;; EMPTY | ||
| 394 | | rhs item | ||
| 395 | (cons $2 $1) | ||
| 396 | | rhs action | ||
| 397 | (cons (list $2) $1) | ||
| 398 | | rhs PREC item | ||
| 399 | (cons (vector $3) $1) | ||
| 400 | ; | ||
| 401 | |||
| 402 | action: | ||
| 403 | PAREN_BLOCK | ||
| 404 | | PREFIXED_LIST | ||
| 405 | | BRACE_BLOCK | ||
| 406 | (format "(progn\n%s)" | ||
| 407 | (let ((s $1)) | ||
| 408 | (if (string-match "^{[\r\n\t ]*" s) | ||
| 409 | (setq s (substring s (match-end 0)))) | ||
| 410 | (if (string-match "[\r\n\t ]*}$" s) | ||
| 411 | (setq s (substring s 0 (match-beginning 0)))) | ||
| 412 | s)) | ||
| 413 | ; | ||
| 414 | |||
| 415 | items: | ||
| 416 | lifo_items | ||
| 417 | (nreverse $1) | ||
| 418 | ; | ||
| 419 | |||
| 420 | lifo_items: | ||
| 421 | lifo_items item | ||
| 422 | (cons $2 $1) | ||
| 423 | | item | ||
| 424 | (list $1) | ||
| 425 | ; | ||
| 426 | |||
| 427 | item: | ||
| 428 | SYMBOL | ||
| 429 | | CHARACTER | ||
| 430 | ; | ||
| 431 | |||
| 432 | %% | ||
| 433 | |||
| 434 | ;;; grammar.wy ends here | ||
diff --git a/admin/grammars/srecode-template.wy b/admin/grammars/srecode-template.wy new file mode 100644 index 00000000000..4ff2d7e4e41 --- /dev/null +++ b/admin/grammars/srecode-template.wy | |||
| @@ -0,0 +1,235 @@ | |||
| 1 | ;;; srecode-template.wy --- Semantic Recoder Template parser | ||
| 2 | |||
| 3 | ;; Copyright (C) 2005-2011 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | ;; Author: Eric Ludlam <zappo@gnu.org> | ||
| 6 | ;; Keywords: syntax | ||
| 7 | ;; X-RCS: $Id: srecode-template.wy,v 1.10 2009-01-09 23:01:54 zappo Exp $ | ||
| 8 | |||
| 9 | ;; This file is part of GNU Emacs. | ||
| 10 | |||
| 11 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 12 | ;; it under the terms of the GNU General Public License as published by | ||
| 13 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 14 | ;; (at your option) any later version. | ||
| 15 | |||
| 16 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 19 | ;; GNU General Public License for more details. | ||
| 20 | |||
| 21 | ;; You should have received a copy of the GNU General Public License | ||
| 22 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 23 | |||
| 24 | ;;; Commentary: | ||
| 25 | ;; | ||
| 26 | ;; Parser for the Semantic Recoder template language | ||
| 27 | ;; | ||
| 28 | ;; Semantic Recoder templates are based on Google Templates | ||
| 29 | ;; and are at the bottom of the Semantic Recoder API. | ||
| 30 | |||
| 31 | %languagemode srecode-mode | ||
| 32 | |||
| 33 | %start template_file | ||
| 34 | |||
| 35 | ;;; KEYWORDS | ||
| 36 | %type <keyword> | ||
| 37 | %keyword SET "set" | ||
| 38 | %put SET summary "set <name> <value>" | ||
| 39 | %keyword SHOW "show" | ||
| 40 | %put SHOW summary "show <name> ; to show a section" | ||
| 41 | %keyword MACRO "macro" | ||
| 42 | %put MACRO summary "... macro \"string\" ..." | ||
| 43 | %keyword CONTEXT "context" | ||
| 44 | %put CONTEXT summary "context <name>" | ||
| 45 | %keyword TEMPLATE "template" | ||
| 46 | %put TEMPLATE summary "template <name>\\n <template definition>" | ||
| 47 | %keyword SECTIONDICTIONARY "sectiondictionary" | ||
| 48 | %put SECTIONDICTIONARY summary "sectiondictionary <name>\\n <dictionary entries>" | ||
| 49 | %keyword PROMPT "prompt" | ||
| 50 | %keyword DEFAULT "default" | ||
| 51 | %keyword DEFAULTMACRO "defaultmacro" | ||
| 52 | %keyword READ "read" | ||
| 53 | %put { PROMPT DEFAULT DEFAULTMACRO READ } summary "prompt <symbol> \"Describe Symbol: \" [default[macro] <lispsym>|\"valuetext\"] [read <lispsym>]" | ||
| 54 | %keyword BIND "bind" | ||
| 55 | %put BIND summary "bind \"<letter>\"" | ||
| 56 | |||
| 57 | ;;; Punctuation Types | ||
| 58 | %type <punctuation> syntax "\\s.+" | ||
| 59 | %type <newline> | ||
| 60 | %token <newline> newline | ||
| 61 | |||
| 62 | %token <separator> TEMPLATE_BLOCK "^----" | ||
| 63 | |||
| 64 | ;;; Bland default types | ||
| 65 | %type <property> ":\\(\\w\\|\\s_\\)*" | ||
| 66 | %token <property> property | ||
| 67 | |||
| 68 | %type <symbol> | ||
| 69 | %token <symbol> symbol | ||
| 70 | |||
| 71 | %type <string> | ||
| 72 | %token <string> string | ||
| 73 | |||
| 74 | %type <number> | ||
| 75 | %token <number> number | ||
| 76 | |||
| 77 | %% | ||
| 78 | |||
| 79 | template_file | ||
| 80 | : newline ( ) | ||
| 81 | | context | ||
| 82 | | prompt | ||
| 83 | | variable | ||
| 84 | | template | ||
| 85 | ; | ||
| 86 | |||
| 87 | context | ||
| 88 | : CONTEXT symbol newline | ||
| 89 | (TAG $2 'context) | ||
| 90 | ; | ||
| 91 | |||
| 92 | prompt | ||
| 93 | : PROMPT symbol string opt-default-fcn opt-read-fcn newline | ||
| 94 | (TAG $2 'prompt :text (read $3) :default $4 :read $5) | ||
| 95 | ; | ||
| 96 | |||
| 97 | opt-default-fcn | ||
| 98 | : DEFAULT symbol | ||
| 99 | (progn (read $2)) | ||
| 100 | | DEFAULT string | ||
| 101 | (progn (read $2)) | ||
| 102 | | DEFAULTMACRO string | ||
| 103 | (progn (cons 'macro (read $2))) | ||
| 104 | | () | ||
| 105 | ; | ||
| 106 | |||
| 107 | opt-read-fcn | ||
| 108 | : READ symbol | ||
| 109 | (progn (read $2)) | ||
| 110 | | () | ||
| 111 | ; | ||
| 112 | |||
| 113 | variable | ||
| 114 | : SET symbol insertable-string-list newline | ||
| 115 | (VARIABLE-TAG $2 nil $3) | ||
| 116 | | SHOW symbol newline | ||
| 117 | (VARIABLE-TAG $2 nil t) | ||
| 118 | ; | ||
| 119 | |||
| 120 | insertable-string-list | ||
| 121 | : insertable-string | ||
| 122 | (list $1) | ||
| 123 | | insertable-string-list insertable-string | ||
| 124 | (append $1 (list $2)) | ||
| 125 | ; | ||
| 126 | |||
| 127 | insertable-string | ||
| 128 | : string | ||
| 129 | (read $1) | ||
| 130 | | MACRO string | ||
| 131 | (cons 'macro (read $2)) | ||
| 132 | ; | ||
| 133 | |||
| 134 | template | ||
| 135 | : TEMPLATE templatename opt-dynamic-arguments newline | ||
| 136 | opt-string | ||
| 137 | opt-section-dictionaries | ||
| 138 | TEMPLATE_BLOCK newline | ||
| 139 | opt-bind | ||
| 140 | (FUNCTION-TAG $2 nil $3 :documentation $5 :code $7 | ||
| 141 | :dictionaries $6 :binding $9 ) | ||
| 142 | ; | ||
| 143 | |||
| 144 | templatename | ||
| 145 | : symbol | ||
| 146 | | PROMPT | ||
| 147 | | CONTEXT | ||
| 148 | | TEMPLATE | ||
| 149 | | DEFAULT | ||
| 150 | | MACRO | ||
| 151 | | DEFAULTMACRO | ||
| 152 | | READ | ||
| 153 | | SET | ||
| 154 | ; | ||
| 155 | |||
| 156 | opt-dynamic-arguments | ||
| 157 | : property opt-dynamic-arguments | ||
| 158 | (cons $1 $2) | ||
| 159 | | () | ||
| 160 | ; | ||
| 161 | |||
| 162 | opt-string | ||
| 163 | : string newline | ||
| 164 | ( read $1 ) | ||
| 165 | | () | ||
| 166 | ; | ||
| 167 | |||
| 168 | opt-section-dictionaries | ||
| 169 | : () ;; EMPTY | ||
| 170 | | section-dictionary-list | ||
| 171 | ; | ||
| 172 | |||
| 173 | section-dictionary-list | ||
| 174 | : one-section-dictionary | ||
| 175 | (list $1) | ||
| 176 | | section-dictionary-list one-section-dictionary | ||
| 177 | (append $1 (list $2)) | ||
| 178 | ; | ||
| 179 | |||
| 180 | one-section-dictionary | ||
| 181 | : SECTIONDICTIONARY string newline | ||
| 182 | variable-list | ||
| 183 | (cons (read $2) $4) | ||
| 184 | ; | ||
| 185 | |||
| 186 | variable-list | ||
| 187 | : variable | ||
| 188 | (EXPANDTAG $1) | ||
| 189 | | variable-list variable | ||
| 190 | (append $1 (EXPANDTAG $2)) | ||
| 191 | ; | ||
| 192 | |||
| 193 | opt-bind | ||
| 194 | : BIND string newline | ||
| 195 | ( read $2 ) | ||
| 196 | | () | ||
| 197 | ; | ||
| 198 | |||
| 199 | %% | ||
| 200 | (define-lex-simple-regex-analyzer srecode-template-property-analyzer | ||
| 201 | "Detect and create a dynamic argument properties." | ||
| 202 | ":\\(\\w\\|\\s_\\)*" 'property 0) | ||
| 203 | |||
| 204 | (define-lex-regex-analyzer srecode-template-separator-block | ||
| 205 | "Detect and create a template quote block." | ||
| 206 | "^----\n" | ||
| 207 | (semantic-lex-push-token | ||
| 208 | (semantic-lex-token | ||
| 209 | 'TEMPLATE_BLOCK | ||
| 210 | (match-end 0) | ||
| 211 | (semantic-lex-unterminated-syntax-protection 'TEMPLATE_BLOCK | ||
| 212 | (goto-char (match-end 0)) | ||
| 213 | (re-search-forward "^----$") | ||
| 214 | (match-beginning 0)))) | ||
| 215 | (setq semantic-lex-end-point (point))) | ||
| 216 | |||
| 217 | |||
| 218 | (define-lex wisent-srecode-template-lexer | ||
| 219 | "Lexical analyzer that handles SRecode Template buffers. | ||
| 220 | It ignores whitespace, newlines and comments." | ||
| 221 | semantic-lex-newline | ||
| 222 | semantic-lex-ignore-whitespace | ||
| 223 | semantic-lex-ignore-newline | ||
| 224 | semantic-lex-ignore-comments | ||
| 225 | srecode-template-separator-block | ||
| 226 | srecode-template-wy--<keyword>-keyword-analyzer | ||
| 227 | srecode-template-property-analyzer | ||
| 228 | srecode-template-wy--<symbol>-regexp-analyzer | ||
| 229 | srecode-template-wy--<number>-regexp-analyzer | ||
| 230 | srecode-template-wy--<string>-sexp-analyzer | ||
| 231 | srecode-template-wy--<punctuation>-string-analyzer | ||
| 232 | semantic-lex-default-action | ||
| 233 | ) | ||
| 234 | |||
| 235 | ;;; wisent-dot.wy ends here | ||
diff --git a/admin/grammars/wisent-grammar.el b/admin/grammars/wisent-grammar.el index d7de1ee6f7b..66045c2294d 100644 --- a/admin/grammars/wisent-grammar.el +++ b/admin/grammars/wisent-grammar.el | |||
| @@ -331,7 +331,7 @@ Menu items are appended to the common grammar menu.") | |||
| 331 | (grammar-setupcode-builder . wisent-grammar-setupcode-builder) | 331 | (grammar-setupcode-builder . wisent-grammar-setupcode-builder) |
| 332 | ))) | 332 | ))) |
| 333 | 333 | ||
| 334 | (add-to-list 'auto-mode-alist '("\\.wy$" . wisent-grammar-mode)) | 334 | (add-to-list 'auto-mode-alist '("\\.wy\\'" . wisent-grammar-mode)) |
| 335 | 335 | ||
| 336 | (defvar-mode-local wisent-grammar-mode semantic-grammar-macros | 336 | (defvar-mode-local wisent-grammar-mode semantic-grammar-macros |
| 337 | '( | 337 | '( |
| @@ -358,4 +358,180 @@ Menu items are appended to the common grammar menu.") | |||
| 358 | ) | 358 | ) |
| 359 | "Semantic grammar macros used in wisent grammars.") | 359 | "Semantic grammar macros used in wisent grammars.") |
| 360 | 360 | ||
| 361 | (defvar wisent-make-parsers--emacs-license | ||
| 362 | ";; This file is part of GNU Emacs. | ||
| 363 | |||
| 364 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 365 | ;; it under the terms of the GNU General Public License as published by | ||
| 366 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 367 | ;; (at your option) any later version. | ||
| 368 | |||
| 369 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 370 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 371 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 372 | ;; GNU General Public License for more details. | ||
| 373 | |||
| 374 | ;; You should have received a copy of the GNU General Public License | ||
| 375 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.") | ||
| 376 | |||
| 377 | (defvar wisent-make-parsers--python-license | ||
| 378 | ";; It is derived in part from the Python grammar, used under the | ||
| 379 | ;; following license: | ||
| 380 | ;; | ||
| 381 | ;; PYTHON SOFTWARE FOUNDATION LICENSE VERSION 2 | ||
| 382 | ;; -------------------------------------------- | ||
| 383 | ;; 1. This LICENSE AGREEMENT is between the Python Software Foundation | ||
| 384 | ;; (\"PSF\"), and the Individual or Organization (\"Licensee\") accessing | ||
| 385 | ;; and otherwise using this software (\"Python\") in source or binary | ||
| 386 | ;; form and its associated documentation. | ||
| 387 | ;; | ||
| 388 | ;; 2. Subject to the terms and conditions of this License Agreement, | ||
| 389 | ;; PSF hereby grants Licensee a nonexclusive, royalty-free, world-wide | ||
| 390 | ;; license to reproduce, analyze, test, perform and/or display | ||
| 391 | ;; publicly, prepare derivative works, distribute, and otherwise use | ||
| 392 | ;; Python alone or in any derivative version, provided, however, that | ||
| 393 | ;; PSF's License Agreement and PSF's notice of copyright, i.e., | ||
| 394 | ;; \"Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, | ||
| 395 | ;; 2009, 2010 Python Software Foundation; All Rights Reserved\" are | ||
| 396 | ;; retained in Python alone or in any derivative version prepared by | ||
| 397 | ;; Licensee. | ||
| 398 | ;; | ||
| 399 | ;; 3. In the event Licensee prepares a derivative work that is based | ||
| 400 | ;; on or incorporates Python or any part thereof, and wants to make | ||
| 401 | ;; the derivative work available to others as provided herein, then | ||
| 402 | ;; Licensee hereby agrees to include in any such work a brief summary | ||
| 403 | ;; of the changes made to Python. | ||
| 404 | ;; | ||
| 405 | ;; 4. PSF is making Python available to Licensee on an \"AS IS\" | ||
| 406 | ;; basis. PSF MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR | ||
| 407 | ;; IMPLIED. BY WAY OF EXAMPLE, BUT NOT LIMITATION, PSF MAKES NO AND | ||
| 408 | ;; DISCLAIMS ANY REPRESENTATION OR WARRANTY OF MERCHANTABILITY OR FITNESS | ||
| 409 | ;; FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF PYTHON WILL NOT | ||
| 410 | ;; INFRINGE ANY THIRD PARTY RIGHTS. | ||
| 411 | ;; | ||
| 412 | ;; 5. PSF SHALL NOT BE LIABLE TO LICENSEE OR ANY OTHER USERS OF PYTHON | ||
| 413 | ;; FOR ANY INCIDENTAL, SPECIAL, OR CONSEQUENTIAL DAMAGES OR LOSS AS A | ||
| 414 | ;; RESULT OF MODIFYING, DISTRIBUTING, OR OTHERWISE USING PYTHON, OR | ||
| 415 | ;; ANY DERIVATIVE THEREOF, EVEN IF ADVISED OF THE POSSIBILITY THEREOF. | ||
| 416 | ;; | ||
| 417 | ;; 6. This License Agreement will automatically terminate upon a | ||
| 418 | ;; material breach of its terms and conditions. | ||
| 419 | ;; | ||
| 420 | ;; 7. Nothing in this License Agreement shall be deemed to create any | ||
| 421 | ;; relationship of agency, partnership, or joint venture between PSF | ||
| 422 | ;; and Licensee. This License Agreement does not grant permission to | ||
| 423 | ;; use PSF trademarks or trade name in a trademark sense to endorse or | ||
| 424 | ;; promote products or services of Licensee, or any third party. | ||
| 425 | ;; | ||
| 426 | ;; 8. By copying, installing or otherwise using Python, Licensee | ||
| 427 | ;; agrees to be bound by the terms and conditions of this License | ||
| 428 | ;; Agreement.") | ||
| 429 | |||
| 430 | (defvar wisent-make-parsers--ecmascript-license | ||
| 431 | "\n;; It is derived from the grammar in the ECMAScript Language | ||
| 432 | ;; Specification published at | ||
| 433 | ;; | ||
| 434 | ;; http://www.ecma-international.org/publications/standards/Ecma-262.htm | ||
| 435 | ;; | ||
| 436 | ;; and redistributed under the following license: | ||
| 437 | ;; | ||
| 438 | ;; Redistribution and use in source and binary forms, with or without | ||
| 439 | ;; modification, are permitted provided that the following conditions | ||
| 440 | ;; are met: | ||
| 441 | ;; | ||
| 442 | ;; 1. Redistributions of source code must retain the above copyright | ||
| 443 | ;; notice, this list of conditions and the following disclaimer. | ||
| 444 | ;; | ||
| 445 | ;; 2. Redistributions in binary form must reproduce the above | ||
| 446 | ;; copyright notice, this list of conditions and the following | ||
| 447 | ;; disclaimer in the documentation and/or other materials provided | ||
| 448 | ;; with the distribution. | ||
| 449 | ;; | ||
| 450 | ;; 3. Neither the name of the authors nor Ecma International may be | ||
| 451 | ;; used to endorse or promote products derived from this software | ||
| 452 | ;; without specific prior written permission. THIS SOFTWARE IS | ||
| 453 | ;; PROVIDED BY THE ECMA INTERNATIONAL \"AS IS\" AND ANY EXPRESS OR | ||
| 454 | ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | ||
| 455 | ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
| 456 | ;; ARE DISCLAIMED. IN NO EVENT SHALL ECMA INTERNATIONAL BE LIABLE FOR | ||
| 457 | ;; ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | ||
| 458 | ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT | ||
| 459 | ;; OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR | ||
| 460 | ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF | ||
| 461 | ;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | ||
| 462 | ;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | ||
| 463 | ;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH | ||
| 464 | ;; DAMAGE.") | ||
| 465 | |||
| 466 | (defvar wisent-make-parsers--parser-file-name | ||
| 467 | `(("semantic-grammar-wy.el" | ||
| 468 | "semantic/grammar-wy") | ||
| 469 | ("srecode-template-wy.el" | ||
| 470 | "srecode/srt-wy") | ||
| 471 | ("wisent-javascript-jv-wy.el" | ||
| 472 | "semantic/wisent/js-wy" | ||
| 473 | "Copyright (C) 1998-2011 Ecma International" | ||
| 474 | ,wisent-make-parsers--ecmascript-license) | ||
| 475 | ("wisent-java-tags-wy.el" | ||
| 476 | "semantic/wisent/javat-wy") | ||
| 477 | ("wisent-python-wy.el" | ||
| 478 | "semantic/wisent/python-wy" | ||
| 479 | "Copyright (C) 2001-2010 Python Software Foundation" | ||
| 480 | ,wisent-make-parsers--python-license))) | ||
| 481 | |||
| 482 | (defun wisent-make-parsers () | ||
| 483 | "Generate Emacs' built-in Wisent-based parser files." | ||
| 484 | (semantic-mode 1) | ||
| 485 | ;; Loop through each .wy file in current directory, and run | ||
| 486 | ;; `semantic-grammar-batch-build-one-package' to build the grammar. | ||
| 487 | (dolist (f (directory-files default-directory nil "\\.wy\\'")) | ||
| 488 | (let ((packagename | ||
| 489 | (condition-case err | ||
| 490 | (with-current-buffer (find-file-noselect f) | ||
| 491 | (semantic-grammar-create-package)) | ||
| 492 | (error (message "%s" (error-message-string err)) nil))) | ||
| 493 | output-data) | ||
| 494 | (when (setq output-data (assoc packagename wisent-make-parsers--parser-file-name)) | ||
| 495 | (let ((require-name (nth 1 output-data)) | ||
| 496 | (additional-copyright (nth 2 output-data)) | ||
| 497 | (additional-license (nth 3 output-data)) | ||
| 498 | copyright-end) | ||
| 499 | ;; Touch up the generated parsers for Emacs integration. | ||
| 500 | (with-temp-buffer | ||
| 501 | (insert-file-contents packagename) | ||
| 502 | ;; Fix copyright header: | ||
| 503 | (goto-char (point-min)) | ||
| 504 | (when additional-copyright | ||
| 505 | (re-search-forward "Copyright (C).*$") | ||
| 506 | (insert "\n;; " additional-copyright)) | ||
| 507 | (re-search-forward "^;; Author:") | ||
| 508 | (setq copyright-end (match-beginning 0)) | ||
| 509 | (re-search-forward "^;;; Code:\n") | ||
| 510 | (delete-region copyright-end (match-end 0)) | ||
| 511 | (goto-char copyright-end) | ||
| 512 | (insert wisent-make-parsers--emacs-license) | ||
| 513 | (insert "\n\n;;; Commentary: | ||
| 514 | ;; | ||
| 515 | ;; This file was generated from admin/grammars/" | ||
| 516 | f ".") | ||
| 517 | (when additional-license | ||
| 518 | (insert "\n" additional-license)) | ||
| 519 | (insert "\n\n;;; Code:\n | ||
| 520 | \(require 'semantic/lex)\n") | ||
| 521 | (goto-char (point-min)) | ||
| 522 | (delete-region (point-min) (line-end-position)) | ||
| 523 | (insert ";;; " require-name | ||
| 524 | ".el --- Generated parser support file") | ||
| 525 | (delete-trailing-whitespace) | ||
| 526 | (re-search-forward ";;\n(require 'semantic/lex)\n") | ||
| 527 | (delete-region (match-beginning 0) (match-end 0)) | ||
| 528 | ;; Fix footer: | ||
| 529 | (goto-char (point-max)) | ||
| 530 | (re-search-backward "^(provide") | ||
| 531 | (delete-region (match-beginning 0) (point-max)) | ||
| 532 | (goto-char (point-max)) | ||
| 533 | (insert "(provide '" require-name ")\n\n") | ||
| 534 | (insert ";;; " require-name ".el ends here\n") | ||
| 535 | (write-region nil nil (expand-file-name packagename)))))))) | ||
| 536 | |||
| 361 | ;;; wisent-grammar.el ends here | 537 | ;;; wisent-grammar.el ends here |
diff --git a/autogen/config.in b/autogen/config.in index f1f950cc034..fde44761db4 100644 --- a/autogen/config.in +++ b/autogen/config.in | |||
| @@ -351,6 +351,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 351 | /* Define to 1 if you have the `gtk_widget_set_has_window' function. */ | 351 | /* Define to 1 if you have the `gtk_widget_set_has_window' function. */ |
| 352 | #undef HAVE_GTK_WIDGET_SET_HAS_WINDOW | 352 | #undef HAVE_GTK_WIDGET_SET_HAS_WINDOW |
| 353 | 353 | ||
| 354 | /* Define to 1 if you have the `gtk_window_set_has_resize_grip' function. */ | ||
| 355 | #undef HAVE_GTK_WINDOW_SET_HAS_RESIZE_GRIP | ||
| 356 | |||
| 354 | /* Define to 1 if you have the `g_type_init' function. */ | 357 | /* Define to 1 if you have the `g_type_init' function. */ |
| 355 | #undef HAVE_G_TYPE_INIT | 358 | #undef HAVE_G_TYPE_INIT |
| 356 | 359 | ||
| @@ -900,7 +903,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 900 | /* Define to 1 if you have the XkbGetKeyboard function. */ | 903 | /* Define to 1 if you have the XkbGetKeyboard function. */ |
| 901 | #undef HAVE_XKBGETKEYBOARD | 904 | #undef HAVE_XKBGETKEYBOARD |
| 902 | 905 | ||
| 903 | /* Define to 1 if you have the Xpm libary (-lXpm). */ | 906 | /* Define to 1 if you have the Xpm library (-lXpm). */ |
| 904 | #undef HAVE_XPM | 907 | #undef HAVE_XPM |
| 905 | 908 | ||
| 906 | /* Define to 1 if you have the `XrmSetDatabase' function. */ | 909 | /* Define to 1 if you have the `XrmSetDatabase' function. */ |
diff --git a/autogen/configure b/autogen/configure index eae55274761..e75d73196dd 100755 --- a/autogen/configure +++ b/autogen/configure | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | #! /bin/sh | 1 | #! /bin/sh |
| 2 | # Guess values for system-dependent variables and create Makefiles. | 2 | # Guess values for system-dependent variables and create Makefiles. |
| 3 | # Generated by GNU Autoconf 2.65 for emacs 24.0.91. | 3 | # Generated by GNU Autoconf 2.65 for emacs 24.0.92. |
| 4 | # | 4 | # |
| 5 | # | 5 | # |
| 6 | # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, | 6 | # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, |
| @@ -549,8 +549,8 @@ MAKEFLAGS= | |||
| 549 | # Identity of this package. | 549 | # Identity of this package. |
| 550 | PACKAGE_NAME='emacs' | 550 | PACKAGE_NAME='emacs' |
| 551 | PACKAGE_TARNAME='emacs' | 551 | PACKAGE_TARNAME='emacs' |
| 552 | PACKAGE_VERSION='24.0.91' | 552 | PACKAGE_VERSION='24.0.92' |
| 553 | PACKAGE_STRING='emacs 24.0.91' | 553 | PACKAGE_STRING='emacs 24.0.92' |
| 554 | PACKAGE_BUGREPORT='' | 554 | PACKAGE_BUGREPORT='' |
| 555 | PACKAGE_URL='' | 555 | PACKAGE_URL='' |
| 556 | 556 | ||
| @@ -1845,7 +1845,7 @@ if test "$ac_init_help" = "long"; then | |||
| 1845 | # Omit some internal or obsolete options to make the list less imposing. | 1845 | # Omit some internal or obsolete options to make the list less imposing. |
| 1846 | # This message is too long to be a string in the A/UX 3.1 sh. | 1846 | # This message is too long to be a string in the A/UX 3.1 sh. |
| 1847 | cat <<_ACEOF | 1847 | cat <<_ACEOF |
| 1848 | \`configure' configures emacs 24.0.91 to adapt to many kinds of systems. | 1848 | \`configure' configures emacs 24.0.92 to adapt to many kinds of systems. |
| 1849 | 1849 | ||
| 1850 | Usage: $0 [OPTION]... [VAR=VALUE]... | 1850 | Usage: $0 [OPTION]... [VAR=VALUE]... |
| 1851 | 1851 | ||
| @@ -1919,7 +1919,7 @@ fi | |||
| 1919 | 1919 | ||
| 1920 | if test -n "$ac_init_help"; then | 1920 | if test -n "$ac_init_help"; then |
| 1921 | case $ac_init_help in | 1921 | case $ac_init_help in |
| 1922 | short | recursive ) echo "Configuration of emacs 24.0.91:";; | 1922 | short | recursive ) echo "Configuration of emacs 24.0.92:";; |
| 1923 | esac | 1923 | esac |
| 1924 | cat <<\_ACEOF | 1924 | cat <<\_ACEOF |
| 1925 | 1925 | ||
| @@ -2081,7 +2081,7 @@ fi | |||
| 2081 | test -n "$ac_init_help" && exit $ac_status | 2081 | test -n "$ac_init_help" && exit $ac_status |
| 2082 | if $ac_init_version; then | 2082 | if $ac_init_version; then |
| 2083 | cat <<\_ACEOF | 2083 | cat <<\_ACEOF |
| 2084 | emacs configure 24.0.91 | 2084 | emacs configure 24.0.92 |
| 2085 | generated by GNU Autoconf 2.65 | 2085 | generated by GNU Autoconf 2.65 |
| 2086 | 2086 | ||
| 2087 | Copyright (C) 2009 Free Software Foundation, Inc. | 2087 | Copyright (C) 2009 Free Software Foundation, Inc. |
| @@ -2917,7 +2917,7 @@ cat >config.log <<_ACEOF | |||
| 2917 | This file contains any messages produced by compilers while | 2917 | This file contains any messages produced by compilers while |
| 2918 | running configure, to aid debugging if configure makes a mistake. | 2918 | running configure, to aid debugging if configure makes a mistake. |
| 2919 | 2919 | ||
| 2920 | It was created by emacs $as_me 24.0.91, which was | 2920 | It was created by emacs $as_me 24.0.92, which was |
| 2921 | generated by GNU Autoconf 2.65. Invocation command line was | 2921 | generated by GNU Autoconf 2.65. Invocation command line was |
| 2922 | 2922 | ||
| 2923 | $ $0 $@ | 2923 | $ $0 $@ |
| @@ -3749,7 +3749,7 @@ fi | |||
| 3749 | 3749 | ||
| 3750 | # Define the identity of the package. | 3750 | # Define the identity of the package. |
| 3751 | PACKAGE='emacs' | 3751 | PACKAGE='emacs' |
| 3752 | VERSION='24.0.91' | 3752 | VERSION='24.0.92' |
| 3753 | 3753 | ||
| 3754 | 3754 | ||
| 3755 | cat >>confdefs.h <<_ACEOF | 3755 | cat >>confdefs.h <<_ACEOF |
| @@ -11366,7 +11366,8 @@ done | |||
| 11366 | for ac_func in gtk_widget_get_window gtk_widget_set_has_window \ | 11366 | for ac_func in gtk_widget_get_window gtk_widget_set_has_window \ |
| 11367 | gtk_dialog_get_action_area gtk_widget_get_sensitive \ | 11367 | gtk_dialog_get_action_area gtk_widget_get_sensitive \ |
| 11368 | gtk_widget_get_mapped gtk_adjustment_get_page_size \ | 11368 | gtk_widget_get_mapped gtk_adjustment_get_page_size \ |
| 11369 | gtk_orientable_set_orientation | 11369 | gtk_orientable_set_orientation \ |
| 11370 | gtk_window_set_has_resize_grip | ||
| 11370 | do : | 11371 | do : |
| 11371 | as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` | 11372 | as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` |
| 11372 | ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" | 11373 | ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" |
| @@ -11379,7 +11380,6 @@ _ACEOF | |||
| 11379 | fi | 11380 | fi |
| 11380 | done | 11381 | done |
| 11381 | 11382 | ||
| 11382 | |||
| 11383 | fi | 11383 | fi |
| 11384 | 11384 | ||
| 11385 | HAVE_DBUS=no | 11385 | HAVE_DBUS=no |
| @@ -24968,7 +24968,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 | |||
| 24968 | # report actual input values of CONFIG_FILES etc. instead of their | 24968 | # report actual input values of CONFIG_FILES etc. instead of their |
| 24969 | # values after options handling. | 24969 | # values after options handling. |
| 24970 | ac_log=" | 24970 | ac_log=" |
| 24971 | This file was extended by emacs $as_me 24.0.91, which was | 24971 | This file was extended by emacs $as_me 24.0.92, which was |
| 24972 | generated by GNU Autoconf 2.65. Invocation command line was | 24972 | generated by GNU Autoconf 2.65. Invocation command line was |
| 24973 | 24973 | ||
| 24974 | CONFIG_FILES = $CONFIG_FILES | 24974 | CONFIG_FILES = $CONFIG_FILES |
| @@ -25034,7 +25034,7 @@ _ACEOF | |||
| 25034 | cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 | 25034 | cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 |
| 25035 | ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" | 25035 | ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" |
| 25036 | ac_cs_version="\\ | 25036 | ac_cs_version="\\ |
| 25037 | emacs config.status 24.0.91 | 25037 | emacs config.status 24.0.92 |
| 25038 | configured by $0, generated by GNU Autoconf 2.65, | 25038 | configured by $0, generated by GNU Autoconf 2.65, |
| 25039 | with options \\"\$ac_cs_config\\" | 25039 | with options \\"\$ac_cs_config\\" |
| 25040 | 25040 | ||
diff --git a/configure.in b/configure.in index 5b686e017f6..22cec282202 100644 --- a/configure.in +++ b/configure.in | |||
| @@ -22,7 +22,7 @@ dnl You should have received a copy of the GNU General Public License | |||
| 22 | dnl along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 22 | dnl along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 23 | 23 | ||
| 24 | AC_PREREQ(2.65) | 24 | AC_PREREQ(2.65) |
| 25 | AC_INIT(emacs, 24.0.91) | 25 | AC_INIT(emacs, 24.0.92) |
| 26 | AC_CONFIG_HEADER(src/config.h:src/config.in) | 26 | AC_CONFIG_HEADER(src/config.h:src/config.in) |
| 27 | AC_CONFIG_SRCDIR(src/lisp.h) | 27 | AC_CONFIG_SRCDIR(src/lisp.h) |
| 28 | AC_CONFIG_AUX_DIR(build-aux) | 28 | AC_CONFIG_AUX_DIR(build-aux) |
| @@ -184,6 +184,9 @@ OPTION_DEFAULT_OFF([xwidgets],[enable use of some gtk widgets it Emacs buffers]) | |||
| 184 | dnl http://lists.gnu.org/archive/html/emacs-devel/2008-04/msg01844.html | 184 | dnl http://lists.gnu.org/archive/html/emacs-devel/2008-04/msg01844.html |
| 185 | OPTION_DEFAULT_ON([makeinfo],[don't require makeinfo for building manuals]) | 185 | OPTION_DEFAULT_ON([makeinfo],[don't require makeinfo for building manuals]) |
| 186 | 186 | ||
| 187 | ## Makefile.in needs the cache file name. | ||
| 188 | AC_SUBST(cache_file) | ||
| 189 | |||
| 187 | ## This is an option because I do not know if all info/man support | 190 | ## This is an option because I do not know if all info/man support |
| 188 | ## compressed files, nor how to test if they do so. | 191 | ## compressed files, nor how to test if they do so. |
| 189 | OPTION_DEFAULT_ON([compress-info],[don't compress the installed Info pages]) | 192 | OPTION_DEFAULT_ON([compress-info],[don't compress the installed Info pages]) |
| @@ -1992,8 +1995,8 @@ if test "${HAVE_GTK}" = "yes"; then | |||
| 1992 | AC_CHECK_FUNCS(gtk_widget_get_window gtk_widget_set_has_window \ | 1995 | AC_CHECK_FUNCS(gtk_widget_get_window gtk_widget_set_has_window \ |
| 1993 | gtk_dialog_get_action_area gtk_widget_get_sensitive \ | 1996 | gtk_dialog_get_action_area gtk_widget_get_sensitive \ |
| 1994 | gtk_widget_get_mapped gtk_adjustment_get_page_size \ | 1997 | gtk_widget_get_mapped gtk_adjustment_get_page_size \ |
| 1995 | gtk_orientable_set_orientation) | 1998 | gtk_orientable_set_orientation \ |
| 1996 | 1999 | gtk_window_set_has_resize_grip) | |
| 1997 | fi | 2000 | fi |
| 1998 | 2001 | ||
| 1999 | 2002 | ||
| @@ -2486,7 +2489,7 @@ no_return_alloc_pixels | |||
| 2486 | fi | 2489 | fi |
| 2487 | 2490 | ||
| 2488 | if test "${HAVE_XPM}" = "yes"; then | 2491 | if test "${HAVE_XPM}" = "yes"; then |
| 2489 | AC_DEFINE(HAVE_XPM, 1, [Define to 1 if you have the Xpm libary (-lXpm).]) | 2492 | AC_DEFINE(HAVE_XPM, 1, [Define to 1 if you have the Xpm library (-lXpm).]) |
| 2490 | LIBXPM=-lXpm | 2493 | LIBXPM=-lXpm |
| 2491 | fi | 2494 | fi |
| 2492 | fi | 2495 | fi |
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog index 6e687bcefc9..d16443ccf31 100644 --- a/doc/emacs/ChangeLog +++ b/doc/emacs/ChangeLog | |||
| @@ -1,3 +1,121 @@ | |||
| 1 | 2011-12-03 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * text.texi (TeX Mode): Mention AUCTeX package. | ||
| 4 | (TeX Editing): Add xref to documentation for Occur. | ||
| 5 | (LaTeX Editing): Add xref to Completion node. | ||
| 6 | (TeX Print): Fix description of tex-directory. | ||
| 7 | (Enriched Text): Renamed from Formatted Text. Make this node and | ||
| 8 | its subnodes less verbose, since text/enriched files are | ||
| 9 | practically unused. | ||
| 10 | (Enriched Mode): Renamed from Requesting Formatted Text. | ||
| 11 | (Format Colors): Node deleted. | ||
| 12 | (Enriched Faces): Renamed from Format Faces. Describe commands | ||
| 13 | for applying colors too. | ||
| 14 | (Forcing Enriched Mode): Node deleted; merged into Enriched Mode. | ||
| 15 | |||
| 16 | * frames.texi (Menu Mouse Clicks): Tweak description of C-Mouse-2. | ||
| 17 | |||
| 18 | * display.texi (Colors): New node. | ||
| 19 | |||
| 20 | * cmdargs.texi (Colors X): | ||
| 21 | * xresources.texi (GTK styles): | ||
| 22 | * custom.texi (Face Customization): Reference it. | ||
| 23 | |||
| 24 | * glossary.texi (Glossary): Remove "formatted text" and "WYSIWYG". | ||
| 25 | Link to Fill Commands for Justification entry. | ||
| 26 | |||
| 27 | 2011-12-03 Eli Zaretskii <eliz@gnu.org> | ||
| 28 | |||
| 29 | * display.texi (Auto Scrolling): More accurate description of what | ||
| 30 | scroll-*-aggressively does, including the effect of non-zero | ||
| 31 | margin. Fix "i.e." markup. | ||
| 32 | |||
| 33 | 2011-12-02 Chong Yidong <cyd@gnu.org> | ||
| 34 | |||
| 35 | * text.texi (Pages): Mention how formfeed chars are displayed. | ||
| 36 | (Auto Fill): Note convention for calling auto-fill-mode from Lisp. | ||
| 37 | Describe adaptive filling more precisely. | ||
| 38 | (Fill Commands): Note that filling removes excess whitespace. | ||
| 39 | (Text Mode): Note auto-mode-alist entries for Text mode. TAB is | ||
| 40 | now bound to indent-for-tab-command in Text mode. | ||
| 41 | (Outline Mode): Copyedits. | ||
| 42 | (Outline Visibility): Note that Reveal mode is a buffer-local | ||
| 43 | minor mode. | ||
| 44 | |||
| 45 | * modes.texi (Major Modes): Move note about checking major-mode in | ||
| 46 | a hook function here, from Text mode. | ||
| 47 | |||
| 48 | 2011-11-28 Chong Yidong <cyd@gnu.org> | ||
| 49 | |||
| 50 | * text.texi (Words): Add xref to Position Info. | ||
| 51 | (Paragraphs): Add xref to Regexps. | ||
| 52 | |||
| 53 | * indent.texi (Indentation): Rewrite introduction. Move table to | ||
| 54 | Indentation Commands node. | ||
| 55 | (Indentation Commands): Add index entries to table. Copyedits. | ||
| 56 | (Tab Stops, Just Spaces): Copyedits. | ||
| 57 | (Indent Convenience): New node. Document electric-indent-mode. | ||
| 58 | |||
| 59 | * programs.texi (Basic Indent): | ||
| 60 | * windows.texi (Pop Up Window): Fix kindex entry. | ||
| 61 | |||
| 62 | 2011-11-28 Chong Yidong <cyd@gnu.org> | ||
| 63 | |||
| 64 | * modes.texi (Major Modes): Move major-mode variable doc here from | ||
| 65 | Choosing Modes. Document describe-mode. Document prog-mode-hook | ||
| 66 | and text-mode-hook. Add example of using hooks. | ||
| 67 | (Minor Modes): Document behavior of mode command calls from Lisp. | ||
| 68 | Note that setting the mode variable using Customize will DTRT. | ||
| 69 | (Choosing Modes): Add example of setting a minor mode using a | ||
| 70 | local variable. | ||
| 71 | |||
| 72 | 2011-11-27 Chong Yidong <cyd@gnu.org> | ||
| 73 | |||
| 74 | * frames.texi (Creating Frames): Move frame parameter example to | ||
| 75 | Frame Parameters node. | ||
| 76 | (Frame Commands): C-x 5 o does not warp the mouse by default. | ||
| 77 | (Fonts): Add more GTK-style properties; also, they should be | ||
| 78 | capitalized. | ||
| 79 | (Special Buffer Frames): Node deleted; special-display is on the | ||
| 80 | way out. | ||
| 81 | (Frame Parameters): Example moved here from Creating Frames. | ||
| 82 | Clarify that default-frame-alist affects the initial frame too. | ||
| 83 | Delete auto-raise-mode and auto-lower-mode. | ||
| 84 | (Wheeled Mice): Node deleted. Content moved to Mouse Commands. | ||
| 85 | (Dialog Boxes): Delete x-gtk-use-old-file-dialog. | ||
| 86 | |||
| 87 | * windows.texi (Window Choice): Add xref to Lisp manual for | ||
| 88 | special-display-*. | ||
| 89 | |||
| 90 | 2011-11-26 Eli Zaretskii <eliz@gnu.org> | ||
| 91 | |||
| 92 | * display.texi (Text Display): Update the description, | ||
| 93 | cross-references, and indexing related to display of control | ||
| 94 | characters and raw bytes. | ||
| 95 | |||
| 96 | 2011-11-25 Chong Yidong <cyd@gnu.org> | ||
| 97 | |||
| 98 | * frames.texi (Frames): Rewrite introduction. | ||
| 99 | (Mouse Commands): Default for mouse-drag-copy-region is now t. | ||
| 100 | Mouse-3 does not copy to kill ring by default. DEL does not | ||
| 101 | behave specially for mouse commands any more. | ||
| 102 | (Mouse References): Document mouse-1-click-follows-link more | ||
| 103 | thoroughly. | ||
| 104 | (Menu Mouse Clicks): Move footnote to the main text and add xref | ||
| 105 | to Init Rebinding node. | ||
| 106 | (Mode Line Mouse): Mouse-3 on the mode-line does not bury buffer. | ||
| 107 | |||
| 108 | * files.texi (Visiting): `C-x 5 f' works on ttys too. | ||
| 109 | |||
| 110 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 111 | |||
| 112 | * display.texi (Font Lock): Fix typo. | ||
| 113 | |||
| 114 | 2011-11-24 Glenn Morris <rgm@gnu.org> | ||
| 115 | |||
| 116 | * rmail.texi (Rmail Output): | ||
| 117 | Mention rmail-automatic-folder-directives. (Bug#9657) | ||
| 118 | |||
| 1 | 2011-11-21 Chong Yidong <cyd@gnu.org> | 119 | 2011-11-21 Chong Yidong <cyd@gnu.org> |
| 2 | 120 | ||
| 3 | * mark.texi (Global Mark Ring): Fix description of global mark | 121 | * mark.texi (Global Mark Ring): Fix description of global mark |
diff --git a/doc/emacs/building.texi b/doc/emacs/building.texi index ac62e2d9652..9c5b2e7dcd7 100644 --- a/doc/emacs/building.texi +++ b/doc/emacs/building.texi | |||
| @@ -995,7 +995,7 @@ breakpoint}, the breakpoint which point is on. | |||
| 995 | Enable/disable current breakpoint (@code{gdb-toggle-breakpoint}). | 995 | Enable/disable current breakpoint (@code{gdb-toggle-breakpoint}). |
| 996 | On a graphical display, this changes the color of a bullet in the | 996 | On a graphical display, this changes the color of a bullet in the |
| 997 | margin of a source buffer at the relevant line. This is red when | 997 | margin of a source buffer at the relevant line. This is red when |
| 998 | the breakpoint is enabled and grey when it is disabled. Text-only | 998 | the breakpoint is enabled and gray when it is disabled. Text-only |
| 999 | terminals correspondingly display a @samp{B} or @samp{b}. | 999 | terminals correspondingly display a @samp{B} or @samp{b}. |
| 1000 | 1000 | ||
| 1001 | @item D | 1001 | @item D |
diff --git a/doc/emacs/cmdargs.texi b/doc/emacs/cmdargs.texi index 07cca53ce4d..d9109045570 100644 --- a/doc/emacs/cmdargs.texi +++ b/doc/emacs/cmdargs.texi | |||
| @@ -69,7 +69,7 @@ arguments.) | |||
| 69 | * Environment:: Environment variables that Emacs uses. | 69 | * Environment:: Environment variables that Emacs uses. |
| 70 | * Display X:: Changing the default display and using remote login. | 70 | * Display X:: Changing the default display and using remote login. |
| 71 | * Font X:: Choosing a font for text, under X. | 71 | * Font X:: Choosing a font for text, under X. |
| 72 | * Colors:: Choosing display colors. | 72 | * Colors X:: Choosing display colors. |
| 73 | * Window Size X:: Start-up window size, under X. | 73 | * Window Size X:: Start-up window size, under X. |
| 74 | * Borders X:: Internal and external borders, under X. | 74 | * Borders X:: Internal and external borders, under X. |
| 75 | * Title X:: Specifying the initial frame's title. | 75 | * Title X:: Specifying the initial frame's title. |
| @@ -784,7 +784,7 @@ Use @var{font} as the default font. | |||
| 784 | 784 | ||
| 785 | When passing a font specification to Emacs on the command line, you | 785 | When passing a font specification to Emacs on the command line, you |
| 786 | may need to ``quote'' it, by enclosing it in quotation marks, if it | 786 | may need to ``quote'' it, by enclosing it in quotation marks, if it |
| 787 | contains characters that the shell treats specially (e.g. spaces). | 787 | contains characters that the shell treats specially (e.g.@: spaces). |
| 788 | For example: | 788 | For example: |
| 789 | 789 | ||
| 790 | @smallexample | 790 | @smallexample |
| @@ -794,27 +794,14 @@ emacs -fn "DejaVu Sans Mono-12" | |||
| 794 | @xref{Fonts}, for other ways to specify the default font and font name | 794 | @xref{Fonts}, for other ways to specify the default font and font name |
| 795 | formats. | 795 | formats. |
| 796 | 796 | ||
| 797 | @node Colors | 797 | @node Colors X |
| 798 | @appendixsec Window Color Options | 798 | @appendixsec Window Color Options |
| 799 | @cindex color of window, from command line | 799 | @cindex color of window, from command line |
| 800 | @cindex text colors, from command line | 800 | @cindex text colors, from command line |
| 801 | 801 | ||
| 802 | @findex list-colors-display | 802 | You can use the following command-line options to specify the colors |
| 803 | @cindex available colors | 803 | to use for various parts of the Emacs display. Colors may be |
| 804 | On a color display, you can specify which color to use for various | 804 | specified using either color names or RGB triplets (@pxref{Colors}). |
| 805 | parts of the Emacs display. To find out what colors are available on | ||
| 806 | your system, type @kbd{M-x list-colors-display}, or press | ||
| 807 | @kbd{C-Mouse-2} and select @samp{Display Colors} from the pop-up menu. | ||
| 808 | (A particular window system might support many more colors, but the | ||
| 809 | list displayed by @code{list-colors-display} shows their portable | ||
| 810 | subset that can be safely used on any display supported by Emacs.) | ||
| 811 | If you do not specify colors, on windowed displays the default for the | ||
| 812 | background is white and the default for all other colors is black. On a | ||
| 813 | monochrome display, the foreground is black, the background is white, | ||
| 814 | and the border is gray if the display supports that. On terminals, the | ||
| 815 | background is usually black and the foreground is white. | ||
| 816 | |||
| 817 | Here is a list of the command-line options for specifying colors: | ||
| 818 | 805 | ||
| 819 | @table @samp | 806 | @table @samp |
| 820 | @item -fg @var{color} | 807 | @item -fg @var{color} |
| @@ -822,15 +809,15 @@ background is usually black and the foreground is white. | |||
| 822 | @itemx --foreground-color=@var{color} | 809 | @itemx --foreground-color=@var{color} |
| 823 | @opindex --foreground-color | 810 | @opindex --foreground-color |
| 824 | @cindex foreground color, command-line argument | 811 | @cindex foreground color, command-line argument |
| 825 | Specify the foreground color. @var{color} should be a standard color | 812 | Specify the foreground color, overriding the color specified by the |
| 826 | name, or a numeric specification of the color's red, green, and blue | 813 | @code{default} face (@pxref{Faces}). |
| 827 | components as in @samp{#4682B4} or @samp{RGB:46/82/B4}. | ||
| 828 | @item -bg @var{color} | 814 | @item -bg @var{color} |
| 829 | @opindex -bg | 815 | @opindex -bg |
| 830 | @itemx --background-color=@var{color} | 816 | @itemx --background-color=@var{color} |
| 831 | @opindex --background-color | 817 | @opindex --background-color |
| 832 | @cindex background color, command-line argument | 818 | @cindex background color, command-line argument |
| 833 | Specify the background color. | 819 | Specify the background color, overriding the color specified by the |
| 820 | @code{default} face. | ||
| 834 | @item -bd @var{color} | 821 | @item -bd @var{color} |
| 835 | @opindex -bd | 822 | @opindex -bd |
| 836 | @itemx --border-color=@var{color} | 823 | @itemx --border-color=@var{color} |
diff --git a/doc/emacs/custom.texi b/doc/emacs/custom.texi index 5b98216369d..e807aebdeee 100644 --- a/doc/emacs/custom.texi +++ b/doc/emacs/custom.texi | |||
| @@ -430,15 +430,8 @@ means that it's disabled. You can enable or disable the attribute by | |||
| 430 | clicking that button. When the attribute is enabled, you can change | 430 | clicking that button. When the attribute is enabled, you can change |
| 431 | the attribute value in the usual ways. | 431 | the attribute value in the usual ways. |
| 432 | 432 | ||
| 433 | You can specify a color name (use @kbd{M-x list-colors-display} for | 433 | The foreground and background colors can be specified using color |
| 434 | a list of them) or a hexadecimal color specification of the form | 434 | names or RGB triplets. @xref{Colors}. |
| 435 | @samp{#@var{rr}@var{gg}@var{bb}}. (@samp{#000000} is black, | ||
| 436 | @samp{#ff0000} is red, @samp{#00ff00} is green, @samp{#0000ff} is | ||
| 437 | blue, and @samp{#ffffff} is white.) On a black-and-white display, the | ||
| 438 | colors you can use for the background are @samp{black}, @samp{white}, | ||
| 439 | @samp{gray}, @samp{gray1}, and @samp{gray3}. Emacs supports these | ||
| 440 | shades of gray by using background stipple patterns instead of a | ||
| 441 | color. | ||
| 442 | 435 | ||
| 443 | Setting, saving and resetting a face work like the same operations for | 436 | Setting, saving and resetting a face work like the same operations for |
| 444 | variables (@pxref{Changing a Variable}). | 437 | variables (@pxref{Changing a Variable}). |
diff --git a/doc/emacs/display.texi b/doc/emacs/display.texi index 8995b1242b1..ea9bd95b8ee 100644 --- a/doc/emacs/display.texi +++ b/doc/emacs/display.texi | |||
| @@ -21,6 +21,7 @@ the text is displayed. | |||
| 21 | * View Mode:: Viewing read-only buffers. | 21 | * View Mode:: Viewing read-only buffers. |
| 22 | * Follow Mode:: Follow mode lets two windows scroll as one. | 22 | * Follow Mode:: Follow mode lets two windows scroll as one. |
| 23 | * Faces:: How to change the display style using faces. | 23 | * Faces:: How to change the display style using faces. |
| 24 | * Colors:: Specifying colors for faces. | ||
| 24 | * Standard Faces:: Emacs' predefined faces. | 25 | * Standard Faces:: Emacs' predefined faces. |
| 25 | * Text Scale:: Increasing or decreasing text size in a buffer. | 26 | * Text Scale:: Increasing or decreasing text size in a buffer. |
| 26 | * Font Lock:: Minor mode for syntactic highlighting using faces. | 27 | * Font Lock:: Minor mode for syntactic highlighting using faces. |
| @@ -122,7 +123,7 @@ moving it to the topmost or bottommost line. With any other | |||
| 122 | non-@code{nil} value, Emacs adjusts point this way even if the scroll | 123 | non-@code{nil} value, Emacs adjusts point this way even if the scroll |
| 123 | command leaves point in the window. This variable affects all the | 124 | command leaves point in the window. This variable affects all the |
| 124 | scroll commands documented in this section, as well as scrolling with | 125 | scroll commands documented in this section, as well as scrolling with |
| 125 | the mouse wheel (@pxref{Wheeled Mice}); in general, it affects any | 126 | the mouse wheel (@pxref{Mouse Commands}); in general, it affects any |
| 126 | command that has a non-@code{nil} @code{scroll-command} property. | 127 | command that has a non-@code{nil} @code{scroll-command} property. |
| 127 | @xref{Property Lists,,, elisp, The Emacs Lisp Reference Manual}. | 128 | @xref{Property Lists,,, elisp, The Emacs Lisp Reference Manual}. |
| 128 | 129 | ||
| @@ -238,26 +239,32 @@ centered after scrolling. | |||
| 238 | @cindex aggressive scrolling | 239 | @cindex aggressive scrolling |
| 239 | @vindex scroll-up-aggressively | 240 | @vindex scroll-up-aggressively |
| 240 | @vindex scroll-down-aggressively | 241 | @vindex scroll-down-aggressively |
| 241 | When the window does scroll by a longer distance, you can control | 242 | When the window does scroll by a distance longer than |
| 242 | how aggressively it scrolls by setting the variables | 243 | @code{scroll-step}, you can control how aggressively it scrolls by |
| 243 | @code{scroll-up-aggressively} and @code{scroll-down-aggressively}. | 244 | setting the variables @code{scroll-up-aggressively} and |
| 244 | The value of @code{scroll-up-aggressively} should be either | 245 | @code{scroll-down-aggressively}. The value of |
| 245 | @code{nil}, or a fraction @var{f} between 0 and 1. A fraction | 246 | @code{scroll-up-aggressively} should be either @code{nil}, or a |
| 246 | specifies where on the screen to put point when scrolling upward, | 247 | fraction @var{f} between 0 and 1. A fraction specifies where on the |
| 247 | i.e. forward. When point goes off the window end, the new start | 248 | screen to put point when scrolling upward, i.e.@: forward. When point |
| 248 | position is chosen to put point @var{f} parts of the window height | 249 | goes off the window end, the new start position is chosen to put point |
| 249 | from the bottom. Thus, larger @var{f} means more aggressive | 250 | @var{f} parts of the window height from the bottom margin. Thus, |
| 250 | scrolling: more new text is brought into view. The default value, | 251 | larger @var{f} means more aggressive scrolling: more new text is |
| 251 | @code{nil}, is equivalent to 0.5. | 252 | brought into view. The default value, @code{nil}, is equivalent to |
| 253 | 0.5. | ||
| 252 | 254 | ||
| 253 | Likewise, @code{scroll-down-aggressively} is used for scrolling | 255 | Likewise, @code{scroll-down-aggressively} is used for scrolling |
| 254 | down, i.e. backward. The value specifies how far point should be | 256 | down, i.e.@: backward. The value specifies how far point should be |
| 255 | placed from the top of the window; thus, as with | 257 | placed from the top margin of the window; thus, as with |
| 256 | @code{scroll-up-aggressively}, a larger value is more aggressive. | 258 | @code{scroll-up-aggressively}, a larger value is more aggressive. |
| 257 | 259 | ||
| 258 | These two variables are ignored if either @code{scroll-step} or | 260 | These two variables are ignored if either @code{scroll-step} or |
| 259 | @code{scroll-conservatively} are set to a non-zero value. | 261 | @code{scroll-conservatively} are set to a non-zero value. |
| 260 | 262 | ||
| 263 | Note that @code{scroll-margin}, described below, limits the amount | ||
| 264 | of scrolling so as to put point outside of the top or bottom margin, | ||
| 265 | even if aggressive scrolling specifies a fraction @var{f} that is | ||
| 266 | larger than the window portion between the top and the bottom margins. | ||
| 267 | |||
| 261 | @vindex scroll-margin | 268 | @vindex scroll-margin |
| 262 | The variable @code{scroll-margin} restricts how close point can come | 269 | The variable @code{scroll-margin} restricts how close point can come |
| 263 | to the top or bottom of a window. Its value is a number of screen | 270 | to the top or bottom of a window. Its value is a number of screen |
| @@ -455,7 +462,7 @@ one large window. | |||
| 455 | To turn off Follow mode, type @kbd{M-x follow-mode} a second time. | 462 | To turn off Follow mode, type @kbd{M-x follow-mode} a second time. |
| 456 | 463 | ||
| 457 | @node Faces | 464 | @node Faces |
| 458 | @section Faces: Controlling Text Display Style | 465 | @section Text Faces |
| 459 | @cindex faces | 466 | @cindex faces |
| 460 | 467 | ||
| 461 | Emacs can display text in several different styles, called | 468 | Emacs can display text in several different styles, called |
| @@ -474,10 +481,8 @@ matching that regular expression (@pxref{Regexps}). | |||
| 474 | It's possible for a given face to look different in different | 481 | It's possible for a given face to look different in different |
| 475 | frames. For instance, some text-only terminals do not support all | 482 | frames. For instance, some text-only terminals do not support all |
| 476 | face attributes, particularly font, height, and width, and some | 483 | face attributes, particularly font, height, and width, and some |
| 477 | support a limited range of colors. The @code{list-faces-display} | 484 | support a limited range of colors. |
| 478 | command shows the appearance for the selected frame. | ||
| 479 | 485 | ||
| 480 | @cindex face colors, setting | ||
| 481 | @cindex background color | 486 | @cindex background color |
| 482 | @cindex default face | 487 | @cindex default face |
| 483 | You can customize a face to alter its appearance, and save those | 488 | You can customize a face to alter its appearance, and save those |
| @@ -492,25 +497,58 @@ background color. | |||
| 492 | You can also use X resources to specify attributes of any particular | 497 | You can also use X resources to specify attributes of any particular |
| 493 | face. @xref{Resources}. | 498 | face. @xref{Resources}. |
| 494 | 499 | ||
| 500 | Emacs can display variable-width fonts, but some Emacs commands, | ||
| 501 | particularly indentation commands, do not account for variable | ||
| 502 | character display widths. Therefore, we recommend not using | ||
| 503 | variable-width fonts for most faces, particularly those assigned by | ||
| 504 | Font Lock mode. | ||
| 505 | |||
| 506 | @node Colors | ||
| 507 | @section Colors for Faces | ||
| 508 | @cindex color name | ||
| 509 | @cindex RGB triplet | ||
| 510 | |||
| 511 | Faces can have various foreground and background colors. When you | ||
| 512 | specify a color for a face---for instance, when customizing the face | ||
| 513 | (@pxref{Face Customization})---you can use either a @dfn{color name} | ||
| 514 | or an @dfn{RGB triplet}. | ||
| 515 | |||
| 516 | @findex list-colors-display | ||
| 517 | A color name is a pre-defined name, such as @samp{dark orange} or | ||
| 518 | @samp{medium sea green}. To view a list of color names, type @kbd{M-x | ||
| 519 | list-colors-display}. If you run this command on a graphical display, | ||
| 520 | it shows the full range of color names known to Emacs (these are the | ||
| 521 | standard X11 color names, defined in X's @file{rgb.txt} file). If you | ||
| 522 | run the command on a text-only terminal, it shows only a small subset | ||
| 523 | of colors that can be safely displayed on such terminals. However, | ||
| 524 | Emacs understands X11 color names even on text-only terminals; if a | ||
| 525 | face is given a color specified by an X11 color name, it is displayed | ||
| 526 | using the closest-matching terminal color. | ||
| 527 | |||
| 528 | An RGB triplet is a string of the form @samp{#RRGGBB}. Each of the | ||
| 529 | R, G, and B components is a hexadecimal number specifying the | ||
| 530 | component's relative intensity, one to four digits long (usually two | ||
| 531 | digits are used). The components must have the same number of digits. | ||
| 532 | For hexadecimal values A to F, either upper or lower case are | ||
| 533 | acceptable. | ||
| 534 | |||
| 535 | The @kbd{M-x list-colors-display} command also shows the equivalent | ||
| 536 | RGB triplet for each named color. For instance, @samp{medium sea | ||
| 537 | green} is equivalent to @samp{#3CB371}. | ||
| 538 | |||
| 539 | @cindex face colors, setting | ||
| 495 | @findex set-face-foreground | 540 | @findex set-face-foreground |
| 496 | @findex set-face-background | 541 | @findex set-face-background |
| 497 | You can also change the foreground and background colors of a face | 542 | You can change the foreground and background colors of a face with |
| 498 | with @kbd{M-x set-face-foreground} and @kbd{M-x set-face-background}. | 543 | @kbd{M-x set-face-foreground} and @kbd{M-x set-face-background}. |
| 499 | These commands prompt in the minibuffer for a face name and a color | 544 | These commands prompt in the minibuffer for a face name and a color, |
| 500 | name, with completion, and then set that face to use the specified | 545 | with completion, and then set that face to use the specified color. |
| 501 | color (@pxref{Face Customization}, for information about color names). | ||
| 502 | They affect the face colors on all frames, but their effects do not | 546 | They affect the face colors on all frames, but their effects do not |
| 503 | persist for future Emacs sessions, unlike using the customization | 547 | persist for future Emacs sessions, unlike using the customization |
| 504 | buffer or X resources. You can also use frame parameters to set | 548 | buffer or X resources. You can also use frame parameters to set |
| 505 | foreground and background colors for a specific frame; see @ref{Frame | 549 | foreground and background colors for a specific frame; @xref{Frame |
| 506 | Parameters}. | 550 | Parameters}. |
| 507 | 551 | ||
| 508 | Emacs can display variable-width fonts, but some Emacs commands, | ||
| 509 | particularly indentation commands, do not account for variable | ||
| 510 | character display widths. Therefore, we recommend not using | ||
| 511 | variable-width fonts for most faces, particularly those assigned by | ||
| 512 | Font Lock mode. | ||
| 513 | |||
| 514 | @node Standard Faces | 552 | @node Standard Faces |
| 515 | @section Standard Faces | 553 | @section Standard Faces |
| 516 | 554 | ||
| @@ -762,7 +800,7 @@ relies on analysis of the syntactic structure of the buffer text. For | |||
| 762 | the sake of speed, some modes, including Lisp mode, rely on a special | 800 | the sake of speed, some modes, including Lisp mode, rely on a special |
| 763 | convention: an open-parenthesis or open-brace in the leftmost column | 801 | convention: an open-parenthesis or open-brace in the leftmost column |
| 764 | always defines the beginning of a defun, and is thus always outside | 802 | always defines the beginning of a defun, and is thus always outside |
| 765 | any string or comment. Therefore, you should avoid placing a an | 803 | any string or comment. Therefore, you should avoid placing an |
| 766 | open-parenthesis or open-brace in the leftmost column, if it is inside | 804 | open-parenthesis or open-brace in the leftmost column, if it is inside |
| 767 | a string or comment. @xref{Left Margin Paren}, for details. | 805 | a string or comment. @xref{Left Margin Paren}, for details. |
| 768 | 806 | ||
| @@ -1016,13 +1054,13 @@ trailing whitespace in the region instead. | |||
| 1016 | @cindex fringes, and unused line indication | 1054 | @cindex fringes, and unused line indication |
| 1017 | On graphical displays, Emacs can indicate unused lines at the end of | 1055 | On graphical displays, Emacs can indicate unused lines at the end of |
| 1018 | the window with a small image in the left fringe (@pxref{Fringes}). | 1056 | the window with a small image in the left fringe (@pxref{Fringes}). |
| 1019 | The image appears for window lines that do not correspond to any | 1057 | The image appears for screen lines that do not correspond to any |
| 1020 | buffer text. Blank lines at the end of the buffer then stand out | 1058 | buffer text, so blank lines at the end of the buffer stand out because |
| 1021 | because they do not have this image in the fringe. To enable this | 1059 | they lack this image. To enable this feature, set the buffer-local |
| 1022 | feature, set the buffer-local variable @code{indicate-empty-lines} to | 1060 | variable @code{indicate-empty-lines} to a non-@code{nil} value. You |
| 1023 | a non-@code{nil} value. You can enable or disable this feature for | 1061 | can enable or disable this feature for all new buffers by setting the |
| 1024 | all new buffers by setting the default value of this variable, | 1062 | default value of this variable, e.g.@: @code{(setq-default |
| 1025 | e.g.@:@code{(setq-default indicate-empty-lines t)}. | 1063 | indicate-empty-lines t)}. |
| 1026 | 1064 | ||
| 1027 | @node Selective Display | 1065 | @node Selective Display |
| 1028 | @section Selective Display | 1066 | @section Selective Display |
| @@ -1216,7 +1254,7 @@ characters include @acronym{ASCII} numbers, letters, and punctuation | |||
| 1216 | characters, as well as many non-@acronym{ASCII} characters. | 1254 | characters, as well as many non-@acronym{ASCII} characters. |
| 1217 | 1255 | ||
| 1218 | @vindex tab-width | 1256 | @vindex tab-width |
| 1219 | @cindex control character | 1257 | @cindex control characters on display |
| 1220 | The @acronym{ASCII} character set contains non-printing @dfn{control | 1258 | The @acronym{ASCII} character set contains non-printing @dfn{control |
| 1221 | characters}. Two of these are displayed specially: the newline | 1259 | characters}. Two of these are displayed specially: the newline |
| 1222 | character (Unicode code point @code{U+000A}) is displayed by starting | 1260 | character (Unicode code point @code{U+000A}) is displayed by starting |
| @@ -1228,19 +1266,21 @@ value between 1 and 1000, inclusive. Note that how the tab character | |||
| 1228 | in the buffer is displayed has nothing to do with the definition of | 1266 | in the buffer is displayed has nothing to do with the definition of |
| 1229 | @key{TAB} as a command. | 1267 | @key{TAB} as a command. |
| 1230 | 1268 | ||
| 1231 | Other @acronym{ASCII} control characters are displayed as a caret | 1269 | Other @acronym{ASCII} control characters, whose codes are below |
| 1270 | @code{U+0020} (octal 40, decimal 32), are displayed as a caret | ||
| 1232 | (@samp{^}) followed by the non-control version of the character, with | 1271 | (@samp{^}) followed by the non-control version of the character, with |
| 1233 | the @code{escape-glyph} face. For instance, the @samp{control-A} | 1272 | the @code{escape-glyph} face. For instance, the @samp{control-A} |
| 1234 | character, @code{U+0001}, is displayed as @samp{^A}. | 1273 | character, @code{U+0001}, is displayed as @samp{^A}. |
| 1235 | 1274 | ||
| 1275 | @cindex octal escapes | ||
| 1236 | @vindex ctl-arrow | 1276 | @vindex ctl-arrow |
| 1237 | The non-@acronym{ASCII}, non-printing characters @code{U+0080} | 1277 | The raw bytes with codes @code{U+0080} (octal 200) through |
| 1238 | (octal 200) through @code{U+009F} (octal 237) are displayed as octal | 1278 | @code{U+009F} (octal 237) are displayed as @dfn{octal escape |
| 1239 | escape sequences, with the @code{escape-glyph} face. For instance, | 1279 | sequences}, with the @code{escape-glyph} face. For instance, |
| 1240 | character code @code{U+0098} (octal 230) is displayed as @samp{\230}. | 1280 | character code @code{U+0098} (octal 230) is displayed as @samp{\230}. |
| 1241 | If you change the buffer-local variable @code{ctl-arrow} to | 1281 | If you change the buffer-local variable @code{ctl-arrow} to |
| 1242 | @code{nil}, @acronym{ASCII} control characters are also displayed as | 1282 | @code{nil}, the @acronym{ASCII} control characters are also displayed |
| 1243 | octal escape sequences instead of caret escape sequences. | 1283 | as octal escape sequences instead of caret escape sequences. |
| 1244 | 1284 | ||
| 1245 | @vindex nobreak-char-display | 1285 | @vindex nobreak-char-display |
| 1246 | @cindex non-breaking space | 1286 | @cindex non-breaking space |
| @@ -1249,7 +1289,7 @@ octal escape sequences instead of caret escape sequences. | |||
| 1249 | Some non-@acronym{ASCII} characters have the same appearance as an | 1289 | Some non-@acronym{ASCII} characters have the same appearance as an |
| 1250 | @acronym{ASCII} space or hyphen (minus) character. Such characters | 1290 | @acronym{ASCII} space or hyphen (minus) character. Such characters |
| 1251 | can cause problems if they are entered into a buffer without your | 1291 | can cause problems if they are entered into a buffer without your |
| 1252 | realization, e.g. by yanking; for instance, source code compilers | 1292 | realization, e.g.@: by yanking; for instance, source code compilers |
| 1253 | typically do not treat non-@acronym{ASCII} spaces as whitespace | 1293 | typically do not treat non-@acronym{ASCII} spaces as whitespace |
| 1254 | characters. To deal with this problem, Emacs displays such characters | 1294 | characters. To deal with this problem, Emacs displays such characters |
| 1255 | specially: it displays @code{U+00A0} (no-break space) with the | 1295 | specially: it displays @code{U+00A0} (no-break space) with the |
| @@ -1270,10 +1310,12 @@ elisp, The Emacs Lisp Reference Manual}. | |||
| 1270 | On graphical displays, some characters may have no glyphs in any of | 1310 | On graphical displays, some characters may have no glyphs in any of |
| 1271 | the fonts available to Emacs. These @dfn{glyphless characters} are | 1311 | the fonts available to Emacs. These @dfn{glyphless characters} are |
| 1272 | normally displayed as boxes containing the hexadecimal character code. | 1312 | normally displayed as boxes containing the hexadecimal character code. |
| 1273 | You can control the display method by customizing the variable | 1313 | Similarly, on text terminals, characters that cannot be displayed |
| 1274 | @code{glyphless-char-display-control}. @xref{Glyphless Chars,, | 1314 | using the terminal encoding (@pxref{Terminal Coding}) are normally |
| 1275 | Glyphless Character Display, elisp, The Emacs Lisp Reference Manual}, | 1315 | displayed as question signs. You can control the display method by |
| 1276 | for details. | 1316 | customizing the variable @code{glyphless-char-display-control}. |
| 1317 | @xref{Glyphless Chars,, Glyphless Character Display, elisp, The Emacs | ||
| 1318 | Lisp Reference Manual}, for details. | ||
| 1277 | 1319 | ||
| 1278 | @node Cursor Display | 1320 | @node Cursor Display |
| 1279 | @section Displaying the Cursor | 1321 | @section Displaying the Cursor |
diff --git a/doc/emacs/emacs.texi b/doc/emacs/emacs.texi index 55fdb9ec875..aca3735ff03 100644 --- a/doc/emacs/emacs.texi +++ b/doc/emacs/emacs.texi | |||
| @@ -113,25 +113,6 @@ Emacs Lisp Reference Manual}. | |||
| 113 | @insertcopying | 113 | @insertcopying |
| 114 | @end ifnottex | 114 | @end ifnottex |
| 115 | 115 | ||
| 116 | @ignore | ||
| 117 | These subcategories have been deleted for simplicity | ||
| 118 | and to avoid conflicts. | ||
| 119 | Completion | ||
| 120 | Backup Files | ||
| 121 | Auto-Saving: Protection Against Disasters | ||
| 122 | Tags | ||
| 123 | Text Mode | ||
| 124 | Outline Mode | ||
| 125 | @TeX{} Mode | ||
| 126 | Formatted Text | ||
| 127 | Shell Command History | ||
| 128 | |||
| 129 | The ones for Dired and Rmail have had the items turned into :: items | ||
| 130 | to avoid conflicts. | ||
| 131 | Also Running Shell Commands from Emacs | ||
| 132 | and Sending Mail and Registers and Minibuffer. | ||
| 133 | @end ignore | ||
| 134 | |||
| 135 | @menu | 116 | @menu |
| 136 | * Distrib:: How to get the latest Emacs distribution. | 117 | * Distrib:: How to get the latest Emacs distribution. |
| 137 | * Intro:: An introduction to Emacs concepts. | 118 | * Intro:: An introduction to Emacs concepts. |
| @@ -350,6 +331,7 @@ Controlling the Display | |||
| 350 | * View Mode:: Viewing read-only buffers. | 331 | * View Mode:: Viewing read-only buffers. |
| 351 | * Follow Mode:: Follow mode lets two windows scroll as one. | 332 | * Follow Mode:: Follow mode lets two windows scroll as one. |
| 352 | * Faces:: How to change the display style using faces. | 333 | * Faces:: How to change the display style using faces. |
| 334 | * Colors:: Specifying colors for faces. | ||
| 353 | * Standard Faces:: Emacs' predefined faces. | 335 | * Standard Faces:: Emacs' predefined faces. |
| 354 | * Text Scale:: Increasing or decreasing text size in a buffer. | 336 | * Text Scale:: Increasing or decreasing text size in a buffer. |
| 355 | * Font Lock:: Minor mode for syntactic highlighting using faces. | 337 | * Font Lock:: Minor mode for syntactic highlighting using faces. |
| @@ -505,10 +487,8 @@ Frames and Graphical Displays | |||
| 505 | * Fonts:: Changing the frame font. | 487 | * Fonts:: Changing the frame font. |
| 506 | * Speedbar:: How to make and use a speedbar frame. | 488 | * Speedbar:: How to make and use a speedbar frame. |
| 507 | * Multiple Displays:: How one Emacs job can talk to several displays. | 489 | * Multiple Displays:: How one Emacs job can talk to several displays. |
| 508 | * Special Buffer Frames:: You can make certain buffers have their own frames. | ||
| 509 | * Frame Parameters:: Changing the colors and other modes of frames. | 490 | * Frame Parameters:: Changing the colors and other modes of frames. |
| 510 | * Scroll Bars:: How to enable and disable scroll bars; how to use them. | 491 | * Scroll Bars:: How to enable and disable scroll bars; how to use them. |
| 511 | * Wheeled Mice:: Using mouse wheels for scrolling. | ||
| 512 | * Drag and Drop:: Using drag and drop to open files and insert text. | 492 | * Drag and Drop:: Using drag and drop to open files and insert text. |
| 513 | * Menu Bars:: Enabling and disabling the menu bar. | 493 | * Menu Bars:: Enabling and disabling the menu bar. |
| 514 | * Tool Bars:: Enabling and disabling the tool bar. | 494 | * Tool Bars:: Enabling and disabling the tool bar. |
| @@ -553,10 +533,10 @@ Modes | |||
| 553 | 533 | ||
| 554 | Indentation | 534 | Indentation |
| 555 | 535 | ||
| 556 | * Indentation Commands:: Various commands and techniques for indentation. | 536 | * Indentation Commands:: More commands for performing indentation. |
| 557 | * Tab Stops:: You can set arbitrary "tab stops" and then | 537 | * Tab Stops:: Stop points for indentation in Text modes. |
| 558 | indent to the next tab stop when you want to. | 538 | * Just Spaces:: Using only space characters for indentation. |
| 559 | * Just Spaces:: You can request indentation using just spaces. | 539 | * Indent Convenience:: Optional indentation features. |
| 560 | 540 | ||
| 561 | Commands for Human Languages | 541 | Commands for Human Languages |
| 562 | 542 | ||
| @@ -571,8 +551,8 @@ Commands for Human Languages | |||
| 571 | * TeX Mode:: Editing input to the formatter TeX. | 551 | * TeX Mode:: Editing input to the formatter TeX. |
| 572 | * HTML Mode:: Editing HTML and SGML files. | 552 | * HTML Mode:: Editing HTML and SGML files. |
| 573 | * Nroff Mode:: Editing input to the formatter nroff. | 553 | * Nroff Mode:: Editing input to the formatter nroff. |
| 574 | * Formatted Text:: Editing formatted text directly in WYSIWYG fashion. | 554 | * Enriched Text:: Editing text ``enriched'' with fonts, colors, etc. |
| 575 | * Text Based Tables:: Editing text-based tables in WYSIWYG fashion. | 555 | * Text Based Tables:: Commands for editing text-based tables. |
| 576 | * Two-Column:: Splitting text columns into separate windows. | 556 | * Two-Column:: Splitting text columns into separate windows. |
| 577 | 557 | ||
| 578 | Filling Text | 558 | Filling Text |
| @@ -599,18 +579,16 @@ Outline Mode | |||
| 599 | * TeX Print:: Commands for printing part of a file with TeX. | 579 | * TeX Print:: Commands for printing part of a file with TeX. |
| 600 | * TeX Misc:: Customization of TeX mode, and related features. | 580 | * TeX Misc:: Customization of TeX mode, and related features. |
| 601 | 581 | ||
| 602 | Editing Formatted Text | 582 | Editing Enriched Text |
| 603 | 583 | ||
| 604 | * Requesting Formatted Text:: Entering and exiting Enriched mode. | 584 | * Enriched Mode:: Entering and exiting Enriched mode. |
| 605 | * Hard and Soft Newlines:: There are two different kinds of newlines. | 585 | * Hard and Soft Newlines:: There are two different kinds of newlines. |
| 606 | * Editing Format Info:: How to edit text properties. | 586 | * Editing Format Info:: How to edit text properties. |
| 607 | * Format Faces:: Bold, italic, underline, etc. | 587 | * Enriched Faces:: Bold, italic, underline, etc. |
| 608 | * Format Colors:: Changing the color of text. | 588 | * Enriched Indentation:: Changing the left and right margins. |
| 609 | * Format Indentation:: Changing the left and right margins. | 589 | * Enriched Justification:: Centering, setting text flush with the |
| 610 | * Format Justification:: Centering, setting text flush with the | 590 | left or right margin, etc. |
| 611 | left or right margin, etc. | 591 | * Enriched Properties:: The "special" text properties submenu. |
| 612 | * Format Properties:: The "special" text properties submenu. | ||
| 613 | * Forcing Enriched Mode:: How to force use of Enriched mode. | ||
| 614 | 592 | ||
| 615 | @c The automatic texinfo menu update inserts some duplicate items here | 593 | @c The automatic texinfo menu update inserts some duplicate items here |
| 616 | @c (faces, colors, indentation, justification, properties), because | 594 | @c (faces, colors, indentation, justification, properties), because |
| @@ -1152,7 +1130,7 @@ Command Line Arguments for Emacs Invocation | |||
| 1152 | * Environment:: Environment variables that Emacs uses. | 1130 | * Environment:: Environment variables that Emacs uses. |
| 1153 | * Display X:: Changing the default display and using remote login. | 1131 | * Display X:: Changing the default display and using remote login. |
| 1154 | * Font X:: Choosing a font for text, under X. | 1132 | * Font X:: Choosing a font for text, under X. |
| 1155 | * Colors:: Choosing display colors. | 1133 | * Colors X:: Choosing display colors. |
| 1156 | * Window Size X:: Start-up window size, under X. | 1134 | * Window Size X:: Start-up window size, under X. |
| 1157 | * Borders X:: Internal and external borders, under X. | 1135 | * Borders X:: Internal and external borders, under X. |
| 1158 | * Title X:: Specifying the initial frame's title. | 1136 | * Title X:: Specifying the initial frame's title. |
diff --git a/doc/emacs/emacsver.texi b/doc/emacs/emacsver.texi index 87f9dddbba8..cb3f3f39778 100644 --- a/doc/emacs/emacsver.texi +++ b/doc/emacs/emacsver.texi | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | @c It would be nicer to generate this using configure and @version@. | 1 | @c It would be nicer to generate this using configure and @version@. |
| 2 | @c However, that would mean emacsver.texi would always be newer | 2 | @c However, that would mean emacsver.texi would always be newer |
| 3 | @c then the info files in release tarfiles. | 3 | @c then the info files in release tarfiles. |
| 4 | @set EMACSVER 24.0.91 | 4 | @set EMACSVER 24.0.92 |
diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi index 2317f876b08..e3da0ca44e6 100644 --- a/doc/emacs/files.texi +++ b/doc/emacs/files.texi | |||
| @@ -267,9 +267,8 @@ newly requested file. @xref{Windows}. | |||
| 267 | @kindex C-x 5 f | 267 | @kindex C-x 5 f |
| 268 | @findex find-file-other-frame | 268 | @findex find-file-other-frame |
| 269 | @kbd{C-x 5 f} (@code{find-file-other-frame}) is similar, but opens a | 269 | @kbd{C-x 5 f} (@code{find-file-other-frame}) is similar, but opens a |
| 270 | new frame, or makes visible any existing frame showing the file you | 270 | new frame, or selects any existing frame showing the specified file. |
| 271 | seek. This feature is available only when you are using a window | 271 | @xref{Frames}. |
| 272 | system. @xref{Frames}. | ||
| 273 | 272 | ||
| 274 | @cindex file selection dialog | 273 | @cindex file selection dialog |
| 275 | On graphical displays, there are two additional methods for visiting | 274 | On graphical displays, there are two additional methods for visiting |
| @@ -298,8 +297,9 @@ original encoding and end-of-line convention. @xref{Coding Systems}. | |||
| 298 | If you wish to edit a file as a sequence of @acronym{ASCII} | 297 | If you wish to edit a file as a sequence of @acronym{ASCII} |
| 299 | characters with no special encoding or conversion, use the @kbd{M-x | 298 | characters with no special encoding or conversion, use the @kbd{M-x |
| 300 | find-file-literally} command. This visits a file, like @kbd{C-x C-f}, | 299 | find-file-literally} command. This visits a file, like @kbd{C-x C-f}, |
| 301 | but does not do format conversion (@pxref{Formatted Text}), character | 300 | but does not do format conversion (@pxref{Format Conversion,, Format |
| 302 | code conversion (@pxref{Coding Systems}), or automatic uncompression | 301 | Conversion, elisp, the Emacs Lisp Reference Manual}), character code |
| 302 | conversion (@pxref{Coding Systems}), or automatic uncompression | ||
| 303 | (@pxref{Compressed Files}), and does not add a final newline because | 303 | (@pxref{Compressed Files}), and does not add a final newline because |
| 304 | of @code{require-final-newline} (@pxref{Customize Save}). If you have | 304 | of @code{require-final-newline} (@pxref{Customize Save}). If you have |
| 305 | already visited the same file in the usual (non-literal) manner, this | 305 | already visited the same file in the usual (non-literal) manner, this |
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi index 49222451cce..1445d25be15 100644 --- a/doc/emacs/frames.texi +++ b/doc/emacs/frames.texi | |||
| @@ -6,31 +6,41 @@ | |||
| 6 | @chapter Frames and Graphical Displays | 6 | @chapter Frames and Graphical Displays |
| 7 | @cindex frames | 7 | @cindex frames |
| 8 | 8 | ||
| 9 | When using a graphical display, you can create multiple system-level | 9 | When Emacs is started on a graphical display, e.g.@: on the X Window |
| 10 | ``windows'' in a single Emacs session. We refer to these system-level | 10 | System, it occupies a graphical system-level ``window''. In this |
| 11 | windows as @dfn{frames}. A frame initially contains a single Emacs | 11 | manual, we call this a @dfn{frame}, reserving the word ``window'' for |
| 12 | window; however, you can subdivide this Emacs window into smaller | 12 | the part of the frame used for displaying a buffer. A frame initially |
| 13 | windows, all fitting into the same frame. Each frame normally | 13 | contains one window, but it can be subdivided into multiple windows |
| 14 | contains its own echo area and minibuffer. | 14 | (@pxref{Windows}). A frame normally also contains a menu bar, tool |
| 15 | 15 | bar, and echo area. | |
| 16 | To avoid confusion, we reserve the word ``window'' for the | 16 | |
| 17 | subdivisions that Emacs implements, and never use it to refer to a | 17 | You can also create additional frames (@pxref{Creating Frames}). |
| 18 | frame. | 18 | All frames created in the same Emacs session have access to the same |
| 19 | 19 | underlying buffers and other data. For instance, if a buffer is being | |
| 20 | Any editing you do in one frame affects the other frames. For | 20 | shown in more than one frame, any changes made to it in one frame show |
| 21 | instance, if you put text in the kill ring in one frame, you can yank | 21 | up immediately in the other frames too. |
| 22 | it in another frame. If you exit Emacs through @kbd{C-x C-c} in one | 22 | |
| 23 | frame, it terminates all the frames. To delete just one frame, use | 23 | Typing @kbd{C-x C-c} closes all the frames on the current display, |
| 24 | and ends the Emacs session if it has no frames open on any other | ||
| 25 | displays (@pxref{Exiting}). To close just the selected frame, type | ||
| 24 | @kbd{C-x 5 0} (that is zero, not @kbd{o}). | 26 | @kbd{C-x 5 0} (that is zero, not @kbd{o}). |
| 25 | 27 | ||
| 26 | Emacs compiled for MS-DOS emulates some windowing functionality, | 28 | This chapter describes Emacs features specific to graphical displays |
| 27 | so that you can use many of the features described in this chapter. | 29 | (particularly mouse commands), and features for managing multiple |
| 30 | frames. On text-only terminals, many of these features are | ||
| 31 | unavailable. However, it is still possible to create multiple | ||
| 32 | ``frames'' on text-only terminals; such frames are displayed one at a | ||
| 33 | time, filling the entire terminal screen (@pxref{Non-Window | ||
| 34 | Terminals}). It is also possible to use the mouse on some text-only | ||
| 35 | terminals (@pxref{Text-Only Mouse}, for doing so on GNU and UNIX | ||
| 36 | systems; and | ||
| 28 | @iftex | 37 | @iftex |
| 29 | @xref{MS-DOS Mouse,,,emacs-xtra,Specialized Emacs Features}. | 38 | @pxref{MS-DOS Mouse,,,emacs-xtra,Specialized Emacs Features}, |
| 30 | @end iftex | 39 | @end iftex |
| 31 | @ifnottex | 40 | @ifnottex |
| 32 | @xref{MS-DOS Mouse}. | 41 | @pxref{MS-DOS Mouse}, |
| 33 | @end ifnottex | 42 | @end ifnottex |
| 43 | for doing so on MS-DOS). | ||
| 34 | 44 | ||
| 35 | @menu | 45 | @menu |
| 36 | * Mouse Commands:: Moving, cutting, and pasting, with the mouse. | 46 | * Mouse Commands:: Moving, cutting, and pasting, with the mouse. |
| @@ -43,10 +53,8 @@ so that you can use many of the features described in this chapter. | |||
| 43 | * Fonts:: Changing the frame font. | 53 | * Fonts:: Changing the frame font. |
| 44 | * Speedbar:: How to make and use a speedbar frame. | 54 | * Speedbar:: How to make and use a speedbar frame. |
| 45 | * Multiple Displays:: How one Emacs job can talk to several displays. | 55 | * Multiple Displays:: How one Emacs job can talk to several displays. |
| 46 | * Special Buffer Frames:: You can make certain buffers have their own frames. | ||
| 47 | * Frame Parameters:: Changing the colors and other modes of frames. | 56 | * Frame Parameters:: Changing the colors and other modes of frames. |
| 48 | * Scroll Bars:: How to enable and disable scroll bars; how to use them. | 57 | * Scroll Bars:: How to enable and disable scroll bars; how to use them. |
| 49 | * Wheeled Mice:: Using mouse wheels for scrolling. | ||
| 50 | * Drag and Drop:: Using drag and drop to open files and insert text. | 58 | * Drag and Drop:: Using drag and drop to open files and insert text. |
| 51 | * Menu Bars:: Enabling and disabling the menu bar. | 59 | * Menu Bars:: Enabling and disabling the menu bar. |
| 52 | * Tool Bars:: Enabling and disabling the tool bar. | 60 | * Tool Bars:: Enabling and disabling the tool bar. |
| @@ -85,31 +93,32 @@ ring; on a second click, kill it (@code{mouse-save-then-kill}). | |||
| 85 | 93 | ||
| 86 | @findex mouse-set-point | 94 | @findex mouse-set-point |
| 87 | The most basic mouse command is @code{mouse-set-point}, which is | 95 | The most basic mouse command is @code{mouse-set-point}, which is |
| 88 | called by clicking with the left mouse button, @kbd{Mouse-1}, in the | 96 | invoked by clicking with the left mouse button, @kbd{Mouse-1}, in the |
| 89 | text area of a window. This moves point to the position where you | 97 | text area of a window. This moves point to the position where you |
| 90 | clicked. | 98 | clicked. If that window was not the selected window, it becomes the |
| 99 | selected window. | ||
| 91 | 100 | ||
| 92 | @vindex x-mouse-click-focus-ignore-position | 101 | @vindex x-mouse-click-focus-ignore-position |
| 93 | Normally, Emacs does not distinguish between ordinary mouse clicks | 102 | Normally, if the frame you clicked in was not the selected frame, it |
| 94 | and clicks that select a frame. When you click on a frame to select | 103 | is made the selected frame, in addition to selecting the window and |
| 95 | it, that also changes the selected window and cursor position | 104 | setting the cursor. On the X Window System, you can change this by |
| 96 | according to the mouse click position. On the X Window System, you | 105 | setting the variable @code{x-mouse-click-focus-ignore-position} to |
| 97 | can change this behavior by setting the variable | 106 | @code{t}. In that case, the initial click on an unselected frame just |
| 98 | @code{x-mouse-click-focus-ignore-position} to @code{t}. Then the | 107 | selects the frame, without doing anything else; clicking again selects |
| 99 | first click selects the frame, but does not affect the selected window | 108 | the window and sets the cursor position. |
| 100 | or cursor position. If you click again in the same place, that click | ||
| 101 | will be in the selected frame, so it will change the window or cursor | ||
| 102 | position. | ||
| 103 | 109 | ||
| 104 | @findex mouse-set-region | 110 | @findex mouse-set-region |
| 105 | @vindex mouse-drag-copy-region | ||
| 106 | Holding down @kbd{Mouse-1} and ``dragging'' the mouse over a stretch | 111 | Holding down @kbd{Mouse-1} and ``dragging'' the mouse over a stretch |
| 107 | of text activates the region around that text | 112 | of text activates the region around that text |
| 108 | (@code{mouse-set-region}). @xref{Mark}. Emacs places the mark where | 113 | (@code{mouse-set-region}), placing the mark where you started holding |
| 109 | you started holding down the mouse button, and point where you release | 114 | down the mouse button, and point where you release it (@pxref{Mark}). |
| 110 | it. In addition, the region is copied into the kill ring (@pxref{Kill | 115 | In addition, the text in the region becomes the primary selection |
| 111 | Ring}). If you don't want Emacs to copy the region, change the | 116 | (@pxref{Primary Selection}). |
| 112 | variable @code{mouse-drag-copy-region} to @code{nil}. | 117 | |
| 118 | @vindex mouse-drag-copy-region | ||
| 119 | If you change the variable @code{mouse-drag-copy-region} to a | ||
| 120 | non-@code{nil} value, dragging the mouse over a stretch of text also | ||
| 121 | adds the text to the kill ring. The default is @code{nil}. | ||
| 113 | 122 | ||
| 114 | @vindex mouse-scroll-min-lines | 123 | @vindex mouse-scroll-min-lines |
| 115 | If you move the mouse off the top or bottom of the window while | 124 | If you move the mouse off the top or bottom of the window while |
| @@ -124,7 +133,7 @@ on how far away from the window edge the mouse has gone; the variable | |||
| 124 | Clicking with the middle mouse button, @kbd{Mouse-2}, moves point to | 133 | Clicking with the middle mouse button, @kbd{Mouse-2}, moves point to |
| 125 | the position where you clicked and inserts the contents of the primary | 134 | the position where you clicked and inserts the contents of the primary |
| 126 | selection (@code{mouse-yank-primary}). @xref{Primary Selection}. | 135 | selection (@code{mouse-yank-primary}). @xref{Primary Selection}. |
| 127 | This behavior is consistent with other X applications; alternatively, | 136 | This behavior is consistent with other X applications. Alternatively, |
| 128 | you can rebind @kbd{Mouse-2} to @code{mouse-yank-at-click}, which | 137 | you can rebind @kbd{Mouse-2} to @code{mouse-yank-at-click}, which |
| 129 | performs a yank at point. | 138 | performs a yank at point. |
| 130 | 139 | ||
| @@ -144,7 +153,6 @@ depending on where you click and the status of the region: | |||
| 144 | @item | 153 | @item |
| 145 | If no region is active, clicking @kbd{Mouse-3} activates the region, | 154 | If no region is active, clicking @kbd{Mouse-3} activates the region, |
| 146 | placing the mark where point was and point at the clicked position. | 155 | placing the mark where point was and point at the clicked position. |
| 147 | In addition, the text in the region is copied to the kill ring. | ||
| 148 | 156 | ||
| 149 | @item | 157 | @item |
| 150 | If a region is active, clicking @kbd{Mouse-3} adjusts the nearer end | 158 | If a region is active, clicking @kbd{Mouse-3} adjusts the nearer end |
| @@ -155,8 +163,8 @@ region was already on the kill ring, it replaces it there. | |||
| 155 | @item | 163 | @item |
| 156 | If you originally specified the region using a double or triple | 164 | If you originally specified the region using a double or triple |
| 157 | @kbd{Mouse-1}, so that the region is defined to consist of entire | 165 | @kbd{Mouse-1}, so that the region is defined to consist of entire |
| 158 | words or lines, then adjusting the region with @kbd{Mouse-3} also | 166 | words or lines (@pxref{Word and Line Mouse}), then adjusting the |
| 159 | proceeds by entire words or lines. | 167 | region with @kbd{Mouse-3} also proceeds by entire words or lines. |
| 160 | 168 | ||
| 161 | @item | 169 | @item |
| 162 | If you use @kbd{Mouse-3} a second time consecutively, at the same | 170 | If you use @kbd{Mouse-3} a second time consecutively, at the same |
| @@ -168,23 +176,33 @@ just once---or just drag across the text with @kbd{Mouse-1}. Then you | |||
| 168 | can copy it elsewhere by yanking it. | 176 | can copy it elsewhere by yanking it. |
| 169 | @end itemize | 177 | @end itemize |
| 170 | 178 | ||
| 179 | The @code{mouse-save-then-kill} command also obeys the variable | ||
| 180 | @code{mouse-drag-copy-region} (described above). If the value is | ||
| 181 | non-@code{nil}, then whenever the command sets or adjusts the active | ||
| 182 | region, the text in the region is also added to the kill ring. If the | ||
| 183 | latest kill ring entry had been added the same way, that entry is | ||
| 184 | replaced rather than making a new entry. | ||
| 185 | |||
| 171 | Whenever you set the region using any of the mouse commands | 186 | Whenever you set the region using any of the mouse commands |
| 172 | described above, the mark will be deactivated by any subsequent | 187 | described above, the mark will be deactivated by any subsequent |
| 173 | unshifted cursor motion command, in addition to the usual ways of | 188 | unshifted cursor motion command, in addition to the usual ways of |
| 174 | deactivating the mark. @xref{Shift Selection}. While the region | 189 | deactivating the mark. @xref{Shift Selection}. |
| 175 | remains active, typing @key{Backspace} or @key{Delete} deletes the | 190 | |
| 176 | text in that region and deactivates the mark; this behavior follows a | 191 | @cindex mouse wheel |
| 177 | convention established by other graphical programs, and it does | 192 | @findex mouse-wheel-mode |
| 178 | @emph{not} apply when you set the region any other way, including | 193 | @cindex Mouse Wheel minor mode |
| 179 | shift-selection (@pxref{Shift Selection}). | 194 | @cindex mode, Mouse Wheel |
| 180 | 195 | @vindex mouse-wheel-follow-mouse | |
| 181 | @cindex Delete Selection mode | 196 | @vindex mouse-wheel-scroll-amount |
| 182 | @cindex mode, Delete Selection | 197 | @vindex mouse-wheel-progressive-speed |
| 183 | @findex delete-selection-mode | 198 | Some mice have a ``wheel'' which can be used for scrolling. Emacs |
| 184 | Many graphical applications also follow the convention that | 199 | supports scrolling windows with the mouse wheel, by default, on most |
| 185 | insertion while text is selected deletes the selected text. You can | 200 | graphical displays. To toggle this feature, use @kbd{M-x |
| 186 | make Emacs behave this way by enabling Delete Selection mode. | 201 | mouse-wheel-mode}. The variables @code{mouse-wheel-follow-mouse} and |
| 187 | @xref{Using Region}. | 202 | @code{mouse-wheel-scroll-amount} determine where and by how much |
| 203 | buffers are scrolled. The variable | ||
| 204 | @code{mouse-wheel-progressive-speed} determines whether the scroll | ||
| 205 | speed is linked to how fast you move the wheel. | ||
| 188 | 206 | ||
| 189 | @node Word and Line Mouse | 207 | @node Word and Line Mouse |
| 190 | @section Mouse Commands for Words and Lines | 208 | @section Mouse Commands for Words and Lines |
| @@ -202,7 +220,7 @@ underscore, in C mode) selects the symbol surrounding that character. | |||
| 202 | Double-clicking on a character with open- or close-parenthesis syntax | 220 | Double-clicking on a character with open- or close-parenthesis syntax |
| 203 | selects the parenthetical grouping which that character starts or | 221 | selects the parenthetical grouping which that character starts or |
| 204 | ends. Double-clicking on a character with string-delimiter syntax | 222 | ends. Double-clicking on a character with string-delimiter syntax |
| 205 | (such as a singlequote or doublequote in C) selects the string | 223 | (such as a single-quote or double-quote in C) selects the string |
| 206 | constant (Emacs uses heuristics to figure out whether that character | 224 | constant (Emacs uses heuristics to figure out whether that character |
| 207 | is the beginning or the end of it). | 225 | is the beginning or the end of it). |
| 208 | 226 | ||
| @@ -220,50 +238,54 @@ Select the text you drag across, in the form of whole lines. | |||
| 220 | @section Following References with the Mouse | 238 | @section Following References with the Mouse |
| 221 | @kindex Mouse-1 @r{(selection)} | 239 | @kindex Mouse-1 @r{(selection)} |
| 222 | @kindex Mouse-2 @r{(selection)} | 240 | @kindex Mouse-2 @r{(selection)} |
| 241 | @cindex hyperlinks | ||
| 242 | @cindex links | ||
| 243 | @cindex text buttons | ||
| 244 | @cindex buttons | ||
| 223 | 245 | ||
| 224 | @vindex mouse-highlight | 246 | @vindex mouse-highlight |
| 225 | Some Emacs buffers include @dfn{buttons}. A button is a piece of | 247 | Some Emacs buffers include @dfn{buttons}, or @dfn{hyperlinks}: |
| 226 | text that performs some action when you activate it, such as following | 248 | pieces of text that perform some action (e.g.@: following a reference) |
| 227 | a reference. Usually, a button's text is visually highlighted: it is | 249 | when activated (e.g.@: by clicking on them). Usually, a button's text |
| 228 | underlined, or a box is drawn around it. If you move the mouse over a | 250 | is visually highlighted: it is underlined, or a box is drawn around |
| 229 | button, the shape of the mouse cursor changes and the button lights up | 251 | it. If you move the mouse over a button, the shape of the mouse |
| 230 | (if you change the variable @code{mouse-highlight} to @code{nil}, | 252 | cursor changes and the button lights up. If you change the variable |
| 231 | Emacs disables this highlighting). | 253 | @code{mouse-highlight} to @code{nil}, Emacs disables this |
| 254 | highlighting. | ||
| 232 | 255 | ||
| 233 | You can activate a button by moving point to it and typing | 256 | You can activate a button by moving point to it and typing |
| 234 | @key{RET}, or by clicking either @kbd{Mouse-1} or @kbd{Mouse-2} on the | 257 | @key{RET}, or by clicking either @kbd{Mouse-1} or @kbd{Mouse-2} on the |
| 235 | button. For example, typing @key{RET} or clicking on a file name in a | 258 | button. For example, in a Dired buffer, each file name is a button; |
| 236 | Dired buffer visits that file (@pxref{Dired}). Doing it on an error | 259 | activating it causes Emacs to visit that file (@pxref{Dired}). In a |
| 237 | message in the @samp{*Compilation*} buffer goes to the source code for | 260 | @samp{*Compilation*} buffer, each error message is a button, and |
| 238 | that error message (@pxref{Compilation}). Doing it on a completion in | 261 | activating it visits the source code for that error |
| 239 | the @samp{*Completions*} buffer chooses that completion | 262 | (@pxref{Compilation}). |
| 240 | (@pxref{Completion}). | 263 | |
| 241 | 264 | Although clicking @kbd{Mouse-1} on a button usually activates the | |
| 242 | Although clicking @kbd{Mouse-1} on a button usually activates that | 265 | button, if you hold the mouse button down for a period of time before |
| 243 | button, if you hold the mouse button down for a short period of time | 266 | releasing it (specifically, for more than 450 milliseconds), then |
| 244 | before releasing it (specifically, for more than 450 milliseconds), | 267 | Emacs moves point where you clicked, without activating the button. |
| 245 | then Emacs moves point where you clicked instead. This behavior | 268 | In this way, you can use the mouse to move point over a button without |
| 246 | allows you to use the mouse to move point over a button without | 269 | activating it. Dragging the mouse over or onto a button has its usual |
| 247 | following it. Dragging---moving the mouse while it is held down---has | 270 | behavior of setting the region, and does not activate the button. |
| 248 | its usual behavior of setting the region, even if you drag from or | 271 | |
| 249 | onto a button. | 272 | You can change how @kbd{Mouse-1} applies to buttons by customizing |
| 273 | the variable @code{mouse-1-click-follows-link}. If the value is a | ||
| 274 | positive integer, that determines how long you need to hold the mouse | ||
| 275 | button down for, in milliseconds, to cancel button activation; the | ||
| 276 | default is 450, as described in the previous paragraph. If the value | ||
| 277 | is @code{nil}, @kbd{Mouse-1} just sets point where you clicked, and | ||
| 278 | does not activate buttons. If the value is @code{double}, double | ||
| 279 | clicks activate buttons but single clicks just set point. | ||
| 250 | 280 | ||
| 251 | @vindex mouse-1-click-in-non-selected-windows | 281 | @vindex mouse-1-click-in-non-selected-windows |
| 252 | Normally, clicking @kbd{Mouse-1} on a button activates the button | 282 | Normally, @kbd{Mouse-1} on a button activates the button even if it |
| 253 | even if it is in a nonselected window. If you change the variable | 283 | is in a non-selected window. If you change the variable |
| 254 | @code{mouse-1-click-in-non-selected-windows} to @code{nil}, clicking | 284 | @code{mouse-1-click-in-non-selected-windows} to @code{nil}, |
| 255 | @kbd{Mouse-1} on a button in an un-selected window moves point to the | 285 | @kbd{Mouse-1} on a button in an unselected window moves point to the |
| 256 | clicked position and selects that window, without activating the | 286 | clicked position and selects that window, without activating the |
| 257 | button. | 287 | button. |
| 258 | 288 | ||
| 259 | @vindex mouse-1-click-follows-link | ||
| 260 | In Emacs versions before 22, only @kbd{Mouse-2} activates buttons | ||
| 261 | and @kbd{Mouse-1} always sets point. If you prefer this older | ||
| 262 | behavior, set the variable @code{mouse-1-click-follows-link} to | ||
| 263 | @code{nil}. This variable also lets you choose various other | ||
| 264 | alternatives for following links with the mouse. Type @kbd{C-h v | ||
| 265 | mouse-1-click-follows-link @key{RET}} for more details. | ||
| 266 | |||
| 267 | @node Menu Mouse Clicks | 289 | @node Menu Mouse Clicks |
| 268 | @section Mouse Clicks for Menus | 290 | @section Mouse Clicks for Menus |
| 269 | 291 | ||
| @@ -280,28 +302,35 @@ menu smarter and more customizable. @xref{Buffer Menus}. | |||
| 280 | 302 | ||
| 281 | @item C-Mouse-2 | 303 | @item C-Mouse-2 |
| 282 | @kindex C-Mouse-2 | 304 | @kindex C-Mouse-2 |
| 283 | This menu is for specifying faces and other text properties | 305 | This menu contains entries for examining faces and other text |
| 284 | for editing formatted text. @xref{Formatted Text}. | 306 | properties, and well as for setting them (the latter is mainly useful |
| 307 | when editing enriched text; @pxref{Enriched Text}). | ||
| 285 | 308 | ||
| 286 | @item C-Mouse-3 | 309 | @item C-Mouse-3 |
| 287 | @kindex C-Mouse-3 | 310 | @kindex C-Mouse-3 |
| 288 | This menu is mode-specific. For most modes if Menu-bar mode is on, | 311 | This menu is mode-specific. For most modes if Menu-bar mode is on, |
| 289 | this menu has the same items as all the mode-specific menu-bar menus | 312 | this menu has the same items as all the mode-specific menu-bar menus |
| 290 | put together. Some modes may specify a different menu for this | 313 | put together. Some modes may specify a different menu for this |
| 291 | button.@footnote{Some systems use @kbd{Mouse-3} for a mode-specific | 314 | button. If Menu Bar mode is off, this menu contains all the items |
| 292 | menu. We took a survey of users, and found they preferred to keep | 315 | which would be present in the menu bar---not just the mode-specific |
| 293 | @kbd{Mouse-3} for selecting and killing regions. Hence the decision | 316 | ones---so that you can access them without having to display the menu |
| 294 | to use @kbd{C-Mouse-3} for this menu. To use @kbd{Mouse-3} instead, | 317 | bar. |
| 295 | do @code{(global-set-key [mouse-3] 'mouse-popup-menubar-stuff)}.} If | ||
| 296 | Menu-bar mode is off, this menu contains all the items which would be | ||
| 297 | present in the menu bar---not just the mode-specific ones---so that | ||
| 298 | you can access them without having to display the menu bar. | ||
| 299 | 318 | ||
| 300 | @item S-Mouse-1 | 319 | @item S-Mouse-1 |
| 301 | This menu is for changing the default face within the window's buffer. | 320 | This menu is for changing the default face within the window's buffer. |
| 302 | @xref{Text Scale}. | 321 | @xref{Text Scale}. |
| 303 | @end table | 322 | @end table |
| 304 | 323 | ||
| 324 | Some graphical applications use @kbd{Mouse-3} for a mode-specific | ||
| 325 | menu. If you prefer @kbd{Mouse-3} in Emacs to bring up such a menu | ||
| 326 | instead of running the @code{mouse-save-then-kill} command, rebind | ||
| 327 | @kbd{Mouse-3} by adding the following line to your init file | ||
| 328 | (@pxref{Init Rebinding}): | ||
| 329 | |||
| 330 | @smallexample | ||
| 331 | (global-set-key [mouse-3] 'mouse-popup-menubar-stuff) | ||
| 332 | @end smallexample | ||
| 333 | |||
| 305 | @node Mode Line Mouse | 334 | @node Mode Line Mouse |
| 306 | @section Mode Line Mouse Commands | 335 | @section Mode Line Mouse Commands |
| 307 | @cindex mode line, mouse | 336 | @cindex mode line, mouse |
| @@ -332,34 +361,33 @@ make any window smaller than the minimum height. | |||
| 332 | @item Mouse-3 | 361 | @item Mouse-3 |
| 333 | @kindex Mouse-3 @r{(mode line)} | 362 | @kindex Mouse-3 @r{(mode line)} |
| 334 | @kbd{Mouse-3} on a mode line deletes the window it belongs to. If the | 363 | @kbd{Mouse-3} on a mode line deletes the window it belongs to. If the |
| 335 | frame has only one window, it buries the current buffer instead, and | 364 | frame has only one window, it does nothing. |
| 336 | switches to another buffer. | ||
| 337 | 365 | ||
| 338 | @item C-Mouse-2 | 366 | @item C-Mouse-2 |
| 339 | @kindex C-mouse-2 @r{(mode line)} | 367 | @kindex C-mouse-2 @r{(mode line)} |
| 340 | @kbd{C-Mouse-2} on a mode line splits the window above | 368 | @kbd{C-Mouse-2} on a mode line splits that window, producing two |
| 341 | horizontally, above the place in the mode line where you click. | 369 | side-by-side windows with the boundary running through the click |
| 370 | position (@pxref{Split Window}). | ||
| 342 | @end table | 371 | @end table |
| 343 | 372 | ||
| 344 | @kindex C-Mouse-2 @r{(scroll bar)} | 373 | @kindex C-Mouse-2 @r{(scroll bar)} |
| 345 | @kindex Mouse-1 @r{(scroll bar)} | 374 | @kindex Mouse-1 @r{(scroll bar)} |
| 346 | Using @kbd{Mouse-1} on the divider between two side-by-side mode | 375 | Furthermore, by clicking and dragging @kbd{Mouse-1} on the divider |
| 347 | lines, you can move the vertical boundary left or right. Using | 376 | between two side-by-side mode lines, you can move the vertical |
| 348 | @kbd{C-Mouse-2} on a scroll bar splits the corresponding window | 377 | boundary to the left or right. |
| 349 | vertically. @xref{Split Window}. | ||
| 350 | 378 | ||
| 351 | @node Creating Frames | 379 | @node Creating Frames |
| 352 | @section Creating Frames | 380 | @section Creating Frames |
| 353 | @cindex creating frames | 381 | @cindex creating frames |
| 354 | 382 | ||
| 355 | @kindex C-x 5 | 383 | @kindex C-x 5 |
| 356 | The prefix key @kbd{C-x 5} is analogous to @kbd{C-x 4}, with | 384 | The prefix key @kbd{C-x 5} is analogous to @kbd{C-x 4}. Whereas |
| 357 | parallel subcommands. The difference is that @kbd{C-x 5} commands | 385 | each @kbd{C-x 4} command pops up a buffer in a different window in the |
| 358 | create a new frame rather than just a new window in the selected frame | 386 | selected frame (@pxref{Pop Up Window}), the @kbd{C-x 5} commands use a |
| 359 | (@pxref{Pop Up Window}). If an existing visible or iconified | 387 | different frame. If an existing visible or iconified (``minimized'') |
| 360 | (``minimized'') frame already displays the requested material, these | 388 | frame already displays the requested buffer, that frame is raised and |
| 361 | commands use the existing frame, after raising or deiconifying | 389 | deiconified (``un-minimized''); otherwise, a new frame is created on |
| 362 | (``un-minimizing'') as necessary. | 390 | the current display terminal. |
| 363 | 391 | ||
| 364 | The various @kbd{C-x 5} commands differ in how they find or create the | 392 | The various @kbd{C-x 5} commands differ in how they find or create the |
| 365 | buffer to select: | 393 | buffer to select: |
| @@ -394,56 +422,32 @@ frame. This runs @code{find-file-read-only-other-frame}. | |||
| 394 | @xref{Visiting}. | 422 | @xref{Visiting}. |
| 395 | @end table | 423 | @end table |
| 396 | 424 | ||
| 397 | @cindex default-frame-alist | 425 | You can control the appearance and behavior of the newly-created |
| 398 | @cindex initial-frame-alist | 426 | frames by specifying @dfn{frame parameters}. @xref{Frame Parameters}. |
| 399 | @cindex face customization, in init file | ||
| 400 | @cindex color customization, in init file | ||
| 401 | You can control the appearance of new frames you create by setting the | ||
| 402 | frame parameters in @code{default-frame-alist}. You can use the | ||
| 403 | variable @code{initial-frame-alist} to specify parameters that affect | ||
| 404 | only the initial frame. @xref{Initial Parameters,,, elisp, The Emacs | ||
| 405 | Lisp Reference Manual}, for more information. | ||
| 406 | |||
| 407 | @cindex font (default) | ||
| 408 | Here is an example of using @code{default-frame-alist} to specify | ||
| 409 | the default foreground color and font: | ||
| 410 | |||
| 411 | @example | ||
| 412 | (add-to-list 'default-frame-alist '(font . "10x20")) | ||
| 413 | (add-to-list 'default-frame-alist | ||
| 414 | '(foreground-color . "blue")) | ||
| 415 | @end example | ||
| 416 | |||
| 417 | @noindent | ||
| 418 | By putting such customizations in your init file, you can control the | ||
| 419 | appearance of all the frames Emacs creates, including the initial one | ||
| 420 | (@pxref{Init File}). @xref{Fonts}, for other ways to set the default | ||
| 421 | font. | ||
| 422 | 427 | ||
| 423 | @node Frame Commands | 428 | @node Frame Commands |
| 424 | @section Frame Commands | 429 | @section Frame Commands |
| 425 | 430 | ||
| 426 | The following commands let you create, delete and operate on frames: | 431 | The following commands are used to delete and operate on frames: |
| 427 | 432 | ||
| 428 | @table @kbd | 433 | @table @kbd |
| 434 | @item C-x 5 0 | ||
| 435 | @kindex C-x 5 0 | ||
| 436 | @findex delete-frame | ||
| 437 | Delete the selected frame (@code{delete-frame}). This signals an | ||
| 438 | error if there is only one frame. | ||
| 439 | |||
| 429 | @item C-z | 440 | @item C-z |
| 430 | @kindex C-z @r{(X windows)} | 441 | @kindex C-z @r{(X windows)} |
| 431 | @findex suspend-frame | 442 | @findex suspend-frame |
| 432 | Minimize (or ``iconify) the selected Emacs frame | 443 | Minimize (or ``iconify) the selected Emacs frame |
| 433 | (@code{suspend-frame}). @xref{Exiting}. | 444 | (@code{suspend-frame}). @xref{Exiting}. |
| 434 | 445 | ||
| 435 | @item C-x 5 0 | ||
| 436 | @kindex C-x 5 0 | ||
| 437 | @findex delete-frame | ||
| 438 | Delete the selected frame (@code{delete-frame}). This is not allowed | ||
| 439 | if there is only one frame. | ||
| 440 | |||
| 441 | @item C-x 5 o | 446 | @item C-x 5 o |
| 442 | @kindex C-x 5 o | 447 | @kindex C-x 5 o |
| 443 | @findex other-frame | 448 | @findex other-frame |
| 444 | Select another frame, raise it, and warp the mouse to it. If you | 449 | Select another frame, and raise it. If you repeat this command, it |
| 445 | repeat this command, it cycles through all the frames on your | 450 | cycles through all the frames on your terminal. |
| 446 | terminal. | ||
| 447 | 451 | ||
| 448 | @item C-x 5 1 | 452 | @item C-x 5 1 |
| 449 | @kindex C-x 5 1 | 453 | @kindex C-x 5 1 |
| @@ -451,43 +455,37 @@ terminal. | |||
| 451 | Delete all frames on the current terminal, except the selected one. | 455 | Delete all frames on the current terminal, except the selected one. |
| 452 | @end table | 456 | @end table |
| 453 | 457 | ||
| 454 | The @kbd{C-x 5 0} (@code{delete-frame}) command never deletes the | 458 | The @kbd{C-x 5 0} (@code{delete-frame}) command deletes the selected |
| 455 | last frame. This prevents you from losing the ability to interact | 459 | frame. However, it will refuse to delete the last frame in an Emacs |
| 456 | with the Emacs process. Note that when Emacs is run as a daemon | 460 | session, to prevent you from losing the ability to interact with the |
| 457 | (@pxref{Emacs Server}), there is always a ``virtual frame'' that | 461 | Emacs session. Note that when Emacs is run as a daemon (@pxref{Emacs |
| 458 | remains after all the ordinary, interactive frames are deleted. In | 462 | Server}), there is always a ``virtual frame'' that remains after all |
| 459 | this case, @kbd{C-x 5 0} can delete the last interactive frame; you | 463 | the ordinary, interactive frames are deleted. In this case, @kbd{C-x |
| 460 | can use @command{emacsclient} to reconnect to the Emacs session. | 464 | 5 0} can delete the last interactive frame; you can use |
| 461 | 465 | @command{emacsclient} to reconnect to the Emacs session. | |
| 462 | The @kbd{C-x 5 1} (@code{delete-other-frames}) command only deletes | 466 | |
| 463 | frames on the current terminal. For example, if you call it from an X | 467 | The @kbd{C-x 5 1} (@code{delete-other-frames}) command deletes all |
| 464 | frame, it deletes the other frames on that X display; if the Emacs | 468 | other frames on the current terminal (this terminal refers to either a |
| 465 | process has frames open on other X displays or text terminals, those | 469 | graphical display, or a text-only terminal; @pxref{Non-Window |
| 466 | are not deleted. | 470 | Terminals}). If the Emacs session has frames open on other graphical |
| 471 | displays or text terminals, those are not deleted. | ||
| 467 | 472 | ||
| 468 | @vindex focus-follows-mouse | 473 | @vindex focus-follows-mouse |
| 469 | On X, you may have to tell Emacs how the window manager handles | 474 | The @kbd{C-x 5 o} (@code{other-frame}) command selects the next |
| 470 | focus-switching between windows, in order for @kbd{C-x 5 o} | 475 | frame on the current terminal. If you are using Emacs on the X Window |
| 471 | (@code{other-frame}) to work properly. Unfortunately, there is no way | 476 | System with a window manager that selects (or @dfn{gives focus to}) |
| 472 | for Emacs to detect this automatically, so you should set the variable | 477 | whatever frame the mouse cursor is over, you have to change the |
| 473 | @code{focus-follows-mouse}. The default is @code{nil}, meaning you | 478 | variable @code{focus-follows-mouse} to @code{t} in order for this |
| 474 | have to click on the window to select it (the default for most modern | 479 | command to work properly. Then invoking @kbd{C-x 5 o} will also warp |
| 475 | window managers). You should change it to @code{t} if your window | 480 | the mouse cursor to the chosen frame. |
| 476 | manager selects a window and gives it focus anytime you move the mouse | ||
| 477 | onto the window. | ||
| 478 | |||
| 479 | The window manager that is part of MS-Windows always gives focus to | ||
| 480 | a frame that raises, so this variable has no effect in the native | ||
| 481 | MS-Windows build of Emacs. However, you may still wish to set this | ||
| 482 | variable to @code{t} to have Emacs automatically move the mouse | ||
| 483 | pointer to the raised frame. | ||
| 484 | 481 | ||
| 485 | @node Fonts | 482 | @node Fonts |
| 486 | @section Fonts | 483 | @section Fonts |
| 487 | @cindex fonts | 484 | @cindex fonts |
| 488 | 485 | ||
| 489 | By default, Emacs displays text in X using a 12-point monospace | 486 | By default, Emacs displays text on graphical displays using a |
| 490 | font. There are several different ways to specify a different font: | 487 | 12-point monospace font. There are several different ways to specify |
| 488 | a different font: | ||
| 491 | 489 | ||
| 492 | @itemize | 490 | @itemize |
| 493 | @item | 491 | @item |
| @@ -501,7 +499,7 @@ variable @code{default-frame-alist} to specify the @code{font} | |||
| 501 | parameter (@pxref{Creating Frames}), like this: | 499 | parameter (@pxref{Creating Frames}), like this: |
| 502 | 500 | ||
| 503 | @smallexample | 501 | @smallexample |
| 504 | (add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-12")) | 502 | (add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10")) |
| 505 | @end smallexample | 503 | @end smallexample |
| 506 | 504 | ||
| 507 | @cindex X defaults file | 505 | @cindex X defaults file |
| @@ -523,18 +521,16 @@ font in your X resources file, you should not quote it. | |||
| 523 | If you are running Emacs on the GNOME desktop, you can tell Emacs to | 521 | If you are running Emacs on the GNOME desktop, you can tell Emacs to |
| 524 | use the default system font by setting the variable | 522 | use the default system font by setting the variable |
| 525 | @code{font-use-system-font} to @code{t} (the default is @code{nil}). | 523 | @code{font-use-system-font} to @code{t} (the default is @code{nil}). |
| 526 | For this to work, Emacs must be compiled with Gconf support; this is | 524 | For this to work, Emacs must have been compiled with Gconf support. |
| 527 | done automatically if the libraries are present at compile time. | ||
| 528 | 525 | ||
| 529 | @item | 526 | @item |
| 530 | Use the command line option @samp{-fn} (or @samp{--font}). @xref{Font | 527 | Use the command line option @samp{-fn} (or @samp{--font}). @xref{Font |
| 531 | X}. | 528 | X}. |
| 532 | @end itemize | 529 | @end itemize |
| 533 | 530 | ||
| 534 | To check what font you're currently using, the @kbd{C-u C-x =} | 531 | To check what font you're currently using, the @kbd{C-u C-x =} |
| 535 | command can be helpful. It'll describe the character under point, and | 532 | command can be helpful. It describes the character at point, and |
| 536 | also say what font it's rendered in, if the window system you're | 533 | names the font that it's rendered in. |
| 537 | running under supports that. | ||
| 538 | 534 | ||
| 539 | @cindex fontconfig | 535 | @cindex fontconfig |
| 540 | On X, there are four different ways to express a ``font name''. The | 536 | On X, there are four different ways to express a ``font name''. The |
| @@ -548,7 +544,7 @@ the following form: | |||
| 548 | @noindent | 544 | @noindent |
| 549 | Within this format, any of the elements in braces may be omitted. | 545 | Within this format, any of the elements in braces may be omitted. |
| 550 | Here, @var{fontname} is the @dfn{family name} of the font, such as | 546 | Here, @var{fontname} is the @dfn{family name} of the font, such as |
| 551 | @samp{Monospace} or @samp{DejaVu Serif}; @var{fontsize} is the | 547 | @samp{Monospace} or @samp{DejaVu Sans Mono}; @var{fontsize} is the |
| 552 | @dfn{point size} of the font (one @dfn{printer's point} is about 1/72 | 548 | @dfn{point size} of the font (one @dfn{printer's point} is about 1/72 |
| 553 | of an inch); and the @samp{@var{name}=@var{values}} entries specify | 549 | of an inch); and the @samp{@var{name}=@var{values}} entries specify |
| 554 | settings such as the slant and weight of the font. Each @var{values} | 550 | settings such as the slant and weight of the font. Each @var{values} |
| @@ -561,7 +557,7 @@ Here is a list of common font properties: | |||
| 561 | 557 | ||
| 562 | @table @samp | 558 | @table @samp |
| 563 | @item slant | 559 | @item slant |
| 564 | One of @samp{italic}, @samp{oblique} or @samp{roman}. | 560 | One of @samp{italic}, @samp{oblique}, or @samp{roman}. |
| 565 | 561 | ||
| 566 | @item weight | 562 | @item weight |
| 567 | One of @samp{light}, @samp{medium}, @samp{demibold}, @samp{bold} or | 563 | One of @samp{light}, @samp{medium}, @samp{demibold}, @samp{bold} or |
| @@ -595,8 +591,9 @@ For a more detailed description of Fontconfig patterns, see the | |||
| 595 | Fontconfig manual, which is distributed with Fontconfig and available | 591 | Fontconfig manual, which is distributed with Fontconfig and available |
| 596 | online at @url{http://fontconfig.org/fontconfig-user.html}. | 592 | online at @url{http://fontconfig.org/fontconfig-user.html}. |
| 597 | 593 | ||
| 598 | The second way to specify a font is to use a @dfn{GTK font | 594 | @cindex GTK font pattern |
| 599 | description}. These have the syntax | 595 | The second way to specify a font is to use a @dfn{GTK font pattern}. |
| 596 | These have the syntax | ||
| 600 | 597 | ||
| 601 | @smallexample | 598 | @smallexample |
| 602 | @var{fontname} [@var{properties}] [@var{fontsize}] | 599 | @var{fontname} [@var{properties}] [@var{fontsize}] |
| @@ -605,20 +602,24 @@ description}. These have the syntax | |||
| 605 | @noindent | 602 | @noindent |
| 606 | where @var{fontname} is the family name, @var{properties} is a list of | 603 | where @var{fontname} is the family name, @var{properties} is a list of |
| 607 | property values separated by spaces, and @var{fontsize} is the point | 604 | property values separated by spaces, and @var{fontsize} is the point |
| 608 | size. The properties that you may specify are as follows: | 605 | size. The properties that you may specify for GTK font patterns are |
| 606 | as follows: | ||
| 609 | 607 | ||
| 610 | @table @samp | 608 | @itemize |
| 611 | @item style | 609 | @item |
| 612 | One of @samp{roman}, @samp{italic} or @samp{oblique}. If omitted, the | 610 | Slant properties: @samp{Italic} or @samp{Oblique}. If omitted, the |
| 613 | @samp{roman} style is used. | 611 | default (roman) slant is implied. |
| 614 | @item weight | 612 | @item |
| 615 | One of @samp{medium}, @samp{ultra-light}, @samp{light}, | 613 | Weight properties: @samp{Bold}, @samp{Book}, @samp{Light}, |
| 616 | @samp{semi-bold}, or @samp{bold}. If omitted, @samp{medium} weight is | 614 | @samp{Medium}, @samp{Semi-bold}, or @samp{Ultra-light}. If omitted, |
| 617 | used. | 615 | @samp{Medium} weight is implied. |
| 618 | @end table | 616 | @item |
| 617 | Width properties: @samp{Semi-Condensed} or @samp{Condensed}. If | ||
| 618 | omitted, a default width is used. | ||
| 619 | @end itemize | ||
| 619 | 620 | ||
| 620 | @noindent | 621 | @noindent |
| 621 | Here are some examples of GTK font descriptions: | 622 | Here are some examples of GTK font patterns: |
| 622 | 623 | ||
| 623 | @smallexample | 624 | @smallexample |
| 624 | Monospace 12 | 625 | Monospace 12 |
| @@ -657,7 +658,7 @@ The entries have the following meanings: | |||
| 657 | @item maker | 658 | @item maker |
| 658 | The name of the font manufacturer. | 659 | The name of the font manufacturer. |
| 659 | @item family | 660 | @item family |
| 660 | The name of the font family (e.g. @samp{courier}). | 661 | The name of the font family (e.g.@: @samp{courier}). |
| 661 | @item weight | 662 | @item weight |
| 662 | The font weight---normally either @samp{bold}, @samp{medium} or | 663 | The font weight---normally either @samp{bold}, @samp{medium} or |
| 663 | @samp{light}. Some font names support other values. | 664 | @samp{light}. Some font names support other values. |
| @@ -670,8 +671,8 @@ The font width---normally @samp{normal}, @samp{condensed}, | |||
| 670 | @samp{extended}, or @samp{semicondensed} (some font names support | 671 | @samp{extended}, or @samp{semicondensed} (some font names support |
| 671 | other values). | 672 | other values). |
| 672 | @item style | 673 | @item style |
| 673 | An optional additional style name. Usually it is empty---most long | 674 | An optional additional style name. Usually it is empty---most XLFDs |
| 674 | font names have two hyphens in a row at this point. | 675 | have two hyphens in a row at this point. |
| 675 | @item pixels | 676 | @item pixels |
| 676 | The font height, in pixels. | 677 | The font height, in pixels. |
| 677 | @item height | 678 | @item height |
| @@ -840,116 +841,40 @@ input stream for each server. Each server also has its own selected | |||
| 840 | frame. The commands you enter with a particular X server apply to | 841 | frame. The commands you enter with a particular X server apply to |
| 841 | that server's selected frame. | 842 | that server's selected frame. |
| 842 | 843 | ||
| 843 | It is even possible to use this feature to let two or more users | 844 | @node Frame Parameters |
| 844 | type simultaneously on the two displays, within the same Emacs job. | 845 | @section Frame Parameters |
| 845 | In practice, however, the different users can easily interfere with | 846 | @cindex default-frame-alist |
| 846 | each others' edits if they are not careful. | ||
| 847 | |||
| 848 | @node Special Buffer Frames | ||
| 849 | @section Special Buffer Frames | ||
| 850 | |||
| 851 | @vindex special-display-buffer-names | ||
| 852 | You can make certain chosen buffers, which Emacs normally displays | ||
| 853 | in ``some other window'' (@pxref{Displaying Buffers}), appear in | ||
| 854 | special frames of their own. To do this, set the variable | ||
| 855 | @code{special-display-buffer-names} to a list of buffer names; any | ||
| 856 | buffer whose name is in that list automatically gets a special frame. | ||
| 857 | @xref{Window Choice}, for how this fits in with the other ways for | ||
| 858 | Emacs to choose a window to display in. | ||
| 859 | |||
| 860 | For example, if you set the variable this way, | ||
| 861 | 847 | ||
| 862 | @example | 848 | You can control the default appearance and behavior of all frames by |
| 863 | (setq special-display-buffer-names | 849 | specifying a default list of @dfn{frame parameters} in the variable |
| 864 | '("*Completions*" "*grep*" "*tex-shell*")) | 850 | @code{default-frame-alist}. Its value should be a list of entries, |
| 865 | @end example | 851 | each specifying a parameter name and a value for that parameter. |
| 852 | These entries take effect whenever Emacs creates a new frame, | ||
| 853 | including the initial frame. | ||
| 866 | 854 | ||
| 867 | @noindent | 855 | @cindex frame size, specifying default |
| 868 | then completion lists, @code{grep} output and the @TeX{} mode shell | 856 | For example, you can add the following lines to your init file |
| 869 | buffer get individual frames of their own. These frames, and the | 857 | (@pxref{Init File}) to set the default frame width to 90 character |
| 870 | windows in them, are never automatically split or reused for any other | 858 | columns, the default frame height to 40 character rows, and the |
| 871 | buffers. They continue to show the buffers they were created for, | 859 | default font to @samp{Monospace-10}: |
| 872 | unless you alter them by hand. Killing the special buffer deletes its | ||
| 873 | frame automatically. | ||
| 874 | |||
| 875 | @vindex special-display-regexps | ||
| 876 | More generally, you can set @code{special-display-regexps} to a list | ||
| 877 | of regular expressions; then a buffer gets its own frame if its name | ||
| 878 | matches any of those regular expressions. (Once again, this applies only | ||
| 879 | to buffers that normally get displayed for you in ``another window.'') | ||
| 880 | |||
| 881 | @vindex special-display-frame-alist | ||
| 882 | The variable @code{special-display-frame-alist} specifies the frame | ||
| 883 | parameters for these frames. It has a default value, so you don't need | ||
| 884 | to set it. | ||
| 885 | |||
| 886 | For those who know Lisp, an element of | ||
| 887 | @code{special-display-buffer-names} or @code{special-display-regexps} | ||
| 888 | can also be a list. Then the first element is the buffer name or | ||
| 889 | regular expression; the rest of the list specifies how to create the | ||
| 890 | frame. It can be an association list specifying frame parameter | ||
| 891 | values; these values take precedence over parameter values specified | ||
| 892 | in @code{special-display-frame-alist}. If you specify the symbol | ||
| 893 | @code{same-window} as a ``frame parameter'' in this list, with a | ||
| 894 | non-@code{nil} value, that means to use the selected window if | ||
| 895 | possible. If you use the symbol @code{same-frame} as a ``frame | ||
| 896 | parameter'' in this list, with a non-@code{nil} value, that means to | ||
| 897 | use the selected frame if possible. | ||
| 898 | |||
| 899 | Alternatively, the value can have this form: | ||
| 900 | 860 | ||
| 901 | @example | 861 | @example |
| 902 | (@var{function} @var{args}...) | 862 | (add-to-list 'default-frame-alist '(width . 90)) |
| 863 | (add-to-list 'default-frame-alist '(height . 40)) | ||
| 864 | (add-to-list 'default-frame-alist '(font . "Monospace-10")) | ||
| 903 | @end example | 865 | @end example |
| 904 | 866 | ||
| 905 | @noindent | 867 | For a list of frame parameters and their effects, see @ref{Frame |
| 906 | where @var{function} is a symbol. Then the frame is constructed by | 868 | Parameters,,, elisp, The Emacs Lisp Reference Manual}. |
| 907 | calling @var{function}; its first argument is the buffer, and its | ||
| 908 | remaining arguments are @var{args}. | ||
| 909 | |||
| 910 | @node Frame Parameters | ||
| 911 | @section Setting Frame Parameters | ||
| 912 | @cindex Auto-Raise mode | ||
| 913 | @cindex Auto-Lower mode | ||
| 914 | |||
| 915 | These commands are available for controlling the window management | ||
| 916 | behavior of the selected frame: | ||
| 917 | 869 | ||
| 918 | @table @kbd | 870 | @cindex initial-frame-alist |
| 919 | @findex auto-raise-mode | 871 | You can also specify a list of frame parameters which apply to just |
| 920 | @item M-x auto-raise-mode | 872 | the initial frame, by customizing the variable |
| 921 | Toggle whether or not the selected frame should auto-raise. Auto-raise | 873 | @code{initial-frame-alist}. |
| 922 | means that every time you move the mouse onto the frame, it raises the | ||
| 923 | frame. | ||
| 924 | |||
| 925 | Some window managers also implement auto-raise. If you enable | ||
| 926 | auto-raise for Emacs frames in your window manager, it will work, but | ||
| 927 | it is beyond Emacs' control, so @code{auto-raise-mode} has no effect | ||
| 928 | on it. | ||
| 929 | |||
| 930 | @findex auto-lower-mode | ||
| 931 | @item M-x auto-lower-mode | ||
| 932 | Toggle whether or not the selected frame should auto-lower. | ||
| 933 | Auto-lower means that every time you move the mouse off the frame, | ||
| 934 | the frame moves to the bottom of the stack on the screen. | ||
| 935 | |||
| 936 | The command @code{auto-lower-mode} has no effect on auto-lower | ||
| 937 | implemented by the window manager. To control that, you must use the | ||
| 938 | appropriate window manager features. | ||
| 939 | @end table | ||
| 940 | 874 | ||
| 941 | In Emacs versions that use an X toolkit, the color-setting and | 875 | If Emacs is compiled to use an X toolkit, frame parameters that |
| 942 | font-setting functions don't affect menus and the menu bar, since they | 876 | specify colors and fonts don't affect menus and the menu bar, since |
| 943 | are displayed by their own widget classes. To change the appearance of | 877 | those are drawn by the toolkit and not directly by Emacs. |
| 944 | the menus and menu bar, you must use X resources (@pxref{Resources}). | ||
| 945 | @xref{Colors}, regarding colors. @xref{Font X}, regarding choice of | ||
| 946 | font. | ||
| 947 | |||
| 948 | Colors, fonts, and other attributes of the frame's display can also | ||
| 949 | be customized by setting frame parameters in the variable | ||
| 950 | @code{default-frame-alist} (@pxref{Creating Frames}). For a detailed | ||
| 951 | description of frame parameters and customization, see @ref{Frame | ||
| 952 | Parameters,,, elisp, The Emacs Lisp Reference Manual}. | ||
| 953 | 878 | ||
| 954 | @node Scroll Bars | 879 | @node Scroll Bars |
| 955 | @section Scroll Bars | 880 | @section Scroll Bars |
| @@ -994,41 +919,17 @@ or disable the scroll bars (@pxref{Resources}). To control the scroll | |||
| 994 | bar width, change the @code{scroll-bar-width} frame parameter | 919 | bar width, change the @code{scroll-bar-width} frame parameter |
| 995 | (@pxref{Frame Parameters,,, elisp, The Emacs Lisp Reference Manual}). | 920 | (@pxref{Frame Parameters,,, elisp, The Emacs Lisp Reference Manual}). |
| 996 | 921 | ||
| 997 | @node Wheeled Mice | ||
| 998 | @section Scrolling With ``Wheeled'' Mice | ||
| 999 | |||
| 1000 | @cindex mouse wheel | ||
| 1001 | @cindex wheel, mouse | ||
| 1002 | @findex mouse-wheel-mode | ||
| 1003 | @cindex Mouse Wheel minor mode | ||
| 1004 | @cindex mode, Mouse Wheel | ||
| 1005 | Some mice have a ``wheel'' instead of a third button. You can | ||
| 1006 | usually click the wheel to act as either @kbd{Mouse-2} or | ||
| 1007 | @kbd{Mouse-3}, depending on the setup. You can also use the wheel to | ||
| 1008 | scroll windows instead of using the scroll bar or keyboard commands. | ||
| 1009 | Mouse wheel support only works if the system generates appropriate | ||
| 1010 | events; whenever possible, it is turned on by default. To toggle this | ||
| 1011 | feature, use @kbd{M-x mouse-wheel-mode}. | ||
| 1012 | |||
| 1013 | @vindex mouse-wheel-follow-mouse | ||
| 1014 | @vindex mouse-wheel-scroll-amount | ||
| 1015 | @vindex mouse-wheel-progressive-speed | ||
| 1016 | The two variables @code{mouse-wheel-follow-mouse} and | ||
| 1017 | @code{mouse-wheel-scroll-amount} determine where and by how much | ||
| 1018 | buffers are scrolled. The variable | ||
| 1019 | @code{mouse-wheel-progressive-speed} determines whether the scroll | ||
| 1020 | speed is linked to how fast you move the wheel. | ||
| 1021 | |||
| 1022 | @node Drag and Drop | 922 | @node Drag and Drop |
| 1023 | @section Drag and Drop | 923 | @section Drag and Drop |
| 1024 | @cindex drag and drop | 924 | @cindex drag and drop |
| 1025 | 925 | ||
| 1026 | Emacs supports @dfn{drag and drop} using the mouse. For instance, | 926 | In most graphical desktop environments, Emacs has basic support for |
| 1027 | dropping text onto an Emacs frame inserts the text where it is dropped. | 927 | @dfn{drag and drop} operations. For instance, dropping text onto an |
| 1028 | Dropping a file onto an Emacs frame visits that file. As a special | 928 | Emacs frame inserts the text where it is dropped. Dropping a file |
| 1029 | case, dropping the file on a Dired buffer moves or copies the file | 929 | onto an Emacs frame visits that file. As a special case, dropping the |
| 1030 | (according to the conventions of the application it came from) into the | 930 | file on a Dired buffer moves or copies the file (according to the |
| 1031 | directory displayed in that buffer. | 931 | conventions of the application it came from) into the directory |
| 932 | displayed in that buffer. | ||
| 1032 | 933 | ||
| 1033 | @vindex dnd-open-file-other-window | 934 | @vindex dnd-open-file-other-window |
| 1034 | Dropping a file normally visits it in the window you drop it on. If | 935 | Dropping a file normally visits it in the window you drop it on. If |
| @@ -1045,13 +946,12 @@ protocol, are currently supported. | |||
| 1045 | @findex menu-bar-mode | 946 | @findex menu-bar-mode |
| 1046 | @vindex menu-bar-mode | 947 | @vindex menu-bar-mode |
| 1047 | 948 | ||
| 1048 | You can turn display of menu bars on or off with @kbd{M-x | 949 | You can toggle the use of menu bars with @kbd{M-x menu-bar-mode}. |
| 1049 | menu-bar-mode} or by customizing the variable @code{menu-bar-mode}. | 950 | With no argument, this command toggles Menu Bar mode, a global minor |
| 1050 | With no argument, this command toggles Menu Bar mode, a | 951 | mode. With an argument, the command turns Menu Bar mode on if the |
| 1051 | minor mode. With an argument, the command turns Menu Bar mode on if the | 952 | argument is positive, off if the argument is not positive. To control |
| 1052 | argument is positive, off if the argument is not positive. You can use | 953 | the use of menu bars at startup, customize the variable |
| 1053 | the X resource @samp{menuBar} to control the initial setting of | 954 | @code{menu-bar-mode}. |
| 1054 | Menu Bar mode. @xref{Resources}. | ||
| 1055 | 955 | ||
| 1056 | @kindex C-Mouse-3 @r{(when menu bar is disabled)} | 956 | @kindex C-Mouse-3 @r{(when menu bar is disabled)} |
| 1057 | Expert users often turn off the menu bar, especially on text-only | 957 | Expert users often turn off the menu bar, especially on text-only |
| @@ -1135,47 +1035,39 @@ toggle to be activated by default, change the variable | |||
| 1135 | help text to the GTK+ file chooser dialog; to disable this help text, | 1035 | help text to the GTK+ file chooser dialog; to disable this help text, |
| 1136 | change the variable @code{x-gtk-file-dialog-help-text} to @code{nil}. | 1036 | change the variable @code{x-gtk-file-dialog-help-text} to @code{nil}. |
| 1137 | 1037 | ||
| 1138 | @vindex x-gtk-use-old-file-dialog | ||
| 1139 | In GTK+ versions 2.4 through 2.10, you can choose to use an older | ||
| 1140 | version of the GTK+ file dialog by setting the variable | ||
| 1141 | @code{x-gtk-use-old-file-dialog} to a non-@code{nil} value. If Emacs | ||
| 1142 | is built with a GTK+ version that has only one file dialog, this | ||
| 1143 | variable has no effect. | ||
| 1144 | |||
| 1145 | @node Tooltips | 1038 | @node Tooltips |
| 1146 | @section Tooltips | 1039 | @section Tooltips |
| 1147 | @cindex tooltips | 1040 | @cindex tooltips |
| 1148 | 1041 | ||
| 1149 | @dfn{Tooltips} are small windows that display text information at the | 1042 | @dfn{Tooltips} are small windows that display text information at |
| 1150 | current mouse position. They activate when there is a pause in mouse | 1043 | the current mouse position. They activate when there is a pause in |
| 1151 | movement. There are two types of tooltip: help tooltips and GUD | 1044 | mouse movement over some significant piece of text in a window, or the |
| 1152 | tooltips. | 1045 | mode line, or some other part of the Emacs frame such as a tool bar |
| 1153 | 1046 | button or menu item. | |
| 1154 | @dfn{Help tooltips} typically display over text---including the mode | ||
| 1155 | line---but are also available for other parts of the Emacs frame, such | ||
| 1156 | as the tool bar and menu items. | ||
| 1157 | 1047 | ||
| 1158 | @findex tooltip-mode | 1048 | @findex tooltip-mode |
| 1159 | You can toggle display of help tooltips (Tooltip mode) with the | 1049 | You can toggle the use of tooltips with the command @kbd{M-x |
| 1160 | command @kbd{M-x tooltip-mode}. When Tooltip mode is disabled, the | 1050 | tooltip-mode}. When Tooltip mode is disabled, the help text is |
| 1161 | help text is displayed in the echo area instead. | 1051 | displayed in the echo area instead. To control the use of tooltips at |
| 1162 | 1052 | startup, customize the variable @code{tooltip-mode}. | |
| 1163 | @dfn{GUD tooltips} show values of variables. They are useful when | ||
| 1164 | you are debugging a program. @xref{Debugger Operation}. | ||
| 1165 | 1053 | ||
| 1166 | @vindex tooltip-delay | 1054 | @vindex tooltip-delay |
| 1167 | The variables @code{tooltip-delay} specifies how long Emacs should | 1055 | The variables @code{tooltip-delay} specifies how long Emacs should |
| 1168 | wait before displaying a tooltip. For additional customization | 1056 | wait before displaying a tooltip. For additional customization |
| 1169 | options for displaying tooltips, use @kbd{M-x customize-group | 1057 | options for displaying tooltips, use @kbd{M-x customize-group |
| 1170 | @key{RET} tooltip @key{RET}}. @xref{X Resources}, for information on | 1058 | @key{RET} tooltip @key{RET}}. |
| 1171 | customizing the windows that display tooltips. | ||
| 1172 | 1059 | ||
| 1173 | @vindex x-gtk-use-system-tooltips | 1060 | @vindex x-gtk-use-system-tooltips |
| 1174 | If Emacs is built with GTK+ support, it displays tooltips via GTK+, | 1061 | If Emacs is built with GTK+ support, it displays tooltips via GTK+, |
| 1175 | using the default appearance of GTK+ tooltips. To disable this, | 1062 | using the default appearance of GTK+ tooltips. To disable this, |
| 1176 | change the variable @code{x-gtk-use-system-tooltips} to @code{nil}. | 1063 | change the variable @code{x-gtk-use-system-tooltips} to @code{nil}. |
| 1177 | If you do this, or if Emacs is built without GTK+ support, the | 1064 | If you do this, or if Emacs is built without GTK+ support, most |
| 1178 | @code{tooltip} face specifies most attributes of the tooltip text. | 1065 | attributes of the tooltip text are specified by the @code{tooltip} |
| 1066 | face, and by X resources (@pxref{X Resources}). | ||
| 1067 | |||
| 1068 | @dfn{GUD tooltips} are special tooltips that show the values of | ||
| 1069 | variables when debugging a program with GUD. @xref{Debugger | ||
| 1070 | Operation}. | ||
| 1179 | 1071 | ||
| 1180 | @node Mouse Avoidance | 1072 | @node Mouse Avoidance |
| 1181 | @section Mouse Avoidance | 1073 | @section Mouse Avoidance |
| @@ -1248,23 +1140,31 @@ to select a frame according to its name. The name you specify appears | |||
| 1248 | in the mode line when the frame is selected. | 1140 | in the mode line when the frame is selected. |
| 1249 | 1141 | ||
| 1250 | @node Text-Only Mouse | 1142 | @node Text-Only Mouse |
| 1251 | @section Using a Mouse in Terminal Emulators | 1143 | @section Using a Mouse in Text-only Terminals |
| 1252 | @cindex mouse support | 1144 | @cindex mouse support |
| 1253 | @cindex terminal emulators, mouse support | 1145 | @cindex terminal emulators, mouse support |
| 1254 | 1146 | ||
| 1255 | Some text-only terminals support mouse clicks in the terminal window. | 1147 | Some text-only terminals support mouse clicks in the terminal window. |
| 1256 | 1148 | ||
| 1257 | @cindex xterm | 1149 | @cindex xterm |
| 1258 | In a terminal emulator which is compatible with @code{xterm}, | 1150 | In a terminal emulator which is compatible with @command{xterm}, you |
| 1259 | you can use @kbd{M-x xterm-mouse-mode} to give Emacs control over | 1151 | can use @kbd{M-x xterm-mouse-mode} to give Emacs control over simple |
| 1260 | simple use of the mouse---basically, only non-modified single clicks | 1152 | uses of the mouse---basically, only non-modified single clicks are |
| 1261 | are supported. The normal @code{xterm} mouse functionality for such | 1153 | supported. The normal @command{xterm} mouse functionality for such |
| 1262 | clicks is still available by holding down the @kbd{SHIFT} key when you | 1154 | clicks is still available by holding down the @kbd{SHIFT} key when you |
| 1263 | press the mouse button. Xterm Mouse mode is a global minor mode | 1155 | press the mouse button. Xterm Mouse mode is a global minor mode |
| 1264 | (@pxref{Minor Modes}). Repeating the command turns the mode off | 1156 | (@pxref{Minor Modes}). Repeating the command turns the mode off |
| 1265 | again. | 1157 | again. |
| 1266 | 1158 | ||
| 1267 | @findex gpm-mouse-mode | 1159 | @findex gpm-mouse-mode |
| 1268 | In the console on GNU/Linux, you can use @kbd{M-x gpm-mouse-mode} to | 1160 | In the console on GNU/Linux, you can use @kbd{M-x gpm-mouse-mode} to |
| 1269 | enable terminal mouse support. You must have the gpm package | 1161 | enable mouse support. You must have the gpm server installed and |
| 1270 | installed and running on your system in order for this to work. | 1162 | running on your system in order for this to work. |
| 1163 | |||
| 1164 | @iftex | ||
| 1165 | @pxref{MS-DOS Mouse,,,emacs-xtra,Specialized Emacs Features}, | ||
| 1166 | @end iftex | ||
| 1167 | @ifnottex | ||
| 1168 | @pxref{MS-DOS Mouse}, | ||
| 1169 | @end ifnottex | ||
| 1170 | for information about mouse support on MS-DOS. | ||
diff --git a/doc/emacs/glossary.texi b/doc/emacs/glossary.texi index e37e80bfab8..3af75245e69 100644 --- a/doc/emacs/glossary.texi +++ b/doc/emacs/glossary.texi | |||
| @@ -509,11 +509,6 @@ character sets and which font to use to display each of them. Fontsets | |||
| 509 | make it easy to change several fonts at once by specifying the name of a | 509 | make it easy to change several fonts at once by specifying the name of a |
| 510 | fontset, rather than changing each font separately. @xref{Fontsets}. | 510 | fontset, rather than changing each font separately. @xref{Fontsets}. |
| 511 | 511 | ||
| 512 | @item Formatted Text | ||
| 513 | Formatted text is text that displays with formatting information while | ||
| 514 | you edit. Formatting information includes fonts, colors, and specified | ||
| 515 | margins. @xref{Formatted Text}. | ||
| 516 | |||
| 517 | @item Formfeed Character | 512 | @item Formfeed Character |
| 518 | See `page.' | 513 | See `page.' |
| 519 | 514 | ||
| @@ -702,9 +697,8 @@ that someone else is already editing. | |||
| 702 | See `incremental search.' | 697 | See `incremental search.' |
| 703 | 698 | ||
| 704 | @item Justification | 699 | @item Justification |
| 705 | Justification means adding extra spaces within lines of text | 700 | Justification means adding extra spaces within lines of text in order |
| 706 | in order to adjust the position of the text edges. | 701 | to adjust the position of the text edges. @xref{Fill Commands}. |
| 707 | @xref{Format Justification}. | ||
| 708 | 702 | ||
| 709 | @item Key Binding | 703 | @item Key Binding |
| 710 | See `binding.' | 704 | See `binding.' |
| @@ -1362,12 +1356,6 @@ See `abbrev.' | |||
| 1362 | Word search is searching for a sequence of words, considering the | 1356 | Word search is searching for a sequence of words, considering the |
| 1363 | punctuation between them as insignificant. @xref{Word Search}. | 1357 | punctuation between them as insignificant. @xref{Word Search}. |
| 1364 | 1358 | ||
| 1365 | @item WYSIWYG | ||
| 1366 | WYSIWYG stands for ``What you see is what you get.'' Emacs generally | ||
| 1367 | provides WYSIWYG editing for files of characters; in Enriched mode | ||
| 1368 | (@pxref{Formatted Text}), it provides WYSIWYG editing for files that | ||
| 1369 | include text formatting information. | ||
| 1370 | |||
| 1371 | @item Yanking | 1359 | @item Yanking |
| 1372 | Yanking means reinserting text previously killed (q.v.@:). It can be | 1360 | Yanking means reinserting text previously killed (q.v.@:). It can be |
| 1373 | used to undo a mistaken kill, or for copying or moving text. Some | 1361 | used to undo a mistaken kill, or for copying or moving text. Some |
diff --git a/doc/emacs/indent.texi b/doc/emacs/indent.texi index e13b2808f09..f99e3519710 100644 --- a/doc/emacs/indent.texi +++ b/doc/emacs/indent.texi | |||
| @@ -8,214 +8,154 @@ | |||
| 8 | @cindex tabs | 8 | @cindex tabs |
| 9 | @cindex columns (indentation) | 9 | @cindex columns (indentation) |
| 10 | 10 | ||
| 11 | This chapter describes the Emacs commands that add, remove, or | 11 | @cindex whitespace character |
| 12 | adjust indentation. | 12 | @dfn{Indentation} refers to inserting or adjusting @dfn{whitespace |
| 13 | 13 | characters} (space and/or tab characters) at the beginning of a line | |
| 14 | @table @kbd | 14 | of text. This chapter documents indentation commands and options |
| 15 | @item @key{TAB} | 15 | which are common to Text mode and related modes, as well as |
| 16 | Indent the current line appropriately, in a mode-dependent fashion. | 16 | programming language modes. @xref{Program Indent}, for additional |
| 17 | @item @kbd{C-j} | 17 | documentation about indenting in programming modes. |
| 18 | Perform @key{RET} followed by @key{TAB} (@code{newline-and-indent}). | 18 | |
| 19 | @item M-^ | 19 | @findex indent-for-tab-command |
| 20 | Merge the previous and the current line (@code{delete-indentation}). | 20 | @kindex TAB @r{(indentation)} |
| 21 | This would cancel the effect of a preceding @kbd{C-j}. | 21 | The simplest way to perform indentation is the @key{TAB} key. In |
| 22 | @item C-M-o | 22 | most major modes, this runs the command @code{indent-for-tab-command}. |
| 23 | Split the current line at point; text on the line after point becomes a | 23 | (In C and related modes, @key{TAB} runs the command |
| 24 | new line indented to the same column where point is located | 24 | @code{c-indent-line-or-region}, which behaves similarly). |
| 25 | (@code{split-line}). | 25 | |
| 26 | @item M-m | 26 | @table @key |
| 27 | Move (forward or back) to the first nonblank character on the current | 27 | @item TAB |
| 28 | line (@code{back-to-indentation}). | 28 | Insert whitespace, or indent the current line, in a mode-appropriate |
| 29 | @item C-M-\ | 29 | way (@code{indent-for-tab-command}). If the region is active, indent |
| 30 | Indent lines in the region to the same column (@code{indent-region}). | 30 | all the lines within it. |
| 31 | @item C-x @key{TAB} | ||
| 32 | Shift lines in the region rigidly right or left (@code{indent-rigidly}). | ||
| 33 | @item M-i | ||
| 34 | Indent from point to the next prespecified tab stop column | ||
| 35 | (@code{tab-to-tab-stop}). | ||
| 36 | @item M-x indent-relative | ||
| 37 | Indent from point to under an indentation point in the previous line. | ||
| 38 | @end table | 31 | @end table |
| 39 | 32 | ||
| 40 | @noindent | 33 | The exact behavior of @key{TAB} depends on the major mode. In Text |
| 41 | The @key{TAB} key runs @code{indent-for-tab-command} in most major | 34 | mode and related major modes, @key{TAB} normally inserts some |
| 42 | modes (in C and related modes, @key{TAB} runs a separate command, | 35 | combination of space and tab characters to advance point to the next |
| 43 | @code{c-indent-line-or-region}, which behaves similarly). The major | 36 | tab stop (@pxref{Tab Stops}). For this purpose, the position of the |
| 44 | mode determines just what this entails. | 37 | first non-whitespace character on the preceding line is treated as an |
| 45 | 38 | additional tab stop, so you can use @key{TAB} to ``align'' point with | |
| 46 | In text modes, @key{TAB} inserts some combination of space and tab | 39 | the preceding line. If the region is active (@pxref{Using Region}), |
| 47 | characters to advance point to the next tab stop (@pxref{Tab Stops}). | 40 | @key{TAB} acts specially: it indents each line in the region so that |
| 48 | If the region is active and spans multiple lines, it advances the | 41 | its first non-whitespace character is aligned with the preceding line. |
| 49 | first character of each of those lines to the next tab stop | 42 | |
| 50 | (@pxref{Using Region}). For the purposes of this command, the | 43 | In programming modes, @key{TAB} indents the current line of code in |
| 51 | position of the first non-whitespace character on the preceding line | 44 | a way that makes sense given the code in the preceding lines. If the |
| 52 | is treated as an additional tab stop. Thus, you can use @key{TAB} to | 45 | region is active, all the lines in the region are indented this way. |
| 53 | ``align'' point with the preceding line. | 46 | If point was initially within the current line's indentation, it is |
| 54 | 47 | repositioned to the first non-whitespace character on the line. | |
| 55 | In programming modes, @key{TAB} adds or removes some combination of | ||
| 56 | space and tab characters at the start of the line, in a way that makes | ||
| 57 | sense given the text in the preceding lines. If the region is active | ||
| 58 | and spans multiple lines, all those lines are indented this way. If | ||
| 59 | point was initially within the current line's indentation, it is | ||
| 60 | positioned after that indentation; otherwise, it remains at same point | ||
| 61 | in the newly-indented text. @xref{Program Indent}. | ||
| 62 | 48 | ||
| 63 | @vindex tab-width | 49 | If you just want to insert a tab character in the buffer, type |
| 64 | Normally, indentation commands insert (or remove) an optimal mix of | 50 | @kbd{C-q @key{TAB}} (@pxref{Inserting Text}). |
| 65 | @dfn{tab characters} and spaces to align to the desired column. Tab | ||
| 66 | characters (@acronym{ASCII} code 9) are displayed as a stretch of | ||
| 67 | empty space extending to the next @dfn{display tab stop}. By default, | ||
| 68 | there is one display tab stop every eight columns; the number of | ||
| 69 | columns is determined by the variable @code{tab-width}. You can | ||
| 70 | insert a single tab character by typing @kbd{C-q @key{TAB}}. | ||
| 71 | @xref{Text Display}. | ||
| 72 | 51 | ||
| 73 | @findex edit-tab-stops | 52 | @menu |
| 74 | @findex tab-to-tab-stop | 53 | * Indentation Commands:: More commands for performing indentation. |
| 75 | @kindex M-i | 54 | * Tab Stops:: Stop points for indentation in Text modes. |
| 76 | The command @kbd{M-i} (@code{tab-to-tab-stop}) adjusts the | 55 | * Just Spaces:: Using only space characters for indentation. |
| 77 | whitespace characters around point, inserting just enough whitespace | 56 | * Indent Convenience:: Optional indentation features. |
| 78 | to advance point up to the next tab stop. By default, this involves | 57 | @end menu |
| 79 | deleting the existing whitespace and inserting a single tab character. | ||
| 80 | 58 | ||
| 81 | @xref{Just Spaces}, for how to disable use of tabs. However, | 59 | @node Indentation Commands |
| 82 | @kbd{C-q @key{TAB}} always inserts a tab, even when tabs are disabled | 60 | @section Indentation Commands |
| 83 | for the indentation commands. | ||
| 84 | 61 | ||
| 85 | @vindex tab-always-indent | 62 | Apart from the @key{TAB} (@code{indent-for-tab-command}) command, |
| 86 | The variable @code{tab-always-indent} tweaks the behavior of the | 63 | Emacs provides a variety of commands to perform indentation in other |
| 87 | @key{TAB} (@code{indent-for-tab-command}) command. The default value, | 64 | ways. |
| 88 | @code{t}, gives the behavior described above. If you change the value | ||
| 89 | to the symbol @code{complete}, then @key{TAB} first tries to indent | ||
| 90 | the current line, and if the line was already indented, it tries to | ||
| 91 | complete the text at point (@pxref{Symbol Completion}). If the value | ||
| 92 | is @code{nil}, then @key{TAB} indents the current line only if point | ||
| 93 | is at the left margin or in the line's indentation; otherwise, it | ||
| 94 | inserts a real tab character. | ||
| 95 | 65 | ||
| 96 | @menu | 66 | @table @kbd |
| 97 | * Indentation Commands:: Various commands and techniques for indentation. | 67 | @item C-j |
| 98 | * Tab Stops:: You can set arbitrary "tab stops" and then | 68 | @kindex C-j |
| 99 | indent to the next tab stop when you want to. | 69 | @findex newline-and-indent |
| 100 | * Just Spaces:: You can request indentation using just spaces. | 70 | Perform @key{RET} followed by @key{TAB} (@code{newline-and-indent}). |
| 101 | @end menu | ||
| 102 | 71 | ||
| 103 | @node Indentation Commands, Tab Stops, Indentation, Indentation | 72 | @item C-M-o |
| 104 | @section Indentation Commands and Techniques | 73 | @kindex C-M-o |
| 74 | @findex split-line | ||
| 75 | Split the current line at point (@code{split-line}). The text on the | ||
| 76 | line after point becomes a new line, indented to the same column where | ||
| 77 | point is located. This command first moves point forward over any | ||
| 78 | spaces and tabs. Afterward, point is positioned before the inserted | ||
| 79 | newline. | ||
| 105 | 80 | ||
| 106 | @kindex M-m | 81 | @kindex M-m |
| 107 | @findex back-to-indentation | 82 | @findex back-to-indentation |
| 108 | To move over the indentation on a line, do @kbd{M-m} | 83 | @item M-m |
| 109 | (@code{back-to-indentation}). This command, given anywhere on a line, | 84 | Move (forward or back) to the first non-whitespace character on the |
| 110 | positions point at the first nonblank character on the line, if any, | 85 | current line (@code{back-to-indentation}). If there are no |
| 111 | or else at the end of the line. | 86 | non-whitespace characters on the line, move to the end of the line. |
| 112 | |||
| 113 | To insert an indented line before the current line, do @kbd{C-a C-o | ||
| 114 | @key{TAB}}. To make an indented line after the current line, use | ||
| 115 | @kbd{C-e C-j}. | ||
| 116 | 87 | ||
| 117 | If you just want to insert a tab character in the buffer, type | 88 | @item M-i |
| 118 | @kbd{C-q @key{TAB}}. | 89 | @kindex M-i |
| 90 | @findex tab-to-tab-stop | ||
| 91 | Indent whitespace at point, up to the next tab stop | ||
| 92 | (@code{tab-to-tab-stop}). @xref{Tab Stops}. | ||
| 119 | 93 | ||
| 120 | @kindex C-M-o | 94 | @findex indent-relative |
| 121 | @findex split-line | 95 | @item M-x indent-relative |
| 122 | @kbd{C-M-o} (@code{split-line}) moves the text from point to the end of | 96 | Insert whitespace at point, until point is aligned with the first |
| 123 | the line vertically down, so that the current line becomes two lines. | 97 | non-whitespace character on the previous line (actually, the last |
| 124 | @kbd{C-M-o} first moves point forward over any spaces and tabs. Then it | 98 | non-blank line). If point is already farther right than that, run |
| 125 | inserts after point a newline and enough indentation to reach the same | 99 | @code{tab-to-tab-stop} instead---unless called with a numeric |
| 126 | column point is on. Point remains before the inserted newline; in this | 100 | argument, in which case do nothing. |
| 127 | regard, @kbd{C-M-o} resembles @kbd{C-o}. | ||
| 128 | 101 | ||
| 102 | @item M-^ | ||
| 129 | @kindex M-^ | 103 | @kindex M-^ |
| 130 | @findex delete-indentation | 104 | @findex delete-indentation |
| 131 | To join two lines cleanly, use the @kbd{M-^} | 105 | Merge the previous and the current line (@code{delete-indentation}). |
| 132 | (@code{delete-indentation}) command. It deletes the indentation at | 106 | This ``joins'' the two lines cleanly, by replacing any indentation at |
| 133 | the front of the current line, and the line boundary as well, | 107 | the front of the current line, together with the line boundary, with a |
| 134 | replacing them with a single space. As a special case (useful for | 108 | single space. |
| 135 | Lisp code) the single space is omitted if the characters to be joined | 109 | |
| 136 | are consecutive open parentheses or closing parentheses, or if the | 110 | As a special case (useful for Lisp code), the single space is omitted |
| 137 | junction follows another newline. To delete just the indentation of a | 111 | if the characters to be joined are consecutive opening and closing |
| 138 | line, go to the beginning of the line and use @kbd{M-\} | 112 | parentheses, or if the junction follows another newline. |
| 139 | (@code{delete-horizontal-space}), which deletes all spaces and tabs | 113 | |
| 140 | around the cursor. | 114 | If there is a fill prefix, @kbd{M-^} deletes the fill prefix if it |
| 141 | |||
| 142 | If you have a fill prefix, @kbd{M-^} deletes the fill prefix if it | ||
| 143 | appears after the newline that is deleted. @xref{Fill Prefix}. | 115 | appears after the newline that is deleted. @xref{Fill Prefix}. |
| 144 | 116 | ||
| 117 | @item C-M-\ | ||
| 145 | @kindex C-M-\ | 118 | @kindex C-M-\ |
| 146 | @kindex C-x TAB | ||
| 147 | @findex indent-region | 119 | @findex indent-region |
| 148 | @findex indent-rigidly | 120 | Indent all the lines in the region, as though you had typed @key{TAB} |
| 149 | There are also commands for changing the indentation of several lines | 121 | at the beginning of each line (@code{indent-region}). |
| 150 | at once. They apply to all the lines that begin in the region. | ||
| 151 | @kbd{C-M-\} (@code{indent-region}) indents each line in the ``usual'' | ||
| 152 | way, as if you had typed @key{TAB} at the beginning of the line. A | ||
| 153 | numeric argument specifies the column to indent to, and each line is | ||
| 154 | shifted left or right so that its first nonblank character appears in | ||
| 155 | that column. @kbd{C-x @key{TAB}} (@code{indent-rigidly}) moves all of | ||
| 156 | the lines in the region right by its argument (left, for negative | ||
| 157 | arguments). The whole group of lines moves rigidly sideways, which is | ||
| 158 | how the command gets its name. | ||
| 159 | 122 | ||
| 123 | If a numeric argument is supplied, indent every line in the region to | ||
| 124 | that column number. | ||
| 125 | |||
| 126 | @item C-x @key{TAB} | ||
| 127 | @kindex C-x TAB | ||
| 128 | @findex indent-rigidly | ||
| 160 | @cindex remove indentation | 129 | @cindex remove indentation |
| 161 | To remove all indentation from all of the lines in the region, | 130 | Shift each line in the region by a fixed distance, to the right or |
| 162 | invoke @kbd{C-x @key{TAB}} with a large negative argument, such as | 131 | left (@code{indent-rigidly}). The distance to move is determined by |
| 163 | -1000. | 132 | the numeric argument (positive to move rightward, negative to move |
| 133 | leftward). | ||
| 134 | |||
| 135 | This command can be used to remove all indentation from the lines in | ||
| 136 | the region, by invoking it with a large negative argument, | ||
| 137 | e.g. @kbd{C-u -1000 C-x @key{TAB}}. | ||
| 138 | @end table | ||
| 164 | 139 | ||
| 165 | @findex indent-relative | 140 | @node Tab Stops |
| 166 | @kbd{M-x indent-relative} indents at point based on the previous line | ||
| 167 | (actually, the last nonempty line). It inserts whitespace at point, moving | ||
| 168 | point, until it is underneath the next indentation point in the previous line. | ||
| 169 | An indentation point is the end of a sequence of whitespace or the end of | ||
| 170 | the line. If point is farther right than any indentation point in the | ||
| 171 | previous line, @code{indent-relative} runs @code{tab-to-tab-stop} | ||
| 172 | @ifnottex | ||
| 173 | (@pxref{Tab Stops}), | ||
| 174 | @end ifnottex | ||
| 175 | @iftex | ||
| 176 | (see next section), | ||
| 177 | @end iftex | ||
| 178 | unless it is called with a numeric argument, in which case it does | ||
| 179 | nothing. | ||
| 180 | |||
| 181 | @xref{Format Indentation}, for another way of specifying the | ||
| 182 | indentation for part of your text. | ||
| 183 | |||
| 184 | @node Tab Stops, Just Spaces, Indentation Commands, Indentation | ||
| 185 | @section Tab Stops | 141 | @section Tab Stops |
| 186 | |||
| 187 | @cindex tab stops | 142 | @cindex tab stops |
| 188 | @cindex using tab stops in making tables | 143 | |
| 189 | @cindex tables, indentation for | 144 | @vindex tab-stop-list |
| 190 | @kindex M-i | 145 | Emacs defines certain column numbers to be @dfn{tab stops}. These |
| 191 | @findex tab-to-tab-stop | 146 | are used as stopping points by @key{TAB} when inserting whitespace in |
| 192 | For typing in tables, you can use @kbd{M-i} (@code{tab-to-tab-stop}). | 147 | Text mode and related modes (@pxref{Indentation}), and by commands |
| 193 | This command inserts indentation before point, enough to reach the | 148 | like @kbd{M-i} (@pxref{Indentation Commands}). By default, tab stops |
| 194 | next tab stop column. | 149 | are located every 8 columns. These positions are stored in the |
| 150 | variable @code{tab-stop-list}, whose value is a list of column numbers | ||
| 151 | in increasing order. | ||
| 195 | 152 | ||
| 196 | @findex edit-tab-stops | 153 | @findex edit-tab-stops |
| 197 | @findex edit-tab-stops-note-changes | ||
| 198 | @kindex C-c C-c @r{(Edit Tab Stops)} | 154 | @kindex C-c C-c @r{(Edit Tab Stops)} |
| 199 | @vindex tab-stop-list | 155 | Instead of customizing the variable @code{tab-stop-list} directly, a |
| 200 | You can change the tab stops used by @kbd{M-i} and other indentation | 156 | convenient way to view and set tab stops is via the command @kbd{M-x |
| 201 | commands, so that they need not be spaced every eight characters, or | 157 | edit-tab-stops}. This switches to a buffer containing a description |
| 202 | even regularly spaced. The tab stops are stored in the variable | 158 | of the tab stop settings, which looks like this: |
| 203 | @code{tab-stop-list}, as a list of column numbers in increasing order. | ||
| 204 | |||
| 205 | A convenient way to set the tab stops is with @kbd{M-x | ||
| 206 | edit-tab-stops}, which creates and selects a buffer containing a | ||
| 207 | description of the tab stop settings. You can edit this buffer to | ||
| 208 | specify different tab stops, and then type @kbd{C-c C-c} to make those | ||
| 209 | new tab stops take effect. The buffer uses Overwrite mode | ||
| 210 | (@pxref{Minor Modes}). @code{edit-tab-stops} records which buffer was | ||
| 211 | current when you invoked it, and stores the tab stops back in that | ||
| 212 | buffer; normally all buffers share the same tab stops and changing | ||
| 213 | them in one buffer affects all, but if you happen to make | ||
| 214 | @code{tab-stop-list} local in one buffer then @code{edit-tab-stops} in | ||
| 215 | that buffer will edit the local settings. | ||
| 216 | |||
| 217 | Here is what the text representing the tab stops looks like for ordinary | ||
| 218 | tab stops every eight columns. | ||
| 219 | 159 | ||
| 220 | @example | 160 | @example |
| 221 | : : : : : : | 161 | : : : : : : |
| @@ -224,37 +164,77 @@ tab stops every eight columns. | |||
| 224 | To install changes, type C-c C-c | 164 | To install changes, type C-c C-c |
| 225 | @end example | 165 | @end example |
| 226 | 166 | ||
| 227 | The first line contains a colon at each tab stop. The remaining lines | 167 | @noindent |
| 228 | are present just to help you see where the colons are and know what to do. | 168 | The first line contains a colon at each tab stop. The numbers on the |
| 169 | next two lines are present just to indicate where the colons are. | ||
| 170 | |||
| 171 | You can edit this buffer to specify different tab stops by placing | ||
| 172 | colons on the desired columns. The buffer uses Overwrite mode | ||
| 173 | (@pxref{Minor Modes}). When you are done, type @kbd{C-c C-c} to make | ||
| 174 | the new tab stops take effect. Normally, the new tab stop settings | ||
| 175 | apply to all buffers. However, if you have made the | ||
| 176 | @code{tab-stop-list} variable local to the buffer where you called | ||
| 177 | @kbd{M-x edit-tab-stops} (@pxref{Locals}), then the new tab stop | ||
| 178 | settings apply only to that buffer. To save the tab stop settings for | ||
| 179 | future Emacs sessions, use the Customize interface to save the value | ||
| 180 | of @code{tab-stop-list} (@pxref{Easy Customization}). | ||
| 181 | |||
| 182 | Note that the tab stops discussed in this section have nothing to do | ||
| 183 | with how tab characters are displayed in the buffer. Tab characters | ||
| 184 | are always displayed as empty spaces extending to the next | ||
| 185 | @dfn{display tab stop}. @xref{Text Display}. | ||
| 186 | |||
| 187 | @node Just Spaces | ||
| 188 | @section Tabs vs. Spaces | ||
| 229 | 189 | ||
| 230 | Note that the tab stops that control @code{tab-to-tab-stop} have | 190 | @vindex tab-width |
| 231 | nothing to do with how tab characters are displayed in the buffer. | 191 | Normally, indentation commands insert (or remove) an optimal mix of |
| 232 | Tab characters are always displayed as empty spaces extending to the | 192 | space characters and tab characters to align to the desired column. |
| 233 | next display tab stop, which occurs every @code{tab-width} columns | 193 | Tab characters are displayed as a stretch of empty space extending to |
| 234 | regardless of the contents of @code{tab-stop-list}. @xref{Text | 194 | the next @dfn{display tab stop}. By default, there is one display tab |
| 195 | stop every @code{tab-width} columns (the default is 8). @xref{Text | ||
| 235 | Display}. | 196 | Display}. |
| 236 | 197 | ||
| 237 | @node Just Spaces,, Tab Stops, Indentation | ||
| 238 | @section Tabs vs. Spaces | ||
| 239 | |||
| 240 | @vindex indent-tabs-mode | 198 | @vindex indent-tabs-mode |
| 241 | Emacs normally uses both tabs and spaces to indent lines. If you | 199 | If you prefer, all indentation can be made from spaces only. To |
| 242 | prefer, all indentation can be made from spaces only. To request | 200 | request this, set the buffer-local variable @code{indent-tabs-mode} to |
| 243 | this, set @code{indent-tabs-mode} to @code{nil}. This is a per-buffer | 201 | @code{nil}. @xref{Locals}, for information about setting buffer-local |
| 244 | variable, so altering the variable affects only the current buffer, | 202 | variables. Note, however, that @kbd{C-q @key{TAB}} always inserts a |
| 245 | but there is a default value which you can change as well. | 203 | tab character, regardless of the value of @code{indent-tabs-mode}. |
| 246 | @xref{Locals}. | 204 | |
| 247 | 205 | One reason to set @code{indent-tabs-mode} to @code{nil} is that not | |
| 248 | A tab is not always displayed in the same way. By default, tabs are | 206 | all editors display tab characters in the same way. Emacs users, too, |
| 249 | eight columns wide, but some people like to customize their editors to | 207 | may have different customized values of @code{tab-width}. By using |
| 250 | use a different tab width (e.g., by changing the variable | 208 | spaces only, you can make sure that your file always looks the same. |
| 251 | @code{tab-width} in Emacs). By using spaces only, you can make sure | 209 | If you only care about how it looks within Emacs, another way to |
| 252 | that your file looks the same regardless of the tab width setting. | 210 | tackle this problem is to set the @code{tab-width} variable in a |
| 211 | file-local variable (@pxref{File Variables}). | ||
| 253 | 212 | ||
| 254 | @findex tabify | 213 | @findex tabify |
| 255 | @findex untabify | 214 | @findex untabify |
| 256 | There are also commands to convert tabs to spaces or vice versa, always | 215 | There are also commands to convert tabs to spaces or vice versa, always |
| 257 | preserving the columns of all nonblank text. @kbd{M-x tabify} scans the | 216 | preserving the columns of all non-whitespace text. @kbd{M-x tabify} scans the |
| 258 | region for sequences of spaces, and converts sequences of at least two | 217 | region for sequences of spaces, and converts sequences of at least two |
| 259 | spaces to tabs if that can be done without changing indentation. @kbd{M-x | 218 | spaces to tabs if that can be done without changing indentation. @kbd{M-x |
| 260 | untabify} changes all tabs in the region to appropriate numbers of spaces. | 219 | untabify} changes all tabs in the region to appropriate numbers of spaces. |
| 220 | |||
| 221 | @node Indent Convenience | ||
| 222 | @section Convenience Features for Indentation | ||
| 223 | |||
| 224 | @vindex tab-always-indent | ||
| 225 | The variable @code{tab-always-indent} tweaks the behavior of the | ||
| 226 | @key{TAB} (@code{indent-for-tab-command}) command. The default value, | ||
| 227 | @code{t}, gives the behavior described in @ref{Indentation}. If you | ||
| 228 | change the value to the symbol @code{complete}, then @key{TAB} first | ||
| 229 | tries to indent the current line, and if the line was already | ||
| 230 | indented, it tries to complete the text at point (@pxref{Symbol | ||
| 231 | Completion}). If the value is @code{nil}, then @key{TAB} indents the | ||
| 232 | current line only if point is at the left margin or in the line's | ||
| 233 | indentation; otherwise, it inserts a tab character. | ||
| 234 | |||
| 235 | @cindex Electric Indent mode | ||
| 236 | @cindex mode, Electric Indent | ||
| 237 | @findex electric-indent-mode | ||
| 238 | Electric Indent mode is a global minor mode that automatically | ||
| 239 | indents the line after every @key{RET} you type. To toggle this minor | ||
| 240 | mode, type @kbd{M-x electric-indent-mode}. | ||
diff --git a/doc/emacs/modes.texi b/doc/emacs/modes.texi index 5a786be62cf..4d574242c8d 100644 --- a/doc/emacs/modes.texi +++ b/doc/emacs/modes.texi | |||
| @@ -3,11 +3,11 @@ | |||
| 3 | @c Free Software Foundation, Inc. | 3 | @c Free Software Foundation, Inc. |
| 4 | @c See file emacs.texi for copying conditions. | 4 | @c See file emacs.texi for copying conditions. |
| 5 | @node Modes, Indentation, International, Top | 5 | @node Modes, Indentation, International, Top |
| 6 | @chapter Editing Modes | 6 | @chapter Major and Minor Modes |
| 7 | 7 | ||
| 8 | Emacs contains many @dfn{editing modes}, each of which alters its | 8 | Emacs contains many @dfn{editing modes} that alter its basic |
| 9 | basic behavior in useful ways. These are divided into @dfn{major | 9 | behavior in useful ways. These are divided into @dfn{major modes} and |
| 10 | modes} and @dfn{minor modes}. | 10 | @dfn{minor modes}. |
| 11 | 11 | ||
| 12 | Major modes provide specialized facilities for working on a | 12 | Major modes provide specialized facilities for working on a |
| 13 | particular file type, such as a C source file (@pxref{Programs}), or a | 13 | particular file type, such as a C source file (@pxref{Programs}), or a |
| @@ -38,15 +38,8 @@ one another, and of the selected major mode. | |||
| 38 | 38 | ||
| 39 | Every buffer possesses a major mode, which determines the editing | 39 | Every buffer possesses a major mode, which determines the editing |
| 40 | behavior of Emacs while that buffer is current. The mode line | 40 | behavior of Emacs while that buffer is current. The mode line |
| 41 | normally shows the name of the current major mode, in parentheses. | 41 | normally shows the name of the current major mode, in parentheses |
| 42 | @xref{Mode Line}. | 42 | (@pxref{Mode Line}). |
| 43 | |||
| 44 | Usually, the major mode is automatically set by Emacs, when you | ||
| 45 | first visit a file or create a buffer. @xref{Choosing Modes}. You | ||
| 46 | can explicitly select a new major mode by using an @kbd{M-x} command. | ||
| 47 | Take the name of the mode and add @code{-mode} to get the name of the | ||
| 48 | command to select that mode. Thus, you can enter Lisp mode with | ||
| 49 | @kbd{M-x lisp-mode}. | ||
| 50 | 43 | ||
| 51 | The least specialized major mode is called @dfn{Fundamental mode}. | 44 | The least specialized major mode is called @dfn{Fundamental mode}. |
| 52 | This mode has no mode-specific redefinitions or variable settings, so | 45 | This mode has no mode-specific redefinitions or variable settings, so |
| @@ -55,73 +48,142 @@ user option variable is in its default state. | |||
| 55 | 48 | ||
| 56 | For editing text of a specific type that Emacs knows about, such as | 49 | For editing text of a specific type that Emacs knows about, such as |
| 57 | Lisp code or English text, you typically use a more specialized major | 50 | Lisp code or English text, you typically use a more specialized major |
| 58 | mode, such as Lisp mode or Text mode. Such major modes change the | 51 | mode, such as Lisp mode or Text mode. Most major modes fall into |
| 59 | meanings of some keys to become more specifically adapted to the | 52 | three major groups. The first group contains modes for normal text, |
| 60 | language being edited. The ones that are commonly changed are | 53 | either plain or with mark-up. It includes Text mode, HTML mode, SGML |
| 61 | @key{TAB}, @key{DEL}, and @kbd{C-j}. The prefix key @kbd{C-c} | 54 | mode, @TeX{} mode and Outline mode. The second group contains modes |
| 62 | normally contains mode-specific commands. In addition, the commands | 55 | for specific programming languages. These include Lisp mode (which |
| 63 | which handle comments use the mode to determine how comments are to be | 56 | has several variants), C mode, Fortran mode, and others. The third |
| 64 | delimited. Many major modes redefine the syntactical properties of | 57 | group consists of major modes that are not associated directly with |
| 65 | characters appearing in the buffer. | 58 | files; they are used in buffers created for specific purposes by |
| 66 | 59 | Emacs, such as Dired mode for buffers made by Dired (@pxref{Dired}), | |
| 67 | The major modes fall into three major groups. The first group | 60 | Message mode for buffers made by @kbd{C-x m} (@pxref{Sending Mail}), |
| 68 | contains modes for normal text, either plain or with mark-up. It | 61 | and Shell mode for buffers used to communicate with an inferior shell |
| 69 | includes Text mode, HTML mode, SGML mode, @TeX{} mode and Outline | 62 | process (@pxref{Interactive Shell}). |
| 70 | mode. The second group contains modes for specific programming | 63 | |
| 71 | languages. These include Lisp mode (which has several variants), C | 64 | Usually, the major mode is automatically set by Emacs, when you |
| 72 | mode, Fortran mode, and others. The remaining major modes are not | 65 | first visit a file or create a buffer (@pxref{Choosing Modes}). You |
| 73 | intended for use on users' files; they are used in buffers created for | 66 | can explicitly select a new major mode by using an @kbd{M-x} command. |
| 74 | specific purposes by Emacs, such as Dired mode for buffers made by | 67 | Take the name of the mode and add @code{-mode} to get the name of the |
| 75 | Dired (@pxref{Dired}), Message mode for buffers made by @kbd{C-x m} | 68 | command to select that mode. Thus, you can enter Lisp mode with |
| 76 | (@pxref{Sending Mail}), and Shell mode for buffers used for | 69 | @kbd{M-x lisp-mode}. |
| 77 | communicating with an inferior shell process (@pxref{Interactive | 70 | |
| 78 | Shell}). | 71 | @vindex major-mode |
| 79 | 72 | The value of the buffer-local variable @code{major-mode} is a symbol | |
| 80 | Most programming-language major modes specify that only blank lines | 73 | with the same name as the major mode command (e.g. @code{lisp-mode}). |
| 81 | separate paragraphs. This is to make the paragraph commands useful. | 74 | This variable is set automatically; you should not change it yourself. |
| 82 | (@xref{Paragraphs}.) They also cause Auto Fill mode to use the | 75 | |
| 83 | definition of @key{TAB} to indent the new lines it creates. This is | 76 | The default value of @code{major-mode} determines the major mode to |
| 84 | because most lines in a program are usually indented | 77 | use for files that do not specify a major mode, and for new buffers |
| 85 | (@pxref{Indentation}). | 78 | created with @kbd{C-x b}. Normally, this default value is the symbol |
| 79 | @code{fundamental-mode}, which specifies Fundamental mode. You can | ||
| 80 | change this default value via the Customization interface (@pxref{Easy | ||
| 81 | Customization}), or by adding a line like this to your init file | ||
| 82 | (@pxref{Init File}): | ||
| 83 | |||
| 84 | @smallexample | ||
| 85 | (setq-default major-mode 'text-mode) | ||
| 86 | @end smallexample | ||
| 87 | |||
| 88 | @noindent | ||
| 89 | If the default value of @code{major-mode} is @code{nil}, the major | ||
| 90 | mode is taken from the previously current buffer. | ||
| 91 | |||
| 92 | Specialized major modes often change the meanings of certain keys to | ||
| 93 | do something more suitable for the mode. For instance, programming | ||
| 94 | language modes bind @key{TAB} to indent the current line according to | ||
| 95 | the rules of the language (@pxref{Indentation}). The keys that are | ||
| 96 | commonly changed are @key{TAB}, @key{DEL}, and @kbd{C-j}. Many modes | ||
| 97 | also define special commands of their own, usually bound in the prefix | ||
| 98 | key @kbd{C-c}. Major modes can also alter user options and variables; | ||
| 99 | for instance, programming language modes typicaly set a buffer-local | ||
| 100 | value for the variable @code{comment-start}, which determines how | ||
| 101 | source code comments are delimited (@pxref{Comments}). | ||
| 102 | |||
| 103 | @findex describe-mode | ||
| 104 | @kindex C-h m | ||
| 105 | To view the documentation for the current major mode, including a | ||
| 106 | list of its key bindings, type @code{C-h m} (@code{describe-mode}). | ||
| 107 | |||
| 108 | @cindex mode hook | ||
| 109 | @vindex text-mode-hook | ||
| 110 | @vindex prog-mode-hook | ||
| 111 | Every major mode, apart from Fundamental mode, defines a @dfn{mode | ||
| 112 | hook}, a customizable list of Lisp functions to run each time the mode | ||
| 113 | is enabled in a buffer. @xref{Hooks}, for more information about | ||
| 114 | hooks. Each mode hook is named after its major mode, e.g. Fortran | ||
| 115 | mode has @code{fortran-mode-hook}. Furthermore, all text-based major | ||
| 116 | modes run @code{text-mode-hook}, and all programming language modes | ||
| 117 | run @code{prog-mode-hook}, prior to running their own mode hooks. | ||
| 118 | Hook functions can look at the value of the variable @code{major-mode} | ||
| 119 | to see which mode is actually being entered. | ||
| 120 | |||
| 121 | Mode hooks are commonly used to enable minor modes (@pxref{Minor | ||
| 122 | Modes}). For example, you can put the following lines in your init | ||
| 123 | file to enable Flyspell minor mode in all text-based major modes | ||
| 124 | (@pxref{Spelling}), and Eldoc minor mode in Emacs Lisp mode | ||
| 125 | (@pxref{Lisp Doc}): | ||
| 126 | |||
| 127 | @example | ||
| 128 | (add-hook 'text-mode-hook 'flyspell-mode) | ||
| 129 | (add-hook 'emacs-lisp-mode-hook 'eldoc-mode) | ||
| 130 | @end example | ||
| 86 | 131 | ||
| 87 | @node Minor Modes | 132 | @node Minor Modes |
| 88 | @section Minor Modes | 133 | @section Minor Modes |
| 89 | @cindex minor modes | 134 | @cindex minor modes |
| 90 | @cindex mode, minor | 135 | @cindex mode, minor |
| 91 | 136 | ||
| 92 | A minor mode is an optional editing modes that alters the behavior | 137 | A minor mode is an optional editing mode that alters the behavior of |
| 93 | of Emacs in some well-defined way. Unlike major modes, any number of | 138 | Emacs in some well-defined way. Unlike major modes, any number of |
| 94 | minor modes can be in effect at any time. Some minor modes are | 139 | minor modes can be in effect at any time. Some minor modes are |
| 95 | @dfn{buffer-local}: they apply only to the current buffer, so you can | 140 | @dfn{buffer-local}, and can be turned on (enabled) in certain buffers |
| 96 | enable the mode in certain buffers and not others. Other minor modes | 141 | and off (disabled) in others. Other minor modes are @dfn{global}: |
| 97 | are @dfn{global}: while enabled, they affect everything you do in the | 142 | while enabled, they affect everything you do in the Emacs session, in |
| 98 | Emacs session, in all buffers. Some global minor modes are enabled by | 143 | all buffers. Most minor modes are disabled by default, but a few are |
| 99 | default. | 144 | enabled by default. |
| 100 | 145 | ||
| 101 | Most minor modes say in the mode line when they are enabled, just | 146 | Most buffer-local minor modes say in the mode line when they are |
| 102 | after the major mode indicator. For example, @samp{Fill} in the mode | 147 | enabled, just after the major mode indicator. For example, |
| 103 | line means that Auto Fill mode is enabled. @xref{Mode Line}. | 148 | @samp{Fill} in the mode line means that Auto Fill mode is enabled. |
| 104 | 149 | @xref{Mode Line}. | |
| 105 | Each minor mode is associated with a command, called the @dfn{mode | 150 | |
| 106 | command}, which turns it on or off. The name of this command consists | 151 | @cindex mode commands for minor modes |
| 107 | of the name of the minor mode, followed by @samp{-mode}; for instance, | 152 | Like major modes, each minor mode is associated with a @dfn{mode |
| 108 | the mode command for Auto Fill mode is @code{auto-fill-mode}. Calling | 153 | command}, whose name consists of the mode name followed by |
| 109 | the minor mode command with no prefix argument @dfn{toggles} the mode, | 154 | @samp{-mode}. For instance, the mode command for Auto Fill mode is |
| 110 | turning it on if it was off, and off if it was on. A positive | 155 | @code{auto-fill-mode}. But unlike a major mode command, which simply |
| 111 | argument always turns the mode on, and a zero or negative argument | 156 | enables the mode, the mode command for a minor mode can either enable |
| 112 | always turns it off. Mode commands are usually invoked with | 157 | or disable it: |
| 113 | @kbd{M-x}, but you can bind keys to them if you wish (@pxref{Key | 158 | |
| 114 | Bindings}). | 159 | @itemize |
| 160 | @item | ||
| 161 | If you invoke the mode command directly with no prefix argument | ||
| 162 | (either via @kbd{M-x}, or by binding it to a key and typing that key; | ||
| 163 | @pxref{Key Bindings}), that @dfn{toggles} the minor mode. The minor | ||
| 164 | mode is turned on if it was off, and turned off if it was on. | ||
| 165 | |||
| 166 | @item | ||
| 167 | If you invoke the mode command with a prefix argument, the minor mode | ||
| 168 | is unconditionally turned off if that argument is zero or negative; | ||
| 169 | otherwise, it is unconditionally turned on. | ||
| 170 | |||
| 171 | @item | ||
| 172 | If the mode command is called via Lisp, the minor mode is | ||
| 173 | unconditionally turned on if the argument is omitted or @code{nil}. | ||
| 174 | This makes it easy to turn on a minor mode from a major mode's mode | ||
| 175 | hook (@pxref{Major Modes}). A non-@code{nil} argument is handled like | ||
| 176 | an interactive prefix argument, as described above. | ||
| 177 | @end itemize | ||
| 115 | 178 | ||
| 116 | Most minor modes also have a @dfn{mode variable}, with the same name | 179 | Most minor modes also have a @dfn{mode variable}, with the same name |
| 117 | as the mode command. Its value is non-@code{nil} if the mode is | 180 | as the mode command. Its value is non-@code{nil} if the mode is |
| 118 | enabled, and @code{nil} if it is disabled. In some minor modes---but | 181 | enabled, and @code{nil} if it is disabled. In general, you should not |
| 119 | not all---the value of the variable alone determines whether the mode | 182 | try to enable or disable the mode by changing the value of the mode |
| 120 | is active: the mode command works simply by setting the variable, and | 183 | variable directly in Lisp; you should run the mode command instead. |
| 121 | changing the value of the variable has the same effect as calling the | 184 | However, setting the mode variable through the Customize interface |
| 122 | mode command. Because not all minor modes work this way, we recommend | 185 | (@pxref{Easy Customization}) will always properly enable or disable |
| 123 | that you avoid changing the mode variables directly; use the mode | 186 | the mode, since Customize automatically runs the mode command for you. |
| 124 | commands instead. | ||
| 125 | 187 | ||
| 126 | The following is a list of some buffer-local minor modes: | 188 | The following is a list of some buffer-local minor modes: |
| 127 | 189 | ||
| @@ -140,7 +202,7 @@ amount of work you can lose in case of a crash. @xref{Auto Save}. | |||
| 140 | 202 | ||
| 141 | @item | 203 | @item |
| 142 | Enriched mode enables editing and saving of formatted text. | 204 | Enriched mode enables editing and saving of formatted text. |
| 143 | @xref{Formatted Text}. | 205 | @xref{Enriched Text}. |
| 144 | 206 | ||
| 145 | @item | 207 | @item |
| 146 | Flyspell mode automatically highlights misspelled words. | 208 | Flyspell mode automatically highlights misspelled words. |
| @@ -189,11 +251,8 @@ Visual Line mode performs ``word wrapping'', causing long lines to be | |||
| 189 | wrapped at word boundaries. @xref{Visual Line Mode}. | 251 | wrapped at word boundaries. @xref{Visual Line Mode}. |
| 190 | @end itemize | 252 | @end itemize |
| 191 | 253 | ||
| 192 | Here are some useful global minor modes. Since Line Number mode and | 254 | @noindent |
| 193 | Transient Mark mode can be enabled or disabled just by setting the | 255 | And here are some useful global minor modes: |
| 194 | value of the minor mode variable, you @emph{can} set them differently | ||
| 195 | for particular buffers, by explicitly making the corresponding | ||
| 196 | variable local in those buffers. @xref{Locals}. | ||
| 197 | 256 | ||
| 198 | @itemize @bullet | 257 | @itemize @bullet |
| 199 | @item | 258 | @item |
| @@ -261,22 +320,27 @@ text may appear on the line as well. For example, | |||
| 261 | 320 | ||
| 262 | @noindent | 321 | @noindent |
| 263 | tells Emacs to use Lisp mode. Note how the semicolon is used to make | 322 | tells Emacs to use Lisp mode. Note how the semicolon is used to make |
| 264 | Lisp treat this line as a comment. Alternatively, you could write | 323 | Lisp treat this line as a comment. You could equivalently write |
| 265 | 324 | ||
| 266 | @example | 325 | @example |
| 267 | ; -*- mode: Lisp;-*- | 326 | ; -*- mode: Lisp;-*- |
| 268 | @end example | 327 | @end example |
| 269 | 328 | ||
| 270 | @noindent | 329 | @noindent |
| 271 | The latter format allows you to specify local variables as well, like | 330 | You can also use file-local variables to specify buffer-local minor |
| 272 | this: | 331 | modes, by using @code{eval} specifications. For example, this first |
| 332 | nonblank line puts the buffer in Lisp mode and enables Auto-Fill mode: | ||
| 273 | 333 | ||
| 274 | @example | 334 | @example |
| 275 | ; -*- mode: Lisp; tab-width: 4; -*- | 335 | ; -*- mode: Lisp; eval: (auto-fill-mode 1); -*- |
| 276 | @end example | 336 | @end example |
| 277 | 337 | ||
| 278 | If a file variable specifies a buffer-local minor mode, Emacs | 338 | @noindent |
| 279 | enables that minor mode in the buffer. | 339 | Note, however, that it is usually inappropriate to enable minor modes |
| 340 | this way, since most minor modes represent individual user | ||
| 341 | preferences. If you personally want to use a minor mode for a | ||
| 342 | particular file type, it is better to enable the minor mode via a | ||
| 343 | major mode hook (@pxref{Major Modes}). | ||
| 280 | 344 | ||
| 281 | @vindex interpreter-mode-alist | 345 | @vindex interpreter-mode-alist |
| 282 | Second, if there is no file variable specifying a major mode, Emacs | 346 | Second, if there is no file variable specifying a major mode, Emacs |
| @@ -310,9 +374,9 @@ elements of the form | |||
| 310 | 374 | ||
| 311 | @noindent | 375 | @noindent |
| 312 | where @var{regexp} is a regular expression (@pxref{Regexps}), and | 376 | where @var{regexp} is a regular expression (@pxref{Regexps}), and |
| 313 | @var{mode-function} is a Lisp function that toggles a major mode. If | 377 | @var{mode-function} is a major mode command. If the text at the |
| 314 | the text at the beginning of the file matches @var{regexp}, Emacs | 378 | beginning of the file matches @var{regexp}, Emacs chooses the major |
| 315 | chooses the major mode specified by @var{mode-function}. | 379 | mode specified by @var{mode-function}. |
| 316 | 380 | ||
| 317 | Alternatively, an element of @code{magic-mode-alist} may have the form | 381 | Alternatively, an element of @code{magic-mode-alist} may have the form |
| 318 | 382 | ||
| @@ -323,7 +387,7 @@ Alternatively, an element of @code{magic-mode-alist} may have the form | |||
| 323 | @noindent | 387 | @noindent |
| 324 | where @var{match-function} is a Lisp function that is called at the | 388 | where @var{match-function} is a Lisp function that is called at the |
| 325 | beginning of the buffer; if the function returns non-@code{nil}, Emacs | 389 | beginning of the buffer; if the function returns non-@code{nil}, Emacs |
| 326 | set the major mode wit @var{mode-function}. | 390 | set the major mode with @var{mode-function}. |
| 327 | 391 | ||
| 328 | Fourth---if Emacs still hasn't found a suitable major mode---it | 392 | Fourth---if Emacs still hasn't found a suitable major mode---it |
| 329 | looks at the file's name. The correspondence between file names and | 393 | looks at the file's name. The correspondence between file names and |
| @@ -370,29 +434,6 @@ only after @code{auto-mode-alist}. By default, | |||
| 370 | @code{magic-fallback-mode-alist} contains forms that check for image | 434 | @code{magic-fallback-mode-alist} contains forms that check for image |
| 371 | files, HTML/XML/SGML files, and PostScript files. | 435 | files, HTML/XML/SGML files, and PostScript files. |
| 372 | 436 | ||
| 373 | @vindex major-mode | ||
| 374 | Once a major mode is chosen, Emacs sets the value of the variable | ||
| 375 | @code{major-mode} to the symbol for that major mode (e.g., | ||
| 376 | @code{text-mode} for Text mode). This is a per-buffer variable | ||
| 377 | (@pxref{Locals}); its buffer-local value is set automatically, and you | ||
| 378 | should not change it yourself. | ||
| 379 | |||
| 380 | The default value of @code{major-mode} determines the major mode to | ||
| 381 | use for files that do not specify a major mode, and for new buffers | ||
| 382 | created with @kbd{C-x b}. Normally, this default value is the symbol | ||
| 383 | @code{fundamental-mode}, which specifies Fundamental mode. You can | ||
| 384 | change it via the Customization interface (@pxref{Easy | ||
| 385 | Customization}), or by adding a line like this to your init file | ||
| 386 | (@pxref{Init File}): | ||
| 387 | |||
| 388 | @smallexample | ||
| 389 | (setq-default major-mode 'text-mode) | ||
| 390 | @end smallexample | ||
| 391 | |||
| 392 | @noindent | ||
| 393 | If the default value of @code{major-mode} is @code{nil}, the major | ||
| 394 | mode is taken from the previously current buffer. | ||
| 395 | |||
| 396 | @findex normal-mode | 437 | @findex normal-mode |
| 397 | If you have changed the major mode of a buffer, you can return to | 438 | If you have changed the major mode of a buffer, you can return to |
| 398 | the major mode Emacs would have chosen automatically, by typing | 439 | the major mode Emacs would have chosen automatically, by typing |
diff --git a/doc/emacs/programs.texi b/doc/emacs/programs.texi index 2357902341e..675977c2c35 100644 --- a/doc/emacs/programs.texi +++ b/doc/emacs/programs.texi | |||
| @@ -397,7 +397,7 @@ the syntax and conventions for its particular language. | |||
| 397 | 397 | ||
| 398 | Use @kbd{C-q @key{TAB}} to insert a tab character at point. | 398 | Use @kbd{C-q @key{TAB}} to insert a tab character at point. |
| 399 | 399 | ||
| 400 | @kindex C-j | 400 | @kindex C-j @r{(indenting source code)} |
| 401 | @findex newline-and-indent | 401 | @findex newline-and-indent |
| 402 | When entering lines of new code, use @kbd{C-j} | 402 | When entering lines of new code, use @kbd{C-j} |
| 403 | (@code{newline-and-indent}), which inserts a newline and then adjusts | 403 | (@code{newline-and-indent}), which inserts a newline and then adjusts |
diff --git a/doc/emacs/rmail.texi b/doc/emacs/rmail.texi index 71c23655608..0df4a3a7bb5 100644 --- a/doc/emacs/rmail.texi +++ b/doc/emacs/rmail.texi | |||
| @@ -571,6 +571,22 @@ the file name to use, or more generally it may be any Lisp expression | |||
| 571 | that returns a file name as a string. @code{rmail-output-file-alist} | 571 | that returns a file name as a string. @code{rmail-output-file-alist} |
| 572 | applies to both @kbd{o} and @kbd{C-o}. | 572 | applies to both @kbd{o} and @kbd{C-o}. |
| 573 | 573 | ||
| 574 | @vindex rmail-automatic-folder-directives | ||
| 575 | Rmail can automatically save messages from your primary Rmail file | ||
| 576 | (the one that @code{rmail-file-name} specifies) to other files, based | ||
| 577 | on the value of the variable @code{rmail-automatic-folder-directives}. | ||
| 578 | This variable is a list of elements (@samp{directives}) that say which | ||
| 579 | messages to save where. Each directive is a list consisting of an | ||
| 580 | output file, followed by one or more pairs of a header name and a regular | ||
| 581 | expression. If a message has a header matching the specified regular | ||
| 582 | expression, that message is saved to the given file. If the directive | ||
| 583 | has more than one header entry, all must match. Rmail checks directives | ||
| 584 | when it shows a message from the file @code{rmail-file-name}, and | ||
| 585 | applies the first that matches (if any). If the output file is | ||
| 586 | @code{nil}, the message is deleted, not saved. For example, you can use | ||
| 587 | this feature to save messages from a particular address, or with a | ||
| 588 | particular subject, to a dedicated file. | ||
| 589 | |||
| 574 | @node Rmail Labels | 590 | @node Rmail Labels |
| 575 | @section Labels | 591 | @section Labels |
| 576 | @cindex label (Rmail) | 592 | @cindex label (Rmail) |
diff --git a/doc/emacs/text.texi b/doc/emacs/text.texi index 562ce92d427..8f353961afb 100644 --- a/doc/emacs/text.texi +++ b/doc/emacs/text.texi | |||
| @@ -32,10 +32,9 @@ structure. | |||
| 32 | @findex nxml-mode | 32 | @findex nxml-mode |
| 33 | Emacs has other major modes for text which contains ``embedded'' | 33 | Emacs has other major modes for text which contains ``embedded'' |
| 34 | commands, such as @TeX{} and La@TeX{} (@pxref{TeX Mode}); HTML and | 34 | commands, such as @TeX{} and La@TeX{} (@pxref{TeX Mode}); HTML and |
| 35 | SGML (@pxref{HTML Mode}); XML (@pxref{Top, nXML Mode,,nxml-mode, nXML | 35 | SGML (@pxref{HTML Mode}); XML (@pxref{Top,The nXML Mode |
| 36 | Mode}); and Groff and Nroff (@pxref{Nroff Mode}). In addition, you | 36 | Manual,,nxml-mode, nXML Mode}); and Groff and Nroff (@pxref{Nroff |
| 37 | can edit formatted text in WYSIWYG style (``what you see is what you | 37 | Mode}). |
| 38 | get''), using Enriched mode (@pxref{Formatted Text}). | ||
| 39 | 38 | ||
| 40 | @cindex ASCII art | 39 | @cindex ASCII art |
| 41 | If you need to edit pictures made out of text characters (commonly | 40 | If you need to edit pictures made out of text characters (commonly |
| @@ -48,13 +47,14 @@ for editing such pictures. | |||
| 48 | @xref{Picture Mode}. | 47 | @xref{Picture Mode}. |
| 49 | @end ifnottex | 48 | @end ifnottex |
| 50 | 49 | ||
| 51 | 50 | @ifinfo | |
| 52 | @cindex skeletons | 51 | @cindex skeletons |
| 53 | @cindex templates | 52 | @cindex templates |
| 54 | @cindex autotyping | 53 | @cindex autotyping |
| 55 | @cindex automatic typing | 54 | @cindex automatic typing |
| 56 | The ``automatic typing'' features may be useful when writing text. | 55 | The ``automatic typing'' features may be useful when writing text. |
| 57 | @inforef{Top,, autotype}. | 56 | @inforef{Top,The Autotype Manual,autotype}. |
| 57 | @end ifinfo | ||
| 58 | 58 | ||
| 59 | @menu | 59 | @menu |
| 60 | * Words:: Moving over and killing words. | 60 | * Words:: Moving over and killing words. |
| @@ -68,8 +68,8 @@ for editing such pictures. | |||
| 68 | * TeX Mode:: Editing input to the formatter TeX. | 68 | * TeX Mode:: Editing input to the formatter TeX. |
| 69 | * HTML Mode:: Editing HTML and SGML files. | 69 | * HTML Mode:: Editing HTML and SGML files. |
| 70 | * Nroff Mode:: Editing input to the formatter nroff. | 70 | * Nroff Mode:: Editing input to the formatter nroff. |
| 71 | * Formatted Text:: Editing formatted text directly in WYSIWYG fashion. | 71 | * Enriched Text:: Editing text ``enriched'' with fonts, colors, etc. |
| 72 | * Text Based Tables:: Editing text-based tables in WYSIWYG fashion. | 72 | * Text Based Tables:: Commands for editing text-based tables. |
| 73 | * Two-Column:: Splitting text columns into separate windows. | 73 | * Two-Column:: Splitting text columns into separate windows. |
| 74 | @end menu | 74 | @end menu |
| 75 | 75 | ||
| @@ -78,8 +78,8 @@ for editing such pictures. | |||
| 78 | @cindex words | 78 | @cindex words |
| 79 | @cindex Meta commands and words | 79 | @cindex Meta commands and words |
| 80 | 80 | ||
| 81 | Emacs has commands for moving over or operating on words. By convention, | 81 | Emacs defines several commands for moving over or operating on |
| 82 | the keys for them are all Meta characters. | 82 | words: |
| 83 | 83 | ||
| 84 | @table @kbd | 84 | @table @kbd |
| 85 | @item M-f | 85 | @item M-f |
| @@ -157,13 +157,17 @@ the syntax table. Any character can, for example, be declared to be a | |||
| 157 | word delimiter. @xref{Syntax Tables,, Syntax Tables, elisp, The Emacs | 157 | word delimiter. @xref{Syntax Tables,, Syntax Tables, elisp, The Emacs |
| 158 | Lisp Reference Manual}. | 158 | Lisp Reference Manual}. |
| 159 | 159 | ||
| 160 | In addition, see @ref{Position Info} for the @kbd{M-=} | ||
| 161 | (@code{count-words-region}) and @kbd{M-x count-words} commands, which | ||
| 162 | count and report the number of words in the region or buffer. | ||
| 163 | |||
| 160 | @node Sentences | 164 | @node Sentences |
| 161 | @section Sentences | 165 | @section Sentences |
| 162 | @cindex sentences | 166 | @cindex sentences |
| 163 | @cindex manipulating sentences | 167 | @cindex manipulating sentences |
| 164 | 168 | ||
| 165 | The Emacs commands for manipulating sentences and paragraphs are mostly | 169 | The Emacs commands for manipulating sentences and paragraphs are |
| 166 | on Meta keys, so as to be like the word-handling commands. | 170 | mostly on Meta keys, like the word-handling commands. |
| 167 | 171 | ||
| 168 | @table @kbd | 172 | @table @kbd |
| 169 | @item M-a | 173 | @item M-a |
| @@ -180,12 +184,12 @@ Kill back to the beginning of the sentence (@code{backward-kill-sentence}). | |||
| 180 | @kindex M-e | 184 | @kindex M-e |
| 181 | @findex backward-sentence | 185 | @findex backward-sentence |
| 182 | @findex forward-sentence | 186 | @findex forward-sentence |
| 183 | The commands @kbd{M-a} and @kbd{M-e} (@code{backward-sentence} and | 187 | The commands @kbd{M-a} (@code{backward-sentence}) and @kbd{M-e} |
| 184 | @code{forward-sentence}) move to the beginning and end of the current | 188 | (@code{forward-sentence}) move to the beginning and end of the current |
| 185 | sentence, respectively. They were chosen to resemble @kbd{C-a} and | 189 | sentence, respectively. Their bindings were chosen to resemble |
| 186 | @kbd{C-e}, which move to the beginning and end of a line. Unlike | 190 | @kbd{C-a} and @kbd{C-e}, which move to the beginning and end of a |
| 187 | them, @kbd{M-a} and @kbd{M-e} move over successive sentences if | 191 | line. Unlike them, @kbd{M-a} and @kbd{M-e} move over successive |
| 188 | repeated. | 192 | sentences if repeated. |
| 189 | 193 | ||
| 190 | Moving backward over a sentence places point just before the first | 194 | Moving backward over a sentence places point just before the first |
| 191 | character of the sentence; moving forward places point right after the | 195 | character of the sentence; moving forward places point right after the |
| @@ -207,15 +211,14 @@ it kills back to the beginning of the @var{n}th preceding sentence. | |||
| 207 | to the beginning of a sentence. | 211 | to the beginning of a sentence. |
| 208 | 212 | ||
| 209 | The sentence commands assume that you follow the American typist's | 213 | The sentence commands assume that you follow the American typist's |
| 210 | convention of putting two spaces at the end of a sentence; they consider | 214 | convention of putting two spaces at the end of a sentence. That is, a |
| 211 | a sentence to end wherever there is a @samp{.}, @samp{?} or @samp{!} | 215 | sentence ends wherever there is a @samp{.}, @samp{?} or @samp{!} |
| 212 | followed by the end of a line or two spaces, with any number of | 216 | followed by the end of a line or two spaces, with any number of |
| 213 | @samp{)}, @samp{]}, @samp{'}, or @samp{"} characters allowed in between. | 217 | @samp{)}, @samp{]}, @samp{'}, or @samp{"} characters allowed in |
| 214 | A sentence also begins or ends wherever a paragraph begins or ends. | 218 | between. A sentence also begins or ends wherever a paragraph begins |
| 215 | It is useful to follow this convention, because it makes a distinction | 219 | or ends. It is useful to follow this convention, because it allows |
| 216 | between periods that end a sentence and periods that indicate | 220 | the Emacs sentence commands to distinguish between periods that end a |
| 217 | abbreviations; that enables the Emacs sentence commands to distinguish, | 221 | sentence and periods that indicate abbreviations. |
| 218 | too. These commands do not stop for periods that indicate abbreviations. | ||
| 219 | 222 | ||
| 220 | @vindex sentence-end-double-space | 223 | @vindex sentence-end-double-space |
| 221 | If you want to use just one space between sentences, you can set the | 224 | If you want to use just one space between sentences, you can set the |
| @@ -225,7 +228,7 @@ drawback: there is no way to distinguish between periods that end | |||
| 225 | sentences and those that indicate abbreviations. For convenient and | 228 | sentences and those that indicate abbreviations. For convenient and |
| 226 | reliable editing, we therefore recommend you follow the two-space | 229 | reliable editing, we therefore recommend you follow the two-space |
| 227 | convention. The variable @code{sentence-end-double-space} also | 230 | convention. The variable @code{sentence-end-double-space} also |
| 228 | affects filling (@pxref{Fill Commands}) in related ways. | 231 | affects filling (@pxref{Fill Commands}). |
| 229 | 232 | ||
| 230 | @vindex sentence-end | 233 | @vindex sentence-end |
| 231 | The variable @code{sentence-end} controls how to recognize the end | 234 | The variable @code{sentence-end} controls how to recognize the end |
| @@ -237,19 +240,14 @@ Emacs computes sentence ends according to various criteria such as the | |||
| 237 | value of @code{sentence-end-double-space}. | 240 | value of @code{sentence-end-double-space}. |
| 238 | 241 | ||
| 239 | @vindex sentence-end-without-period | 242 | @vindex sentence-end-without-period |
| 240 | Some languages do not use periods to indicate the end of a sentence. | 243 | Some languages, such as Thai, do not use periods to indicate the end |
| 241 | For example, sentences in Thai end with a double space but without a | 244 | of a sentence. Set the variable @code{sentence-end-without-period} to |
| 242 | period. Set the variable @code{sentence-end-without-period} to | ||
| 243 | @code{t} in such cases. | 245 | @code{t} in such cases. |
| 244 | 246 | ||
| 245 | @node Paragraphs | 247 | @node Paragraphs |
| 246 | @section Paragraphs | 248 | @section Paragraphs |
| 247 | @cindex paragraphs | 249 | @cindex paragraphs |
| 248 | @cindex manipulating paragraphs | 250 | @cindex manipulating paragraphs |
| 249 | @kindex M-@{ | ||
| 250 | @kindex M-@} | ||
| 251 | @findex backward-paragraph | ||
| 252 | @findex forward-paragraph | ||
| 253 | 251 | ||
| 254 | The Emacs commands for manipulating paragraphs are also on Meta keys. | 252 | The Emacs commands for manipulating paragraphs are also on Meta keys. |
| 255 | 253 | ||
| @@ -262,23 +260,15 @@ Move forward to next paragraph end (@code{forward-paragraph}). | |||
| 262 | Put point and mark around this or next paragraph (@code{mark-paragraph}). | 260 | Put point and mark around this or next paragraph (@code{mark-paragraph}). |
| 263 | @end table | 261 | @end table |
| 264 | 262 | ||
| 265 | @kbd{M-@{} moves to the beginning of the current or previous | 263 | @kindex M-@{ |
| 266 | paragraph, while @kbd{M-@}} moves to the end of the current or next | 264 | @kindex M-@} |
| 267 | paragraph. Blank lines and text-formatter command lines separate | 265 | @findex backward-paragraph |
| 268 | paragraphs and are not considered part of any paragraph. If there is | 266 | @findex forward-paragraph |
| 269 | a blank line before the paragraph, @kbd{M-@{} moves to the blank line, | 267 | @kbd{M-@{} (@code{backward-paragraph}) moves to the beginning of the |
| 270 | because that is convenient in practice. | 268 | current or previous paragraph (see below for the definition of a |
| 271 | 269 | paragraph). @kbd{M-@}} (@code{forward-paragraph}) moves to the end of | |
| 272 | In Text mode, an indented line is not a paragraph break. If you | 270 | the current or next paragraph. If there is a blank line before the |
| 273 | want indented lines to have this effect, use Paragraph-Indent Text | 271 | paragraph, @kbd{M-@{} moves to the blank line. |
| 274 | mode instead. @xref{Text Mode}. | ||
| 275 | |||
| 276 | In major modes for programs, paragraphs begin and end only at blank | ||
| 277 | lines. This makes the paragraph commands useful, even though there | ||
| 278 | are no paragraphs as such in a program. | ||
| 279 | |||
| 280 | When you have set a fill prefix, then paragraphs are delimited by | ||
| 281 | all lines which don't start with the fill prefix. @xref{Filling}. | ||
| 282 | 272 | ||
| 283 | @kindex M-h | 273 | @kindex M-h |
| 284 | @findex mark-paragraph | 274 | @findex mark-paragraph |
| @@ -287,46 +277,57 @@ all lines which don't start with the fill prefix. @xref{Filling}. | |||
| 287 | @kbd{M-h C-w} kills the paragraph around or after point. @kbd{M-h} | 277 | @kbd{M-h C-w} kills the paragraph around or after point. @kbd{M-h} |
| 288 | puts point at the beginning and mark at the end of the paragraph point | 278 | puts point at the beginning and mark at the end of the paragraph point |
| 289 | was in. If point is between paragraphs (in a run of blank lines, or | 279 | was in. If point is between paragraphs (in a run of blank lines, or |
| 290 | at a boundary), the paragraph following point is surrounded by point | 280 | at a boundary), @kbd{M-h} sets the region around the paragraph |
| 291 | and mark. If there are blank lines preceding the first line of the | 281 | following point. If there are blank lines preceding the first line of |
| 292 | paragraph, one of these blank lines is included in the region. If the | 282 | the paragraph, one of these blank lines is included in the region. If |
| 293 | region is already active, the command sets the mark without changing | 283 | the region is already active, the command sets the mark without |
| 294 | point; furthermore, each subsequent @kbd{M-h} further advances the | 284 | changing point, and each subsequent @kbd{M-h} further advances the |
| 295 | mark by one paragraph. | 285 | mark by one paragraph. |
| 296 | 286 | ||
| 287 | The definition of a paragraph depends on the major mode. In | ||
| 288 | Fundamental mode, as well as Text mode and related modes, a paragraph | ||
| 289 | is separated each neighboring paragraph another by one or more | ||
| 290 | @dfn{blank lines}---lines that are either empty, or consist solely of | ||
| 291 | space, tab and/or formfeed characters. In programming language modes, | ||
| 292 | paragraphs are usually defined in a similar way, so that you can use | ||
| 293 | the paragraph commands even though there are no paragraphs as such in | ||
| 294 | a program. | ||
| 295 | |||
| 296 | Note that an indented line is @emph{not} itself a paragraph break in | ||
| 297 | Text mode. If you want indented lines to separate paragraphs, use | ||
| 298 | Paragraph-Indent Text mode instead. @xref{Text Mode}. | ||
| 299 | |||
| 300 | If you set a fill prefix, then paragraphs are delimited by all lines | ||
| 301 | which don't start with the fill prefix. @xref{Filling}. | ||
| 302 | |||
| 297 | @vindex paragraph-start | 303 | @vindex paragraph-start |
| 298 | @vindex paragraph-separate | 304 | @vindex paragraph-separate |
| 299 | The precise definition of a paragraph boundary is controlled by the | 305 | The precise definition of a paragraph boundary is controlled by the |
| 300 | variables @code{paragraph-separate} and @code{paragraph-start}. The | 306 | variables @code{paragraph-separate} and @code{paragraph-start}. The |
| 301 | value of @code{paragraph-start} is a regexp that should match any line | 307 | value of @code{paragraph-start} is a regular expression that should |
| 302 | that either starts or separates paragraphs. The value of | 308 | match lines that either start or separate paragraphs |
| 303 | @code{paragraph-separate} is another regexp that should match only lines | 309 | (@pxref{Regexps}). The value of @code{paragraph-separate} is another |
| 304 | that separate paragraphs without being part of any paragraph (for | 310 | regular expression that should match lines that separate paragraphs |
| 305 | example, blank lines). Lines that start a new paragraph and are | 311 | without being part of any paragraph (for example, blank lines). Lines |
| 306 | contained in it must match only @code{paragraph-start}, not | 312 | that start a new paragraph and are contained in it must match only |
| 307 | @code{paragraph-separate}. Each regular expression must match at the | 313 | @code{paragraph-start}, not @code{paragraph-separate}. For example, |
| 308 | left margin. For example, in Fundamental mode, @code{paragraph-start} | 314 | in Fundamental mode, @code{paragraph-start} is @w{@code{"\f\\|[ |
| 309 | is @w{@code{"\f\\|[ \t]*$"}}, and @code{paragraph-separate} is | 315 | \t]*$"}}, and @code{paragraph-separate} is @w{@code{"[ \t\f]*$"}}. |
| 310 | @w{@code{"[ \t\f]*$"}}. | ||
| 311 | |||
| 312 | Normally it is desirable for page boundaries to separate paragraphs. | ||
| 313 | The default values of these variables recognize the usual separator for | ||
| 314 | pages. | ||
| 315 | 316 | ||
| 316 | @node Pages | 317 | @node Pages |
| 317 | @section Pages | 318 | @section Pages |
| 318 | 319 | ||
| 319 | @cindex pages | 320 | @cindex pages |
| 320 | @cindex formfeed character | 321 | @cindex formfeed character |
| 321 | Within some text files, text is divided into @dfn{pages}, which are | 322 | Within some text files, text is divided into @dfn{pages} delimited |
| 322 | delimited by the @dfn{formfeed character} (@acronym{ASCII} code 12, | 323 | by the @dfn{formfeed character} (@acronym{ASCII} code 12, also denoted |
| 323 | sometimes denoted as @key{control-L}). When you print hardcopy for a | 324 | as @key{control-L}), which is displayed in Emacs as the escape |
| 324 | file, the formfeed character forces a page break: each page of the | 325 | sequence @samp{^L} (@pxref{Text Display}). Traditionally, when such |
| 325 | file goes on a separate page on paper. Most Emacs commands treat the | 326 | text files are printed to hardcopy, each formfeed character forces a |
| 326 | formfeed character just like any other character: you can insert it | 327 | page break. Most Emacs commands treat it just like any other |
| 327 | with @kbd{C-q C-l}, and delete it with @key{DEL}. However, since | 328 | character, so you can insert it with @kbd{C-q C-l}, delete it with |
| 328 | pages are often meaningful divisions of the file, Emacs provides | 329 | @key{DEL}, etc. In addition, Emacs provides commands to move over |
| 329 | commands to move over them and operate on them. | 330 | pages and operate on them. |
| 330 | 331 | ||
| 331 | @table @kbd | 332 | @table @kbd |
| 332 | @item M-x what-page | 333 | @item M-x what-page |
| @@ -358,9 +359,9 @@ command moves forward past the next page delimiter. | |||
| 358 | @kindex C-x C-p | 359 | @kindex C-x C-p |
| 359 | @findex mark-page | 360 | @findex mark-page |
| 360 | The @kbd{C-x C-p} command (@code{mark-page}) puts point at the | 361 | The @kbd{C-x C-p} command (@code{mark-page}) puts point at the |
| 361 | beginning of the current page and the mark at the end. The page | 362 | beginning of the current page (after that page delimiter at the |
| 362 | delimiter at the end is included (the mark follows it). The page | 363 | front), and the mark at the end of the page (after the page delimiter |
| 363 | delimiter at the front is excluded (point follows it). | 364 | at the end). |
| 364 | 365 | ||
| 365 | @kbd{C-x C-p C-w} is a handy way to kill a page to move it | 366 | @kbd{C-x C-p C-w} is a handy way to kill a page to move it |
| 366 | elsewhere. If you move to another page delimiter with @kbd{C-x [} and | 367 | elsewhere. If you move to another page delimiter with @kbd{C-x [} and |
| @@ -402,9 +403,7 @@ beginning of a line. | |||
| 402 | specified width. Emacs does filling in two ways. In Auto Fill mode, | 403 | specified width. Emacs does filling in two ways. In Auto Fill mode, |
| 403 | inserting text with self-inserting characters also automatically fills | 404 | inserting text with self-inserting characters also automatically fills |
| 404 | it. There are also explicit fill commands that you can use when editing | 405 | it. There are also explicit fill commands that you can use when editing |
| 405 | text leaves it unfilled. When you edit formatted text, you can specify | 406 | text leaves it unfilled. |
| 406 | a style of filling for each portion of the text (@pxref{Formatted | ||
| 407 | Text}). | ||
| 408 | 407 | ||
| 409 | @menu | 408 | @menu |
| 410 | * Auto Fill:: Auto Fill mode breaks long lines automatically. | 409 | * Auto Fill:: Auto Fill mode breaks long lines automatically. |
| @@ -418,9 +417,9 @@ Text}). | |||
| 418 | @cindex Auto Fill mode | 417 | @cindex Auto Fill mode |
| 419 | @cindex mode, Auto Fill | 418 | @cindex mode, Auto Fill |
| 420 | 419 | ||
| 421 | @dfn{Auto Fill} mode is a minor mode in which lines are broken | 420 | @dfn{Auto Fill} mode is a buffer-local minor mode (@pxref{Minor |
| 422 | automatically when they become too wide. Breaking happens only when | 421 | Modes}) in which lines are broken automatically when they become too |
| 423 | you type a @key{SPC} or @key{RET}. | 422 | wide. Breaking happens only when you type a @key{SPC} or @key{RET}. |
| 424 | 423 | ||
| 425 | @table @kbd | 424 | @table @kbd |
| 426 | @item M-x auto-fill-mode | 425 | @item M-x auto-fill-mode |
| @@ -431,45 +430,43 @@ In Auto Fill mode, break lines when appropriate. | |||
| 431 | @end table | 430 | @end table |
| 432 | 431 | ||
| 433 | @findex auto-fill-mode | 432 | @findex auto-fill-mode |
| 434 | @kbd{M-x auto-fill-mode} turns Auto Fill mode on if it was off, or off | 433 | The mode command @kbd{M-x auto-fill-mode} toggles Auto Fill mode in |
| 435 | if it was on. With a positive numeric argument it always turns Auto | 434 | the current buffer. With a positive numeric argument, it enables Auto |
| 436 | Fill mode on, and with a negative argument always turns it off. You can | 435 | Fill mode, and with a negative argument it disables it. If |
| 437 | see when Auto Fill mode is in effect by the presence of the word | 436 | @code{auto-fill-mode} is called from Lisp with an omitted or |
| 438 | @samp{Fill} in the mode line, inside the parentheses. Auto Fill mode is | 437 | @code{nil} argument, it enables Auto Fill mode. To enable Auto Fill |
| 439 | a minor mode which is enabled or disabled for each buffer individually. | 438 | mode automatically in certain major modes, add @code{auto-fill-mode} |
| 440 | @xref{Minor Modes}. | 439 | to the mode hooks (@pxref{Major Modes}). When Auto Fill mode is |
| 441 | 440 | enabled, the mode indicator @samp{Fill} appears in the mode line | |
| 442 | In Auto Fill mode, lines are broken automatically at spaces when they | 441 | (@pxref{Mode Line}). |
| 443 | get longer than the desired width. Line breaking and rearrangement | 442 | |
| 444 | takes place only when you type @key{SPC} or @key{RET}. If you wish to | 443 | Auto Fill mode breaks lines automatically at spaces whenever they |
| 445 | insert a space or newline without permitting line-breaking, type | 444 | get longer than the desired width. This line breaking occurs only |
| 446 | @kbd{C-q @key{SPC}} or @kbd{C-q C-j} (recall that a newline is really a | 445 | when you type @key{SPC} or @key{RET}. If you wish to insert a space |
| 447 | control-J). Also, @kbd{C-o} inserts a newline without line breaking. | 446 | or newline without permitting line-breaking, type @kbd{C-q @key{SPC}} |
| 448 | 447 | or @kbd{C-q C-j} respectively. Also, @kbd{C-o} inserts a newline | |
| 449 | Auto Fill mode works well with programming-language modes, because it | 448 | without line breaking. |
| 450 | indents new lines with @key{TAB}. If a line ending in a comment gets | 449 | |
| 451 | too long, the text of the comment is split into two comment lines. | 450 | When Auto Fill mode breaks a line, it tries to obey the |
| 452 | Optionally, new comment delimiters are inserted at the end of the first | 451 | @dfn{adaptive fill prefix}: if a fill prefix can be deduced from the |
| 453 | line and the beginning of the second so that each line is a separate | 452 | first and/or second line of the current paragraph, it is inserted into |
| 454 | comment; the variable @code{comment-multi-line} controls the choice | 453 | the new line (@pxref{Adaptive Fill}). Otherwise the new line is |
| 455 | (@pxref{Comments}). | 454 | indented, as though you had typed @key{TAB} on it |
| 456 | 455 | (@pxref{Indentation}). In a programming language mode, if a line is | |
| 457 | Adaptive filling (@pxref{Adaptive Fill}) works for Auto Filling as | 456 | broken in the middle of a comment, the comment is split by inserting |
| 458 | well as for explicit fill commands. It takes a fill prefix | 457 | new comment delimiters as appropriate. |
| 459 | automatically from the second or first line of a paragraph. | 458 | |
| 460 | 459 | Auto Fill mode does not refill entire paragraphs; it breaks lines | |
| 461 | Auto Fill mode does not refill entire paragraphs; it can break lines but | 460 | but does not merge lines. Therefore, editing in the middle of a |
| 462 | cannot merge lines. So editing in the middle of a paragraph can result in | 461 | paragraph can result in a paragraph that is not correctly filled. To |
| 463 | a paragraph that is not correctly filled. The easiest way to make the | 462 | fill it, call the explicit fill commands |
| 464 | paragraph properly filled again is usually with the explicit fill commands. | 463 | @iftex |
| 464 | described in the next section. | ||
| 465 | @end iftex | ||
| 465 | @ifnottex | 466 | @ifnottex |
| 466 | @xref{Fill Commands}. | 467 | (@pxref{Fill Commands}). |
| 467 | @end ifnottex | 468 | @end ifnottex |
| 468 | 469 | ||
| 469 | Many users like Auto Fill mode and want to use it in all text files. | ||
| 470 | The section on init files says how to arrange this permanently for yourself. | ||
| 471 | @xref{Init File}. | ||
| 472 | |||
| 473 | @node Fill Commands | 470 | @node Fill Commands |
| 474 | @subsection Explicit Fill Commands | 471 | @subsection Explicit Fill Commands |
| 475 | 472 | ||
| @@ -488,21 +485,23 @@ Center a line. | |||
| 488 | 485 | ||
| 489 | @kindex M-q | 486 | @kindex M-q |
| 490 | @findex fill-paragraph | 487 | @findex fill-paragraph |
| 491 | To refill a paragraph, use the command @kbd{M-q} | 488 | The command @kbd{M-q} (@code{fill-paragraph}) @dfn{fills} the |
| 492 | (@code{fill-paragraph}). This operates on the paragraph that point is | 489 | current paragraph. It redistributes the line breaks within the |
| 493 | inside, or the one after point if point is between paragraphs. | 490 | paragraph, and deletes any excess space and tab characters occurring |
| 494 | Refilling works by removing all the line-breaks, then inserting new | 491 | within the paragraph, in such a way that the lines end up fitting |
| 495 | ones where necessary. When there is an active region, this command | 492 | within a certain maximum width. |
| 496 | operates on the text within the region like @code{fill-region}. | ||
| 497 | 493 | ||
| 498 | @findex fill-region | 494 | @findex fill-region |
| 499 | To refill many paragraphs, use @kbd{M-x fill-region}, which | 495 | Normally, @kbd{M-q} acts on the paragraph where point is, but if |
| 500 | finds the paragraphs in the region and fills each of them. | 496 | point is between paragraphs, it acts on the paragraph after point. If |
| 497 | the region is active, it acts instead on the text in the region. You | ||
| 498 | can also call @kbd{M-x fill-region} to specifically fill the text in | ||
| 499 | the region. | ||
| 501 | 500 | ||
| 502 | @findex fill-region-as-paragraph | 501 | @findex fill-region-as-paragraph |
| 503 | @kbd{M-q} and @code{fill-region} use the same criteria as @kbd{M-h} | 502 | @kbd{M-q} and @code{fill-region} use the usual Emacs criteria for |
| 504 | for finding paragraph boundaries (@pxref{Paragraphs}). For more | 503 | finding paragraph boundaries (@pxref{Paragraphs}). For more control, |
| 505 | control, you can use @kbd{M-x fill-region-as-paragraph}, which refills | 504 | you can use @kbd{M-x fill-region-as-paragraph}, which refills |
| 506 | everything between point and mark as a single paragraph. This command | 505 | everything between point and mark as a single paragraph. This command |
| 507 | deletes any blank lines within the region, so separate blocks of text | 506 | deletes any blank lines within the region, so separate blocks of text |
| 508 | end up combined into one block. | 507 | end up combined into one block. |
| @@ -512,9 +511,18 @@ end up combined into one block. | |||
| 512 | as well as filling it. This means that extra spaces are inserted to | 511 | as well as filling it. This means that extra spaces are inserted to |
| 513 | make the right margin line up exactly at the fill column. To remove | 512 | make the right margin line up exactly at the fill column. To remove |
| 514 | the extra spaces, use @kbd{M-q} with no argument. (Likewise for | 513 | the extra spaces, use @kbd{M-q} with no argument. (Likewise for |
| 515 | @code{fill-region}.) Another way to control justification, and choose | 514 | @code{fill-region}.) |
| 516 | other styles of filling, is with the @code{justification} text | 515 | |
| 517 | property; see @ref{Format Justification}. | 516 | @vindex fill-column |
| 517 | @kindex C-x f | ||
| 518 | @findex set-fill-column | ||
| 519 | The maximum line width for filling is specified by the buffer-local | ||
| 520 | variable @code{fill-column}. The default value (@pxref{Locals}) is | ||
| 521 | 70. The easiest way to set @code{fill-column} in the current buffer | ||
| 522 | is to use the command @kbd{C-x f} (@code{set-fill-column}). With a | ||
| 523 | numeric argument, it uses that as the new fill column. With just | ||
| 524 | @kbd{C-u} as argument, it sets @code{fill-column} to the current | ||
| 525 | horizontal position of point. | ||
| 518 | 526 | ||
| 519 | @kindex M-o M-s @r{(Text mode)} | 527 | @kindex M-o M-s @r{(Text mode)} |
| 520 | @cindex centering | 528 | @cindex centering |
| @@ -525,40 +533,27 @@ within the current fill column. With an argument @var{n}, it centers | |||
| 525 | made by Text mode and is available only in that and related modes | 533 | made by Text mode and is available only in that and related modes |
| 526 | (@pxref{Text Mode}). | 534 | (@pxref{Text Mode}). |
| 527 | 535 | ||
| 528 | @vindex fill-column | 536 | By default, Emacs considers a period followed by two spaces or by a |
| 529 | @kindex C-x f | 537 | newline as the end of a sentence; a period followed by just one space |
| 530 | @findex set-fill-column | 538 | indicates an abbreviation, not the end of a sentence. Accordingly, |
| 531 | The maximum line width for filling is in the variable | 539 | the fill commands will not break a line after a period followed by |
| 532 | @code{fill-column}. Altering the value of @code{fill-column} makes it | 540 | just one space. If you change the variable |
| 533 | local to the current buffer; until that time, the default value is in | 541 | @code{sentence-end-double-space} to a non-@code{nil} value, the fill |
| 534 | effect. The default is initially 70. @xref{Locals}. The easiest way | 542 | commands will break a line after a period followed by one space, and |
| 535 | to set @code{fill-column} is to use the command @kbd{C-x f} | 543 | put just one space after each period. @xref{Sentences}, for other |
| 536 | (@code{set-fill-column}). With a numeric argument, it uses that as the | 544 | effects and possible drawbacks of this. |
| 537 | new fill column. With just @kbd{C-u} as argument, it sets | ||
| 538 | @code{fill-column} to the current horizontal position of point. | ||
| 539 | |||
| 540 | Emacs commands normally consider a period followed by two spaces or by | ||
| 541 | a newline as the end of a sentence; a period followed by just one space | ||
| 542 | indicates an abbreviation and not the end of a sentence. To preserve | ||
| 543 | the distinction between these two ways of using a period, the fill | ||
| 544 | commands do not break a line after a period followed by just one space. | ||
| 545 | |||
| 546 | If the variable @code{sentence-end-double-space} is @code{nil}, the | ||
| 547 | fill commands expect and leave just one space at the end of a sentence. | ||
| 548 | Ordinarily this variable is @code{t}, so the fill commands insist on | ||
| 549 | two spaces for the end of a sentence, as explained above. @xref{Sentences}. | ||
| 550 | 545 | ||
| 551 | @vindex colon-double-space | 546 | @vindex colon-double-space |
| 552 | If the variable @code{colon-double-space} is non-@code{nil}, the | 547 | If the variable @code{colon-double-space} is non-@code{nil}, the |
| 553 | fill commands put two spaces after a colon. | 548 | fill commands put two spaces after a colon. |
| 554 | 549 | ||
| 555 | @vindex fill-nobreak-predicate | 550 | @vindex fill-nobreak-predicate |
| 556 | The variable @code{fill-nobreak-predicate} is a hook (an abnormal | 551 | To specify additional conditions where line-breaking is not allowed, |
| 557 | hook, @pxref{Hooks}) specifying additional conditions where | 552 | customize the abnormal hook variable @code{fill-nobreak-predicate} |
| 558 | line-breaking is not allowed. Each function is called with no | 553 | (@pxref{Hooks}). Each function in this hook is called with no |
| 559 | arguments, with point at a place where Emacs is considering breaking | 554 | arguments, with point positioned where Emacs is considering breaking a |
| 560 | the line. If a function returns a non-@code{nil} value, then that's | 555 | line. If a function returns a non-@code{nil} value, Emacs will not |
| 561 | a bad place to break the line. Two standard functions you can use are | 556 | break the line there. Two functions you can use are |
| 562 | @code{fill-single-word-nobreak-p} (don't break after the first word of | 557 | @code{fill-single-word-nobreak-p} (don't break after the first word of |
| 563 | a sentence or before the last) and @code{fill-french-nobreak-p} (don't | 558 | a sentence or before the last) and @code{fill-french-nobreak-p} (don't |
| 564 | break after @samp{(} or before @samp{)}, @samp{:} or @samp{?}). | 559 | break after @samp{(} or before @samp{)}, @samp{:} or @samp{?}). |
| @@ -567,12 +562,11 @@ break after @samp{(} or before @samp{)}, @samp{:} or @samp{?}). | |||
| 567 | @subsection The Fill Prefix | 562 | @subsection The Fill Prefix |
| 568 | 563 | ||
| 569 | @cindex fill prefix | 564 | @cindex fill prefix |
| 570 | To fill a paragraph in which each line starts with a special marker | 565 | The @dfn{fill prefix} feature allows paragraphs to be filled so that |
| 571 | (which might be a few spaces, giving an indented paragraph), you can use | 566 | each line starts with a special string of characters (such as a |
| 572 | the @dfn{fill prefix} feature. The fill prefix is a string that Emacs | 567 | sequence of spaces, giving an indented paragraph). You can specify a |
| 573 | expects every line to start with, and which is not included in filling. | 568 | fill prefix explicitly; otherwise, Emacs tries to deduce one |
| 574 | You can specify a fill prefix explicitly; Emacs can also deduce the | 569 | automatically (@pxref{Adaptive Fill}). |
| 575 | fill prefix automatically (@pxref{Adaptive Fill}). | ||
| 576 | 570 | ||
| 577 | @table @kbd | 571 | @table @kbd |
| 578 | @item C-x . | 572 | @item C-x . |
| @@ -596,15 +590,15 @@ after the @kbd{C-x}.) To turn off the fill prefix, specify an empty | |||
| 596 | prefix: type @w{@kbd{C-x .}}@: with point at the beginning of a line. | 590 | prefix: type @w{@kbd{C-x .}}@: with point at the beginning of a line. |
| 597 | 591 | ||
| 598 | When a fill prefix is in effect, the fill commands remove the fill | 592 | When a fill prefix is in effect, the fill commands remove the fill |
| 599 | prefix from each line of the paragraph before filling and insert it on | 593 | prefix from each line of the paragraph before filling, and insert it |
| 600 | each line after filling. (The beginning of the first line of the | 594 | on each line after filling. (The beginning of the first line of the |
| 601 | paragraph is left unchanged, since often that is intentionally | 595 | paragraph is left unchanged, since often that is intentionally |
| 602 | different.) Auto Fill mode also inserts the fill prefix automatically | 596 | different.) Auto Fill mode also inserts the fill prefix automatically |
| 603 | when it makes a new line. The @kbd{C-o} command inserts the fill | 597 | when it makes a new line (@pxref{Auto Fill}). The @kbd{C-o} command |
| 604 | prefix on new lines it creates, when you use it at the beginning of a | 598 | inserts the fill prefix on new lines it creates, when you use it at |
| 605 | line (@pxref{Blank Lines}). Conversely, the command @kbd{M-^} deletes | 599 | the beginning of a line (@pxref{Blank Lines}). Conversely, the |
| 606 | the prefix (if it occurs) after the newline that it deletes | 600 | command @kbd{M-^} deletes the prefix (if it occurs) after the newline |
| 607 | (@pxref{Indentation}). | 601 | that it deletes (@pxref{Indentation}). |
| 608 | 602 | ||
| 609 | For example, if @code{fill-column} is 40 and you set the fill prefix | 603 | For example, if @code{fill-column} is 40 and you set the fill prefix |
| 610 | to @samp{;; }, then @kbd{M-q} in the following text | 604 | to @samp{;; }, then @kbd{M-q} in the following text |
| @@ -657,7 +651,8 @@ per-buffer variable; altering the variable affects only the current buffer, | |||
| 657 | but there is a default value which you can change as well. @xref{Locals}. | 651 | but there is a default value which you can change as well. @xref{Locals}. |
| 658 | 652 | ||
| 659 | The @code{indentation} text property provides another way to control | 653 | The @code{indentation} text property provides another way to control |
| 660 | the amount of indentation paragraphs receive. @xref{Format Indentation}. | 654 | the amount of indentation paragraphs receive. @xref{Enriched |
| 655 | Indentation}. | ||
| 661 | 656 | ||
| 662 | @node Adaptive Fill | 657 | @node Adaptive Fill |
| 663 | @subsection Adaptive Filling | 658 | @subsection Adaptive Filling |
| @@ -754,17 +749,16 @@ Convert region to upper case (@code{upcase-region}). | |||
| 754 | @findex downcase-word | 749 | @findex downcase-word |
| 755 | @findex upcase-word | 750 | @findex upcase-word |
| 756 | @findex capitalize-word | 751 | @findex capitalize-word |
| 757 | The word conversion commands are the most useful. @kbd{M-l} | 752 | @kbd{M-l} (@code{downcase-word}) converts the word after point to |
| 758 | (@code{downcase-word}) converts the word after point to lower case, moving | 753 | lower case, moving past it. Thus, repeating @kbd{M-l} converts |
| 759 | past it. Thus, repeating @kbd{M-l} converts successive words. | 754 | successive words. @kbd{M-u} (@code{upcase-word}) converts to all |
| 760 | @kbd{M-u} (@code{upcase-word}) converts to all capitals instead, while | 755 | capitals instead, while @kbd{M-c} (@code{capitalize-word}) puts the |
| 761 | @kbd{M-c} (@code{capitalize-word}) puts the first letter of the word | 756 | first letter of the word into upper case and the rest into lower case. |
| 762 | into upper case and the rest into lower case. All these commands convert | 757 | All these commands convert several words at once if given an argument. |
| 763 | several words at once if given an argument. They are especially convenient | 758 | They are especially convenient for converting a large amount of text |
| 764 | for converting a large amount of text from all upper case to mixed case, | 759 | from all upper case to mixed case, because you can move through the |
| 765 | because you can move through the text using @kbd{M-l}, @kbd{M-u} or | 760 | text using @kbd{M-l}, @kbd{M-u} or @kbd{M-c} on each word as |
| 766 | @kbd{M-c} on each word as appropriate, occasionally using @kbd{M-f} instead | 761 | appropriate, occasionally using @kbd{M-f} instead to skip a word. |
| 767 | to skip a word. | ||
| 768 | 762 | ||
| 769 | When given a negative argument, the word case conversion commands apply | 763 | When given a negative argument, the word case conversion commands apply |
| 770 | to the appropriate number of words before point, but do not move point. | 764 | to the appropriate number of words before point, but do not move point. |
| @@ -798,9 +792,10 @@ enable the command, which means it will not ask for confirmation again. | |||
| 798 | @cindex mode, Text | 792 | @cindex mode, Text |
| 799 | @findex text-mode | 793 | @findex text-mode |
| 800 | 794 | ||
| 801 | When you edit files of text in a human language, it's more convenient | 795 | Text mode is a major mode for editing files of text in a human |
| 802 | to use Text mode rather than Fundamental mode. To enter Text mode, type | 796 | language. Files which have names ending in the extension @file{.txt} |
| 803 | @kbd{M-x text-mode}. | 797 | are usually opened in Text mode (@pxref{Choosing Modes}). To |
| 798 | explicitly switch to Text mode, type @kbd{M-x text-mode}. | ||
| 804 | 799 | ||
| 805 | In Text mode, only blank lines and page delimiters separate | 800 | In Text mode, only blank lines and page delimiters separate |
| 806 | paragraphs. As a result, paragraphs can be indented, and adaptive | 801 | paragraphs. As a result, paragraphs can be indented, and adaptive |
| @@ -808,46 +803,49 @@ filling determines what indentation to use when filling a paragraph. | |||
| 808 | @xref{Adaptive Fill}. | 803 | @xref{Adaptive Fill}. |
| 809 | 804 | ||
| 810 | @kindex TAB @r{(Text mode)} | 805 | @kindex TAB @r{(Text mode)} |
| 811 | Text mode defines @key{TAB} to run @code{indent-relative} | 806 | In Text mode, the @key{TAB} (@code{indent-for-tab-command}) command |
| 812 | (@pxref{Indentation}), so that you can conveniently indent a line like | 807 | usually inserts whitespace up to the next tab stop, instead of |
| 813 | the previous line. | 808 | indenting the current line. @xref{Indentation}, for details. |
| 814 | 809 | ||
| 815 | Text mode turns off the features concerned with comments except when | 810 | Text mode turns off the features concerned with comments except when |
| 816 | you explicitly invoke them. It changes the syntax table so that | 811 | you explicitly invoke them. It changes the syntax table so that |
| 817 | single-quotes are considered part of words. However, if a word starts | 812 | single-quotes are considered part of words (e.g.@: @samp{don't} is |
| 818 | with single-quotes, these are treated as a prefix for purposes such as | 813 | considered one word). However, if a word starts with a single-quote, |
| 819 | capitalization. That is, @kbd{M-c} will convert @samp{'hello'} into | 814 | it is treated as a prefix for the purposes of capitalization |
| 820 | @samp{'Hello'}, as expected. | 815 | (e.g.@: @kbd{M-c} converts @samp{'hello'} into @samp{'Hello'}, as |
| 816 | expected). | ||
| 821 | 817 | ||
| 822 | @cindex Paragraph-Indent Text mode | 818 | @cindex Paragraph-Indent Text mode |
| 823 | @cindex mode, Paragraph-Indent Text | 819 | @cindex mode, Paragraph-Indent Text |
| 824 | @findex paragraph-indent-text-mode | 820 | @findex paragraph-indent-text-mode |
| 825 | @findex paragraph-indent-minor-mode | 821 | @findex paragraph-indent-minor-mode |
| 826 | If you indent the first lines of paragraphs, then you should use | 822 | If you indent the first lines of paragraphs, then you should use |
| 827 | Paragraph-Indent Text mode rather than Text mode. In this mode, you | 823 | Paragraph-Indent Text mode (@kbd{M-x paragraph-indent-text-mode}) |
| 828 | do not need to have blank lines between paragraphs, because the | 824 | rather than Text mode. In that mode, you do not need to have blank |
| 829 | first-line indentation is sufficient to start a paragraph; however | 825 | lines between paragraphs, because the first-line indentation is |
| 830 | paragraphs in which every line is indented are not supported. Use | 826 | sufficient to start a paragraph; however paragraphs in which every |
| 831 | @kbd{M-x paragraph-indent-text-mode} to enter this mode. Use @kbd{M-x | 827 | line is indented are not supported. Use @kbd{M-x |
| 832 | paragraph-indent-minor-mode} to enable an equivalent minor mode in | 828 | paragraph-indent-minor-mode} to enable an equivalent minor mode for |
| 833 | situations where you can't change the major mode---in mail | 829 | situations where you shouldn't change the major mode---in mail |
| 834 | composition, for instance. | 830 | composition, for instance. |
| 835 | 831 | ||
| 836 | @kindex M-TAB @r{(Text mode)} | 832 | @kindex M-TAB @r{(Text mode)} |
| 837 | Text mode, and all the modes based on it, define @kbd{M-@key{TAB}} | 833 | Text mode binds @kbd{M-@key{TAB}} to @code{ispell-complete-word}. |
| 838 | as the command @code{ispell-complete-word}, which performs completion | 834 | This command performs completion of the partial word in the buffer |
| 839 | of the partial word in the buffer before point, using the spelling | 835 | before point, using the spelling dictionary as the space of possible |
| 840 | dictionary as the space of possible words. @xref{Spelling}. If your | 836 | words. @xref{Spelling}. If your window manager defines |
| 841 | window manager defines @kbd{M-@key{TAB}} to switch windows, you can | 837 | @kbd{M-@key{TAB}} to switch windows, you can type @kbd{@key{ESC} |
| 842 | type @kbd{@key{ESC} @key{TAB}} or @kbd{C-M-i}. | 838 | @key{TAB}} or @kbd{C-M-i} instead. |
| 843 | 839 | ||
| 844 | @vindex text-mode-hook | 840 | @vindex text-mode-hook |
| 845 | Entering Text mode runs the hook @code{text-mode-hook}. Other major | 841 | Entering Text mode runs the mode hook @code{text-mode-hook} |
| 846 | modes related to Text mode also run this hook, followed by hooks of | 842 | (@pxref{Major Modes}). |
| 847 | their own; this includes Paragraph-Indent Text mode, Nroff mode, | 843 | |
| 848 | @TeX{} mode, Outline mode, and Message mode. Hook functions on | 844 | The following sections describe several major modes that are |
| 849 | @code{text-mode-hook} can look at the value of @code{major-mode} to | 845 | @dfn{derived} from Text mode. These derivatives share most of the |
| 850 | see which of these modes is actually being entered. @xref{Hooks}. | 846 | features of Text mode described above. In particular, derivatives of |
| 847 | Text mode run @code{text-mode-hook} prior to running their own mode | ||
| 848 | hooks. | ||
| 851 | 849 | ||
| 852 | @node Outline Mode | 850 | @node Outline Mode |
| 853 | @section Outline Mode | 851 | @section Outline Mode |
| @@ -858,29 +856,34 @@ see which of these modes is actually being entered. @xref{Hooks}. | |||
| 858 | @findex outline-mode | 856 | @findex outline-mode |
| 859 | @findex outline-minor-mode | 857 | @findex outline-minor-mode |
| 860 | @vindex outline-minor-mode-prefix | 858 | @vindex outline-minor-mode-prefix |
| 861 | Outline mode is a major mode much like Text mode but intended for | 859 | @vindex outline-mode-hook |
| 862 | editing outlines. It allows you to make parts of the text temporarily | 860 | Outline mode is a major mode derived from Text mode, which is |
| 863 | invisible so that you can see the outline structure. Type @kbd{M-x | 861 | specialized for editing outlines. It provides commands to navigate |
| 864 | outline-mode} to switch to Outline mode as the major mode of the current | 862 | between entries in the outline structure, and commands to make parts |
| 865 | buffer. | 863 | of a buffer temporarily invisible, so that the outline structure may |
| 866 | 864 | be more easily viewed. Type @kbd{M-x outline-mode} to switch to | |
| 867 | When Outline mode makes a line invisible, the line does not appear | 865 | Outline mode. Entering Outline mode runs the hook |
| 868 | on the screen. The screen appears exactly as if the invisible line | 866 | @code{text-mode-hook} followed by the hook @code{outline-mode-hook} |
| 869 | were deleted, except that an ellipsis (three periods in a row) appears | 867 | (@pxref{Hooks}). |
| 870 | at the end of the previous visible line. (Multiple consecutive | 868 | |
| 871 | invisible lines produce just one ellipsis.) | 869 | When you use an Outline mode command to make a line invisible |
| 870 | (@pxref{Outline Visibility}), the line disappears from the screen. An | ||
| 871 | ellipsis (three periods in a row) is displayed at the end of the | ||
| 872 | previous visible line, to indicate the hidden text. Multiple | ||
| 873 | consecutive invisible lines produce just one ellipsis. | ||
| 872 | 874 | ||
| 873 | Editing commands that operate on lines, such as @kbd{C-n} and | 875 | Editing commands that operate on lines, such as @kbd{C-n} and |
| 874 | @kbd{C-p}, treat the text of the invisible line as part of the previous | 876 | @kbd{C-p}, treat the text of the invisible line as part of the |
| 875 | visible line. Killing the ellipsis at the end of a visible line | 877 | previous visible line. Killing the ellipsis at the end of a visible |
| 876 | really kills all the following invisible lines. | 878 | line really kills all the following invisible text associated with the |
| 877 | 879 | ellipsis. | |
| 878 | Outline minor mode provides the same commands as the major mode, | 880 | |
| 879 | Outline mode, but you can use it in conjunction with other major modes. | 881 | Outline minor mode is a buffer-local minor mode which provides the |
| 880 | Type @kbd{M-x outline-minor-mode} to enable the Outline minor mode in | 882 | same commands as the major mode, Outline mode, but can be used in |
| 881 | the current buffer. You can also specify this in the text of a file, | 883 | conjunction with other major modes. You can type @kbd{M-x |
| 882 | with a file local variable of the form @samp{mode: outline-minor} | 884 | outline-minor-mode} to toggle Outline minor mode in the current |
| 883 | (@pxref{File Variables}). | 885 | buffer, or use a file-local variable setting to enable it in a |
| 886 | specific file (@pxref{File Variables}). | ||
| 884 | 887 | ||
| 885 | @kindex C-c @@ @r{(Outline minor mode)} | 888 | @kindex C-c @@ @r{(Outline minor mode)} |
| 886 | The major mode, Outline mode, provides special key bindings on the | 889 | The major mode, Outline mode, provides special key bindings on the |
| @@ -889,17 +892,12 @@ with a file local variable of the form @samp{mode: outline-minor} | |||
| 889 | major mode's special commands. (The variable | 892 | major mode's special commands. (The variable |
| 890 | @code{outline-minor-mode-prefix} controls the prefix used.) | 893 | @code{outline-minor-mode-prefix} controls the prefix used.) |
| 891 | 894 | ||
| 892 | @vindex outline-mode-hook | ||
| 893 | Entering Outline mode runs the hook @code{text-mode-hook} followed by | ||
| 894 | the hook @code{outline-mode-hook} (@pxref{Hooks}). | ||
| 895 | |||
| 896 | @menu | 895 | @menu |
| 897 | * Format: Outline Format. What the text of an outline looks like. | 896 | * Outline Format:: What the text of an outline looks like. |
| 898 | * Motion: Outline Motion. Special commands for moving through | 897 | * Outline Motion:: Special commands for moving through outlines. |
| 899 | outlines. | 898 | * Outline Visibility:: Commands to control what is visible. |
| 900 | * Visibility: Outline Visibility. Commands to control what is visible. | 899 | * Outline Views:: Outlines and multiple views. |
| 901 | * Views: Outline Views. Outlines and multiple views. | 900 | * Foldout:: Folding means zooming in on outlines. |
| 902 | * Foldout:: Folding means zooming in on outlines. | ||
| 903 | @end menu | 901 | @end menu |
| 904 | 902 | ||
| 905 | @node Outline Format | 903 | @node Outline Format |
| @@ -909,13 +907,13 @@ the hook @code{outline-mode-hook} (@pxref{Hooks}). | |||
| 909 | @cindex body lines (Outline mode) | 907 | @cindex body lines (Outline mode) |
| 910 | Outline mode assumes that the lines in the buffer are of two types: | 908 | Outline mode assumes that the lines in the buffer are of two types: |
| 911 | @dfn{heading lines} and @dfn{body lines}. A heading line represents a | 909 | @dfn{heading lines} and @dfn{body lines}. A heading line represents a |
| 912 | topic in the outline. Heading lines start with one or more stars; the | 910 | topic in the outline. Heading lines start with one or more asterisk |
| 913 | number of stars determines the depth of the heading in the outline | 911 | (@samp{*}) characters; the number of asterisks determines the depth of |
| 914 | structure. Thus, a heading line with one star is a major topic; all the | 912 | the heading in the outline structure. Thus, a heading line with one |
| 915 | heading lines with two stars between it and the next one-star heading | 913 | @samp{*} is a major topic; all the heading lines with two @samp{*}s |
| 916 | are its subtopics; and so on. Any line that is not a heading line is a | 914 | between it and the next one-@samp{*} heading are its subtopics; and so |
| 917 | body line. Body lines belong with the preceding heading line. Here is | 915 | on. Any line that is not a heading line is a body line. Body lines |
| 918 | an example: | 916 | belong with the preceding heading line. Here is an example: |
| 919 | 917 | ||
| 920 | @example | 918 | @example |
| 921 | * Food | 919 | * Food |
| @@ -997,12 +995,10 @@ Move point up to a lower-level (more inclusive) visible heading line | |||
| 997 | @findex outline-previous-visible-heading | 995 | @findex outline-previous-visible-heading |
| 998 | @kindex C-c C-n @r{(Outline mode)} | 996 | @kindex C-c C-n @r{(Outline mode)} |
| 999 | @kindex C-c C-p @r{(Outline mode)} | 997 | @kindex C-c C-p @r{(Outline mode)} |
| 1000 | @kbd{C-c C-n} (@code{outline-next-visible-heading}) moves down to the next | 998 | @kbd{C-c C-n} (@code{outline-next-visible-heading}) moves down to |
| 1001 | heading line. @kbd{C-c C-p} (@code{outline-previous-visible-heading}) moves | 999 | the next heading line. @kbd{C-c C-p} |
| 1002 | similarly backward. Both accept numeric arguments as repeat counts. The | 1000 | (@code{outline-previous-visible-heading}) moves similarly backward. |
| 1003 | names emphasize that invisible headings are skipped, but this is not really | 1001 | Both accept numeric arguments as repeat counts. |
| 1004 | a special feature. All editing commands that look for lines ignore the | ||
| 1005 | invisible lines automatically. | ||
| 1006 | 1002 | ||
| 1007 | @findex outline-up-heading | 1003 | @findex outline-up-heading |
| 1008 | @findex outline-forward-same-level | 1004 | @findex outline-forward-same-level |
| @@ -1010,21 +1006,19 @@ invisible lines automatically. | |||
| 1010 | @kindex C-c C-f @r{(Outline mode)} | 1006 | @kindex C-c C-f @r{(Outline mode)} |
| 1011 | @kindex C-c C-b @r{(Outline mode)} | 1007 | @kindex C-c C-b @r{(Outline mode)} |
| 1012 | @kindex C-c C-u @r{(Outline mode)} | 1008 | @kindex C-c C-u @r{(Outline mode)} |
| 1013 | More powerful motion commands understand the level structure of headings. | 1009 | The commands @kbd{C-c C-f} (@code{outline-forward-same-level}) and |
| 1014 | @kbd{C-c C-f} (@code{outline-forward-same-level}) and | ||
| 1015 | @kbd{C-c C-b} (@code{outline-backward-same-level}) move from one | 1010 | @kbd{C-c C-b} (@code{outline-backward-same-level}) move from one |
| 1016 | heading line to another visible heading at the same depth in | 1011 | heading line to another visible heading at the same depth in the |
| 1017 | the outline. @kbd{C-c C-u} (@code{outline-up-heading}) moves | 1012 | outline. @kbd{C-c C-u} (@code{outline-up-heading}) moves backward to |
| 1018 | backward to another heading that is less deeply nested. | 1013 | another heading that is less deeply nested. |
| 1019 | 1014 | ||
| 1020 | @node Outline Visibility | 1015 | @node Outline Visibility |
| 1021 | @subsection Outline Visibility Commands | 1016 | @subsection Outline Visibility Commands |
| 1022 | 1017 | ||
| 1023 | The other special commands of outline mode are used to make lines visible | 1018 | Outline mode provides several commands for temporarily hiding or |
| 1024 | or invisible. Their names all start with @code{hide} or @code{show}. | 1019 | revealing parts of the buffer, based on the outline structure. These |
| 1025 | Most of them fall into pairs of opposites. They are not undoable; instead, | 1020 | commands are not undoable; their effects are simply not recorded by |
| 1026 | you can undo right past them. Making lines visible or invisible is simply | 1021 | the undo mechanism, so you can undo right past them (@pxref{Undo}). |
| 1027 | not recorded by the undo mechanism. | ||
| 1028 | 1022 | ||
| 1029 | Many of these commands act on the ``current'' heading line. If | 1023 | Many of these commands act on the ``current'' heading line. If |
| 1030 | point is on a heading line, that is the current heading line; if point | 1024 | point is on a heading line, that is the current heading line; if point |
| @@ -1068,72 +1062,64 @@ the headings leading up from there to the top level of the outline | |||
| 1068 | @findex show-entry | 1062 | @findex show-entry |
| 1069 | @kindex C-c C-c @r{(Outline mode)} | 1063 | @kindex C-c C-c @r{(Outline mode)} |
| 1070 | @kindex C-c C-e @r{(Outline mode)} | 1064 | @kindex C-c C-e @r{(Outline mode)} |
| 1071 | Two commands that are exact opposites are @kbd{C-c C-c} | 1065 | The simplest of these commands are @kbd{C-c C-c} |
| 1072 | (@code{hide-entry}) and @kbd{C-c C-e} (@code{show-entry}). They apply | 1066 | (@code{hide-entry}), which hides the body lines directly following the |
| 1073 | to the body lines directly following the current heading line. | 1067 | current heading line, and @kbd{C-c C-e} (@code{show-entry}), which |
| 1074 | Subheadings and their bodies are not affected. | 1068 | reveals them. Subheadings and their bodies are not affected. |
| 1075 | 1069 | ||
| 1076 | @findex hide-subtree | 1070 | @findex hide-subtree |
| 1077 | @findex show-subtree | 1071 | @findex show-subtree |
| 1078 | @kindex C-c C-s @r{(Outline mode)} | 1072 | @kindex C-c C-s @r{(Outline mode)} |
| 1079 | @kindex C-c C-d @r{(Outline mode)} | 1073 | @kindex C-c C-d @r{(Outline mode)} |
| 1080 | @cindex subtree (Outline mode) | 1074 | @cindex subtree (Outline mode) |
| 1081 | Two more powerful opposites are @kbd{C-c C-d} (@code{hide-subtree}) | 1075 | The commands @kbd{C-c C-d} (@code{hide-subtree}) and @kbd{C-c C-s} |
| 1082 | and @kbd{C-c C-s} (@code{show-subtree}). Both apply to the current | 1076 | (@code{show-subtree}) are more powerful. They apply to the current |
| 1083 | heading line's @dfn{subtree}: its body, all its subheadings, both | 1077 | heading line's @dfn{subtree}: its body, all of its subheadings, both |
| 1084 | direct and indirect, and all of their bodies. In other words, the | 1078 | direct and indirect, and all of their bodies. |
| 1085 | subtree contains everything following the current heading line, up to | ||
| 1086 | and not including the next heading of the same or higher rank. | ||
| 1087 | 1079 | ||
| 1088 | @findex hide-leaves | 1080 | @findex hide-leaves |
| 1089 | @findex show-branches | 1081 | @findex show-branches |
| 1082 | @findex show-children | ||
| 1090 | @kindex C-c C-l @r{(Outline mode)} | 1083 | @kindex C-c C-l @r{(Outline mode)} |
| 1091 | @kindex C-c C-k @r{(Outline mode)} | 1084 | @kindex C-c C-k @r{(Outline mode)} |
| 1092 | Intermediate between a visible subtree and an invisible one is having | ||
| 1093 | all the subheadings visible but none of the body. There are two | ||
| 1094 | commands for doing this, depending on whether you want to hide the | ||
| 1095 | bodies or make the subheadings visible. They are @kbd{C-c C-l} | ||
| 1096 | (@code{hide-leaves}) and @kbd{C-c C-k} (@code{show-branches}). | ||
| 1097 | |||
| 1098 | @kindex C-c C-i @r{(Outline mode)} | 1085 | @kindex C-c C-i @r{(Outline mode)} |
| 1099 | @findex show-children | 1086 | The command @kbd{C-c C-l} (@code{hide-leaves}) hides the body of the |
| 1100 | A little weaker than @code{show-branches} is @kbd{C-c C-i} | 1087 | current heading line as well as all the bodies in its subtree; the |
| 1101 | (@code{show-children}). It makes just the direct subheadings | 1088 | subheadings themselves are left visible. The command @kbd{C-c C-k} |
| 1102 | visible---those one level down. Deeper subheadings remain invisible, if | 1089 | (@code{show-branches}) reveals the subheadings, if they had previously |
| 1103 | they were invisible. | 1090 | been hidden (e.g.@: by @kbd{C-c C-d}). The command @kbd{C-c C-i} |
| 1091 | (@code{show-children}) is a weaker version of this; it reveals just | ||
| 1092 | the direct subheadings, i.e.@: those one level down. | ||
| 1093 | |||
| 1094 | @findex hide-other | ||
| 1095 | @kindex C-c C-o @r{(Outline mode)} | ||
| 1096 | The command @kbd{C-c C-o} (@code{hide-other}) hides everything | ||
| 1097 | except the entry that point is in, plus its parents (the headers | ||
| 1098 | leading up from there to top level in the outline) and the top level | ||
| 1099 | headings. | ||
| 1104 | 1100 | ||
| 1105 | @findex hide-body | 1101 | @findex hide-body |
| 1106 | @findex show-all | 1102 | @findex show-all |
| 1107 | @kindex C-c C-t @r{(Outline mode)} | 1103 | @kindex C-c C-t @r{(Outline mode)} |
| 1108 | @kindex C-c C-a @r{(Outline mode)} | 1104 | @kindex C-c C-a @r{(Outline mode)} |
| 1109 | Two commands have a blanket effect on the whole file. @kbd{C-c C-t} | ||
| 1110 | (@code{hide-body}) makes all body lines invisible, so that you see just | ||
| 1111 | the outline structure (as a special exception, it will not hide lines | ||
| 1112 | at the top of the file, preceding the first header line, even though | ||
| 1113 | these are technically body lines). @kbd{C-c C-a} (@code{show-all}) | ||
| 1114 | makes all lines visible. These commands can be thought of as a pair | ||
| 1115 | of opposites even though @kbd{C-c C-a} applies to more than just body | ||
| 1116 | lines. | ||
| 1117 | |||
| 1118 | @findex hide-sublevels | 1105 | @findex hide-sublevels |
| 1119 | @kindex C-c C-q @r{(Outline mode)} | 1106 | @kindex C-c C-q @r{(Outline mode)} |
| 1120 | The command @kbd{C-c C-q} (@code{hide-sublevels}) hides all but the | 1107 | The remaining commands affect the whole buffer. @kbd{C-c C-t} |
| 1121 | top level headings. With a numeric argument @var{n}, it hides everything | 1108 | (@code{hide-body}) makes all body lines invisible, so that you see |
| 1122 | except the top @var{n} levels of heading lines. | 1109 | just the outline structure (as a special exception, it will not hide |
| 1123 | 1110 | lines at the top of the file, preceding the first header line, even | |
| 1124 | @findex hide-other | 1111 | though these are technically body lines). @kbd{C-c C-a} |
| 1125 | @kindex C-c C-o @r{(Outline mode)} | 1112 | (@code{show-all}) makes all lines visible. @kbd{C-c C-q} |
| 1126 | The command @kbd{C-c C-o} (@code{hide-other}) hides everything except | 1113 | (@code{hide-sublevels}) hides all but the top level headings; with a |
| 1127 | the heading and body text that point is in, plus its parents (the headers | 1114 | numeric argument @var{n}, it hides everything except the top @var{n} |
| 1128 | leading up from there to top level in the outline) and the top level | 1115 | levels of heading lines. |
| 1129 | headings. | ||
| 1130 | 1116 | ||
| 1131 | @findex reveal-mode | 1117 | @findex reveal-mode |
| 1132 | When incremental search finds text that is hidden by Outline mode, | 1118 | When incremental search finds text that is hidden by Outline mode, |
| 1133 | it makes that part of the buffer visible. If you exit the search | 1119 | it makes that part of the buffer visible. If you exit the search at |
| 1134 | at that position, the text remains visible. You can also | 1120 | that position, the text remains visible. You can also automatically |
| 1135 | automatically make text visible as you navigate in it by using | 1121 | make text visible as you navigate in it by using Reveal mode (@kbd{M-x |
| 1136 | @kbd{M-x reveal-mode}. | 1122 | reveal-mode}), a buffer-local minor mode. |
| 1137 | 1123 | ||
| 1138 | @node Outline Views | 1124 | @node Outline Views |
| 1139 | @subsection Viewing One Outline in Multiple Views | 1125 | @subsection Viewing One Outline in Multiple Views |
| @@ -1253,7 +1239,7 @@ it in order for this to take effect. | |||
| 1253 | 1239 | ||
| 1254 | To use the Foldout package, you can type @kbd{M-x load-library | 1240 | To use the Foldout package, you can type @kbd{M-x load-library |
| 1255 | @key{RET} foldout @key{RET}}; or you can arrange for to do that | 1241 | @key{RET} foldout @key{RET}}; or you can arrange for to do that |
| 1256 | automatically by putting this in your @file{.emacs} file: | 1242 | automatically by putting this in your init file (@pxref{Init File}): |
| 1257 | 1243 | ||
| 1258 | @example | 1244 | @example |
| 1259 | (eval-after-load "outline" '(require 'foldout)) | 1245 | (eval-after-load "outline" '(require 'foldout)) |
| @@ -1300,18 +1286,48 @@ Emacs does not guess right, you can select the correct variant of | |||
| 1300 | @TeX{} mode using the command @kbd{M-x plain-tex-mode}, @kbd{M-x | 1286 | @TeX{} mode using the command @kbd{M-x plain-tex-mode}, @kbd{M-x |
| 1301 | latex-mode}, @kbd{M-x slitex-mode}, or @kbd{doctex-mode}. | 1287 | latex-mode}, @kbd{M-x slitex-mode}, or @kbd{doctex-mode}. |
| 1302 | 1288 | ||
| 1303 | Emacs also provides Bib@TeX{} mode, a major mode for editing | 1289 | The following sections document the features of @TeX{} mode and its |
| 1304 | Bib@TeX{} files. Bib@TeX{} is a tool for storing and formatting | 1290 | variants. There are several other @TeX{}-related Emacs packages, |
| 1305 | bibliographic references, which is commonly used together with | 1291 | which are not documented in this manual: |
| 1306 | La@TeX{}. In addition, the Ref@TeX{} package provides a minor mode | 1292 | |
| 1307 | which can be used in conjunction with La@TeX{} mode to manage | 1293 | @itemize @bullet |
| 1308 | bibliographic references. @inforef{Top,, reftex}. | 1294 | @item |
| 1295 | Bib@TeX{} mode is a major mode for Bib@TeX{} files, which are commonly | ||
| 1296 | used for keeping bibliographic references for La@TeX{} documents. For | ||
| 1297 | more information, see the documentation string for the command | ||
| 1298 | @code{bibtex-mode}. | ||
| 1299 | |||
| 1300 | @item | ||
| 1301 | The Ref@TeX{} package provides a minor mode which can be used in | ||
| 1302 | conjunction with La@TeX{} mode to manage bibliographic references. | ||
| 1303 | @ifinfo | ||
| 1304 | @xref{Top,The Ref@TeX{} Manual,,reftex}. | ||
| 1305 | @end ifinfo | ||
| 1306 | @ifnotinfo | ||
| 1307 | For more information, see the Ref@TeX{} Info manual, which is | ||
| 1308 | distributed with Emacs. | ||
| 1309 | @end ifnotinfo | ||
| 1310 | |||
| 1311 | @item | ||
| 1312 | The AUC@TeX{} package provides more advanced features for editing | ||
| 1313 | @TeX{} and its related formats, including the ability to preview | ||
| 1314 | @TeX{} equations within Emacs buffers. Unlike Bib@TeX{} mode and the | ||
| 1315 | Ref@TeX{} package, AUC@TeX{} is not distributed with Emacs by default. | ||
| 1316 | It can be downloaded via the Package Menu (@pxref{Packages}); once | ||
| 1317 | installed, see | ||
| 1318 | @ifinfo | ||
| 1319 | @ref{Top,The AUC@TeX{} Manual,,auctex}. | ||
| 1320 | @end ifinfo | ||
| 1321 | @ifnotinfo | ||
| 1322 | the AUC@TeX{} manual, which is included with the package. | ||
| 1323 | @end ifnotinfo | ||
| 1324 | @end itemize | ||
| 1309 | 1325 | ||
| 1310 | @menu | 1326 | @menu |
| 1311 | * Editing: TeX Editing. Special commands for editing in TeX mode. | 1327 | * TeX Editing:: Special commands for editing in TeX mode. |
| 1312 | * LaTeX: LaTeX Editing. Additional commands for LaTeX input files. | 1328 | * LaTeX Editing:: Additional commands for LaTeX input files. |
| 1313 | * Printing: TeX Print. Commands for printing part of a file with TeX. | 1329 | * TeX Print:: Commands for printing part of a file with TeX. |
| 1314 | * Misc: TeX Misc. Customization of TeX mode, and related features. | 1330 | * TeX Misc:: Customization of TeX mode, and related features. |
| 1315 | @end menu | 1331 | @end menu |
| 1316 | 1332 | ||
| 1317 | @node TeX Editing | 1333 | @node TeX Editing |
| @@ -1336,12 +1352,10 @@ Move forward past the next unmatched close brace (@code{up-list}). | |||
| 1336 | @findex tex-insert-quote | 1352 | @findex tex-insert-quote |
| 1337 | @kindex " @r{(@TeX{} mode)} | 1353 | @kindex " @r{(@TeX{} mode)} |
| 1338 | In @TeX{}, the character @samp{"} is not normally used; instead, | 1354 | In @TeX{}, the character @samp{"} is not normally used; instead, |
| 1339 | quotations begin with @samp{``} and end with @samp{''}. For | 1355 | quotations begin with @samp{``} and end with @samp{''}. @TeX{} mode |
| 1340 | convenience, @TeX{} mode overrides the normal meaning of the key | 1356 | therefore binds the @kbd{"} key to the @code{tex-insert-quote} |
| 1341 | @kbd{"} with a command that inserts a pair of single-quotes or | 1357 | command. This inserts @samp{``} after whitespace or an open brace, |
| 1342 | backquotes (@code{tex-insert-quote}). To be precise, it inserts | 1358 | @samp{"} after a backslash, and @samp{''} after any other character. |
| 1343 | @samp{``} after whitespace or an open brace, @samp{"} after a | ||
| 1344 | backslash, and @samp{''} after any other character. | ||
| 1345 | 1359 | ||
| 1346 | As a special exception, if you type @kbd{"} when the text before | 1360 | As a special exception, if you type @kbd{"} when the text before |
| 1347 | point is either @samp{``} or @samp{''}, Emacs replaces that preceding | 1361 | point is either @samp{``} or @samp{''}, Emacs replaces that preceding |
| @@ -1349,9 +1363,6 @@ text with a single @samp{"} character. You can therefore type | |||
| 1349 | @kbd{""} to insert @samp{"}, should you ever need to do so. (You can | 1363 | @kbd{""} to insert @samp{"}, should you ever need to do so. (You can |
| 1350 | also use @kbd{C-q "} to insert this character.) | 1364 | also use @kbd{C-q "} to insert this character.) |
| 1351 | 1365 | ||
| 1352 | To disable the @kbd{"} expansion feature, eliminate that binding in | ||
| 1353 | the local map (@pxref{Key Bindings}). | ||
| 1354 | |||
| 1355 | In @TeX{} mode, @samp{$} has a special syntax code which attempts to | 1366 | In @TeX{} mode, @samp{$} has a special syntax code which attempts to |
| 1356 | understand the way @TeX{} math mode delimiters match. When you insert a | 1367 | understand the way @TeX{} math mode delimiters match. When you insert a |
| 1357 | @samp{$} that is meant to exit math mode, the position of the matching | 1368 | @samp{$} that is meant to exit math mode, the position of the matching |
| @@ -1376,13 +1387,14 @@ text that belongs inside. Afterward, use the command @kbd{C-c @}} | |||
| 1376 | @findex tex-validate-region | 1387 | @findex tex-validate-region |
| 1377 | @findex tex-terminate-paragraph | 1388 | @findex tex-terminate-paragraph |
| 1378 | @kindex C-j @r{(@TeX{} mode)} | 1389 | @kindex C-j @r{(@TeX{} mode)} |
| 1379 | There are two commands for checking the matching of braces. @kbd{C-j} | 1390 | There are two commands for checking the matching of braces. |
| 1380 | (@code{tex-terminate-paragraph}) checks the paragraph before point, and | 1391 | @kbd{C-j} (@code{tex-terminate-paragraph}) checks the paragraph before |
| 1381 | inserts two newlines to start a new paragraph. It outputs a message in | 1392 | point, and inserts two newlines to start a new paragraph. It outputs |
| 1382 | the echo area if any mismatch is found. @kbd{M-x tex-validate-region} | 1393 | a message in the echo area if any mismatch is found. @kbd{M-x |
| 1383 | checks a region, paragraph by paragraph. The errors are listed in the | 1394 | tex-validate-region} checks a region, paragraph by paragraph. The |
| 1384 | @samp{*Occur*} buffer, and you can use @kbd{C-c C-c} or @kbd{Mouse-2} in | 1395 | errors are listed in an @samp{*Occur*} buffer; you can use the usual |
| 1385 | that buffer to go to a particular mismatch. | 1396 | Occur mode commands in that buffer, such as @kbd{C-c C-c}, to visit a |
| 1397 | particular mismatch (@pxref{Other Repeating Search}). | ||
| 1386 | 1398 | ||
| 1387 | Note that Emacs commands count square brackets and parentheses in | 1399 | Note that Emacs commands count square brackets and parentheses in |
| 1388 | @TeX{} mode, not just braces. This is not strictly correct for the | 1400 | @TeX{} mode, not just braces. This is not strictly correct for the |
| @@ -1394,8 +1406,8 @@ to work with them. | |||
| 1394 | @node LaTeX Editing | 1406 | @node LaTeX Editing |
| 1395 | @subsection La@TeX{} Editing Commands | 1407 | @subsection La@TeX{} Editing Commands |
| 1396 | 1408 | ||
| 1397 | La@TeX{} mode (and its obsolete variant, Sli@TeX{} mode) provide a | 1409 | La@TeX{} mode provides a few extra features not applicable to plain |
| 1398 | few extra features not applicable to plain @TeX{}: | 1410 | @TeX{}: |
| 1399 | 1411 | ||
| 1400 | @table @kbd | 1412 | @table @kbd |
| 1401 | @item C-c C-o | 1413 | @item C-c C-o |
| @@ -1408,60 +1420,59 @@ Close the innermost La@TeX{} block not yet closed | |||
| 1408 | 1420 | ||
| 1409 | @findex tex-latex-block | 1421 | @findex tex-latex-block |
| 1410 | @kindex C-c C-o @r{(La@TeX{} mode)} | 1422 | @kindex C-c C-o @r{(La@TeX{} mode)} |
| 1411 | @vindex latex-block-names | 1423 | In La@TeX{} input, @samp{\begin} and @samp{\end} tags are used to |
| 1412 | In La@TeX{} input, @samp{\begin} and @samp{\end} commands are used to | 1424 | group blocks of text. To insert a block, type @kbd{C-c C-o} |
| 1413 | group blocks of text. To insert a @samp{\begin} and a matching | 1425 | (@code{tex-latex-block}). This prompts for a block type, and inserts |
| 1414 | @samp{\end} (on a new line following the @samp{\begin}), use @kbd{C-c | 1426 | the appropriate matching @samp{\begin} and @samp{\end} tags, leaving a |
| 1415 | C-o} (@code{tex-latex-block}). A blank line is inserted between the | 1427 | blank line between the two and moving point there. |
| 1416 | two, and point is left there. You can use completion when you enter the | ||
| 1417 | block type; to specify additional block type names beyond the standard | ||
| 1418 | list, set the variable @code{latex-block-names}. For example, here's | ||
| 1419 | how to add @samp{theorem}, @samp{corollary}, and @samp{proof}: | ||
| 1420 | 1428 | ||
| 1421 | @example | 1429 | @vindex latex-block-names |
| 1422 | (setq latex-block-names '("theorem" "corollary" "proof")) | 1430 | When entering the block type argument to @kbd{C-c C-o}, you can use |
| 1423 | @end example | 1431 | the usual completion commands (@pxref{Completion}). The default |
| 1432 | completion list contains the standard La@TeX{} block types. If you | ||
| 1433 | want additional block types for completion, customize the list | ||
| 1434 | variable @code{latex-block-names}. | ||
| 1424 | 1435 | ||
| 1425 | @findex tex-close-latex-block | 1436 | @findex tex-close-latex-block |
| 1426 | @kindex C-c C-e @r{(La@TeX{} mode)} | 1437 | @kindex C-c C-e @r{(La@TeX{} mode)} |
| 1427 | In La@TeX{} input, @samp{\begin} and @samp{\end} commands must | 1438 | In La@TeX{} input, @samp{\begin} and @samp{\end} tags must balance. |
| 1428 | balance. You can use @kbd{C-c C-e} (@code{tex-close-latex-block}) to | 1439 | You can use @kbd{C-c C-e} (@code{tex-close-latex-block}) to insert an |
| 1429 | insert automatically a matching @samp{\end} to match the last unmatched | 1440 | @samp{\end} tag which matches the last unmatched @samp{\begin}. It |
| 1430 | @samp{\begin}. It indents the @samp{\end} to match the corresponding | 1441 | also indents the @samp{\end} to match the corresponding @samp{\begin}, |
| 1431 | @samp{\begin}. It inserts a newline after @samp{\end} if point is at | 1442 | and inserts a newline after the @samp{\end} tag if point is at the |
| 1432 | the beginning of a line. | 1443 | beginning of a line. |
| 1433 | 1444 | ||
| 1434 | @node TeX Print | 1445 | @node TeX Print |
| 1435 | @subsection @TeX{} Printing Commands | 1446 | @subsection @TeX{} Printing Commands |
| 1436 | 1447 | ||
| 1437 | You can invoke @TeX{} as an inferior of Emacs on either the entire | 1448 | You can invoke @TeX{} as an subprocess of Emacs, supplying either |
| 1438 | contents of the buffer or just a region at a time. Running @TeX{} in | 1449 | the entire contents of the buffer or just part of it (e.g.@: one |
| 1439 | this way on just one chapter is a good way to see what your changes | 1450 | chapter of a larger document). |
| 1440 | look like without taking the time to format the entire file. | ||
| 1441 | 1451 | ||
| 1442 | @table @kbd | 1452 | @table @kbd |
| 1453 | @item C-c C-b | ||
| 1454 | Invoke @TeX{} on the entire current buffer (@code{tex-buffer}). | ||
| 1443 | @item C-c C-r | 1455 | @item C-c C-r |
| 1444 | Invoke @TeX{} on the current region, together with the buffer's header | 1456 | Invoke @TeX{} on the current region, together with the buffer's header |
| 1445 | (@code{tex-region}). | 1457 | (@code{tex-region}). |
| 1446 | @item C-c C-b | ||
| 1447 | Invoke @TeX{} on the entire current buffer (@code{tex-buffer}). | ||
| 1448 | @item C-c @key{TAB} | ||
| 1449 | Invoke Bib@TeX{} on the current file (@code{tex-bibtex-file}). | ||
| 1450 | @item C-c C-f | 1458 | @item C-c C-f |
| 1451 | Invoke @TeX{} on the current file (@code{tex-file}). | 1459 | Invoke @TeX{} on the current file (@code{tex-file}). |
| 1452 | @item C-c C-l | 1460 | |
| 1453 | Recenter the window showing output from the inferior @TeX{} so that | ||
| 1454 | the last line can be seen (@code{tex-recenter-output-buffer}). | ||
| 1455 | @item C-c C-k | ||
| 1456 | Kill the @TeX{} subprocess (@code{tex-kill-job}). | ||
| 1457 | @item C-c C-p | ||
| 1458 | Print the output from the last @kbd{C-c C-r}, @kbd{C-c C-b}, or @kbd{C-c | ||
| 1459 | C-f} command (@code{tex-print}). | ||
| 1460 | @item C-c C-v | 1461 | @item C-c C-v |
| 1461 | Preview the output from the last @kbd{C-c C-r}, @kbd{C-c C-b}, or @kbd{C-c | 1462 | Preview the output from the last @kbd{C-c C-r}, @kbd{C-c C-b}, or @kbd{C-c |
| 1462 | C-f} command (@code{tex-view}). | 1463 | C-f} command (@code{tex-view}). |
| 1463 | @item C-c C-q | 1464 | |
| 1464 | Show the printer queue (@code{tex-show-print-queue}). | 1465 | @item C-c C-p |
| 1466 | Print the output from the last @kbd{C-c C-b}, @kbd{C-c C-r}, or | ||
| 1467 | @kbd{C-c C-f} command (@code{tex-print}). | ||
| 1468 | |||
| 1469 | @item C-c @key{TAB} | ||
| 1470 | Invoke Bib@TeX{} on the current file (@code{tex-bibtex-file}). | ||
| 1471 | @item C-c C-l | ||
| 1472 | Recenter the window showing output from @TeX{} so that the last line | ||
| 1473 | can be seen (@code{tex-recenter-output-buffer}). | ||
| 1474 | @item C-c C-k | ||
| 1475 | Kill the @TeX{} subprocess (@code{tex-kill-job}). | ||
| 1465 | @item C-c C-c | 1476 | @item C-c C-c |
| 1466 | Invoke some other compilation command on the entire current buffer | 1477 | Invoke some other compilation command on the entire current buffer |
| 1467 | (@code{tex-compile}). | 1478 | (@code{tex-compile}). |
| @@ -1469,49 +1480,51 @@ Invoke some other compilation command on the entire current buffer | |||
| 1469 | 1480 | ||
| 1470 | @findex tex-buffer | 1481 | @findex tex-buffer |
| 1471 | @kindex C-c C-b @r{(@TeX{} mode)} | 1482 | @kindex C-c C-b @r{(@TeX{} mode)} |
| 1472 | @findex tex-print | ||
| 1473 | @kindex C-c C-p @r{(@TeX{} mode)} | ||
| 1474 | @findex tex-view | 1483 | @findex tex-view |
| 1475 | @kindex C-c C-v @r{(@TeX{} mode)} | 1484 | @kindex C-c C-v @r{(@TeX{} mode)} |
| 1476 | @findex tex-show-print-queue | 1485 | @findex tex-print |
| 1477 | @kindex C-c C-q @r{(@TeX{} mode)} | 1486 | @kindex C-c C-p @r{(@TeX{} mode)} |
| 1478 | You can pass the current buffer through an inferior @TeX{} by means of | 1487 | To pass the current buffer through @TeX{}, type @kbd{C-c C-b} |
| 1479 | @kbd{C-c C-b} (@code{tex-buffer}). The formatted output appears in a | 1488 | (@code{tex-buffer}). The formatted output goes in a temporary file, |
| 1480 | temporary file; to print it, type @kbd{C-c C-p} (@code{tex-print}). | 1489 | normally a @file{.dvi} file. Afterwards, you can type @kbd{C-c C-v} |
| 1481 | Afterward, you can use @kbd{C-c C-q} (@code{tex-show-print-queue}) to | 1490 | (@code{tex-view}) to launch an external program, such as |
| 1482 | view the progress of your output towards being printed. If your terminal | 1491 | @command{xdvi}, to view this output file. You can also type @kbd{C-c |
| 1483 | has the ability to display @TeX{} output files, you can preview the | 1492 | C-p} (@code{tex-print}) to print a hardcopy of the output file. |
| 1484 | output on the terminal with @kbd{C-c C-v} (@code{tex-view}). | ||
| 1485 | 1493 | ||
| 1486 | @cindex @env{TEXINPUTS} environment variable | 1494 | @cindex @env{TEXINPUTS} environment variable |
| 1487 | @vindex tex-directory | 1495 | @vindex tex-directory |
| 1488 | You can specify the directory to use for running @TeX{} by setting the | 1496 | By default, @kbd{C-c C-b} runs @TeX{} in the current directory. The |
| 1489 | variable @code{tex-directory}. @code{"."} is the default value. If | 1497 | output of @TeX{} also goes in this directory. To run @TeX{} in a |
| 1490 | your environment variable @env{TEXINPUTS} contains relative directory | 1498 | different directory, change the variable @code{tex-directory} to the |
| 1491 | names, or if your files contains @samp{\input} commands with relative | 1499 | desired directory name. If your environment variable @env{TEXINPUTS} |
| 1492 | file names, then @code{tex-directory} @emph{must} be @code{"."} or you | 1500 | contains relative directory names, or if your files contains |
| 1493 | will get the wrong results. Otherwise, it is safe to specify some other | 1501 | @samp{\input} commands with relative file names, then |
| 1494 | directory, such as @code{"/tmp"}. | 1502 | @code{tex-directory} @emph{must} be @code{"."} or you will get the |
| 1503 | wrong results. Otherwise, it is safe to specify some other directory, | ||
| 1504 | such as @code{"/tmp"}. | ||
| 1495 | 1505 | ||
| 1496 | @vindex tex-run-command | 1506 | @vindex tex-run-command |
| 1497 | @vindex latex-run-command | 1507 | @vindex latex-run-command |
| 1498 | @vindex slitex-run-command | ||
| 1499 | @vindex tex-dvi-print-command | ||
| 1500 | @vindex tex-dvi-view-command | 1508 | @vindex tex-dvi-view-command |
| 1501 | @vindex tex-show-queue-command | 1509 | @vindex tex-dvi-print-command |
| 1502 | If you want to specify which shell commands are used in the inferior @TeX{}, | 1510 | The buffer's @TeX{} variant determines what shell command @kbd{C-c |
| 1503 | you can do so by setting the values of the variables @code{tex-run-command}, | 1511 | C-b} actually runs. In Plain @TeX{} mode, it is specified by the |
| 1504 | @code{latex-run-command}, @code{slitex-run-command}, | 1512 | variable @code{tex-run-command}, which defaults to @code{"tex"}. In |
| 1505 | @code{tex-dvi-print-command}, @code{tex-dvi-view-command}, and | 1513 | La@TeX{} mode, it is specified by @code{latex-run-command}, which |
| 1506 | @code{tex-show-queue-command}. The default values may | 1514 | defaults to @code{"latex"}. The shell command that @kbd{C-c C-v} runs |
| 1507 | (or may not) be appropriate for your system. | 1515 | to view the @file{.dvi} output is determined by the variable |
| 1508 | 1516 | @code{tex-dvi-view-command}, regardless of the @TeX{} variant. The | |
| 1509 | Normally, the file name given to these commands comes at the end of | 1517 | shell command that @kbd{C-c C-p} runs to print the output is |
| 1510 | the command string; for example, @samp{latex @var{filename}}. In some | 1518 | determined by the variable @code{tex-dvi-print-command}. |
| 1511 | cases, however, the file name needs to be embedded in the command; an | 1519 | |
| 1512 | example is when you need to provide the file name as an argument to one | 1520 | Normally, Emacs automatically appends the output file name to the |
| 1513 | command whose output is piped to another. You can specify where to put | 1521 | shell command strings described in the preceding paragraph. For |
| 1514 | the file name with @samp{*} in the command string. For example, | 1522 | example, if @code{tex-dvi-view-command} is @code{"xdvi"}, @kbd{C-c |
| 1523 | C-v} runs @command{xdvi @var{output-file-name}}. In some cases, | ||
| 1524 | however, the file name needs to be embedded in the command, e.g.@: if | ||
| 1525 | you need to provide the file name as an argument to one command whose | ||
| 1526 | output is piped to another. You can specify where to put the file | ||
| 1527 | name with @samp{*} in the command string. For example, | ||
| 1515 | 1528 | ||
| 1516 | @example | 1529 | @example |
| 1517 | (setq tex-dvi-print-command "dvips -f * | lpr") | 1530 | (setq tex-dvi-print-command "dvips -f * | lpr") |
| @@ -1521,12 +1534,12 @@ the file name with @samp{*} in the command string. For example, | |||
| 1521 | @kindex C-c C-k @r{(@TeX{} mode)} | 1534 | @kindex C-c C-k @r{(@TeX{} mode)} |
| 1522 | @findex tex-recenter-output-buffer | 1535 | @findex tex-recenter-output-buffer |
| 1523 | @kindex C-c C-l @r{(@TeX{} mode)} | 1536 | @kindex C-c C-l @r{(@TeX{} mode)} |
| 1524 | The terminal output from @TeX{}, including any error messages, appears | 1537 | The terminal output from @TeX{}, including any error messages, |
| 1525 | in a buffer called @samp{*tex-shell*}. If @TeX{} gets an error, you can | 1538 | appears in a buffer called @samp{*tex-shell*}. If @TeX{} gets an |
| 1526 | switch to this buffer and feed it input (this works as in Shell mode; | 1539 | error, you can switch to this buffer and feed it input (this works as |
| 1527 | @pxref{Interactive Shell}). Without switching to this buffer you can | 1540 | in Shell mode; @pxref{Interactive Shell}). Without switching to this |
| 1528 | scroll it so that its last line is visible by typing @kbd{C-c | 1541 | buffer you can scroll it so that its last line is visible by typing |
| 1529 | C-l}. | 1542 | @kbd{C-c C-l}. |
| 1530 | 1543 | ||
| 1531 | Type @kbd{C-c C-k} (@code{tex-kill-job}) to kill the @TeX{} process if | 1544 | Type @kbd{C-c C-k} (@code{tex-kill-job}) to kill the @TeX{} process if |
| 1532 | you see that its output is no longer useful. Using @kbd{C-c C-b} or | 1545 | you see that its output is no longer useful. Using @kbd{C-c C-b} or |
| @@ -1534,14 +1547,14 @@ you see that its output is no longer useful. Using @kbd{C-c C-b} or | |||
| 1534 | 1547 | ||
| 1535 | @findex tex-region | 1548 | @findex tex-region |
| 1536 | @kindex C-c C-r @r{(@TeX{} mode)} | 1549 | @kindex C-c C-r @r{(@TeX{} mode)} |
| 1537 | You can also pass an arbitrary region through an inferior @TeX{} by typing | 1550 | You can also pass an arbitrary region through @TeX{} by typing |
| 1538 | @kbd{C-c C-r} (@code{tex-region}). This is tricky, however, because most files | 1551 | @kbd{C-c C-r} (@code{tex-region}). This is tricky, however, because |
| 1539 | of @TeX{} input contain commands at the beginning to set parameters and | 1552 | most files of @TeX{} input contain commands at the beginning to set |
| 1540 | define macros, without which no later part of the file will format | 1553 | parameters and define macros, without which no later part of the file |
| 1541 | correctly. To solve this problem, @kbd{C-c C-r} allows you to designate a | 1554 | will format correctly. To solve this problem, @kbd{C-c C-r} allows |
| 1542 | part of the file as containing essential commands; it is included before | 1555 | you to designate a part of the file as containing essential commands; |
| 1543 | the specified region as part of the input to @TeX{}. The designated part | 1556 | it is included before the specified region as part of the input to |
| 1544 | of the file is called the @dfn{header}. | 1557 | @TeX{}. The designated part of the file is called the @dfn{header}. |
| 1545 | 1558 | ||
| 1546 | @cindex header (@TeX{} mode) | 1559 | @cindex header (@TeX{} mode) |
| 1547 | To indicate the bounds of the header in Plain @TeX{} mode, you insert two | 1560 | To indicate the bounds of the header in Plain @TeX{} mode, you insert two |
| @@ -1639,29 +1652,6 @@ keys (@pxref{Completion}). | |||
| 1639 | The commands @kbd{M-x iso-iso2tex}, @kbd{M-x iso-tex2iso}, @kbd{M-x | 1652 | The commands @kbd{M-x iso-iso2tex}, @kbd{M-x iso-tex2iso}, @kbd{M-x |
| 1640 | iso-iso2gtex} and @kbd{M-x iso-gtex2iso} can be used to convert | 1653 | iso-iso2gtex} and @kbd{M-x iso-gtex2iso} can be used to convert |
| 1641 | between Latin-1 encoded files and @TeX{}-encoded equivalents. | 1654 | between Latin-1 encoded files and @TeX{}-encoded equivalents. |
| 1642 | @ignore | ||
| 1643 | @c Too cryptic to be useful, too cryptic for me to make it better -- rms. | ||
| 1644 | They | ||
| 1645 | are included by default in the @code{format-alist} variable, so they | ||
| 1646 | can be used with @kbd{M-x format-find-file}, for instance. | ||
| 1647 | @end ignore | ||
| 1648 | |||
| 1649 | @ignore @c Not worth documenting if it is only for Czech -- rms. | ||
| 1650 | @findex tildify-buffer | ||
| 1651 | @findex tildify-region | ||
| 1652 | @cindex ties, @TeX{}, inserting | ||
| 1653 | @cindex hard spaces, @TeX{}, inserting | ||
| 1654 | The commands @kbd{M-x tildify-buffer} and @kbd{M-x tildify-region} | ||
| 1655 | insert @samp{~} (@dfn{tie}) characters where they are conventionally | ||
| 1656 | required. This is set up for Czech---customize the group | ||
| 1657 | @samp{tildify} for other languages or for other sorts of markup. | ||
| 1658 | @end ignore | ||
| 1659 | |||
| 1660 | @cindex Ref@TeX{} package | ||
| 1661 | @cindex references, La@TeX{} | ||
| 1662 | @cindex La@TeX{} references | ||
| 1663 | For managing all kinds of references for La@TeX{}, you can use | ||
| 1664 | Ref@TeX{}. @inforef{Top,, reftex}. | ||
| 1665 | 1655 | ||
| 1666 | @node HTML Mode | 1656 | @node HTML Mode |
| 1667 | @section SGML and HTML Modes | 1657 | @section SGML and HTML Modes |
| @@ -1764,22 +1754,27 @@ used as a cheap preview (@code{sgml-tags-invisible}). | |||
| 1764 | @cindex mode, nXML | 1754 | @cindex mode, nXML |
| 1765 | @findex nxml-mode | 1755 | @findex nxml-mode |
| 1766 | @cindex XML schema | 1756 | @cindex XML schema |
| 1767 | The default mode for editing XML documents is called nXML mode | 1757 | The major mode for editing XML documents is called nXML mode. This |
| 1768 | (@code{xml-mode} or @code{nxml-mode}). This is a powerful major mode | 1758 | is a powerful major mode that can recognize many existing XML schema |
| 1769 | that can recognize many existing XML schema and use them to provide | 1759 | and use them to provide completion of XML elements via |
| 1770 | completion of XML elements via @kbd{C-@key{RET}} or @kbd{M-@key{TAB}}, | 1760 | @kbd{C-@key{RET}} or @kbd{M-@key{TAB}}, as well as ``on-the-fly'' XML |
| 1771 | as well as ``on-the-fly'' XML validation with error highlighting. It | 1761 | validation with error highlighting. To enable nXML mode in an |
| 1772 | is described in its own manual. @xref{Top, nXML Mode,,nxml-mode, nXML | 1762 | existing buffer, type @kbd{M-x nxml-mode}, or, equivalently, @kbd{M-x |
| 1773 | Mode}. | 1763 | xml-mode}. Emacs uses nXML mode for files which have the extension |
| 1764 | @file{.xml}. For XHTML files, which have the extension @file{.xhtml}, | ||
| 1765 | Emacs uses HTML mode by default; you can make it use nXML mode by | ||
| 1766 | customizing the variable @code{auto-mode-alist} (@pxref{Choosing | ||
| 1767 | Modes}). nXML mode is described in its own manual: @xref{Top, nXML | ||
| 1768 | Mode,,nxml-mode, nXML Mode}. | ||
| 1774 | 1769 | ||
| 1775 | @vindex sgml-xml-mode | 1770 | @vindex sgml-xml-mode |
| 1776 | However, you can also use SGML mode to edit XML, since XML is a | 1771 | You may choose to use the less powerful SGML mode for editing XML, |
| 1777 | strict subset of SGML. In XML, every opening tag must have an | 1772 | since XML is a strict subset of SGML. To enable SGML mode in an |
| 1778 | explicit closing tag. When the variable @code{sgml-xml-mode} is | 1773 | existing buffer, type @kbd{M-x sgml-mode}. On enabling SGML mode, |
| 1779 | non-@code{nil}, the tag insertion commands described above always | 1774 | Emacs examines the buffer to determine whether it is XML; if so, it |
| 1780 | insert explicit closing tags as well. When you visit a file in SGML | 1775 | sets the variable @code{sgml-xml-mode} to a non-@code{nil} value. |
| 1781 | mode, Emacs determines whether it is XML by examining the file | 1776 | This causes SGML mode's tag insertion commands, described above, to |
| 1782 | contents, and sets @code{sgml-xml-mode} accordingly. | 1777 | always insert explicit closing tags as well. |
| 1783 | 1778 | ||
| 1784 | @node Nroff Mode | 1779 | @node Nroff Mode |
| 1785 | @section Nroff Mode | 1780 | @section Nroff Mode |
| @@ -1830,86 +1825,84 @@ header level). | |||
| 1830 | Entering Nroff mode runs the hook @code{text-mode-hook}, followed by | 1825 | Entering Nroff mode runs the hook @code{text-mode-hook}, followed by |
| 1831 | the hook @code{nroff-mode-hook} (@pxref{Hooks}). | 1826 | the hook @code{nroff-mode-hook} (@pxref{Hooks}). |
| 1832 | 1827 | ||
| 1833 | @node Formatted Text | 1828 | @node Enriched Text |
| 1834 | @section Editing Formatted Text | 1829 | @section Enriched Text |
| 1835 | |||
| 1836 | @cindex Enriched mode | 1830 | @cindex Enriched mode |
| 1837 | @cindex mode, Enriched | 1831 | @cindex mode, Enriched |
| 1838 | @cindex formatted text | 1832 | @cindex enriched text |
| 1839 | @cindex WYSIWYG | 1833 | @cindex WYSIWYG |
| 1840 | @cindex word processing | 1834 | @cindex word processing |
| 1841 | @dfn{Enriched mode} is a minor mode for editing files that contain | 1835 | @cindex text/enriched MIME format |
| 1842 | formatted text in WYSIWYG fashion, as in a word processor. Currently, | ||
| 1843 | formatted text in Enriched mode can specify fonts, colors, underlining, | ||
| 1844 | margins, and types of filling and justification. In the future, we plan | ||
| 1845 | to implement other formatting features as well. | ||
| 1846 | 1836 | ||
| 1847 | Enriched mode is a minor mode (@pxref{Minor Modes}). It is | 1837 | Enriched mode is a minor mode for editing formatted text files in a |
| 1848 | typically used in conjunction with Text mode (@pxref{Text Mode}), but | 1838 | WYSIWYG (``what you see is what you get'') fashion. When Enriched |
| 1849 | you can also use it with other major modes such as Outline mode and | 1839 | mode is enabled, you can apply various formatting properties to the |
| 1850 | Paragraph-Indent Text mode. | 1840 | text in the buffer, such as fonts and colors; upon saving the buffer, |
| 1841 | those properties are saved together with the text, using the MIME | ||
| 1842 | @samp{text/enriched} file format. | ||
| 1851 | 1843 | ||
| 1852 | @cindex text/enriched MIME format | 1844 | Enriched mode is typically used with Text mode (@pxref{Text Mode}). |
| 1853 | Potentially, Emacs can store formatted text files in various file | 1845 | It is @emph{not} compatible with Font Lock mode, which is used by many |
| 1854 | formats. Currently, only one format is implemented: @dfn{text/enriched} | 1846 | major modes, including most programming language modes, for syntax |
| 1855 | format, which is defined by the MIME protocol. @xref{Format | 1847 | highlighting (@pxref{Font Lock}). Unlike Enriched mode, Font Lock |
| 1856 | Conversion,, Format Conversion, elisp, the Emacs Lisp Reference Manual}, | 1848 | mode assigns text properties automatically, based on the current |
| 1857 | for details of how Emacs recognizes and converts file formats. | 1849 | buffer contents; those properties are not saved to disk. |
| 1858 | 1850 | ||
| 1859 | The Emacs distribution contains a formatted text file that can serve as | 1851 | The file @file{etc/enriched.doc} in the Emacs distribution serves as |
| 1860 | an example. Its name is @file{etc/enriched.doc}. It contains samples | 1852 | an example of the features of Enriched mode. |
| 1861 | illustrating all the features described in this section. It also | ||
| 1862 | contains a list of ideas for future enhancements. | ||
| 1863 | 1853 | ||
| 1864 | @menu | 1854 | @menu |
| 1865 | * Requesting Formatted Text:: Entering and exiting Enriched mode. | 1855 | * Enriched Mode:: Entering and exiting Enriched mode. |
| 1866 | * Hard and Soft Newlines:: There are two different kinds of newlines. | 1856 | * Hard and Soft Newlines:: There are two different kinds of newlines. |
| 1867 | * Editing Format Info:: How to edit text properties. | 1857 | * Editing Format Info:: How to edit text properties. |
| 1868 | * Faces: Format Faces. Bold, italic, underline, etc. | 1858 | * Enriched Faces:: Bold, italic, underline, etc. |
| 1869 | * Color: Format Colors. Changing the color of text. | 1859 | * Enriched Indentation:: Changing the left and right margins. |
| 1870 | * Indent: Format Indentation. Changing the left and right margins. | 1860 | * Enriched Justification:: Centering, setting text flush with the |
| 1871 | * Justification: Format Justification. | 1861 | left or right margin, etc. |
| 1872 | Centering, setting text flush with the | 1862 | * Enriched Properties:: The "special" text properties submenu. |
| 1873 | left or right margin, etc. | ||
| 1874 | * Special: Format Properties. The "special" text properties submenu. | ||
| 1875 | * Forcing Enriched Mode:: How to force use of Enriched mode. | ||
| 1876 | @end menu | 1863 | @end menu |
| 1877 | 1864 | ||
| 1878 | @node Requesting Formatted Text | 1865 | @node Enriched Mode |
| 1879 | @subsection Requesting to Edit Formatted Text | 1866 | @subsection Enriched Mode |
| 1880 | 1867 | ||
| 1881 | Whenever you visit a file that Emacs saved in the text/enriched | 1868 | Enriched mode is a buffer-local minor mode (@pxref{Minor Modes}). |
| 1882 | format, Emacs automatically converts the formatting information in the | 1869 | When you visit a file that has been saved in the @samp{text/enriched} |
| 1883 | file into Emacs's own internal format (known as @dfn{text | 1870 | format, Emacs automatically enables Enriched mode, and applies the |
| 1884 | properties}), and turns on Enriched mode. | 1871 | formatting information in the file to the buffer text. When you save |
| 1872 | a buffer with Enriched mode enabled, it is saved using the | ||
| 1873 | @samp{text/enriched} format, including the formatting information. | ||
| 1885 | 1874 | ||
| 1886 | @findex enriched-mode | 1875 | @findex enriched-mode |
| 1887 | To create a new file of formatted text, first visit the nonexistent | 1876 | To create a new file of formatted text, visit the nonexistent file |
| 1888 | file, then type @kbd{M-x enriched-mode} before you start inserting text. | 1877 | and type @kbd{M-x enriched-mode}. This command actually toggles |
| 1889 | This command turns on Enriched mode. Do this before you begin inserting | 1878 | Enriched mode. With a prefix argument, it enables Enriched mode if |
| 1890 | text, to ensure that the text you insert is handled properly. | 1879 | the argument is positive, and disables Enriched mode otherwise. If |
| 1891 | 1880 | you disable Enriched mode, Emacs no longer saves the buffer using the | |
| 1892 | More generally, the command @code{enriched-mode} turns Enriched mode | 1881 | @samp{text/enriched} format; any formatting properties that have been |
| 1893 | on if it was off, and off if it was on. With a prefix argument, this | 1882 | added to the buffer remain in the buffer, but they are not saved to |
| 1894 | command turns Enriched mode on if the argument is positive, and turns | 1883 | disk. |
| 1895 | the mode off otherwise. | ||
| 1896 | |||
| 1897 | When you save a buffer while Enriched mode is enabled in it, Emacs | ||
| 1898 | automatically converts the text to text/enriched format while writing it | ||
| 1899 | into the file. When you visit the file again, Emacs will automatically | ||
| 1900 | recognize the format, reconvert the text, and turn on Enriched mode | ||
| 1901 | again. | ||
| 1902 | 1884 | ||
| 1903 | @vindex enriched-translations | 1885 | @vindex enriched-translations |
| 1904 | You can add annotations for saving additional text properties, which | 1886 | Enriched mode does not save all Emacs text properties, only those |
| 1905 | Emacs normally does not save, by adding to @code{enriched-translations}. | 1887 | specified in the variable @code{enriched-translations}. These include |
| 1906 | Note that the text/enriched standard requires any non-standard | 1888 | properties for fonts, colors, indentation, and justification. |
| 1907 | annotations to have names starting with @samp{x-}, as in | 1889 | |
| 1908 | @samp{x-read-only}. This ensures that they will not conflict with | 1890 | @findex format-decode-buffer |
| 1909 | standard annotations that may be added later. | 1891 | If you visit a file and Emacs fails to recognize that it is in the |
| 1910 | 1892 | @samp{text/enriched} format, type @kbd{M-x format-decode-buffer}. | |
| 1911 | @xref{Text Properties,,, elisp, the Emacs Lisp Reference Manual}, | 1893 | This command prompts for a file format, and re-reads the file in that |
| 1912 | for more information about text properties. | 1894 | format. Specifying the @samp{text/enriched} format automatically |
| 1895 | enables Enriched mode. | ||
| 1896 | |||
| 1897 | To view a @samp{text/enriched} file in raw form (as plain text with | ||
| 1898 | markup tags rather than formatted text), use @kbd{M-x | ||
| 1899 | find-file-literally} (@pxref{Visiting}). | ||
| 1900 | |||
| 1901 | @xref{Format Conversion,, Format Conversion, elisp, the Emacs Lisp | ||
| 1902 | Reference Manual}, for details of how Emacs recognizes and converts | ||
| 1903 | file formats like @samp{text/enriched}. @xref{Text Properties,,, | ||
| 1904 | elisp, the Emacs Lisp Reference Manual}, for more information about | ||
| 1905 | text properties. | ||
| 1913 | 1906 | ||
| 1914 | @node Hard and Soft Newlines | 1907 | @node Hard and Soft Newlines |
| 1915 | @subsection Hard and Soft Newlines | 1908 | @subsection Hard and Soft Newlines |
| @@ -1918,56 +1911,44 @@ for more information about text properties. | |||
| 1918 | @cindex newlines, hard and soft | 1911 | @cindex newlines, hard and soft |
| 1919 | 1912 | ||
| 1920 | @cindex use-hard-newlines | 1913 | @cindex use-hard-newlines |
| 1921 | In formatted text, Emacs distinguishes between two different kinds of | 1914 | In Enriched mode, Emacs distinguishes between two different kinds of |
| 1922 | newlines, @dfn{hard} newlines and @dfn{soft} newlines. (You can enable | 1915 | newlines, @dfn{hard} newlines and @dfn{soft} newlines. You can also |
| 1923 | or disable this feature separately in any buffer with the command | 1916 | enable or disable this feature in other buffers, by typing @kbd{M-x |
| 1924 | @code{use-hard-newlines}.) | 1917 | use-hard-newlines}. |
| 1925 | 1918 | ||
| 1926 | Hard newlines are used to separate paragraphs, or items in a list, or | 1919 | Hard newlines are used to separate paragraphs, or anywhere there |
| 1927 | anywhere that there should always be a line break regardless of the | 1920 | needs to be a line break regardless of how the text is filled; soft |
| 1928 | margins. The @key{RET} command (@code{newline}) and @kbd{C-o} | 1921 | newlines are used for filling. The @key{RET} (@code{newline}) and |
| 1929 | (@code{open-line}) insert hard newlines. | 1922 | @kbd{C-o} (@code{open-line}) commands insert hard newlines. The fill |
| 1930 | 1923 | commands, including Auto Fill (@pxref{Auto Fill}), insert only soft | |
| 1931 | Soft newlines are used to make text fit between the margins. All the | 1924 | newlines and delete only soft newlines, leaving hard newlines alone. |
| 1932 | fill commands, including Auto Fill, insert soft newlines---and they | 1925 | |
| 1933 | delete only soft newlines. | 1926 | Thus, when editing with Enriched mode, you should not use @key{RET} |
| 1934 | 1927 | or @kbd{C-o} to break lines in the middle of filled paragraphs. Use | |
| 1935 | Although hard and soft newlines look the same, it is important to bear | 1928 | Auto Fill mode or explicit fill commands (@pxref{Fill Commands}) |
| 1936 | the difference in mind. Do not use @key{RET} to break lines in the | 1929 | instead. Use @key{RET} or @kbd{C-o} where line breaks should always |
| 1937 | middle of filled paragraphs, or else you will get hard newlines that are | 1930 | remain, such as in tables and lists. For such lines, you may also |
| 1938 | barriers to further filling. Instead, let Auto Fill mode break lines, | 1931 | want to set the justification style to @code{unfilled} |
| 1939 | so that if the text or the margins change, Emacs can refill the lines | 1932 | (@pxref{Enriched Justification}). |
| 1940 | properly. @xref{Auto Fill}. | ||
| 1941 | |||
| 1942 | On the other hand, in tables and lists, where the lines should always | ||
| 1943 | remain as you type them, you can use @key{RET} to end lines. For these | ||
| 1944 | lines, you may also want to set the justification style to | ||
| 1945 | @code{unfilled}. @xref{Format Justification}. | ||
| 1946 | 1933 | ||
| 1947 | @node Editing Format Info | 1934 | @node Editing Format Info |
| 1948 | @subsection Editing Format Information | 1935 | @subsection Editing Format Information |
| 1949 | 1936 | ||
| 1950 | There are two ways to alter the formatting information for a formatted | 1937 | The easiest way to alter properties is with the Text Properties |
| 1951 | text file: with keyboard commands, and with the mouse. | 1938 | menu. You can get to this menu from the Edit menu in the menu bar |
| 1952 | 1939 | (@pxref{Menu Bar}), or with @kbd{C-Mouse-2} (@pxref{Menu Mouse | |
| 1953 | The easiest way to add properties to your document is with the Text | 1940 | Clicks}). Some of the commands in the Text Properties menu are listed |
| 1954 | Properties menu. You can get to this menu in two ways: from the Edit | 1941 | below (you can also invoke them with @kbd{M-x}): |
| 1955 | menu in the menu bar (use @kbd{@key{F10} e t} if you have no mouse), | ||
| 1956 | or with @kbd{C-Mouse-2} (hold the @key{CTRL} key and press the middle | ||
| 1957 | mouse button). There are also keyboard commands described in the | ||
| 1958 | following section. | ||
| 1959 | |||
| 1960 | These items in the Text Properties menu run commands directly: | ||
| 1961 | 1942 | ||
| 1962 | @table @code | 1943 | @table @code |
| 1963 | @findex facemenu-remove-face-props | 1944 | @findex facemenu-remove-face-props |
| 1964 | @item Remove Face Properties | 1945 | @item Remove Face Properties |
| 1965 | Delete from the region all face and color text properties | 1946 | Remove face properties from the region |
| 1966 | (@code{facemenu-remove-face-props}). | 1947 | (@code{facemenu-remove-face-props}). |
| 1967 | 1948 | ||
| 1968 | @findex facemenu-remove-all | 1949 | @findex facemenu-remove-all |
| 1969 | @item Remove Text Properties | 1950 | @item Remove Text Properties |
| 1970 | Delete @emph{all} text properties from the region | 1951 | Remove all text properties from the region, including face properties |
| 1971 | (@code{facemenu-remove-all}). | 1952 | (@code{facemenu-remove-all}). |
| 1972 | 1953 | ||
| 1973 | @findex describe-text-properties | 1954 | @findex describe-text-properties |
| @@ -1976,168 +1957,98 @@ Delete @emph{all} text properties from the region | |||
| 1976 | @cindex widgets at buffer position | 1957 | @cindex widgets at buffer position |
| 1977 | @cindex buttons at buffer position | 1958 | @cindex buttons at buffer position |
| 1978 | @item Describe Properties | 1959 | @item Describe Properties |
| 1979 | List all the text properties, widgets, buttons, and overlays of the | 1960 | List all text properties and other information about the character |
| 1980 | character following point (@code{describe-text-properties}). | 1961 | following point (@code{describe-text-properties}). |
| 1981 | 1962 | ||
| 1982 | @item Display Faces | 1963 | @item Display Faces |
| 1983 | Display a list of all the defined faces (@code{list-faces-display}). | 1964 | Display a list of defined faces (@code{list-faces-display}). |
| 1965 | @xref{Faces}. | ||
| 1984 | 1966 | ||
| 1985 | @item Display Colors | 1967 | @item Display Colors |
| 1986 | Display a list of all the defined colors (@code{list-colors-display}). | 1968 | Display a list of defined colors (@code{list-colors-display}). |
| 1969 | @xref{Colors}. | ||
| 1987 | @end table | 1970 | @end table |
| 1988 | 1971 | ||
| 1989 | @ifinfo | 1972 | @noindent |
| 1990 | Other items in the Text Properties menu lead to submenus: | 1973 | The other menu entries are described in the following sections. |
| 1991 | |||
| 1992 | @menu | ||
| 1993 | * Faces: Format Faces. Bold, italic, underline, etc. | ||
| 1994 | * Color: Format Colors. Changing the color of text. | ||
| 1995 | * Indent: Format Indentation. Changing the left and right margins. | ||
| 1996 | * Justification: Format Justification. | ||
| 1997 | Centering, setting text flush with the | ||
| 1998 | left or right margin, etc. | ||
| 1999 | * Special: Format Properties. The "special" text properties submenu. | ||
| 2000 | @end menu | ||
| 2001 | @end ifinfo | ||
| 2002 | @ifnotinfo | ||
| 2003 | The rest lead to submenus which are described in the following sections. | ||
| 2004 | @end ifnotinfo | ||
| 2005 | |||
| 2006 | @node Format Faces | ||
| 2007 | @subsection Faces in Formatted Text | ||
| 2008 | 1974 | ||
| 2009 | The Faces submenu under Text Properties lists various Emacs faces | 1975 | @node Enriched Faces |
| 2010 | including @code{bold}, @code{italic}, and @code{underline} | 1976 | @subsection Faces in Enriched Text |
| 2011 | (@pxref{Faces}). These menu items operate on the region if it is | ||
| 2012 | active and nonempty. Otherwise, they specify to use that face for an | ||
| 2013 | immediately following self-inserting character. There is also an item | ||
| 2014 | @samp{Other} with which you can enter a face name through the | ||
| 2015 | minibuffer (@pxref{Standard Faces}). | ||
| 2016 | 1977 | ||
| 2017 | Instead of the Faces submenu, you can use these keyboard commands: | 1978 | The following commands can be used to add or remove faces |
| 1979 | (@pxref{Faces}). Each applies to the text in the region if the mark | ||
| 1980 | is active, and to the next self-inserting character if the mark is | ||
| 1981 | inactive. With a prefix argument, each command applies to the next | ||
| 1982 | self-inserting character even if the region is active. | ||
| 2018 | 1983 | ||
| 2019 | @table @kbd | 1984 | @table @kbd |
| 2020 | @kindex M-o d @r{(Enriched mode)} | 1985 | @kindex M-o d @r{(Enriched mode)} |
| 2021 | @findex facemenu-set-default | 1986 | @findex facemenu-set-default |
| 2022 | @item M-o d | 1987 | @item M-o d |
| 2023 | Remove all @code{face} properties from the region (which includes | 1988 | Remove all @code{face} properties (@code{facemenu-set-default}). |
| 2024 | specified colors), or force the following inserted character to have no | 1989 | |
| 2025 | @code{face} property (@code{facemenu-set-default}). | ||
| 2026 | @kindex M-o b @r{(Enriched mode)} | 1990 | @kindex M-o b @r{(Enriched mode)} |
| 2027 | @findex facemenu-set-bold | 1991 | @findex facemenu-set-bold |
| 2028 | @item M-o b | 1992 | @item M-o b |
| 2029 | Add the face @code{bold} to the region or to the following inserted | 1993 | Apply the @code{bold} face (@code{facemenu-set-bold}). |
| 2030 | character (@code{facemenu-set-bold}). | 1994 | |
| 2031 | @kindex M-o i @r{(Enriched mode)} | 1995 | @kindex M-o i @r{(Enriched mode)} |
| 2032 | @findex facemenu-set-italic | 1996 | @findex facemenu-set-italic |
| 2033 | @item M-o i | 1997 | @item M-o i |
| 2034 | Add the face @code{italic} to the region or to the following inserted | 1998 | Apply the @code{italic} face (@code{facemenu-set-italic}). |
| 2035 | character (@code{facemenu-set-italic}). | 1999 | |
| 2036 | @kindex M-o l @r{(Enriched mode)} | 2000 | @kindex M-o l @r{(Enriched mode)} |
| 2037 | @findex facemenu-set-bold-italic | 2001 | @findex facemenu-set-bold-italic |
| 2038 | @item M-o l | 2002 | @item M-o l |
| 2039 | Add the face @code{bold-italic} to the region or to the following | 2003 | Apply the @code{bold-italic} face (@code{facemenu-set-bold-italic}). |
| 2040 | inserted character (@code{facemenu-set-bold-italic}). | 2004 | |
| 2041 | @kindex M-o u @r{(Enriched mode)} | 2005 | @kindex M-o u @r{(Enriched mode)} |
| 2042 | @findex facemenu-set-underline | 2006 | @findex facemenu-set-underline |
| 2043 | @item M-o u | 2007 | @item M-o u |
| 2044 | Add the face @code{underline} to the region or to the following inserted | 2008 | Apply the @code{underline} face (@code{facemenu-set-underline}). |
| 2045 | character (@code{facemenu-set-underline}). | 2009 | |
| 2046 | @kindex M-o o @r{(Enriched mode)} | 2010 | @kindex M-o o @r{(Enriched mode)} |
| 2047 | @findex facemenu-set-face | 2011 | @findex facemenu-set-face |
| 2048 | @item M-o o @var{face} @key{RET} | 2012 | @item M-o o @var{face} @key{RET} |
| 2049 | Add the face @var{face} to the region or to the following inserted | 2013 | Apply the face @var{face} (@code{facemenu-set-face}). |
| 2050 | character (@code{facemenu-set-face}). | ||
| 2051 | @end table | ||
| 2052 | 2014 | ||
| 2053 | With a prefix argument, all these commands apply to an immediately | 2015 | @findex facemenu-set-foreground |
| 2054 | following self-inserting character, disregarding the region. | 2016 | @item M-x facemenu-set-foreground |
| 2017 | Prompt for a color (@pxref{Colors}), and apply it as a foreground | ||
| 2018 | color. | ||
| 2055 | 2019 | ||
| 2056 | A self-inserting character normally inherits the @code{face} | 2020 | @findex facemenu-set-background |
| 2057 | property (and most other text properties) from the preceding character | 2021 | @item M-x facemenu-set-background |
| 2058 | in the buffer. If you use the above commands to specify face for the | 2022 | Prompt for a color, and apply it as a background color. |
| 2059 | next self-inserting character, or the next section's commands to | 2023 | @end table |
| 2060 | specify a foreground or background color for it, then it does not | ||
| 2061 | inherit the @code{face} property from the preceding character; instead | ||
| 2062 | it uses whatever you specified. It will still inherit other text | ||
| 2063 | properties, though. | ||
| 2064 | 2024 | ||
| 2065 | Strictly speaking, these commands apply only to the first following | 2025 | @noindent |
| 2066 | self-inserting character that you type. But if you insert additional | 2026 | These command are also available via the Text Properties menu. |
| 2067 | characters after it, they will inherit from the first one. So it | ||
| 2068 | appears that these commands apply to all of them. | ||
| 2069 | 2027 | ||
| 2070 | Enriched mode defines two additional faces: @code{excerpt} and | 2028 | A self-inserting character normally inherits the face properties |
| 2071 | @code{fixed}. These correspond to codes used in the text/enriched file | 2029 | (and most other text properties) from the preceding character in the |
| 2072 | format. | 2030 | buffer. If you use one of the above commands to specify the face for |
| 2073 | 2031 | the next self-inserting character, that character will not inherit the | |
| 2074 | The @code{excerpt} face is intended for quotations. This face is the | 2032 | faces properties from the preceding character, but it will still |
| 2075 | same as @code{italic} unless you customize it (@pxref{Face Customization}). | 2033 | inherit other text properties. |
| 2076 | |||
| 2077 | The @code{fixed} face means, ``Use a fixed-width font for this part | ||
| 2078 | of the text.'' Applying the @code{fixed} face to a part of the text | ||
| 2079 | will cause that part of the text to appear in a fixed-width font, even | ||
| 2080 | if the default font is variable-width. This applies to Emacs and to | ||
| 2081 | other systems that display text/enriched format. So if you | ||
| 2082 | specifically want a certain part of the text to use a fixed-width | ||
| 2083 | font, you should specify the @code{fixed} face for that part. | ||
| 2084 | |||
| 2085 | By default, the @code{fixed} face looks the same as @code{bold}. | ||
| 2086 | This is an attempt to distinguish it from @code{default}. You may | ||
| 2087 | wish to customize @code{fixed} to some other fixed-width medium font. | ||
| 2088 | @xref{Face Customization}. | ||
| 2089 | |||
| 2090 | If your terminal cannot display different faces, you will not be | ||
| 2091 | able to see them, but you can still edit documents containing faces, | ||
| 2092 | and even add faces and colors to documents. The faces you specify | ||
| 2093 | will be visible when the file is viewed on a terminal that can display | ||
| 2094 | them. | ||
| 2095 | |||
| 2096 | @node Format Colors | ||
| 2097 | @subsection Colors in Formatted Text | ||
| 2098 | |||
| 2099 | You can specify foreground and background colors for portions of the | ||
| 2100 | text. Under Text Properties, there is a submenu for specifying the | ||
| 2101 | foreground color, and a submenu for specifying the background color. | ||
| 2102 | Each one lists all the colors that you have used in Enriched mode in | ||
| 2103 | the current Emacs session. | ||
| 2104 | |||
| 2105 | If the region is active, the command applies to the text in the | ||
| 2106 | region; otherwise, it applies to any immediately following | ||
| 2107 | self-inserting input. When Transient Mark mode is off | ||
| 2108 | (@pxref{Disabled Transient Mark}), it always applies to the region | ||
| 2109 | unless a prefix argument is given, in which case it applies to the | ||
| 2110 | following input. | ||
| 2111 | |||
| 2112 | Each of the two color submenus contains one additional item: | ||
| 2113 | @samp{Other}. You can use this item to specify a color that is not | ||
| 2114 | listed in the menu; it reads the color name with the minibuffer. To | ||
| 2115 | display a list of available colors and their names, use the | ||
| 2116 | @samp{Display Colors} menu item in the Text Properties menu | ||
| 2117 | (@pxref{Editing Format Info}). | ||
| 2118 | |||
| 2119 | Any color that you specify in this way, or that is mentioned in a | ||
| 2120 | formatted text file that you read in, is added to the corresponding | ||
| 2121 | color menu for the duration of the Emacs session. | ||
| 2122 | 2034 | ||
| 2123 | @findex facemenu-set-foreground | 2035 | Enriched mode defines two additional faces: @code{excerpt} and |
| 2124 | @findex facemenu-set-background | 2036 | @code{fixed}. These correspond to codes used in the text/enriched |
| 2125 | There are no predefined key bindings for specifying colors, but you can do so | 2037 | file format. The @code{excerpt} face is intended for quotations; by |
| 2126 | with the extended commands @kbd{M-x facemenu-set-foreground} and | 2038 | default, it appears the same as @code{italic}. The @code{fixed} face |
| 2127 | @kbd{M-x facemenu-set-background}. Both of these commands read the name | 2039 | specifies fixed-width text; by default, it appears the same as |
| 2128 | of the color with the minibuffer. | 2040 | @code{bold}. |
| 2129 | 2041 | ||
| 2130 | @node Format Indentation | 2042 | @node Enriched Indentation |
| 2131 | @subsection Indentation in Formatted Text | 2043 | @subsection Indentation in Enriched Text |
| 2132 | 2044 | ||
| 2133 | When editing formatted text, you can specify different amounts of | 2045 | In Enriched mode, you can specify different amounts of indentation |
| 2134 | indentation for the right or left margin of an entire paragraph or a | 2046 | for the right or left margin of a paragraph or a part of a paragraph. |
| 2135 | part of a paragraph. The margins you specify automatically affect the | 2047 | These margins also affect fill commands such as @kbd{M-q} |
| 2136 | Emacs fill commands (@pxref{Filling}) and line-breaking commands. | 2048 | (@pxref{Filling}). |
| 2137 | 2049 | ||
| 2138 | The Indentation submenu of Text Properties provides a convenient | 2050 | The Indentation submenu of Text Properties provides four commands |
| 2139 | interface for specifying these properties. The submenu contains four | 2051 | for specifying indentation: |
| 2140 | items: | ||
| 2141 | 2052 | ||
| 2142 | @table @code | 2053 | @table @code |
| 2143 | @kindex C-x TAB @r{(Enriched mode)} | 2054 | @kindex C-x TAB @r{(Enriched mode)} |
| @@ -2158,44 +2069,20 @@ Make the text narrower by indenting 4 columns at the right margin. | |||
| 2158 | Remove 4 columns of indentation from the right margin. | 2069 | Remove 4 columns of indentation from the right margin. |
| 2159 | @end table | 2070 | @end table |
| 2160 | 2071 | ||
| 2161 | You can use these commands repeatedly to increase or decrease the | ||
| 2162 | indentation. | ||
| 2163 | |||
| 2164 | The most common way to use them is to change the indentation of an | ||
| 2165 | entire paragraph. For other uses, the effects of refilling can be | ||
| 2166 | hard to predict, except in some special cases like the one described | ||
| 2167 | next. | ||
| 2168 | |||
| 2169 | The most common other use is to format paragraphs with @dfn{hanging | ||
| 2170 | indents}, which means that the first line is indented less than | ||
| 2171 | subsequent lines. To set up a hanging indent, increase the | ||
| 2172 | indentation of the region starting after the first word of the | ||
| 2173 | paragraph and running until the end of the paragraph. | ||
| 2174 | |||
| 2175 | Indenting the first line of a paragraph is easier. Set the margin for | ||
| 2176 | the whole paragraph where you want it to be for the body of the | ||
| 2177 | paragraph, then indent the first line by inserting extra spaces or tabs. | ||
| 2178 | |||
| 2179 | @vindex standard-indent | 2072 | @vindex standard-indent |
| 2180 | The variable @code{standard-indent} specifies how many columns these | 2073 | The variable @code{standard-indent} specifies how many columns these |
| 2181 | commands should add to or subtract from the indentation. The default | 2074 | commands should add to or subtract from the indentation. The default |
| 2182 | value is 4. The overall default right margin for Enriched mode is | 2075 | value is 4. The default right margin for Enriched mode is controlled |
| 2183 | controlled by the variable @code{fill-column}, as usual. | 2076 | by the variable @code{fill-column}, as usual. |
| 2184 | 2077 | ||
| 2185 | @kindex C-c [ @r{(Enriched mode)} | 2078 | @kindex C-c [ @r{(Enriched mode)} |
| 2186 | @kindex C-c ] @r{(Enriched mode)} | 2079 | @kindex C-c ] @r{(Enriched mode)} |
| 2187 | @findex set-left-margin | 2080 | @findex set-left-margin |
| 2188 | @findex set-right-margin | 2081 | @findex set-right-margin |
| 2189 | There are also two commands for setting the left or right margin of | 2082 | You can also type @kbd{C-c [} (@code{set-left-margin}) and @kbd{C-c |
| 2190 | the region absolutely: @code{set-left-margin} and | 2083 | ]} (@code{set-right-margin}) to set the left and right margins. You |
| 2191 | @code{set-right-margin}. Enriched mode binds these commands to | 2084 | can specify the margin width with a numeric argument; otherwise these |
| 2192 | @kbd{C-c [} and @kbd{C-c ]}, respectively. You can specify the | 2085 | commands prompt for a value via the minibuffer. |
| 2193 | margin width either with a numeric argument or in the minibuffer. | ||
| 2194 | |||
| 2195 | Sometimes, as a result of editing, the filling of a paragraph becomes | ||
| 2196 | messed up---parts of the paragraph may extend past the left or right | ||
| 2197 | margins. When this happens, use @kbd{M-q} (@code{fill-paragraph}) to | ||
| 2198 | refill the paragraph. | ||
| 2199 | 2086 | ||
| 2200 | The fill prefix, if any, works in addition to the specified paragraph | 2087 | The fill prefix, if any, works in addition to the specified paragraph |
| 2201 | indentation: @kbd{C-x .} does not include the specified indentation's | 2088 | indentation: @kbd{C-x .} does not include the specified indentation's |
| @@ -2203,148 +2090,76 @@ whitespace in the new value for the fill prefix, and the fill commands | |||
| 2203 | look for the fill prefix after the indentation on each line. @xref{Fill | 2090 | look for the fill prefix after the indentation on each line. @xref{Fill |
| 2204 | Prefix}. | 2091 | Prefix}. |
| 2205 | 2092 | ||
| 2206 | @node Format Justification | 2093 | @node Enriched Justification |
| 2207 | @subsection Justification in Formatted Text | 2094 | @subsection Justification in Enriched Text |
| 2208 | |||
| 2209 | When editing formatted text, you can specify various styles of | ||
| 2210 | justification for a paragraph. The style you specify automatically | ||
| 2211 | affects the Emacs fill commands. | ||
| 2212 | 2095 | ||
| 2213 | The Justification submenu of Text Properties provides a convenient | 2096 | In Enriched mode, you can use the following commands to specify |
| 2214 | interface for specifying the style. The submenu contains five items: | 2097 | various @dfn{justification styles} for filling. These commands apply |
| 2215 | 2098 | to the paragraph containing point, or, if the region is active, to all | |
| 2216 | @table @code | 2099 | paragraphs overlapping the region. |
| 2217 | @item Left | ||
| 2218 | This is the most common style of justification (at least for English). | ||
| 2219 | Lines are aligned at the left margin but left uneven at the right. | ||
| 2220 | |||
| 2221 | @item Right | ||
| 2222 | This aligns each line with the right margin. Spaces and tabs are added | ||
| 2223 | on the left, if necessary, to make lines line up on the right. | ||
| 2224 | |||
| 2225 | @item Full | ||
| 2226 | This justifies the text, aligning both edges of each line. Justified | ||
| 2227 | text looks very nice in a printed book, where the spaces can all be | ||
| 2228 | adjusted equally, but it does not look as nice with a fixed-width font | ||
| 2229 | on the screen. Perhaps a future version of Emacs will be able to adjust | ||
| 2230 | the width of spaces in a line to achieve elegant justification. | ||
| 2231 | |||
| 2232 | @item Center | ||
| 2233 | This centers every line between the current margins. | ||
| 2234 | |||
| 2235 | @item Unfilled | ||
| 2236 | This turns off filling entirely. Each line will remain as you wrote it; | ||
| 2237 | the fill and auto-fill functions will have no effect on text which has | ||
| 2238 | this setting. You can, however, still indent the left margin. In | ||
| 2239 | unfilled regions, all newlines are treated as hard newlines (@pxref{Hard | ||
| 2240 | and Soft Newlines}) . | ||
| 2241 | @end table | ||
| 2242 | |||
| 2243 | In Enriched mode, you can also specify justification from the keyboard | ||
| 2244 | using the @kbd{M-j} prefix character: | ||
| 2245 | 2100 | ||
| 2246 | @table @kbd | 2101 | @table @kbd |
| 2247 | @kindex M-j l @r{(Enriched mode)} | 2102 | @kindex M-j l @r{(Enriched mode)} |
| 2248 | @findex set-justification-left | 2103 | @findex set-justification-left |
| 2249 | @item M-j l | 2104 | @item M-j l |
| 2250 | Make the region left-filled (@code{set-justification-left}). | 2105 | Align lines to the left margin (@code{set-justification-left}). |
| 2106 | |||
| 2251 | @kindex M-j r @r{(Enriched mode)} | 2107 | @kindex M-j r @r{(Enriched mode)} |
| 2252 | @findex set-justification-right | 2108 | @findex set-justification-right |
| 2253 | @item M-j r | 2109 | @item M-j r |
| 2254 | Make the region right-filled (@code{set-justification-right}). | 2110 | Align lines to the right margin (@code{set-justification-right}). |
| 2111 | |||
| 2255 | @kindex M-j b @r{(Enriched mode)} | 2112 | @kindex M-j b @r{(Enriched mode)} |
| 2256 | @findex set-justification-full | 2113 | @findex set-justification-full |
| 2257 | @item M-j b | 2114 | @item M-j b |
| 2258 | Make the region fully justified (@code{set-justification-full}). | 2115 | Align lines to both margins, inserting spaces in the middle of the |
| 2116 | line to achieve this (@code{set-justification-full}). | ||
| 2117 | |||
| 2259 | @kindex M-j c @r{(Enriched mode)} | 2118 | @kindex M-j c @r{(Enriched mode)} |
| 2260 | @kindex M-S @r{(Enriched mode)} | 2119 | @kindex M-S @r{(Enriched mode)} |
| 2261 | @findex set-justification-center | 2120 | @findex set-justification-center |
| 2262 | @item M-j c | 2121 | @item M-j c |
| 2263 | @itemx M-S | 2122 | @itemx M-S |
| 2264 | Make the region centered (@code{set-justification-center}). | 2123 | Center lines between the margins (@code{set-justification-center}). |
| 2124 | |||
| 2265 | @kindex M-j u @r{(Enriched mode)} | 2125 | @kindex M-j u @r{(Enriched mode)} |
| 2266 | @findex set-justification-none | 2126 | @findex set-justification-none |
| 2267 | @item M-j u | 2127 | @item M-j u |
| 2268 | Make the region unfilled (@code{set-justification-none}). | 2128 | Turn off filling entirely (@code{set-justification-none}). The fill |
| 2129 | commands do nothing on text with this setting. You can, however, | ||
| 2130 | still indent the left margin. | ||
| 2269 | @end table | 2131 | @end table |
| 2270 | 2132 | ||
| 2271 | Justification styles apply to entire paragraphs. All the | 2133 | You can also specify justification styles using the Justification |
| 2272 | justification-changing commands operate on the paragraph containing | 2134 | submenu in the Text Properties menu. |
| 2273 | point, or, if the region is active, on all paragraphs which overlap the | ||
| 2274 | region. | ||
| 2275 | 2135 | ||
| 2276 | @vindex default-justification | 2136 | @vindex default-justification |
| 2277 | The default justification style is specified by the variable | 2137 | The default justification style is specified by the per-buffer |
| 2278 | @code{default-justification}. Its value should be one of the symbols | 2138 | variable @code{default-justification}. Its value should be one of the |
| 2279 | @code{left}, @code{right}, @code{full}, @code{center}, or @code{none}. | 2139 | symbols @code{left}, @code{right}, @code{full}, @code{center}, or |
| 2280 | This is a per-buffer variable. Setting the variable directly affects | 2140 | @code{none}. |
| 2281 | only the current buffer. However, customizing it in a Custom buffer | ||
| 2282 | sets (as always) the default value for buffers that do not override it. | ||
| 2283 | @xref{Locals}, and @ref{Easy Customization}. | ||
| 2284 | |||
| 2285 | @node Format Properties | ||
| 2286 | @subsection Setting Other Text Properties | ||
| 2287 | |||
| 2288 | The Special Properties submenu of Text Properties can add or remove | ||
| 2289 | three other useful text properties: @code{read-only}, @code{invisible} | ||
| 2290 | and @code{intangible}. The @code{intangible} property disallows | ||
| 2291 | moving point within the text, the @code{invisible} text property hides | ||
| 2292 | text from display, and the @code{read-only} property disallows | ||
| 2293 | alteration of the text. | ||
| 2294 | 2141 | ||
| 2295 | Each of these special properties has a menu item to add it to the | 2142 | @node Enriched Properties |
| 2296 | region. The last menu item, @samp{Remove Special}, removes all of these | 2143 | @subsection Setting Other Text Properties |
| 2297 | special properties from the text in the region. | ||
| 2298 | |||
| 2299 | Currently, the @code{invisible} and @code{intangible} properties are | ||
| 2300 | @emph{not} saved in the text/enriched format. The @code{read-only} | ||
| 2301 | property is saved, but it is not a standard part of the text/enriched | ||
| 2302 | format, so other editors may not respect it. | ||
| 2303 | |||
| 2304 | @node Forcing Enriched Mode | ||
| 2305 | @subsection Forcing Enriched Mode | ||
| 2306 | |||
| 2307 | Normally, Emacs knows when you are editing formatted text because it | ||
| 2308 | recognizes the special annotations used in the file that you visited. | ||
| 2309 | However, sometimes you must take special actions to convert file | ||
| 2310 | contents or turn on Enriched mode: | ||
| 2311 | |||
| 2312 | @itemize @bullet | ||
| 2313 | @item | ||
| 2314 | When you visit a file that was created with some other editor, Emacs may | ||
| 2315 | not recognize the file as being in the text/enriched format. In this | ||
| 2316 | case, when you visit the file you will see the formatting commands | ||
| 2317 | rather than the formatted text. Type @kbd{M-x format-decode-buffer} to | ||
| 2318 | translate it. This also automatically turns on Enriched mode. | ||
| 2319 | 2144 | ||
| 2320 | @item | 2145 | The Special Properties submenu of Text Properties has entries for |
| 2321 | When you @emph{insert} a file into a buffer, rather than visiting it, | 2146 | adding or removing three other text properties: @code{read-only}, |
| 2322 | Emacs does the necessary conversions on the text which you insert, but | 2147 | (which disallows alteration of the text), @code{invisible} (which |
| 2323 | it does not enable Enriched mode. If you wish to do that, type @kbd{M-x | 2148 | hides text), and @code{intangible} (which disallows moving point |
| 2324 | enriched-mode}. | 2149 | within the text). The @samp{Remove Special} menu item removes all of |
| 2325 | @end itemize | 2150 | these special properties from the text in the region. |
| 2326 | 2151 | ||
| 2327 | The command @code{format-decode-buffer} translates text in various | 2152 | The @code{invisible} and @code{intangible} properties are @emph{not} |
| 2328 | formats into Emacs's internal format. It asks you to specify the format | 2153 | saved in the text/enriched format. The @code{read-only} property is |
| 2329 | to translate from; however, normally you can type just @key{RET}, which | 2154 | saved, but it is not a standard part of the text/enriched format, so |
| 2330 | tells Emacs to guess the format. | 2155 | other editors may not respect it. |
| 2331 | |||
| 2332 | @findex format-find-file | ||
| 2333 | If you wish to look at a text/enriched file in its raw form, as a | ||
| 2334 | sequence of characters rather than as formatted text, use the @kbd{M-x | ||
| 2335 | find-file-literally} command. This visits a file, like | ||
| 2336 | @code{find-file}, but does not do format conversion. It also inhibits | ||
| 2337 | character code conversion (@pxref{Coding Systems}) and automatic | ||
| 2338 | uncompression (@pxref{Compressed Files}). To disable format conversion | ||
| 2339 | but allow character code conversion and/or automatic uncompression if | ||
| 2340 | appropriate, use @code{format-find-file} with suitable arguments. | ||
| 2341 | 2156 | ||
| 2342 | @node Text Based Tables | 2157 | @node Text Based Tables |
| 2343 | @section Editing Text-based Tables | 2158 | @section Editing Text-based Tables |
| 2344 | @cindex table mode | 2159 | @cindex table mode |
| 2345 | @cindex text-based tables | 2160 | @cindex text-based tables |
| 2346 | 2161 | ||
| 2347 | Table mode provides an easy and intuitive way to create and edit WYSIWYG | 2162 | Table mode provides an easy and intuitive way to create and edit |
| 2348 | text-based tables. Here is an example of such a table: | 2163 | text-based tables. Here is an example of such a table: |
| 2349 | 2164 | ||
| 2350 | @smallexample | 2165 | @smallexample |
diff --git a/doc/emacs/windows.texi b/doc/emacs/windows.texi index c44b67454a2..6a6f7b1a4d7 100644 --- a/doc/emacs/windows.texi +++ b/doc/emacs/windows.texi | |||
| @@ -193,6 +193,7 @@ Select buffer @var{bufname} in another window | |||
| 193 | 193 | ||
| 194 | @findex display-buffer | 194 | @findex display-buffer |
| 195 | @item C-x 4 C-o @var{bufname} @key{RET} | 195 | @item C-x 4 C-o @var{bufname} @key{RET} |
| 196 | @kindex C-x 4 C-o | ||
| 196 | Display buffer @var{bufname} in some window, without trying to select | 197 | Display buffer @var{bufname} in some window, without trying to select |
| 197 | it (@code{display-buffer}). @xref{Displaying Buffers}, for details | 198 | it (@code{display-buffer}). @xref{Displaying Buffers}, for details |
| 198 | about how the window is chosen. | 199 | about how the window is chosen. |
| @@ -385,7 +386,8 @@ change @code{pop-up-frames} (see below) to @code{t}. | |||
| 385 | @item | 386 | @item |
| 386 | Otherwise, if you specified that the buffer should be displayed in a | 387 | Otherwise, if you specified that the buffer should be displayed in a |
| 387 | special frame by customizing @code{special-display-buffer-names} or | 388 | special frame by customizing @code{special-display-buffer-names} or |
| 388 | @code{special-display-regexps}, do so. @xref{Special Buffer Frames}. | 389 | @code{special-display-regexps}, do so. @xref{Choosing Window |
| 390 | Options,,, elisp, The Emacs Lisp Reference Manual}. | ||
| 389 | 391 | ||
| 390 | @vindex pop-up-frames | 392 | @vindex pop-up-frames |
| 391 | @item | 393 | @item |
| @@ -420,7 +422,7 @@ and display the buffer there. | |||
| 420 | @end itemize | 422 | @end itemize |
| 421 | 423 | ||
| 422 | @node Window Convenience | 424 | @node Window Convenience |
| 423 | @section Window Handling Convenience Features and Customization | 425 | @section Convenience Features for Window Handling |
| 424 | 426 | ||
| 425 | @findex winner-mode | 427 | @findex winner-mode |
| 426 | @cindex Winner mode | 428 | @cindex Winner mode |
diff --git a/doc/emacs/xresources.texi b/doc/emacs/xresources.texi index c2e65268d1b..b32b3d905e4 100644 --- a/doc/emacs/xresources.texi +++ b/doc/emacs/xresources.texi | |||
| @@ -306,14 +306,14 @@ Name to display in the title bar of the initial Emacs frame. | |||
| 306 | @item @code{toolBar} (class @code{ToolBar}) | 306 | @item @code{toolBar} (class @code{ToolBar}) |
| 307 | @cindex tool bar | 307 | @cindex tool bar |
| 308 | Number of lines to reserve for the tool bar. A zero value suppresses | 308 | Number of lines to reserve for the tool bar. A zero value suppresses |
| 309 | the tool bar. For the Emacs tool bar (i.e. not Gtk+), if the value is | 309 | the tool bar. For the Emacs tool bar (i.e.@: not Gtk+), if the value |
| 310 | non-zero and @code{auto-resize-tool-bars} is non-@code{nil}, the tool bar's | 310 | is non-zero and @code{auto-resize-tool-bars} is non-@code{nil}, the |
| 311 | size will be changed automatically so that all tool bar items are visible. | 311 | tool bar's size will be changed automatically so that all tool bar |
| 312 | If the value of @code{auto-resize-tool-bars} is @code{grow-only}, | 312 | items are visible. If the value of @code{auto-resize-tool-bars} is |
| 313 | the tool bar expands automatically, but does not contract automatically. | 313 | @code{grow-only}, the tool bar expands automatically, but does not |
| 314 | To contract the tool bar, you must redraw the frame by entering @kbd{C-l}. | 314 | contract automatically. To contract the tool bar, you must redraw the |
| 315 | For the Gtk+ tool bar, any non-zero value means on and | 315 | frame by entering @kbd{C-l}. For the Gtk+ tool bar, any non-zero |
| 316 | @code{auto-resize-tool-bars} has no effect. | 316 | value means on and @code{auto-resize-tool-bars} has no effect. |
| 317 | 317 | ||
| 318 | @item @code{useXIM} (class @code{UseXIM}) | 318 | @item @code{useXIM} (class @code{UseXIM}) |
| 319 | @cindex XIM | 319 | @cindex XIM |
| @@ -641,17 +641,18 @@ The color for the border shadow, on the top and the left. | |||
| 641 | @node GTK resources | 641 | @node GTK resources |
| 642 | @appendixsec GTK resources | 642 | @appendixsec GTK resources |
| 643 | @iftex | 643 | @iftex |
| 644 | The most common way to customize the GTK widgets Emacs uses (menus, dialogs | 644 | The most common way to customize the GTK widgets Emacs uses (menus, |
| 645 | tool bars and scroll bars) is by choosing an appropriate theme, for example | 645 | dialogs tool bars and scroll bars) is by choosing an appropriate |
| 646 | with the GNOME theme selector. | 646 | theme, for example with the GNOME theme selector. |
| 647 | 647 | ||
| 648 | You can also do Emacs specific customization | 648 | You can also do Emacs specific customization by inserting GTK style |
| 649 | by inserting GTK style directives in the file @file{~/.emacs.d/gtkrc}, | 649 | directives in the file @file{~/.emacs.d/gtkrc}, but only if you have a |
| 650 | but only if you have a Gtk+ version earlier than 3 (i.e. 2). Some GTK | 650 | Gtk+ version earlier than 3 (i.e.@: 2). Some GTK themes ignore |
| 651 | themes ignore customizations in @file{~/.emacs.d/gtkrc} so not everything | 651 | customizations in @file{~/.emacs.d/gtkrc} so not everything works with |
| 652 | works with all themes. To customize Emacs font, background, faces, etc., use | 652 | all themes. To customize Emacs font, background, faces, etc., use the |
| 653 | the normal X resources (@pxref{Resources}). We will present some examples of | 653 | normal X resources (@pxref{Resources}). We will present some examples |
| 654 | customizations here, but for a more detailed description, see the online manual | 654 | of customizations here, but for a more detailed description, see the |
| 655 | online manual | ||
| 655 | 656 | ||
| 656 | The first example is just one line. It changes the font on all GTK widgets | 657 | The first example is just one line. It changes the font on all GTK widgets |
| 657 | to courier with size 12: | 658 | to courier with size 12: |
| @@ -1065,7 +1066,7 @@ possible states are: | |||
| 1065 | This is the default state for widgets. | 1066 | This is the default state for widgets. |
| 1066 | @item ACTIVE | 1067 | @item ACTIVE |
| 1067 | This is the state for a widget that is ready to do something. It is | 1068 | This is the state for a widget that is ready to do something. It is |
| 1068 | also for the trough of a scroll bar, i.e. @code{bg[ACTIVE] = "red"} | 1069 | also for the trough of a scroll bar, i.e.@: @code{bg[ACTIVE] = "red"} |
| 1069 | sets the scroll bar trough to red. Buttons that have been pressed but | 1070 | sets the scroll bar trough to red. Buttons that have been pressed but |
| 1070 | not released yet (``armed'') are in this state. | 1071 | not released yet (``armed'') are in this state. |
| 1071 | @item PRELIGHT | 1072 | @item PRELIGHT |
| @@ -1109,7 +1110,7 @@ You can't specify the file by its absolute file name. GTK looks for | |||
| 1109 | the pixmap file in directories specified in @code{pixmap_path}. | 1110 | the pixmap file in directories specified in @code{pixmap_path}. |
| 1110 | @code{pixmap_path} is a colon-separated list of directories within | 1111 | @code{pixmap_path} is a colon-separated list of directories within |
| 1111 | double quotes, specified at the top level in a @file{gtkrc} file | 1112 | double quotes, specified at the top level in a @file{gtkrc} file |
| 1112 | (i.e. not inside a style definition; see example above): | 1113 | (i.e.@: not inside a style definition; see example above): |
| 1113 | 1114 | ||
| 1114 | @smallexample | 1115 | @smallexample |
| 1115 | pixmap_path "/usr/share/pixmaps:/usr/include/X11/pixmaps" | 1116 | pixmap_path "/usr/share/pixmaps:/usr/include/X11/pixmaps" |
| @@ -1131,19 +1132,18 @@ Bold 12}, @samp{Courier 14}, @samp{Times 18}. See below for exact | |||
| 1131 | syntax. The names are case insensitive. | 1132 | syntax. The names are case insensitive. |
| 1132 | @end table | 1133 | @end table |
| 1133 | 1134 | ||
| 1134 | There are three ways to specify a color: by name, in hexadecimal | 1135 | There are three ways to specify a color: a color name, an RGB |
| 1135 | form, and with an RGB triplet. | 1136 | triplet, or a GTK-style RGB triplet. @xref{Colors}, for a description |
| 1137 | of color names and RGB triplets. Color names should be enclosed with | ||
| 1138 | double quotes, e.g.@: @samp{"red"}. RGB triplets should be written | ||
| 1139 | without double quotes, e.g.@: @samp{#ff0000}. GTK-style RGB triplets | ||
| 1140 | have the form | ||
| 1136 | 1141 | ||
| 1137 | @noindent | 1142 | @smallexample |
| 1138 | A color name is written within double quotes, for example @code{"red"}. | 1143 | @code{@{ @var{r}, @var{g}, @var{b} @}} |
| 1139 | 1144 | @end smallexample | |
| 1140 | @noindent | ||
| 1141 | Hexadecimal form is the same as in X: | ||
| 1142 | @code{#@var{rrrr}@var{gggg}@var{bbbb}}, where all three color specs | ||
| 1143 | must have the same number of hex digits (1, 2, 3 or 4). | ||
| 1144 | 1145 | ||
| 1145 | @noindent | 1146 | @noindent |
| 1146 | An RGB triplet looks like @code{@{ @var{r}, @var{g}, @var{b} @}}, | ||
| 1147 | where @var{r}, @var{g} and @var{b} are either integers in the range | 1147 | where @var{r}, @var{g} and @var{b} are either integers in the range |
| 1148 | 0-65535 or floats in the range 0.0-1.0. | 1148 | 0-65535 or floats in the range 0.0-1.0. |
| 1149 | 1149 | ||
diff --git a/doc/lispintro/ChangeLog b/doc/lispintro/ChangeLog index bdcd9e9aea8..6cede6375f2 100644 --- a/doc/lispintro/ChangeLog +++ b/doc/lispintro/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * makefile.w32-in: Update dependencies. | ||
| 4 | |||
| 1 | 2011-11-16 Juanma Barranquero <lekktu@gmail.com> | 5 | 2011-11-16 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 6 | ||
| 3 | * emacs-lisp-intro.texi (etags): Fix typo. | 7 | * emacs-lisp-intro.texi (etags): Fix typo. |
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi index 244d95d6937..23d0d5a8f34 100644 --- a/doc/lispintro/emacs-lisp-intro.texi +++ b/doc/lispintro/emacs-lisp-intro.texi | |||
| @@ -1401,7 +1401,7 @@ This is a harmless activity; and indeed, we will often try to generate | |||
| 1401 | error messages intentionally. Once you understand the jargon, error | 1401 | error messages intentionally. Once you understand the jargon, error |
| 1402 | messages can be informative. Instead of being called ``error'' | 1402 | messages can be informative. Instead of being called ``error'' |
| 1403 | messages, they should be called ``help'' messages. They are like | 1403 | messages, they should be called ``help'' messages. They are like |
| 1404 | signposts to a traveller in a strange country; deciphering them can be | 1404 | signposts to a traveler in a strange country; deciphering them can be |
| 1405 | hard, but once understood, they can point the way. | 1405 | hard, but once understood, they can point the way. |
| 1406 | 1406 | ||
| 1407 | The error message is generated by a built-in GNU Emacs debugger. We | 1407 | The error message is generated by a built-in GNU Emacs debugger. We |
| @@ -2040,7 +2040,7 @@ the first argument. This function takes three arguments. Its first | |||
| 2040 | argument is the string of characters, the second and third arguments are | 2040 | argument is the string of characters, the second and third arguments are |
| 2041 | numbers that indicate the beginning and end of the substring. The | 2041 | numbers that indicate the beginning and end of the substring. The |
| 2042 | numbers are a count of the number of characters (including spaces and | 2042 | numbers are a count of the number of characters (including spaces and |
| 2043 | punctuations) from the beginning of the string. | 2043 | punctuation) from the beginning of the string. |
| 2044 | 2044 | ||
| 2045 | @need 800 | 2045 | @need 800 |
| 2046 | For example, if you evaluate the following: | 2046 | For example, if you evaluate the following: |
diff --git a/doc/lispintro/makefile.w32-in b/doc/lispintro/makefile.w32-in index 7294d46b693..06641cc2222 100644 --- a/doc/lispintro/makefile.w32-in +++ b/doc/lispintro/makefile.w32-in | |||
| @@ -24,7 +24,7 @@ infodir = $(srcdir)/../../info | |||
| 24 | # Directory with the (customized) texinfo.tex file. | 24 | # Directory with the (customized) texinfo.tex file. |
| 25 | texinfodir = $(srcdir)/../misc | 25 | texinfodir = $(srcdir)/../misc |
| 26 | 26 | ||
| 27 | INFO_SOURCES = $(srcdir)/emacs-lisp-intro.texi | 27 | INFO_SOURCES = $(srcdir)/emacs-lisp-intro.texi $(srcdir)/doclicense.texi |
| 28 | # The file name eintr must fit within 5 characters, to allow for | 28 | # The file name eintr must fit within 5 characters, to allow for |
| 29 | # -NN extensions to fit into DOS 8+3 limits without clashing | 29 | # -NN extensions to fit into DOS 8+3 limits without clashing |
| 30 | INFO_TARGETS = $(infodir)/eintr | 30 | INFO_TARGETS = $(infodir)/eintr |
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog index 293f253c545..37de62be976 100644 --- a/doc/lispref/ChangeLog +++ b/doc/lispref/ChangeLog | |||
| @@ -1,3 +1,26 @@ | |||
| 1 | 2011-11-26 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * display.texi (Truncation): | ||
| 4 | * text.texi (Special Properties): Describe what a stretch-glyph is | ||
| 5 | instead of using that term without explanation. Make the | ||
| 6 | cross-references more accurate. | ||
| 7 | |||
| 8 | * display.texi (Usual Display): Update the description, | ||
| 9 | cross-references, and indexing related to display of control | ||
| 10 | characters and raw bytes. | ||
| 11 | |||
| 12 | 2011-11-25 Martin Rudalics <rudalics@gmx.at> | ||
| 13 | |||
| 14 | * windows.texi (Splitting Windows): Fix description of | ||
| 15 | window-combination-limit. Suggested by Eli Zaretskii. | ||
| 16 | |||
| 17 | 2011-11-23 Chong Yidong <cyd@gnu.org> | ||
| 18 | |||
| 19 | * windows.texi (Window Sizes): Move window-top-line, | ||
| 20 | window-left-column, and window-*-pixel-edges to Coordinates and | ||
| 21 | Windows node. | ||
| 22 | (Coordinates and Windows): Restore window-edges doc. | ||
| 23 | |||
| 1 | 2011-11-21 Martin Rudalics <rudalics@gmx.at> | 24 | 2011-11-21 Martin Rudalics <rudalics@gmx.at> |
| 2 | 25 | ||
| 3 | * windows.texi (Windows and Frames, Splitting Windows): Fix | 26 | * windows.texi (Windows and Frames, Splitting Windows): Fix |
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi index 9849420b1f5..a9921d7443d 100644 --- a/doc/lispref/display.texi +++ b/doc/lispref/display.texi | |||
| @@ -193,10 +193,12 @@ a window, that forces truncation. | |||
| 193 | @defvar wrap-prefix | 193 | @defvar wrap-prefix |
| 194 | If this buffer-local variable is non-@code{nil}, it defines a | 194 | If this buffer-local variable is non-@code{nil}, it defines a |
| 195 | ``prefix'' that is prepended to every continuation line at | 195 | ``prefix'' that is prepended to every continuation line at |
| 196 | display-time. (If lines are truncated, the wrap-prefix is never | 196 | display time. (If lines are truncated, the wrap-prefix is never |
| 197 | used.) It may be a string, an image, or a stretch-glyph; the value is | 197 | used.) It may be a string or an image (@pxref{Other Display Specs}), |
| 198 | interpreted in the same way as a @code{display} text property. | 198 | or a stretch of whitespace such as specified by the @code{:width} or |
| 199 | @xref{Display Property}. | 199 | @code{:align-to} display properties (@pxref{Specified Space}). The |
| 200 | value is interpreted in the same way as a @code{display} text | ||
| 201 | property. @xref{Display Property}. | ||
| 200 | 202 | ||
| 201 | A wrap-prefix may also be specified for regions of text, using the | 203 | A wrap-prefix may also be specified for regions of text, using the |
| 202 | @code{wrap-prefix} text or overlay property. This takes precedence | 204 | @code{wrap-prefix} text or overlay property. This takes precedence |
| @@ -206,9 +208,11 @@ over the @code{wrap-prefix} variable. @xref{Special Properties}. | |||
| 206 | @defvar line-prefix | 208 | @defvar line-prefix |
| 207 | If this buffer-local variable is non-@code{nil}, it defines a | 209 | If this buffer-local variable is non-@code{nil}, it defines a |
| 208 | ``prefix'' that is prepended to every non-continuation line at | 210 | ``prefix'' that is prepended to every non-continuation line at |
| 209 | display-time. It may be a string, an image, or a stretch-glyph; the | 211 | display time. It may be a string or an image (@pxref{Other Display |
| 210 | value is interpreted in the same way as a @code{display} text | 212 | Specs}), or a stretch of whitespace such as specified by the |
| 211 | property. @xref{Display Property}. | 213 | @code{:width} or @code{:align-to} display properties (@pxref{Specified |
| 214 | Space}). The value is interpreted in the same way as a @code{display} | ||
| 215 | text property. @xref{Display Property}. | ||
| 212 | 216 | ||
| 213 | A line-prefix may also be specified for regions of text using the | 217 | A line-prefix may also be specified for regions of text using the |
| 214 | @code{line-prefix} text or overlay property. This takes precedence | 218 | @code{line-prefix} text or overlay property. This takes precedence |
| @@ -5638,39 +5642,45 @@ code. You can override these conventions by setting up a display table | |||
| 5638 | @itemize @bullet | 5642 | @itemize @bullet |
| 5639 | @item | 5643 | @item |
| 5640 | Character codes 32 through 126 map to glyph codes 32 through 126. | 5644 | Character codes 32 through 126 map to glyph codes 32 through 126. |
| 5641 | Normally this means they display as themselves. | 5645 | Normally this means they display as themselves, but a display table |
| 5646 | can change that. | ||
| 5642 | 5647 | ||
| 5643 | @item | 5648 | @item |
| 5644 | Character code 9 is a horizontal tab. It displays as whitespace | 5649 | Character code 9 is a horizontal tab. It displays as whitespace |
| 5645 | up to a position determined by @code{tab-width}. | 5650 | up to a position determined by @code{tab-width}. |
| 5646 | 5651 | ||
| 5647 | @item | 5652 | @item |
| 5648 | Character code 10 is a newline. | 5653 | Character code 10 is a newline. It is normally invisible on display, |
| 5654 | and has the effect of ending the preceding line and starting a new | ||
| 5655 | line. | ||
| 5649 | 5656 | ||
| 5650 | @item | 5657 | @item |
| 5651 | All other codes in the range 0 through 31, and code 127, display in one | 5658 | All other codes in the range 0 through 31 display in one of two ways |
| 5652 | of two ways according to the value of @code{ctl-arrow}. If it is | 5659 | according to the value of @code{ctl-arrow}. If it is non-@code{nil}, |
| 5653 | non-@code{nil}, these codes map to sequences of two glyphs, where the | 5660 | these codes map to sequences of two glyphs, where the first glyph is |
| 5654 | first glyph is the @acronym{ASCII} code for @samp{^}. (A display table can | 5661 | the @acronym{ASCII} code for @samp{^}. (A display table can specify a |
| 5655 | specify a glyph to use instead of @samp{^}.) Otherwise, these codes map | 5662 | glyph to use instead of @samp{^}.) Otherwise, these codes map just |
| 5656 | just like the codes in the range 128 to 255. | 5663 | like the raw bytes in the range 128 to 255 (described below). |
| 5657 | 5664 | ||
| 5658 | On MS-DOS terminals, Emacs arranges by default for the character code | 5665 | @cindex octal escapes |
| 5659 | 127 to be mapped to the glyph code 127, which normally displays as an | ||
| 5660 | empty polygon. This glyph is used to display non-@acronym{ASCII} characters | ||
| 5661 | that the MS-DOS terminal doesn't support. @xref{MS-DOS and MULE,,, | ||
| 5662 | emacs, The GNU Emacs Manual}. | ||
| 5663 | |||
| 5664 | @item | 5666 | @item |
| 5665 | Character codes 128 through 255 map to sequences of four glyphs, where | 5667 | Raw bytes (@pxref{Text Representations}) with codes 128 through 255, |
| 5666 | the first glyph is the @acronym{ASCII} code for @samp{\}, and the others are | 5668 | and the @acronym{ASCII} control character with code 127, display as |
| 5667 | digit characters representing the character code in octal. (A display | 5669 | sequences of four glyphs, where the first glyph is the @acronym{ASCII} |
| 5668 | table can specify a glyph to use instead of @samp{\}.) | 5670 | code for @samp{\}, and the others are digit characters representing |
| 5671 | the character code in octal. (A display table can specify a glyph to | ||
| 5672 | use instead of @samp{\}.) This is known as the @dfn{octal escape} | ||
| 5673 | display. | ||
| 5669 | 5674 | ||
| 5670 | @item | 5675 | @item |
| 5671 | Multibyte character codes above 256 are displayed as themselves, or as | 5676 | Non-@acronym{ASCII} character codes above 127 are displayed as |
| 5672 | a question mark or a hex code or an empty box if the terminal cannot | 5677 | themselves, if the terminal and the available fonts support them. |
| 5673 | display that character. | 5678 | Characters that are not supported by the terminal, or (on window |
| 5679 | systems) have no fonts available for them, are displayed as a question | ||
| 5680 | mark or a hex code or an empty box. @xref{Glyphless Chars}, for how | ||
| 5681 | to control display of the characters not supported by the terminal or | ||
| 5682 | fonts. Display tables can change how a character is displayed, even | ||
| 5683 | if it is supported. | ||
| 5674 | @end itemize | 5684 | @end itemize |
| 5675 | 5685 | ||
| 5676 | The usual display conventions apply even when there is a display | 5686 | The usual display conventions apply even when there is a display |
| @@ -5695,7 +5705,8 @@ mode line using the new values, call the function | |||
| 5695 | This buffer-local variable controls how control characters are | 5705 | This buffer-local variable controls how control characters are |
| 5696 | displayed. If it is non-@code{nil}, they are displayed as a caret | 5706 | displayed. If it is non-@code{nil}, they are displayed as a caret |
| 5697 | followed by the character: @samp{^A}. If it is @code{nil}, they are | 5707 | followed by the character: @samp{^A}. If it is @code{nil}, they are |
| 5698 | displayed as a backslash followed by three octal digits: @samp{\001}. | 5708 | displayed as octal escapes: a backslash followed by three octal |
| 5709 | digits, as in @samp{\001}. | ||
| 5699 | @end defopt | 5710 | @end defopt |
| 5700 | 5711 | ||
| 5701 | @defopt tab-width | 5712 | @defopt tab-width |
diff --git a/doc/lispref/spellfile b/doc/lispref/spellfile index 5c0a6d0f5ea..e0d77ee0541 100644 --- a/doc/lispref/spellfile +++ b/doc/lispref/spellfile | |||
| @@ -253,7 +253,6 @@ deletable | |||
| 253 | deletion' | 253 | deletion' |
| 254 | delq | 254 | delq |
| 255 | depiction | 255 | depiction |
| 256 | descendents | ||
| 257 | deselecting | 256 | deselecting |
| 258 | destructive' | 257 | destructive' |
| 259 | destructively' | 258 | destructively' |
| @@ -299,7 +298,6 @@ excess' | |||
| 299 | exec | 298 | exec |
| 300 | exitcode | 299 | exitcode |
| 301 | expression' | 300 | expression' |
| 302 | extendible | ||
| 303 | extra' | 301 | extra' |
| 304 | fails' | 302 | fails' |
| 305 | fascist | 303 | fascist |
| @@ -660,7 +658,7 @@ the' | |||
| 660 | tildes | 658 | tildes |
| 661 | time's | 659 | time's |
| 662 | to' | 660 | to' |
| 663 | towars | 661 | towards |
| 664 | transportable | 662 | transportable |
| 665 | txt | 663 | txt |
| 666 | types' | 664 | types' |
| @@ -674,7 +672,6 @@ undefine | |||
| 674 | undefines | 672 | undefines |
| 675 | underfull | 673 | underfull |
| 676 | undo's | 674 | undo's |
| 677 | undodata | ||
| 678 | unevaluated' | 675 | unevaluated' |
| 679 | unexec | 676 | unexec |
| 680 | unexpand | 677 | unexpand |
diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi index 3a081dddc61..fc12939bec5 100644 --- a/doc/lispref/text.texi +++ b/doc/lispref/text.texi | |||
| @@ -3191,10 +3191,12 @@ controls the total height of the display line ending in that newline. | |||
| 3191 | 3191 | ||
| 3192 | @item wrap-prefix | 3192 | @item wrap-prefix |
| 3193 | If text has a @code{wrap-prefix} property, the prefix it defines will | 3193 | If text has a @code{wrap-prefix} property, the prefix it defines will |
| 3194 | be added at display-time to the beginning of every continuation line | 3194 | be added at display time to the beginning of every continuation line |
| 3195 | due to text wrapping (so if lines are truncated, the wrap-prefix is | 3195 | due to text wrapping (so if lines are truncated, the wrap-prefix is |
| 3196 | never used). It may be a string, an image, or a stretch-glyph such as | 3196 | never used). It may be a string or an image (@pxref{Other Display |
| 3197 | used by the @code{display} text-property. @xref{Display Property}. | 3197 | Specs}), or a stretch of whitespace such as specified by the |
| 3198 | @code{:width} or @code{:align-to} display properties (@pxref{Specified | ||
| 3199 | Space}). | ||
| 3198 | 3200 | ||
| 3199 | A wrap-prefix may also be specified for an entire buffer using the | 3201 | A wrap-prefix may also be specified for an entire buffer using the |
| 3200 | @code{wrap-prefix} buffer-local variable (however, a | 3202 | @code{wrap-prefix} buffer-local variable (however, a |
| @@ -3203,9 +3205,11 @@ the @code{wrap-prefix} variable). @xref{Truncation}. | |||
| 3203 | 3205 | ||
| 3204 | @item line-prefix | 3206 | @item line-prefix |
| 3205 | If text has a @code{line-prefix} property, the prefix it defines will | 3207 | If text has a @code{line-prefix} property, the prefix it defines will |
| 3206 | be added at display-time to the beginning of every non-continuation | 3208 | be added at display time to the beginning of every non-continuation |
| 3207 | line. It may be a string, an image, or a stretch-glyph such as used | 3209 | line. It may be a string or an image (@pxref{Other Display |
| 3208 | by the @code{display} text-property. @xref{Display Property}. | 3210 | Specs}), or a stretch of whitespace such as specified by the |
| 3211 | @code{:width} or @code{:align-to} display properties (@pxref{Specified | ||
| 3212 | Space}). | ||
| 3209 | 3213 | ||
| 3210 | A line-prefix may also be specified for an entire buffer using the | 3214 | A line-prefix may also be specified for an entire buffer using the |
| 3211 | @code{line-prefix} buffer-local variable (however, a | 3215 | @code{line-prefix} buffer-local variable (however, a |
| @@ -3762,7 +3766,7 @@ Additionally, if two fields are separated by another field with the | |||
| 3762 | special value @code{boundary}, then any point within this special | 3766 | special value @code{boundary}, then any point within this special |
| 3763 | field is also considered to be ``on the boundary.'' | 3767 | field is also considered to be ``on the boundary.'' |
| 3764 | 3768 | ||
| 3765 | Commands like @kbd{C-a} with no argumemt, that normally move backward | 3769 | Commands like @kbd{C-a} with no argument, that normally move backward |
| 3766 | to a specific kind of location and stay there once there, probably | 3770 | to a specific kind of location and stay there once there, probably |
| 3767 | should specify @code{nil} for @var{escape-from-edge}. Other motion | 3771 | should specify @code{nil} for @var{escape-from-edge}. Other motion |
| 3768 | commands that check fields should probably pass @code{t}. | 3772 | commands that check fields should probably pass @code{t}. |
| @@ -4322,5 +4326,3 @@ If you do want modification hooks to be run in a particular piece of | |||
| 4322 | code that is itself run from a modification hook, then rebind locally | 4326 | code that is itself run from a modification hook, then rebind locally |
| 4323 | @code{inhibit-modification-hooks} to @code{nil}. | 4327 | @code{inhibit-modification-hooks} to @code{nil}. |
| 4324 | @end defvar | 4328 | @end defvar |
| 4325 | |||
| 4326 | |||
diff --git a/doc/lispref/two-volume-cross-refs.txt b/doc/lispref/two-volume-cross-refs.txt index 53a9f58cd01..6eb11a92f47 100644 --- a/doc/lispref/two-volume-cross-refs.txt +++ b/doc/lispref/two-volume-cross-refs.txt | |||
| @@ -34,7 +34,7 @@ where each volume starts with a higher page number since I find it | |||
| 34 | harder to go to the right place in the volume.) | 34 | harder to go to the right place in the volume.) |
| 35 | 35 | ||
| 36 | References to the same volume are just the page number; references to | 36 | References to the same volume are just the page number; references to |
| 37 | the other volume are a volumne number (in Roman numerals) preceding | 37 | the other volume are a volume number (in Roman numerals) preceding |
| 38 | the page number. | 38 | the page number. |
| 39 | 39 | ||
| 40 | For example, in Volume I: | 40 | For example, in Volume I: |
diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi index bb1b0524689..437b6db8d58 100644 --- a/doc/lispref/windows.texi +++ b/doc/lispref/windows.texi | |||
| @@ -376,7 +376,7 @@ Bars}). At the top of the window is an optional header line | |||
| 376 | line (@pxref{Mode Line Format}). | 376 | line (@pxref{Mode Line Format}). |
| 377 | 377 | ||
| 378 | Emacs provides several functions for finding the height and width of | 378 | Emacs provides several functions for finding the height and width of |
| 379 | a window. Except where noted, these heights and widths are reported | 379 | a window. Except where noted, Emacs reports window heights and widths |
| 380 | as integer numbers of lines and columns respectively. On a graphical | 380 | as integer numbers of lines and columns respectively. On a graphical |
| 381 | display, each ``line'' and ``column'' actually corresponds to the | 381 | display, each ``line'' and ``column'' actually corresponds to the |
| 382 | height and width of a ``default'' character specified by the frame's | 382 | height and width of a ``default'' character specified by the frame's |
| @@ -439,26 +439,6 @@ that of the root window on that frame. If @var{window} is omitted or | |||
| 439 | @code{nil}, it defaults to the selected window. | 439 | @code{nil}, it defaults to the selected window. |
| 440 | @end defun | 440 | @end defun |
| 441 | 441 | ||
| 442 | @cindex window position | ||
| 443 | The following functions can be used to determine the position of a | ||
| 444 | window relative to the window area of its frame: | ||
| 445 | |||
| 446 | @defun window-top-line &optional window | ||
| 447 | This function returns the distance, in lines, between the top of | ||
| 448 | @var{window} and the top of the frame's window area. For instance, | ||
| 449 | the return value is 0 if there is no window above @var{window}. If | ||
| 450 | @var{window} is omitted or @code{nil}, it defaults to the selected | ||
| 451 | window. | ||
| 452 | @end defun | ||
| 453 | |||
| 454 | @defun window-left-column &optional window | ||
| 455 | This function returns the distance, in columns, between the left edge | ||
| 456 | of @var{window} and the left edge of the frame's window area. For | ||
| 457 | instance, the return value is 0 if there is no window to the left of | ||
| 458 | @var{window}. If @var{window} is omitted or @code{nil}, it defaults | ||
| 459 | to the selected window. | ||
| 460 | @end defun | ||
| 461 | |||
| 462 | @cindex window body height | 442 | @cindex window body height |
| 463 | @cindex body height of a window | 443 | @cindex body height of a window |
| 464 | @cindex window body width | 444 | @cindex window body width |
| @@ -535,45 +515,12 @@ can be resized in the desired direction. To determine that, use the | |||
| 535 | function @code{window-resizable}. @xref{Resizing Windows}. | 515 | function @code{window-resizable}. @xref{Resizing Windows}. |
| 536 | @end defun | 516 | @end defun |
| 537 | 517 | ||
| 538 | The following functions can be used to find a window's size and | 518 | @xref{Coordinates and Windows}, for more functions that report the |
| 539 | position in pixels. Though mostly useful on graphical displays, they | 519 | positions of various parts of a window relative to the frame, from |
| 540 | can also be called on text-only terminals, where the screen area of | 520 | which you can calculate its size. In particular, you can use the |
| 541 | each text character is taken to be ``one pixel''. | 521 | functions @code{window-pixel-edges} and |
| 542 | 522 | @code{window-inside-pixel-edges} to find the size in pixels, for | |
| 543 | @defun window-pixel-edges &optional window | 523 | graphical displays. |
| 544 | This function return a list of pixel coordinates for the edges of | ||
| 545 | @var{window}. If @var{window} is omitted or @code{nil}, it defaults | ||
| 546 | to the selected window. | ||
| 547 | |||
| 548 | The return value has the form @code{(@var{left} @var{top} @var{right} | ||
| 549 | @var{bottom})}. The list elements are, respectively, the X coordinate | ||
| 550 | of the left window edge, the Y coordinate of the top edge, one more | ||
| 551 | than the X coordinate of the right edge, and one more than the Y | ||
| 552 | coordinate of the bottom edge. The origin coordinate @samp{(0,0)} is | ||
| 553 | taken to be the top left corner of the frame's window area. | ||
| 554 | |||
| 555 | These edge values include the space used by the window's scroll bar, | ||
| 556 | margins, fringes, header line, and mode line, if any. | ||
| 557 | @end defun | ||
| 558 | |||
| 559 | @defun window-inside-pixel-edges &optional window | ||
| 560 | This function is like @code{window-pixel-edges}, except that it | ||
| 561 | returns the edge coordinates for the window's text area, rather than | ||
| 562 | the edge coordinates for the window itself. @var{window} must specify | ||
| 563 | a live window. | ||
| 564 | @end defun | ||
| 565 | |||
| 566 | @defun window-absolute-pixel-edges &optional window | ||
| 567 | This function is like @code{window-pixel-edges}, except that it | ||
| 568 | returns the edge coordinates relative to the top left corner of the | ||
| 569 | display screen. | ||
| 570 | @end defun | ||
| 571 | |||
| 572 | @defun window-inside-absolute-pixel-edges &optional window | ||
| 573 | This function is like @code{window-inside-pixel-edges}, except that it | ||
| 574 | returns the edge coordinates relative to the top left corner of the | ||
| 575 | display screen. @var{window} must specify a live window. | ||
| 576 | @end defun | ||
| 577 | 524 | ||
| 578 | @node Resizing Windows | 525 | @node Resizing Windows |
| 579 | @section Resizing Windows | 526 | @section Resizing Windows |
| @@ -943,8 +890,9 @@ direction as the existing window combination (otherwise, a new | |||
| 943 | internal window is created anyway). The default is @code{nil}. Other | 890 | internal window is created anyway). The default is @code{nil}. Other |
| 944 | values are reserved for future use. | 891 | values are reserved for future use. |
| 945 | 892 | ||
| 946 | Thus, if the value is always @code{t}, each window tree is a binary | 893 | Thus, if the value of this variable is at all times @code{t}, then at |
| 947 | tree: each window except the root window has exactly one sibling. | 894 | all times every window tree is a binary tree (a tree where each window |
| 895 | except the root window has exactly one sibling). | ||
| 948 | 896 | ||
| 949 | Furthermore, @code{split-window} calls | 897 | Furthermore, @code{split-window} calls |
| 950 | @code{set-window-combination-limit} on the newly-created internal | 898 | @code{set-window-combination-limit} on the newly-created internal |
| @@ -2976,32 +2924,90 @@ is off the screen due to horizontal scrolling: | |||
| 2976 | @end group | 2924 | @end group |
| 2977 | @end example | 2925 | @end example |
| 2978 | 2926 | ||
| 2979 | |||
| 2980 | @node Coordinates and Windows | 2927 | @node Coordinates and Windows |
| 2981 | @section Coordinates and Windows | 2928 | @section Coordinates and Windows |
| 2929 | @cindex frame-relative coordinate | ||
| 2930 | @cindex coordinate, relative to frame | ||
| 2931 | @cindex window position | ||
| 2932 | |||
| 2933 | This section describes functions that report the position of a | ||
| 2934 | window. Most of these functions report positions relative to the | ||
| 2935 | window's frame. In this case, the coordinate origin @samp{(0,0)} lies | ||
| 2936 | near the upper left corner of the frame. For technical reasons, on | ||
| 2937 | graphical displays the origin is not located at the exact corner of | ||
| 2938 | the graphical window as it appears on the screen. If Emacs is built | ||
| 2939 | with the GTK+ toolkit, the origin is at the upper left corner of the | ||
| 2940 | frame area used for displaying Emacs windows, below the title-bar, | ||
| 2941 | GTK+ menu bar, and tool bar (since these are drawn by the window | ||
| 2942 | manager and/or GTK+, not by Emacs). But if Emacs is not built with | ||
| 2943 | GTK+, the origin is at the upper left corner of the tool bar (since in | ||
| 2944 | this case Emacs itself draws the tool bar). In both cases, the X and | ||
| 2945 | Y coordinates increase rightward and downward respectively. | ||
| 2946 | |||
| 2947 | Except where noted, X and Y coordinates are reported in integer | ||
| 2948 | character units, i.e. numbers of lines and columns respectively. On a | ||
| 2949 | graphical display, each ``line'' and ``column'' corresponds to the | ||
| 2950 | height and width of a default character specified by the frame's | ||
| 2951 | default font. | ||
| 2952 | |||
| 2953 | @defun window-edges &optional window | ||
| 2954 | This function returns a list of the edge coordinates of @var{window}. | ||
| 2955 | If @var{window} is omitted or @code{nil}, it defaults to the selected | ||
| 2956 | window. | ||
| 2982 | 2957 | ||
| 2983 | This section describes how to relate screen coordinates to windows. | 2958 | The return value has the form @code{(@var{left} @var{top} @var{right} |
| 2959 | @var{bottom})}. These list elements are, respectively, the X | ||
| 2960 | coordinate of the leftmost column occupied by the window, the Y | ||
| 2961 | coordinate of the topmost row, the X coordinate one column to the | ||
| 2962 | right of the rightmost column, and the Y coordinate one row down from | ||
| 2963 | the bottommost row. | ||
| 2984 | 2964 | ||
| 2985 | @defun window-at x y &optional frame | 2965 | Note that these are the actual outer edges of the window, including |
| 2986 | This function returns the window containing the specified cursor | 2966 | any header line, mode line, scroll bar, fringes, and display margins. |
| 2987 | position in the frame @var{frame}. The coordinates @var{x} and @var{y} | 2967 | On a text-only terminal, if the window has a neighbor on its right, |
| 2988 | are measured in characters and count from the top left corner of the | 2968 | its right edge includes the separator line between the window and its |
| 2989 | frame. If they are out of range, @code{window-at} returns @code{nil}. | 2969 | neighbor. |
| 2970 | @end defun | ||
| 2990 | 2971 | ||
| 2991 | If you omit @var{frame}, the selected frame is used. | 2972 | @defun window-inside-edges &optional window |
| 2973 | This function is similar to @code{window-edges}, but the returned edge | ||
| 2974 | values are for the text area of the window. They exclude any header | ||
| 2975 | line, mode line, scroll bar, fringes, display margins, and vertical | ||
| 2976 | separator. | ||
| 2992 | @end defun | 2977 | @end defun |
| 2993 | 2978 | ||
| 2994 | @defun coordinates-in-window-p coordinates window | 2979 | @defun window-top-line &optional window |
| 2995 | This function checks whether a particular frame position falls within | 2980 | This function returns the Y coordinate of the topmost row of |
| 2996 | the window @var{window}. | 2981 | @var{window}, equivalent to the @var{top} entry in the list returned |
| 2982 | by @code{window-edges}. | ||
| 2983 | @end defun | ||
| 2984 | |||
| 2985 | @defun window-left-column &optional window | ||
| 2986 | This function returns the X coordinate of the leftmost column of | ||
| 2987 | @var{window}, equivalent to the @var{left} entry in the list returned | ||
| 2988 | by @code{window-edges}. | ||
| 2989 | @end defun | ||
| 2997 | 2990 | ||
| 2998 | The argument @var{coordinates} is a cons cell of the form @code{(@var{x} | 2991 | The following functions can be used to relate a set of |
| 2999 | . @var{y})}. The coordinates @var{x} and @var{y} are measured in | 2992 | frame-relative coordinates to a window: |
| 3000 | characters, and count from the top left corner of the screen or frame. | ||
| 3001 | 2993 | ||
| 3002 | The value returned by @code{coordinates-in-window-p} is non-@code{nil} | 2994 | @defun window-at x y &optional frame |
| 3003 | if the coordinates are inside @var{window}. The value also indicates | 2995 | This function returns the live window at the frame-relative |
| 3004 | what part of the window the position is in, as follows: | 2996 | coordinates @var{x} and @var{y}, on frame @var{frame}. If there is no |
| 2997 | window at that position, the return value is @code{nil}. If | ||
| 2998 | @var{frame} is omitted or @code{nil}, it defaults to the selected | ||
| 2999 | frame. | ||
| 3000 | @end defun | ||
| 3001 | |||
| 3002 | @defun coordinates-in-window-p coordinates window | ||
| 3003 | This function checks whether a window @var{window} occupies the | ||
| 3004 | frame-relative coordinates @var{coordinates}, and if so which part of | ||
| 3005 | the window that is. @var{window} should be a live window. | ||
| 3006 | @var{coordinates} should be a cons cell of the form @code{(@var{x} | ||
| 3007 | . @var{y})}, where @var{x} and @var{y} are frame-relative coordinates. | ||
| 3008 | |||
| 3009 | If there is no window at the specified position, the return value is | ||
| 3010 | @code{nil} . Otherwise, the return value is one of the following: | ||
| 3005 | 3011 | ||
| 3006 | @table @code | 3012 | @table @code |
| 3007 | @item (@var{relx} . @var{rely}) | 3013 | @item (@var{relx} . @var{rely}) |
| @@ -3038,6 +3044,44 @@ The function @code{coordinates-in-window-p} does not require a frame as | |||
| 3038 | argument because it always uses the frame that @var{window} is on. | 3044 | argument because it always uses the frame that @var{window} is on. |
| 3039 | @end defun | 3045 | @end defun |
| 3040 | 3046 | ||
| 3047 | The following functions return window positions in pixels, rather | ||
| 3048 | than character units. Though mostly useful on graphical displays, | ||
| 3049 | they can also be called on text-only terminals, where the screen area | ||
| 3050 | of each text character is taken to be ``one pixel''. | ||
| 3051 | |||
| 3052 | @defun window-pixel-edges &optional window | ||
| 3053 | This function returns a list of pixel coordinates for the edges of | ||
| 3054 | @var{window}. If @var{window} is omitted or @code{nil}, it defaults | ||
| 3055 | to the selected window. | ||
| 3056 | |||
| 3057 | The return value has the form @code{(@var{left} @var{top} @var{right} | ||
| 3058 | @var{bottom})}. The list elements are, respectively, the X pixel | ||
| 3059 | coordinate of the left window edge, the Y pixel coordinate of the top | ||
| 3060 | edge, one more than the X pixel coordinate of the right edge, and one | ||
| 3061 | more than the Y pixel coordinate of the bottom edge. | ||
| 3062 | @end defun | ||
| 3063 | |||
| 3064 | @defun window-inside-pixel-edges &optional window | ||
| 3065 | This function is like @code{window-pixel-edges}, except that it | ||
| 3066 | returns the pixel coordinates for the edges of the window's text area, | ||
| 3067 | rather than the pixel coordinates for the edges of the window itself. | ||
| 3068 | @var{window} must specify a live window. | ||
| 3069 | @end defun | ||
| 3070 | |||
| 3071 | The following functions return window positions in pixels, relative | ||
| 3072 | to the display screen rather than the frame: | ||
| 3073 | |||
| 3074 | @defun window-absolute-pixel-edges &optional window | ||
| 3075 | This function is like @code{window-pixel-edges}, except that it | ||
| 3076 | returns the edge pixel coordinates relative to the top left corner of | ||
| 3077 | the display screen. | ||
| 3078 | @end defun | ||
| 3079 | |||
| 3080 | @defun window-inside-absolute-pixel-edges &optional window | ||
| 3081 | This function is like @code{window-inside-pixel-edges}, except that it | ||
| 3082 | returns the edge pixel coordinates relative to the top left corner of | ||
| 3083 | the display screen. @var{window} must specify a live window. | ||
| 3084 | @end defun | ||
| 3041 | 3085 | ||
| 3042 | @node Window Configurations | 3086 | @node Window Configurations |
| 3043 | @section Window Configurations | 3087 | @section Window Configurations |
diff --git a/doc/man/emacs.1 b/doc/man/emacs.1 index 91ef4189b79..1acdcf5ebd2 100644 --- a/doc/man/emacs.1 +++ b/doc/man/emacs.1 | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | .\" See section COPYING for copyright and redistribution information. | 1 | .\" See section COPYING for copyright and redistribution information. |
| 2 | .TH EMACS 1 "2007 April 13" "GNU Emacs 24.0.91" | 2 | .TH EMACS 1 "2007 April 13" "GNU Emacs 24.0.92" |
| 3 | . | 3 | . |
| 4 | . | 4 | . |
| 5 | .SH NAME | 5 | .SH NAME |
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog index 43d9ba1b1e6..f94153479a8 100644 --- a/doc/misc/ChangeLog +++ b/doc/misc/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2011-11-24 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * gnus.texi, smtpmail.texi: Fix case of "GnuTLS". | ||
| 4 | |||
| 5 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 6 | |||
| 7 | * makefile.w32-in: Update dependencies. | ||
| 8 | |||
| 1 | 2011-11-20 Glenn Morris <rgm@gnu.org> | 9 | 2011-11-20 Glenn Morris <rgm@gnu.org> |
| 2 | 10 | ||
| 3 | * gnus.texi (Group Information): | 11 | * gnus.texi (Group Information): |
| @@ -2987,7 +2995,7 @@ | |||
| 2987 | * org.texi (Activation, Exporting, ASCII export, HTML export) | 2995 | * org.texi (Activation, Exporting, ASCII export, HTML export) |
| 2988 | (HTML Export commands, LaTeX/PDF export commands): | 2996 | (HTML Export commands, LaTeX/PDF export commands): |
| 2989 | Improve documentation about transient-mark-mode. | 2997 | Improve documentation about transient-mark-mode. |
| 2990 | (References): DOcuemtn the use of special names like $LR1 to reference | 2998 | (References): Document the use of special names like $LR1 to reference |
| 2991 | to fields in the last table row. | 2999 | to fields in the last table row. |
| 2992 | 3000 | ||
| 2993 | 2008-12-19 Juri Linkov <juri@jurta.org> | 3001 | 2008-12-19 Juri Linkov <juri@jurta.org> |
| @@ -7974,7 +7982,7 @@ | |||
| 7974 | 2003-02-01 Michael Albinus <Michael.Albinus@alcatel.de> | 7982 | 2003-02-01 Michael Albinus <Michael.Albinus@alcatel.de> |
| 7975 | 7983 | ||
| 7976 | * tramp.texi (Frequently Asked Questions): Explain a workaround if | 7984 | * tramp.texi (Frequently Asked Questions): Explain a workaround if |
| 7977 | another package loads accidently Ange-FTP. | 7985 | another package loads accidentally Ange-FTP. |
| 7978 | 7986 | ||
| 7979 | 2003-01-24 Michael Albinus <Michael.Albinus@alcatel.de> | 7987 | 2003-01-24 Michael Albinus <Michael.Albinus@alcatel.de> |
| 7980 | 7988 | ||
diff --git a/doc/misc/autotype.texi b/doc/misc/autotype.texi index ecf4c7e47b2..289c08eb00e 100644 --- a/doc/misc/autotype.texi +++ b/doc/misc/autotype.texi | |||
| @@ -419,7 +419,7 @@ inserting something. When this is @code{nil}, inserting is only done with | |||
| 419 | @kbd{M-x auto-insert}. When this is @code{function}, you are queried | 419 | @kbd{M-x auto-insert}. When this is @code{function}, you are queried |
| 420 | whenever @code{auto-insert} is called as a function, such as when Emacs | 420 | whenever @code{auto-insert} is called as a function, such as when Emacs |
| 421 | visits an empty file and you have set the above-mentioned hook. Otherwise | 421 | visits an empty file and you have set the above-mentioned hook. Otherwise |
| 422 | you are alway queried. | 422 | you are always queried. |
| 423 | 423 | ||
| 424 | @vindex auto-insert-prompt | 424 | @vindex auto-insert-prompt |
| 425 | When querying, the variable @code{auto-insert-prompt}'s value is used as a | 425 | When querying, the variable @code{auto-insert-prompt}'s value is used as a |
| @@ -510,7 +510,7 @@ inserting or updating the magic number. When this is @code{nil} updating | |||
| 510 | is only done with @kbd{M-x executable-set-magic}. When this is | 510 | is only done with @kbd{M-x executable-set-magic}. When this is |
| 511 | @code{function} you are queried whenever @code{executable-set-magic} is | 511 | @code{function} you are queried whenever @code{executable-set-magic} is |
| 512 | called as a function, such as when Emacs puts a buffer in Shell script | 512 | called as a function, such as when Emacs puts a buffer in Shell script |
| 513 | mode. Otherwise you are alway queried. | 513 | mode. Otherwise you are always queried. |
| 514 | 514 | ||
| 515 | @findex executable-self-display | 515 | @findex executable-self-display |
| 516 | @kbd{M-x executable-self-display} adds a magic number to the buffer, which | 516 | @kbd{M-x executable-self-display} adds a magic number to the buffer, which |
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi index 290b120ea80..32311ff5c3e 100644 --- a/doc/misc/calc.texi +++ b/doc/misc/calc.texi | |||
| @@ -25644,7 +25644,7 @@ equivalent expression involving intervals: @samp{b in [a .. c)}. | |||
| 25644 | of @samp{<} and @samp{<=} are allowed, or any of the four combinations | 25644 | of @samp{<} and @samp{<=} are allowed, or any of the four combinations |
| 25645 | of @samp{>} and @samp{>=}. Four-argument constructions like | 25645 | of @samp{>} and @samp{>=}. Four-argument constructions like |
| 25646 | @samp{a < b < c < d}, and mixtures like @w{@samp{a < b = c}} that | 25646 | @samp{a < b < c < d}, and mixtures like @w{@samp{a < b = c}} that |
| 25647 | involve both equalities and inequalities, are not allowed. | 25647 | involve both equations and inequalities, are not allowed. |
| 25648 | 25648 | ||
| 25649 | @kindex a . | 25649 | @kindex a . |
| 25650 | @pindex calc-remove-equal | 25650 | @pindex calc-remove-equal |
| @@ -34631,7 +34631,7 @@ the derivative is evaluated at the value of @var{var}; otherwise, the | |||
| 34631 | derivative is left in terms of @var{var}. If the expression contains | 34631 | derivative is left in terms of @var{var}. If the expression contains |
| 34632 | functions for which no derivative formula is known, new derivative | 34632 | functions for which no derivative formula is known, new derivative |
| 34633 | functions are invented by adding primes to the names; @pxref{Calculus}. | 34633 | functions are invented by adding primes to the names; @pxref{Calculus}. |
| 34634 | However, if @var{symb} is non-@code{nil}, the presence of undifferentiable | 34634 | However, if @var{symb} is non-@code{nil}, the presence of nondifferentiable |
| 34635 | functions in @var{expr} instead cancels the whole differentiation, and | 34635 | functions in @var{expr} instead cancels the whole differentiation, and |
| 34636 | @code{deriv} returns @code{nil} instead. | 34636 | @code{deriv} returns @code{nil} instead. |
| 34637 | 34637 | ||
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi index f8d757c2d87..cc566086f44 100644 --- a/doc/misc/ede.texi +++ b/doc/misc/ede.texi | |||
| @@ -268,7 +268,7 @@ projects. | |||
| 268 | 268 | ||
| 269 | Some project modes do not have a project file, but directly read a | 269 | Some project modes do not have a project file, but directly read a |
| 270 | Makefile or other existing file. Instead of directly editing the | 270 | Makefile or other existing file. Instead of directly editing the |
| 271 | object, you can edit the file by typine @kbd{C-c . e} | 271 | object, you can edit the file by typing @kbd{C-c . e} |
| 272 | (@code{ede-edit-file-target}). You should ``rescan'' the project | 272 | (@code{ede-edit-file-target}). You should ``rescan'' the project |
| 273 | afterwards (@pxref{Miscellaneous commands}). | 273 | afterwards (@pxref{Miscellaneous commands}). |
| 274 | 274 | ||
diff --git a/doc/misc/eieio.texi b/doc/misc/eieio.texi index 7b4945027d3..d65c7a15f7b 100644 --- a/doc/misc/eieio.texi +++ b/doc/misc/eieio.texi | |||
| @@ -1458,7 +1458,7 @@ Useful methods to define for your new class include: | |||
| 1458 | 1458 | ||
| 1459 | @defmethod eieio-speedbar eieio-speedbar-derive-line-path obj depth | 1459 | @defmethod eieio-speedbar eieio-speedbar-derive-line-path obj depth |
| 1460 | Return a string representing a directory associated with an instance | 1460 | Return a string representing a directory associated with an instance |
| 1461 | of @var{obj}. @var{depth} can be used to indice how many levels of | 1461 | of @var{obj}. @var{depth} can be used to index how many levels of |
| 1462 | indentation have been opened by the user where @var{obj} is shown. | 1462 | indentation have been opened by the user where @var{obj} is shown. |
| 1463 | @end defmethod | 1463 | @end defmethod |
| 1464 | 1464 | ||
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index f099dfd36d0..69b17a94d68 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi | |||
| @@ -13761,7 +13761,7 @@ The same as the above, but don't do automatic @acronym{STARTTLS} upgrades. | |||
| 13761 | @findex nntp-open-tls-stream | 13761 | @findex nntp-open-tls-stream |
| 13762 | @item nntp-open-tls-stream | 13762 | @item nntp-open-tls-stream |
| 13763 | Opens a connection to a server over a @dfn{secure} channel. To use | 13763 | Opens a connection to a server over a @dfn{secure} channel. To use |
| 13764 | this you must have @uref{http://www.gnu.org/software/gnutls/, GNUTLS} | 13764 | this you must have @uref{http://www.gnu.org/software/gnutls/, GnuTLS} |
| 13765 | installed. You then define a server as follows: | 13765 | installed. You then define a server as follows: |
| 13766 | 13766 | ||
| 13767 | @lisp | 13767 | @lisp |
| @@ -21279,7 +21279,7 @@ name (or part of a name) to match. | |||
| 21279 | @node The swish++ Engine | 21279 | @node The swish++ Engine |
| 21280 | @subsubsection The swish++ Engine | 21280 | @subsubsection The swish++ Engine |
| 21281 | 21281 | ||
| 21282 | FIXEM: Say something more here. | 21282 | FIXME: Say something more here. |
| 21283 | 21283 | ||
| 21284 | Documentation for swish++ may be found at the swish++ sourceforge page: | 21284 | Documentation for swish++ may be found at the swish++ sourceforge page: |
| 21285 | @uref{http://swishplusplus.sourceforge.net} | 21285 | @uref{http://swishplusplus.sourceforge.net} |
| @@ -21302,7 +21302,7 @@ to get a group name. By default this is @code{$HOME/Mail}. | |||
| 21302 | @node The swish-e Engine | 21302 | @node The swish-e Engine |
| 21303 | @subsubsection The swish-e Engine | 21303 | @subsubsection The swish-e Engine |
| 21304 | 21304 | ||
| 21305 | FIXEM: Say something more here. | 21305 | FIXME: Say something more here. |
| 21306 | 21306 | ||
| 21307 | Documentation for swish-e may be found at the swish-e homepage | 21307 | Documentation for swish-e may be found at the swish-e homepage |
| 21308 | @uref{http://swish-e.org} | 21308 | @uref{http://swish-e.org} |
| @@ -21895,7 +21895,7 @@ Clearly, the easiest way would be if marks could somehow be | |||
| 21895 | automatically set for the original article. This is exactly what | 21895 | automatically set for the original article. This is exactly what |
| 21896 | @emph{marks propagation} is about. | 21896 | @emph{marks propagation} is about. |
| 21897 | 21897 | ||
| 21898 | Marks propagation is deactivated by default. You can activate it for a | 21898 | Marks propagation is inactive by default. You can activate it for a |
| 21899 | certain @code{nnmairix} group with | 21899 | certain @code{nnmairix} group with |
| 21900 | @code{nnmairix-group-toggle-propmarks-this-group} (bound to @kbd{G b | 21900 | @code{nnmairix-group-toggle-propmarks-this-group} (bound to @kbd{G b |
| 21901 | p}). This function will warn you if you try to use it with your default | 21901 | p}). This function will warn you if you try to use it with your default |
| @@ -22047,7 +22047,7 @@ an example server definition: | |||
| 22047 | (nnml "mairix" (nnml-directory "mairix") (nnml-get-new-mail nil)) | 22047 | (nnml "mairix" (nnml-directory "mairix") (nnml-get-new-mail nil)) |
| 22048 | @end lisp | 22048 | @end lisp |
| 22049 | 22049 | ||
| 22050 | (The @code{nnmaildir} back end also has a server variabe | 22050 | (The @code{nnmaildir} back end also has a server variable |
| 22051 | @code{get-new-mail}, but its default value is @code{nil}, so you don't | 22051 | @code{get-new-mail}, but its default value is @code{nil}, so you don't |
| 22052 | have to explicitly set it if you use a @code{nnmaildir} server just for | 22052 | have to explicitly set it if you use a @code{nnmaildir} server just for |
| 22053 | mairix.) | 22053 | mairix.) |
| @@ -27408,7 +27408,7 @@ considered home score and adapt files (@pxref{Home Score File}) have | |||
| 27408 | been added. | 27408 | been added. |
| 27409 | 27409 | ||
| 27410 | @item | 27410 | @item |
| 27411 | @code{nndoc} was rewritten to be easily extendable (@pxref{Document | 27411 | @code{nndoc} was rewritten to be easily extensible (@pxref{Document |
| 27412 | Server Internals}). | 27412 | Server Internals}). |
| 27413 | 27413 | ||
| 27414 | @item | 27414 | @item |
| @@ -27801,7 +27801,7 @@ The revised Gnus @acronym{FAQ} is included in the manual, | |||
| 27801 | @acronym{TLS} wrapper shipped with Gnus | 27801 | @acronym{TLS} wrapper shipped with Gnus |
| 27802 | 27802 | ||
| 27803 | @acronym{TLS}/@acronym{SSL} is now supported in @acronym{IMAP} and | 27803 | @acronym{TLS}/@acronym{SSL} is now supported in @acronym{IMAP} and |
| 27804 | @acronym{NNTP} via @file{tls.el} and GNUTLS. | 27804 | @acronym{NNTP} via @file{tls.el} and GnuTLS. |
| 27805 | 27805 | ||
| 27806 | @item | 27806 | @item |
| 27807 | Improved anti-spam features. | 27807 | Improved anti-spam features. |
diff --git a/doc/misc/idlwave.texi b/doc/misc/idlwave.texi index 8e172301915..3e13dbb0f23 100644 --- a/doc/misc/idlwave.texi +++ b/doc/misc/idlwave.texi | |||
| @@ -62,7 +62,7 @@ developing GNU and promoting software freedom.'' | |||
| 62 | IDLWAVE is a package which supports editing source code written in the | 62 | IDLWAVE is a package which supports editing source code written in the |
| 63 | Interactive Data Language (IDL), and running IDL as an inferior shell. | 63 | Interactive Data Language (IDL), and running IDL as an inferior shell. |
| 64 | 64 | ||
| 65 | @insertcopying | 65 | @insertcopying |
| 66 | @end ifnottex | 66 | @end ifnottex |
| 67 | 67 | ||
| 68 | @menu | 68 | @menu |
| @@ -72,8 +72,8 @@ Interactive Data Language (IDL), and running IDL as an inferior shell. | |||
| 72 | * The IDLWAVE Major Mode:: The mode for editing IDL programs | 72 | * The IDLWAVE Major Mode:: The mode for editing IDL programs |
| 73 | * The IDLWAVE Shell:: The mode for running IDL as an inferior program | 73 | * The IDLWAVE Shell:: The mode for running IDL as an inferior program |
| 74 | * Acknowledgements:: Who did what | 74 | * Acknowledgements:: Who did what |
| 75 | * Sources of Routine Info:: How does IDLWAVE know about routine XYZ | 75 | * Sources of Routine Info:: How does IDLWAVE know about routine XYZ |
| 76 | * HTML Help Browser Tips:: | 76 | * HTML Help Browser Tips:: |
| 77 | * Configuration Examples:: The user is king | 77 | * Configuration Examples:: The user is king |
| 78 | * Windows and MacOS:: What still works, and how | 78 | * Windows and MacOS:: What still works, and how |
| 79 | * Troubleshooting:: When good computers turn bad | 79 | * Troubleshooting:: When good computers turn bad |
| @@ -85,9 +85,9 @@ Interactive Data Language (IDL), and running IDL as an inferior shell. | |||
| 85 | 85 | ||
| 86 | Getting Started (Tutorial) | 86 | Getting Started (Tutorial) |
| 87 | 87 | ||
| 88 | * Lesson I -- Development Cycle:: | 88 | * Lesson I -- Development Cycle:: |
| 89 | * Lesson II -- Customization:: | 89 | * Lesson II -- Customization:: |
| 90 | * Lesson III -- User Catalog:: | 90 | * Lesson III -- User Catalog:: |
| 91 | 91 | ||
| 92 | The IDLWAVE Major Mode | 92 | The IDLWAVE Major Mode |
| 93 | 93 | ||
| @@ -107,7 +107,7 @@ The IDLWAVE Major Mode | |||
| 107 | Code Formatting | 107 | Code Formatting |
| 108 | 108 | ||
| 109 | * Code Indentation:: Reflecting the logical structure | 109 | * Code Indentation:: Reflecting the logical structure |
| 110 | * Continued Statement Indentation:: | 110 | * Continued Statement Indentation:: |
| 111 | * Comment Indentation:: Special indentation for comment lines | 111 | * Comment Indentation:: Special indentation for comment lines |
| 112 | * Continuation Lines:: Splitting statements over lines | 112 | * Continuation Lines:: Splitting statements over lines |
| 113 | * Syntax Highlighting:: Font-lock support | 113 | * Syntax Highlighting:: Font-lock support |
| @@ -115,14 +115,14 @@ Code Formatting | |||
| 115 | 115 | ||
| 116 | Online Help | 116 | Online Help |
| 117 | 117 | ||
| 118 | * Help with HTML Documentation:: | 118 | * Help with HTML Documentation:: |
| 119 | * Help with Source:: | 119 | * Help with Source:: |
| 120 | 120 | ||
| 121 | Completion | 121 | Completion |
| 122 | 122 | ||
| 123 | * Case of Completed Words:: CaseOFcomPletedWords | 123 | * Case of Completed Words:: CaseOFcomPletedWords |
| 124 | * Object Method Completion and Class Ambiguity:: obj->Method, what? | 124 | * Object Method Completion and Class Ambiguity:: obj->Method, what? |
| 125 | * Object Method Completion in the Shell:: | 125 | * Object Method Completion in the Shell:: |
| 126 | * Class and Keyword Inheritance:: obj->Method, _EXTRA=e | 126 | * Class and Keyword Inheritance:: obj->Method, _EXTRA=e |
| 127 | * Structure Tag Completion:: Completing state.Tag | 127 | * Structure Tag Completion:: Completing state.Tag |
| 128 | 128 | ||
| @@ -136,32 +136,32 @@ The IDLWAVE Shell | |||
| 136 | 136 | ||
| 137 | * Starting the Shell:: How to launch IDL as a subprocess | 137 | * Starting the Shell:: How to launch IDL as a subprocess |
| 138 | * Using the Shell:: Interactively working with the Shell | 138 | * Using the Shell:: Interactively working with the Shell |
| 139 | * Commands Sent to the Shell:: | 139 | * Commands Sent to the Shell:: |
| 140 | * Debugging IDL Programs:: | 140 | * Debugging IDL Programs:: |
| 141 | * Examining Variables:: | 141 | * Examining Variables:: |
| 142 | * Custom Expression Examination:: | 142 | * Custom Expression Examination:: |
| 143 | 143 | ||
| 144 | Debugging IDL Programs | 144 | Debugging IDL Programs |
| 145 | 145 | ||
| 146 | * A Tale of Two Modes:: | 146 | * A Tale of Two Modes:: |
| 147 | * Debug Key Bindings:: | 147 | * Debug Key Bindings:: |
| 148 | * Breakpoints and Stepping:: | 148 | * Breakpoints and Stepping:: |
| 149 | * Compiling Programs:: | 149 | * Compiling Programs:: |
| 150 | * Walking the Calling Stack:: | 150 | * Walking the Calling Stack:: |
| 151 | * Electric Debug Mode:: | 151 | * Electric Debug Mode:: |
| 152 | 152 | ||
| 153 | Sources of Routine Info | 153 | Sources of Routine Info |
| 154 | 154 | ||
| 155 | * Routine Definitions:: Where IDL Routines are defined. | 155 | * Routine Definitions:: Where IDL Routines are defined. |
| 156 | * Routine Information Sources:: So how does IDLWAVE know about... | 156 | * Routine Information Sources:: So how does IDLWAVE know about... |
| 157 | * Catalogs:: | 157 | * Catalogs:: |
| 158 | * Load-Path Shadows:: Routines defined in several places | 158 | * Load-Path Shadows:: Routines defined in several places |
| 159 | * Documentation Scan:: Scanning the IDL Manuals | 159 | * Documentation Scan:: Scanning the IDL Manuals |
| 160 | 160 | ||
| 161 | Catalogs | 161 | Catalogs |
| 162 | 162 | ||
| 163 | * Library Catalogs:: | 163 | * Library Catalogs:: |
| 164 | * User Catalog:: | 164 | * User Catalog:: |
| 165 | 165 | ||
| 166 | @end detailmenu | 166 | @end detailmenu |
| 167 | @end menu | 167 | @end menu |
| @@ -193,13 +193,13 @@ form a complete development environment. Here is a brief summary of | |||
| 193 | what IDLWAVE does: | 193 | what IDLWAVE does: |
| 194 | 194 | ||
| 195 | @itemize @bullet | 195 | @itemize @bullet |
| 196 | @item | 196 | @item |
| 197 | Smart code indentation and automatic-formatting. | 197 | Smart code indentation and automatic-formatting. |
| 198 | @item | 198 | @item |
| 199 | Three level syntax highlighting support. | 199 | Three level syntax highlighting support. |
| 200 | @item | 200 | @item |
| 201 | Context-sensitive display of calling sequences and keywords for more | 201 | Context-sensitive display of calling sequences and keywords for more |
| 202 | than 1000 native IDL routines, extendible to any additional number of | 202 | than 1000 native IDL routines, extensible to any additional number of |
| 203 | local routines, and already available with many pre-scanned libraries. | 203 | local routines, and already available with many pre-scanned libraries. |
| 204 | @item | 204 | @item |
| 205 | Fast, context-sensitive online HTML help, or source-header help for | 205 | Fast, context-sensitive online HTML help, or source-header help for |
| @@ -373,9 +373,9 @@ at point. | |||
| 373 | @cindex Getting Started | 373 | @cindex Getting Started |
| 374 | 374 | ||
| 375 | @menu | 375 | @menu |
| 376 | * Lesson I -- Development Cycle:: | 376 | * Lesson I -- Development Cycle:: |
| 377 | * Lesson II -- Customization:: | 377 | * Lesson II -- Customization:: |
| 378 | * Lesson III -- User Catalog:: | 378 | * Lesson III -- User Catalog:: |
| 379 | @end menu | 379 | @end menu |
| 380 | 380 | ||
| 381 | @node Lesson I -- Development Cycle, Lesson II -- Customization, Getting Started, Getting Started | 381 | @node Lesson I -- Development Cycle, Lesson II -- Customization, Getting Started, Getting Started |
| @@ -418,13 +418,13 @@ function daynr,d,m,y | |||
| 418 | y1 = y * delta | 418 | y1 = y * delta |
| 419 | return, d + floor(m1*30.6)+floor(y1*365.25)+5 | 419 | return, d + floor(m1*30.6)+floor(y1*365.25)+5 |
| 420 | end | 420 | end |
| 421 | 421 | ||
| 422 | function weekday,day,month,year | 422 | function weekday,day,month,year |
| 423 | ;; compute weekday number for date | 423 | ;; compute weekday number for date |
| 424 | nr = daynr(day,month,year) | 424 | nr = daynr(day,month,year) |
| 425 | return, nr mod 7 | 425 | return, nr mod 7 |
| 426 | end | 426 | end |
| 427 | 427 | ||
| 428 | pro plot_wday,day,month | 428 | pro plot_wday,day,month |
| 429 | ;; Plot the weekday of a date in the first 10 years of this century. | 429 | ;; Plot the weekday of a date in the first 10 years of this century. |
| 430 | years = 2000,+indgen(10) | 430 | years = 2000,+indgen(10) |
| @@ -753,7 +753,7 @@ them. | |||
| 753 | 753 | ||
| 754 | @menu | 754 | @menu |
| 755 | * Code Indentation:: Reflecting the logical structure | 755 | * Code Indentation:: Reflecting the logical structure |
| 756 | * Continued Statement Indentation:: | 756 | * Continued Statement Indentation:: |
| 757 | * Comment Indentation:: Special indentation for comment lines | 757 | * Comment Indentation:: Special indentation for comment lines |
| 758 | * Continuation Lines:: Splitting statements over lines | 758 | * Continuation Lines:: Splitting statements over lines |
| 759 | * Syntax Highlighting:: Font-lock support | 759 | * Syntax Highlighting:: Font-lock support |
| @@ -797,7 +797,7 @@ subprogram). The command @kbd{C-M-q} reindents the entire current | |||
| 797 | routine. @xref{Actions}, for information how to impose additional | 797 | routine. @xref{Actions}, for information how to impose additional |
| 798 | formatting conventions on foreign code. | 798 | formatting conventions on foreign code. |
| 799 | 799 | ||
| 800 | @defopt idlwave-main-block-indent (@code{2}) | 800 | @defopt idlwave-main-block-indent (@code{2}) |
| 801 | Extra indentation for the main block of code. That is the block between | 801 | Extra indentation for the main block of code. That is the block between |
| 802 | the FUNCTION/PRO statement and the END statement for that program | 802 | the FUNCTION/PRO statement and the END statement for that program |
| 803 | unit. | 803 | unit. |
| @@ -998,7 +998,7 @@ in the first line of a comment paragraph. | |||
| 998 | 998 | ||
| 999 | @defopt idlwave-use-last-hang-indent (@code{nil}) | 999 | @defopt idlwave-use-last-hang-indent (@code{nil}) |
| 1000 | Non-@code{nil} means use last match on line for | 1000 | Non-@code{nil} means use last match on line for |
| 1001 | @code{idlwave-indent-regexp}. | 1001 | @code{idlwave-indent-regexp}. |
| 1002 | @end defopt | 1002 | @end defopt |
| 1003 | 1003 | ||
| 1004 | @node Syntax Highlighting, Octals and Highlighting, Continuation Lines, Code Formatting | 1004 | @node Syntax Highlighting, Octals and Highlighting, Continuation Lines, Code Formatting |
| @@ -1026,7 +1026,7 @@ for highlighting using the variable | |||
| 1026 | 1026 | ||
| 1027 | @defopt idlwave-default-font-lock-items | 1027 | @defopt idlwave-default-font-lock-items |
| 1028 | Items which should be fontified on the default fontification level | 1028 | Items which should be fontified on the default fontification level |
| 1029 | 2. | 1029 | 2. |
| 1030 | @end defopt | 1030 | @end defopt |
| 1031 | 1031 | ||
| 1032 | @node Octals and Highlighting, , Syntax Highlighting, Code Formatting | 1032 | @node Octals and Highlighting, , Syntax Highlighting, Code Formatting |
| @@ -1104,7 +1104,7 @@ plot,x,alog(x+5*sin(x) + 2), | |||
| 1104 | On positions 1,2 and 8, information about the @samp{plot} procedure will | 1104 | On positions 1,2 and 8, information about the @samp{plot} procedure will |
| 1105 | be shown. On positions 3,4, and 7, the @samp{alog} function will be | 1105 | be shown. On positions 3,4, and 7, the @samp{alog} function will be |
| 1106 | described, while positions 5 and 6 will investigate the @samp{sin} | 1106 | described, while positions 5 and 6 will investigate the @samp{sin} |
| 1107 | function. | 1107 | function. |
| 1108 | 1108 | ||
| 1109 | When you ask for routine information about an object method, and the | 1109 | When you ask for routine information about an object method, and the |
| 1110 | method exists in several classes, IDLWAVE queries for the class of the | 1110 | method exists in several classes, IDLWAVE queries for the class of the |
| @@ -1162,7 +1162,7 @@ will automatically split into the next two. | |||
| 1162 | @item @i{Other} | 1162 | @item @i{Other} |
| 1163 | @tab Any other routine with a file not known to be on the search path. | 1163 | @tab Any other routine with a file not known to be on the search path. |
| 1164 | @item @i{Unresolved} | 1164 | @item @i{Unresolved} |
| 1165 | @tab An otherwise unknown routine the shell lists as unresolved | 1165 | @tab An otherwise unknown routine the shell lists as unresolved |
| 1166 | (referenced, but not compiled). | 1166 | (referenced, but not compiled). |
| 1167 | @end multitable | 1167 | @end multitable |
| 1168 | 1168 | ||
| @@ -1198,7 +1198,7 @@ with the middle mouse button inserts keywords or visits files: | |||
| 1198 | @item @i{Usage} | 1198 | @item @i{Usage} |
| 1199 | @tab If online help is installed, a click with the @emph{right} mouse | 1199 | @tab If online help is installed, a click with the @emph{right} mouse |
| 1200 | button on the @i{Usage:} line will access the help for the | 1200 | button on the @i{Usage:} line will access the help for the |
| 1201 | routine (@pxref{Online Help}). | 1201 | routine (@pxref{Online Help}). |
| 1202 | @item @i{Keyword} | 1202 | @item @i{Keyword} |
| 1203 | @tab Online help about keywords is also available with the | 1203 | @tab Online help about keywords is also available with the |
| 1204 | @emph{right} mouse button. Clicking on a keyword with the @emph{middle} | 1204 | @emph{right} mouse button. Clicking on a keyword with the @emph{middle} |
| @@ -1340,8 +1340,8 @@ directly in the originating source file. | |||
| 1340 | 1340 | ||
| 1341 | 1341 | ||
| 1342 | @menu | 1342 | @menu |
| 1343 | * Help with HTML Documentation:: | 1343 | * Help with HTML Documentation:: |
| 1344 | * Help with Source:: | 1344 | * Help with Source:: |
| 1345 | @end menu | 1345 | @end menu |
| 1346 | 1346 | ||
| 1347 | @node Help with HTML Documentation, Help with Source, Online Help, Online Help | 1347 | @node Help with HTML Documentation, Help with Source, Online Help, Online Help |
| @@ -1393,7 +1393,7 @@ configuring a browser for use with IDL's HTML help system. | |||
| 1393 | Relative directory of the system-supplied HTML help directory, | 1393 | Relative directory of the system-supplied HTML help directory, |
| 1394 | considered with respect to @code{idlwave-system-directory}. Relevant | 1394 | considered with respect to @code{idlwave-system-directory}. Relevant |
| 1395 | for IDL 6.2 and greater. Should not change. | 1395 | for IDL 6.2 and greater. Should not change. |
| 1396 | @end defopt | 1396 | @end defopt |
| 1397 | 1397 | ||
| 1398 | @defopt idlwave-html-help-location @file{/usr/local/etc/} | 1398 | @defopt idlwave-html-help-location @file{/usr/local/etc/} |
| 1399 | The directory where the @file{idl_html_help} HTML directory live. | 1399 | The directory where the @file{idl_html_help} HTML directory live. |
| @@ -1613,7 +1613,7 @@ available. | |||
| 1613 | @menu | 1613 | @menu |
| 1614 | * Case of Completed Words:: CaseOFcomPletedWords | 1614 | * Case of Completed Words:: CaseOFcomPletedWords |
| 1615 | * Object Method Completion and Class Ambiguity:: obj->Method, what? | 1615 | * Object Method Completion and Class Ambiguity:: obj->Method, what? |
| 1616 | * Object Method Completion in the Shell:: | 1616 | * Object Method Completion in the Shell:: |
| 1617 | * Class and Keyword Inheritance:: obj->Method, _EXTRA=e | 1617 | * Class and Keyword Inheritance:: obj->Method, _EXTRA=e |
| 1618 | * Structure Tag Completion:: Completing state.Tag | 1618 | * Structure Tag Completion:: Completing state.Tag |
| 1619 | @end menu | 1619 | @end menu |
| @@ -1681,7 +1681,7 @@ narrow down the number of possible completions. The variable | |||
| 1681 | @code{idlwave-query-class} can be configured to make such prompting the | 1681 | @code{idlwave-query-class} can be configured to make such prompting the |
| 1682 | default for all methods (not recommended), or selectively for very | 1682 | default for all methods (not recommended), or selectively for very |
| 1683 | common methods for which the number of completing keywords would be too | 1683 | common methods for which the number of completing keywords would be too |
| 1684 | large (e.g. @code{Init,SetProperty,GetProperty}). | 1684 | large (e.g. @code{Init,SetProperty,GetProperty}). |
| 1685 | 1685 | ||
| 1686 | @cindex Saving object class on @code{->} | 1686 | @cindex Saving object class on @code{->} |
| 1687 | @cindex @code{->} | 1687 | @cindex @code{->} |
| @@ -1729,7 +1729,7 @@ routine info, or online help within a method routine, a query is sent to | |||
| 1729 | determine the class of the object. If this query is successful, the | 1729 | determine the class of the object. If this query is successful, the |
| 1730 | class found will be used to select appropriate completions, routine | 1730 | class found will be used to select appropriate completions, routine |
| 1731 | info, or help. If unsuccessful, information from all known classes will | 1731 | info, or help. If unsuccessful, information from all known classes will |
| 1732 | be used (as in the buffer). | 1732 | be used (as in the buffer). |
| 1733 | 1733 | ||
| 1734 | @node Class and Keyword Inheritance, Structure Tag Completion, Object Method Completion in the Shell, Completion | 1734 | @node Class and Keyword Inheritance, Structure Tag Completion, Object Method Completion in the Shell, Completion |
| 1735 | @subsection Class and Keyword Inheritance | 1735 | @subsection Class and Keyword Inheritance |
| @@ -1772,7 +1772,7 @@ keywords based on their originating class. | |||
| 1772 | Non-@code{nil} means consider inheritance during completion, online help etc. | 1772 | Non-@code{nil} means consider inheritance during completion, online help etc. |
| 1773 | @end defopt | 1773 | @end defopt |
| 1774 | 1774 | ||
| 1775 | @defopt idlwave-keyword-class-inheritance | 1775 | @defopt idlwave-keyword-class-inheritance |
| 1776 | A list of regular expressions to match methods for which simple | 1776 | A list of regular expressions to match methods for which simple |
| 1777 | class-driven keyword inheritance will be used for Completion. | 1777 | class-driven keyword inheritance will be used for Completion. |
| 1778 | @end defopt | 1778 | @end defopt |
| @@ -1802,7 +1802,7 @@ Structure tag completion is not enabled by default. To enable it, | |||
| 1802 | simply add the following to your @file{.emacs}: | 1802 | simply add the following to your @file{.emacs}: |
| 1803 | 1803 | ||
| 1804 | @lisp | 1804 | @lisp |
| 1805 | (add-hook 'idlwave-load-hook | 1805 | (add-hook 'idlwave-load-hook |
| 1806 | (lambda () (require 'idlw-complete-structtag))) | 1806 | (lambda () (require 'idlw-complete-structtag))) |
| 1807 | @end lisp | 1807 | @end lisp |
| 1808 | 1808 | ||
| @@ -2226,7 +2226,7 @@ your @file{.emacs} file: | |||
| 2226 | (idlwave-action-and-binding "\\<\\(pro\\|function\\)\\>[ \t]*\\<" | 2226 | (idlwave-action-and-binding "\\<\\(pro\\|function\\)\\>[ \t]*\\<" |
| 2227 | '(capitalize-word 1) t) | 2227 | '(capitalize-word 1) t) |
| 2228 | ;; Capitalize common block name | 2228 | ;; Capitalize common block name |
| 2229 | (idlwave-action-and-binding "\\<common\\>[ \t]+\\<" | 2229 | (idlwave-action-and-binding "\\<common\\>[ \t]+\\<" |
| 2230 | '(capitalize-word 1) t))) | 2230 | '(capitalize-word 1) t))) |
| 2231 | @end lisp | 2231 | @end lisp |
| 2232 | 2232 | ||
| @@ -2384,10 +2384,10 @@ currently only works under Unix and MacOSX. | |||
| 2384 | @menu | 2384 | @menu |
| 2385 | * Starting the Shell:: How to launch IDL as a subprocess | 2385 | * Starting the Shell:: How to launch IDL as a subprocess |
| 2386 | * Using the Shell:: Interactively working with the Shell | 2386 | * Using the Shell:: Interactively working with the Shell |
| 2387 | * Commands Sent to the Shell:: | 2387 | * Commands Sent to the Shell:: |
| 2388 | * Debugging IDL Programs:: | 2388 | * Debugging IDL Programs:: |
| 2389 | * Examining Variables:: | 2389 | * Examining Variables:: |
| 2390 | * Custom Expression Examination:: | 2390 | * Custom Expression Examination:: |
| 2391 | @end menu | 2391 | @end menu |
| 2392 | 2392 | ||
| 2393 | @node Starting the Shell, Using the Shell, The IDLWAVE Shell, The IDLWAVE Shell | 2393 | @node Starting the Shell, Using the Shell, The IDLWAVE Shell, The IDLWAVE Shell |
| @@ -2414,7 +2414,7 @@ In order to create a separate frame for the IDLWAVE shell buffer, call | |||
| 2414 | @code{idlwave-shell} with a prefix argument: @kbd{C-u C-c C-s} or | 2414 | @code{idlwave-shell} with a prefix argument: @kbd{C-u C-c C-s} or |
| 2415 | @kbd{C-u C-c C-l}. If you always want a dedicated frame for the shell | 2415 | @kbd{C-u C-c C-l}. If you always want a dedicated frame for the shell |
| 2416 | window, configure the variable | 2416 | window, configure the variable |
| 2417 | @code{idlwave-shell-use-dedicated-frame}. | 2417 | @code{idlwave-shell-use-dedicated-frame}. |
| 2418 | 2418 | ||
| 2419 | To launch a quick IDLWAVE shell directly from a shell prompt without | 2419 | To launch a quick IDLWAVE shell directly from a shell prompt without |
| 2420 | an IDLWAVE buffer (e.g., as a replacement for running inside an | 2420 | an IDLWAVE buffer (e.g., as a replacement for running inside an |
| @@ -2471,7 +2471,7 @@ The file in which the command history of the idlwave shell is saved. | |||
| 2471 | Unless it's an absolute path, it goes in | 2471 | Unless it's an absolute path, it goes in |
| 2472 | @code{idlwave-config-directory}. | 2472 | @code{idlwave-config-directory}. |
| 2473 | @end defopt | 2473 | @end defopt |
| 2474 | 2474 | ||
| 2475 | @defopt idlwave-shell-use-dedicated-frame (@code{nil}) | 2475 | @defopt idlwave-shell-use-dedicated-frame (@code{nil}) |
| 2476 | Non-@code{nil} means IDLWAVE should use a special frame to display the | 2476 | Non-@code{nil} means IDLWAVE should use a special frame to display the |
| 2477 | shell buffer. | 2477 | shell buffer. |
| @@ -2574,7 +2574,7 @@ keywords, system variables, system variable tags etc. | |||
| 2574 | @item @kbd{C-c C-v} | 2574 | @item @kbd{C-c C-v} |
| 2575 | @tab Find the source file of a routine (@code{idlwave-find-module}) | 2575 | @tab Find the source file of a routine (@code{idlwave-find-module}) |
| 2576 | @item @kbd{C-c C-t} | 2576 | @item @kbd{C-c C-t} |
| 2577 | @tab Find the source file of a routine in the currently visited file | 2577 | @tab Find the source file of a routine in the currently visited file |
| 2578 | (@code{idlwave-find-module-this-file}). | 2578 | (@code{idlwave-find-module-this-file}). |
| 2579 | @item @kbd{C-c =} | 2579 | @item @kbd{C-c =} |
| 2580 | @tab Compile a library routine (@code{idlwave-resolve}) | 2580 | @tab Compile a library routine (@code{idlwave-resolve}) |
| @@ -2697,12 +2697,12 @@ buffers. | |||
| 2697 | @end defopt | 2697 | @end defopt |
| 2698 | 2698 | ||
| 2699 | @menu | 2699 | @menu |
| 2700 | * A Tale of Two Modes:: | 2700 | * A Tale of Two Modes:: |
| 2701 | * Debug Key Bindings:: | 2701 | * Debug Key Bindings:: |
| 2702 | * Breakpoints and Stepping:: | 2702 | * Breakpoints and Stepping:: |
| 2703 | * Compiling Programs:: | 2703 | * Compiling Programs:: |
| 2704 | * Walking the Calling Stack:: | 2704 | * Walking the Calling Stack:: |
| 2705 | * Electric Debug Mode:: | 2705 | * Electric Debug Mode:: |
| 2706 | @end menu | 2706 | @end menu |
| 2707 | 2707 | ||
| 2708 | 2708 | ||
| @@ -2795,7 +2795,7 @@ executed from the shell window, the breakpoint where IDL is currently | |||
| 2795 | stopped will be deleted. To clear all breakpoints, use @kbd{C-c C-d | 2795 | stopped will be deleted. To clear all breakpoints, use @kbd{C-c C-d |
| 2796 | C-a} (@code{idlwave-clear-all-bp}). Breakpoints can also be disabled | 2796 | C-a} (@code{idlwave-clear-all-bp}). Breakpoints can also be disabled |
| 2797 | and re-enabled: @kbd{C-c C-d C-\} | 2797 | and re-enabled: @kbd{C-c C-d C-\} |
| 2798 | (@code{idlwave-shell-toggle-enable-current-bp}). | 2798 | (@code{idlwave-shell-toggle-enable-current-bp}). |
| 2799 | 2799 | ||
| 2800 | Breakpoint lines are highlighted or indicated with an icon in the source | 2800 | Breakpoint lines are highlighted or indicated with an icon in the source |
| 2801 | code (different icons for conditional, after, and other break types). | 2801 | code (different icons for conditional, after, and other break types). |
| @@ -2804,7 +2804,7 @@ places breakpoints as close as possible on or after the line you | |||
| 2804 | specify. IDLWAVE queries the shell for the actual breakpoint location | 2804 | specify. IDLWAVE queries the shell for the actual breakpoint location |
| 2805 | which was set, so the exact line you specify may not be marked. You can | 2805 | which was set, so the exact line you specify may not be marked. You can |
| 2806 | re-sync the breakpoint list and update the display at any time (e.g., if | 2806 | re-sync the breakpoint list and update the display at any time (e.g., if |
| 2807 | you add or remove some on the command line) using @kbd{C-c C-d C-l}. | 2807 | you add or remove some on the command line) using @kbd{C-c C-d C-l}. |
| 2808 | 2808 | ||
| 2809 | In recent IDLWAVE versions, the breakpoint line is highlighted when the | 2809 | In recent IDLWAVE versions, the breakpoint line is highlighted when the |
| 2810 | mouse is moved over it, and a tooltip pops up describing the break | 2810 | mouse is moved over it, and a tooltip pops up describing the break |
| @@ -2914,8 +2914,8 @@ configured in @code{idlwave-shell-mark-stop-line}. | |||
| 2914 | @kindex C-c C-d C-c | 2914 | @kindex C-c C-d C-c |
| 2915 | In order to compile the current buffer under the IDLWAVE shell, press | 2915 | In order to compile the current buffer under the IDLWAVE shell, press |
| 2916 | @kbd{C-c C-d C-c} (@code{idlwave-save-and-run}). This first saves the | 2916 | @kbd{C-c C-d C-c} (@code{idlwave-save-and-run}). This first saves the |
| 2917 | current buffer and then sends the command @samp{.run path/to/file} to the | 2917 | current buffer and then sends the command @samp{.run path/to/file} to the |
| 2918 | shell. You can also execute @kbd{C-c C-d C-c} from the shell buffer, in | 2918 | shell. You can also execute @kbd{C-c C-d C-c} from the shell buffer, in |
| 2919 | which case the most recently compiled buffer will be saved and | 2919 | which case the most recently compiled buffer will be saved and |
| 2920 | re-compiled. | 2920 | re-compiled. |
| 2921 | 2921 | ||
| @@ -3080,9 +3080,9 @@ halts. | |||
| 3080 | 3080 | ||
| 3081 | @defopt idlwave-shell-electric-stop-color (Violet) | 3081 | @defopt idlwave-shell-electric-stop-color (Violet) |
| 3082 | Default color of the stopped line overlay when in electric debug mode. | 3082 | Default color of the stopped line overlay when in electric debug mode. |
| 3083 | @end defopt | 3083 | @end defopt |
| 3084 | 3084 | ||
| 3085 | @defopt idlwave-shell-electric-stop-line-face | 3085 | @defopt idlwave-shell-electric-stop-line-face |
| 3086 | The face to use for the stopped line. Defaults to a face similar to the | 3086 | The face to use for the stopped line. Defaults to a face similar to the |
| 3087 | modeline, with color @code{idlwave-shell-electric-stop-color}. | 3087 | modeline, with color @code{idlwave-shell-electric-stop-color}. |
| 3088 | @end defopt | 3088 | @end defopt |
| @@ -3188,14 +3188,14 @@ the expression printed by IDL. | |||
| 3188 | @end defopt | 3188 | @end defopt |
| 3189 | 3189 | ||
| 3190 | @defopt idlwave-shell-output-face | 3190 | @defopt idlwave-shell-output-face |
| 3191 | The face for @code{idlwave-shell-output-overlay}. | 3191 | The face for @code{idlwave-shell-output-overlay}. |
| 3192 | Allows to choose the font, color and other properties for the most | 3192 | Allows to choose the font, color and other properties for the most |
| 3193 | recent output of IDL when examining an expression." | 3193 | recent output of IDL when examining an expression." |
| 3194 | @end defopt | 3194 | @end defopt |
| 3195 | 3195 | ||
| 3196 | @defopt idlwave-shell-separate-examine-output (@code{t}) | 3196 | @defopt idlwave-shell-separate-examine-output (@code{t}) |
| 3197 | If non-@code{nil}, re-direct the output of examine commands to a special | 3197 | If non-@code{nil}, re-direct the output of examine commands to a special |
| 3198 | @file{*Examine*} buffer, instead of in the shell itself. | 3198 | @file{*Examine*} buffer, instead of in the shell itself. |
| 3199 | @end defopt | 3199 | @end defopt |
| 3200 | 3200 | ||
| 3201 | @defopt idlwave-shell-max-print-length (200) | 3201 | @defopt idlwave-shell-max-print-length (200) |
| @@ -3249,17 +3249,17 @@ Both functions take a single string argument sharing the syntax of the | |||
| 3249 | @lisp | 3249 | @lisp |
| 3250 | (add-hook 'idlwave-shell-mode-hook | 3250 | (add-hook 'idlwave-shell-mode-hook |
| 3251 | (lambda () | 3251 | (lambda () |
| 3252 | (idlwave-shell-define-key-both [s-down-mouse-2] | 3252 | (idlwave-shell-define-key-both [s-down-mouse-2] |
| 3253 | (idlwave-shell-mouse-examine | 3253 | (idlwave-shell-mouse-examine |
| 3254 | "print, size(___,/DIMENSIONS)")) | 3254 | "print, size(___,/DIMENSIONS)")) |
| 3255 | (idlwave-shell-define-key-both [f9] (idlwave-shell-examine | 3255 | (idlwave-shell-define-key-both [f9] (idlwave-shell-examine |
| 3256 | "print, size(___,/DIMENSIONS)")) | 3256 | "print, size(___,/DIMENSIONS)")) |
| 3257 | (idlwave-shell-define-key-both [f10] (idlwave-shell-examine | 3257 | (idlwave-shell-define-key-both [f10] (idlwave-shell-examine |
| 3258 | "print,size(___,/TNAME)")) | 3258 | "print,size(___,/TNAME)")) |
| 3259 | (idlwave-shell-define-key-both [f11] (idlwave-shell-examine | 3259 | (idlwave-shell-define-key-both [f11] (idlwave-shell-examine |
| 3260 | "help,___,/STRUCTURE")))) | 3260 | "help,___,/STRUCTURE")))) |
| 3261 | @end lisp | 3261 | @end lisp |
| 3262 | 3262 | ||
| 3263 | @noindent Now pressing @key{f9}, or middle-mouse dragging with the | 3263 | @noindent Now pressing @key{f9}, or middle-mouse dragging with the |
| 3264 | @key{SUPER} key depressed, will print the dimensions of the nearby or | 3264 | @key{SUPER} key depressed, will print the dimensions of the nearby or |
| 3265 | highlighted expression. Pressing @key{f10} will give the type string, | 3265 | highlighted expression. Pressing @key{f10} will give the type string, |
| @@ -3297,7 +3297,7 @@ of the package from version 3.0, during which time he overhauled almost | |||
| 3297 | everything, modernized IDLWAVE with many new features, and developed the | 3297 | everything, modernized IDLWAVE with many new features, and developed the |
| 3298 | manual. | 3298 | manual. |
| 3299 | 3299 | ||
| 3300 | @item | 3300 | @item |
| 3301 | @uref{mailto:jdsmith@@as.arizona.edu, @b{J.D. Smith}}, the current | 3301 | @uref{mailto:jdsmith@@as.arizona.edu, @b{J.D. Smith}}, the current |
| 3302 | maintainer, as of version 4.10, helped shape object method completion | 3302 | maintainer, as of version 4.10, helped shape object method completion |
| 3303 | and most new features introduced in versions 4.x, and introduced many | 3303 | and most new features introduced in versions 4.x, and introduced many |
| @@ -3364,7 +3364,7 @@ know about the accessible routines. | |||
| 3364 | @menu | 3364 | @menu |
| 3365 | * Routine Definitions:: Where IDL Routines are defined. | 3365 | * Routine Definitions:: Where IDL Routines are defined. |
| 3366 | * Routine Information Sources:: So how does IDLWAVE know about... | 3366 | * Routine Information Sources:: So how does IDLWAVE know about... |
| 3367 | * Catalogs:: | 3367 | * Catalogs:: |
| 3368 | * Load-Path Shadows:: Routines defined in several places | 3368 | * Load-Path Shadows:: Routines defined in several places |
| 3369 | * Documentation Scan:: Scanning the IDL Manuals | 3369 | * Documentation Scan:: Scanning the IDL Manuals |
| 3370 | @end menu | 3370 | @end menu |
| @@ -3382,7 +3382,7 @@ know about the accessible routines. | |||
| 3382 | several places: | 3382 | several places: |
| 3383 | 3383 | ||
| 3384 | @enumerate | 3384 | @enumerate |
| 3385 | @item | 3385 | @item |
| 3386 | @emph{Builtin routines} are defined inside IDL itself. The source code | 3386 | @emph{Builtin routines} are defined inside IDL itself. The source code |
| 3387 | of such routines is not available, but instead are learned about through | 3387 | of such routines is not available, but instead are learned about through |
| 3388 | the IDL documentation. | 3388 | the IDL documentation. |
| @@ -3390,7 +3390,7 @@ the IDL documentation. | |||
| 3390 | Routines which are @emph{part of the current program}, are defined in a | 3390 | Routines which are @emph{part of the current program}, are defined in a |
| 3391 | file explicitly compiled by the user. This file may or may not be | 3391 | file explicitly compiled by the user. This file may or may not be |
| 3392 | located on the IDL search path. | 3392 | located on the IDL search path. |
| 3393 | @item | 3393 | @item |
| 3394 | @emph{Library routines} are defined in files located on IDL's search | 3394 | @emph{Library routines} are defined in files located on IDL's search |
| 3395 | path. When a library routine is called for the first time, IDL will | 3395 | path. When a library routine is called for the first time, IDL will |
| 3396 | find the source file and compile it dynamically. A special sub-category | 3396 | find the source file and compile it dynamically. A special sub-category |
| @@ -3428,7 +3428,7 @@ directly with IDL in the form of an XML catalog which IDLWAVE scans. | |||
| 3428 | Formerly, this list was created by scanning the IDL manuals to produce | 3428 | Formerly, this list was created by scanning the IDL manuals to produce |
| 3429 | the file @file{idlw-rinfo.el}. | 3429 | the file @file{idlw-rinfo.el}. |
| 3430 | 3430 | ||
| 3431 | @item | 3431 | @item |
| 3432 | IDLWAVE @emph{scans} all its @emph{buffers} in the current Emacs session | 3432 | IDLWAVE @emph{scans} all its @emph{buffers} in the current Emacs session |
| 3433 | for routine definitions. This is done automatically when routine | 3433 | for routine definitions. This is done automatically when routine |
| 3434 | information or completion is first requested by the user. Each new | 3434 | information or completion is first requested by the user. Each new |
| @@ -3547,8 +3547,8 @@ later). | |||
| 3547 | @end defopt | 3547 | @end defopt |
| 3548 | 3548 | ||
| 3549 | @menu | 3549 | @menu |
| 3550 | * Library Catalogs:: | 3550 | * Library Catalogs:: |
| 3551 | * User Catalog:: | 3551 | * User Catalog:: |
| 3552 | @end menu | 3552 | @end menu |
| 3553 | 3553 | ||
| 3554 | @html | 3554 | @html |
| @@ -3636,7 +3636,7 @@ instead, including: | |||
| 3636 | @itemize @bullet | 3636 | @itemize @bullet |
| 3637 | @item The scan is internal to Emacs, so you don't need a working Perl | 3637 | @item The scan is internal to Emacs, so you don't need a working Perl |
| 3638 | installation, as you do for library catalogs. | 3638 | installation, as you do for library catalogs. |
| 3639 | @item Can be used to scan directories for which the user has no write | 3639 | @item Can be used to scan directories for which the user has no write |
| 3640 | privileges. | 3640 | privileges. |
| 3641 | @item Easy widget-based path selection. | 3641 | @item Easy widget-based path selection. |
| 3642 | @end itemize | 3642 | @end itemize |
| @@ -3752,7 +3752,7 @@ Another way to find out if a specific routine has multiple definitions | |||
| 3752 | on the load path is routine info display (@pxref{Routine Info}). | 3752 | on the load path is routine info display (@pxref{Routine Info}). |
| 3753 | 3753 | ||
| 3754 | @node Documentation Scan, , Load-Path Shadows, Sources of Routine Info | 3754 | @node Documentation Scan, , Load-Path Shadows, Sources of Routine Info |
| 3755 | @appendixsec Documentation Scan | 3755 | @appendixsec Documentation Scan |
| 3756 | @cindex @file{get_html_rinfo} | 3756 | @cindex @file{get_html_rinfo} |
| 3757 | @cindex @file{idlw-rinfo.el} | 3757 | @cindex @file{idlw-rinfo.el} |
| 3758 | @cindex Scanning the documentation | 3758 | @cindex Scanning the documentation |
| @@ -3920,7 +3920,7 @@ user is King! | |||
| 3920 | (setq idlwave-main-block-indent 3) | 3920 | (setq idlwave-main-block-indent 3) |
| 3921 | (setq idlwave-end-offset -3) | 3921 | (setq idlwave-end-offset -3) |
| 3922 | (setq idlwave-continuation-indent 1) | 3922 | (setq idlwave-continuation-indent 1) |
| 3923 | (setq idlwave-begin-line-comment "^;[^;]") ; Leave ";" but not ";;" | 3923 | (setq idlwave-begin-line-comment "^;[^;]") ; Leave ";" but not ";;" |
| 3924 | ; anchored at start of line. | 3924 | ; anchored at start of line. |
| 3925 | (setq idlwave-surround-by-blank t) ; Turn on padding ops =,<,> | 3925 | (setq idlwave-surround-by-blank t) ; Turn on padding ops =,<,> |
| 3926 | (setq idlwave-pad-keyword nil) ; Remove spaces for keyword '=' | 3926 | (setq idlwave-pad-keyword nil) ; Remove spaces for keyword '=' |
| @@ -3987,10 +3987,10 @@ user is King! | |||
| 3987 | ;; (local-set-key "\C-j" 'idlwave-newline) ; My preference. | 3987 | ;; (local-set-key "\C-j" 'idlwave-newline) ; My preference. |
| 3988 | 3988 | ||
| 3989 | ;; Some personal abbreviations | 3989 | ;; Some personal abbreviations |
| 3990 | (define-abbrev idlwave-mode-abbrev-table | 3990 | (define-abbrev idlwave-mode-abbrev-table |
| 3991 | (concat idlwave-abbrev-start-char "wb") "widget_base()" | 3991 | (concat idlwave-abbrev-start-char "wb") "widget_base()" |
| 3992 | (idlwave-keyword-abbrev 1)) | 3992 | (idlwave-keyword-abbrev 1)) |
| 3993 | (define-abbrev idlwave-mode-abbrev-table | 3993 | (define-abbrev idlwave-mode-abbrev-table |
| 3994 | (concat idlwave-abbrev-start-char "on") "obj_new()" | 3994 | (concat idlwave-abbrev-start-char "on") "obj_new()" |
| 3995 | (idlwave-keyword-abbrev 1)) | 3995 | (idlwave-keyword-abbrev 1)) |
| 3996 | )) | 3996 | )) |
| @@ -4008,12 +4008,12 @@ user is King! | |||
| 4008 | (add-hook 'idlwave-shell-mode-hook | 4008 | (add-hook 'idlwave-shell-mode-hook |
| 4009 | (lambda () | 4009 | (lambda () |
| 4010 | ;; Set up some custom key and mouse examine commands | 4010 | ;; Set up some custom key and mouse examine commands |
| 4011 | (idlwave-shell-define-key-both [s-down-mouse-2] | 4011 | (idlwave-shell-define-key-both [s-down-mouse-2] |
| 4012 | (idlwave-shell-mouse-examine | 4012 | (idlwave-shell-mouse-examine |
| 4013 | "print, size(___,/DIMENSIONS)")) | 4013 | "print, size(___,/DIMENSIONS)")) |
| 4014 | (idlwave-shell-define-key-both [f9] (idlwave-shell-examine | 4014 | (idlwave-shell-define-key-both [f9] (idlwave-shell-examine |
| 4015 | "print, size(___,/DIMENSIONS)")) | 4015 | "print, size(___,/DIMENSIONS)")) |
| 4016 | (idlwave-shell-define-key-both [f10] (idlwave-shell-examine | 4016 | (idlwave-shell-define-key-both [f10] (idlwave-shell-examine |
| 4017 | "print,size(___,/TNAME)")) | 4017 | "print,size(___,/TNAME)")) |
| 4018 | (idlwave-shell-define-key-both [f11] (idlwave-shell-examine | 4018 | (idlwave-shell-define-key-both [f11] (idlwave-shell-examine |
| 4019 | "help,___,/STRUCTURE")))) | 4019 | "help,___,/STRUCTURE")))) |
| @@ -4066,7 +4066,7 @@ system. I am assuming that IDLWAVE has been installed in | |||
| 4066 | sure you check the following things: | 4066 | sure you check the following things: |
| 4067 | 4067 | ||
| 4068 | @itemize @bullet | 4068 | @itemize @bullet |
| 4069 | @item When you download the IDLWAVE distribution, make sure you save the | 4069 | @item When you download the IDLWAVE distribution, make sure you save the |
| 4070 | file under the names @file{idlwave.tar.gz}. | 4070 | file under the names @file{idlwave.tar.gz}. |
| 4071 | @item M-TAB switches among running programs --- use Esc-TAB | 4071 | @item M-TAB switches among running programs --- use Esc-TAB |
| 4072 | instead. | 4072 | instead. |
| @@ -4102,7 +4102,7 @@ customize the variable @code{idlwave-shell-automatic-electric-debug} | |||
| 4102 | if you prefer not to enter electric debug on breakpoints@dots{} but | 4102 | if you prefer not to enter electric debug on breakpoints@dots{} but |
| 4103 | you really should try it before you disable it! You can also | 4103 | you really should try it before you disable it! You can also |
| 4104 | customize this variable to enter debug mode when errors are | 4104 | customize this variable to enter debug mode when errors are |
| 4105 | encountered. | 4105 | encountered. |
| 4106 | 4106 | ||
| 4107 | @item @strong{I get errors like @samp{Searching for program: no such | 4107 | @item @strong{I get errors like @samp{Searching for program: no such |
| 4108 | file or directory, idl} when attempting to start the IDL shell.} | 4108 | file or directory, idl} when attempting to start the IDL shell.} |
| @@ -4141,7 +4141,7 @@ in compiled lisp files. Presumably, you kept the original .elc files in | |||
| 4141 | place, and this is the source of the error. If you recompile (or just | 4141 | place, and this is the source of the error. If you recompile (or just |
| 4142 | "make; make install") from source, it should resolve this problem. | 4142 | "make; make install") from source, it should resolve this problem. |
| 4143 | Another option is to recompile the @file{idlw*.el} files by hand using | 4143 | Another option is to recompile the @file{idlw*.el} files by hand using |
| 4144 | @kbd{M-x byte-compile-file}. | 4144 | @kbd{M-x byte-compile-file}. |
| 4145 | 4145 | ||
| 4146 | @item @strong{@kbd{M-@key{TAB}} doesn't complete words, it switches | 4146 | @item @strong{@kbd{M-@key{TAB}} doesn't complete words, it switches |
| 4147 | windows on my desktop.} | 4147 | windows on my desktop.} |
| @@ -4266,7 +4266,7 @@ You have a mismatch between your help index and the HTML help package | |||
| 4266 | you downloaded. You need to ensure you download a ``downgrade kit'' if | 4266 | you downloaded. You need to ensure you download a ``downgrade kit'' if |
| 4267 | you are using anything older than the latest HTML help package. A new | 4267 | you are using anything older than the latest HTML help package. A new |
| 4268 | help package appears with each IDL release (assuming the documentation | 4268 | help package appears with each IDL release (assuming the documentation |
| 4269 | is updated). | 4269 | is updated). |
| 4270 | Starting with IDL 6.2, the HTML help and its catalog are | 4270 | Starting with IDL 6.2, the HTML help and its catalog are |
| 4271 | distributed with IDL, and so should never be inconsistent. | 4271 | distributed with IDL, and so should never be inconsistent. |
| 4272 | 4272 | ||
diff --git a/doc/misc/makefile.w32-in b/doc/misc/makefile.w32-in index 1e497fe309f..0edaf3db3d6 100644 --- a/doc/misc/makefile.w32-in +++ b/doc/misc/makefile.w32-in | |||
| @@ -100,123 +100,127 @@ info.dvi: $(INFOSOURCES) | |||
| 100 | $(ENVADD) $(TEXI2DVI) $(srcdir)/info.texi | 100 | $(ENVADD) $(TEXI2DVI) $(srcdir)/info.texi |
| 101 | 101 | ||
| 102 | 102 | ||
| 103 | $(infodir)/ccmode: cc-mode.texi | 103 | $(infodir)/ccmode: cc-mode.texi doclicense.texi |
| 104 | $(MAKEINFO) $(MAKEINFO_OPTS) cc-mode.texi | 104 | $(MAKEINFO) $(MAKEINFO_OPTS) cc-mode.texi |
| 105 | cc-mode.dvi: cc-mode.texi | 105 | cc-mode.dvi: cc-mode.texi doclicense.texi |
| 106 | $(ENVADD) $(TEXI2DVI) $(srcdir)/cc-mode.texi | 106 | $(ENVADD) $(TEXI2DVI) $(srcdir)/cc-mode.texi |
| 107 | 107 | ||
| 108 | $(infodir)/ada-mode: ada-mode.texi | 108 | $(infodir)/ada-mode: ada-mode.texi doclicense.texi |
| 109 | $(MAKEINFO) $(MAKEINFO_OPTS) ada-mode.texi | 109 | $(MAKEINFO) $(MAKEINFO_OPTS) ada-mode.texi |
| 110 | ada-mode.dvi: ada-mode.texi | 110 | ada-mode.dvi: ada-mode.texi doclicense.texi |
| 111 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ada-mode.texi | 111 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ada-mode.texi |
| 112 | 112 | ||
| 113 | $(infodir)/pcl-cvs: pcl-cvs.texi | 113 | $(infodir)/pcl-cvs: pcl-cvs.texi doclicense.texi |
| 114 | $(MAKEINFO) $(MAKEINFO_OPTS) pcl-cvs.texi | 114 | $(MAKEINFO) $(MAKEINFO_OPTS) pcl-cvs.texi |
| 115 | pcl-cvs.dvi: pcl-cvs.texi | 115 | pcl-cvs.dvi: pcl-cvs.texi doclicense.texi |
| 116 | $(ENVADD) $(TEXI2DVI) $(srcdir)/pcl-cvs.texi | 116 | $(ENVADD) $(TEXI2DVI) $(srcdir)/pcl-cvs.texi |
| 117 | 117 | ||
| 118 | $(infodir)/eshell: eshell.texi | 118 | $(infodir)/eshell: eshell.texi doclicense.texi |
| 119 | $(MAKEINFO) $(MAKEINFO_OPTS) eshell.texi | 119 | $(MAKEINFO) $(MAKEINFO_OPTS) eshell.texi |
| 120 | eshell.dvi: eshell.texi | 120 | eshell.dvi: eshell.texi doclicense.texi |
| 121 | $(ENVADD) $(TEXI2DVI) $(srcdir)/eshell.texi | 121 | $(ENVADD) $(TEXI2DVI) $(srcdir)/eshell.texi |
| 122 | 122 | ||
| 123 | $(infodir)/cl: cl.texi | 123 | $(infodir)/cl: cl.texi doclicense.texi |
| 124 | $(MAKEINFO) $(MAKEINFO_OPTS) cl.texi | 124 | $(MAKEINFO) $(MAKEINFO_OPTS) cl.texi |
| 125 | cl.dvi: cl.texi | 125 | cl.dvi: cl.texi doclicense.texi |
| 126 | $(ENVADD) $(TEXI2DVI) $(srcdir)/cl.texi | 126 | $(ENVADD) $(TEXI2DVI) $(srcdir)/cl.texi |
| 127 | 127 | ||
| 128 | $(infodir)/dbus: dbus.texi | 128 | $(infodir)/dbus: dbus.texi doclicense.texi |
| 129 | $(MAKEINFO) $(MAKEINFO_OPTS) dbus.texi | 129 | $(MAKEINFO) $(MAKEINFO_OPTS) dbus.texi |
| 130 | dbus.dvi: dbus.texi | 130 | dbus.dvi: dbus.texi doclicense.texi |
| 131 | $(ENVADD) $(TEXI2DVI) $(srcdir)/dbus.texi | 131 | $(ENVADD) $(TEXI2DVI) $(srcdir)/dbus.texi |
| 132 | 132 | ||
| 133 | $(infodir)/dired-x: dired-x.texi | 133 | $(infodir)/dired-x: dired-x.texi $(emacsdir)/emacsver.texi doclicense.texi |
| 134 | $(MAKEINFO) $(MAKEINFO_OPTS) dired-x.texi | 134 | $(MAKEINFO) $(MAKEINFO_OPTS) dired-x.texi |
| 135 | dired-x.dvi: dired-x.texi | 135 | dired-x.dvi: dired-x.texi $(emacsdir)/emacsver.texi doclicense.texi |
| 136 | $(ENVADD) $(TEXI2DVI) $(srcdir)/dired-x.texi | 136 | $(ENVADD) $(TEXI2DVI) $(srcdir)/dired-x.texi |
| 137 | 137 | ||
| 138 | $(infodir)/ediff: ediff.texi | 138 | $(infodir)/ediff: ediff.texi doclicense.texi |
| 139 | $(MAKEINFO) $(MAKEINFO_OPTS) ediff.texi | 139 | $(MAKEINFO) $(MAKEINFO_OPTS) ediff.texi |
| 140 | ediff.dvi: ediff.texi | 140 | ediff.dvi: ediff.texi doclicense.texi |
| 141 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ediff.texi | 141 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ediff.texi |
| 142 | 142 | ||
| 143 | $(infodir)/flymake: flymake.texi | 143 | $(infodir)/flymake: flymake.texi doclicense.texi |
| 144 | $(MAKEINFO) $(MAKEINFO_OPTS) flymake.texi | 144 | $(MAKEINFO) $(MAKEINFO_OPTS) flymake.texi |
| 145 | flymake.dvi: flymake.texi | 145 | flymake.dvi: flymake.texi doclicense.texi |
| 146 | $(ENVADD) $(TEXI2DVI) $(srcdir)/flymake.texi | 146 | $(ENVADD) $(TEXI2DVI) $(srcdir)/flymake.texi |
| 147 | 147 | ||
| 148 | $(infodir)/forms: forms.texi | 148 | $(infodir)/forms: forms.texi doclicense.texi |
| 149 | $(MAKEINFO) $(MAKEINFO_OPTS) forms.texi | 149 | $(MAKEINFO) $(MAKEINFO_OPTS) forms.texi |
| 150 | forms.dvi: forms.texi | 150 | forms.dvi: forms.texi doclicense.texi |
| 151 | $(ENVADD) $(TEXI2DVI) $(srcdir)/forms.texi | 151 | $(ENVADD) $(TEXI2DVI) $(srcdir)/forms.texi |
| 152 | 152 | ||
| 153 | # gnus/message/emacs-mime/sieve/pgg are part of Gnus: | 153 | # gnus/message/emacs-mime/sieve/pgg are part of Gnus: |
| 154 | $(infodir)/gnus: gnus.texi | 154 | $(infodir)/gnus: gnus.texi gnus-overrides.texi message.texi emacs-mime.texi \ |
| 155 | sieve.texi pgg.texi sasl.texi gnus-news.texi gnus-faq.texi \ | ||
| 156 | doclicense.texi | ||
| 155 | $(MAKEINFO) $(MAKEINFO_OPTS) gnus.texi | 157 | $(MAKEINFO) $(MAKEINFO_OPTS) gnus.texi |
| 156 | gnus.dvi: gnus.texi | 158 | gnus.dvi: gnus.texi gnus-overrides.texi message.texi emacs-mime.texi \ |
| 159 | sieve.texi pgg.texi sasl.texi gnus-news.texi gnus-faq.texi \ | ||
| 160 | doclicense.texi | ||
| 157 | sed -e "/@iflatex/,/@end iflatex/d" $(srcdir)/gnus.texi > gnustmp.texi | 161 | sed -e "/@iflatex/,/@end iflatex/d" $(srcdir)/gnus.texi > gnustmp.texi |
| 158 | $(ENVADD) $(TEXI2DVI) gnustmp.texi | 162 | $(ENVADD) $(TEXI2DVI) gnustmp.texi |
| 159 | cp gnustmp.dvi $*.dvi | 163 | cp gnustmp.dvi $*.dvi |
| 160 | rm gnustmp.* | 164 | rm gnustmp.* |
| 161 | # | 165 | # |
| 162 | $(infodir)/message: message.texi | 166 | $(infodir)/message: message.texi gnus-overrides.texi doclicense.texi |
| 163 | $(MAKEINFO) $(MAKEINFO_OPTS) message.texi | 167 | $(MAKEINFO) $(MAKEINFO_OPTS) message.texi |
| 164 | message.dvi: message.texi | 168 | message.dvi: message.texi gnus-overrides.texi doclicense.texi |
| 165 | $(ENVADD) $(TEXI2DVI) $(srcdir)/message.texi | 169 | $(ENVADD) $(TEXI2DVI) $(srcdir)/message.texi |
| 166 | # | 170 | # |
| 167 | $(infodir)/emacs-mime: emacs-mime.texi | 171 | $(infodir)/emacs-mime: emacs-mime.texi gnus-overrides.texi doclicense.texi |
| 168 | $(MAKEINFO) $(MAKEINFO_OPTS) --enable-encoding emacs-mime.texi | 172 | $(MAKEINFO) $(MAKEINFO_OPTS) --enable-encoding emacs-mime.texi |
| 169 | emacs-mime.dvi: emacs-mime.texi | 173 | emacs-mime.dvi: emacs-mime.texi gnus-overrides.texi doclicense.texi |
| 170 | $(ENVADD) $(TEXI2DVI) $(srcdir)/emacs-mime.texi | 174 | $(ENVADD) $(TEXI2DVI) $(srcdir)/emacs-mime.texi |
| 171 | # | 175 | # |
| 172 | $(infodir)/sieve: sieve.texi | 176 | $(infodir)/sieve: sieve.texi gnus-overrides.texi doclicense.texi |
| 173 | $(MAKEINFO) $(MAKEINFO_OPTS) sieve.texi | 177 | $(MAKEINFO) $(MAKEINFO_OPTS) sieve.texi |
| 174 | sieve.dvi: sieve.texi | 178 | sieve.dvi: sieve.texi gnus-overrides.texi doclicense.texi |
| 175 | $(ENVADD) $(TEXI2DVI) $(srcdir)/sieve.texi | 179 | $(ENVADD) $(TEXI2DVI) $(srcdir)/sieve.texi |
| 176 | # | 180 | # |
| 177 | $(infodir)/pgg: pgg.texi | 181 | $(infodir)/pgg: pgg.texi gnus-overrides.texi doclicense.texi |
| 178 | $(MAKEINFO) $(MAKEINFO_OPTS) pgg.texi | 182 | $(MAKEINFO) $(MAKEINFO_OPTS) pgg.texi |
| 179 | pgg.dvi: pgg.texi | 183 | pgg.dvi: pgg.texi gnus-overrides.texi doclicense.texi |
| 180 | $(ENVADD) $(TEXI2DVI) $(srcdir)/pgg.texi | 184 | $(ENVADD) $(TEXI2DVI) $(srcdir)/pgg.texi |
| 181 | 185 | ||
| 182 | $(infodir)/mh-e: mh-e.texi | 186 | $(infodir)/mh-e: mh-e.texi doclicense.texi gpl.texi |
| 183 | $(MAKEINFO) $(MAKEINFO_OPTS) mh-e.texi | 187 | $(MAKEINFO) $(MAKEINFO_OPTS) mh-e.texi |
| 184 | mh-e.dvi: mh-e.texi | 188 | mh-e.dvi: mh-e.texi doclicense.texi gpl.texi |
| 185 | $(ENVADD) $(TEXI2DVI) $(srcdir)/mh-e.texi | 189 | $(ENVADD) $(TEXI2DVI) $(srcdir)/mh-e.texi |
| 186 | 190 | ||
| 187 | $(infodir)/reftex: reftex.texi | 191 | $(infodir)/reftex: reftex.texi doclicense.texi |
| 188 | $(MAKEINFO) $(MAKEINFO_OPTS) reftex.texi | 192 | $(MAKEINFO) $(MAKEINFO_OPTS) reftex.texi |
| 189 | reftex.dvi: reftex.texi | 193 | reftex.dvi: reftex.texi doclicense.texi |
| 190 | $(ENVADD) $(TEXI2DVI) $(srcdir)/reftex.texi | 194 | $(ENVADD) $(TEXI2DVI) $(srcdir)/reftex.texi |
| 191 | 195 | ||
| 192 | $(infodir)/remember: remember.texi | 196 | $(infodir)/remember: remember.texi doclicense.texi |
| 193 | $(MAKEINFO) $(MAKEINFO_OPTS) remember.texi | 197 | $(MAKEINFO) $(MAKEINFO_OPTS) remember.texi |
| 194 | remember.dvi: remember.texi | 198 | remember.dvi: remember.texi doclicense.texix |
| 195 | $(ENVADD) $(TEXI2DVI) $(srcdir)/remember.texi | 199 | $(ENVADD) $(TEXI2DVI) $(srcdir)/remember.texi |
| 196 | 200 | ||
| 197 | $(infodir)/sasl: sasl.texi | 201 | $(infodir)/sasl: sasl.texi gnus-overrides.texi |
| 198 | $(MAKEINFO) $(MAKEINFO_OPTS) sasl.texi | 202 | $(MAKEINFO) $(MAKEINFO_OPTS) sasl.texi |
| 199 | sasl.dvi: sasl.texi | 203 | sasl.dvi: sasl.texi gnus-overrides.texi |
| 200 | $(ENVADD) $(TEXI2DVI) $(srcdir)/sasl.texi | 204 | $(ENVADD) $(TEXI2DVI) $(srcdir)/sasl.texi |
| 201 | 205 | ||
| 202 | $(infodir)/sc: sc.texi | 206 | $(infodir)/sc: sc.texi doclicense.texi |
| 203 | $(MAKEINFO) $(MAKEINFO_OPTS) sc.texi | 207 | $(MAKEINFO) $(MAKEINFO_OPTS) sc.texi |
| 204 | sc.dvi: sc.texi | 208 | sc.dvi: sc.texi doclicense.texi |
| 205 | $(ENVADD) $(TEXI2DVI) $(srcdir)/sc.texi | 209 | $(ENVADD) $(TEXI2DVI) $(srcdir)/sc.texi |
| 206 | 210 | ||
| 207 | $(infodir)/vip: vip.texi | 211 | $(infodir)/vip: vip.texi doclicense.texi |
| 208 | $(MAKEINFO) $(MAKEINFO_OPTS) vip.texi | 212 | $(MAKEINFO) $(MAKEINFO_OPTS) vip.texi |
| 209 | vip.dvi: vip.texi | 213 | vip.dvi: vip.texi doclicense.texi |
| 210 | $(ENVADD) $(TEXI2DVI) $(srcdir)/vip.texi | 214 | $(ENVADD) $(TEXI2DVI) $(srcdir)/vip.texi |
| 211 | 215 | ||
| 212 | $(infodir)/viper: viper.texi | 216 | $(infodir)/viper: viper.texi doclicense.texi |
| 213 | $(MAKEINFO) $(MAKEINFO_OPTS) viper.texi | 217 | $(MAKEINFO) $(MAKEINFO_OPTS) viper.texi |
| 214 | viper.dvi: viper.texi | 218 | viper.dvi: viper.texi doclicense.texi |
| 215 | $(ENVADD) $(TEXI2DVI) $(srcdir)/viper.texi | 219 | $(ENVADD) $(TEXI2DVI) $(srcdir)/viper.texi |
| 216 | 220 | ||
| 217 | $(infodir)/widget: widget.texi | 221 | $(infodir)/widget: widget.texi doclicense.texi |
| 218 | $(MAKEINFO) $(MAKEINFO_OPTS) widget.texi | 222 | $(MAKEINFO) $(MAKEINFO_OPTS) widget.texi |
| 219 | widget.dvi: widget.texi | 223 | widget.dvi: widget.texi doclicense.texi |
| 220 | $(ENVADD) $(TEXI2DVI) $(srcdir)/widget.texi | 224 | $(ENVADD) $(TEXI2DVI) $(srcdir)/widget.texi |
| 221 | 225 | ||
| 222 | $(infodir)/efaq: faq.texi $(emacsdir)/emacsver.texi | 226 | $(infodir)/efaq: faq.texi $(emacsdir)/emacsver.texi |
| @@ -224,57 +228,56 @@ $(infodir)/efaq: faq.texi $(emacsdir)/emacsver.texi | |||
| 224 | faq.dvi: faq.texi $(emacsdir)/emacsver.texi | 228 | faq.dvi: faq.texi $(emacsdir)/emacsver.texi |
| 225 | $(ENVADD) $(TEXI2DVI) $(srcdir)/faq.texi | 229 | $(ENVADD) $(TEXI2DVI) $(srcdir)/faq.texi |
| 226 | 230 | ||
| 227 | $(infodir)/autotype: autotype.texi | 231 | $(infodir)/autotype: autotype.texi doclicense.texi |
| 228 | $(MAKEINFO) $(MAKEINFO_OPTS) autotype.texi | 232 | $(MAKEINFO) $(MAKEINFO_OPTS) autotype.texi |
| 229 | autotype.dvi: autotype.texi | 233 | autotype.dvi: autotype.texi doclicense.texi |
| 230 | $(ENVADD) $(TEXI2DVI) $(srcdir)/autotype.texi | 234 | $(ENVADD) $(TEXI2DVI) $(srcdir)/autotype.texi |
| 231 | 235 | ||
| 232 | $(infodir)/calc: calc.texi $(emacsdir)/emacsver.texi | 236 | $(infodir)/calc: calc.texi $(emacsdir)/emacsver.texi gpl.texi doclicense.texi |
| 233 | $(MAKEINFO) $(MAKEINFO_OPTS) calc.texi | 237 | $(MAKEINFO) $(MAKEINFO_OPTS) calc.texi |
| 234 | 238 | calc.dvi: calc.texi $(emacsdir)/emacsver.texi gpl.texi doclicense.texi | |
| 235 | calc.dvi: calc.texi $(emacsdir)/emacsver.texi | ||
| 236 | $(ENVADD) $(TEXI2DVI) $(srcdir)/calc.texi | 239 | $(ENVADD) $(TEXI2DVI) $(srcdir)/calc.texi |
| 237 | 240 | ||
| 238 | # This is produced with --no-split to avoid making files whose | 241 | # This is produced with --no-split to avoid making files whose |
| 239 | # names clash on DOS 8+3 filesystems | 242 | # names clash on DOS 8+3 filesystems |
| 240 | $(infodir)/idlwave: idlwave.texi | 243 | $(infodir)/idlwave: idlwave.texi doclicense.texi |
| 241 | $(MAKEINFO) $(MAKEINFO_OPTS) --no-split idlwave.texi | 244 | $(MAKEINFO) $(MAKEINFO_OPTS) --no-split idlwave.texi |
| 242 | idlwave.dvi: idlwave.texi | 245 | idlwave.dvi: idlwave.texi doclicense.texi |
| 243 | $(ENVADD) $(TEXI2DVI) $(srcdir)/idlwave.texi | 246 | $(ENVADD) $(TEXI2DVI) $(srcdir)/idlwave.texi |
| 244 | 247 | ||
| 245 | $(infodir)/eudc: eudc.texi | 248 | $(infodir)/eudc: eudc.texi doclicense.texi |
| 246 | $(MAKEINFO) $(MAKEINFO_OPTS) eudc.texi | 249 | $(MAKEINFO) $(MAKEINFO_OPTS) eudc.texi |
| 247 | eudc.dvi: eudc.texi | 250 | eudc.dvi: eudc.texi doclicense.texi |
| 248 | $(ENVADD) $(TEXI2DVI) $(srcdir)/eudc.texi | 251 | $(ENVADD) $(TEXI2DVI) $(srcdir)/eudc.texi |
| 249 | 252 | ||
| 250 | $(infodir)/ebrowse: ebrowse.texi | 253 | $(infodir)/ebrowse: ebrowse.texi doclicense.texi |
| 251 | $(MAKEINFO) $(MAKEINFO_OPTS) ebrowse.texi | 254 | $(MAKEINFO) $(MAKEINFO_OPTS) ebrowse.texi |
| 252 | ebrowse.dvi: ebrowse.texi | 255 | ebrowse.dvi: ebrowse.texi doclicense.texi |
| 253 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ebrowse.texi | 256 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ebrowse.texi |
| 254 | 257 | ||
| 255 | $(infodir)/woman: woman.texi | 258 | $(infodir)/woman: woman.texi doclicense.texi |
| 256 | $(MAKEINFO) $(MAKEINFO_OPTS) woman.texi | 259 | $(MAKEINFO) $(MAKEINFO_OPTS) woman.texi |
| 257 | woman.dvi: woman.texi | 260 | woman.dvi: woman.texi doclicense.texi |
| 258 | $(ENVADD) $(TEXI2DVI) $(srcdir)/woman.texi | 261 | $(ENVADD) $(TEXI2DVI) $(srcdir)/woman.texi |
| 259 | 262 | ||
| 260 | $(infodir)/speedbar: speedbar.texi | 263 | $(infodir)/speedbar: speedbar.texi doclicense.texi |
| 261 | $(MAKEINFO) $(MAKEINFO_OPTS) speedbar.texi | 264 | $(MAKEINFO) $(MAKEINFO_OPTS) speedbar.texi |
| 262 | speedbar.dvi: speedbar.texi | 265 | speedbar.dvi: speedbar.texi doclicense.texi |
| 263 | $(ENVADD) $(TEXI2DVI) $(srcdir)/speedbar.texi | 266 | $(ENVADD) $(TEXI2DVI) $(srcdir)/speedbar.texi |
| 264 | 267 | ||
| 265 | $(infodir)/tramp: tramp.texi | 268 | $(infodir)/tramp: tramp.texi trampver.texi doclicense.texi |
| 266 | $(MAKEINFO) $(MAKEINFO_OPTS) tramp.texi | 269 | $(MAKEINFO) $(MAKEINFO_OPTS) tramp.texi |
| 267 | tramp.dvi: tramp.texi | 270 | tramp.dvi: tramp.texi trampver.texi doclicense.texi |
| 268 | $(ENVADD) $(TEXI2DVI) $(srcdir)/tramp.texi | 271 | $(ENVADD) $(TEXI2DVI) $(srcdir)/tramp.texi |
| 269 | 272 | ||
| 270 | $(infodir)/ses: ses.texi | 273 | $(infodir)/ses: ses.texi doclicense.texi |
| 271 | $(MAKEINFO) $(MAKEINFO_OPTS) ses.texi | 274 | $(MAKEINFO) $(MAKEINFO_OPTS) ses.texi |
| 272 | ses.dvi: ses.texi | 275 | ses.dvi: ses.texi doclicense.texi |
| 273 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ses.texi | 276 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ses.texi |
| 274 | 277 | ||
| 275 | $(infodir)/smtpmail: smtpmail.texi | 278 | $(infodir)/smtpmail: smtpmail.texi doclicense.texi |
| 276 | $(MAKEINFO) $(MAKEINFO_OPTS) smtpmail.texi | 279 | $(MAKEINFO) $(MAKEINFO_OPTS) smtpmail.texi |
| 277 | smtpmail.dvi: smtpmail.texi | 280 | smtpmail.dvi: smtpmail.texi doclicense.texi |
| 278 | $(ENVADD) $(TEXI2DVI) $(srcdir)/smtpmail.texi | 281 | $(ENVADD) $(TEXI2DVI) $(srcdir)/smtpmail.texi |
| 279 | 282 | ||
| 280 | $(infodir)/org: org.texi | 283 | $(infodir)/org: org.texi |
| @@ -282,14 +285,14 @@ $(infodir)/org: org.texi | |||
| 282 | org.dvi: org.texi | 285 | org.dvi: org.texi |
| 283 | $(ENVADD) $(TEXI2DVI) $(srcdir)/org.texi | 286 | $(ENVADD) $(TEXI2DVI) $(srcdir)/org.texi |
| 284 | 287 | ||
| 285 | $(infodir)/url: url.texi | 288 | $(infodir)/url: url.texi doclicense.texi |
| 286 | $(MAKEINFO) $(MAKEINFO_OPTS) url.texi | 289 | $(MAKEINFO) $(MAKEINFO_OPTS) url.texi |
| 287 | url.dvi: url.texi | 290 | url.dvi: url.texi doclicense.texi |
| 288 | $(ENVADD) $(TEXI2DVI) $(srcdir)/url.texi | 291 | $(ENVADD) $(TEXI2DVI) $(srcdir)/url.texi |
| 289 | 292 | ||
| 290 | $(infodir)/newsticker: newsticker.texi | 293 | $(infodir)/newsticker: newsticker.texi doclicense.texi |
| 291 | $(MAKEINFO) $(MAKEINFO_OPTS) newsticker.texi | 294 | $(MAKEINFO) $(MAKEINFO_OPTS) newsticker.texi |
| 292 | newsticker.dvi: newsticker.texi | 295 | newsticker.dvi: newsticker.texi doclicense.texi |
| 293 | $(ENVADD) $(TEXI2DVI) $(srcdir)/newsticker.texi | 296 | $(ENVADD) $(TEXI2DVI) $(srcdir)/newsticker.texi |
| 294 | 297 | ||
| 295 | $(infodir)/nxml-mode: nxml-mode.texi | 298 | $(infodir)/nxml-mode: nxml-mode.texi |
| @@ -297,14 +300,14 @@ $(infodir)/nxml-mode: nxml-mode.texi | |||
| 297 | nxml-mod.dvi: nxml-mode.texi | 300 | nxml-mod.dvi: nxml-mode.texi |
| 298 | $(ENVADD) $(TEXI2DVI) $(srcdir)/nxml-mode.texi | 301 | $(ENVADD) $(TEXI2DVI) $(srcdir)/nxml-mode.texi |
| 299 | 302 | ||
| 300 | $(infodir)/rcirc: rcirc.texi | 303 | $(infodir)/rcirc: rcirc.texi doclicense.texi |
| 301 | $(MAKEINFO) $(MAKEINFO_OPTS) rcirc.texi | 304 | $(MAKEINFO) $(MAKEINFO_OPTS) rcirc.texi |
| 302 | rcirc.dvi: rcirc.texi | 305 | rcirc.dvi: rcirc.texi doclicense.texi |
| 303 | $(ENVADD) $(TEXI2DVI) $(srcdir)/rcirc.texi | 306 | $(ENVADD) $(TEXI2DVI) $(srcdir)/rcirc.texi |
| 304 | 307 | ||
| 305 | $(infodir)/erc: erc.texi | 308 | $(infodir)/erc: erc.texi gpl.texi doclicense.texi |
| 306 | $(MAKEINFO) $(MAKEINFO_OPTS) erc.texi | 309 | $(MAKEINFO) $(MAKEINFO_OPTS) erc.texi |
| 307 | erc.dvi: erc.texi | 310 | erc.dvi: erc.texi gpl.texi doclicense.texi |
| 308 | $(ENVADD) $(TEXI2DVI) $(srcdir)/erc.texi | 311 | $(ENVADD) $(TEXI2DVI) $(srcdir)/erc.texi |
| 309 | 312 | ||
| 310 | $(infodir)/ert: ert.texi | 313 | $(infodir)/ert: ert.texi |
| @@ -322,9 +325,9 @@ $(infodir)/mairix-el: mairix-el.texi | |||
| 322 | mairix-el.dvi: mairix-el.texi | 325 | mairix-el.dvi: mairix-el.texi |
| 323 | $(ENVADD) $(TEXI2DVI) $(srcdir)/mairix-el.texi | 326 | $(ENVADD) $(TEXI2DVI) $(srcdir)/mairix-el.texi |
| 324 | 327 | ||
| 325 | $(infodir)/auth: auth.texi | 328 | $(infodir)/auth: auth.texi gnus-overrides.texi |
| 326 | $(MAKEINFO) $(MAKEINFO_OPTS) auth.texi | 329 | $(MAKEINFO) $(MAKEINFO_OPTS) auth.texi |
| 327 | auth.dvi: auth.texi | 330 | auth.dvi: auth.texi gnus-overrides.texi |
| 328 | $(ENVADD) $(TEXI2DVI) $(srcdir)/auth.texi | 331 | $(ENVADD) $(TEXI2DVI) $(srcdir)/auth.texi |
| 329 | 332 | ||
| 330 | $(infodir)/eieio: eieio.texi | 333 | $(infodir)/eieio: eieio.texi |
| @@ -337,14 +340,14 @@ $(infodir)/ede: ede.texi | |||
| 337 | ede.dvi: ede.texi | 340 | ede.dvi: ede.texi |
| 338 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ede.texi | 341 | $(ENVADD) $(TEXI2DVI) $(srcdir)/ede.texi |
| 339 | 342 | ||
| 340 | $(infodir)/semantic: semantic.texi | 343 | $(infodir)/semantic: semantic.texi sem-user.texi doclicense.texi |
| 341 | $(MAKEINFO) $(MAKEINFO_OPTS) semantic.texi | 344 | $(MAKEINFO) $(MAKEINFO_OPTS) semantic.texi |
| 342 | semantic.dvi: semantic.texi | 345 | semantic.dvi: semantic.texi sem-user.texi doclicense.texi |
| 343 | $(ENVADD) $(TEXI2DVI) $(srcdir)/semantic.texi | 346 | $(ENVADD) $(TEXI2DVI) $(srcdir)/semantic.texi |
| 344 | 347 | ||
| 345 | $(infodir)/edt: edt.texi | 348 | $(infodir)/edt: edt.texi doclicense.texi |
| 346 | $(MAKEINFO) $(MAKEINFO_OPTS) edt.texi | 349 | $(MAKEINFO) $(MAKEINFO_OPTS) edt.texi |
| 347 | edt.dvi: edt.texi | 350 | edt.dvi: edt.texi doclicense.texi |
| 348 | $(ENVADD) $(TEXI2DVI) $(srcdir)/edt.texi | 351 | $(ENVADD) $(TEXI2DVI) $(srcdir)/edt.texi |
| 349 | 352 | ||
| 350 | mostlyclean: | 353 | mostlyclean: |
diff --git a/doc/misc/message.texi b/doc/misc/message.texi index 4d828f69bbd..d9062a32572 100644 --- a/doc/misc/message.texi +++ b/doc/misc/message.texi | |||
| @@ -904,7 +904,7 @@ happen---Message will encode non-@acronym{ASCII} domain names in @code{From}, | |||
| 904 | Until @acronym{IDNA} becomes more well known, Message queries you | 904 | Until @acronym{IDNA} becomes more well known, Message queries you |
| 905 | whether @acronym{IDNA} encoding of the domain name really should | 905 | whether @acronym{IDNA} encoding of the domain name really should |
| 906 | occur. Some users might not be aware that domain names can contain | 906 | occur. Some users might not be aware that domain names can contain |
| 907 | non-@acronym{ASCII} now, so this gives them a safety net if they accidently | 907 | non-@acronym{ASCII} now, so this gives them a safety net if they accidentally |
| 908 | typed a non-@acronym{ASCII} domain name. | 908 | typed a non-@acronym{ASCII} domain name. |
| 909 | 909 | ||
| 910 | @vindex message-use-idna | 910 | @vindex message-use-idna |
diff --git a/doc/misc/org.texi b/doc/misc/org.texi index 34a4ba4f8f3..181e00f8e02 100644 --- a/doc/misc/org.texi +++ b/doc/misc/org.texi | |||
| @@ -7219,7 +7219,7 @@ will be made in the agenda: | |||
| 7219 | #+CATEGORY: Holiday | 7219 | #+CATEGORY: Holiday |
| 7220 | %%(org-calendar-holiday) ; special function for holiday names | 7220 | %%(org-calendar-holiday) ; special function for holiday names |
| 7221 | #+CATEGORY: Ann | 7221 | #+CATEGORY: Ann |
| 7222 | %%(org-anniversary 1956 5 14)@footnote{@code{org-anniversary} is just like @code{diary-anniversary}, but the argument order is allways according to ISO and therefore independent of the value of @code{calendar-date-style}.} Arthur Dent is %d years old | 7222 | %%(org-anniversary 1956 5 14)@footnote{@code{org-anniversary} is just like @code{diary-anniversary}, but the argument order is always according to ISO and therefore independent of the value of @code{calendar-date-style}.} Arthur Dent is %d years old |
| 7223 | %%(org-anniversary 1869 10 2) Mahatma Gandhi would be %d years old | 7223 | %%(org-anniversary 1869 10 2) Mahatma Gandhi would be %d years old |
| 7224 | @end example | 7224 | @end example |
| 7225 | 7225 | ||
| @@ -7797,8 +7797,8 @@ Interactively select another agenda view and append it to the current view. | |||
| 7797 | @item o | 7797 | @item o |
| 7798 | Delete other windows. | 7798 | Delete other windows. |
| 7799 | @c | 7799 | @c |
| 7800 | @orgcmdkskc{v d,d,org-aganda-day-view} | 7800 | @orgcmdkskc{v d,d,org-agenda-day-view} |
| 7801 | @xorgcmdkskc{v w,w,org-aganda-day-view} | 7801 | @xorgcmdkskc{v w,w,org-agenda-day-view} |
| 7802 | @xorgcmd{v m,org-agenda-month-view} | 7802 | @xorgcmd{v m,org-agenda-month-view} |
| 7803 | @xorgcmd{v y,org-agenda-month-year} | 7803 | @xorgcmd{v y,org-agenda-month-year} |
| 7804 | @xorgcmd{v SPC,org-agenda-reset-view} | 7804 | @xorgcmd{v SPC,org-agenda-reset-view} |
diff --git a/doc/misc/pcl-cvs.texi b/doc/misc/pcl-cvs.texi index f12942da2d3..d4f82b6b3a7 100644 --- a/doc/misc/pcl-cvs.texi +++ b/doc/misc/pcl-cvs.texi | |||
| @@ -70,7 +70,7 @@ customize-group RET pcl-cvs @key{RET}} and to look at the documentation strings | |||
| 70 | of the various commands and major modes for further information. | 70 | of the various commands and major modes for further information. |
| 71 | @c This manual is updated to release 2.5 of PCL-CVS. | 71 | @c This manual is updated to release 2.5 of PCL-CVS. |
| 72 | 72 | ||
| 73 | @insertcopying | 73 | @insertcopying |
| 74 | 74 | ||
| 75 | @end ifnottex | 75 | @end ifnottex |
| 76 | 76 | ||
| @@ -1275,7 +1275,7 @@ will be called as @samp{cvs -d @var{cvs-cvsroot}@dots{}}. This can be | |||
| 1275 | useful if your site has several repositories. | 1275 | useful if your site has several repositories. |
| 1276 | 1276 | ||
| 1277 | @item log-edit-require-final-newline | 1277 | @item log-edit-require-final-newline |
| 1278 | @c wordy to avoid unhderfull hbox | 1278 | @c wordy to avoid underfull hbox |
| 1279 | When you enter a log message by typing into the | 1279 | When you enter a log message by typing into the |
| 1280 | @samp{*cvs-commit-message*} buffer, PCL-CVS normally automatically | 1280 | @samp{*cvs-commit-message*} buffer, PCL-CVS normally automatically |
| 1281 | inserts a trailing newline, unless there already is one. This behavior | 1281 | inserts a trailing newline, unless there already is one. This behavior |
diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi index 28d1cdb6eb8..e1631bcacc8 100644 --- a/doc/misc/sem-user.texi +++ b/doc/misc/sem-user.texi | |||
| @@ -547,7 +547,7 @@ reparsed regardless of their size. | |||
| 547 | @end deffn | 547 | @end deffn |
| 548 | 548 | ||
| 549 | @deffn Option semantic-idle-scheduler-no-working-message | 549 | @deffn Option semantic-idle-scheduler-no-working-message |
| 550 | If non-@code{nil}, disable display of working messages whie reparsing. | 550 | If non-@code{nil}, disable display of working messages while reparsing. |
| 551 | @end deffn | 551 | @end deffn |
| 552 | 552 | ||
| 553 | @deffn Option semantic-idle-scheduler-working-in-modeline-flag | 553 | @deffn Option semantic-idle-scheduler-working-in-modeline-flag |
diff --git a/doc/misc/semantic.texi b/doc/misc/semantic.texi index 55b60937fb6..dcfff1fcb96 100644 --- a/doc/misc/semantic.texi +++ b/doc/misc/semantic.texi | |||
| @@ -613,7 +613,7 @@ Emacs Lisp. It is an LALR parser suitable for complex languages. | |||
| 613 | @c LocalWords: multitable NAvigaTOR noindent nomedian nonterm noselect | 613 | @c LocalWords: multitable NAvigaTOR noindent nomedian nonterm noselect |
| 614 | @c LocalWords: nosnarf obarray OLE OO outputfile paren parsetable POINT's | 614 | @c LocalWords: nosnarf obarray OLE OO outputfile paren parsetable POINT's |
| 615 | @c LocalWords: popup positionalonly positiononly positionormarker pre | 615 | @c LocalWords: popup positionalonly positiononly positionormarker pre |
| 616 | @c LocalWords: printf printindex Programmatically pt punctuations quotemode | 616 | @c LocalWords: printf printindex Programmatically pt quotemode |
| 617 | @c LocalWords: ref regex regexp Regexps reparse resetfile samp sb | 617 | @c LocalWords: ref regex regexp Regexps reparse resetfile samp sb |
| 618 | @c LocalWords: scopestart SEmantic semanticdb setfilename setq | 618 | @c LocalWords: scopestart SEmantic semanticdb setfilename setq |
| 619 | @c LocalWords: settitle setupfunction sexp sp SPC speedbar speedbar's | 619 | @c LocalWords: settitle setupfunction sexp sp SPC speedbar speedbar's |
diff --git a/doc/misc/ses.texi b/doc/misc/ses.texi index d9739b93925..8300e6511a6 100644 --- a/doc/misc/ses.texi +++ b/doc/misc/ses.texi | |||
| @@ -446,7 +446,7 @@ list. | |||
| 446 | execute when starting SES mode for a buffer). | 446 | execute when starting SES mode for a buffer). |
| 447 | 447 | ||
| 448 | The variable @code{safe-functions} is a list of possibly-unsafe | 448 | The variable @code{safe-functions} is a list of possibly-unsafe |
| 449 | functions to be treated as safe when analysing formulas and printers. | 449 | functions to be treated as safe when analyzing formulas and printers. |
| 450 | @xref{Virus protection}. Before customizing @code{safe-functions}, | 450 | @xref{Virus protection}. Before customizing @code{safe-functions}, |
| 451 | think about how much you trust the person who's suggesting this | 451 | think about how much you trust the person who's suggesting this |
| 452 | change. The value @code{t} turns off all anti-virus protection. A | 452 | change. The value @code{t} turns off all anti-virus protection. A |
diff --git a/doc/misc/smtpmail.texi b/doc/misc/smtpmail.texi index 1d4bbbff4ac..854be0d0012 100644 --- a/doc/misc/smtpmail.texi +++ b/doc/misc/smtpmail.texi | |||
| @@ -233,7 +233,7 @@ least one of the following external tools are installed: | |||
| 233 | 233 | ||
| 234 | @enumerate | 234 | @enumerate |
| 235 | @item | 235 | @item |
| 236 | The GNUTLS command line tool @samp{gnutls-cli}, you can get it from | 236 | The GnuTLS command line tool @samp{gnutls-cli}, you can get it from |
| 237 | @url{http://www.gnu.org/software/gnutls/}. This is the recommended | 237 | @url{http://www.gnu.org/software/gnutls/}. This is the recommended |
| 238 | tool, mainly because it can verify the server certificates. | 238 | tool, mainly because it can verify the server certificates. |
| 239 | 239 | ||
diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi index e6b0f4fa235..f7f340074a2 100644 --- a/doc/misc/tramp.texi +++ b/doc/misc/tramp.texi | |||
| @@ -3573,7 +3573,7 @@ The verbosity levels are | |||
| 3573 | 3573 | ||
| 3574 | When @code{tramp-verbose} is greater than or equal to 4, the messages | 3574 | When @code{tramp-verbose} is greater than or equal to 4, the messages |
| 3575 | are also written into a @value{tramp} debug buffer. This debug buffer | 3575 | are also written into a @value{tramp} debug buffer. This debug buffer |
| 3576 | is useful for analysing problems; sending a @value{tramp} bug report | 3576 | is useful for analyzing problems; sending a @value{tramp} bug report |
| 3577 | should be done with @code{tramp-verbose} set to a verbosity level of at | 3577 | should be done with @code{tramp-verbose} set to a verbosity level of at |
| 3578 | least 6 (@pxref{Bug Reports}). | 3578 | least 6 (@pxref{Bug Reports}). |
| 3579 | 3579 | ||
diff --git a/etc/AUTHORS b/etc/AUTHORS index f8ab274e136..b7929dbf453 100644 --- a/etc/AUTHORS +++ b/etc/AUTHORS | |||
| @@ -31,6 +31,8 @@ Adam Sjøgren: changed spam.el blink.xpm braindamaged.xpm cry.xpm dead.xpm | |||
| 31 | reverse-smile.xpm sad.xpm smile.xpm wry.xpm xterm.c gnus-html.el | 31 | reverse-smile.xpm sad.xpm smile.xpm wry.xpm xterm.c gnus-html.el |
| 32 | gnus-start.el gnus-sum.el gnus.el gtkutil.c shr.el xterm.h | 32 | gnus-start.el gnus-sum.el gnus.el gtkutil.c shr.el xterm.h |
| 33 | 33 | ||
| 34 | Adam W: changed mail-source.el | ||
| 35 | |||
| 34 | Aditya Siram: changed ob.el | 36 | Aditya Siram: changed ob.el |
| 35 | 37 | ||
| 36 | Adrian Aichner: changed erc-log.el erc.el erc-autojoin.el erc-backend.el | 38 | Adrian Aichner: changed erc-log.el erc.el erc-autojoin.el erc-backend.el |
| @@ -193,9 +195,9 @@ Andreas Politz: changed editfns.c elp.el ido.el term.el | |||
| 193 | Andreas Rottmann: changed emacsclient.1 emacsclient.c misc.texi server.el | 195 | Andreas Rottmann: changed emacsclient.1 emacsclient.c misc.texi server.el |
| 194 | 196 | ||
| 195 | Andreas Schwab: changed Makefile.in configure.in lisp.h xdisp.c alloc.c | 197 | Andreas Schwab: changed Makefile.in configure.in lisp.h xdisp.c alloc.c |
| 196 | process.c coding.c files.el xterm.c editfns.c fns.c keyboard.c print.c | 198 | process.c coding.c files.el xterm.c editfns.c keyboard.c fns.c print.c |
| 197 | emacs.c eval.c fileio.c lread.c sysdep.c dired.el xfns.c buffer.c | 199 | emacs.c eval.c fileio.c lread.c sysdep.c dired.el xfns.c buffer.c |
| 198 | and 568 other files | 200 | and 571 other files |
| 199 | 201 | ||
| 200 | Andreas Seltenreich: changed nnweb.el gnus.texi message.el gnus-sum.el | 202 | Andreas Seltenreich: changed nnweb.el gnus.texi message.el gnus-sum.el |
| 201 | gnus.el nnslashdot.el gnus-srvr.el gnus-util.el mm-url.el mm-uu.el | 203 | gnus.el nnslashdot.el gnus-srvr.el gnus-util.el mm-url.el mm-uu.el |
| @@ -497,8 +499,8 @@ Chong Yidong: wrote compile-tests.el dichromacy-theme.el | |||
| 497 | and co-wrote longlines.el tango-dark-theme.el tango-theme.el | 499 | and co-wrote longlines.el tango-dark-theme.el tango-theme.el |
| 498 | and changed xdisp.c simple.el files.el display.texi frames.texi | 500 | and changed xdisp.c simple.el files.el display.texi frames.texi |
| 499 | cus-edit.el files.texi keyboard.c startup.el package.el custom.el | 501 | cus-edit.el files.texi keyboard.c startup.el package.el custom.el |
| 500 | emacs.texi xterm.c subr.el faces.el image.c mouse.el misc.texi | 502 | emacs.texi xterm.c subr.el text.texi faces.el image.c mouse.el |
| 501 | text.texi progmodes/compile.el xfns.c and 826 other files | 503 | misc.texi progmodes/compile.el xfns.c and 830 other files |
| 502 | 504 | ||
| 503 | Chris Chase: co-wrote idlw-shell.el idlwave.el | 505 | Chris Chase: co-wrote idlw-shell.el idlwave.el |
| 504 | 506 | ||
| @@ -561,10 +563,11 @@ Christoph Bauer: changed configure.in | |||
| 561 | Christoph Conrad: changed gnus-agent.el gnus-score.el makefile.w32-in | 563 | Christoph Conrad: changed gnus-agent.el gnus-score.el makefile.w32-in |
| 562 | qp.el | 564 | qp.el |
| 563 | 565 | ||
| 564 | Christoph Scholtes: changed makefile.w32-in progmodes/python.el INSTALL | 566 | Christoph Scholtes: changed makefile.w32-in progmodes/python.el stdint.h |
| 565 | README.W32 maintaining.texi zipdist.bat admin.el bookmark.el | 567 | INSTALL README.W32 maintaining.texi zipdist.bat admin.el bookmark.el |
| 566 | configure.bat cua-base.el help-mode.el help.el ido.el makedist.bat | 568 | config.nt configure.bat control.texi cua-base.el help-mode.el help.el |
| 567 | menu.c minibuf.c process.c progmodes/grep.el stdint.h vc.el window.c | 569 | ido.el makedist.bat menu.c minibuf.c process.c progmodes/grep.el |
| 570 | and 3 other files | ||
| 568 | 571 | ||
| 569 | Christoph Wedler: wrote antlr-mode.el | 572 | Christoph Wedler: wrote antlr-mode.el |
| 570 | and changed format.el gnus-art.el gnus-picon.el message.el register.el | 573 | and changed format.el gnus-art.el gnus-picon.el message.el register.el |
| @@ -759,9 +762,11 @@ David Edmondson: changed message.el gnus-cite.el imap.el mm-view.el | |||
| 759 | mml2015.el nnfolder.el nnimap.el nnml.el | 762 | mml2015.el nnfolder.el nnimap.el nnml.el |
| 760 | 763 | ||
| 761 | David Engster: wrote mairix.el nnmairix.el | 764 | David Engster: wrote mairix.el nnmairix.el |
| 762 | and changed gnus.texi registry.el gnus-msg.el bovine-grammar.el | 765 | and changed gnus.texi registry.el gnus-msg.el insert.el |
| 763 | display.texi files.el gnus-registry.el gnus-sum.el hideshow.el | 766 | analyze/complete.el base.el bovine-grammar.el cedet/srecode.el |
| 764 | mairix-el.texi mm-view.el mml-smime.el nnimap.el | 767 | cpp-root.el custom.el db-find.el db-typecache.el db.el dictionary.el |
| 768 | display.texi document.el ede-grammar.el files.el generic.el | ||
| 769 | gnus-registry.el gnus-sum.el and 21 other files | ||
| 765 | 770 | ||
| 766 | David Gillespie: wrote calc-aent.el calc-alg.el calc-arith.el calc-bin.el | 771 | David Gillespie: wrote calc-aent.el calc-alg.el calc-arith.el calc-bin.el |
| 767 | calc-comb.el calc-cplx.el calc-embed.el calc-ext.el calc-fin.el | 772 | calc-comb.el calc-cplx.el calc-embed.el calc-ext.el calc-fin.el |
| @@ -908,7 +913,7 @@ Derek Upham: changed nxml-mode.el | |||
| 908 | 913 | ||
| 909 | Detlev Zundel: wrote re-builder.el | 914 | Detlev Zundel: wrote re-builder.el |
| 910 | 915 | ||
| 911 | Devon Sean McCullough: changed comint.el | 916 | Devon Sean Mccullough: changed comint.el |
| 912 | 917 | ||
| 913 | Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c | 918 | Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c |
| 914 | sound.c w32proc.c | 919 | sound.c w32proc.c |
| @@ -940,8 +945,8 @@ Dirk-Jan C. Binnema: changed org-agenda.el | |||
| 940 | Dmitri Paduchikh: changed advice.el | 945 | Dmitri Paduchikh: changed advice.el |
| 941 | 946 | ||
| 942 | Dmitry Antipov: changed alloc.c keyboard.c buffer.c ccl.c editfns.c | 947 | Dmitry Antipov: changed alloc.c keyboard.c buffer.c ccl.c editfns.c |
| 943 | emacs.c fontset.c lisp.h lread.c lwlib-Xaw.c lwlib-Xm.c lwlib-utils.c | 948 | emacs.c fontset.c keymap.c lisp.h lread.c lwlib-Xaw.c lwlib-Xm.c |
| 944 | lwlib.c macmenu.c w32menu.c xlwmenu.c xmenu.c | 949 | lwlib-utils.c lwlib.c macmenu.c w32menu.c xdisp.c xlwmenu.c xmenu.c |
| 945 | 950 | ||
| 946 | Dmitry Bolshakov: changed hideshow.el | 951 | Dmitry Bolshakov: changed hideshow.el |
| 947 | 952 | ||
| @@ -1018,8 +1023,8 @@ Eli Zaretskii: wrote [bidirectional display in xdisp.c] bidi.c rxvt.el | |||
| 1018 | tty-colors.el | 1023 | tty-colors.el |
| 1019 | and changed makefile.w32-in msdos.c xdisp.c Makefile.in files.el | 1024 | and changed makefile.w32-in msdos.c xdisp.c Makefile.in files.el |
| 1020 | config.bat fileio.c msdos.h simple.el mainmake.v2 sed1v2.inp info.el | 1025 | config.bat fileio.c msdos.h simple.el mainmake.v2 sed1v2.inp info.el |
| 1021 | rmail.el w32.c display.texi process.c pc-win.el startup.el dired.c | 1026 | display.texi rmail.el w32.c process.c pc-win.el startup.el dispextern.h |
| 1022 | dispextern.h emacs.c and 695 other files | 1027 | dispnew.c dired.c and 697 other files |
| 1023 | 1028 | ||
| 1024 | Elias Oltmanns: changed tls.el gnus-agent.el gnus-int.el gnus-srvr.el | 1029 | Elias Oltmanns: changed tls.el gnus-agent.el gnus-int.el gnus-srvr.el |
| 1025 | gnus.el | 1030 | gnus.el |
| @@ -1162,7 +1167,8 @@ Fabian Ezequiel Gallina: changed progmodes/python.el | |||
| 1162 | 1167 | ||
| 1163 | Fabrice Bauzac: changed dired-aux.el | 1168 | Fabrice Bauzac: changed dired-aux.el |
| 1164 | 1169 | ||
| 1165 | Fabrice Popineau: changed etags.c fileio.c gnus-cache.el | 1170 | Fabrice Popineau: changed config.nt etags.c fileio.c gnus-cache.el |
| 1171 | inttypes.h lisp.h ms-w32.h nmake.defs regex.c stdint.h w32.c | ||
| 1166 | 1172 | ||
| 1167 | Fan Kai: changed esh-arg.el | 1173 | Fan Kai: changed esh-arg.el |
| 1168 | 1174 | ||
| @@ -1320,8 +1326,8 @@ Giuseppe Scrivano: changed browse-url.el buffer.c configure.in sysdep.c | |||
| 1320 | Glenn Morris: wrote check-declare.el f90.el vc-bzr.el | 1326 | Glenn Morris: wrote check-declare.el f90.el vc-bzr.el |
| 1321 | and changed Makefile.in configure.in calendar.el diary-lib.el rmail.el | 1327 | and changed Makefile.in configure.in calendar.el diary-lib.el rmail.el |
| 1322 | files.el cal-menu.el appt.el cal-hebrew.el fortran.el bytecomp.el | 1328 | files.el cal-menu.el appt.el cal-hebrew.el fortran.el bytecomp.el |
| 1323 | holidays.el make-dist calendar.texi emacs.texi sed1v2.inp simple.el | 1329 | holidays.el make-dist calendar.texi emacs.texi simple.el sed1v2.inp |
| 1324 | cal-islam.el cal-bahai.el startup.el ack.texi and 1202 other files | 1330 | cal-islam.el cal-bahai.el startup.el ack.texi and 1208 other files |
| 1325 | 1331 | ||
| 1326 | Glynn Clements: wrote gamegrid.el snake.el tetris.el | 1332 | Glynn Clements: wrote gamegrid.el snake.el tetris.el |
| 1327 | 1333 | ||
| @@ -1552,7 +1558,7 @@ Jan Djärv: wrote dnd.el dynamic-setting.el x-dnd.el | |||
| 1552 | and changed gtkutil.c xterm.c xfns.c configure.in xmenu.c xterm.h | 1558 | and changed gtkutil.c xterm.c xfns.c configure.in xmenu.c xterm.h |
| 1553 | gtkutil.h x-win.el keyboard.c Makefile.in nsterm.m frames.texi | 1559 | gtkutil.h x-win.el keyboard.c Makefile.in nsterm.m frames.texi |
| 1554 | xsettings.c frame.c emacs.c xselect.c process.c xlwmenu.c config.in | 1560 | xsettings.c frame.c emacs.c xselect.c process.c xlwmenu.c config.in |
| 1555 | cus-start.el xresources.texi and 302 other files | 1561 | cus-start.el nsfns.m and 302 other files |
| 1556 | 1562 | ||
| 1557 | Jan Moringen: co-wrote srecode/cpp.el tango-dark-theme.el tango-theme.el | 1563 | Jan Moringen: co-wrote srecode/cpp.el tango-dark-theme.el tango-theme.el |
| 1558 | and changed dbus.el dbus.texi dbusbind.c eieio.el log-edit.el zeroconf.el | 1564 | and changed dbus.el dbus.texi dbusbind.c eieio.el log-edit.el zeroconf.el |
| @@ -1734,10 +1740,10 @@ Joel Ray Holveck: changed gnus-sum.el info.el | |||
| 1734 | Joev Dubach: changed nntp.el | 1740 | Joev Dubach: changed nntp.el |
| 1735 | 1741 | ||
| 1736 | Johan Bockgård: changed erc.el cl-macs.el erc-backend.el erc-button.el | 1742 | Johan Bockgård: changed erc.el cl-macs.el erc-backend.el erc-button.el |
| 1737 | erc-match.el browse-url.el bytecomp.el custom.el display.texi | 1743 | erc-match.el xdisp.c browse-url.el bytecomp.el custom.el display.texi |
| 1738 | erc-compat.el erc-nickserv.el erc-ring.el erc-speak.el erc-track.el | 1744 | erc-compat.el erc-nickserv.el erc-ring.el erc-speak.el erc-track.el |
| 1739 | help-fns.el icomplete.el mouse-sel.el simple.el subr.el xdisp.c | 1745 | help-fns.el icomplete.el mouse-sel.el simple.el subr.el xterm.el |
| 1740 | xterm.el and 48 other files | 1746 | and 48 other files |
| 1741 | 1747 | ||
| 1742 | Johan Euphrosine: changed ibuf-ext.el | 1748 | Johan Euphrosine: changed ibuf-ext.el |
| 1743 | 1749 | ||
| @@ -1863,8 +1869,8 @@ and changed ob-octave.el | |||
| 1863 | Juanma Barranquero: wrote emacs-lock.el | 1869 | Juanma Barranquero: wrote emacs-lock.el |
| 1864 | and changed makefile.w32-in subr.el w32fns.c files.el server.el bs.el | 1870 | and changed makefile.w32-in subr.el w32fns.c files.el server.el bs.el |
| 1865 | emacsclient.c help-fns.el faces.el org.el simple.el buffer.c xdisp.c | 1871 | emacsclient.c help-fns.el faces.el org.el simple.el buffer.c xdisp.c |
| 1866 | keyboard.c process.c w32term.c desktop.el ido.el eval.c mule-cmds.el | 1872 | keyboard.c process.c w32term.c window.c desktop.el ido.el allout.el |
| 1867 | w32.c and 1036 other files | 1873 | eval.c and 1084 other files |
| 1868 | 1874 | ||
| 1869 | Juergen Kreileder: changed imap.el nnimap.el | 1875 | Juergen Kreileder: changed imap.el nnimap.el |
| 1870 | 1876 | ||
| @@ -1895,7 +1901,7 @@ and changed info.el isearch.el simple.el replace.el progmodes/grep.el | |||
| 1895 | dired-aux.el progmodes/compile.el dired.el startup.el faces.el files.el | 1901 | dired-aux.el progmodes/compile.el dired.el startup.el faces.el files.el |
| 1896 | display.texi menu-bar.el descr-text.el bindings.el cus-edit.el | 1902 | display.texi menu-bar.el descr-text.el bindings.el cus-edit.el |
| 1897 | image-mode.el ispell.el man.el dired-x.el log-view.el | 1903 | image-mode.el ispell.el man.el dired-x.el log-view.el |
| 1898 | and 334 other files | 1904 | and 335 other files |
| 1899 | 1905 | ||
| 1900 | Justin Bogner: changed fortune.el | 1906 | Justin Bogner: changed fortune.el |
| 1901 | 1907 | ||
| @@ -2001,7 +2007,7 @@ Keith Gabryelski: wrote hexl.c hexl.el | |||
| 2001 | Keith Packard: changed font.c | 2007 | Keith Packard: changed font.c |
| 2002 | 2008 | ||
| 2003 | Ken Brown: changed configure.in cygwin.h sheap.c browse-url.el gmalloc.c | 2009 | Ken Brown: changed configure.in cygwin.h sheap.c browse-url.el gmalloc.c |
| 2004 | vm-limit.c dired.c emacs.c loadup.el mem-limits.h unexcw.c | 2010 | vm-limit.c dired.c emacs.c gdb-mi.el loadup.el mem-limits.h unexcw.c |
| 2005 | 2011 | ||
| 2006 | Ken Brush: changed emacsclient.c | 2012 | Ken Brush: changed emacsclient.c |
| 2007 | 2013 | ||
| @@ -2169,7 +2175,8 @@ and co-wrote gnus-kill.el gnus-mh.el gnus-msg.el gnus-score.el | |||
| 2169 | and changed gnus.texi gnus-cite.el pop3.el gnus-xmas.el smtpmail.el | 2175 | and changed gnus.texi gnus-cite.el pop3.el gnus-xmas.el smtpmail.el |
| 2170 | proto-stream.el auth-source.el xml.c dired.el editfns.c nnultimate.el | 2176 | proto-stream.el auth-source.el xml.c dired.el editfns.c nnultimate.el |
| 2171 | subr.el gnus-nocem.el gnutls.c imap.el nnkiboze.el nnrss.el | 2177 | subr.el gnus-nocem.el gnutls.c imap.el nnkiboze.el nnrss.el |
| 2172 | nnslashdot.el spam-report.el gnus-cus.el simple.el and 205 other files | 2178 | nnslashdot.el spam-report.el url-http.el gnus-cus.el |
| 2179 | and 206 other files | ||
| 2173 | 2180 | ||
| 2174 | Lars Rasmusson: changed ebrowse.c | 2181 | Lars Rasmusson: changed ebrowse.c |
| 2175 | 2182 | ||
| @@ -2323,7 +2330,7 @@ Mark Hood: changed gnus-uu.el | |||
| 2323 | 2330 | ||
| 2324 | Mark Lambert: changed process.c process.h | 2331 | Mark Lambert: changed process.c process.h |
| 2325 | 2332 | ||
| 2326 | Mark Lillibridge: changed mail-utils.el rmail.el | 2333 | Mark Lillibridge: changed rmail.el mail-utils.el unrmail.el |
| 2327 | 2334 | ||
| 2328 | Mark Mitchell: changed font-lock.el | 2335 | Mark Mitchell: changed font-lock.el |
| 2329 | 2336 | ||
| @@ -2390,7 +2397,7 @@ Martin Neitzel: changed supercite.el | |||
| 2390 | Martin Pohlack: changed iimage.el pc-select.el | 2397 | Martin Pohlack: changed iimage.el pc-select.el |
| 2391 | 2398 | ||
| 2392 | Martin Rudalics: changed window.el window.c windows.texi frame.c buffer.c | 2399 | Martin Rudalics: changed window.el window.c windows.texi frame.c buffer.c |
| 2393 | frame.el help.el cus-edit.el cus-start.el files.el window.h | 2400 | help.el window.h cus-start.el frame.el cus-edit.el files.el |
| 2394 | buffers.texi dired.el subr.el add-log.el xdisp.c font-lock.el | 2401 | buffers.texi dired.el subr.el add-log.el xdisp.c font-lock.el |
| 2395 | help-fns.el lisp.h mouse.el wid-edit.el and 135 other files | 2402 | help-fns.el lisp.h mouse.el wid-edit.el and 135 other files |
| 2396 | 2403 | ||
| @@ -2479,7 +2486,7 @@ and changed tramp.texi dbusbind.c trampver.texi dbus.texi trampver.el | |||
| 2479 | ange-ftp.el tramp-fish.el files.el tramp-imap.el files.texi Makefile.in | 2486 | ange-ftp.el tramp-fish.el files.el tramp-imap.el files.texi Makefile.in |
| 2480 | tramp-vc.el tramp-util.el tramp-uu.el simple.el auth-source.el | 2487 | tramp-vc.el tramp-util.el tramp-uu.el simple.el auth-source.el |
| 2481 | dired-aux.el configure.in em-unix.el fileio.c keyboard.c | 2488 | dired-aux.el configure.in em-unix.el fileio.c keyboard.c |
| 2482 | and 64 other files | 2489 | and 65 other files |
| 2483 | 2490 | ||
| 2484 | Michael Ben-Gershon: changed acorn.h configure.in riscix1-1.h riscix1-2.h | 2491 | Michael Ben-Gershon: changed acorn.h configure.in riscix1-1.h riscix1-2.h |
| 2485 | unexec.c | 2492 | unexec.c |
| @@ -2581,6 +2588,8 @@ Mikael Fornius: changed org.el org-habit.el | |||
| 2581 | 2588 | ||
| 2582 | Mike Haertel: changed 7300.h | 2589 | Mike Haertel: changed 7300.h |
| 2583 | 2590 | ||
| 2591 | Mike Kazantsev: changed erc-dcc.el | ||
| 2592 | |||
| 2584 | Mike Kupfer: changed mh-e.el mh-utils.el | 2593 | Mike Kupfer: changed mh-e.el mh-utils.el |
| 2585 | 2594 | ||
| 2586 | Mike Long: changed b2m.c make-dist make-mode.el netbsd.h view.el vms.h | 2595 | Mike Long: changed b2m.c make-dist make-mode.el netbsd.h view.el vms.h |
| @@ -2804,9 +2813,9 @@ and changed imenu.el make-mode.el | |||
| 2804 | Paul Eggert: wrote rcs2log vcdiff | 2813 | Paul Eggert: wrote rcs2log vcdiff |
| 2805 | and co-wrote cal-dst.el | 2814 | and co-wrote cal-dst.el |
| 2806 | and changed lisp.h Makefile.in editfns.c alloc.c xdisp.c configure.in | 2815 | and changed lisp.h Makefile.in editfns.c alloc.c xdisp.c configure.in |
| 2807 | image.c fileio.c process.c fns.c xterm.c keyboard.c data.c dispextern.h | 2816 | fileio.c image.c process.c fns.c xterm.c dispextern.h keyboard.c data.c |
| 2808 | lread.c sysdep.c xfns.c eval.c emacs.c config.in print.c | 2817 | lread.c sysdep.c xfns.c eval.c emacs.c config.in print.c |
| 2809 | and 563 other files | 2818 | and 564 other files |
| 2810 | 2819 | ||
| 2811 | Paul Fisher: changed fns.c | 2820 | Paul Fisher: changed fns.c |
| 2812 | 2821 | ||
| @@ -3356,9 +3365,9 @@ Stefan Monnier: wrote bibtex-style.el bzrmerge.el css-mode.el | |||
| 3356 | pcvs-util.el reveal.el smerge-mode.el smie.el vc-mtn.el | 3365 | pcvs-util.el reveal.el smerge-mode.el smie.el vc-mtn.el |
| 3357 | and co-wrote font-lock.el | 3366 | and co-wrote font-lock.el |
| 3358 | and changed vc.el subr.el simple.el lisp.h keyboard.c files.el | 3367 | and changed vc.el subr.el simple.el lisp.h keyboard.c files.el |
| 3359 | Makefile.in bytecomp.el keymap.c xdisp.c pcvs.el alloc.c | 3368 | bytecomp.el Makefile.in keymap.c progmodes/compile.el xdisp.c pcvs.el |
| 3360 | progmodes/compile.el newcomment.el vc-hooks.el tex-mode.el buffer.c | 3369 | alloc.c newcomment.el vc-hooks.el tex-mode.el buffer.c fileio.c |
| 3361 | sh-script.el eval.c fileio.c fill.el and 1030 other files | 3370 | sh-script.el eval.c fill.el and 1032 other files |
| 3362 | 3371 | ||
| 3363 | Stefan Reichör: changed gnus-agent.el | 3372 | Stefan Reichör: changed gnus-agent.el |
| 3364 | 3373 | ||
| @@ -3508,7 +3517,7 @@ and changed subword.el image-mode.el Makefile.in cc-cmds.el emacsbug.el | |||
| 3508 | gnus-art.el gnus.texi nnimap.el files.el gnus-sum.el info.el | 3517 | gnus-art.el gnus.texi nnimap.el files.el gnus-sum.el info.el |
| 3509 | org-footnote.el org.el reftex-ref.el simple.el tsdh-dark-theme.el | 3518 | org-footnote.el org.el reftex-ref.el simple.el tsdh-dark-theme.el |
| 3510 | tsdh-light-theme.el ack.texi bindings.el bookmark.el cc-mode.el | 3519 | tsdh-light-theme.el ack.texi bindings.el bookmark.el cc-mode.el |
| 3511 | and 21 other files | 3520 | and 22 other files |
| 3512 | 3521 | ||
| 3513 | Tatsuya Ichikawa: changed gnus-agent.el gnus-cache.el | 3522 | Tatsuya Ichikawa: changed gnus-agent.el gnus-cache.el |
| 3514 | 3523 | ||
| @@ -3520,10 +3529,10 @@ Teemu Likonen: changed dired.el gnus-agent.el message.el | |||
| 3520 | 3529 | ||
| 3521 | Teodor Zlatanov: wrote auth-source.el gnus-registry.el gnus-sync.el | 3530 | Teodor Zlatanov: wrote auth-source.el gnus-registry.el gnus-sync.el |
| 3522 | gnus-tests.el gnutls.el registry.el spam-report.el url-future.el | 3531 | gnus-tests.el gnutls.el registry.el spam-report.el url-future.el |
| 3523 | and changed spam.el gnus.el nnimap.el gnus.texi gnus-sum.el auth.texi | 3532 | and changed spam.el gnus.el nnimap.el gnus.texi gnus-sum.el gnus-util.el |
| 3524 | gnus-util.el netrc.el gnus-start.el gnutls.c message.el spam-stat.el | 3533 | auth.texi netrc.el gnus-start.el gnutls.c message.el spam-stat.el |
| 3525 | encrypt.el nnmail.el imap.el mail-source.el Makefile.in gnus-encrypt.el | 3534 | encrypt.el nnir.el nnmail.el imap.el mail-source.el nnmairix.el |
| 3526 | gnus-html.el gnus-int.el gnutls.h and 97 other files | 3535 | Makefile.in gnus-encrypt.el gnus-html.el and 97 other files |
| 3527 | 3536 | ||
| 3528 | Terje Rosten: changed xfns.c version.el xterm.c xterm.h | 3537 | Terje Rosten: changed xfns.c version.el xterm.c xterm.h |
| 3529 | 3538 | ||
| @@ -3839,8 +3848,8 @@ Yann Dirson: changed imenu.el | |||
| 3839 | 3848 | ||
| 3840 | Yann Hodique: changed rcirc.el | 3849 | Yann Hodique: changed rcirc.el |
| 3841 | 3850 | ||
| 3842 | Yavor Doganov: changed configure.in Info-gnustep.plist emacs.1 etags.1 | 3851 | Yavor Doganov: changed configure.in Info-gnustep.plist Makefile.in |
| 3843 | make-dist nsfont.m | 3852 | emacs.1 etags.1 make-dist nsfont.m |
| 3844 | 3853 | ||
| 3845 | Yoichi Nakayama: changed browse-url.el finder.el man.el rfc2368.el | 3854 | Yoichi Nakayama: changed browse-url.el finder.el man.el rfc2368.el |
| 3846 | 3855 | ||
diff --git a/etc/MH-E-NEWS b/etc/MH-E-NEWS index 4ab75dcfc45..f02b795a6b9 100644 --- a/etc/MH-E-NEWS +++ b/etc/MH-E-NEWS | |||
| @@ -1584,7 +1584,7 @@ message (closes SF #701756). | |||
| 1584 | MH-E now supports several spam filters including Bogofilter, | 1584 | MH-E now supports several spam filters including Bogofilter, |
| 1585 | SpamProbe, and SpamAssassin. Spam that is mistakenly considered to be | 1585 | SpamProbe, and SpamAssassin. Spam that is mistakenly considered to be |
| 1586 | good mail can be reclassified as spam with "J b (mh-junk-blacklist)". | 1586 | good mail can be reclassified as spam with "J b (mh-junk-blacklist)". |
| 1587 | Conversely, good mail that is accidently considered to be spam can be | 1587 | Conversely, good mail that is accidentally considered to be spam can be |
| 1588 | reclassified with "J w (mh-junk-whitelist)" (closes SF #669518). | 1588 | reclassified with "J w (mh-junk-whitelist)" (closes SF #669518). |
| 1589 | 1589 | ||
| 1590 | If a message is blacklisted, and `mh-junk-mail-folder' is a string, | 1590 | If a message is blacklisted, and `mh-junk-mail-folder' is a string, |
| @@ -253,6 +253,7 @@ off by customizing x-gtk-use-system-tooltips. | |||
| 253 | ** New basic faces `error', `warning', `success' are available to | 253 | ** New basic faces `error', `warning', `success' are available to |
| 254 | highlight strings that indicate failure, caution or successful operation. | 254 | highlight strings that indicate failure, caution or successful operation. |
| 255 | 255 | ||
| 256 | --- | ||
| 256 | ** Lucid menus and dialogs can display antialiased fonts if Emacs is built | 257 | ** Lucid menus and dialogs can display antialiased fonts if Emacs is built |
| 257 | with Xft. To change font, use the X resource font, for example: | 258 | with Xft. To change font, use the X resource font, for example: |
| 258 | Emacs.pane.menubar.font: Courier-12 | 259 | Emacs.pane.menubar.font: Courier-12 |
| @@ -379,7 +380,7 @@ The elisp implementation sha1.el is removed. Feature sha1 is provided | |||
| 379 | by default. | 380 | by default. |
| 380 | 381 | ||
| 381 | ** Menu-bar changes | 382 | ** Menu-bar changes |
| 382 | 383 | --- | |
| 383 | *** `menu-bar-select-buffer-function' lets you choose another operation | 384 | *** `menu-bar-select-buffer-function' lets you choose another operation |
| 384 | instead of `switch-to-buffer' when selecting an item in the Buffers menu. | 385 | instead of `switch-to-buffer' when selecting an item in the Buffers menu. |
| 385 | 386 | ||
| @@ -550,6 +551,13 @@ at high rate, e.g. if you lean on some key, because stopping redisplay | |||
| 550 | in the middle (when this variable is nil) forces more expensive | 551 | in the middle (when this variable is nil) forces more expensive |
| 551 | updates later on, and Emacs appears to be unable to keep up. | 552 | updates later on, and Emacs appears to be unable to keep up. |
| 552 | 553 | ||
| 554 | +++ | ||
| 555 | ** The behavior of <TAB> for active regions in Text mode has changed. | ||
| 556 | In Text and related modes, typing <TAB> (`indent-for-tab-command') | ||
| 557 | when the region is active causes Emacs to indent all the lines in the | ||
| 558 | region, aligning them with the line previous to the first line in the | ||
| 559 | region (or with the left margin if there is no previous line). | ||
| 560 | |||
| 553 | 561 | ||
| 554 | * Changes in Specialized Modes and Packages in Emacs 24.1 | 562 | * Changes in Specialized Modes and Packages in Emacs 24.1 |
| 555 | 563 | ||
| @@ -725,6 +733,11 @@ more variants, including Mercury, and a lot more. | |||
| 725 | *** The command `rmail-epa-decrypt' decrypts OpenPGP data | 733 | *** The command `rmail-epa-decrypt' decrypts OpenPGP data |
| 726 | in the Rmail incoming message. | 734 | in the Rmail incoming message. |
| 727 | 735 | ||
| 736 | --- | ||
| 737 | *** The variable `rmail-message-filter' no longer has any effect. | ||
| 738 | This change was made in Emacs 23.1 but was not advertised at the time. | ||
| 739 | Try using `rmail-show-message-hook' instead. | ||
| 740 | |||
| 728 | ** Shell mode | 741 | ** Shell mode |
| 729 | 742 | ||
| 730 | *** Shell mode uses pcomplete rules, with the standard completion UI. | 743 | *** Shell mode uses pcomplete rules, with the standard completion UI. |
| @@ -1327,6 +1340,8 @@ as well as those in the -*- line. | |||
| 1327 | 1340 | ||
| 1328 | ** keymaps can inherit from multiple parents. | 1341 | ** keymaps can inherit from multiple parents. |
| 1329 | 1342 | ||
| 1343 | ** `debug-on-event' lets you debug Emacs when stuck because of inhibit-quit. | ||
| 1344 | |||
| 1330 | +++ | 1345 | +++ |
| 1331 | ** New reader macro ## which stands for the empty symbol. | 1346 | ** New reader macro ## which stands for the empty symbol. |
| 1332 | This means that the empty symbol can now be read back. Also, #: by itself | 1347 | This means that the empty symbol can now be read back. Also, #: by itself |
diff --git a/etc/NEWS.1-17 b/etc/NEWS.1-17 index dc9922ed989..8b861cca875 100644 --- a/etc/NEWS.1-17 +++ b/etc/NEWS.1-17 | |||
| @@ -1198,7 +1198,7 @@ them with `\='. For example, "\\=\\= is the way to quote \\=\\[" | |||
| 1198 | will come out as `\= is the way to quote \['. | 1198 | will come out as `\= is the way to quote \['. |
| 1199 | 1199 | ||
| 1200 | The new function `substitute-command-keys' takes a string possibly | 1200 | The new function `substitute-command-keys' takes a string possibly |
| 1201 | contaning \[...] constructs and replaces those constructs with | 1201 | containing \[...] constructs and replaces those constructs with |
| 1202 | the key sequences they currently stand for. | 1202 | the key sequences they currently stand for. |
| 1203 | 1203 | ||
| 1204 | * Primitives `find-line-comment' and `find-line-comment-body' flushed. | 1204 | * Primitives `find-line-comment' and `find-line-comment-body' flushed. |
| @@ -1630,7 +1630,7 @@ Changes in Emacs 1.12 | |||
| 1630 | read-char now returns a value in the range 128-255 if | 1630 | read-char now returns a value in the range 128-255 if |
| 1631 | a Meta character is typed. When interpreted as command | 1631 | a Meta character is typed. When interpreted as command |
| 1632 | input, a Meta character is equivalent to a two character | 1632 | input, a Meta character is equivalent to a two character |
| 1633 | sequence, the meta prefix character followed by the un-metized | 1633 | sequence, the meta prefix character followed by the unmetized |
| 1634 | character (Meta-G unmetized is G). | 1634 | character (Meta-G unmetized is G). |
| 1635 | 1635 | ||
| 1636 | The meta prefix character | 1636 | The meta prefix character |
diff --git a/etc/NEWS.22 b/etc/NEWS.22 index 5e95e40b04c..87d77cf52fc 100644 --- a/etc/NEWS.22 +++ b/etc/NEWS.22 | |||
| @@ -163,7 +163,7 @@ delimiters will appear to be fontified (in the new face | |||
| 163 | customize `font-lock-comment-face'. Another alternative is to use a | 163 | customize `font-lock-comment-face'. Another alternative is to use a |
| 164 | newer terminal emulator that supports more colors (256 is now common). | 164 | newer terminal emulator that supports more colors (256 is now common). |
| 165 | For example, for xterm compatible emulators that support 256 colors, | 165 | For example, for xterm compatible emulators that support 256 colors, |
| 166 | you can run emacs like this: | 166 | you can run emacs like this: |
| 167 | env TERM=xterm-256color emacs -nw | 167 | env TERM=xterm-256color emacs -nw |
| 168 | (This was new in Emacs 22.1, but was not described. In Emacs 22.1 | 168 | (This was new in Emacs 22.1, but was not described. In Emacs 22.1 |
| 169 | this also happened for terminals with a light background, that is not | 169 | this also happened for terminals with a light background, that is not |
| @@ -280,13 +280,13 @@ the files mac/README and mac/INSTALL for build instructions. | |||
| 280 | ** Support for FreeBSD/Alpha has been added. | 280 | ** Support for FreeBSD/Alpha has been added. |
| 281 | 281 | ||
| 282 | ** New translations of the Emacs Tutorial are available in the | 282 | ** New translations of the Emacs Tutorial are available in the |
| 283 | following languages: Brasilian Portuguese, Bulgarian, Chinese (both | 283 | following languages: Brazilian Portuguese, Bulgarian, Chinese (both |
| 284 | with simplified and traditional characters), French, Russian, and | 284 | with simplified and traditional characters), French, Russian, and |
| 285 | Italian. Type `C-u C-h t' to choose one of them in case your language | 285 | Italian. Type `C-u C-h t' to choose one of them in case your language |
| 286 | setup doesn't automatically select the right one. | 286 | setup doesn't automatically select the right one. |
| 287 | 287 | ||
| 288 | ** New translations of the Emacs reference card are available in the | 288 | ** New translations of the Emacs reference card are available in the |
| 289 | Brasilian Portuguese and Russian. The corresponding PostScript files | 289 | Brazilian Portuguese and Russian. The corresponding PostScript files |
| 290 | are also included. | 290 | are also included. |
| 291 | 291 | ||
| 292 | ** A French translation of the `Emacs Survival Guide' is available. | 292 | ** A French translation of the `Emacs Survival Guide' is available. |
| @@ -1026,7 +1026,7 @@ parts of the mode line. | |||
| 1026 | 1026 | ||
| 1027 | *** `shadow' face defines the appearance of the "shadowed" text, i.e. | 1027 | *** `shadow' face defines the appearance of the "shadowed" text, i.e. |
| 1028 | the text which should be less noticeable than the surrounding text. | 1028 | the text which should be less noticeable than the surrounding text. |
| 1029 | This can be achieved by using shades of grey in contrast with either | 1029 | This can be achieved by using shades of gray in contrast with either |
| 1030 | black or white default foreground color. This generic shadow face | 1030 | black or white default foreground color. This generic shadow face |
| 1031 | allows customization of the appearance of shadowed text in one place, | 1031 | allows customization of the appearance of shadowed text in one place, |
| 1032 | so package-specific faces can inherit from it. | 1032 | so package-specific faces can inherit from it. |
| @@ -2558,10 +2558,10 @@ is nil). | |||
| 2558 | 2558 | ||
| 2559 | *** Minor Improvements | 2559 | *** Minor Improvements |
| 2560 | 2560 | ||
| 2561 | **** The STARTTLS wrapper (starttls.el) can now use GNUTLS | 2561 | **** The STARTTLS wrapper (starttls.el) can now use GnuTLS |
| 2562 | instead of the OpenSSL based `starttls' tool. For backwards | 2562 | instead of the OpenSSL based `starttls' tool. For backwards |
| 2563 | compatibility, it prefers `starttls', but you can toggle | 2563 | compatibility, it prefers `starttls', but you can toggle |
| 2564 | `starttls-use-gnutls' to switch to GNUTLS (or simply remove the | 2564 | `starttls-use-gnutls' to switch to GnuTLS (or simply remove the |
| 2565 | `starttls' tool). | 2565 | `starttls' tool). |
| 2566 | 2566 | ||
| 2567 | **** Do not allow debugger output history variable to grow without bounds. | 2567 | **** Do not allow debugger output history variable to grow without bounds. |
diff --git a/etc/NEWS.23 b/etc/NEWS.23 index 9b8909d794a..4e541c0deb3 100644 --- a/etc/NEWS.23 +++ b/etc/NEWS.23 | |||
| @@ -793,7 +793,7 @@ starts the server. Clients can connect and create graphical or | |||
| 793 | terminal frames using emacsclient. | 793 | terminal frames using emacsclient. |
| 794 | 794 | ||
| 795 | **** emacsclient starts emacs in daemon mode and connects to it when | 795 | **** emacsclient starts emacs in daemon mode and connects to it when |
| 796 | --alternate-editor="" is used (or when the evironment variable | 796 | --alternate-editor="" is used (or when the environment variable |
| 797 | ALTERNATE_EDITOR is set to "") and emacsclient cannot connect to an | 797 | ALTERNATE_EDITOR is set to "") and emacsclient cannot connect to an |
| 798 | emacs server. | 798 | emacs server. |
| 799 | 799 | ||
| @@ -1027,8 +1027,8 @@ motion keys (e.g. S-left and S-down) activate and extend a temporary | |||
| 1027 | region, similar to mouse-selection. | 1027 | region, similar to mouse-selection. |
| 1028 | 1028 | ||
| 1029 | *** Temporarily active regions, created using shift-selection or | 1029 | *** Temporarily active regions, created using shift-selection or |
| 1030 | mouse-selection, are not necessarily deactivated in the next command. | 1030 | mouse-selection, are not necessarily deactivated after the next command. |
| 1031 | They are only deactivated after point motion commands that are not | 1031 | They are deactivated only after point motion commands that are not |
| 1032 | shift-translated, or after commands that would ordinarily deactivate | 1032 | shift-translated, or after commands that would ordinarily deactivate |
| 1033 | the mark in Transient Mark mode (e.g., any command that modifies the | 1033 | the mark in Transient Mark mode (e.g., any command that modifies the |
| 1034 | buffer). | 1034 | buffer). |
| @@ -841,7 +841,7 @@ more detailed diagnosis. | |||
| 841 | 841 | ||
| 842 | **** Provide an Error Summary buffer showing all the validation errors. | 842 | **** Provide an Error Summary buffer showing all the validation errors. |
| 843 | 843 | ||
| 844 | **** Pop-up menu. What is useful? Tag a region (should be greyed out if | 844 | **** Pop-up menu. What is useful? Tag a region (should be grayed out if |
| 845 | the region is not balanced). Suggestions based on error messages. | 845 | the region is not balanced). Suggestions based on error messages. |
| 846 | 846 | ||
| 847 | **** Have configurable list of namespace URIs so that we can provide | 847 | **** Have configurable list of namespace URIs so that we can provide |
diff --git a/etc/e/eterm-color.ti b/etc/e/eterm-color.ti index 0ddb7ec5408..a6ef8149900 100644 --- a/etc/e/eterm-color.ti +++ b/etc/e/eterm-color.ti | |||
| @@ -7,7 +7,7 @@ eterm-color|Emacs term.el terminal emulator term-protocol-version 0.96, | |||
| 7 | # When updating this file, etc/e/eterm-color should be regenerated by | 7 | # When updating this file, etc/e/eterm-color should be regenerated by |
| 8 | # running "make e/eterm-color" in the etc directory. | 8 | # running "make e/eterm-color" in the etc directory. |
| 9 | # Any change to this file should be done at the same time with a | 9 | # Any change to this file should be done at the same time with a |
| 10 | # corresponding change to the TERMCAP evironment variable in term.el. | 10 | # corresponding change to the TERMCAP environment variable in term.el. |
| 11 | # Comments in term.el specify where each of these capabilities is implemented. | 11 | # Comments in term.el specify where each of these capabilities is implemented. |
| 12 | colors#8, | 12 | colors#8, |
| 13 | cols#80, | 13 | cols#80, |
diff --git a/etc/refcards/gnus-refcard.tex b/etc/refcards/gnus-refcard.tex index b164a28842e..9f13974584d 100644 --- a/etc/refcards/gnus-refcard.tex +++ b/etc/refcards/gnus-refcard.tex | |||
| @@ -13,7 +13,7 @@ | |||
| 13 | % | 13 | % |
| 14 | % latex gnus-refcard.tex && | 14 | % latex gnus-refcard.tex && |
| 15 | % dvips -t letter -f gnus-refcard.dvi > gnus-refcard.ps | 15 | % dvips -t letter -f gnus-refcard.dvi > gnus-refcard.ps |
| 16 | % | 16 | % |
| 17 | % latex '\def\booklettrue{}\def\letterpapertrue{}\input{gnus-refcard}' && | 17 | % latex '\def\booklettrue{}\def\letterpapertrue{}\input{gnus-refcard}' && |
| 18 | % mv gnus-refcard.dvi gnus-booklet.dvi && | 18 | % mv gnus-refcard.dvi gnus-booklet.dvi && |
| 19 | % dvips -t letter -f gnus-booklet.dvi > gnus-booklet.ps | 19 | % dvips -t letter -f gnus-booklet.dvi > gnus-booklet.ps |
| @@ -35,16 +35,16 @@ | |||
| 35 | 35 | ||
| 36 | \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 36 | \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 37 | % Reference Card | 37 | % Reference Card |
| 38 | 38 | ||
| 39 | \def\Guide{Card}\def\guide{card} | 39 | \def\Guide{Card}\def\guide{card} |
| 40 | \def\logoscale{0.25} | 40 | \def\logoscale{0.25} |
| 41 | 41 | ||
| 42 | % Page setup for the refcard: | 42 | % Page setup for the refcard: |
| 43 | 43 | ||
| 44 | % \setlength{\textwidth}{7.26in} \setlength{\textheight}{10in} | 44 | % \setlength{\textwidth}{7.26in} \setlength{\textheight}{10in} |
| 45 | % \setlength{\topmargin}{-1.0in} | 45 | % \setlength{\topmargin}{-1.0in} |
| 46 | % % the same settings work for A4, although there is a bit of space at the | 46 | % % the same settings work for A4, although there is a bit of space at the |
| 47 | % % top and bottom of the page. | 47 | % % top and bottom of the page. |
| 48 | % \setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in} | 48 | % \setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in} |
| 49 | 49 | ||
| 50 | \ifthenelse{\isundefined{\letterpapertrue}}{ | 50 | \ifthenelse{\isundefined{\letterpapertrue}}{ |
| @@ -52,19 +52,19 @@ | |||
| 52 | }{ | 52 | }{ |
| 53 | \geometry{hmargin=20mm,tmargin=10mm,bmargin=12mm} | 53 | \geometry{hmargin=20mm,tmargin=10mm,bmargin=12mm} |
| 54 | } | 54 | } |
| 55 | 55 | ||
| 56 | }{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 56 | }{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 57 | % Reference Booklet | 57 | % Reference Booklet |
| 58 | 58 | ||
| 59 | \def\Guide{Booklet}\def\guide{booklet} | 59 | \def\Guide{Booklet}\def\guide{booklet} |
| 60 | \def\logoscale{0.5}% FIXME: too large for 2up printing? --rsteib | 60 | \def\logoscale{0.5}% FIXME: too large for 2up printing? --rsteib |
| 61 | 61 | ||
| 62 | \ifthenelse{\isundefined{\letterpapertrue}}{ | 62 | \ifthenelse{\isundefined{\letterpapertrue}}{ |
| 63 | \geometry{a5paper,hmargin=10mm,tmargin=10mm,bmargin=4mm} | 63 | \geometry{a5paper,hmargin=10mm,tmargin=10mm,bmargin=4mm} |
| 64 | }{ | 64 | }{ |
| 65 | \geometry{a5paper,hmargin=20mm,tmargin=10mm,bmargin=4mm} | 65 | \geometry{a5paper,hmargin=20mm,tmargin=10mm,bmargin=4mm} |
| 66 | } | 66 | } |
| 67 | 67 | ||
| 68 | \def\sec{\section} | 68 | \def\sec{\section} |
| 69 | \def\subsec{\subsection} | 69 | \def\subsec{\subsection} |
| 70 | \def\subsubsec{\subsubsection} | 70 | \def\subsubsec{\subsubsection} |
| @@ -73,7 +73,7 @@ | |||
| 73 | \par\vspace*{\fill}\pagebreak} | 73 | \par\vspace*{\fill}\pagebreak} |
| 74 | }%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 74 | }%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 75 | 75 | ||
| 76 | % \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % | 76 | % \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % |
| 77 | %% include file for the Gnus refcard and booklet | 77 | %% include file for the Gnus refcard and booklet |
| 78 | 78 | ||
| 79 | \def\progver{5.11} % program version | 79 | \def\progver{5.11} % program version |
| @@ -218,7 +218,7 @@ | |||
| 218 | \hline | 218 | \hline |
| 219 | \multicolumn{2}{|p{\markdblcolwidth}|}{{\bf ``Read'' Marks.} | 219 | \multicolumn{2}{|p{\markdblcolwidth}|}{{\bf ``Read'' Marks.} |
| 220 | All these marks appear in the first column of the summary line, and so | 220 | All these marks appear in the first column of the summary line, and so |
| 221 | are mutually exclusive.}\\ | 221 | are mutually exclusive.}\\ |
| 222 | \hline | 222 | \hline |
| 223 | ` ' & (M-u, M SPC, M c) Not read.\\ | 223 | ` ' & (M-u, M SPC, M c) Not read.\\ |
| 224 | ! & (!, M !, M t) Ticked (interesting).\\ | 224 | ! & (!, M !, M t) Ticked (interesting).\\ |
| @@ -284,7 +284,7 @@ | |||
| 284 | [Prefix: use group under point to find posting-style].\\ | 284 | [Prefix: use group under point to find posting-style].\\ |
| 285 | b & Find {\bf bogus} groups and delete them.\\ | 285 | b & Find {\bf bogus} groups and delete them.\\ |
| 286 | c & Mark all unticked articles in group as read ({\bf catch-up}). | 286 | c & Mark all unticked articles in group as read ({\bf catch-up}). |
| 287 | [p/p]\\ | 287 | [p/p]\\ |
| 288 | g & Check the server for new articles ({\bf get}). [level]\\ | 288 | g & Check the server for new articles ({\bf get}). [level]\\ |
| 289 | M-g & Check the server for new articles in this group ({\bf get}). [p/p]\\ | 289 | M-g & Check the server for new articles in this group ({\bf get}). [p/p]\\ |
| 290 | j & {\bf Jump} to a group.\\ | 290 | j & {\bf Jump} to a group.\\ |
| @@ -292,14 +292,14 @@ | |||
| 292 | [Prefix: use group under point to find posting-style].\\ | 292 | [Prefix: use group under point to find posting-style].\\ |
| 293 | n & Go to the {\bf next} group with unread articles. [distance]\\ | 293 | n & Go to the {\bf next} group with unread articles. [distance]\\ |
| 294 | M-n & Go to the {\bf next} group on the same or lower level. | 294 | M-n & Go to the {\bf next} group on the same or lower level. |
| 295 | [distance]\\ | 295 | [distance]\\ |
| 296 | p & (DEL) Go to the {\bf previous} group with unread articles. | 296 | p & (DEL) Go to the {\bf previous} group with unread articles. |
| 297 | [distance]\\ | 297 | [distance]\\ |
| 298 | M-p & Go to the {\bf previous} group on the same or lower level. [distance]\\ | 298 | M-p & Go to the {\bf previous} group on the same or lower level. [distance]\\ |
| 299 | q & {\bf Quit} Gnus.\\ | 299 | q & {\bf Quit} Gnus.\\ |
| 300 | r & Re-read the init file ({\bf reset}).\\ | 300 | r & Re-read the init file ({\bf reset}).\\ |
| 301 | s & {\bf Save} `.newsrc.eld' file (and `.newsrc' if | 301 | s & {\bf Save} `.newsrc.eld' file (and `.newsrc' if |
| 302 | `gnus-save-newsrc-file').\\ | 302 | `gnus-save-newsrc-file').\\ |
| 303 | z & Suspend (kill all buffers of) Gnus.\\ | 303 | z & Suspend (kill all buffers of) Gnus.\\ |
| 304 | B & {\bf Browse} a foreign server.\\ | 304 | B & {\bf Browse} a foreign server.\\ |
| 305 | C & Mark all articles in this group as read ({\bf Catch-up}). [p/p]\\ | 305 | C & Mark all articles in this group as read ({\bf Catch-up}). [p/p]\\ |
| @@ -312,7 +312,7 @@ | |||
| 312 | M-c & Clear data from group (marks and list of read articles). \\ | 312 | M-c & Clear data from group (marks and list of read articles). \\ |
| 313 | C-c C-s & {\bf Sort} the groups by name, number of unread articles, or level | 313 | C-c C-s & {\bf Sort} the groups by name, number of unread articles, or level |
| 314 | (depending on `gnus-group-sort-function').\\ | 314 | (depending on `gnus-group-sort-function').\\ |
| 315 | C-c C-x & Run all expirable articles in group through the {\bf expiry} | 315 | C-c C-x & Run all expirable articles in group through the {\bf expiry} |
| 316 | process.\\ | 316 | process.\\ |
| 317 | C-c M-C-x & Run all articles in all groups through the {\bf expiry} process.\\ | 317 | C-c M-C-x & Run all articles in all groups through the {\bf expiry} process.\\ |
| 318 | C-c M-g & Activate all {\bf groups}.\\ | 318 | C-c M-g & Activate all {\bf groups}.\\ |
| @@ -324,7 +324,7 @@ | |||
| 324 | ange-ftp). [Prefix: query for group]\\ | 324 | ange-ftp). [Prefix: query for group]\\ |
| 325 | H v & (V) Display the Gnus {\bf version} number.\\ | 325 | H v & (V) Display the Gnus {\bf version} number.\\ |
| 326 | H d & (C-c C-d) Show the {\bf description} of this group | 326 | H d & (C-c C-d) Show the {\bf description} of this group |
| 327 | [Prefix: re-read from server].\\ | 327 | [Prefix: re-read from server].\\ |
| 328 | M-d & {\bf Describe} all groups. [Prefix: re-read from server]\\ | 328 | M-d & {\bf Describe} all groups. [Prefix: re-read from server]\\ |
| 329 | D g & Regenerate a Sieve script from group parameters.\\ | 329 | D g & Regenerate a Sieve script from group parameters.\\ |
| 330 | D u & Regenerate Sieve script and {\bf upload} to server.\\ | 330 | D u & Regenerate Sieve script and {\bf upload} to server.\\ |
| @@ -334,17 +334,17 @@ | |||
| 334 | \newcommand{\ListGroups}{% | 334 | \newcommand{\ListGroups}{% |
| 335 | {\esamepage | 335 | {\esamepage |
| 336 | \begin{keys}{A M} | 336 | \begin{keys}{A M} |
| 337 | A d & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\ | 337 | A d & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\ |
| 338 | A k & (C-c C-l) List all {\bf killed} groups. | 338 | A k & (C-c C-l) List all {\bf killed} groups. |
| 339 | [Prefix: look at active-file from server]\\ | 339 | [Prefix: look at active-file from server]\\ |
| 340 | A l & List all groups on a specific level. | 340 | A l & List all groups on a specific level. |
| 341 | [Prefix: also list groups with no unread articles]\\ | 341 | [Prefix: also list groups with no unread articles]\\ |
| 342 | A a & (C-c C-a) List all groups whose names match a regexp | 342 | A a & (C-c C-a) List all groups whose names match a regexp |
| 343 | ({\bf apropos}).\\ | 343 | ({\bf apropos}).\\ |
| 344 | A A & List the server's active-file.\\ | 344 | A A & List the server's active-file.\\ |
| 345 | A M & List groups that {\bf match} a regexp.\\ | 345 | A M & List groups that {\bf match} a regexp.\\ |
| 346 | A m & List groups that {\bf match} a regexp and have unread articles. | 346 | A m & List groups that {\bf match} a regexp and have unread articles. |
| 347 | [level]\\ | 347 | [level]\\ |
| 348 | A s & (l) List all {\bf subscribed} groups with unread articles. | 348 | A s & (l) List all {\bf subscribed} groups with unread articles. |
| 349 | [level; 5 and lower is the default]\\ | 349 | [level; 5 and lower is the default]\\ |
| 350 | A u & (L) List all groups (including read and {\bf unsubscribed}). | 350 | A u & (L) List all groups (including read and {\bf unsubscribed}). |
| @@ -354,7 +354,7 @@ | |||
| 354 | A ? & List all groups with dormant articles. [level]\\ | 354 | A ? & List all groups with dormant articles. [level]\\ |
| 355 | \end{keys} | 355 | \end{keys} |
| 356 | } | 356 | } |
| 357 | 357 | ||
| 358 | \newcommand{\CreateEditGroups}{% | 358 | \newcommand{\CreateEditGroups}{% |
| 359 | {\esamepage | 359 | {\esamepage |
| 360 | The select methods are indicated in parentheses.\\* | 360 | The select methods are indicated in parentheses.\\* |
| @@ -404,8 +404,8 @@ | |||
| 404 | M m & (\#) Set the process {\bf mark} on this group. [scope]\\ | 404 | M m & (\#) Set the process {\bf mark} on this group. [scope]\\ |
| 405 | M r & Mark all groups matching regular expression.\\ | 405 | M r & Mark all groups matching regular expression.\\ |
| 406 | M u & (M-\#) Remove process mark from this group ({\bf unmark}). | 406 | M u & (M-\#) Remove process mark from this group ({\bf unmark}). |
| 407 | [scope]\\ | 407 | [scope]\\ |
| 408 | M U & Remove the process mark from all groups (\textbf{umark all}).\\ | 408 | M U & Remove the process mark from all groups (\textbf{unmark all}).\\ |
| 409 | M w & Mark all groups in the current region. [prefix: unmark]\\ | 409 | M w & Mark all groups in the current region. [prefix: unmark]\\ |
| 410 | M b & Mark all groups in the {\bf buffer}. [prefix: unmark]\\ | 410 | M b & Mark all groups in the {\bf buffer}. [prefix: unmark]\\ |
| 411 | \end{keys}} | 411 | \end{keys}} |
| @@ -427,7 +427,7 @@ | |||
| 427 | T DEL & Delete an empty topic.\\ | 427 | T DEL & Delete an empty topic.\\ |
| 428 | T \# & Mark all groups in the current topic with the process-mark.\\ | 428 | T \# & Mark all groups in the current topic with the process-mark.\\ |
| 429 | T M-\# & Remove the process-mark from all groups in the current topic.\\ | 429 | T M-\# & Remove the process-mark from all groups in the current topic.\\ |
| 430 | T TAB & (TAB) Indent current topic [Prefix: unindent].\\ | 430 | T TAB & (TAB) Indent current topic [Prefix: unindent].\\ |
| 431 | M-TAB & Unindent the current topic.\\ | 431 | M-TAB & Unindent the current topic.\\ |
| 432 | RET & (SPC) Either unfold topic or enter group [level].\\ | 432 | RET & (SPC) Either unfold topic or enter group [level].\\ |
| 433 | T s & {\bf Show} the current topic. [Prefix: show permanently]\\ | 433 | T s & {\bf Show} the current topic. [Prefix: show permanently]\\ |
| @@ -478,7 +478,7 @@ | |||
| 478 | {\esamepage | 478 | {\esamepage |
| 479 | \begin{keys}{M-RET} | 479 | \begin{keys}{M-RET} |
| 480 | SPC & (A SPC, A n) Select an article, scroll it one page, move to the | 480 | SPC & (A SPC, A n) Select an article, scroll it one page, move to the |
| 481 | next one.\\ | 481 | next one.\\ |
| 482 | DEL & (A DEL, A p, b) Scroll this article one page back. [distance]\\ | 482 | DEL & (A DEL, A p, b) Scroll this article one page back. [distance]\\ |
| 483 | RET & (A RET) Scroll this article one line forward. [distance]\\ | 483 | RET & (A RET) Scroll this article one line forward. [distance]\\ |
| 484 | M-RET & (A M-RET) Scroll this article one line backward. [distance]\\ | 484 | M-RET & (A M-RET) Scroll this article one line backward. [distance]\\ |
| @@ -490,9 +490,9 @@ | |||
| 490 | M-\& & Execute a command on all articles having the process mark.\\ | 490 | M-\& & Execute a command on all articles having the process mark.\\ |
| 491 | % | 491 | % |
| 492 | M-n & (G M-n) Go to {\bf next} summary line of unread article. | 492 | M-n & (G M-n) Go to {\bf next} summary line of unread article. |
| 493 | [distance]\\ | 493 | [distance]\\ |
| 494 | M-p & (G M-p) Go to {\bf previous} summary line of an unread article. | 494 | M-p & (G M-p) Go to {\bf previous} summary line of an unread article. |
| 495 | [distance]\\ | 495 | [distance]\\ |
| 496 | M-s & {\bf Search} through all subsequent articles for a regexp.\\ | 496 | M-s & {\bf Search} through all subsequent articles for a regexp.\\ |
| 497 | M-r & Search through all previous articles for a regexp.\\ | 497 | M-r & Search through all previous articles for a regexp.\\ |
| 498 | % | 498 | % |
| @@ -519,7 +519,7 @@ | |||
| 519 | M-C-d & Like C-d, but open several documents in nndoc-groups, wrapped | 519 | M-C-d & Like C-d, but open several documents in nndoc-groups, wrapped |
| 520 | in an nnvirtual group [p/p]\\ | 520 | in an nnvirtual group [p/p]\\ |
| 521 | % | 521 | % |
| 522 | A g & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\ | 522 | A g & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\ |
| 523 | A r & (\^{}, A \^{}) Fetch the parent(s) of this article. | 523 | A r & (\^{}, A \^{}) Fetch the parent(s) of this article. |
| 524 | [Prefix: if positive fetch \textit{n} ancestors; | 524 | [Prefix: if positive fetch \textit{n} ancestors; |
| 525 | negative: fetch only the \textit{n}th ancestor]\\ | 525 | negative: fetch only the \textit{n}th ancestor]\\ |
| @@ -541,7 +541,7 @@ | |||
| 541 | prefix selects which part to operate on. If the point is placed over a | 541 | prefix selects which part to operate on. If the point is placed over a |
| 542 | MIME button in the article buffer, use the corresponding bindings for the | 542 | MIME button in the article buffer, use the corresponding bindings for the |
| 543 | article buffer instead. | 543 | article buffer instead. |
| 544 | 544 | ||
| 545 | \begin{keys}{W M w} | 545 | \begin{keys}{W M w} |
| 546 | K v & (b, W M b) {\bf View} the MIME-part.\\ | 546 | K v & (b, W M b) {\bf View} the MIME-part.\\ |
| 547 | K o & {\bf Save} the MIME part.\\ | 547 | K o & {\bf Save} the MIME part.\\ |
| @@ -597,7 +597,7 @@ | |||
| 597 | B t & {\bf Trace} the fancy splitting patterns applied to this article.\\ | 597 | B t & {\bf Trace} the fancy splitting patterns applied to this article.\\ |
| 598 | B w & (e) Edit this article.\\ | 598 | B w & (e) Edit this article.\\ |
| 599 | B M-C-e & {\bf Expunge} (delete from disk) all expirable articles in this group | 599 | B M-C-e & {\bf Expunge} (delete from disk) all expirable articles in this group |
| 600 | (!). [p/p]\\ | 600 | (!). [p/p]\\ |
| 601 | K E & {\bf Encrypt} article body. [p/p]\\ | 601 | K E & {\bf Encrypt} article body. [p/p]\\ |
| 602 | \end{keys} | 602 | \end{keys} |
| 603 | } | 603 | } |
| @@ -665,7 +665,7 @@ | |||
| 665 | W 6 & Translate a base64 article.\\ | 665 | W 6 & Translate a base64 article.\\ |
| 666 | W a & Strip certain {\bf headers} from body.\\ | 666 | W a & Strip certain {\bf headers} from body.\\ |
| 667 | W b & Make Message-IDs and URLs in the article mouse-clickable | 667 | W b & Make Message-IDs and URLs in the article mouse-clickable |
| 668 | {\bf buttons}.\\ | 668 | {\bf buttons}.\\ |
| 669 | W c & Translate CRLF-pairs to LF and then remaining CR's to LF's.\\ | 669 | W c & Translate CRLF-pairs to LF and then remaining CR's to LF's.\\ |
| 670 | W d & Treat {\bf dumbquotes}.\\ | 670 | W d & Treat {\bf dumbquotes}.\\ |
| 671 | W e & Treat {\bf emphasized} text.\\ | 671 | W e & Treat {\bf emphasized} text.\\ |
| @@ -698,7 +698,7 @@ | |||
| 698 | } | 698 | } |
| 699 | } | 699 | } |
| 700 | 700 | ||
| 701 | \newcommand{\BlankAndWhitespace}{% | 701 | \newcommand{\BlankAndWhitespace}{% |
| 702 | {\esamepage | 702 | {\esamepage |
| 703 | \begin{keys}{W E w} | 703 | \begin{keys}{W E w} |
| 704 | W E l & Strip blank {\bf lines} from the beginning of the article.\\ | 704 | W E l & Strip blank {\bf lines} from the beginning of the article.\\ |
| @@ -715,7 +715,7 @@ | |||
| 715 | } | 715 | } |
| 716 | } | 716 | } |
| 717 | 717 | ||
| 718 | \newcommand{\Picons}{% | 718 | \newcommand{\Picons}{% |
| 719 | {\esamepage | 719 | {\esamepage |
| 720 | \begin{keys}{W D D} | 720 | \begin{keys}{W D D} |
| 721 | W D s & (W g) Display {\bf smilies}.\\ | 721 | W D s & (W g) Display {\bf smilies}.\\ |
| @@ -729,7 +729,7 @@ | |||
| 729 | } | 729 | } |
| 730 | } | 730 | } |
| 731 | 731 | ||
| 732 | \newcommand{\TimeAndDate}{% | 732 | \newcommand{\TimeAndDate}{% |
| 733 | {\esamepage | 733 | {\esamepage |
| 734 | \begin{keys}{W T u} | 734 | \begin{keys}{W T u} |
| 735 | W T u & (W T z) Display the article timestamp in GMT ({\bf UT, ZULU}).\\ | 735 | W T u & (W T z) Display the article timestamp in GMT ({\bf UT, ZULU}).\\ |
| @@ -739,7 +739,7 @@ | |||
| 739 | W T e & Display the time {\bf elapsed} since it was sent.\\ | 739 | W T e & Display the time {\bf elapsed} since it was sent.\\ |
| 740 | W T o & Display the {\bf original} timestamp.\\ | 740 | W T o & Display the {\bf original} timestamp.\\ |
| 741 | W T p & Display the date in format that's {\bf | 741 | W T p & Display the date in format that's {\bf |
| 742 | pronounceable} in English.\\ | 742 | pronounceable} in English.\\ |
| 743 | \end{keys} | 743 | \end{keys} |
| 744 | } | 744 | } |
| 745 | } | 745 | } |
| @@ -793,26 +793,26 @@ | |||
| 793 | {\esamepage | 793 | {\esamepage |
| 794 | \begin{keys}{M M-C-r} | 794 | \begin{keys}{M M-C-r} |
| 795 | d & (M d, M r) Mark this article as read and move to the next one. | 795 | d & (M d, M r) Mark this article as read and move to the next one. |
| 796 | [scope]\\ | 796 | [scope]\\ |
| 797 | D & Mark this article as read and move to previous one. [scope]\\ | 797 | D & Mark this article as read and move to previous one. [scope]\\ |
| 798 | ! & (u, M !, M t) Tick this article (mark it as interesting) and move | 798 | ! & (u, M !, M t) Tick this article (mark it as interesting) and move |
| 799 | to the next one. [scope]\\ | 799 | to the next one. [scope]\\ |
| 800 | U & Tick this article and move to the previous one. [scope]\\ | 800 | U & Tick this article and move to the previous one. [scope]\\ |
| 801 | M ? & (?) Mark this article as dormant (only followups are | 801 | M ? & (?) Mark this article as dormant (only followups are |
| 802 | interesting). [scope]\\ | 802 | interesting). [scope]\\ |
| 803 | M D & Show all {\bf dormant} articles (normally they are hidden unless they | 803 | M D & Show all {\bf dormant} articles (normally they are hidden unless they |
| 804 | have any followups).\\ | 804 | have any followups).\\ |
| 805 | M M-D & Hide all {\bf dormant} articles.\\ | 805 | M M-D & Hide all {\bf dormant} articles.\\ |
| 806 | C-w & Mark all articles between point and mark as read.\\ | 806 | C-w & Mark all articles between point and mark as read.\\ |
| 807 | M-u & (M SPC, M c) Clear all marks from this article and move to the next | 807 | M-u & (M SPC, M c) Clear all marks from this article and move to the next |
| 808 | one. [scope]\\ | 808 | one. [scope]\\ |
| 809 | M-U & Clear all marks from this article and move to the previous one. | 809 | M-U & Clear all marks from this article and move to the previous one. |
| 810 | [scope]\\ | 810 | [scope]\\ |
| 811 | % | 811 | % |
| 812 | M e & (E, M x) Mark this article as {\bf expirable}. [scope]\\ | 812 | M e & (E, M x) Mark this article as {\bf expirable}. [scope]\\ |
| 813 | % | 813 | % |
| 814 | M k & (k) {\bf Kill} all articles with same subject, select | 814 | M k & (k) {\bf Kill} all articles with same subject, select |
| 815 | next unread one.\\ | 815 | next unread one.\\ |
| 816 | M K & (C-k) {\bf Kill} all articles with the same subject as this one.\\ | 816 | M K & (C-k) {\bf Kill} all articles with the same subject as this one.\\ |
| 817 | % | 817 | % |
| 818 | M C & {\bf Catch-up} the articles that are not ticked and not dormant.\\ | 818 | M C & {\bf Catch-up} the articles that are not ticked and not dormant.\\ |
| @@ -842,7 +842,7 @@ | |||
| 842 | } | 842 | } |
| 843 | 843 | ||
| 844 | \newcommand{\ProcessMark}{% | 844 | \newcommand{\ProcessMark}{% |
| 845 | {\esamepage | 845 | {\esamepage |
| 846 | These commands set and remove the process mark (\#). You only need to use | 846 | These commands set and remove the process mark (\#). You only need to use |
| 847 | it if the set of articles you want to operate on is non-contiguous. Else | 847 | it if the set of articles you want to operate on is non-contiguous. Else |
| 848 | use a numeric prefix.\\* | 848 | use a numeric prefix.\\* |
| @@ -929,7 +929,7 @@ | |||
| 929 | %After | 929 | %After |
| 930 | %editing the article, send it by pressing C-c C-c. If you are in a | 930 | %editing the article, send it by pressing C-c C-c. If you are in a |
| 931 | %foreign group and want to post the article using the foreign server, give | 931 | %foreign group and want to post the article using the foreign server, give |
| 932 | %a prefix to C-c C-c.\\* | 932 | %a prefix to C-c C-c.\\* |
| 933 | \begin{keys}{S O m} | 933 | \begin{keys}{S O m} |
| 934 | S p & (a) {\bf Post} an article to this group.\\ | 934 | S p & (a) {\bf Post} an article to this group.\\ |
| 935 | S f & (f) Post a {\bf followup} to this article.\\ | 935 | S f & (f) Post a {\bf followup} to this article.\\ |
| @@ -965,7 +965,7 @@ | |||
| 965 | % | 965 | % |
| 966 | S O m & Digest these series and forward by {\bf mail}. [p/p]\\ | 966 | S O m & Digest these series and forward by {\bf mail}. [p/p]\\ |
| 967 | S O p & Digest these series and forward as a {\bf post} to a newsgroup. | 967 | S O p & Digest these series and forward as a {\bf post} to a newsgroup. |
| 968 | [p/p]\\ | 968 | [p/p]\\ |
| 969 | % | 969 | % |
| 970 | S u & {\bf Uuencode} a file and post it as a series.\\ | 970 | S u & {\bf Uuencode} a file and post it as a series.\\ |
| 971 | \end{keys} | 971 | \end{keys} |
| @@ -1036,8 +1036,8 @@ | |||
| 1036 | \quad \B{l}ifetime: t)emporary, p)ermanent, i)mmediate. | 1036 | \quad \B{l}ifetime: t)emporary, p)ermanent, i)mmediate. |
| 1037 | 1037 | ||
| 1038 | If you type the second letter in uppercase, the remaining two are assumed | 1038 | If you type the second letter in uppercase, the remaining two are assumed |
| 1039 | to be s)ubstring and t)emporary. | 1039 | to be s)ubstring and t)emporary. |
| 1040 | If you type the third letter in uppercase, the last one is assumed to be | 1040 | If you type the third letter in uppercase, the last one is assumed to be |
| 1041 | t)emporary. | 1041 | t)emporary. |
| 1042 | 1042 | ||
| 1043 | \quad Extra keys for manual editing of a score file:\\* | 1043 | \quad Extra keys for manual editing of a score file:\\* |
| @@ -1057,7 +1057,7 @@ | |||
| 1057 | archives, they are expanded and gathered in a new group.\\* | 1057 | archives, they are expanded and gathered in a new group.\\* |
| 1058 | \begin{keys}{X p} | 1058 | \begin{keys}{X p} |
| 1059 | X b & Un-{\bf binhex} these series. [p/p]\\ | 1059 | X b & Un-{\bf binhex} these series. [p/p]\\ |
| 1060 | X o & Simply {\bf output} these series (no decoding). [p/p]\\ | 1060 | X o & Simply {\bf output} these series (no decoding). [p/p]\\ |
| 1061 | X p & Unpack these {\bf postscript} series. [p/p]\\ | 1061 | X p & Unpack these {\bf postscript} series. [p/p]\\ |
| 1062 | X s & Un-{\bf shar} these series. [p/p]\\ | 1062 | X s & Un-{\bf shar} these series. [p/p]\\ |
| 1063 | X u & {\bf Uudecode} these series. [p/p]\\ | 1063 | X u & {\bf Uudecode} these series. [p/p]\\ |
| @@ -1259,7 +1259,7 @@ | |||
| 1259 | } | 1259 | } |
| 1260 | } | 1260 | } |
| 1261 | 1261 | ||
| 1262 | % end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % | 1262 | % end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % |
| 1263 | 1263 | ||
| 1264 | 1264 | ||
| 1265 | % o some things might not be updated: scoring and server modes, maybe more | 1265 | % o some things might not be updated: scoring and server modes, maybe more |
| @@ -1333,7 +1333,7 @@ | |||
| 1333 | \SortSummary | 1333 | \SortSummary |
| 1334 | \subsection*{Score (Value) Commands} | 1334 | \subsection*{Score (Value) Commands} |
| 1335 | \Scoring | 1335 | \Scoring |
| 1336 | 1336 | ||
| 1337 | \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 1337 | \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 1338 | \subsection*{Output Articles} | 1338 | \subsection*{Output Articles} |
| 1339 | \OutputArticles | 1339 | \OutputArticles |
| @@ -1343,7 +1343,7 @@ | |||
| 1343 | 1343 | ||
| 1344 | \subsection*{MIME operations from the Summary-Buffer} | 1344 | \subsection*{MIME operations from the Summary-Buffer} |
| 1345 | \MIMESummary | 1345 | \MIMESummary |
| 1346 | 1346 | ||
| 1347 | \ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 1347 | \ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 1348 | \subsection*{Extract Series (Uudecode etc)} | 1348 | \subsection*{Extract Series (Uudecode etc)} |
| 1349 | \ExtractSeries | 1349 | \ExtractSeries |
| @@ -1354,7 +1354,7 @@ | |||
| 1354 | % | 1354 | % |
| 1355 | \subsection*{Post, Followup, Reply, Forward, Cancel} | 1355 | \subsection*{Post, Followup, Reply, Forward, Cancel} |
| 1356 | \PostReplyetc | 1356 | \PostReplyetc |
| 1357 | 1357 | ||
| 1358 | \ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard | 1358 | \ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard |
| 1359 | 1359 | ||
| 1360 | \subsection*{Message Composition} | 1360 | \subsection*{Message Composition} |
diff --git a/etc/themes/deeper-blue-theme.el b/etc/themes/deeper-blue-theme.el index 0fbd9496969..1a4ca82f438 100644 --- a/etc/themes/deeper-blue-theme.el +++ b/etc/themes/deeper-blue-theme.el | |||
| @@ -22,7 +22,7 @@ | |||
| 22 | ;;; Code: | 22 | ;;; Code: |
| 23 | 23 | ||
| 24 | (deftheme deeper-blue | 24 | (deftheme deeper-blue |
| 25 | "Face colors using a deep blue backgound.") | 25 | "Face colors using a deep blue background.") |
| 26 | 26 | ||
| 27 | (let ((class '((class color) (min-colors 89)))) | 27 | (let ((class '((class color) (min-colors 89)))) |
| 28 | (custom-theme-set-faces | 28 | (custom-theme-set-faces |
diff --git a/etc/themes/light-blue-theme.el b/etc/themes/light-blue-theme.el index 98c74b268af..cf6ae543575 100644 --- a/etc/themes/light-blue-theme.el +++ b/etc/themes/light-blue-theme.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | ;;; Code: | 26 | ;;; Code: |
| 27 | 27 | ||
| 28 | (deftheme light-blue | 28 | (deftheme light-blue |
| 29 | "Face colors utilizing a light blue backgound.") | 29 | "Face colors utilizing a light blue background.") |
| 30 | 30 | ||
| 31 | (let ((class '((class color) (min-colors 89)))) | 31 | (let ((class '((class color) (min-colors 89)))) |
| 32 | (custom-theme-set-faces | 32 | (custom-theme-set-faces |
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el index eb5a0a00ade..b1ee78a393e 100644 --- a/leim/quail/cyrillic.el +++ b/leim/quail/cyrillic.el | |||
| @@ -27,7 +27,7 @@ | |||
| 27 | ;;; Commentary: | 27 | ;;; Commentary: |
| 28 | 28 | ||
| 29 | ;; These methods use a mixture of 8859-5 and Unicode. Quail, used | 29 | ;; These methods use a mixture of 8859-5 and Unicode. Quail, used |
| 30 | ;; with ucs-tables provides suport for translating on the fly to | 30 | ;; with ucs-tables provides support for translating on the fly to |
| 31 | ;; what's appropriate for aa buffer's file coding system, so the | 31 | ;; what's appropriate for aa buffer's file coding system, so the |
| 32 | ;; encoding shouldn't matter too much provided it supports the | 32 | ;; encoding shouldn't matter too much provided it supports the |
| 33 | ;; necessary characters. | 33 | ;; necessary characters. |
diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el index 210aeea7e62..7e108a71a60 100644 --- a/leim/quail/ethiopic.el +++ b/leim/quail/ethiopic.el | |||
| @@ -53,7 +53,7 @@ C-F9 or `M-x ethio-toggle-space' | |||
| 53 | punctuation followed by zero or more ASCII spaces'. | 53 | punctuation followed by zero or more ASCII spaces'. |
| 54 | 54 | ||
| 55 | S-F5 or `M-x ethio-toggle-punctuation' | 55 | S-F5 or `M-x ethio-toggle-punctuation' |
| 56 | Toggles ASCII punctuations and Ethiopic punctuations for keyboard input. | 56 | Toggles ASCII punctuation and Ethiopic punctuation for keyboard input. |
| 57 | The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic). | 57 | The current mode is indicated by `.' (ASCII) or `$(3$i(B' (Ethiopic). |
| 58 | 58 | ||
| 59 | S-SPC or `M-x ethio-insert-ethio-space' | 59 | S-SPC or `M-x ethio-insert-ethio-space' |
diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el index 86919128011..947f54c76fa 100644 --- a/leim/quail/py-punct.el +++ b/leim/quail/py-punct.el | |||
| @@ -8,7 +8,7 @@ | |||
| 8 | 8 | ||
| 9 | ;; Author: Ken'ichi HANDA <handa@etl.go.jp> | 9 | ;; Author: Ken'ichi HANDA <handa@etl.go.jp> |
| 10 | 10 | ||
| 11 | ;; Keywords: multilingual, input method, Chienese | 11 | ;; Keywords: multilingual, input method, Chinese |
| 12 | 12 | ||
| 13 | ;; This file is part of GNU Emacs. | 13 | ;; This file is part of GNU Emacs. |
| 14 | 14 | ||
diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el index cc1f4f535e6..37c12659cc3 100644 --- a/leim/quail/pypunct-b5.el +++ b/leim/quail/pypunct-b5.el | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | 7 | ||
| 8 | ;; Author: Ken'ichi HANDA <handa@etl.go.jp> | 8 | ;; Author: Ken'ichi HANDA <handa@etl.go.jp> |
| 9 | 9 | ||
| 10 | ;; Keywords: multilingual, input method, Chienese | 10 | ;; Keywords: multilingual, input method, Chinese |
| 11 | 11 | ||
| 12 | ;; This file is part of GNU Emacs. | 12 | ;; This file is part of GNU Emacs. |
| 13 | 13 | ||
diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el index c5c7061663e..ba47155524f 100644 --- a/leim/quail/tibetan.el +++ b/leim/quail/tibetan.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;; Created: Feb. 17. 1997 | 28 | ;; Created: Feb. 17. 1997 |
| 29 | 29 | ||
| 30 | ;; History: | 30 | ;; History: |
| 31 | ;; 1997.03.13 Support for inputting special signs and punctuations added. | 31 | ;; 1997.03.13 Support for inputting special signs and punctuation added. |
| 32 | ;; (Only Ext. Wylie input) | 32 | ;; (Only Ext. Wylie input) |
| 33 | 33 | ||
| 34 | ;;; Commentary: | 34 | ;;; Commentary: |
| @@ -56,7 +56,7 @@ | |||
| 56 | (if (string-match "^-[dy]" quail-current-key) | 56 | (if (string-match "^-[dy]" quail-current-key) |
| 57 | (setq quail-current-key (substring quail-current-key 1))) | 57 | (setq quail-current-key (substring quail-current-key 1))) |
| 58 | (let ((str (tibetan-transcription-to-tibetan quail-current-key))) | 58 | (let ((str (tibetan-transcription-to-tibetan quail-current-key))) |
| 59 | ;; If quail-current-key is for punctuations, it can't be | 59 | ;; If quail-current-key is for punctuation, it can't be |
| 60 | ;; transcribed by tibetan-transcription-to-tibetan, thus STR | 60 | ;; transcribed by tibetan-transcription-to-tibetan, thus STR |
| 61 | ;; contains ASCII string now. In that case, use the current | 61 | ;; contains ASCII string now. In that case, use the current |
| 62 | ;; characters set in quail-current-str. | 62 | ;; characters set in quail-current-str. |
| @@ -80,7 +80,7 @@ | |||
| 80 | '(("-d" . "$(7"2(B") | 80 | '(("-d" . "$(7"2(B") |
| 81 | ("-y" . "$(7"B(B"))) | 81 | ("-y" . "$(7"B(B"))) |
| 82 | 82 | ||
| 83 | ;; Punctuations are not transcribed. | 83 | ;; Punctuation characters are not transcribed. |
| 84 | 84 | ||
| 85 | (defconst tibetan-wylie-punctuation-alist | 85 | (defconst tibetan-wylie-punctuation-alist |
| 86 | '(("." . " ") | 86 | '(("." . " ") |
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 983754eb1c3..1eb67eb6c71 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog | |||
| @@ -1,3 +1,19 @@ | |||
| 1 | 2011-11-30 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * emacsclient.c (main): Condition last change on WINDOWSNT | ||
| 4 | (Bug#10155). | ||
| 5 | |||
| 6 | 2011-11-27 Eli Zaretskii <eliz@gnu.org> | ||
| 7 | |||
| 8 | * makefile.w32-in (LOCAL_FLAGS): Add $(EMACS_EXTRA_C_FLAGS). | ||
| 9 | |||
| 10 | * emacsclient.c (main) <environ>: Remove declaration, already | ||
| 11 | pulled in by unistd.h on Posix hosts and stdlib.h on MS-Windows. | ||
| 12 | |||
| 13 | 2011-11-24 Glenn Morris <rgm@gnu.org> | ||
| 14 | |||
| 15 | * make-docfile.c (scan_lisp_file): Treat defcustom like defvar. | ||
| 16 | |||
| 1 | 2011-11-14 Dan Nicolaescu <dann@ics.uci.edu> | 17 | 2011-11-14 Dan Nicolaescu <dann@ics.uci.edu> |
| 2 | 18 | ||
| 3 | * Makefile.in (all): Make sure "all" is the first target. | 19 | * Makefile.in (all): Make sure "all" is the first target. |
| @@ -4267,7 +4283,7 @@ | |||
| 4267 | 4283 | ||
| 4268 | 1998-12-08 Geoff Voelker <voelker@cs.washington.edu> | 4284 | 1998-12-08 Geoff Voelker <voelker@cs.washington.edu> |
| 4269 | 4285 | ||
| 4270 | * makefile.nt: Do string comparision of _NMAKE_VER. | 4286 | * makefile.nt: Do string comparison of _NMAKE_VER. |
| 4271 | 4287 | ||
| 4272 | 1998-11-03 Theodore Jump <tjump@cais.com> | 4288 | 1998-11-03 Theodore Jump <tjump@cais.com> |
| 4273 | 4289 | ||
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c index 56e17c100be..0ae1f0bddea 100644 --- a/lib-src/emacsclient.c +++ b/lib-src/emacsclient.c | |||
| @@ -1635,7 +1635,11 @@ main (int argc, char **argv) | |||
| 1635 | /* Send over our environment and current directory. */ | 1635 | /* Send over our environment and current directory. */ |
| 1636 | if (!current_frame) | 1636 | if (!current_frame) |
| 1637 | { | 1637 | { |
| 1638 | #ifndef WINDOWSNT | ||
| 1639 | /* This is defined in stdlib.h on MS-Windows. It's defined in | ||
| 1640 | unistd.h on some POSIX hosts, but not all (Bug#10155). */ | ||
| 1638 | extern char **environ; | 1641 | extern char **environ; |
| 1642 | #endif | ||
| 1639 | int i; | 1643 | int i; |
| 1640 | for (i = 0; environ[i]; i++) | 1644 | for (i = 0; environ[i]; i++) |
| 1641 | { | 1645 | { |
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index ba54202954b..1ec365f3446 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c | |||
| @@ -1149,8 +1149,10 @@ scan_lisp_file (const char *filename, const char *mode) | |||
| 1149 | } | 1149 | } |
| 1150 | } | 1150 | } |
| 1151 | 1151 | ||
| 1152 | /* defcustom can only occur in uncompiled Lisp files. */ | ||
| 1152 | else if (! strcmp (buffer, "defvar") | 1153 | else if (! strcmp (buffer, "defvar") |
| 1153 | || ! strcmp (buffer, "defconst")) | 1154 | || ! strcmp (buffer, "defconst") |
| 1155 | || ! strcmp (buffer, "defcustom")) | ||
| 1154 | { | 1156 | { |
| 1155 | char c1 = 0, c2 = 0; | 1157 | char c1 = 0, c2 = 0; |
| 1156 | type = 'V'; | 1158 | type = 'V'; |
diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in index 28f913a4df6..be7f4d0b6db 100644 --- a/lib-src/makefile.w32-in +++ b/lib-src/makefile.w32-in | |||
| @@ -23,7 +23,7 @@ ALL = make-docfile hexl ctags etags movemail ebrowse emacsclient | |||
| 23 | 23 | ||
| 24 | LOCAL_FLAGS = -DWINDOWSNT -DDOS_NT -DNO_LDAV=1 \ | 24 | LOCAL_FLAGS = -DWINDOWSNT -DDOS_NT -DNO_LDAV=1 \ |
| 25 | -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../lib \ | 25 | -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../lib \ |
| 26 | -I../nt/inc -I../src | 26 | -I../nt/inc -I../src $(EMACS_EXTRA_C_FLAGS) |
| 27 | 27 | ||
| 28 | LIBS = $(BASE_LIBS) $(ADVAPI32) | 28 | LIBS = $(BASE_LIBS) $(ADVAPI32) |
| 29 | 29 | ||
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37ecd3e6852..c77ace6d483 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,381 @@ | |||
| 1 | 2011-12-03 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * textmodes/texinfmt.el (batch-texinfo-format): Doc fix. (Bug#10207) | ||
| 4 | |||
| 5 | 2011-12-03 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 6 | |||
| 7 | * electric.el: Streamline electric-indent's hook. | ||
| 8 | (electric-indent-chars): Revert to simple list. | ||
| 9 | (electric-indent-functions): New var. | ||
| 10 | (electric-indent-post-self-insert-function): Use it. | ||
| 11 | |||
| 12 | * progmodes/prolog.el (prolog-find-value-by-system): Avoid error when | ||
| 13 | there's no inferior buffer (bug#10196). | ||
| 14 | (prolog-consult-compile): Don't use toggle-read-only. | ||
| 15 | |||
| 16 | 2011-12-02 Michael Albinus <michael.albinus@gmx.de> | ||
| 17 | |||
| 18 | * net/tramp-sh.el (tramp-maybe-open-connection): Handle user | ||
| 19 | interrupt. (Bug#10187) | ||
| 20 | |||
| 21 | 2011-12-02 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 22 | |||
| 23 | * pcmpl-gnu.el (pcomplete/tar): large-file-warn-threshold can be nil | ||
| 24 | (bug#9160). | ||
| 25 | |||
| 26 | * dired-aux.el (dired-query): Don't assume help-char is modifier-free | ||
| 27 | (bug#10191). | ||
| 28 | |||
| 29 | 2011-12-02 Juri Linkov <juri@jurta.org> | ||
| 30 | |||
| 31 | * info.el (Info-search): Display "end of manual" when Isearch | ||
| 32 | reaches the end of single-file Info manual. (Bug#9918) | ||
| 33 | |||
| 34 | 2011-12-02 Eli Zaretskii <eliz@gnu.org> | ||
| 35 | |||
| 36 | * isearch.el (isearch-message-prefix): Run the input method part | ||
| 37 | of the prompt through bidi-string-mark-left-to-right. (Bug#10183) | ||
| 38 | |||
| 39 | 2011-12-02 Juri Linkov <juri@jurta.org> | ||
| 40 | |||
| 41 | * isearch.el (isearch-occur): Use `word-search-regexp' for | ||
| 42 | `isearch-word'. | ||
| 43 | (isearch-search-and-update): Add condition for `isearch-word' and | ||
| 44 | call `word-search-regexp'. (Bug#10145) | ||
| 45 | |||
| 46 | 2011-12-01 Glenn Morris <rgm@gnu.org> | ||
| 47 | |||
| 48 | * eshell/em-hist.el (eshell-hist-initialize): | ||
| 49 | Handle eshell-history-size nil and HISTSIZE set or unset. | ||
| 50 | (eshell-history-file-name, eshell-history-size): Fix custom type. | ||
| 51 | |||
| 52 | 2011-12-01 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 53 | |||
| 54 | * man.el (Man-completion-table): Fix the lambda case (bug#10168). | ||
| 55 | |||
| 56 | 2011-12-01 Michael McNamara <mac@mail.brushroad.com> | ||
| 57 | |||
| 58 | * progmodes/verilog-mode.el (verilog-pretty-expr): | ||
| 59 | Rework verilog-pretty-expr to handle new assignment operators in system | ||
| 60 | verilog, such as += *= and the like. | ||
| 61 | (verilog-assignment-operator-re): Regular expression to find the | ||
| 62 | assigment operator in a verilog assignment. | ||
| 63 | (verilog-assignment-operation-re): Regular expression to find an | ||
| 64 | assignment statement for pretty-expr. | ||
| 65 | (verilog-in-attribute-p): Query returns true if point is in an | ||
| 66 | attribute context; used to skip these for expression line up from | ||
| 67 | pretty-expr. | ||
| 68 | (verilog-in-parameter-p): Query returns true if point is in an | ||
| 69 | parameter definition context; used to skip these for expression | ||
| 70 | line up from pretty-expr. | ||
| 71 | (verilog-in-parenthesis-p): Query returns true if point is in a | ||
| 72 | parenthetical expression, specifically ( ) but not [ ] or { }; | ||
| 73 | used by pretty-expr. | ||
| 74 | (verilog-just-one-space): If there is no space, don't add one. | ||
| 75 | (verilog-get-lineup-indent-2): Specifically skip just attribute | ||
| 76 | contexts for expression lineup, rather than skipping all | ||
| 77 | parenthetical expressions. | ||
| 78 | (verilog-calculate-indent): Fix comment, and fix indent. | ||
| 79 | (verilog-do-indent): Indent declarations in lists (suggested by | ||
| 80 | Joachim Lechner). | ||
| 81 | (verilog-mode-abbrev-table): Populate abbrev mode with the various | ||
| 82 | skeleton items. | ||
| 83 | (verilog-sk-ovm-class): Add skeleton for OVM classes (reported | ||
| 84 | by Alain Mellan). | ||
| 85 | |||
| 86 | 2011-12-01 Wilson Snyder <wsnyder@wsnyder.org> | ||
| 87 | |||
| 88 | * progmodes/verilog-mode.el (verilog-read-defines): Fix reading | ||
| 89 | parameters with embedded comments. Reported by Ray Stevens. | ||
| 90 | (verilog-calc-1, verilog-fork-wait-re) (verilog-forward-sexp, | ||
| 91 | verilog-wait-fork-re): Fix indentation of "wait fork", bug407. | ||
| 92 | Reported by Tim Holt. | ||
| 93 | (verilog-auto): Fix AUTOing a upper module then AUTOing module | ||
| 94 | instantiated by upper module causing wrong expansion until AUTOed a | ||
| 95 | second time. Reported by K C Buckenmaier. | ||
| 96 | (verilog-diff-auto): Fix showing .* as a difference when | ||
| 97 | `verilog-auto-star-save' off. Reported by Dan Dever. | ||
| 98 | (verilog-auto-reset, verilog-read-always-signals) | ||
| 99 | (verilog-auto-reset-blocking-in-non): Fix AUTORESET including | ||
| 100 | temporary signals in reset list if | ||
| 101 | verilog-auto-reset-blocking-in-non is nil, and match assignment | ||
| 102 | style to each signal's assignment type, bug381. | ||
| 103 | Reported by Thomas Esposito. | ||
| 104 | (verilog-sk-uvm-class, verilog-uvm-begin-re, verilog-uvm-end-re) | ||
| 105 | (verilog-uvm-statement-re): Support UVM indentation and | ||
| 106 | highlighting, with old OVM keywords only. | ||
| 107 | (verilog-auto-tieoff, verilog-auto-tieoff-declaration): | ||
| 108 | Support AUTOTIEOFF creating non-wire data types. Suggested by Jonathan | ||
| 109 | Greenlaw. | ||
| 110 | (verilog-auto-insert-lisp, verilog-delete-to-paren) | ||
| 111 | (verilog-forward-sexp-cmt, verilog-forward-sexp-ign-cmt) | ||
| 112 | (verilog-inject-sense, verilog-read-inst-pins) | ||
| 113 | (verilog-read-sub-decls, verilog-read-sub-decls-line): | ||
| 114 | Fix mismatching parenthesis inside commented out code when deleting | ||
| 115 | AUTOINST, bug383. Reported by Jonathan Greenlaw. | ||
| 116 | (verilog-auto-ascii-enum): Fix AUTOASCIIENUM one-hot with | ||
| 117 | non-numeric vector width. Reported by Alex Reed. | ||
| 118 | (verilog-auto-ascii-enum): Add "onehot" option to work around not | ||
| 119 | detecting signals with parameter widths. Reported by Alex Reed. | ||
| 120 | (verilog-auto-delete-trailing-whitespace): | ||
| 121 | With `verilog-auto-delete-trailing-whitespace' remove trailing | ||
| 122 | whitespace in auto expansion, bug371. Reported by Brad Dobbie. | ||
| 123 | (verilog-run-hooks, verilog-scan-cache-flush, verilog-syntax-ppss): | ||
| 124 | Fix verilog-scan-cache corruption when running user AUTO expansion | ||
| 125 | hooks that call indentation routines. | ||
| 126 | (verilog-simplify-range-expression): Fix typo ignoring lower case | ||
| 127 | identifiers. | ||
| 128 | (verilog-delete-auto): Fix delete-autos to also remove user created | ||
| 129 | automatics, as long as they start with AUTO. | ||
| 130 | (verilog-batch-diff-auto, verilog-diff-auto) | ||
| 131 | (verilog-diff-function): Add `verilog-diff-auto' and bind to | ||
| 132 | "C-c?" to report differences in AUTO expansion, ignoring spaces. | ||
| 133 | (verilog-backward-syntactic-ws-quick, verilog-beg-of-defun-quick) | ||
| 134 | (verilog-in-paren-quick, verilog-re-search-backward-quick) | ||
| 135 | (verilog-re-search-forward-quick, verilog-syntax-ppss): | ||
| 136 | Fix calling `syntax-ppss' when inside auto expansions as the ppss hook | ||
| 137 | is disabled and its cache will get corrupt, causing AUTOS not to | ||
| 138 | expand. Instead use only -quick functions. | ||
| 139 | (verilog-scan-region): Fix scanning over escaped quotes. | ||
| 140 | (verilog-inside-comment-or-string-p, verilog-inside-comment-p) | ||
| 141 | (verilog-re-search-backward-quick) | ||
| 142 | (verilog-re-search-forward-quick, verilog-scan): verilog-scan and | ||
| 143 | related functions now ignore strings, to fix misparsing of strings | ||
| 144 | with magic comments embedded in them. | ||
| 145 | (verilog-read-auto-template): | ||
| 146 | Fix 'verilog-auto-inst-template-numbers' with extra newline before (. | ||
| 147 | Reported by Brad Dobbie. | ||
| 148 | (verilog-read-auto-template): | ||
| 149 | Fix 'verilog-auto-inst-template-numbers' with comments. | ||
| 150 | Reported by Brad Dobbie. | ||
| 151 | (verilog-auto-inst, verilog-auto-inst-param) | ||
| 152 | (verilog-auto-inst-sort): Add 'verilog-auto-inst-sort' to reduce | ||
| 153 | merge conflicts with AUTOINST, bug358. Reported by Brad Dobbie. | ||
| 154 | (verilog-auto-inst-template-numbers): Add 'lhs' policy for | ||
| 155 | debugging templates without merge conflicts, bug357. | ||
| 156 | Reported by Brad Dobbie. | ||
| 157 | (verilog-read-auto-template): | ||
| 158 | Fix verilog-auto-inst-template-numbers with multiple templates. | ||
| 159 | Reported by Brad Dobbie. | ||
| 160 | (verilog-define-abbrev): Fix verilog-mode abbrevs to be system | ||
| 161 | abbrevs so user won't be asked to save. | ||
| 162 | (verilog-read-auto-lisp-present): Fix to start at beginning of | ||
| 163 | buffer in case called outside of verilog-auto. | ||
| 164 | (verilog-simplify-range-expression): Fix AUTOWIRE expanding "X-1+1" | ||
| 165 | to "X-2". Reported by Matthew Myers. | ||
| 166 | (verilog-auto, verilog-auto-inout-in): Add AUTOINOUTIN for creating | ||
| 167 | all inputs from module templates. Reported by Leith Johnson. | ||
| 168 | (verilog-module-inside-filename-p): Fix locating programs as with | ||
| 169 | modules. | ||
| 170 | (verilog-auto-inst-port): Fix vl-width expressions when using | ||
| 171 | verilog-auto-inst-param-value, bug331. Reported by Julian Gorfajn. | ||
| 172 | (verilog-decls-get-regs, verilog-decls-get-signals, | ||
| 173 | verilog-decls-get-vars, verilog-decls-get-wires, verilog-decls-new, | ||
| 174 | verilog-modi-cache-add-vars, verilog-modi-cache-add-wires, | ||
| 175 | verilog-read-decls): Combine reg and wire structures into one var | ||
| 176 | structure to represent SystemVerilog concepts. | ||
| 177 | (verilog-auto-ascii-enum, verilog-auto-logic, verilog-auto-reg) | ||
| 178 | (verilog-auto-reg-input, verilog-auto-tieoff, verilog-auto-wire) | ||
| 179 | (verilog-auto-wire-type, verilog-insert-definition): | ||
| 180 | Add verilog-auto-wire-type and AUTOLOGIC to support using | ||
| 181 | SystemVerilog "logic" keyword instead of "wire"/"reg". | ||
| 182 | (verilog-auto-reg-input, verilog-decls-get-signals): Fix AUTOWIRE | ||
| 183 | to declares outputs that also have assignments (presumably in an | ||
| 184 | ifdef or generate if so there's not a driver conflict). | ||
| 185 | Reported by Matthew Myers. | ||
| 186 | (verilog-auto-declare-nettype, verilog-insert-definition): | ||
| 187 | Add verilog-auto-declare-nettype to fix declarations using | ||
| 188 | `default_nettype none. Reported by Julian Gorfajn. | ||
| 189 | (verilog-read-always-signals-recurse, verilog-read-decls) | ||
| 190 | (verilog-read-sub-decls-gate): Fix infinite loop with (*) and | ||
| 191 | malformed end statement, bug325. Reported by Joshua Wise and | ||
| 192 | Andrew Drake. | ||
| 193 | (verilog-auto-star-safe, verilog-delete-auto-star-implicit) | ||
| 194 | (verilog-inst-comment-re): Fix not deleting Interfaced comment | ||
| 195 | when expanding .* in interfaces, bug320. Reported by Pierre-David | ||
| 196 | Pfister. | ||
| 197 | (verilog-read-module-name): Fix import statements between module | ||
| 198 | name and open parenthesis, bug317. Reported by Pierre-David | ||
| 199 | Pfister. | ||
| 200 | (verilog-simplify-range-expression): Fix simplification of | ||
| 201 | multiplications inside AUTOWIRE connections, bug303. | ||
| 202 | (verilog-auto-inst-port): Support parameter expansion in | ||
| 203 | multidimensional arrays. | ||
| 204 | (verilog-read-decls): Fix AUTOREG etc looking for "endproperty" | ||
| 205 | after "assert property". Reported by Julian Gorfajn. | ||
| 206 | (verilog-simplify-range-expression): Fix "couldn't merge" errors | ||
| 207 | with multiplication, bug303. | ||
| 208 | (verilog-read-decls): Fix parsing of unsigned data types, bug302. | ||
| 209 | Reported by Jan Frode Lonnum. | ||
| 210 | |||
| 211 | 2011-11-30 Juanma Barranquero <lekktu@gmail.com> | ||
| 212 | |||
| 213 | * htmlfontify.el (hfy-page-header, hfy-post-html-hooks) | ||
| 214 | (hfy-shell-file-name, hfy-shell): | ||
| 215 | * international/fontset.el (x-decompose-font-name): Fix typos. | ||
| 216 | |||
| 217 | 2011-11-29 Ken Brown <kbrown@cornell.edu> | ||
| 218 | |||
| 219 | * progmodes/gdb-mi.el: Fix bug#9853, bug#9858, and bug#9878. | ||
| 220 | (gdb-version): Remove defvar. | ||
| 221 | (gdb-supports-non-stop): New defvar, replacing `gdb-version'. | ||
| 222 | (gdb-gud-context-command, gdb-non-stop-handler) | ||
| 223 | (gdb-current-context-command, gdb-stopped): Use it. | ||
| 224 | (gdb-init-1): Enable pretty printing here. | ||
| 225 | (gdb-non-stop-handler): Don't enable pretty-printing here. | ||
| 226 | Check to see if the target supports non-stop mode; if not, turn off | ||
| 227 | non-stop mode. Use the following. | ||
| 228 | (gdb-check-target-async): New defun. | ||
| 229 | (gud-watch, gdb-stopped): Fix whitespace. | ||
| 230 | (gdb-get-source-file): Don't try to display the source file if | ||
| 231 | `gdb-main-file' is nil. | ||
| 232 | |||
| 233 | 2011-11-29 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 234 | |||
| 235 | * align.el: Try to generate fewer markers (bug#10047). | ||
| 236 | (align--set-marker): New macro. | ||
| 237 | (align-region): Use it. | ||
| 238 | |||
| 239 | 2011-11-29 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 240 | |||
| 241 | * isearch.el (isearch-yank-x-selection): Deactivate mark (bug#10022). | ||
| 242 | |||
| 243 | 2011-11-29 Chong Yidong <cyd@gnu.org> | ||
| 244 | |||
| 245 | * indent.el (indent-for-tab-command, indent-according-to-mode): | ||
| 246 | Doc fix. | ||
| 247 | (indent-region): Doc fix. Switch nested ifs to equivalent cond. | ||
| 248 | |||
| 249 | 2011-11-29 Michael Albinus <michael.albinus@gmx.de> | ||
| 250 | |||
| 251 | * vc/diff-mode.el (diff-find-file-name): Make `read-file-name' | ||
| 252 | aware of remote file names. (Bug#10124) | ||
| 253 | |||
| 254 | 2011-11-29 Chong Yidong <cyd@gnu.org> | ||
| 255 | |||
| 256 | * frame.el (auto-raise-mode, auto-lower-mode): Doc fix. | ||
| 257 | |||
| 258 | 2011-11-28 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 259 | |||
| 260 | * files.el (find-file): Don't use force-same-window (bug#10144). | ||
| 261 | * window.el (switch-to-buffer): Better match Emacs-23 behavior and only | ||
| 262 | use pop-to-buffer if the selected window can't be used. | ||
| 263 | (pop-to-buffer-same-window): Use display-buffer--same-window-action. | ||
| 264 | |||
| 265 | 2011-11-28 Eli Zaretskii <eliz@gnu.org> | ||
| 266 | |||
| 267 | * vc/diff-mode.el (diff-mode-map): Don't inherit 'z' => 'M-z' from | ||
| 268 | special-mode-map. | ||
| 269 | |||
| 270 | 2011-11-28 Chong Yidong <cyd@gnu.org> | ||
| 271 | |||
| 272 | * emacs-lisp/easy-mmode.el (define-minor-mode): Fix default doc. | ||
| 273 | |||
| 274 | 2011-11-27 Nick Roberts <nickrob@snap.net.nz> | ||
| 275 | |||
| 276 | * progmodes/gdb-mi.el (gdb-init-1): Condition execution of | ||
| 277 | gdb-get-source-file-list on gdb-create-source-file-list. | ||
| 278 | |||
| 279 | 2011-11-26 Eli Zaretskii <eliz@gnu.org> | ||
| 280 | |||
| 281 | * whitespace.el (whitespace-newline): Use a different foreground | ||
| 282 | color for 16-color light-background displays. | ||
| 283 | |||
| 284 | 2011-11-24 Chong Yidong <cyd@gnu.org> | ||
| 285 | |||
| 286 | * window.el (display-buffer--special-action): Doc fix. | ||
| 287 | |||
| 288 | 2011-11-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 289 | |||
| 290 | * emacs-lisp/avl-tree.el (avl-tree--do-copy, avl-tree-create) | ||
| 291 | (avl-tree-compare-function, avl-tree-empty, avl-tree-enter) | ||
| 292 | (avl-tree-delete, avl-tree-member, avl-tree-member-p, avl-tree-map) | ||
| 293 | (avl-tree-mapc, avl-tree-mapf, avl-tree-mapcar, avl-tree-copy) | ||
| 294 | (avl-tree-clear, avl-tree-stack, avl-tree-stack-pop) | ||
| 295 | (avl-tree-stack-first): | ||
| 296 | * emacs-lisp/cconv.el (cconv--analyse-use): | ||
| 297 | * net/gnutls.el (gnutls-negotiate): Fix typos. | ||
| 298 | |||
| 299 | 2011-11-24 Glenn Morris <rgm@gnu.org> | ||
| 300 | |||
| 301 | * lpr.el (lpr-windows-system, lpr-lp-system): | ||
| 302 | * mail/binhex.el (binhex-begin-line): | ||
| 303 | * progmodes/grep.el (grep-history, grep-find-history): | ||
| 304 | * textmodes/flyspell.el: | ||
| 305 | * vc/pcvs-defs.el (cvs-global-menu): | ||
| 306 | * vc/vc-bzr.el (vc-bzr-admin-checkout-format-file): | ||
| 307 | * vc/vc-mtn.el (vc-mtn-admin-dir, vc-mtn-admin-format): | ||
| 308 | * vc/vc-cvs.el (vc-cvs-registered): Give them basic doc-strings. | ||
| 309 | |||
| 310 | * net/tls.el: Fix case of "GnuTLS". | ||
| 311 | |||
| 312 | * paths.el (rmail-file-name): Format doc-string for make-docfile. | ||
| 313 | |||
| 314 | * version.el (emacs-build-system): Give it a doc-string. | ||
| 315 | |||
| 316 | 2011-11-24 Juri Linkov <juri@jurta.org> | ||
| 317 | |||
| 318 | * view.el (view-buffer): Revert 2011-07-19T15:01:49Z!larsi@gnus.org from 2011-07-19 (bug#8615). | ||
| 319 | |||
| 320 | 2011-11-24 Glenn Morris <rgm@gnu.org> | ||
| 321 | |||
| 322 | * mail/rmailmm.el (rmail-mime): When rmail-enable-mime is non-nil, | ||
| 323 | if called on a non-mime message just toggle the headers. (Bug#8006) | ||
| 324 | |||
| 325 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 326 | |||
| 327 | * allout.el (allout-setup, allout-auto-save-temporarily-disabled) | ||
| 328 | (allout-lead-with-comment-string, allout-structure-deleted-hook) | ||
| 329 | (allout-mode, allout-chart-subtree, allout-hotspot-key-handler) | ||
| 330 | (allout-rebullet-heading, allout-open-sibtopic) | ||
| 331 | (allout-toggle-current-subtree-encryption) | ||
| 332 | (allout-toggle-subtree-encryption, allout-encrypt-string) | ||
| 333 | (allout-next-topic-pending-encryption, allout-adjust-file-variable) | ||
| 334 | (allout-distinctive-bullets-string, allout-auto-activation): | ||
| 335 | * window.el (window-normalize-buffer-to-display): | ||
| 336 | * progmodes/verilog-mode.el (verilog-batch-indent): | ||
| 337 | * textmodes/bibtex.el (bibtex-field-braces-opt) | ||
| 338 | (bibtex-field-strings-opt): | ||
| 339 | * vc/cvs-status.el (cvs-tree-merge): | ||
| 340 | Fix typos. | ||
| 341 | |||
| 342 | 2011-11-23 Michael Albinus <michael.albinus@gmx.de> | ||
| 343 | |||
| 344 | * rfn-eshadow.el (rfn-eshadow-update-overlay): Let-bind | ||
| 345 | `non-essential' to t, in order to avoid remote connections. | ||
| 346 | |||
| 347 | 2011-11-23 Eli Zaretskii <eliz@gnu.org> | ||
| 348 | |||
| 349 | * emacs-lisp/autoload.el (autoload-generate-file-autoloads): | ||
| 350 | On MS-DOS and MS-Windows, compare with loaddefs.el | ||
| 351 | case-insensitively. | ||
| 352 | |||
| 353 | 2011-11-23 Mark Lillibridge <mark.lillibridge@hp.com> (tiny change) | ||
| 354 | |||
| 355 | * mail/unrmail.el (unrmail): Always add blank line. (Bug#7743) | ||
| 356 | |||
| 357 | 2011-11-23 Glenn Morris <rgm@gnu.org> | ||
| 358 | |||
| 359 | * paths.el (rmail-file-name): Reformat the doc-string so that it | ||
| 360 | is picked up. | ||
| 361 | |||
| 362 | * mail/rmail.el (rmail-message-filter, rmail-auto-file): Doc fixes. | ||
| 363 | (rmail-auto-file): Ignore case in the "special" field names, | ||
| 364 | as mail-fetch-field does for all others. | ||
| 365 | |||
| 366 | * mail/rmail.el (rmail-forward): | ||
| 367 | * mail/rmailkwd.el (rmail-set-label): | ||
| 368 | * mail/rmailout.el (rmail-output, rmail-output-as-seen) | ||
| 369 | (rmail-output-body-to-file): Give error if no message. (Bug#10082) | ||
| 370 | |||
| 371 | * mail/rmail.el (rmail-current-message): Doc fix. | ||
| 372 | |||
| 373 | * mail/rmail.el (rmail-message-filter): Mark as obsolete. (Bug#2624) | ||
| 374 | |||
| 375 | 2011-11-22 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 376 | |||
| 377 | * server.el (server-eval-and-print): Allow C-g (bug#6585). | ||
| 378 | |||
| 1 | 2011-11-22 Glenn Morris <rgm@gnu.org> | 379 | 2011-11-22 Glenn Morris <rgm@gnu.org> |
| 2 | 380 | ||
| 3 | * mail/rmailmm.el (test-rmail-mime-handler) | 381 | * mail/rmailmm.el (test-rmail-mime-handler) |
| @@ -208,12 +586,12 @@ | |||
| 208 | 586 | ||
| 209 | 2011-11-16 Michael Albinus <michael.albinus@gmx.de> | 587 | 2011-11-16 Michael Albinus <michael.albinus@gmx.de> |
| 210 | 588 | ||
| 211 | * net/tramp.el (tramp-handle-file-truename): Cache only the local | ||
| 212 | file name. | ||
| 213 | |||
| 214 | * net/tramp-cache.el (tramp-flush-file-property): Flush also | 589 | * net/tramp-cache.el (tramp-flush-file-property): Flush also |
| 215 | properties of linked files. (Bug#9879) | 590 | properties of linked files. (Bug#9879) |
| 216 | 591 | ||
| 592 | * net/tramp-sh.el (tramp-sh-handle-file-truename): Cache only the | ||
| 593 | local file name. | ||
| 594 | |||
| 217 | 2011-11-16 Juanma Barranquero <lekktu@gmail.com> | 595 | 2011-11-16 Juanma Barranquero <lekktu@gmail.com> |
| 218 | 596 | ||
| 219 | * menu-bar.el (menu-bar-file-menu): | 597 | * menu-bar.el (menu-bar-file-menu): |
| @@ -1964,7 +2342,7 @@ | |||
| 1964 | 2342 | ||
| 1965 | * window.el (window-auto-delete): Remove. | 2343 | * window.el (window-auto-delete): Remove. |
| 1966 | (window-deletable-p): Remove argument FORCE. Don't deal with | 2344 | (window-deletable-p): Remove argument FORCE. Don't deal with |
| 1967 | dedicatedness and previous buffers. | 2345 | dedication and previous buffers. |
| 1968 | (switch-to-prev-buffer): Don't delete window. | 2346 | (switch-to-prev-buffer): Don't delete window. |
| 1969 | (delete-windows-on): Delete a window's frame if and only if the | 2347 | (delete-windows-on): Delete a window's frame if and only if the |
| 1970 | window is dedicated. | 2348 | window is dedicated. |
| @@ -3752,7 +4130,7 @@ | |||
| 3752 | 4130 | ||
| 3753 | * cus-edit.el (custom-show): Mark as obsolete. | 4131 | * cus-edit.el (custom-show): Mark as obsolete. |
| 3754 | 4132 | ||
| 3755 | * net/network-stream.el (network-stream-open-starttls): If gnutls | 4133 | * net/network-stream.el (network-stream-open-starttls): If GnuTLS |
| 3756 | negotiation fails, then possibly try again with a non-encrypted | 4134 | negotiation fails, then possibly try again with a non-encrypted |
| 3757 | connection (bug#9017). | 4135 | connection (bug#9017). |
| 3758 | 4136 | ||
| @@ -7938,7 +8316,7 @@ | |||
| 7938 | 2011-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org> | 8316 | 2011-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 7939 | 8317 | ||
| 7940 | * net/network-stream.el (network-stream-open-starttls): Only do | 8318 | * net/network-stream.el (network-stream-open-starttls): Only do |
| 7941 | opportunistic STARTTLS upgrades if we have built-in gnutls support. | 8319 | opportunistic STARTTLS upgrades if we have built-in GnuTLS support. |
| 7942 | Upgrades via gnutls-cli are too slow to be done opportunistically. | 8320 | Upgrades via gnutls-cli are too slow to be done opportunistically. |
| 7943 | 8321 | ||
| 7944 | 2011-04-12 Juanma Barranquero <lekktu@gmail.com> | 8322 | 2011-04-12 Juanma Barranquero <lekktu@gmail.com> |
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index cb1d1af577b..a1cfaee6eaf 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 | |||
| @@ -1837,7 +1837,7 @@ | |||
| 1837 | 2003-05-31 Stefan Monnier <monnier@cs.yale.edu> | 1837 | 2003-05-31 Stefan Monnier <monnier@cs.yale.edu> |
| 1838 | 1838 | ||
| 1839 | * view.el (view-file, view-file-other-window, view-file-other-frame): | 1839 | * view.el (view-file, view-file-other-window, view-file-other-frame): |
| 1840 | Signal an error when trying to visit an inexistent file. | 1840 | Signal an error when trying to visit a nonexistent file. |
| 1841 | 1841 | ||
| 1842 | * vc-hooks.el (vc-call-backend): Give better error message | 1842 | * vc-hooks.el (vc-call-backend): Give better error message |
| 1843 | when a backend function is missing. | 1843 | when a backend function is missing. |
| @@ -5904,7 +5904,7 @@ | |||
| 5904 | (mis-)use tramp-current-user as indication, assuming it is set in | 5904 | (mis-)use tramp-current-user as indication, assuming it is set in |
| 5905 | `tramp-completion-handle-file-name-all-completions'. | 5905 | `tramp-completion-handle-file-name-all-completions'. |
| 5906 | (tramp-send-region): Handle the case `tramp-chunksize' is equal 0. | 5906 | (tramp-send-region): Handle the case `tramp-chunksize' is equal 0. |
| 5907 | I did it accidently. Infinite loop ... | 5907 | I did it accidentally. Infinite loop ... |
| 5908 | (tramp-get-device): `tramp-make-tramp-file-name' must not be | 5908 | (tramp-get-device): `tramp-make-tramp-file-name' must not be |
| 5909 | called with NIL path. It fails in case of multi-method. | 5909 | called with NIL path. It fails in case of multi-method. |
| 5910 | (tramp-file-name-for-operation): Apply `expand-file-name' for | 5910 | (tramp-file-name-for-operation): Apply `expand-file-name' for |
| @@ -8053,7 +8053,7 @@ | |||
| 8053 | (gdb-quit): Reset some variables including tool-bar-map. | 8053 | (gdb-quit): Reset some variables including tool-bar-map. |
| 8054 | 8054 | ||
| 8055 | * gud.el (gdb-running): New variable. | 8055 | * gud.el (gdb-running): New variable. |
| 8056 | (gud-menu-map): Use gdb-running to grey out toolbar buttons | 8056 | (gud-menu-map): Use gdb-running to gray out toolbar buttons |
| 8057 | with gdba in gdb-ui.el. | 8057 | with gdba in gdb-ui.el. |
| 8058 | (gud-tool-bar-map): Move to avoid byte compiler warning. | 8058 | (gud-tool-bar-map): Move to avoid byte compiler warning. |
| 8059 | 8059 | ||
| @@ -9746,8 +9746,8 @@ | |||
| 9746 | 9746 | ||
| 9747 | 2002-09-28 Simon Josefsson <jas@extundo.com> | 9747 | 2002-09-28 Simon Josefsson <jas@extundo.com> |
| 9748 | 9748 | ||
| 9749 | * mail/smtpmail.el (smtpmail-via-smtp): Only negotiate starttls on | 9749 | * mail/smtpmail.el (smtpmail-via-smtp): Only negotiate STARTTLS on |
| 9750 | streams that were opened using starttls. | 9750 | streams that were opened using STARTTLS. |
| 9751 | 9751 | ||
| 9752 | 2002-09-28 Paul Reilly <pmr@pajato.com> | 9752 | 2002-09-28 Paul Reilly <pmr@pajato.com> |
| 9753 | 9753 | ||
| @@ -22790,7 +22790,7 @@ | |||
| 22790 | 2001-11-04 Miles Bader <miles@gnu.org> | 22790 | 2001-11-04 Miles Bader <miles@gnu.org> |
| 22791 | 22791 | ||
| 22792 | * startup.el (fancy-splash-head): Reapply Gerd's hack to make the | 22792 | * startup.el (fancy-splash-head): Reapply Gerd's hack to make the |
| 22793 | shadow of the splash image grey on a dark background instead of black. | 22793 | shadow of the splash image gray on a dark background instead of black. |
| 22794 | 22794 | ||
| 22795 | 2001-11-03 Stefan Monnier <monnier@cs.yale.edu> | 22795 | 2001-11-03 Stefan Monnier <monnier@cs.yale.edu> |
| 22796 | 22796 | ||
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11 index c80091e4657..38a5530fbfc 100644 --- a/lisp/ChangeLog.11 +++ b/lisp/ChangeLog.11 | |||
| @@ -6728,11 +6728,11 @@ | |||
| 6728 | 2004-05-28 Simon Josefsson <jas@extundo.com> | 6728 | 2004-05-28 Simon Josefsson <jas@extundo.com> |
| 6729 | 6729 | ||
| 6730 | * mail/smtpmail.el (smtpmail-open-stream): | 6730 | * mail/smtpmail.el (smtpmail-open-stream): |
| 6731 | Bind starttls-extra-arguments too, if starttls.el uses GNUTLS. | 6731 | Bind starttls-extra-arguments too, if starttls.el uses GnuTLS. |
| 6732 | 6732 | ||
| 6733 | 2004-05-26 Simon Josefsson <jas@extundo.com> | 6733 | 2004-05-26 Simon Josefsson <jas@extundo.com> |
| 6734 | 6734 | ||
| 6735 | * starttls.el: Merge with my GNUTLS based starttls.el. | 6735 | * starttls.el: Merge with my GnuTLS based starttls.el. |
| 6736 | (starttls-gnutls-program, starttls-use-gnutls) | 6736 | (starttls-gnutls-program, starttls-use-gnutls) |
| 6737 | (starttls-extra-arguments, starttls-process-connection-type) | 6737 | (starttls-extra-arguments, starttls-process-connection-type) |
| 6738 | (starttls-connect, starttls-failure, starttls-success): New variables. | 6738 | (starttls-connect, starttls-failure, starttls-success): New variables. |
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12 index 1660009aba7..8721130ec50 100644 --- a/lisp/ChangeLog.12 +++ b/lisp/ChangeLog.12 | |||
| @@ -10695,7 +10695,7 @@ | |||
| 10695 | 10695 | ||
| 10696 | * net/tramp-smb.el (tramp-smb-wait-for-output): Wait always for | 10696 | * net/tramp-smb.el (tramp-smb-wait-for-output): Wait always for |
| 10697 | the prompt. If it returns earlier (when detecting an error | 10697 | the prompt. If it returns earlier (when detecting an error |
| 10698 | message), the rest of the output will merge accidently with the | 10698 | message), the rest of the output will merge accidentally with the |
| 10699 | output of the next command. Reported by M Jared Finder | 10699 | output of the next command. Reported by M Jared Finder |
| 10700 | <jared@hpalace.com>. | 10700 | <jared@hpalace.com>. |
| 10701 | 10701 | ||
| @@ -15100,7 +15100,7 @@ | |||
| 15100 | 2005-12-21 Stefan Monnier <monnier@iro.umontreal.ca> | 15100 | 2005-12-21 Stefan Monnier <monnier@iro.umontreal.ca> |
| 15101 | 15101 | ||
| 15102 | * emacs-lisp/lisp.el (lisp-complete-symbol): Don't call | 15102 | * emacs-lisp/lisp.el (lisp-complete-symbol): Don't call |
| 15103 | delete-windows-on with an inexistent buffer. | 15103 | delete-windows-on with a nonexistent buffer. |
| 15104 | 15104 | ||
| 15105 | 2005-12-22 Nick Roberts <nickrob@snap.net.nz> | 15105 | 2005-12-22 Nick Roberts <nickrob@snap.net.nz> |
| 15106 | 15106 | ||
| @@ -16181,7 +16181,7 @@ | |||
| 16181 | 16181 | ||
| 16182 | 2005-12-08 Alan Mackenzie <bug-cc-mode@gnu.org> | 16182 | 2005-12-08 Alan Mackenzie <bug-cc-mode@gnu.org> |
| 16183 | 16183 | ||
| 16184 | * progmodes/cc-awk.el: Move regexps for analysing AWK code to near the | 16184 | * progmodes/cc-awk.el: Move regexps for analyzing AWK code to near the |
| 16185 | start of the file. ^L now separate sections of the file. | 16185 | start of the file. ^L now separate sections of the file. |
| 16186 | (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) | 16186 | (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) |
| 16187 | (c-awk-one-line-possibly-open-string-re) | 16187 | (c-awk-one-line-possibly-open-string-re) |
| @@ -31734,7 +31734,7 @@ | |||
| 31734 | 2005-02-23 Stefan Monnier <monnier@iro.umontreal.ca> | 31734 | 2005-02-23 Stefan Monnier <monnier@iro.umontreal.ca> |
| 31735 | 31735 | ||
| 31736 | * emacs-lisp/debug.el (debug): Hide the buffer if it's not killed. | 31736 | * emacs-lisp/debug.el (debug): Hide the buffer if it's not killed. |
| 31737 | Remove unused and inexistent var `inhibit-trace'. | 31737 | Remove unused and nonexistent var `inhibit-trace'. |
| 31738 | (debugger-mode): Use run-mode-hooks. | 31738 | (debugger-mode): Use run-mode-hooks. |
| 31739 | (debugger-list-functions): Add buttons; setup xref stack. | 31739 | (debugger-list-functions): Add buttons; setup xref stack. |
| 31740 | 31740 | ||
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index bfe0f4a7a51..12eadc6aadf 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 | |||
| @@ -4275,7 +4275,7 @@ | |||
| 4275 | stops with an error and Emacs does not compile with those things in. | 4275 | stops with an error and Emacs does not compile with those things in. |
| 4276 | Besides, declare-function is not defined in XEmacs. | 4276 | Besides, declare-function is not defined in XEmacs. |
| 4277 | 4277 | ||
| 4278 | * ediff-util.el (eqiff-quit): Autoraise minibuffer. | 4278 | * ediff-util.el (ediff-quit): Autoraise minibuffer. |
| 4279 | 4279 | ||
| 4280 | * ediff-diff.el (ediff-convert-fine-diffs-to-overlays): Make it a defun. | 4280 | * ediff-diff.el (ediff-convert-fine-diffs-to-overlays): Make it a defun. |
| 4281 | 4281 | ||
| @@ -7393,7 +7393,7 @@ | |||
| 7393 | 7393 | ||
| 7394 | * help-mode.el (help-mode): Set view-exit-action to bury the | 7394 | * help-mode.el (help-mode): Set view-exit-action to bury the |
| 7395 | buffer instead of fiddling with windows. Simplify code. | 7395 | buffer instead of fiddling with windows. Simplify code. |
| 7396 | (help-mode-finish): When help-window eqs t set it to the selected | 7396 | (help-mode-finish): When help-window equals t set it to the selected |
| 7397 | window and have with-help-window set up view-return-to-alist. | 7397 | window and have with-help-window set up view-return-to-alist. |
| 7398 | (help-buffer): Add autoload cookie. | 7398 | (help-buffer): Add autoload cookie. |
| 7399 | 7399 | ||
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index 04133f17364..e0c244d5725 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 | |||
| @@ -2809,7 +2809,7 @@ | |||
| 2809 | Consolidate layout provisions coce directly into the activation | 2809 | Consolidate layout provisions coce directly into the activation |
| 2810 | condition branch, now that we've removed those provisions. | 2810 | condition branch, now that we've removed those provisions. |
| 2811 | (allout-unload-function): Explicitly activate the mode before | 2811 | (allout-unload-function): Explicitly activate the mode before |
| 2812 | deactivating, if it's initially deactivated. | 2812 | deactivating, if it's initially inactive. |
| 2813 | (allout-set-buffer-multibyte): Properly prevent byte-compiler | 2813 | (allout-set-buffer-multibyte): Properly prevent byte-compiler |
| 2814 | warnings for version of function used only where | 2814 | warnings for version of function used only where |
| 2815 | set-buffer-multibyte is unavailable. | 2815 | set-buffer-multibyte is unavailable. |
| @@ -2818,7 +2818,7 @@ | |||
| 2818 | 2818 | ||
| 2819 | * tool-bar.el (tool-bar-setup): Remove :enable conditions, which | 2819 | * tool-bar.el (tool-bar-setup): Remove :enable conditions, which |
| 2820 | are handled by the menu-bar entries. As before, don't use | 2820 | are handled by the menu-bar entries. As before, don't use |
| 2821 | :visibile to avoid changing the tool-bar. | 2821 | :visible to avoid changing the tool-bar. |
| 2822 | 2822 | ||
| 2823 | 2010-12-27 Michael Albinus <michael.albinus@gmx.de> | 2823 | 2010-12-27 Michael Albinus <michael.albinus@gmx.de> |
| 2824 | 2824 | ||
| @@ -6065,7 +6065,7 @@ | |||
| 6065 | 6065 | ||
| 6066 | 2010-10-03 Teodor Zlatanov <tzz@lifelogs.com> | 6066 | 2010-10-03 Teodor Zlatanov <tzz@lifelogs.com> |
| 6067 | 6067 | ||
| 6068 | * net/gnutls.el: Improve docs. Remove starttls and ssl emulation. | 6068 | * net/gnutls.el: Improve docs. Remove STARTTLS and SSL emulation. |
| 6069 | Provide only `open-gnutls-stream' (formerly `open-ssl-stream') and | 6069 | Provide only `open-gnutls-stream' (formerly `open-ssl-stream') and |
| 6070 | `gnutls-negotiate' (formerly `starttls-negotiate'). | 6070 | `gnutls-negotiate' (formerly `starttls-negotiate'). |
| 6071 | Remove trivial wrapper `starttls-open-stream'. | 6071 | Remove trivial wrapper `starttls-open-stream'. |
| @@ -6217,7 +6217,7 @@ | |||
| 6217 | 6217 | ||
| 6218 | 2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org> | 6218 | 2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 6219 | 6219 | ||
| 6220 | * net/tls.el (tls-starttls-switches): Give up on using starttls with | 6220 | * net/tls.el (tls-starttls-switches): Give up on using STARTTLS with |
| 6221 | gnutls-cli. | 6221 | gnutls-cli. |
| 6222 | (tls-program): Add --insecure to be consistent with the defaults from | 6222 | (tls-program): Add --insecure to be consistent with the defaults from |
| 6223 | openssl s_client. Now all three commands are insecure. | 6223 | openssl s_client. Now all three commands are insecure. |
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index 2b384d79169..cb39ca5997f 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 | |||
| @@ -9536,7 +9536,7 @@ | |||
| 9536 | it@top level. | 9536 | it@top level. |
| 9537 | 9537 | ||
| 9538 | * texnfo-upd.el (texinfo-incorporate-descriptions): Don't | 9538 | * texnfo-upd.el (texinfo-incorporate-descriptions): Don't |
| 9539 | accidently find a string in the description that is confused for | 9539 | accidentally find a string in the description that is confused for |
| 9540 | a menu item. | 9540 | a menu item. |
| 9541 | 9541 | ||
| 9542 | 1990-06-01 Robert J. Chassell (bob@wheat-chex) | 9542 | 1990-06-01 Robert J. Chassell (bob@wheat-chex) |
| @@ -11362,7 +11362,7 @@ | |||
| 11362 | * blackbox.el (bb-init-board): Use (random 8) to get # in [0,7]. | 11362 | * blackbox.el (bb-init-board): Use (random 8) to get # in [0,7]. |
| 11363 | * dissociate.el: Likewise. | 11363 | * dissociate.el: Likewise. |
| 11364 | * fill.el (justify-current-line): Likewise. | 11364 | * fill.el (justify-current-line): Likewise. |
| 11365 | * flame.el (define-element, psychoanalize-flamer): Likewise. | 11365 | * flame.el (define-element, psychoanalyze-flamer): Likewise. |
| 11366 | * yow.el (yow): Likewise. | 11366 | * yow.el (yow): Likewise. |
| 11367 | * doctor.el: Use (random N), not (random-range N). | 11367 | * doctor.el: Use (random N), not (random-range N). |
| 11368 | (random-range): Function deleted. | 11368 | (random-range): Function deleted. |
| @@ -12454,4 +12454,3 @@ See ChangeLog.2 for earlier changes. | |||
| 12454 | 12454 | ||
| 12455 | You should have received a copy of the GNU General Public License | 12455 | You should have received a copy of the GNU General Public License |
| 12456 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 12456 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 12457 | |||
diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4 index b2cdc634f84..51e2661d89e 100644 --- a/lisp/ChangeLog.4 +++ b/lisp/ChangeLog.4 | |||
| @@ -914,7 +914,7 @@ | |||
| 914 | (desktop-locals-to-save): Add line-number-mode to be saved when | 914 | (desktop-locals-to-save): Add line-number-mode to be saved when |
| 915 | local. | 915 | local. |
| 916 | (desktop-remove): In case the desktop file cannot be deleted | 916 | (desktop-remove): In case the desktop file cannot be deleted |
| 917 | make sure that the desktop system is still inactivated. | 917 | make sure that the desktop system is still inactive. |
| 918 | (desktop-kill): In case an error occurs when saving the desktop, | 918 | (desktop-kill): In case an error occurs when saving the desktop, |
| 919 | offer to quit regardless. | 919 | offer to quit regardless. |
| 920 | (desktop-save-buffer-p): Disregard case when testing file and | 920 | (desktop-save-buffer-p): Disregard case when testing file and |
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index b536f7f1b66..b3e92b1a50a 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 | |||
| @@ -2579,7 +2579,7 @@ | |||
| 2579 | 1995-03-13 Karl Fogel <kfogel@floss> | 2579 | 1995-03-13 Karl Fogel <kfogel@floss> |
| 2580 | 2580 | ||
| 2581 | * bookmark.el: Removed C-v bindings; they were inconsistent. | 2581 | * bookmark.el: Removed C-v bindings; they were inconsistent. |
| 2582 | Defvarred some variables to nil, solely to avoid compilation warnings. | 2582 | Defvared some variables to nil, solely to avoid compilation warnings. |
| 2583 | Use "Author's Update Number:" instead of "Version:". | 2583 | Use "Author's Update Number:" instead of "Version:". |
| 2584 | (bookmark-history): New var. | 2584 | (bookmark-history): New var. |
| 2585 | (bookmark-completing-read): Use `bookmark-history'. | 2585 | (bookmark-completing-read): Use `bookmark-history'. |
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index 42c9df84876..fb6090b3583 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 | |||
| @@ -5716,7 +5716,7 @@ | |||
| 5716 | (vip-read-string-with-history, vip-search): Won't pause inside | 5716 | (vip-read-string-with-history, vip-search): Won't pause inside |
| 5717 | macros any more. | 5717 | macros any more. |
| 5718 | * viper-mous.el (vip-surrounding-word): Modified to understand | 5718 | * viper-mous.el (vip-surrounding-word): Modified to understand |
| 5719 | tripple clicks. | 5719 | triple clicks. |
| 5720 | * viper-util.el (vip-leave-region-active): New function. | 5720 | * viper-util.el (vip-leave-region-active): New function. |
| 5721 | * viper-ex.el (ex-write): Uses better defaults. | 5721 | * viper-ex.el (ex-write): Uses better defaults. |
| 5722 | * viper-macs.el (vip-record-kbd-macro): Correctly escapes `.' and | 5722 | * viper-macs.el (vip-record-kbd-macro): Correctly escapes `.' and |
| @@ -6689,7 +6689,7 @@ | |||
| 6689 | Harnessed view-minor-mode. | 6689 | Harnessed view-minor-mode. |
| 6690 | Added (vip-leave-region-active) to all simple movement commands. | 6690 | Added (vip-leave-region-active) to all simple movement commands. |
| 6691 | * viper-mous.el (vip-surrounding-word): Modified to understand | 6691 | * viper-mous.el (vip-surrounding-word): Modified to understand |
| 6692 | tripple clicks. | 6692 | triple clicks. |
| 6693 | * viper-util.el (vip-leave-region-active): New function. | 6693 | * viper-util.el (vip-leave-region-active): New function. |
| 6694 | 6694 | ||
| 6695 | 1995-08-19 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 6695 | 1995-08-19 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index cb606cd0847..934258ade67 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 | |||
| @@ -1012,7 +1012,7 @@ | |||
| 1012 | bindings for quail-execute-non-quail-command deleted. | 1012 | bindings for quail-execute-non-quail-command deleted. |
| 1013 | (quail-conversion-keymap): Likewise. Add key bindings for | 1013 | (quail-conversion-keymap): Likewise. Add key bindings for |
| 1014 | quail-self-insert-command. | 1014 | quail-self-insert-command. |
| 1015 | (quail-delete-overlays): Chekc overlay-start for overlays before | 1015 | (quail-delete-overlays): Check overlay-start for overlays before |
| 1016 | deleting them. | 1016 | deleting them. |
| 1017 | (quail-mode): This function deleted. | 1017 | (quail-mode): This function deleted. |
| 1018 | (quail-inactivate, quail-activate): New functions. | 1018 | (quail-inactivate, quail-activate): New functions. |
| @@ -1230,7 +1230,7 @@ | |||
| 1230 | indicator regex, Fix line positioning. | 1230 | indicator regex, Fix line positioning. |
| 1231 | (speedbar-add-indicator): Handles obj indicators now. | 1231 | (speedbar-add-indicator): Handles obj indicators now. |
| 1232 | (speedbar-check-objects, speedbar-check-obj-this-line): New functions. | 1232 | (speedbar-check-objects, speedbar-check-obj-this-line): New functions. |
| 1233 | (speedbar-double-click): Fix tripple click error. | 1233 | (speedbar-double-click): Fix triple click error. |
| 1234 | (speedbar-line-file, speedbar-goto-this-file): Handle indicator regex. | 1234 | (speedbar-line-file, speedbar-goto-this-file): Handle indicator regex. |
| 1235 | (speedbar-line-path): Only try to get a file when in "files" display. | 1235 | (speedbar-line-path): Only try to get a file when in "files" display. |
| 1236 | (speedbar-line-depth): Handle indicator regex. | 1236 | (speedbar-line-depth): Handle indicator regex. |
| @@ -2018,7 +2018,7 @@ | |||
| 2018 | 1998-06-19 Karl Heuer <kwzh@gnu.org> | 2018 | 1998-06-19 Karl Heuer <kwzh@gnu.org> |
| 2019 | 2019 | ||
| 2020 | * emacs-lisp/checkdoc.el (checkdoc-eval-defun): Doc fix. | 2020 | * emacs-lisp/checkdoc.el (checkdoc-eval-defun): Doc fix. |
| 2021 | (checkdoc-continue, checkdoc-tripple-semi-comment-check-flag): Ditto. | 2021 | (checkdoc-continue, checkdoc-triple-semi-comment-check-flag): Ditto. |
| 2022 | (checkdoc-common-verbs-wrong-voice): Use dotted pairs. | 2022 | (checkdoc-common-verbs-wrong-voice): Use dotted pairs. |
| 2023 | 2023 | ||
| 2024 | 1998-06-19 Richard Stallman <rms@gnu.org> | 2024 | 1998-06-19 Richard Stallman <rms@gnu.org> |
| @@ -15185,7 +15185,7 @@ | |||
| 15185 | 1997-06-16 Dan Nicolaescu <done@ece.arizona.edu> | 15185 | 1997-06-16 Dan Nicolaescu <done@ece.arizona.edu> |
| 15186 | 15186 | ||
| 15187 | * icon.el (icon-indent-line): A comment ends at the end of the | 15187 | * icon.el (icon-indent-line): A comment ends at the end of the |
| 15188 | line, delete call to inexistent function. | 15188 | line, delete call to nonexistent function. |
| 15189 | 15189 | ||
| 15190 | * icon.el (icon-font-lock-keywords-1): Improved regexp. | 15190 | * icon.el (icon-font-lock-keywords-1): Improved regexp. |
| 15191 | (icon-font-lock-keywords-2): Likewise. | 15191 | (icon-font-lock-keywords-2): Likewise. |
| @@ -18065,7 +18065,7 @@ | |||
| 18065 | have KEY. | 18065 | have KEY. |
| 18066 | (current-input-method-title): Doc-string modified. | 18066 | (current-input-method-title): Doc-string modified. |
| 18067 | (select-input-method): Set current-input-method to nil even if | 18067 | (select-input-method): Set current-input-method to nil even if |
| 18068 | inactivation of the current input method failed. | 18068 | deactivation of the current input method failed. |
| 18069 | (set-language-environment): Doc-string modified. | 18069 | (set-language-environment): Doc-string modified. |
| 18070 | (describe-language-support): Doc-string modified. Calls an | 18070 | (describe-language-support): Doc-string modified. Calls an |
| 18071 | appropriate function for each language. | 18071 | appropriate function for each language. |
| @@ -19394,7 +19394,7 @@ | |||
| 19394 | * loadup.el: Load language/english and language/tibetan. | 19394 | * loadup.el: Load language/english and language/tibetan. |
| 19395 | 19395 | ||
| 19396 | * mule-cmds.el: Prefix for Mule related commands is changed. | 19396 | * mule-cmds.el: Prefix for Mule related commands is changed. |
| 19397 | (view-hello-file): Allways does correct decoding of HELLO file. | 19397 | (view-hello-file): Always does correct decoding of HELLO file. |
| 19398 | 19398 | ||
| 19399 | * mule-conf.el: Change descriptions for Arabic, Indian, and | 19399 | * mule-conf.el: Change descriptions for Arabic, Indian, and |
| 19400 | Vietnamese character sets. Define Tibetan character sets. | 19400 | Vietnamese character sets. Define Tibetan character sets. |
| @@ -19552,7 +19552,7 @@ | |||
| 19552 | * term.el: Added a lot of new faces, they all start with | 19552 | * term.el: Added a lot of new faces, they all start with |
| 19553 | term- and follow a simple lexicographical convention. Note that | 19553 | term- and follow a simple lexicographical convention. Note that |
| 19554 | each change is commented: just search for -mm in the source. | 19554 | each change is commented: just search for -mm in the source. |
| 19555 | (term-char-mode): Added all the "grey-keys" to term-raw-map. | 19555 | (term-char-mode): Added all the "gray-keys" to term-raw-map. |
| 19556 | (term-send-up): Similar, decided to go for the more xterm-like | 19556 | (term-send-up): Similar, decided to go for the more xterm-like |
| 19557 | \eOA bindings in place of the previous \e[A. | 19557 | \eOA bindings in place of the previous \e[A. |
| 19558 | (term-buffer-maximum-size): New variable. | 19558 | (term-buffer-maximum-size): New variable. |
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index 7aca1b521a2..cd685204766 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 | |||
| @@ -530,7 +530,7 @@ | |||
| 530 | composition-function-table. | 530 | composition-function-table. |
| 531 | (tibetan-composable-pattern): New variable. | 531 | (tibetan-composable-pattern): New variable. |
| 532 | (tibetan-subjoined-transcription-alist): Change key "R" to "+R". | 532 | (tibetan-subjoined-transcription-alist): Change key "R" to "+R". |
| 533 | (tibetan-precomposition-rule-alist): Move punctuations to | 533 | (tibetan-precomposition-rule-alist): Move punctuation to |
| 534 | tibetan-punctuation-transcription-alist and | 534 | tibetan-punctuation-transcription-alist and |
| 535 | tibetan-obsolete-glyphs. | 535 | tibetan-obsolete-glyphs. |
| 536 | (tibetan-punctuation-transcription-alist): New variable. | 536 | (tibetan-punctuation-transcription-alist): New variable. |
| @@ -4294,7 +4294,7 @@ | |||
| 4294 | 4294 | ||
| 4295 | 1999-07-21 Gerd Moellmann <gerd@gnu.org> | 4295 | 1999-07-21 Gerd Moellmann <gerd@gnu.org> |
| 4296 | 4296 | ||
| 4297 | * faces.el (toolbar): Grey default background. | 4297 | * faces.el (toolbar): Gray default background. |
| 4298 | (modeline): Ditto. | 4298 | (modeline): Ditto. |
| 4299 | 4299 | ||
| 4300 | * image.el (image-type-regexps): New. | 4300 | * image.el (image-type-regexps): New. |
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index 538f3f1d401..1c38b4d9ac6 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 | |||
| @@ -2021,7 +2021,7 @@ | |||
| 2021 | newbuffile out of the loop, in the newbuffile-nd local var. | 2021 | newbuffile out of the loop, in the newbuffile-nd local var. |
| 2022 | Use dolist (cosmetic change). Compute the proposed name for the most | 2022 | Use dolist (cosmetic change). Compute the proposed name for the most |
| 2023 | common case and cache it in the fourth place in the item. | 2023 | common case and cache it in the fourth place in the item. |
| 2024 | (uniquify-rationalize-file-buffer-names): Used to return a a list | 2024 | (uniquify-rationalize-file-buffer-names): Used to return a list |
| 2025 | of buffer whose name was changed, but that return value was never used. | 2025 | of buffer whose name was changed, but that return value was never used. |
| 2026 | (uniquify-item-lessp): Replaces uniquify-filename-lessp, works on | 2026 | (uniquify-item-lessp): Replaces uniquify-filename-lessp, works on |
| 2027 | the cached proposed name, does much less consing and is quicker. | 2027 | the cached proposed name, does much less consing and is quicker. |
| @@ -8319,7 +8319,7 @@ | |||
| 8319 | * frame.el (show-cursor-in-non-selected-windows): Doc fix. | 8319 | * frame.el (show-cursor-in-non-selected-windows): Doc fix. |
| 8320 | 8320 | ||
| 8321 | * hi-lock.el (hi-lock-refontify): Don't call non-existent | 8321 | * hi-lock.el (hi-lock-refontify): Don't call non-existent |
| 8322 | jit-lock-fontify-buffer; it should anyway be unneccessary to | 8322 | jit-lock-fontify-buffer; it should anyway be unnecessary to |
| 8323 | do anything special when jit-lock is active. | 8323 | do anything special when jit-lock is active. |
| 8324 | (hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs. | 8324 | (hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs. |
| 8325 | 8325 | ||
diff --git a/lisp/align.el b/lisp/align.el index 8767b6ff306..0d9f351b9da 100644 --- a/lisp/align.el +++ b/lisp/align.el | |||
| @@ -1246,6 +1246,11 @@ have been aligned. No changes will be made to the buffer." | |||
| 1246 | (car props) (cdr props))))))))))) | 1246 | (car props) (cdr props))))))))))) |
| 1247 | (setq areas (cdr areas)))))) | 1247 | (setq areas (cdr areas)))))) |
| 1248 | 1248 | ||
| 1249 | (defmacro align--set-marker (marker-var pos &optional type) | ||
| 1250 | `(if ,marker-var | ||
| 1251 | (move-marker ,marker-var ,pos) | ||
| 1252 | (setq ,marker-var (copy-marker ,pos ,type)))) | ||
| 1253 | |||
| 1249 | (defun align-region (beg end separate rules exclude-rules | 1254 | (defun align-region (beg end separate rules exclude-rules |
| 1250 | &optional func) | 1255 | &optional func) |
| 1251 | "Align a region based on a given set of alignment rules. | 1256 | "Align a region based on a given set of alignment rules. |
| @@ -1370,8 +1375,8 @@ aligner would have dealt with are." | |||
| 1370 | (if (not here) | 1375 | (if (not here) |
| 1371 | (goto-char end)) | 1376 | (goto-char end)) |
| 1372 | (forward-line) | 1377 | (forward-line) |
| 1373 | (setq end (point) | 1378 | (setq end (point)) |
| 1374 | end-mark (copy-marker end t)) | 1379 | (align--set-marker end-mark end t) |
| 1375 | (goto-char beg))) | 1380 | (goto-char beg))) |
| 1376 | 1381 | ||
| 1377 | ;; If we have a region to align, and `func' is set and | 1382 | ;; If we have a region to align, and `func' is set and |
| @@ -1467,10 +1472,9 @@ aligner would have dealt with are." | |||
| 1467 | ;; test whether we have found a match on the same | 1472 | ;; test whether we have found a match on the same |
| 1468 | ;; line as a previous match | 1473 | ;; line as a previous match |
| 1469 | (if (> (point) eol) | 1474 | (if (> (point) eol) |
| 1470 | (setq same nil | 1475 | (progn |
| 1471 | eol (save-excursion | 1476 | (setq same nil) |
| 1472 | (end-of-line) | 1477 | (align--set-marker eol (line-end-position)))) |
| 1473 | (point-marker)))) | ||
| 1474 | 1478 | ||
| 1475 | ;; lookup the `repeat' attribute the first time | 1479 | ;; lookup the `repeat' attribute the first time |
| 1476 | (or repeat-c | 1480 | (or repeat-c |
| @@ -1504,10 +1508,9 @@ aligner would have dealt with are." | |||
| 1504 | (progn | 1508 | (progn |
| 1505 | (align-regions regions align-props | 1509 | (align-regions regions align-props |
| 1506 | rule func) | 1510 | rule func) |
| 1507 | (setq last-point (copy-marker b t) | 1511 | (setq regions nil) |
| 1508 | regions nil | 1512 | (setq align-props nil))) |
| 1509 | align-props nil)) | 1513 | (align--set-marker last-point b t) |
| 1510 | (setq last-point (copy-marker b t))) | ||
| 1511 | 1514 | ||
| 1512 | ;; restore the match data | 1515 | ;; restore the match data |
| 1513 | (set-match-data save-match-data) | 1516 | (set-match-data save-match-data) |
diff --git a/lisp/allout.el b/lisp/allout.el index e701d9685a1..68330aa538b 100644 --- a/lisp/allout.el +++ b/lisp/allout.el | |||
| @@ -279,7 +279,7 @@ Intended to be used as the `allout-auto-activation' :set function." | |||
| 279 | ;;;_ > allout-setup () | 279 | ;;;_ > allout-setup () |
| 280 | ;;;###autoload | 280 | ;;;###autoload |
| 281 | (defun allout-setup () | 281 | (defun allout-setup () |
| 282 | "Do fundamental emacs session for allout auto-activation. | 282 | "Do fundamental Emacs session for allout auto-activation. |
| 283 | 283 | ||
| 284 | Establishes allout processing as part of visiting a file if | 284 | Establishes allout processing as part of visiting a file if |
| 285 | `allout-auto-activation' is non-nil, or removes it otherwise. | 285 | `allout-auto-activation' is non-nil, or removes it otherwise. |
| @@ -298,7 +298,7 @@ Control whether and how allout outline mode is automatically | |||
| 298 | activated when files are visited with non-nil buffer-specific | 298 | activated when files are visited with non-nil buffer-specific |
| 299 | file variable `allout-layout'. | 299 | file variable `allout-layout'. |
| 300 | 300 | ||
| 301 | When allout-auto-activation is \"On\" \(t), allout mode is | 301 | When allout-auto-activation is \"On\" (t), allout mode is |
| 302 | activated in buffers with non-nil `allout-layout', and the | 302 | activated in buffers with non-nil `allout-layout', and the |
| 303 | specified layout is applied. | 303 | specified layout is applied. |
| 304 | 304 | ||
| @@ -560,7 +560,7 @@ of this var to take effect." | |||
| 560 | These bullets are distinguish topics with particular character. | 560 | These bullets are distinguish topics with particular character. |
| 561 | They are not used by default in the topic creation routines, but | 561 | They are not used by default in the topic creation routines, but |
| 562 | are offered as options when you modify topic creation with a | 562 | are offered as options when you modify topic creation with a |
| 563 | universal argument \(\\[universal-argument]), or during rebulleting \(\\[allout-rebullet-current-heading]). | 563 | universal argument (\\[universal-argument]), or during rebulleting (\\[allout-rebullet-current-heading]). |
| 564 | 564 | ||
| 565 | Distinctive bullets are not cycled when topics are shifted or | 565 | Distinctive bullets are not cycled when topics are shifted or |
| 566 | otherwise automatically rebulleted, so their marking is | 566 | otherwise automatically rebulleted, so their marking is |
| @@ -844,7 +844,7 @@ such topics are encrypted.)" | |||
| 844 | (defvar allout-auto-save-temporarily-disabled nil | 844 | (defvar allout-auto-save-temporarily-disabled nil |
| 845 | "True while topic encryption is pending and auto-saving was active. | 845 | "True while topic encryption is pending and auto-saving was active. |
| 846 | 846 | ||
| 847 | The value of buffer-saved-size at the time of decryption is used, | 847 | The value of `buffer-saved-size' at the time of decryption is used, |
| 848 | for restoring when all encryptions are established.") | 848 | for restoring when all encryptions are established.") |
| 849 | (defvar allout-just-did-undo nil | 849 | (defvar allout-just-did-undo nil |
| 850 | "True just after undo commands, until allout-post-command-business.") | 850 | "True just after undo commands, until allout-post-command-business.") |
| @@ -910,7 +910,7 @@ For details, see `allout-toggle-current-subtree-encryption's docstring." | |||
| 910 | (defvar allout-layout nil ; LEAVE GLOBAL VALUE NIL -- see docstring. | 910 | (defvar allout-layout nil ; LEAVE GLOBAL VALUE NIL -- see docstring. |
| 911 | "Buffer-specific setting for allout layout. | 911 | "Buffer-specific setting for allout layout. |
| 912 | 912 | ||
| 913 | In buffers where this is non-nil \(and if `allout-auto-activation' | 913 | In buffers where this is non-nil (and if `allout-auto-activation' |
| 914 | has been customized to enable this behavior), `allout-mode' will be | 914 | has been customized to enable this behavior), `allout-mode' will be |
| 915 | automatically activated. The layout dictated by the value will be used to | 915 | automatically activated. The layout dictated by the value will be used to |
| 916 | set the initial exposure when `allout-mode' is activated. | 916 | set the initial exposure when `allout-mode' is activated. |
| @@ -1037,7 +1037,7 @@ suitably economical.") | |||
| 1037 | (defun allout-lead-with-comment-string (&optional header-lead) | 1037 | (defun allout-lead-with-comment-string (&optional header-lead) |
| 1038 | "Set the topic-header leading string to specified string. | 1038 | "Set the topic-header leading string to specified string. |
| 1039 | 1039 | ||
| 1040 | Useful when for encapsulating outline structure in programming | 1040 | Useful for encapsulating outline structure in programming |
| 1041 | language comments. Returns the leading string." | 1041 | language comments. Returns the leading string." |
| 1042 | 1042 | ||
| 1043 | (interactive "P") | 1043 | (interactive "P") |
| @@ -1440,7 +1440,7 @@ Functions on the hook must take two arguments: | |||
| 1440 | - DEPTH -- integer indicating the depth of the subtree that was deleted. | 1440 | - DEPTH -- integer indicating the depth of the subtree that was deleted. |
| 1441 | - REMOVED-FROM -- integer indicating the point where the subtree was removed. | 1441 | - REMOVED-FROM -- integer indicating the point where the subtree was removed. |
| 1442 | 1442 | ||
| 1443 | Some edits that remove or invalidate items may missed by this hook: | 1443 | Some edits that remove or invalidate items may be missed by this hook: |
| 1444 | specifically edits that native allout routines do not control. | 1444 | specifically edits that native allout routines do not control. |
| 1445 | 1445 | ||
| 1446 | This hook might be invoked multiple times by a single command.") | 1446 | This hook might be invoked multiple times by a single command.") |
| @@ -1472,10 +1472,10 @@ that was affected by the undo. | |||
| 1472 | Functions on the hook should not require any arguments.") | 1472 | Functions on the hook should not require any arguments.") |
| 1473 | ;;;_ = allout-outside-normal-auto-fill-function | 1473 | ;;;_ = allout-outside-normal-auto-fill-function |
| 1474 | (defvar allout-outside-normal-auto-fill-function nil | 1474 | (defvar allout-outside-normal-auto-fill-function nil |
| 1475 | "Value of normal-auto-fill-function outside of allout mode. | 1475 | "Value of `normal-auto-fill-function' outside of allout mode. |
| 1476 | 1476 | ||
| 1477 | Used by allout-auto-fill to do the mandated normal-auto-fill-function | 1477 | Used by `allout-auto-fill' to do the mandated `normal-auto-fill-function' |
| 1478 | wrapped within allout's automatic fill-prefix setting.") | 1478 | wrapped within allout's automatic `fill-prefix' setting.") |
| 1479 | (make-variable-buffer-local 'allout-outside-normal-auto-fill-function) | 1479 | (make-variable-buffer-local 'allout-outside-normal-auto-fill-function) |
| 1480 | ;;;_ = prevent redundant activation by desktop mode: | 1480 | ;;;_ = prevent redundant activation by desktop mode: |
| 1481 | (add-to-list 'desktop-minor-mode-handlers '(allout-mode . nil)) | 1481 | (add-to-list 'desktop-minor-mode-handlers '(allout-mode . nil)) |
| @@ -1576,7 +1576,7 @@ message if an error is encountered. The message will serve as a | |||
| 1576 | non-nil return on `write-contents-functions' to prevent saving of | 1576 | non-nil return on `write-contents-functions' to prevent saving of |
| 1577 | the buffer while it has decrypted content. | 1577 | the buffer while it has decrypted content. |
| 1578 | 1578 | ||
| 1579 | This behavior depends on emacs versions that implement the | 1579 | This behavior depends on Emacs versions that implement the |
| 1580 | `write-contents-functions' hook." | 1580 | `write-contents-functions' hook." |
| 1581 | 1581 | ||
| 1582 | (if (or (not (allout-mode-p)) | 1582 | (if (or (not (allout-mode-p)) |
| @@ -1627,7 +1627,7 @@ and the place for the cursor after the decryption is done." | |||
| 1627 | ) | 1627 | ) |
| 1628 | ;;;_ > allout-called-interactively-p () | 1628 | ;;;_ > allout-called-interactively-p () |
| 1629 | (defmacro allout-called-interactively-p () | 1629 | (defmacro allout-called-interactively-p () |
| 1630 | "A version of called-interactively-p independent of emacs version." | 1630 | "A version of `called-interactively-p' independent of Emacs version." |
| 1631 | ;; ... to ease maintenance of allout without betraying deprecation. | 1631 | ;; ... to ease maintenance of allout without betraying deprecation. |
| 1632 | (if (equal (subr-arity (symbol-function 'called-interactively-p)) | 1632 | (if (equal (subr-arity (symbol-function 'called-interactively-p)) |
| 1633 | '(0 . 0)) | 1633 | '(0 . 0)) |
| @@ -1712,7 +1712,7 @@ Allout outline mode is a minor mode that provides extensive | |||
| 1712 | outline oriented formatting and manipulation. It enables | 1712 | outline oriented formatting and manipulation. It enables |
| 1713 | structural editing of outlines, as well as navigation and | 1713 | structural editing of outlines, as well as navigation and |
| 1714 | exposure. It also is specifically aimed at accommodating | 1714 | exposure. It also is specifically aimed at accommodating |
| 1715 | syntax-sensitive text like programming languages. \(For example, | 1715 | syntax-sensitive text like programming languages. (For example, |
| 1716 | see the allout code itself, which is organized as an allout | 1716 | see the allout code itself, which is organized as an allout |
| 1717 | outline.) | 1717 | outline.) |
| 1718 | 1718 | ||
| @@ -1733,7 +1733,7 @@ Below is a description of the key bindings, and then description | |||
| 1733 | of special `allout-mode' features and terminology. See also the | 1733 | of special `allout-mode' features and terminology. See also the |
| 1734 | outline menubar additions for quick reference to many of the | 1734 | outline menubar additions for quick reference to many of the |
| 1735 | features. Customize `allout-auto-activation' to prepare your | 1735 | features. Customize `allout-auto-activation' to prepare your |
| 1736 | emacs session for automatic activation of `allout-mode'. | 1736 | Emacs session for automatic activation of `allout-mode'. |
| 1737 | 1737 | ||
| 1738 | The bindings are those listed in `allout-prefixed-keybindings' | 1738 | The bindings are those listed in `allout-prefixed-keybindings' |
| 1739 | and `allout-unprefixed-keybindings'. We recommend customizing | 1739 | and `allout-unprefixed-keybindings'. We recommend customizing |
| @@ -1781,7 +1781,7 @@ the HOT-SPOT Operation section. | |||
| 1781 | \\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for | 1781 | \\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for |
| 1782 | current topic | 1782 | current topic |
| 1783 | \\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and | 1783 | \\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and |
| 1784 | its' offspring -- distinctive bullets are not changed, others | 1784 | its offspring -- distinctive bullets are not changed, others |
| 1785 | are alternated according to nesting depth. | 1785 | are alternated according to nesting depth. |
| 1786 | \\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- | 1786 | \\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- |
| 1787 | the offspring are not affected. | 1787 | the offspring are not affected. |
| @@ -1791,12 +1791,12 @@ the HOT-SPOT Operation section. | |||
| 1791 | ---------------------------------- | 1791 | ---------------------------------- |
| 1792 | \\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. | 1792 | \\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. |
| 1793 | \\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. | 1793 | \\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. |
| 1794 | \\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure. | 1794 | \\[allout-kill-line] `allout-kill-line' Kill line, attending to outline structure. |
| 1795 | \\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. | 1795 | \\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. |
| 1796 | \\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to | 1796 | \\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to |
| 1797 | depth of heading if yanking into bare topic | 1797 | depth of heading if yanking into bare topic |
| 1798 | heading (ie, prefix sans text). | 1798 | heading (ie, prefix sans text). |
| 1799 | \\[allout-yank-pop] `allout-yank-pop' Is to allout-yank as yank-pop is to yank | 1799 | \\[allout-yank-pop] `allout-yank-pop' Is to `allout-yank' as `yank-pop' is to `yank'. |
| 1800 | 1800 | ||
| 1801 | Topic-oriented Encryption: | 1801 | Topic-oriented Encryption: |
| 1802 | ------------------------- | 1802 | ------------------------- |
| @@ -1836,7 +1836,7 @@ for a save, it is automatically decrypted for continued editing. | |||
| 1836 | NOTE: A few GnuPG v2 versions improperly preserve incorrect | 1836 | NOTE: A few GnuPG v2 versions improperly preserve incorrect |
| 1837 | symmetric decryption keys, preventing entry of the correct key on | 1837 | symmetric decryption keys, preventing entry of the correct key on |
| 1838 | subsequent decryption attempts until the cache times-out. That | 1838 | subsequent decryption attempts until the cache times-out. That |
| 1839 | can take several minutes. \(Decryption of other entries is not | 1839 | can take several minutes. (Decryption of other entries is not |
| 1840 | affected.) Upgrade your EasyPG version, if you can, and you can | 1840 | affected.) Upgrade your EasyPG version, if you can, and you can |
| 1841 | deliberately clear your gpg-agent's cache by sending it a '-HUP' | 1841 | deliberately clear your gpg-agent's cache by sending it a '-HUP' |
| 1842 | signal. | 1842 | signal. |
| @@ -1877,7 +1877,7 @@ hooks, by which independent code can cooperate with allout | |||
| 1877 | without changes to the allout core. Here are key ones: | 1877 | without changes to the allout core. Here are key ones: |
| 1878 | 1878 | ||
| 1879 | `allout-mode-hook' | 1879 | `allout-mode-hook' |
| 1880 | `allout-mode-deactivate-hook' \(deprecated) | 1880 | `allout-mode-deactivate-hook' (deprecated) |
| 1881 | `allout-mode-off-hook' | 1881 | `allout-mode-off-hook' |
| 1882 | `allout-exposure-change-hook' | 1882 | `allout-exposure-change-hook' |
| 1883 | `allout-structure-added-hook' | 1883 | `allout-structure-added-hook' |
| @@ -1939,7 +1939,7 @@ PREFIX-LEAD: | |||
| 1939 | When the PREFIX-LEAD is set to the comment-string of a | 1939 | When the PREFIX-LEAD is set to the comment-string of a |
| 1940 | programming language, outline structuring can be embedded in | 1940 | programming language, outline structuring can be embedded in |
| 1941 | program code without interfering with processing of the text | 1941 | program code without interfering with processing of the text |
| 1942 | (by emacs or the language processor) as program code. This | 1942 | (by Emacs or the language processor) as program code. This |
| 1943 | setting happens automatically when allout mode is used in | 1943 | setting happens automatically when allout mode is used in |
| 1944 | programming-mode buffers. See `allout-use-mode-specific-leader' | 1944 | programming-mode buffers. See `allout-use-mode-specific-leader' |
| 1945 | docstring for more detail. | 1945 | docstring for more detail. |
| @@ -1951,8 +1951,8 @@ BULLET: A character at the end of the ITEM PREFIX, it must be one of | |||
| 1951 | `allout-distinctive-bullets-string'. When creating a TOPIC, | 1951 | `allout-distinctive-bullets-string'. When creating a TOPIC, |
| 1952 | plain BULLETs are by default used, according to the DEPTH of the | 1952 | plain BULLETs are by default used, according to the DEPTH of the |
| 1953 | TOPIC. Choice among the distinctive BULLETs is offered when you | 1953 | TOPIC. Choice among the distinctive BULLETs is offered when you |
| 1954 | provide a universal argugment \(\\[universal-argument]) to the | 1954 | provide a universal argument (\\[universal-argument]) to the |
| 1955 | TOPIC creation command, or when explictly rebulleting a TOPIC. The | 1955 | TOPIC creation command, or when explicitly rebulleting a TOPIC. The |
| 1956 | significance of the various distinctive bullets is purely by | 1956 | significance of the various distinctive bullets is purely by |
| 1957 | convention. See the documentation for the above bullet strings for | 1957 | convention. See the documentation for the above bullet strings for |
| 1958 | more details. | 1958 | more details. |
| @@ -2250,7 +2250,7 @@ to return the current prefix." | |||
| 2250 | allout-recent-prefix-end)) | 2250 | allout-recent-prefix-end)) |
| 2251 | ;;;_ > allout-recent-bullet () | 2251 | ;;;_ > allout-recent-bullet () |
| 2252 | (defmacro allout-recent-bullet () | 2252 | (defmacro allout-recent-bullet () |
| 2253 | "Like allout-recent-prefix, but returns bullet of last encountered prefix. | 2253 | "Like `allout-recent-prefix', but returns bullet of last encountered prefix. |
| 2254 | 2254 | ||
| 2255 | All outline functions which directly do string matches to assess | 2255 | All outline functions which directly do string matches to assess |
| 2256 | headings set the variables `allout-recent-prefix-beginning' and | 2256 | headings set the variables `allout-recent-prefix-beginning' and |
| @@ -2625,13 +2625,13 @@ The remaining optional args are for internal use by the function. | |||
| 2625 | Point is left at the end of the subtree. | 2625 | Point is left at the end of the subtree. |
| 2626 | 2626 | ||
| 2627 | Charts are used to capture outline structure, so that outline-altering | 2627 | Charts are used to capture outline structure, so that outline-altering |
| 2628 | routines need assess the structure only once, and then use the chart | 2628 | routines need to assess the structure only once, and then use the chart |
| 2629 | for their elaborate manipulations. | 2629 | for their elaborate manipulations. |
| 2630 | 2630 | ||
| 2631 | The chart entries for the topics are in reverse order, so the | 2631 | The chart entries for the topics are in reverse order, so the |
| 2632 | last topic is listed first. The entry for each topic consists of | 2632 | last topic is listed first. The entry for each topic consists of |
| 2633 | an integer indicating the point at the beginning of the topic | 2633 | an integer indicating the point at the beginning of the topic |
| 2634 | prefix. Charts for offspring consists of a list containing, | 2634 | prefix. Charts for offspring consist of a list containing, |
| 2635 | recursively, the charts for the respective subtopics. The chart | 2635 | recursively, the charts for the respective subtopics. The chart |
| 2636 | for a topics' offspring precedes the entry for the topic itself. | 2636 | for a topics' offspring precedes the entry for the topic itself. |
| 2637 | 2637 | ||
| @@ -3100,7 +3100,7 @@ Return the start point of the new topic if successful, nil otherwise. | |||
| 3100 | 3100 | ||
| 3101 | Costs more than regular `allout-next-sibling' for short traversals: | 3101 | Costs more than regular `allout-next-sibling' for short traversals: |
| 3102 | 3102 | ||
| 3103 | - we have to check the prior (next, if travelling backwards) | 3103 | - we have to check the prior (next, if traveling backwards) |
| 3104 | item to confirm connectivity with the prior topic, and | 3104 | item to confirm connectivity with the prior topic, and |
| 3105 | - if confirmed, we have to reestablish the allout-recent-* settings with | 3105 | - if confirmed, we have to reestablish the allout-recent-* settings with |
| 3106 | some extra navigation | 3106 | some extra navigation |
| @@ -3186,7 +3186,7 @@ Presumes point is at the start of a topic prefix." | |||
| 3186 | (if (allout-called-interactively-p) (allout-end-of-prefix))))) | 3186 | (if (allout-called-interactively-p) (allout-end-of-prefix))))) |
| 3187 | ;;;_ > allout-next-visible-heading (arg) | 3187 | ;;;_ > allout-next-visible-heading (arg) |
| 3188 | (defun allout-next-visible-heading (arg) | 3188 | (defun allout-next-visible-heading (arg) |
| 3189 | "Move to the next ARG'th visible heading line, backward if arg is negative. | 3189 | "Move to the next ARGth visible heading line, backward if ARG is negative. |
| 3190 | 3190 | ||
| 3191 | Move to buffer limit in indicated direction if headings are exhausted." | 3191 | Move to buffer limit in indicated direction if headings are exhausted." |
| 3192 | 3192 | ||
| @@ -3388,8 +3388,8 @@ return to regular interpretation of self-insert characters." | |||
| 3388 | "Catchall handling of key bindings in hot-spots. | 3388 | "Catchall handling of key bindings in hot-spots. |
| 3389 | 3389 | ||
| 3390 | Translates unmodified keystrokes to corresponding allout commands, when | 3390 | Translates unmodified keystrokes to corresponding allout commands, when |
| 3391 | they would qualify if prefixed with the allout-command-prefix, and sets | 3391 | they would qualify if prefixed with the `allout-command-prefix', and sets |
| 3392 | this-command accordingly. | 3392 | `this-command' accordingly. |
| 3393 | 3393 | ||
| 3394 | Returns the qualifying command, if any, else nil." | 3394 | Returns the qualifying command, if any, else nil." |
| 3395 | (interactive) | 3395 | (interactive) |
| @@ -3533,7 +3533,7 @@ the current topics' depth. | |||
| 3533 | If INSTEAD is: | 3533 | If INSTEAD is: |
| 3534 | 3534 | ||
| 3535 | - nil, then the bullet char for the context is used, per distinction or depth | 3535 | - nil, then the bullet char for the context is used, per distinction or depth |
| 3536 | - a \(numeric) character, then character's string representation is used | 3536 | - a (numeric) character, then character's string representation is used |
| 3537 | - a string, then the user is asked for bullet with the first char as default | 3537 | - a string, then the user is asked for bullet with the first char as default |
| 3538 | - anything else, the user is solicited with bullet char per context as default | 3538 | - anything else, the user is solicited with bullet char per context as default |
| 3539 | 3539 | ||
| @@ -3849,7 +3849,7 @@ Nuances: | |||
| 3849 | (defun allout-open-subtopic (arg) | 3849 | (defun allout-open-subtopic (arg) |
| 3850 | "Open new topic header at deeper level than the current one. | 3850 | "Open new topic header at deeper level than the current one. |
| 3851 | 3851 | ||
| 3852 | Negative universal arg means to open deeper, but place the new topic | 3852 | Negative universal ARG means to open deeper, but place the new topic |
| 3853 | prior to the current one." | 3853 | prior to the current one." |
| 3854 | (interactive "p") | 3854 | (interactive "p") |
| 3855 | (allout-open-topic 1 (> 0 arg) (< 1 arg))) | 3855 | (allout-open-topic 1 (> 0 arg) (< 1 arg))) |
| @@ -3857,9 +3857,9 @@ prior to the current one." | |||
| 3857 | (defun allout-open-sibtopic (arg) | 3857 | (defun allout-open-sibtopic (arg) |
| 3858 | "Open new topic header at same level as the current one. | 3858 | "Open new topic header at same level as the current one. |
| 3859 | 3859 | ||
| 3860 | Positive universal arg means to use the bullet of the prior sibling. | 3860 | Positive universal ARG means to use the bullet of the prior sibling. |
| 3861 | 3861 | ||
| 3862 | Negative universal arg means to place the new topic prior to the current | 3862 | Negative universal ARG means to place the new topic prior to the current |
| 3863 | one." | 3863 | one." |
| 3864 | (interactive "p") | 3864 | (interactive "p") |
| 3865 | (allout-open-topic 0 (> 0 arg) (not (= 1 arg)))) | 3865 | (allout-open-topic 0 (> 0 arg) (not (= 1 arg)))) |
| @@ -3867,7 +3867,7 @@ one." | |||
| 3867 | (defun allout-open-supertopic (arg) | 3867 | (defun allout-open-supertopic (arg) |
| 3868 | "Open new topic header at shallower level than the current one. | 3868 | "Open new topic header at shallower level than the current one. |
| 3869 | 3869 | ||
| 3870 | Negative universal arg means to open shallower, but place the new | 3870 | Negative universal ARG means to open shallower, but place the new |
| 3871 | topic prior to the current one." | 3871 | topic prior to the current one." |
| 3872 | 3872 | ||
| 3873 | (interactive "p") | 3873 | (interactive "p") |
| @@ -3992,7 +3992,7 @@ All args are optional. | |||
| 3992 | 3992 | ||
| 3993 | If INSTEAD is: | 3993 | If INSTEAD is: |
| 3994 | - nil, then the bullet char for the context is used, per distinction or depth | 3994 | - nil, then the bullet char for the context is used, per distinction or depth |
| 3995 | - a \(numeric) character, then character's string representation is used | 3995 | - a (numeric) character, then character's string representation is used |
| 3996 | - a string, then the user is asked for bullet with the first char as default | 3996 | - a string, then the user is asked for bullet with the first char as default |
| 3997 | - anything else, the user is solicited with bullet char per context as default | 3997 | - anything else, the user is solicited with bullet char per context as default |
| 3998 | 3998 | ||
| @@ -4033,7 +4033,7 @@ this function." | |||
| 4033 | number-control | 4033 | number-control |
| 4034 | index))) | 4034 | index))) |
| 4035 | 4035 | ||
| 4036 | ;; Is new one is identical to old? | 4036 | ;; Is new one identical to old? |
| 4037 | (if (and (= current-depth new-depth) | 4037 | (if (and (= current-depth new-depth) |
| 4038 | (string= current-bullet | 4038 | (string= current-bullet |
| 4039 | (substring new-prefix (1- (length new-prefix))))) | 4039 | (substring new-prefix (1- (length new-prefix))))) |
| @@ -4407,7 +4407,7 @@ subtopics into siblings of the item." | |||
| 4407 | (run-hook-with-args 'allout-structure-deleted-hook depth (point)))))) | 4407 | (run-hook-with-args 'allout-structure-deleted-hook depth (point)))))) |
| 4408 | ;;;_ > allout-copy-line-as-kill () | 4408 | ;;;_ > allout-copy-line-as-kill () |
| 4409 | (defun allout-copy-line-as-kill () | 4409 | (defun allout-copy-line-as-kill () |
| 4410 | "Like allout-kill-topic, but save to kill ring instead of deleting." | 4410 | "Like `allout-kill-topic', but save to kill ring instead of deleting." |
| 4411 | (interactive) | 4411 | (interactive) |
| 4412 | (let ((buffer-read-only t)) | 4412 | (let ((buffer-read-only t)) |
| 4413 | (condition-case nil | 4413 | (condition-case nil |
| @@ -5854,12 +5854,12 @@ With repeat count, copy the exposed portions of entire buffer." | |||
| 5854 | (defun allout-toggle-current-subtree-encryption (&optional keymode-cue) | 5854 | (defun allout-toggle-current-subtree-encryption (&optional keymode-cue) |
| 5855 | "Encrypt clear or decrypt encoded topic text. | 5855 | "Encrypt clear or decrypt encoded topic text. |
| 5856 | 5856 | ||
| 5857 | Allout uses emacs 'epg' libary to perform encryption. Symmetric | 5857 | Allout uses Emacs 'epg' library to perform encryption. Symmetric |
| 5858 | and keypair encryption are supported. All encryption is ascii | 5858 | and keypair encryption are supported. All encryption is ascii |
| 5859 | armored. | 5859 | armored. |
| 5860 | 5860 | ||
| 5861 | Entry encryption defaults to symmetric key mode unless keypair | 5861 | Entry encryption defaults to symmetric key mode unless keypair |
| 5862 | recipients are associated with the file \(see | 5862 | recipients are associated with the file (see |
| 5863 | `epa-file-encrypt-to') or the function is invoked with a | 5863 | `epa-file-encrypt-to') or the function is invoked with a |
| 5864 | \(KEYMODE-CUE) universal argument greater than 1. | 5864 | \(KEYMODE-CUE) universal argument greater than 1. |
| 5865 | 5865 | ||
| @@ -5881,7 +5881,7 @@ pending encryption or encrypted. `*' asterisk immediately after | |||
| 5881 | the bullet signals that the body is encrypted, its absence means | 5881 | the bullet signals that the body is encrypted, its absence means |
| 5882 | the topic is meant to be encrypted but is not currently. When a | 5882 | the topic is meant to be encrypted but is not currently. When a |
| 5883 | file with topics pending encryption is saved, topics pending | 5883 | file with topics pending encryption is saved, topics pending |
| 5884 | encryption are encrypted. See allout-encrypt-unencrypted-on-saves | 5884 | encryption are encrypted. See `allout-encrypt-unencrypted-on-saves' |
| 5885 | for auto-encryption specifics. | 5885 | for auto-encryption specifics. |
| 5886 | 5886 | ||
| 5887 | \*NOTE WELL* that automatic encryption that happens during saves will | 5887 | \*NOTE WELL* that automatic encryption that happens during saves will |
| @@ -5900,7 +5900,7 @@ encrypted. If you want to encrypt the contents of a top-level topic, use | |||
| 5900 | "Encrypt clear text or decrypt encoded topic contents (body and subtopics.) | 5900 | "Encrypt clear text or decrypt encoded topic contents (body and subtopics.) |
| 5901 | 5901 | ||
| 5902 | Entry encryption defaults to symmetric key mode unless keypair | 5902 | Entry encryption defaults to symmetric key mode unless keypair |
| 5903 | recipients are associated with the file \(see | 5903 | recipients are associated with the file (see |
| 5904 | `epa-file-encrypt-to') or the function is invoked with a | 5904 | `epa-file-encrypt-to') or the function is invoked with a |
| 5905 | \(KEYMODE-CUE) universal argument greater than 1. | 5905 | \(KEYMODE-CUE) universal argument greater than 1. |
| 5906 | 5906 | ||
| @@ -5916,7 +5916,7 @@ associated with it. This can be used to deassociate any | |||
| 5916 | recipients with the file, by selecting no recipients in the | 5916 | recipients with the file, by selecting no recipients in the |
| 5917 | dialog. | 5917 | dialog. |
| 5918 | 5918 | ||
| 5919 | Encryption and decryption uses the emacs epg library. | 5919 | Encryption and decryption uses the Emacs 'epg' library. |
| 5920 | 5920 | ||
| 5921 | Encrypted text will be ascii-armored. | 5921 | Encrypted text will be ascii-armored. |
| 5922 | 5922 | ||
| @@ -6033,7 +6033,7 @@ If DECRYPT is true (default false), then decrypt instead of encrypt. | |||
| 6033 | ALLOUT-BUFFER identifies the buffer containing the text. | 6033 | ALLOUT-BUFFER identifies the buffer containing the text. |
| 6034 | 6034 | ||
| 6035 | Entry encryption defaults to symmetric key mode unless keypair | 6035 | Entry encryption defaults to symmetric key mode unless keypair |
| 6036 | recipients are associated with the file \(see | 6036 | recipients are associated with the file (see |
| 6037 | `epa-file-encrypt-to') or the function is invoked with a | 6037 | `epa-file-encrypt-to') or the function is invoked with a |
| 6038 | \(KEYMODE-CUE) universal argument greater than 1. | 6038 | \(KEYMODE-CUE) universal argument greater than 1. |
| 6039 | 6039 | ||
| @@ -6057,7 +6057,7 @@ rejections due to matches against | |||
| 6057 | NOTE: A few GnuPG v2 versions improperly preserve incorrect | 6057 | NOTE: A few GnuPG v2 versions improperly preserve incorrect |
| 6058 | symmetric decryption keys, preventing entry of the correct key on | 6058 | symmetric decryption keys, preventing entry of the correct key on |
| 6059 | subsequent decryption attempts until the cache times-out. That | 6059 | subsequent decryption attempts until the cache times-out. That |
| 6060 | can take several minutes. \(Decryption of other entries is not | 6060 | can take several minutes. (Decryption of other entries is not |
| 6061 | affected.) Upgrade your EasyPG version, if you can, and you can | 6061 | affected.) Upgrade your EasyPG version, if you can, and you can |
| 6062 | deliberately clear your gpg-agent's cache by sending it a '-HUP' | 6062 | deliberately clear your gpg-agent's cache by sending it a '-HUP' |
| 6063 | signal." | 6063 | signal." |
| @@ -6196,7 +6196,7 @@ signal." | |||
| 6196 | (defun allout-inhibit-auto-save-info-for-decryption (was-buffer-saved-size) | 6196 | (defun allout-inhibit-auto-save-info-for-decryption (was-buffer-saved-size) |
| 6197 | "Temporarily prevent auto-saves in this buffer when an item is decrypted. | 6197 | "Temporarily prevent auto-saves in this buffer when an item is decrypted. |
| 6198 | 6198 | ||
| 6199 | WAS-BUFFER-SAVED-SIZE is the value of buffer-saved-size *before* | 6199 | WAS-BUFFER-SAVED-SIZE is the value of `buffer-saved-size' *before* |
| 6200 | the decryption." | 6200 | the decryption." |
| 6201 | (when (not (or (= buffer-saved-size -1) (= was-buffer-saved-size -1))) | 6201 | (when (not (or (= buffer-saved-size -1) (= was-buffer-saved-size -1))) |
| 6202 | (setq allout-auto-save-temporarily-disabled was-buffer-saved-size | 6202 | (setq allout-auto-save-temporarily-disabled was-buffer-saved-size |
| @@ -6229,8 +6229,8 @@ the decryption." | |||
| 6229 | "Return the point of the next topic pending encryption, or nil if none. | 6229 | "Return the point of the next topic pending encryption, or nil if none. |
| 6230 | 6230 | ||
| 6231 | Such a topic has the `allout-topic-encryption-bullet' without an | 6231 | Such a topic has the `allout-topic-encryption-bullet' without an |
| 6232 | immediately following '*' that would mark the topic as being encrypted. It | 6232 | immediately following '*' that would mark the topic as being encrypted. |
| 6233 | must also have content." | 6233 | It must also have content." |
| 6234 | (let (done got content-beg) | 6234 | (let (done got content-beg) |
| 6235 | (save-match-data | 6235 | (save-match-data |
| 6236 | (while (not done) | 6236 | (while (not done) |
| @@ -6332,7 +6332,7 @@ save. See `allout-encrypt-unencrypted-on-saves' for more info." | |||
| 6332 | "Activate outline mode and establish file var so it is started subsequently. | 6332 | "Activate outline mode and establish file var so it is started subsequently. |
| 6333 | 6333 | ||
| 6334 | See `allout-layout' and customization of `allout-auto-activation' | 6334 | See `allout-layout' and customization of `allout-auto-activation' |
| 6335 | for details on preparing emacs for automatic allout activation." | 6335 | for details on preparing Emacs for automatic allout activation." |
| 6336 | 6336 | ||
| 6337 | (interactive "P") | 6337 | (interactive "P") |
| 6338 | 6338 | ||
| @@ -6380,7 +6380,7 @@ Returns a list of the form (BEGINNING-POINT PREFIX-STRING SUFFIX-STRING)." | |||
| 6380 | (defun allout-adjust-file-variable (varname value) | 6380 | (defun allout-adjust-file-variable (varname value) |
| 6381 | "Adjust the setting of an Emacs file variable named VARNAME to VALUE. | 6381 | "Adjust the setting of an Emacs file variable named VARNAME to VALUE. |
| 6382 | 6382 | ||
| 6383 | This activity is inhibited if either `enable-local-variables' | 6383 | This activity is inhibited if either `enable-local-variables' or |
| 6384 | `allout-enable-file-variable-adjustment' are nil. | 6384 | `allout-enable-file-variable-adjustment' are nil. |
| 6385 | 6385 | ||
| 6386 | When enabled, an entry for the variable is created if not already present, | 6386 | When enabled, an entry for the variable is created if not already present, |
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 51e869e3a21..4d93e01fb2e 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -83,7 +83,7 @@ To specify the file in which to save them, modify the variable | |||
| 83 | "The `.emacs.bmk' file used to be called this name.") | 83 | "The `.emacs.bmk' file used to be called this name.") |
| 84 | 84 | ||
| 85 | 85 | ||
| 86 | ;; defvarred to avoid a compilation warning: | 86 | ;; defvared to avoid a compilation warning: |
| 87 | (defvar bookmark-file nil | 87 | (defvar bookmark-file nil |
| 88 | "Old name for `bookmark-default-file'.") | 88 | "Old name for `bookmark-default-file'.") |
| 89 | 89 | ||
diff --git a/lisp/calc/calc-nlfit.el b/lisp/calc/calc-nlfit.el index 37e6f66c1b1..bd162866c31 100644 --- a/lisp/calc/calc-nlfit.el +++ b/lisp/calc/calc-nlfit.el | |||
| @@ -22,7 +22,7 @@ | |||
| 22 | ;;; Commentary: | 22 | ;;; Commentary: |
| 23 | 23 | ||
| 24 | ;; This code uses the Levenberg-Marquardt method, as described in | 24 | ;; This code uses the Levenberg-Marquardt method, as described in |
| 25 | ;; _Numerical Analysis_ by H. R. Schwarz, to fit data to | 25 | ;; _Numerical Analysis_ by H. R. Schwarz, to fit data to |
| 26 | ;; nonlinear curves. Currently, the only the following curves are | 26 | ;; nonlinear curves. Currently, the only the following curves are |
| 27 | ;; supported: | 27 | ;; supported: |
| 28 | ;; The logistic S curve, y=a/(1+exp(b*(t-c))) | 28 | ;; The logistic S curve, y=a/(1+exp(b*(t-c))) |
| @@ -33,14 +33,14 @@ | |||
| 33 | 33 | ||
| 34 | ;; The logistic bell curve, y=A*exp(B*(t-C))/(1+exp(B*(t-C)))^2 | 34 | ;; The logistic bell curve, y=A*exp(B*(t-C))/(1+exp(B*(t-C)))^2 |
| 35 | ;; Note that this is the derivative of the formula for the S curve. | 35 | ;; Note that this is the derivative of the formula for the S curve. |
| 36 | ;; We get A=-a*b, B=b and C=c. Here, y is interpreted as the rate | 36 | ;; We get A=-a*b, B=b and C=c. Here, y is interpreted as the rate |
| 37 | ;; of growth of a population at time t. So we will think of the | 37 | ;; of growth of a population at time t. So we will think of the |
| 38 | ;; data as consisting of rates p0, p1, ..., pn and their | 38 | ;; data as consisting of rates p0, p1, ..., pn and their |
| 39 | ;; respective times t0, t1, ..., tn. | 39 | ;; respective times t0, t1, ..., tn. |
| 40 | 40 | ||
| 41 | ;; The Hubbert Linearization, y/x=A*(1-x/B) | 41 | ;; The Hubbert Linearization, y/x=A*(1-x/B) |
| 42 | ;; Here, y is thought of as the rate of growth of a population | 42 | ;; Here, y is thought of as the rate of growth of a population |
| 43 | ;; and x represents the actual population. This is essentially | 43 | ;; and x represents the actual population. This is essentially |
| 44 | ;; the differential equation describing the actual population. | 44 | ;; the differential equation describing the actual population. |
| 45 | 45 | ||
| 46 | ;; The Levenberg-Marquardt method is an iterative process: it takes | 46 | ;; The Levenberg-Marquardt method is an iterative process: it takes |
| @@ -53,7 +53,7 @@ | |||
| 53 | ;; approximations for b and c are found using least squares on the | 53 | ;; approximations for b and c are found using least squares on the |
| 54 | ;; linearization log((a/y)-1) = log(bb) + cc*t of | 54 | ;; linearization log((a/y)-1) = log(bb) + cc*t of |
| 55 | ;; y=a/(1+bb*exp(cc*t)), which is equivalent to the above s curve | 55 | ;; y=a/(1+bb*exp(cc*t)), which is equivalent to the above s curve |
| 56 | ;; formula, and then tranlating it to b and c. From this, we can | 56 | ;; formula, and then translating it to b and c. From this, we can |
| 57 | ;; also get approximations for the bell curve parameters. | 57 | ;; also get approximations for the bell curve parameters. |
| 58 | 58 | ||
| 59 | ;;; Code: | 59 | ;;; Code: |
| @@ -68,7 +68,7 @@ | |||
| 68 | (defun math-nlfit-least-squares (xdata ydata &optional sdata sigmas) | 68 | (defun math-nlfit-least-squares (xdata ydata &optional sdata sigmas) |
| 69 | "Return the parameters A and B for the best least squares fit y=a+bx." | 69 | "Return the parameters A and B for the best least squares fit y=a+bx." |
| 70 | (let* ((n (length xdata)) | 70 | (let* ((n (length xdata)) |
| 71 | (s2data (if sdata | 71 | (s2data (if sdata |
| 72 | (mapcar 'calcFunc-sqr sdata) | 72 | (mapcar 'calcFunc-sqr sdata) |
| 73 | (make-list n 1))) | 73 | (make-list n 1))) |
| 74 | (S (if sdata 0 n)) | 74 | (S (if sdata 0 n)) |
| @@ -109,11 +109,11 @@ | |||
| 109 | ;;; The methods described by de Sousa require the cumulative data qdata | 109 | ;;; The methods described by de Sousa require the cumulative data qdata |
| 110 | ;;; and the rates pdata. We will assume that we are given either | 110 | ;;; and the rates pdata. We will assume that we are given either |
| 111 | ;;; qdata and the corresponding times tdata, or pdata and the corresponding | 111 | ;;; qdata and the corresponding times tdata, or pdata and the corresponding |
| 112 | ;;; tdata. The following two functions will find pdata or qdata, | 112 | ;;; tdata. The following two functions will find pdata or qdata, |
| 113 | ;;; given the other.. | 113 | ;;; given the other.. |
| 114 | 114 | ||
| 115 | ;;; First, given two lists; one of values q0, q1, ..., qn and one of | 115 | ;;; First, given two lists; one of values q0, q1, ..., qn and one of |
| 116 | ;;; corresponding times t0, t1, ..., tn; return a list | 116 | ;;; corresponding times t0, t1, ..., tn; return a list |
| 117 | ;;; p0, p1, ..., pn of the rates of change of the qi with respect to t. | 117 | ;;; p0, p1, ..., pn of the rates of change of the qi with respect to t. |
| 118 | ;;; p0 is the right hand derivative (q1 - q0)/(t1 - t0). | 118 | ;;; p0 is the right hand derivative (q1 - q0)/(t1 - t0). |
| 119 | ;;; pn is the left hand derivative (qn - q(n-1))/(tn - t(n-1)). | 119 | ;;; pn is the left hand derivative (qn - q(n-1))/(tn - t(n-1)). |
| @@ -122,7 +122,7 @@ | |||
| 122 | 122 | ||
| 123 | (defun math-nlfit-get-rates-from-cumul (tdata qdata) | 123 | (defun math-nlfit-get-rates-from-cumul (tdata qdata) |
| 124 | (let ((pdata (list | 124 | (let ((pdata (list |
| 125 | (math-div | 125 | (math-div |
| 126 | (math-sub (nth 1 qdata) | 126 | (math-sub (nth 1 qdata) |
| 127 | (nth 0 qdata)) | 127 | (nth 0 qdata)) |
| 128 | (math-sub (nth 1 tdata) | 128 | (math-sub (nth 1 tdata) |
| @@ -155,7 +155,7 @@ | |||
| 155 | pdata)) | 155 | pdata)) |
| 156 | (reverse pdata))) | 156 | (reverse pdata))) |
| 157 | 157 | ||
| 158 | ;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of | 158 | ;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of |
| 159 | ;;; corresponding times t0, t1, ..., tn -- and an initial values q0, | 159 | ;;; corresponding times t0, t1, ..., tn -- and an initial values q0, |
| 160 | ;;; return a list q0, q1, ..., qn of the cumulative values. | 160 | ;;; return a list q0, q1, ..., qn of the cumulative values. |
| 161 | ;;; q0 is the initial value given. | 161 | ;;; q0 is the initial value given. |
| @@ -169,7 +169,7 @@ | |||
| 169 | (cons | 169 | (cons |
| 170 | (math-add (car qdata) | 170 | (math-add (car qdata) |
| 171 | (math-mul | 171 | (math-mul |
| 172 | (math-mul | 172 | (math-mul |
| 173 | '(float 5 -1) | 173 | '(float 5 -1) |
| 174 | (math-add (nth 1 pdata) (nth 0 pdata))) | 174 | (math-add (nth 1 pdata) (nth 0 pdata))) |
| 175 | (math-sub (nth 1 tdata) | 175 | (math-sub (nth 1 tdata) |
| @@ -181,13 +181,13 @@ | |||
| 181 | 181 | ||
| 182 | ;;; Given the qdata, pdata and tdata, find the parameters | 182 | ;;; Given the qdata, pdata and tdata, find the parameters |
| 183 | ;;; a, b and c that fit q = a/(1+b*exp(c*t)). | 183 | ;;; a, b and c that fit q = a/(1+b*exp(c*t)). |
| 184 | ;;; a is found using the method described by de Sousa. | 184 | ;;; a is found using the method described by de Sousa. |
| 185 | ;;; b and c are found using least squares on the linearization | 185 | ;;; b and c are found using least squares on the linearization |
| 186 | ;;; log((a/q)-1) = log(b) + c*t | 186 | ;;; log((a/q)-1) = log(b) + c*t |
| 187 | ;;; In some cases (where the logistic curve may well be the wrong | 187 | ;;; In some cases (where the logistic curve may well be the wrong |
| 188 | ;;; model), the computed a will be less than or equal to the maximum | 188 | ;;; model), the computed a will be less than or equal to the maximum |
| 189 | ;;; value of q in qdata; in which case the above linearization won't work. | 189 | ;;; value of q in qdata; in which case the above linearization won't work. |
| 190 | ;;; In this case, a will be replaced by a number slightly above | 190 | ;;; In this case, a will be replaced by a number slightly above |
| 191 | ;;; the maximum value of q. | 191 | ;;; the maximum value of q. |
| 192 | 192 | ||
| 193 | (defun math-nlfit-find-qmax (qdata pdata tdata) | 193 | (defun math-nlfit-find-qmax (qdata pdata tdata) |
| @@ -224,7 +224,7 @@ | |||
| 224 | (setq qmh | 224 | (setq qmh |
| 225 | (math-add qmh | 225 | (math-add qmh |
| 226 | (math-mul | 226 | (math-mul |
| 227 | (math-mul | 227 | (math-mul |
| 228 | '(float 5 -1) | 228 | '(float 5 -1) |
| 229 | (math-add (nth 1 pdata) (nth 0 pdata))) | 229 | (math-add (nth 1 pdata) (nth 0 pdata))) |
| 230 | (math-sub (nth 1 tdata) | 230 | (math-sub (nth 1 tdata) |
| @@ -239,7 +239,7 @@ | |||
| 239 | (let* ((qhalf (math-nlfit-find-qmaxhalf pdata tdata)) | 239 | (let* ((qhalf (math-nlfit-find-qmaxhalf pdata tdata)) |
| 240 | (q0 (math-mul 2 qhalf)) | 240 | (q0 (math-mul 2 qhalf)) |
| 241 | (qdata (math-nlfit-get-cumul-from-rates tdata pdata q0))) | 241 | (qdata (math-nlfit-get-cumul-from-rates tdata pdata q0))) |
| 242 | (while (math-lessp (math-nlfit-find-qmax | 242 | (while (math-lessp (math-nlfit-find-qmax |
| 243 | (mapcar | 243 | (mapcar |
| 244 | (lambda (q) (math-add q0 q)) | 244 | (lambda (q) (math-add q0 q)) |
| 245 | qdata) | 245 | qdata) |
| @@ -260,7 +260,7 @@ | |||
| 260 | (i 0)) | 260 | (i 0)) |
| 261 | (while (< i 10) | 261 | (while (< i 10) |
| 262 | (setq q0 (math-mul '(float 5 -1) (math-add qmin qmax))) | 262 | (setq q0 (math-mul '(float 5 -1) (math-add qmin qmax))) |
| 263 | (if (math-lessp | 263 | (if (math-lessp |
| 264 | (math-nlfit-find-qmax | 264 | (math-nlfit-find-qmax |
| 265 | (mapcar | 265 | (mapcar |
| 266 | (lambda (q) (math-add q0 q)) | 266 | (lambda (q) (math-add q0 q)) |
| @@ -272,7 +272,7 @@ | |||
| 272 | (setq i (1+ i))) | 272 | (setq i (1+ i))) |
| 273 | (math-mul '(float 5 -1) (math-add qmin qmax))))) | 273 | (math-mul '(float 5 -1) (math-add qmin qmax))))) |
| 274 | 274 | ||
| 275 | ;;; To improve the approximations to the parameters, we can use | 275 | ;;; To improve the approximations to the parameters, we can use |
| 276 | ;;; Marquardt method as described in Schwarz's book. | 276 | ;;; Marquardt method as described in Schwarz's book. |
| 277 | 277 | ||
| 278 | ;;; Small numbers used in the Givens algorithm | 278 | ;;; Small numbers used in the Givens algorithm |
| @@ -329,7 +329,7 @@ | |||
| 329 | (let ((cij (math-nlfit-get-matx-elt C i j)) | 329 | (let ((cij (math-nlfit-get-matx-elt C i j)) |
| 330 | (cjj (math-nlfit-get-matx-elt C j j))) | 330 | (cjj (math-nlfit-get-matx-elt C j j))) |
| 331 | (when (not (math-equal 0 cij)) | 331 | (when (not (math-equal 0 cij)) |
| 332 | (if (math-lessp (calcFunc-abs cjj) | 332 | (if (math-lessp (calcFunc-abs cjj) |
| 333 | (math-mul math-nlfit-delta (calcFunc-abs cij))) | 333 | (math-mul math-nlfit-delta (calcFunc-abs cij))) |
| 334 | (setq w (math-neg cij) | 334 | (setq w (math-neg cij) |
| 335 | gamma 0 | 335 | gamma 0 |
| @@ -337,7 +337,7 @@ | |||
| 337 | rho 1) | 337 | rho 1) |
| 338 | (setq w (math-mul | 338 | (setq w (math-mul |
| 339 | (calcFunc-sign cjj) | 339 | (calcFunc-sign cjj) |
| 340 | (calcFunc-sqrt | 340 | (calcFunc-sqrt |
| 341 | (math-add | 341 | (math-add |
| 342 | (math-mul cjj cjj) | 342 | (math-mul cjj cjj) |
| 343 | (math-mul cij cij)))) | 343 | (math-mul cij cij)))) |
| @@ -351,10 +351,10 @@ | |||
| 351 | (math-nlfit-set-matx-elt C j j w) | 351 | (math-nlfit-set-matx-elt C j j w) |
| 352 | (math-nlfit-set-matx-elt C i j rho) | 352 | (math-nlfit-set-matx-elt C i j rho) |
| 353 | (let ((k (1+ j))) | 353 | (let ((k (1+ j))) |
| 354 | (while (<= k n) | 354 | (while (<= k n) |
| 355 | (let* ((cjk (math-nlfit-get-matx-elt C j k)) | 355 | (let* ((cjk (math-nlfit-get-matx-elt C j k)) |
| 356 | (cik (math-nlfit-get-matx-elt C i k)) | 356 | (cik (math-nlfit-get-matx-elt C i k)) |
| 357 | (h (math-sub | 357 | (h (math-sub |
| 358 | (math-mul gamma cjk) (math-mul sigma cik)))) | 358 | (math-mul gamma cjk) (math-mul sigma cik)))) |
| 359 | (setq cik (math-add | 359 | (setq cik (math-add |
| 360 | (math-mul sigma cjk) | 360 | (math-mul sigma cjk) |
| @@ -386,9 +386,9 @@ | |||
| 386 | (setq s (math-add s (math-mul (math-nlfit-get-matx-elt C i k) | 386 | (setq s (math-add s (math-mul (math-nlfit-get-matx-elt C i k) |
| 387 | (math-nlfit-get-elt x k)))) | 387 | (math-nlfit-get-elt x k)))) |
| 388 | (setq k (1+ k)))) | 388 | (setq k (1+ k)))) |
| 389 | (math-nlfit-set-elt x i | 389 | (math-nlfit-set-elt x i |
| 390 | (math-neg | 390 | (math-neg |
| 391 | (math-div s | 391 | (math-div s |
| 392 | (math-nlfit-get-matx-elt C i i)))) | 392 | (math-nlfit-get-matx-elt C i i)))) |
| 393 | (setq i (1- i)))) | 393 | (setq i (1- i)))) |
| 394 | (let ((i (1+ n))) | 394 | (let ((i (1+ n))) |
| @@ -405,7 +405,7 @@ | |||
| 405 | sigma 1) | 405 | sigma 1) |
| 406 | (if (math-lessp (calcFunc-abs rho) 1) | 406 | (if (math-lessp (calcFunc-abs rho) 1) |
| 407 | (setq sigma rho | 407 | (setq sigma rho |
| 408 | gamma (calcFunc-sqrt | 408 | gamma (calcFunc-sqrt |
| 409 | (math-sub 1 (math-mul sigma sigma)))) | 409 | (math-sub 1 (math-mul sigma sigma)))) |
| 410 | (setq gamma (math-div 1 (calcFunc-abs rho)) | 410 | (setq gamma (math-div 1 (calcFunc-abs rho)) |
| 411 | sigma (math-mul (calcFunc-sign rho) | 411 | sigma (math-mul (calcFunc-sign rho) |
| @@ -429,7 +429,7 @@ | |||
| 429 | 429 | ||
| 430 | (defun math-nlfit-jacobian (grad xlist parms &optional slist) | 430 | (defun math-nlfit-jacobian (grad xlist parms &optional slist) |
| 431 | (let ((j nil)) | 431 | (let ((j nil)) |
| 432 | (while xlist | 432 | (while xlist |
| 433 | (let ((row (apply grad (car xlist) parms))) | 433 | (let ((row (apply grad (car xlist) parms))) |
| 434 | (setq j | 434 | (setq j |
| 435 | (cons | 435 | (cons |
| @@ -495,7 +495,7 @@ | |||
| 495 | (setq ydata (cdr ydata)) | 495 | (setq ydata (cdr ydata)) |
| 496 | (setq sdata (cdr sdata))) | 496 | (setq sdata (cdr sdata))) |
| 497 | (reverse d))) | 497 | (reverse d))) |
| 498 | 498 | ||
| 499 | (defun math-nlfit-make-dtilda (d n) | 499 | (defun math-nlfit-make-dtilda (d n) |
| 500 | (append d (make-list n 0))) | 500 | (append d (make-list n 0))) |
| 501 | 501 | ||
| @@ -520,8 +520,8 @@ | |||
| 520 | (newchisq (math-nlfit-chi-sq xlist ylist newparms fn slist))) | 520 | (newchisq (math-nlfit-chi-sq xlist ylist newparms fn slist))) |
| 521 | (if (math-lessp newchisq chisq) | 521 | (if (math-lessp newchisq chisq) |
| 522 | (progn | 522 | (progn |
| 523 | (if (math-lessp | 523 | (if (math-lessp |
| 524 | (math-div | 524 | (math-div |
| 525 | (math-sub chisq newchisq) newchisq) math-nlfit-epsilon) | 525 | (math-sub chisq newchisq) newchisq) math-nlfit-epsilon) |
| 526 | (setq really-done t)) | 526 | (setq really-done t)) |
| 527 | (setq lambda (math-div lambda 10)) | 527 | (setq lambda (math-div lambda 10)) |
| @@ -551,7 +551,7 @@ | |||
| 551 | (let ((ex (calcFunc-exp (math-mul c (math-sub x d))))) | 551 | (let ((ex (calcFunc-exp (math-mul c (math-sub x d))))) |
| 552 | (math-div | 552 | (math-div |
| 553 | (math-mul a ex) | 553 | (math-mul a ex) |
| 554 | (math-sqr | 554 | (math-sqr |
| 555 | (math-add | 555 | (math-add |
| 556 | 1 ex))))) | 556 | 1 ex))))) |
| 557 | 557 | ||
| @@ -582,7 +582,7 @@ | |||
| 582 | 582 | ||
| 583 | (defun math-nlfit-find-covar (grad xlist pparms) | 583 | (defun math-nlfit-find-covar (grad xlist pparms) |
| 584 | (let ((j nil)) | 584 | (let ((j nil)) |
| 585 | (while xlist | 585 | (while xlist |
| 586 | (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j)) | 586 | (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j)) |
| 587 | (setq xlist (cdr xlist))) | 587 | (setq xlist (cdr xlist))) |
| 588 | (setq j (cons 'vec (reverse j))) | 588 | (setq j (cons 'vec (reverse j))) |
| @@ -603,7 +603,7 @@ | |||
| 603 | (setq i (1+ i))) | 603 | (setq i (1+ i))) |
| 604 | (setq sgs (reverse sgs))) | 604 | (setq sgs (reverse sgs))) |
| 605 | (list sgs covar))) | 605 | (list sgs covar))) |
| 606 | 606 | ||
| 607 | ;;; Now the Calc functions | 607 | ;;; Now the Calc functions |
| 608 | 608 | ||
| 609 | (defun math-nlfit-s-logistic-params (xdata ydata) | 609 | (defun math-nlfit-s-logistic-params (xdata ydata) |
| @@ -687,15 +687,15 @@ | |||
| 687 | (funcall initparms xdata ydata)) | 687 | (funcall initparms xdata ydata)) |
| 688 | (fit (math-nlfit-fit xdata ydata parmguess fn grad sdata)) | 688 | (fit (math-nlfit-fit xdata ydata parmguess fn grad sdata)) |
| 689 | (finalparms (nth 1 fit)) | 689 | (finalparms (nth 1 fit)) |
| 690 | (sigmacovar | 690 | (sigmacovar |
| 691 | (if sdevv | 691 | (if sdevv |
| 692 | (math-nlfit-get-sigmas grad xdata finalparms (nth 0 fit)))) | 692 | (math-nlfit-get-sigmas grad xdata finalparms (nth 0 fit)))) |
| 693 | (sigmas | 693 | (sigmas |
| 694 | (if sdevv | 694 | (if sdevv |
| 695 | (nth 0 sigmacovar))) | 695 | (nth 0 sigmacovar))) |
| 696 | (finalparms | 696 | (finalparms |
| 697 | (if sigmas | 697 | (if sigmas |
| 698 | (math-map-binop | 698 | (math-map-binop |
| 699 | (lambda (x y) (list 'sdev x y)) finalparms sigmas) | 699 | (lambda (x y) (list 'sdev x y)) finalparms sigmas) |
| 700 | finalparms)) | 700 | finalparms)) |
| 701 | (soln (funcall solnexpr finalparms var))) | 701 | (soln (funcall solnexpr finalparms var))) |
| @@ -712,8 +712,8 @@ | |||
| 712 | ((eq sdv 'calcFunc-xfit) | 712 | ((eq sdv 'calcFunc-xfit) |
| 713 | (let (sln) | 713 | (let (sln) |
| 714 | (setq sln | 714 | (setq sln |
| 715 | (list 'vec | 715 | (list 'vec |
| 716 | soln | 716 | soln |
| 717 | traillist | 717 | traillist |
| 718 | (nth 1 sigmacovar) | 718 | (nth 1 sigmacovar) |
| 719 | '(vec) | 719 | '(vec) |
| @@ -721,7 +721,7 @@ | |||
| 721 | (let ((n (length xdata)) | 721 | (let ((n (length xdata)) |
| 722 | (m (length finalparms))) | 722 | (m (length finalparms))) |
| 723 | (if (and sdata (> n m)) | 723 | (if (and sdata (> n m)) |
| 724 | (calcFunc-utpc (nth 0 fit) | 724 | (calcFunc-utpc (nth 0 fit) |
| 725 | (- n m)) | 725 | (- n m)) |
| 726 | '(var nan var-nan))))) | 726 | '(var nan var-nan))))) |
| 727 | (math-nlfit-enter-result 1 "xfit" sln))) | 727 | (math-nlfit-enter-result 1 "xfit" sln))) |
| @@ -787,14 +787,14 @@ | |||
| 787 | (list (nth 1 (nth 0 finalparms)) | 787 | (list (nth 1 (nth 0 finalparms)) |
| 788 | (nth 1 (nth 1 finalparms))) | 788 | (nth 1 (nth 1 finalparms))) |
| 789 | (lambda (x a b) | 789 | (lambda (x a b) |
| 790 | (math-mul a | 790 | (math-mul a |
| 791 | (math-sub | 791 | (math-sub |
| 792 | 1 | 792 | 1 |
| 793 | (math-div x b)))) | 793 | (math-div x b)))) |
| 794 | sdata))) | 794 | sdata))) |
| 795 | (setq sln | 795 | (setq sln |
| 796 | (list 'vec | 796 | (list 'vec |
| 797 | soln | 797 | soln |
| 798 | traillist | 798 | traillist |
| 799 | (nth 2 parmvals) | 799 | (nth 2 parmvals) |
| 800 | (list | 800 | (list |
| @@ -807,7 +807,7 @@ | |||
| 807 | chisq | 807 | chisq |
| 808 | (let ((n (length qdata))) | 808 | (let ((n (length qdata))) |
| 809 | (if (and sdata (> n 2)) | 809 | (if (and sdata (> n 2)) |
| 810 | (calcFunc-utpc | 810 | (calcFunc-utpc |
| 811 | chisq | 811 | chisq |
| 812 | (- n 2)) | 812 | (- n 2)) |
| 813 | '(var nan var-nan))))) | 813 | '(var nan var-nan))))) |
| @@ -817,4 +817,3 @@ | |||
| 817 | (calc-record traillist "parm"))))) | 817 | (calc-record traillist "parm"))))) |
| 818 | 818 | ||
| 819 | (provide 'calc-nlfit) | 819 | (provide 'calc-nlfit) |
| 820 | |||
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 626d2462b4f..23f955afe7c 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el | |||
| @@ -1003,7 +1003,7 @@ Used by `calc-user-invocation'.") | |||
| 1003 | (defvar calc-quick-prev-results nil | 1003 | (defvar calc-quick-prev-results nil |
| 1004 | "Previous results from Quick Calc.") | 1004 | "Previous results from Quick Calc.") |
| 1005 | (defvar calc-said-hello nil | 1005 | (defvar calc-said-hello nil |
| 1006 | "Non-nil if the welcomd message has been displayed.") | 1006 | "Non-nil if the welcome message has been displayed.") |
| 1007 | (defvar calc-executing-macro nil | 1007 | (defvar calc-executing-macro nil |
| 1008 | "Non-nil if a keyboard macro is executing from the \"K\" key.") | 1008 | "Non-nil if a keyboard macro is executing from the \"K\" key.") |
| 1009 | (defvar calc-any-selections nil | 1009 | (defvar calc-any-selections nil |
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 788bf71845f..f3ff89ddd7f 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,3 +1,15 @@ | |||
| 1 | 2011-11-26 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * semantic/wisent/python-wy.el: | ||
| 4 | * semantic/wisent/js-wy.el: | ||
| 5 | * semantic/wisent/javat-wy.el: | ||
| 6 | * semantic/bovine/c-by.el: | ||
| 7 | * semantic/grammar-wy.el: Regenerate. | ||
| 8 | |||
| 9 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 10 | |||
| 11 | * semantic/lex-spp.el (semantic-lex-spp-first-token-arg-list): Fix typo. | ||
| 12 | |||
| 1 | 2011-11-20 Juanma Barranquero <lekktu@gmail.com> | 13 | 2011-11-20 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 14 | ||
| 3 | * cedet-cscope.el (cedet-cscope-version-check): | 15 | * cedet-cscope.el (cedet-cscope-version-check): |
diff --git a/lisp/cedet/ede/autoconf-edit.el b/lisp/cedet/ede/autoconf-edit.el index bd4a5a627a9..c6545dd9015 100644 --- a/lisp/cedet/ede/autoconf-edit.el +++ b/lisp/cedet/ede/autoconf-edit.el | |||
| @@ -191,7 +191,7 @@ This is to make it compatible with `autoconf-find-last-macro'. | |||
| 191 | Assume that MACRO doesn't appear in the buffer yet, so search | 191 | Assume that MACRO doesn't appear in the buffer yet, so search |
| 192 | the ordering list `autoconf-preferred-macro-order'." | 192 | the ordering list `autoconf-preferred-macro-order'." |
| 193 | ;; Search this list backwards.. heh heh heh | 193 | ;; Search this list backwards.. heh heh heh |
| 194 | ;; This lets us do a reverse search easilly. | 194 | ;; This lets us do a reverse search easily. |
| 195 | (let ((ml (member macro (reverse autoconf-preferred-macro-order)))) | 195 | (let ((ml (member macro (reverse autoconf-preferred-macro-order)))) |
| 196 | (if (not ml) (error "Don't know how to position for %s yet" macro)) | 196 | (if (not ml) (error "Don't know how to position for %s yet" macro)) |
| 197 | (setq ml (cdr ml)) | 197 | (setq ml (cdr ml)) |
diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el index 6179d304464..f17dfd85fdf 100644 --- a/lisp/cedet/ede/files.el +++ b/lisp/cedet/ede/files.el | |||
| @@ -249,7 +249,7 @@ Do this whenever a new project is created, as opposed to loaded." | |||
| 249 | "Return a project description object if DIR has a project. | 249 | "Return a project description object if DIR has a project. |
| 250 | Optional argument FORCE means to ignore a hash-hit of 'nomatch. | 250 | Optional argument FORCE means to ignore a hash-hit of 'nomatch. |
| 251 | This depends on an up to date `ede-project-class-files' variable. | 251 | This depends on an up to date `ede-project-class-files' variable. |
| 252 | Any directory that contains the file .ede-ignore will allways | 252 | Any directory that contains the file .ede-ignore will always |
| 253 | return nil." | 253 | return nil." |
| 254 | (when (not (file-exists-p (expand-file-name ".ede-ignore" dir))) | 254 | (when (not (file-exists-p (expand-file-name ".ede-ignore" dir))) |
| 255 | (let* ((dirtest (expand-file-name dir)) | 255 | (let* ((dirtest (expand-file-name dir)) |
diff --git a/lisp/cedet/ede/proj-shared.el b/lisp/cedet/ede/proj-shared.el index ec514194e33..4e233f56a12 100644 --- a/lisp/cedet/ede/proj-shared.el +++ b/lisp/cedet/ede/proj-shared.el | |||
| @@ -61,7 +61,7 @@ Use ldlibs to add addition libraries.") | |||
| 61 | ; "$(CC_SHARED) -shared $(CFLAGS) $(LDFLAGS) -L. -o $@ $^") | 61 | ; "$(CC_SHARED) -shared $(CFLAGS) $(LDFLAGS) -L. -o $@ $^") |
| 62 | ; ) | 62 | ; ) |
| 63 | ; :commands '("$(C_SHARED_LINK) %s") | 63 | ; :commands '("$(C_SHARED_LINK) %s") |
| 64 | ;; @TODO - addative modification of autoconf. | 64 | ;; @TODO - additive modification of autoconf. |
| 65 | :autoconf '("AC_PROG_LIBTOOL") | 65 | :autoconf '("AC_PROG_LIBTOOL") |
| 66 | ) | 66 | ) |
| 67 | "Compiler for C sourcecode.") | 67 | "Compiler for C sourcecode.") |
| @@ -108,7 +108,7 @@ Use ldlibs to add addition libraries.") | |||
| 108 | :variables '(("CXX_SHARED" . "g++") | 108 | :variables '(("CXX_SHARED" . "g++") |
| 109 | ("CXX_SHARED_COMPILE" . | 109 | ("CXX_SHARED_COMPILE" . |
| 110 | "$(CXX_SHARED) -shared $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)")) | 110 | "$(CXX_SHARED) -shared $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)")) |
| 111 | ;; @TODO - addative modification of autoconf. | 111 | ;; @TODO - additive modification of autoconf. |
| 112 | :autoconf '("AC_PROG_LIBTOOL") | 112 | :autoconf '("AC_PROG_LIBTOOL") |
| 113 | ) | 113 | ) |
| 114 | "Compiler for C sourcecode.") | 114 | "Compiler for C sourcecode.") |
diff --git a/lisp/cedet/ede/proj.el b/lisp/cedet/ede/proj.el index 79022be6a5f..a77bb02218b 100644 --- a/lisp/cedet/ede/proj.el +++ b/lisp/cedet/ede/proj.el | |||
| @@ -546,7 +546,7 @@ You may need to add support for this type of file." | |||
| 546 | (file-name-extension (car sources)) | 546 | (file-name-extension (car sources)) |
| 547 | ""))) | 547 | ""))) |
| 548 | )) | 548 | )) |
| 549 | ;; Return the disovered compilers | 549 | ;; Return the discovered compilers. |
| 550 | comp))) | 550 | comp))) |
| 551 | 551 | ||
| 552 | (defmethod ede-proj-linkers ((obj ede-proj-target)) | 552 | (defmethod ede-proj-linkers ((obj ede-proj-target)) |
| @@ -580,7 +580,7 @@ Converts all symbols into the objects to be used." | |||
| 580 | (while (and avail (not (eieio-instance-inheritor-slot-boundp (car avail) 'sourcetype))) | 580 | (while (and avail (not (eieio-instance-inheritor-slot-boundp (car avail) 'sourcetype))) |
| 581 | (setq avail (cdr avail))) | 581 | (setq avail (cdr avail))) |
| 582 | (setq link (cdr avail))))) | 582 | (setq link (cdr avail))))) |
| 583 | ;; Return the disovered linkers | 583 | ;; Return the discovered linkers. |
| 584 | link))) | 584 | link))) |
| 585 | 585 | ||
| 586 | 586 | ||
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 3ffb6baee9f..3355ed83a91 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el | |||
| @@ -437,7 +437,7 @@ RETURNONERROR specifies that parsing should stop on the first | |||
| 437 | unmatched syntax encountered. When nil, parsing skips the syntax, | 437 | unmatched syntax encountered. When nil, parsing skips the syntax, |
| 438 | adding it to the unmatched syntax cache. | 438 | adding it to the unmatched syntax cache. |
| 439 | 439 | ||
| 440 | Must return a list of semantic tags wich have been cooked | 440 | Must return a list of semantic tags which have been cooked |
| 441 | \(repositioned properly) but which DO NOT HAVE OVERLAYS associated | 441 | \(repositioned properly) but which DO NOT HAVE OVERLAYS associated |
| 442 | with them. When overloading this function, use `semantic--tag-expand' | 442 | with them. When overloading this function, use `semantic--tag-expand' |
| 443 | to cook raw tags.") | 443 | to cook raw tags.") |
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index ae199703c80..ef09ea13b42 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el | |||
| @@ -57,7 +57,7 @@ | |||
| 57 | ;; | 57 | ;; |
| 58 | ;; context - A semantic datatype representing a point in a buffer. | 58 | ;; context - A semantic datatype representing a point in a buffer. |
| 59 | ;; | 59 | ;; |
| 60 | ;; constriant - If a context specifies a specific datatype is needed, | 60 | ;; constraint - If a context specifies a specific datatype is needed, |
| 61 | ;; that is a constraint. | 61 | ;; that is a constraint. |
| 62 | ;; constants - Some datatypes define elements of themselves as a | 62 | ;; constants - Some datatypes define elements of themselves as a |
| 63 | ;; constant. These need to be returned as there would be no | 63 | ;; constant. These need to be returned as there would be no |
| @@ -254,7 +254,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error | |||
| 254 | (fname nil) | 254 | (fname nil) |
| 255 | (miniscope (when scope (clone scope))) | 255 | (miniscope (when scope (clone scope))) |
| 256 | ) | 256 | ) |
| 257 | ;; First order check. Is this wholely contained in the typecache? | 257 | ;; First order check. Is this wholly contained in the typecache? |
| 258 | (setq tmp (semanticdb-typecache-find sequence)) | 258 | (setq tmp (semanticdb-typecache-find sequence)) |
| 259 | 259 | ||
| 260 | (if tmp | 260 | (if tmp |
diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el index eae6d013400..967e5c59cda 100644 --- a/lisp/cedet/semantic/analyze/fcn.el +++ b/lisp/cedet/semantic/analyze/fcn.el | |||
| @@ -157,7 +157,7 @@ Almost all searches use the same arguments." | |||
| 157 | ;; | 157 | ;; |
| 158 | 158 | ||
| 159 | (define-overloadable-function semantic-analyze-dereference-metatype (type scope &optional type-declaration) | 159 | (define-overloadable-function semantic-analyze-dereference-metatype (type scope &optional type-declaration) |
| 160 | ;; todo - move into typecahe!! | 160 | ;; todo - move into typecache!! |
| 161 | "Return a concrete type tag based on input TYPE tag. | 161 | "Return a concrete type tag based on input TYPE tag. |
| 162 | A concrete type is an actual declaration of a memory description, | 162 | A concrete type is an actual declaration of a memory description, |
| 163 | such as a structure, or class. A meta type is an alias, | 163 | such as a structure, or class. A meta type is an alias, |
diff --git a/lisp/cedet/semantic/bovine/c-by.el b/lisp/cedet/semantic/bovine/c-by.el index 31489a4f625..99429f01acd 100644 --- a/lisp/cedet/semantic/bovine/c-by.el +++ b/lisp/cedet/semantic/bovine/c-by.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; semantic/bovine/c-by.el --- Generated parser support file | 1 | ;;; semantic/bovine/c-by.el --- Generated parser support file |
| 2 | 2 | ||
| 3 | ;;; Copyright (C) 1999-2011 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2011 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; This file is part of GNU Emacs. | 5 | ;; This file is part of GNU Emacs. |
| 6 | 6 | ||
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 686113c23e2..fe659d118e1 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el | |||
| @@ -298,7 +298,7 @@ Moves completely over balanced #if blocks." | |||
| 298 | ;; @TODO - can we use the new c-scan-conditionals | 298 | ;; @TODO - can we use the new c-scan-conditionals |
| 299 | (c-forward-conditional 1)) | 299 | (c-forward-conditional 1)) |
| 300 | ((looking-at "^\\s-*#\\s-*elif") | 300 | ((looking-at "^\\s-*#\\s-*elif") |
| 301 | ;; We need to let the preprocessor analize this one. | 301 | ;; We need to let the preprocessor analyze this one. |
| 302 | (beginning-of-line) | 302 | (beginning-of-line) |
| 303 | (setq done t) | 303 | (setq done t) |
| 304 | ) | 304 | ) |
diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index aaec4cb30ff..7e01b88f60b 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el | |||
| @@ -1023,7 +1023,7 @@ Output must be in semanticdb Find result format." | |||
| 1023 | 1023 | ||
| 1024 | (defmethod semantic-collector-try-completion-whitespace | 1024 | (defmethod semantic-collector-try-completion-whitespace |
| 1025 | ((obj semantic-collector-abstract) prefix) | 1025 | ((obj semantic-collector-abstract) prefix) |
| 1026 | "For OBJ, do whatepsace completion based on PREFIX. | 1026 | "For OBJ, do whitespace completion based on PREFIX. |
| 1027 | This implies that if there are two completions, one matching | 1027 | This implies that if there are two completions, one matching |
| 1028 | the test \"prefix\\>\", and one not, the one matching the full | 1028 | the test \"prefix\\>\", and one not, the one matching the full |
| 1029 | word version of PREFIX will be chosen, and that text returned. | 1029 | word version of PREFIX will be chosen, and that text returned. |
diff --git a/lisp/cedet/semantic/grammar-wy.el b/lisp/cedet/semantic/grammar-wy.el index acaad49f6af..879fdd92331 100644 --- a/lisp/cedet/semantic/grammar-wy.el +++ b/lisp/cedet/semantic/grammar-wy.el | |||
| @@ -22,8 +22,7 @@ | |||
| 22 | 22 | ||
| 23 | ;;; Commentary: | 23 | ;;; Commentary: |
| 24 | ;; | 24 | ;; |
| 25 | ;; This file is generated from the grammar file semantic-grammar.wy in | 25 | ;; This file was generated from admin/grammars/grammar.wy. |
| 26 | ;; the upstream CEDET repository. | ||
| 27 | 26 | ||
| 28 | ;;; Code: | 27 | ;;; Code: |
| 29 | 28 | ||
| @@ -113,296 +112,296 @@ | |||
| 113 | '((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC PACKAGE PREC PUT QUOTEMODE RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN RPAREN LBRACE RBRACE COLON SEMI OR LT GT) | 112 | '((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC PACKAGE PREC PUT QUOTEMODE RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN RPAREN LBRACE RBRACE COLON SEMI OR LT GT) |
| 114 | nil | 113 | nil |
| 115 | (grammar | 114 | (grammar |
| 116 | ((prologue)) | 115 | ((prologue)) |
| 117 | ((epilogue)) | 116 | ((epilogue)) |
| 118 | ((declaration)) | 117 | ((declaration)) |
| 119 | ((nonterminal)) | 118 | ((nonterminal)) |
| 120 | ((PERCENT_PERCENT))) | 119 | ((PERCENT_PERCENT))) |
| 121 | (prologue | 120 | (prologue |
| 122 | ((PROLOGUE) | 121 | ((PROLOGUE) |
| 123 | (wisent-raw-tag | 122 | (wisent-raw-tag |
| 124 | (semantic-tag-new-code "prologue" nil)))) | 123 | (semantic-tag-new-code "prologue" nil)))) |
| 125 | (epilogue | 124 | (epilogue |
| 126 | ((EPILOGUE) | 125 | ((EPILOGUE) |
| 127 | (wisent-raw-tag | 126 | (wisent-raw-tag |
| 128 | (semantic-tag-new-code "epilogue" nil)))) | 127 | (semantic-tag-new-code "epilogue" nil)))) |
| 129 | (declaration | 128 | (declaration |
| 130 | ((decl) | 129 | ((decl) |
| 131 | (eval $1))) | 130 | (eval $1))) |
| 132 | (decl | 131 | (decl |
| 133 | ((default_prec_decl)) | 132 | ((default_prec_decl)) |
| 134 | ((no_default_prec_decl)) | 133 | ((no_default_prec_decl)) |
| 135 | ((languagemode_decl)) | 134 | ((languagemode_decl)) |
| 136 | ((package_decl)) | 135 | ((package_decl)) |
| 137 | ((precedence_decl)) | 136 | ((precedence_decl)) |
| 138 | ((put_decl)) | 137 | ((put_decl)) |
| 139 | ((quotemode_decl)) | 138 | ((quotemode_decl)) |
| 140 | ((scopestart_decl)) | 139 | ((scopestart_decl)) |
| 141 | ((start_decl)) | 140 | ((start_decl)) |
| 142 | ((keyword_decl)) | 141 | ((keyword_decl)) |
| 143 | ((token_decl)) | 142 | ((token_decl)) |
| 144 | ((type_decl)) | 143 | ((type_decl)) |
| 145 | ((use_macros_decl))) | 144 | ((use_macros_decl))) |
| 146 | (default_prec_decl | 145 | (default_prec_decl |
| 147 | ((DEFAULT-PREC) | 146 | ((DEFAULT-PREC) |
| 148 | `(wisent-raw-tag | 147 | `(wisent-raw-tag |
| 149 | (semantic-tag "default-prec" 'assoc :value | 148 | (semantic-tag "default-prec" 'assoc :value |
| 150 | '("t"))))) | 149 | '("t"))))) |
| 151 | (no_default_prec_decl | 150 | (no_default_prec_decl |
| 152 | ((NO-DEFAULT-PREC) | 151 | ((NO-DEFAULT-PREC) |
| 153 | `(wisent-raw-tag | 152 | `(wisent-raw-tag |
| 154 | (semantic-tag "default-prec" 'assoc :value | 153 | (semantic-tag "default-prec" 'assoc :value |
| 155 | '("nil"))))) | 154 | '("nil"))))) |
| 156 | (languagemode_decl | 155 | (languagemode_decl |
| 157 | ((LANGUAGEMODE symbols) | 156 | ((LANGUAGEMODE symbols) |
| 158 | `(wisent-raw-tag | 157 | `(wisent-raw-tag |
| 159 | (semantic-tag ',(car $2) | 158 | (semantic-tag ',(car $2) |
| 160 | 'languagemode :rest ',(cdr $2))))) | 159 | 'languagemode :rest ',(cdr $2))))) |
| 161 | (package_decl | 160 | (package_decl |
| 162 | ((PACKAGE SYMBOL) | 161 | ((PACKAGE SYMBOL) |
| 163 | `(wisent-raw-tag | 162 | `(wisent-raw-tag |
| 164 | (semantic-tag-new-package ',$2 nil)))) | 163 | (semantic-tag-new-package ',$2 nil)))) |
| 165 | (precedence_decl | 164 | (precedence_decl |
| 166 | ((associativity token_type_opt items) | 165 | ((associativity token_type_opt items) |
| 167 | `(wisent-raw-tag | 166 | `(wisent-raw-tag |
| 168 | (semantic-tag ',$1 'assoc :type ',$2 :value ',$3)))) | 167 | (semantic-tag ',$1 'assoc :type ',$2 :value ',$3)))) |
| 169 | (associativity | 168 | (associativity |
| 170 | ((LEFT) | 169 | ((LEFT) |
| 171 | (progn "left")) | 170 | (progn "left")) |
| 172 | ((RIGHT) | 171 | ((RIGHT) |
| 173 | (progn "right")) | 172 | (progn "right")) |
| 174 | ((NONASSOC) | 173 | ((NONASSOC) |
| 175 | (progn "nonassoc"))) | 174 | (progn "nonassoc"))) |
| 176 | (put_decl | 175 | (put_decl |
| 177 | ((PUT put_name put_value) | 176 | ((PUT put_name put_value) |
| 178 | `(wisent-raw-tag | 177 | `(wisent-raw-tag |
| 179 | (semantic-tag ',$2 'put :value ',(list $3)))) | 178 | (semantic-tag ',$2 'put :value ',(list $3)))) |
| 180 | ((PUT put_name put_value_list) | 179 | ((PUT put_name put_value_list) |
| 181 | `(wisent-raw-tag | 180 | `(wisent-raw-tag |
| 182 | (semantic-tag ',$2 'put :value ',$3))) | 181 | (semantic-tag ',$2 'put :value ',$3))) |
| 183 | ((PUT put_name_list put_value) | 182 | ((PUT put_name_list put_value) |
| 184 | `(wisent-raw-tag | 183 | `(wisent-raw-tag |
| 185 | (semantic-tag ',(car $2) | 184 | (semantic-tag ',(car $2) |
| 186 | 'put :rest ',(cdr $2) | 185 | 'put :rest ',(cdr $2) |
| 187 | :value ',(list $3)))) | 186 | :value ',(list $3)))) |
| 188 | ((PUT put_name_list put_value_list) | 187 | ((PUT put_name_list put_value_list) |
| 189 | `(wisent-raw-tag | 188 | `(wisent-raw-tag |
| 190 | (semantic-tag ',(car $2) | 189 | (semantic-tag ',(car $2) |
| 191 | 'put :rest ',(cdr $2) | 190 | 'put :rest ',(cdr $2) |
| 192 | :value ',$3)))) | 191 | :value ',$3)))) |
| 193 | (put_name_list | 192 | (put_name_list |
| 194 | ((BRACE_BLOCK) | 193 | ((BRACE_BLOCK) |
| 195 | (mapcar 'semantic-tag-name | 194 | (mapcar 'semantic-tag-name |
| 196 | (semantic-parse-region | 195 | (semantic-parse-region |
| 197 | (car $region1) | 196 | (car $region1) |
| 198 | (cdr $region1) | 197 | (cdr $region1) |
| 199 | 'put_names 1)))) | 198 | 'put_names 1)))) |
| 200 | (put_names | 199 | (put_names |
| 201 | ((LBRACE) | 200 | ((LBRACE) |
| 202 | nil) | 201 | nil) |
| 203 | ((RBRACE) | 202 | ((RBRACE) |
| 204 | nil) | 203 | nil) |
| 205 | ((put_name) | 204 | ((put_name) |
| 206 | (wisent-raw-tag | 205 | (wisent-raw-tag |
| 207 | (semantic-tag $1 'put-name)))) | 206 | (semantic-tag $1 'put-name)))) |
| 208 | (put_name | 207 | (put_name |
| 209 | ((SYMBOL)) | 208 | ((SYMBOL)) |
| 210 | ((token_type))) | 209 | ((token_type))) |
| 211 | (put_value_list | 210 | (put_value_list |
| 212 | ((BRACE_BLOCK) | 211 | ((BRACE_BLOCK) |
| 213 | (mapcar 'semantic-tag-code-detail | 212 | (mapcar 'semantic-tag-code-detail |
| 214 | (semantic-parse-region | 213 | (semantic-parse-region |
| 215 | (car $region1) | 214 | (car $region1) |
| 216 | (cdr $region1) | 215 | (cdr $region1) |
| 217 | 'put_values 1)))) | 216 | 'put_values 1)))) |
| 218 | (put_values | 217 | (put_values |
| 219 | ((LBRACE) | 218 | ((LBRACE) |
| 220 | nil) | 219 | nil) |
| 221 | ((RBRACE) | 220 | ((RBRACE) |
| 222 | nil) | 221 | nil) |
| 223 | ((put_value) | 222 | ((put_value) |
| 224 | (wisent-raw-tag | 223 | (wisent-raw-tag |
| 225 | (semantic-tag-new-code "put-value" $1)))) | 224 | (semantic-tag-new-code "put-value" $1)))) |
| 226 | (put_value | 225 | (put_value |
| 227 | ((SYMBOL any_value) | 226 | ((SYMBOL any_value) |
| 228 | (cons $1 $2))) | 227 | (cons $1 $2))) |
| 229 | (scopestart_decl | 228 | (scopestart_decl |
| 230 | ((SCOPESTART SYMBOL) | 229 | ((SCOPESTART SYMBOL) |
| 231 | `(wisent-raw-tag | 230 | `(wisent-raw-tag |
| 232 | (semantic-tag ',$2 'scopestart)))) | 231 | (semantic-tag ',$2 'scopestart)))) |
| 233 | (quotemode_decl | 232 | (quotemode_decl |
| 234 | ((QUOTEMODE SYMBOL) | 233 | ((QUOTEMODE SYMBOL) |
| 235 | `(wisent-raw-tag | 234 | `(wisent-raw-tag |
| 236 | (semantic-tag ',$2 'quotemode)))) | 235 | (semantic-tag ',$2 'quotemode)))) |
| 237 | (start_decl | 236 | (start_decl |
| 238 | ((START symbols) | 237 | ((START symbols) |
| 239 | `(wisent-raw-tag | 238 | `(wisent-raw-tag |
| 240 | (semantic-tag ',(car $2) | 239 | (semantic-tag ',(car $2) |
| 241 | 'start :rest ',(cdr $2))))) | 240 | 'start :rest ',(cdr $2))))) |
| 242 | (keyword_decl | 241 | (keyword_decl |
| 243 | ((KEYWORD SYMBOL string_value) | 242 | ((KEYWORD SYMBOL string_value) |
| 244 | `(wisent-raw-tag | 243 | `(wisent-raw-tag |
| 245 | (semantic-tag ',$2 'keyword :value ',$3)))) | 244 | (semantic-tag ',$2 'keyword :value ',$3)))) |
| 246 | (token_decl | 245 | (token_decl |
| 247 | ((TOKEN token_type_opt SYMBOL string_value) | 246 | ((TOKEN token_type_opt SYMBOL string_value) |
| 248 | `(wisent-raw-tag | 247 | `(wisent-raw-tag |
| 249 | (semantic-tag ',$3 ',(if $2 'token 'keyword) | 248 | (semantic-tag ',$3 ',(if $2 'token 'keyword) |
| 250 | :type ',$2 :value ',$4))) | 249 | :type ',$2 :value ',$4))) |
| 251 | ((TOKEN token_type_opt symbols) | 250 | ((TOKEN token_type_opt symbols) |
| 252 | `(wisent-raw-tag | 251 | `(wisent-raw-tag |
| 253 | (semantic-tag ',(car $3) | 252 | (semantic-tag ',(car $3) |
| 254 | 'token :type ',$2 :rest ',(cdr $3))))) | 253 | 'token :type ',$2 :rest ',(cdr $3))))) |
| 255 | (token_type_opt | 254 | (token_type_opt |
| 256 | (nil) | 255 | (nil) |
| 257 | ((token_type))) | 256 | ((token_type))) |
| 258 | (token_type | 257 | (token_type |
| 259 | ((LT SYMBOL GT) | 258 | ((LT SYMBOL GT) |
| 260 | (progn $2))) | 259 | (progn $2))) |
| 261 | (type_decl | 260 | (type_decl |
| 262 | ((TYPE token_type plist_opt) | 261 | ((TYPE token_type plist_opt) |
| 263 | `(wisent-raw-tag | 262 | `(wisent-raw-tag |
| 264 | (semantic-tag ',$2 'type :value ',$3)))) | 263 | (semantic-tag ',$2 'type :value ',$3)))) |
| 265 | (plist_opt | 264 | (plist_opt |
| 266 | (nil) | 265 | (nil) |
| 267 | ((plist))) | 266 | ((plist))) |
| 268 | (plist | 267 | (plist |
| 269 | ((plist put_value) | 268 | ((plist put_value) |
| 270 | (append | 269 | (append |
| 271 | (list $2) | 270 | (list $2) |
| 272 | $1)) | 271 | $1)) |
| 273 | ((put_value) | 272 | ((put_value) |
| 274 | (list $1))) | 273 | (list $1))) |
| 275 | (use_name_list | 274 | (use_name_list |
| 276 | ((BRACE_BLOCK) | 275 | ((BRACE_BLOCK) |
| 277 | (mapcar 'semantic-tag-name | 276 | (mapcar 'semantic-tag-name |
| 278 | (semantic-parse-region | 277 | (semantic-parse-region |
| 279 | (car $region1) | 278 | (car $region1) |
| 280 | (cdr $region1) | 279 | (cdr $region1) |
| 281 | 'use_names 1)))) | 280 | 'use_names 1)))) |
| 282 | (use_names | 281 | (use_names |
| 283 | ((LBRACE) | 282 | ((LBRACE) |
| 284 | nil) | 283 | nil) |
| 285 | ((RBRACE) | 284 | ((RBRACE) |
| 286 | nil) | 285 | nil) |
| 287 | ((SYMBOL) | 286 | ((SYMBOL) |
| 288 | (wisent-raw-tag | 287 | (wisent-raw-tag |
| 289 | (semantic-tag $1 'use-name)))) | 288 | (semantic-tag $1 'use-name)))) |
| 290 | (use_macros_decl | 289 | (use_macros_decl |
| 291 | ((USE-MACROS SYMBOL use_name_list) | 290 | ((USE-MACROS SYMBOL use_name_list) |
| 292 | `(wisent-raw-tag | 291 | `(wisent-raw-tag |
| 293 | (semantic-tag "macro" 'macro :type ',$2 :value ',$3)))) | 292 | (semantic-tag "macro" 'macro :type ',$2 :value ',$3)))) |
| 294 | (string_value | 293 | (string_value |
| 295 | ((STRING) | 294 | ((STRING) |
| 296 | (read $1))) | 295 | (read $1))) |
| 297 | (any_value | 296 | (any_value |
| 298 | ((SYMBOL)) | 297 | ((SYMBOL)) |
| 299 | ((STRING)) | 298 | ((STRING)) |
| 300 | ((PAREN_BLOCK)) | 299 | ((PAREN_BLOCK)) |
| 301 | ((PREFIXED_LIST)) | 300 | ((PREFIXED_LIST)) |
| 302 | ((SEXP))) | 301 | ((SEXP))) |
| 303 | (symbols | 302 | (symbols |
| 304 | ((lifo_symbols) | 303 | ((lifo_symbols) |
| 305 | (nreverse $1))) | 304 | (nreverse $1))) |
| 306 | (lifo_symbols | 305 | (lifo_symbols |
| 307 | ((lifo_symbols SYMBOL) | 306 | ((lifo_symbols SYMBOL) |
| 308 | (cons $2 $1)) | 307 | (cons $2 $1)) |
| 309 | ((SYMBOL) | 308 | ((SYMBOL) |
| 310 | (list $1))) | 309 | (list $1))) |
| 311 | (nonterminal | 310 | (nonterminal |
| 312 | ((SYMBOL | 311 | ((SYMBOL |
| 313 | (setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0) | 312 | (setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0) |
| 314 | COLON rules SEMI) | 313 | COLON rules SEMI) |
| 315 | (wisent-raw-tag | 314 | (wisent-raw-tag |
| 316 | (semantic-tag $1 'nonterminal :children $4)))) | 315 | (semantic-tag $1 'nonterminal :children $4)))) |
| 317 | (rules | 316 | (rules |
| 318 | ((lifo_rules) | 317 | ((lifo_rules) |
| 319 | (apply 'nconc | 318 | (apply 'nconc |
| 320 | (nreverse $1)))) | 319 | (nreverse $1)))) |
| 321 | (lifo_rules | 320 | (lifo_rules |
| 322 | ((lifo_rules OR rule) | 321 | ((lifo_rules OR rule) |
| 323 | (cons $3 $1)) | 322 | (cons $3 $1)) |
| 324 | ((rule) | 323 | ((rule) |
| 325 | (list $1))) | 324 | (list $1))) |
| 326 | (rule | 325 | (rule |
| 327 | ((rhs) | 326 | ((rhs) |
| 328 | (let* | 327 | (let* |
| 329 | ((nterm semantic-grammar-wy--nterm) | 328 | ((nterm semantic-grammar-wy--nterm) |
| 330 | (rindx semantic-grammar-wy--rindx) | 329 | (rindx semantic-grammar-wy--rindx) |
| 331 | (rhs $1) | 330 | (rhs $1) |
| 332 | comps prec action elt) | 331 | comps prec action elt) |
| 333 | (setq semantic-grammar-wy--rindx | 332 | (setq semantic-grammar-wy--rindx |
| 334 | (1+ semantic-grammar-wy--rindx)) | 333 | (1+ semantic-grammar-wy--rindx)) |
| 335 | (while rhs | 334 | (while rhs |
| 336 | (setq elt | 335 | (setq elt |
| 337 | (car rhs) | 336 | (car rhs) |
| 338 | rhs | 337 | rhs |
| 339 | (cdr rhs)) | 338 | (cdr rhs)) |
| 340 | (cond | 339 | (cond |
| 341 | ((vectorp elt) | 340 | ((vectorp elt) |
| 342 | (if prec | 341 | (if prec |
| 343 | (error "Duplicate %%prec in `%s:%d' rule" nterm rindx)) | 342 | (error "Duplicate %%prec in `%s:%d' rule" nterm rindx)) |
| 344 | (setq prec | 343 | (setq prec |
| 345 | (aref elt 0))) | 344 | (aref elt 0))) |
| 346 | ((consp elt) | 345 | ((consp elt) |
| 347 | (if | 346 | (if |
| 348 | (or action comps) | 347 | (or action comps) |
| 349 | (setq comps | 348 | (setq comps |
| 350 | (cons elt comps) | 349 | (cons elt comps) |
| 351 | semantic-grammar-wy--rindx | 350 | semantic-grammar-wy--rindx |
| 352 | (1+ semantic-grammar-wy--rindx)) | 351 | (1+ semantic-grammar-wy--rindx)) |
| 353 | (setq action | 352 | (setq action |
| 354 | (car elt)))) | 353 | (car elt)))) |
| 355 | (t | 354 | (t |
| 356 | (setq comps | 355 | (setq comps |
| 357 | (cons elt comps))))) | 356 | (cons elt comps))))) |
| 358 | (wisent-cook-tag | 357 | (wisent-cook-tag |
| 359 | (wisent-raw-tag | 358 | (wisent-raw-tag |
| 360 | (semantic-tag | 359 | (semantic-tag |
| 361 | (format "%s:%d" nterm rindx) | 360 | (format "%s:%d" nterm rindx) |
| 362 | 'rule :type | 361 | 'rule :type |
| 363 | (if comps "group" "empty") | 362 | (if comps "group" "empty") |
| 364 | :value comps :prec prec :expr action)))))) | 363 | :value comps :prec prec :expr action)))))) |
| 365 | (rhs | 364 | (rhs |
| 366 | (nil) | 365 | (nil) |
| 367 | ((rhs item) | 366 | ((rhs item) |
| 368 | (cons $2 $1)) | 367 | (cons $2 $1)) |
| 369 | ((rhs action) | 368 | ((rhs action) |
| 370 | (cons | 369 | (cons |
| 371 | (list $2) | 370 | (list $2) |
| 372 | $1)) | 371 | $1)) |
| 373 | ((rhs PREC item) | 372 | ((rhs PREC item) |
| 374 | (cons | 373 | (cons |
| 375 | (vector $3) | 374 | (vector $3) |
| 376 | $1))) | 375 | $1))) |
| 377 | (action | 376 | (action |
| 378 | ((PAREN_BLOCK)) | 377 | ((PAREN_BLOCK)) |
| 379 | ((PREFIXED_LIST)) | 378 | ((PREFIXED_LIST)) |
| 380 | ((BRACE_BLOCK) | 379 | ((BRACE_BLOCK) |
| 381 | (format "(progn\n%s)" | 380 | (format "(progn\n%s)" |
| 382 | (let | 381 | (let |
| 383 | ((s $1)) | 382 | ((s $1)) |
| 384 | (if | 383 | (if |
| 385 | (string-match "^{[ \n ]*" s) | 384 | (string-match "^{[ \n ]*" s) |
| 386 | (setq s | 385 | (setq s |
| 387 | (substring s | 386 | (substring s |
| 388 | (match-end 0)))) | 387 | (match-end 0)))) |
| 389 | (if | 388 | (if |
| 390 | (string-match "[ \n ]*}$" s) | 389 | (string-match "[ \n ]*}$" s) |
| 391 | (setq s | 390 | (setq s |
| 392 | (substring s 0 | 391 | (substring s 0 |
| 393 | (match-beginning 0)))) | 392 | (match-beginning 0)))) |
| 394 | s)))) | 393 | s)))) |
| 395 | (items | 394 | (items |
| 396 | ((lifo_items) | 395 | ((lifo_items) |
| 397 | (nreverse $1))) | 396 | (nreverse $1))) |
| 398 | (lifo_items | 397 | (lifo_items |
| 399 | ((lifo_items item) | 398 | ((lifo_items item) |
| 400 | (cons $2 $1)) | 399 | (cons $2 $1)) |
| 401 | ((item) | 400 | ((item) |
| 402 | (list $1))) | 401 | (list $1))) |
| 403 | (item | 402 | (item |
| 404 | ((SYMBOL)) | 403 | ((SYMBOL)) |
| 405 | ((CHARACTER)))) | 404 | ((CHARACTER)))) |
| 406 | '(grammar prologue epilogue declaration nonterminal rule put_names put_values use_names))) | 405 | '(grammar prologue epilogue declaration nonterminal rule put_names put_values use_names))) |
| 407 | "Parser table.") | 406 | "Parser table.") |
| 408 | 407 | ||
| @@ -411,10 +410,10 @@ | |||
| 411 | (semantic-install-function-overrides | 410 | (semantic-install-function-overrides |
| 412 | '((parse-stream . wisent-parse-stream))) | 411 | '((parse-stream . wisent-parse-stream))) |
| 413 | (setq semantic-parser-name "LALR" | 412 | (setq semantic-parser-name "LALR" |
| 414 | semantic--parse-table semantic-grammar-wy--parse-table | 413 | semantic--parse-table semantic-grammar-wy--parse-table |
| 415 | semantic-debug-parser-source "semantic-grammar.wy" | 414 | semantic-debug-parser-source "semantic-grammar.wy" |
| 416 | semantic-flex-keywords-obarray semantic-grammar-wy--keyword-table | 415 | semantic-flex-keywords-obarray semantic-grammar-wy--keyword-table |
| 417 | semantic-lex-types-obarray semantic-grammar-wy--token-table) | 416 | semantic-lex-types-obarray semantic-grammar-wy--token-table) |
| 418 | ;; Collect unmatched syntax lexical tokens | 417 | ;; Collect unmatched syntax lexical tokens |
| 419 | (semantic-make-local-hook 'wisent-discarding-token-functions) | 418 | (semantic-make-local-hook 'wisent-discarding-token-functions) |
| 420 | (add-hook 'wisent-discarding-token-functions | 419 | (add-hook 'wisent-discarding-token-functions |
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 1d1184e534f..98b1ab55c32 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el | |||
| @@ -104,10 +104,10 @@ It ignores whitespaces, newlines and comments." | |||
| 104 | ;; regexp match semicolons inside strings! | 104 | ;; regexp match semicolons inside strings! |
| 105 | semantic-lex-ignore-comments | 105 | semantic-lex-ignore-comments |
| 106 | ;; Must detect prefixed list before punctuation because prefix chars | 106 | ;; Must detect prefixed list before punctuation because prefix chars |
| 107 | ;; are also punctuations! | 107 | ;; are also punctuation! |
| 108 | semantic-grammar-wy--<qlist>-sexp-analyzer | 108 | semantic-grammar-wy--<qlist>-sexp-analyzer |
| 109 | ;; Must detect punctuations after comments because the semicolon can | 109 | ;; Must detect punctuation after comments because the semicolon can |
| 110 | ;; be a punctuation or a comment start! | 110 | ;; be punctuation or a comment start! |
| 111 | semantic-grammar-wy--<punctuation>-string-analyzer | 111 | semantic-grammar-wy--<punctuation>-string-analyzer |
| 112 | semantic-grammar-wy--<block>-block-analyzer | 112 | semantic-grammar-wy--<block>-block-analyzer |
| 113 | semantic-grammar-wy--<sexp>-sexp-analyzer) | 113 | semantic-grammar-wy--<sexp>-sexp-analyzer) |
diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el index 95a68673b8c..edd62cc5ca5 100644 --- a/lisp/cedet/semantic/ia-sb.el +++ b/lisp/cedet/semantic/ia-sb.el | |||
| @@ -348,7 +348,7 @@ TEXT TAG and INDENT are the details." | |||
| 348 | (insert (semantic-tag-name tag)) | 348 | (insert (semantic-tag-name tag)) |
| 349 | (if movepoint (setq movepoint (point))) | 349 | (if movepoint (setq movepoint (point))) |
| 350 | ;; I'd like to use this to add fancy () or what not at the end | 350 | ;; I'd like to use this to add fancy () or what not at the end |
| 351 | ;; but we need the parent file whih requires an upgrade to the | 351 | ;; but we need the parent file which requires an upgrade to the |
| 352 | ;; analysis tool. | 352 | ;; analysis tool. |
| 353 | ;;(semantic-insert-foreign-tag tag ??)) | 353 | ;;(semantic-insert-foreign-tag tag ??)) |
| 354 | ) | 354 | ) |
diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el index 03a3f1b0cb1..cf82da303ce 100644 --- a/lisp/cedet/semantic/lex-spp.el +++ b/lisp/cedet/semantic/lex-spp.el | |||
| @@ -452,7 +452,7 @@ continue processing recursively." | |||
| 452 | ;; If val is nil, that's probably wrong. | 452 | ;; If val is nil, that's probably wrong. |
| 453 | ;; Found a system header case where this was true. | 453 | ;; Found a system header case where this was true. |
| 454 | ((null val) "") | 454 | ((null val) "") |
| 455 | ;; Debug wierd stuff. | 455 | ;; Debug weird stuff. |
| 456 | (t (debug))) | 456 | (t (debug))) |
| 457 | )) | 457 | )) |
| 458 | ((stringp txt) | 458 | ((stringp txt) |
| @@ -821,7 +821,7 @@ STR occurs in the current buffer between BEG and END." | |||
| 821 | ;; a macro. | 821 | ;; a macro. |
| 822 | 822 | ||
| 823 | (defun semantic-lex-spp-first-token-arg-list (token) | 823 | (defun semantic-lex-spp-first-token-arg-list (token) |
| 824 | "If TOKEN is a semantic-list, turn it into a an SPP ARG LIST." | 824 | "If TOKEN is a semantic-list, turn it into an SPP ARG LIST." |
| 825 | (when (and (consp token) | 825 | (when (and (consp token) |
| 826 | (symbolp (car token)) | 826 | (symbolp (car token)) |
| 827 | (eq 'semantic-list (car token))) | 827 | (eq 'semantic-list (car token))) |
diff --git a/lisp/cedet/semantic/lex.el b/lisp/cedet/semantic/lex.el index fca367ecb8c..ba43ba657a1 100644 --- a/lisp/cedet/semantic/lex.el +++ b/lisp/cedet/semantic/lex.el | |||
| @@ -165,7 +165,7 @@ | |||
| 165 | ;; | 165 | ;; |
| 166 | ;; %type <punctuation> syntax "\\(\\s.\\|\\s$\\|\\s'\\)+" matchdatatype string | 166 | ;; %type <punctuation> syntax "\\(\\s.\\|\\s$\\|\\s'\\)+" matchdatatype string |
| 167 | ;; | 167 | ;; |
| 168 | ;; ;; Some punctuations based on the type defines above | 168 | ;; ;; Some punctuation based on the type defines above |
| 169 | ;; | 169 | ;; |
| 170 | ;; %token <punctuation> NOT "!" | 170 | ;; %token <punctuation> NOT "!" |
| 171 | ;; %token <punctuation> NOTEQ "!=" | 171 | ;; %token <punctuation> NOTEQ "!=" |
| @@ -1313,7 +1313,7 @@ and number formats." | |||
| 1313 | 1313 | ||
| 1314 | (define-lex-analyzer semantic-lex-punctuation-type | 1314 | (define-lex-analyzer semantic-lex-punctuation-type |
| 1315 | "Detect and create a punctuation type token. | 1315 | "Detect and create a punctuation type token. |
| 1316 | Recognized punctuations are defined in the current table of lexical | 1316 | Recognized punctuation is defined in the current table of lexical |
| 1317 | types, as the value of the `punctuation' token type." | 1317 | types, as the value of the `punctuation' token type." |
| 1318 | (and (looking-at "\\(\\s.\\|\\s$\\|\\s'\\)+") | 1318 | (and (looking-at "\\(\\s.\\|\\s$\\|\\s'\\)+") |
| 1319 | (let* ((key (match-string 0)) | 1319 | (let* ((key (match-string 0)) |
diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el index 5399d4d5649..b4618d1c18f 100644 --- a/lisp/cedet/semantic/senator.el +++ b/lisp/cedet/semantic/senator.el | |||
| @@ -179,8 +179,8 @@ source." | |||
| 179 | (goto-char (semantic-tag-start tag)) | 179 | (goto-char (semantic-tag-start tag)) |
| 180 | (when (re-search-forward (concat | 180 | (when (re-search-forward (concat |
| 181 | ;; The tag name is expected to be | 181 | ;; The tag name is expected to be |
| 182 | ;; between word delimiters, whitespaces, | 182 | ;; between word delimiters, whitespace, |
| 183 | ;; or punctuations. | 183 | ;; or punctuation. |
| 184 | "\\(\\<\\|\\s-+\\|\\s.\\)" | 184 | "\\(\\<\\|\\s-+\\|\\s.\\)" |
| 185 | (regexp-quote name) | 185 | (regexp-quote name) |
| 186 | "\\(\\>\\|\\s-+\\|\\s.\\)") | 186 | "\\(\\>\\|\\s-+\\|\\s.\\)") |
diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el index c3d8b26810c..a4126e1384b 100644 --- a/lisp/cedet/semantic/sort.el +++ b/lisp/cedet/semantic/sort.el | |||
| @@ -229,7 +229,7 @@ unmodified as components of their parent tags." | |||
| 229 | (mapc (lambda (tag) | 229 | (mapc (lambda (tag) |
| 230 | (let ((components (semantic-tag-components tag))) | 230 | (let ((components (semantic-tag-components tag))) |
| 231 | (if (and components | 231 | (if (and components |
| 232 | ;; unpositined tags can be hazardous to | 232 | ;; unpositioned tags can be hazardous to |
| 233 | ;; completion. Do we need any type of tag | 233 | ;; completion. Do we need any type of tag |
| 234 | ;; here? - EL | 234 | ;; here? - EL |
| 235 | (semantic-tag-with-position-p (car components))) | 235 | (semantic-tag-with-position-p (car components))) |
diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el index 61006802c0d..cbae9f85573 100644 --- a/lisp/cedet/semantic/symref.el +++ b/lisp/cedet/semantic/symref.el | |||
| @@ -324,7 +324,7 @@ Use the `semantic-symref-hit-tags' method to get this list.") | |||
| 324 | (setq ans (list (car files)) | 324 | (setq ans (list (car files)) |
| 325 | files (cdr files)) | 325 | files (cdr files)) |
| 326 | (dolist (F files) | 326 | (dolist (F files) |
| 327 | ;; This algorithm for uniqing the file list depends on the | 327 | ;; This algorithm for uniquifying the file list depends on the |
| 328 | ;; tool in question providing all the hits in the same file | 328 | ;; tool in question providing all the hits in the same file |
| 329 | ;; grouped together. | 329 | ;; grouped together. |
| 330 | (when (not (string= F (car ans))) | 330 | (when (not (string= F (car ans))) |
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index ce3500f83e1..53422541c47 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el | |||
| @@ -401,7 +401,7 @@ BUTTON is the button that was clicked." | |||
| 401 | 401 | ||
| 402 | ;;; UTILS | 402 | ;;; UTILS |
| 403 | ;; | 403 | ;; |
| 404 | ;; List mode utils for understadning the current line | 404 | ;; List mode utils for understanding the current line |
| 405 | 405 | ||
| 406 | (defun semantic-symref-list-on-hit-p () | 406 | (defun semantic-symref-list-on-hit-p () |
| 407 | "Return the line number if the cursor is on a buffer line with a hit. | 407 | "Return the line number if the cursor is on a buffer line with a hit. |
diff --git a/lisp/cedet/semantic/wisent/javat-wy.el b/lisp/cedet/semantic/wisent/javat-wy.el index 4470b87a1f1..562b0da6caa 100644 --- a/lisp/cedet/semantic/wisent/javat-wy.el +++ b/lisp/cedet/semantic/wisent/javat-wy.el | |||
| @@ -19,12 +19,11 @@ | |||
| 19 | 19 | ||
| 20 | ;;; Commentary: | 20 | ;;; Commentary: |
| 21 | ;; | 21 | ;; |
| 22 | ;; This file was generated from etc/java-tags.wy. | 22 | ;; This file was generated from admin/grammars/java-tags.wy. |
| 23 | 23 | ||
| 24 | ;;; Code: | 24 | ;;; Code: |
| 25 | 25 | ||
| 26 | (require 'semantic/lex) | 26 | (require 'semantic/lex) |
| 27 | |||
| 28 | 27 | ||
| 29 | ;;; Prologue | 28 | ;;; Prologue |
| 30 | ;; | 29 | ;; |
| @@ -396,7 +395,7 @@ | |||
| 396 | ((SEMICOLON)) | 395 | ((SEMICOLON)) |
| 397 | ((block))) | 396 | ((block))) |
| 398 | (block | 397 | (block |
| 399 | ((BRACE_BLOCK))) | 398 | ((BRACE_BLOCK))) |
| 400 | (formal_parameter_list | 399 | (formal_parameter_list |
| 401 | ((PAREN_BLOCK) | 400 | ((PAREN_BLOCK) |
| 402 | (semantic-parse-region | 401 | (semantic-parse-region |
| @@ -557,7 +556,7 @@ | |||
| 557 | '((parse-stream . wisent-parse-stream))) | 556 | '((parse-stream . wisent-parse-stream))) |
| 558 | (setq semantic-parser-name "LALR" | 557 | (setq semantic-parser-name "LALR" |
| 559 | semantic--parse-table wisent-java-tags-wy--parse-table | 558 | semantic--parse-table wisent-java-tags-wy--parse-table |
| 560 | semantic-debug-parser-source "wisent-java-tags.wy" | 559 | semantic-debug-parser-source "java-tags.wy" |
| 561 | semantic-flex-keywords-obarray wisent-java-tags-wy--keyword-table | 560 | semantic-flex-keywords-obarray wisent-java-tags-wy--keyword-table |
| 562 | semantic-lex-types-obarray wisent-java-tags-wy--token-table) | 561 | semantic-lex-types-obarray wisent-java-tags-wy--token-table) |
| 563 | ;; Collect unmatched syntax lexical tokens | 562 | ;; Collect unmatched syntax lexical tokens |
| @@ -567,10 +566,6 @@ | |||
| 567 | 566 | ||
| 568 | 567 | ||
| 569 | ;;; Analyzers | 568 | ;;; Analyzers |
| 570 | ;; | ||
| 571 | (define-lex-keyword-type-analyzer wisent-java-tags-wy--<keyword>-keyword-analyzer | ||
| 572 | "keyword analyzer for <keyword> tokens." | ||
| 573 | "\\(\\sw\\|\\s_\\)+") | ||
| 574 | 569 | ||
| 575 | (define-lex-block-type-analyzer wisent-java-tags-wy--<block>-block-analyzer | 570 | (define-lex-block-type-analyzer wisent-java-tags-wy--<block>-block-analyzer |
| 576 | "block analyzer for <block> tokens." | 571 | "block analyzer for <block> tokens." |
| @@ -583,23 +578,6 @@ | |||
| 583 | ("]" RBRACK)) | 578 | ("]" RBRACK)) |
| 584 | ) | 579 | ) |
| 585 | 580 | ||
| 586 | (define-lex-regex-type-analyzer wisent-java-tags-wy--<symbol>-regexp-analyzer | ||
| 587 | "regexp analyzer for <symbol> tokens." | ||
| 588 | "\\(\\sw\\|\\s_\\)+" | ||
| 589 | nil | ||
| 590 | 'IDENTIFIER) | ||
| 591 | |||
| 592 | (define-lex-sexp-type-analyzer wisent-java-tags-wy--<string>-sexp-analyzer | ||
| 593 | "sexp analyzer for <string> tokens." | ||
| 594 | "\\s\"" | ||
| 595 | 'STRING_LITERAL) | ||
| 596 | |||
| 597 | (define-lex-regex-type-analyzer wisent-java-tags-wy--<number>-regexp-analyzer | ||
| 598 | "regexp analyzer for <number> tokens." | ||
| 599 | semantic-lex-number-expression | ||
| 600 | nil | ||
| 601 | 'NUMBER_LITERAL) | ||
| 602 | |||
| 603 | (define-lex-string-type-analyzer wisent-java-tags-wy--<punctuation>-string-analyzer | 581 | (define-lex-string-type-analyzer wisent-java-tags-wy--<punctuation>-string-analyzer |
| 604 | "string analyzer for <punctuation> tokens." | 582 | "string analyzer for <punctuation> tokens." |
| 605 | "\\(\\s.\\|\\s$\\|\\s'\\)+" | 583 | "\\(\\s.\\|\\s$\\|\\s'\\)+" |
| @@ -645,12 +623,33 @@ | |||
| 645 | (NOT . "!")) | 623 | (NOT . "!")) |
| 646 | 'punctuation) | 624 | 'punctuation) |
| 647 | 625 | ||
| 626 | (define-lex-regex-type-analyzer wisent-java-tags-wy--<symbol>-regexp-analyzer | ||
| 627 | "regexp analyzer for <symbol> tokens." | ||
| 628 | "\\(\\sw\\|\\s_\\)+" | ||
| 629 | nil | ||
| 630 | 'IDENTIFIER) | ||
| 631 | |||
| 648 | (define-lex-regex-type-analyzer wisent-java-tags-wy--<unicode>-regexp-analyzer | 632 | (define-lex-regex-type-analyzer wisent-java-tags-wy--<unicode>-regexp-analyzer |
| 649 | "regexp analyzer for <unicode> tokens." | 633 | "regexp analyzer for <unicode> tokens." |
| 650 | "\\\\u[0-9a-f][0-9a-f][0-9a-f][0-9a-f]" | 634 | "\\\\u[0-9a-f][0-9a-f][0-9a-f][0-9a-f]" |
| 651 | nil | 635 | nil |
| 652 | 'unicodecharacter) | 636 | 'unicodecharacter) |
| 653 | 637 | ||
| 638 | (define-lex-regex-type-analyzer wisent-java-tags-wy--<number>-regexp-analyzer | ||
| 639 | "regexp analyzer for <number> tokens." | ||
| 640 | semantic-lex-number-expression | ||
| 641 | nil | ||
| 642 | 'NUMBER_LITERAL) | ||
| 643 | |||
| 644 | (define-lex-sexp-type-analyzer wisent-java-tags-wy--<string>-sexp-analyzer | ||
| 645 | "sexp analyzer for <string> tokens." | ||
| 646 | "\\s\"" | ||
| 647 | 'STRING_LITERAL) | ||
| 648 | |||
| 649 | (define-lex-keyword-type-analyzer wisent-java-tags-wy--<keyword>-keyword-analyzer | ||
| 650 | "keyword analyzer for <keyword> tokens." | ||
| 651 | "\\(\\sw\\|\\s_\\)+") | ||
| 652 | |||
| 654 | 653 | ||
| 655 | ;;; Epilogue | 654 | ;;; Epilogue |
| 656 | ;; | 655 | ;; |
diff --git a/lisp/cedet/semantic/wisent/js-wy.el b/lisp/cedet/semantic/wisent/js-wy.el index b523db8771b..c8dded08d1f 100644 --- a/lisp/cedet/semantic/wisent/js-wy.el +++ b/lisp/cedet/semantic/wisent/js-wy.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; semantic/wisent/js-wy.el --- Generated parser support file | 1 | ;;; semantic/wisent/js-wy.el --- Generated parser support file |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2005, 2009-2011 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2005, 2009-2011 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) Ecma International. | 4 | ;; Copyright (C) 1998-2011 Ecma International |
| 5 | 5 | ||
| 6 | ;; This file is part of GNU Emacs. | 6 | ;; This file is part of GNU Emacs. |
| 7 | 7 | ||
| @@ -20,9 +20,45 @@ | |||
| 20 | 20 | ||
| 21 | ;;; Commentary: | 21 | ;;; Commentary: |
| 22 | ;; | 22 | ;; |
| 23 | ;; This file was generated from etc/grammars/javascript-jv.wy. | 23 | ;; This file was generated from admin/grammars/js.wy. |
| 24 | |||
| 25 | ;; It is derived from the grammar in the ECMAScript Language | ||
| 26 | ;; Specification published at | ||
| 27 | ;; | ||
| 28 | ;; http://www.ecma-international.org/publications/standards/Ecma-262.htm | ||
| 29 | ;; | ||
| 30 | ;; and redistributed under the following license: | ||
| 31 | ;; | ||
| 32 | ;; Redistribution and use in source and binary forms, with or without | ||
| 33 | ;; modification, are permitted provided that the following conditions | ||
| 34 | ;; are met: | ||
| 35 | ;; | ||
| 36 | ;; 1. Redistributions of source code must retain the above copyright | ||
| 37 | ;; notice, this list of conditions and the following disclaimer. | ||
| 38 | ;; | ||
| 39 | ;; 2. Redistributions in binary form must reproduce the above | ||
| 40 | ;; copyright notice, this list of conditions and the following | ||
| 41 | ;; disclaimer in the documentation and/or other materials provided | ||
| 42 | ;; with the distribution. | ||
| 43 | ;; | ||
| 44 | ;; 3. Neither the name of the authors nor Ecma International may be | ||
| 45 | ;; used to endorse or promote products derived from this software | ||
| 46 | ;; without specific prior written permission. THIS SOFTWARE IS | ||
| 47 | ;; PROVIDED BY THE ECMA INTERNATIONAL "AS IS" AND ANY EXPRESS OR | ||
| 48 | ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED | ||
| 49 | ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
| 50 | ;; ARE DISCLAIMED. IN NO EVENT SHALL ECMA INTERNATIONAL BE LIABLE FOR | ||
| 51 | ;; ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | ||
| 52 | ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT | ||
| 53 | ;; OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR | ||
| 54 | ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF | ||
| 55 | ;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | ||
| 56 | ;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | ||
| 57 | ;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH | ||
| 58 | ;; DAMAGE. | ||
| 24 | 59 | ||
| 25 | ;;; Code: | 60 | ;;; Code: |
| 61 | |||
| 26 | (require 'semantic/lex) | 62 | (require 'semantic/lex) |
| 27 | 63 | ||
| 28 | ;;; Prologue | 64 | ;;; Prologue |
| @@ -370,7 +406,7 @@ | |||
| 370 | '((parse-stream . wisent-parse-stream))) | 406 | '((parse-stream . wisent-parse-stream))) |
| 371 | (setq semantic-parser-name "LALR" | 407 | (setq semantic-parser-name "LALR" |
| 372 | semantic--parse-table wisent-javascript-jv-wy--parse-table | 408 | semantic--parse-table wisent-javascript-jv-wy--parse-table |
| 373 | semantic-debug-parser-source "wisent-javascript-jv.wy" | 409 | semantic-debug-parser-source "js.wy" |
| 374 | semantic-flex-keywords-obarray wisent-javascript-jv-wy--keyword-table | 410 | semantic-flex-keywords-obarray wisent-javascript-jv-wy--keyword-table |
| 375 | semantic-lex-types-obarray wisent-javascript-jv-wy--token-table) | 411 | semantic-lex-types-obarray wisent-javascript-jv-wy--token-table) |
| 376 | ;; Collect unmatched syntax lexical tokens | 412 | ;; Collect unmatched syntax lexical tokens |
| @@ -380,38 +416,6 @@ | |||
| 380 | 416 | ||
| 381 | 417 | ||
| 382 | ;;; Analyzers | 418 | ;;; Analyzers |
| 383 | ;; | ||
| 384 | (define-lex-keyword-type-analyzer wisent-javascript-jv-wy--<keyword>-keyword-analyzer | ||
| 385 | "keyword analyzer for <keyword> tokens." | ||
| 386 | "\\(\\sw\\|\\s_\\)+") | ||
| 387 | |||
| 388 | (define-lex-block-type-analyzer wisent-javascript-jv-wy--<block>-block-analyzer | ||
| 389 | "block analyzer for <block> tokens." | ||
| 390 | "\\s(\\|\\s)" | ||
| 391 | '((("(" OPEN_PARENTHESIS PAREN_BLOCK) | ||
| 392 | ("{" START_BLOCK BRACE_BLOCK) | ||
| 393 | ("[" OPEN_SQ_BRACKETS BRACK_BLOCK)) | ||
| 394 | (")" CLOSE_PARENTHESIS) | ||
| 395 | ("}" END_BLOCK) | ||
| 396 | ("]" CLOSE_SQ_BRACKETS)) | ||
| 397 | ) | ||
| 398 | |||
| 399 | (define-lex-regex-type-analyzer wisent-javascript-jv-wy--<symbol>-regexp-analyzer | ||
| 400 | "regexp analyzer for <symbol> tokens." | ||
| 401 | "\\(\\sw\\|\\s_\\)+" | ||
| 402 | nil | ||
| 403 | 'VARIABLE) | ||
| 404 | |||
| 405 | (define-lex-sexp-type-analyzer wisent-javascript-jv-wy--<string>-sexp-analyzer | ||
| 406 | "sexp analyzer for <string> tokens." | ||
| 407 | "\\s\"" | ||
| 408 | 'STRING) | ||
| 409 | |||
| 410 | (define-lex-regex-type-analyzer wisent-javascript-jv-wy--<number>-regexp-analyzer | ||
| 411 | "regexp analyzer for <number> tokens." | ||
| 412 | semantic-lex-number-expression | ||
| 413 | nil | ||
| 414 | 'NUMBER) | ||
| 415 | 419 | ||
| 416 | (define-lex-string-type-analyzer wisent-javascript-jv-wy--<punctuation>-string-analyzer | 420 | (define-lex-string-type-analyzer wisent-javascript-jv-wy--<punctuation>-string-analyzer |
| 417 | "string analyzer for <punctuation> tokens." | 421 | "string analyzer for <punctuation> tokens." |
| @@ -458,6 +462,38 @@ | |||
| 458 | (ASSIGN_SYMBOL . "=")) | 462 | (ASSIGN_SYMBOL . "=")) |
| 459 | 'punctuation) | 463 | 'punctuation) |
| 460 | 464 | ||
| 465 | (define-lex-block-type-analyzer wisent-javascript-jv-wy--<block>-block-analyzer | ||
| 466 | "block analyzer for <block> tokens." | ||
| 467 | "\\s(\\|\\s)" | ||
| 468 | '((("(" OPEN_PARENTHESIS PAREN_BLOCK) | ||
| 469 | ("{" START_BLOCK BRACE_BLOCK) | ||
| 470 | ("[" OPEN_SQ_BRACKETS BRACK_BLOCK)) | ||
| 471 | (")" CLOSE_PARENTHESIS) | ||
| 472 | ("}" END_BLOCK) | ||
| 473 | ("]" CLOSE_SQ_BRACKETS)) | ||
| 474 | ) | ||
| 475 | |||
| 476 | (define-lex-regex-type-analyzer wisent-javascript-jv-wy--<symbol>-regexp-analyzer | ||
| 477 | "regexp analyzer for <symbol> tokens." | ||
| 478 | "\\(\\sw\\|\\s_\\)+" | ||
| 479 | nil | ||
| 480 | 'VARIABLE) | ||
| 481 | |||
| 482 | (define-lex-regex-type-analyzer wisent-javascript-jv-wy--<number>-regexp-analyzer | ||
| 483 | "regexp analyzer for <number> tokens." | ||
| 484 | semantic-lex-number-expression | ||
| 485 | nil | ||
| 486 | 'NUMBER) | ||
| 487 | |||
| 488 | (define-lex-sexp-type-analyzer wisent-javascript-jv-wy--<string>-sexp-analyzer | ||
| 489 | "sexp analyzer for <string> tokens." | ||
| 490 | "\\s\"" | ||
| 491 | 'STRING) | ||
| 492 | |||
| 493 | (define-lex-keyword-type-analyzer wisent-javascript-jv-wy--<keyword>-keyword-analyzer | ||
| 494 | "keyword analyzer for <keyword> tokens." | ||
| 495 | "\\(\\sw\\|\\s_\\)+") | ||
| 496 | |||
| 461 | 497 | ||
| 462 | ;;; Epilogue | 498 | ;;; Epilogue |
| 463 | ;; | 499 | ;; |
diff --git a/lisp/cedet/semantic/wisent/python-wy.el b/lisp/cedet/semantic/wisent/python-wy.el index 36965757a14..2445d7162a7 100644 --- a/lisp/cedet/semantic/wisent/python-wy.el +++ b/lisp/cedet/semantic/wisent/python-wy.el | |||
| @@ -20,7 +20,58 @@ | |||
| 20 | 20 | ||
| 21 | ;;; Commentary: | 21 | ;;; Commentary: |
| 22 | ;; | 22 | ;; |
| 23 | ;; This file was generated from etc/grammars/python.wy. | 23 | ;; This file was generated from admin/grammars/python.wy. |
| 24 | ;; It is derived in part from the Python grammar, used under the | ||
| 25 | ;; following license: | ||
| 26 | ;; | ||
| 27 | ;; PYTHON SOFTWARE FOUNDATION LICENSE VERSION 2 | ||
| 28 | ;; -------------------------------------------- | ||
| 29 | ;; 1. This LICENSE AGREEMENT is between the Python Software Foundation | ||
| 30 | ;; ("PSF"), and the Individual or Organization ("Licensee") accessing | ||
| 31 | ;; and otherwise using this software ("Python") in source or binary | ||
| 32 | ;; form and its associated documentation. | ||
| 33 | ;; | ||
| 34 | ;; 2. Subject to the terms and conditions of this License Agreement, | ||
| 35 | ;; PSF hereby grants Licensee a nonexclusive, royalty-free, world-wide | ||
| 36 | ;; license to reproduce, analyze, test, perform and/or display | ||
| 37 | ;; publicly, prepare derivative works, distribute, and otherwise use | ||
| 38 | ;; Python alone or in any derivative version, provided, however, that | ||
| 39 | ;; PSF's License Agreement and PSF's notice of copyright, i.e., | ||
| 40 | ;; "Copyright (c) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, | ||
| 41 | ;; 2009, 2010 Python Software Foundation; All Rights Reserved" are | ||
| 42 | ;; retained in Python alone or in any derivative version prepared by | ||
| 43 | ;; Licensee. | ||
| 44 | ;; | ||
| 45 | ;; 3. In the event Licensee prepares a derivative work that is based | ||
| 46 | ;; on or incorporates Python or any part thereof, and wants to make | ||
| 47 | ;; the derivative work available to others as provided herein, then | ||
| 48 | ;; Licensee hereby agrees to include in any such work a brief summary | ||
| 49 | ;; of the changes made to Python. | ||
| 50 | ;; | ||
| 51 | ;; 4. PSF is making Python available to Licensee on an "AS IS" | ||
| 52 | ;; basis. PSF MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR | ||
| 53 | ;; IMPLIED. BY WAY OF EXAMPLE, BUT NOT LIMITATION, PSF MAKES NO AND | ||
| 54 | ;; DISCLAIMS ANY REPRESENTATION OR WARRANTY OF MERCHANTABILITY OR FITNESS | ||
| 55 | ;; FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF PYTHON WILL NOT | ||
| 56 | ;; INFRINGE ANY THIRD PARTY RIGHTS. | ||
| 57 | ;; | ||
| 58 | ;; 5. PSF SHALL NOT BE LIABLE TO LICENSEE OR ANY OTHER USERS OF PYTHON | ||
| 59 | ;; FOR ANY INCIDENTAL, SPECIAL, OR CONSEQUENTIAL DAMAGES OR LOSS AS A | ||
| 60 | ;; RESULT OF MODIFYING, DISTRIBUTING, OR OTHERWISE USING PYTHON, OR | ||
| 61 | ;; ANY DERIVATIVE THEREOF, EVEN IF ADVISED OF THE POSSIBILITY THEREOF. | ||
| 62 | ;; | ||
| 63 | ;; 6. This License Agreement will automatically terminate upon a | ||
| 64 | ;; material breach of its terms and conditions. | ||
| 65 | ;; | ||
| 66 | ;; 7. Nothing in this License Agreement shall be deemed to create any | ||
| 67 | ;; relationship of agency, partnership, or joint venture between PSF | ||
| 68 | ;; and Licensee. This License Agreement does not grant permission to | ||
| 69 | ;; use PSF trademarks or trade name in a trademark sense to endorse or | ||
| 70 | ;; promote products or services of Licensee, or any third party. | ||
| 71 | ;; | ||
| 72 | ;; 8. By copying, installing or otherwise using Python, Licensee | ||
| 73 | ;; agrees to be bound by the terms and conditions of this License | ||
| 74 | ;; Agreement. | ||
| 24 | 75 | ||
| 25 | ;;; Code: | 76 | ;;; Code: |
| 26 | 77 | ||
| @@ -664,7 +715,7 @@ | |||
| 664 | '((parse-stream . wisent-parse-stream))) | 715 | '((parse-stream . wisent-parse-stream))) |
| 665 | (setq semantic-parser-name "LALR" | 716 | (setq semantic-parser-name "LALR" |
| 666 | semantic--parse-table wisent-python-wy--parse-table | 717 | semantic--parse-table wisent-python-wy--parse-table |
| 667 | semantic-debug-parser-source "wisent-python.wy" | 718 | semantic-debug-parser-source "python.wy" |
| 668 | semantic-flex-keywords-obarray wisent-python-wy--keyword-table | 719 | semantic-flex-keywords-obarray wisent-python-wy--keyword-table |
| 669 | semantic-lex-types-obarray wisent-python-wy--token-table) | 720 | semantic-lex-types-obarray wisent-python-wy--token-table) |
| 670 | ;; Collect unmatched syntax lexical tokens | 721 | ;; Collect unmatched syntax lexical tokens |
| @@ -675,10 +726,6 @@ | |||
| 675 | 726 | ||
| 676 | ;;; Analyzers | 727 | ;;; Analyzers |
| 677 | 728 | ||
| 678 | (define-lex-keyword-type-analyzer wisent-python-wy--<keyword>-keyword-analyzer | ||
| 679 | "keyword analyzer for <keyword> tokens." | ||
| 680 | "\\(\\sw\\|\\s_\\)+") | ||
| 681 | |||
| 682 | (define-lex-block-type-analyzer wisent-python-wy--<block>-block-analyzer | 729 | (define-lex-block-type-analyzer wisent-python-wy--<block>-block-analyzer |
| 683 | "block analyzer for <block> tokens." | 730 | "block analyzer for <block> tokens." |
| 684 | "\\s(\\|\\s)" | 731 | "\\s(\\|\\s)" |
| @@ -690,18 +737,6 @@ | |||
| 690 | ("]" RBRACK)) | 737 | ("]" RBRACK)) |
| 691 | ) | 738 | ) |
| 692 | 739 | ||
| 693 | (define-lex-regex-type-analyzer wisent-python-wy--<symbol>-regexp-analyzer | ||
| 694 | "regexp analyzer for <symbol> tokens." | ||
| 695 | "\\(\\sw\\|\\s_\\)+" | ||
| 696 | nil | ||
| 697 | 'NAME) | ||
| 698 | |||
| 699 | (define-lex-regex-type-analyzer wisent-python-wy--<number>-regexp-analyzer | ||
| 700 | "regexp analyzer for <number> tokens." | ||
| 701 | semantic-lex-number-expression | ||
| 702 | nil | ||
| 703 | 'NUMBER_LITERAL) | ||
| 704 | |||
| 705 | (define-lex-string-type-analyzer wisent-python-wy--<punctuation>-string-analyzer | 740 | (define-lex-string-type-analyzer wisent-python-wy--<punctuation>-string-analyzer |
| 706 | "string analyzer for <punctuation> tokens." | 741 | "string analyzer for <punctuation> tokens." |
| 707 | "\\(\\s.\\|\\s$\\|\\s'\\)+" | 742 | "\\(\\s.\\|\\s$\\|\\s'\\)+" |
| @@ -745,6 +780,22 @@ | |||
| 745 | (LTLTEQ . "<<=")) | 780 | (LTLTEQ . "<<=")) |
| 746 | 'punctuation) | 781 | 'punctuation) |
| 747 | 782 | ||
| 783 | (define-lex-regex-type-analyzer wisent-python-wy--<symbol>-regexp-analyzer | ||
| 784 | "regexp analyzer for <symbol> tokens." | ||
| 785 | "\\(\\sw\\|\\s_\\)+" | ||
| 786 | nil | ||
| 787 | 'NAME) | ||
| 788 | |||
| 789 | (define-lex-regex-type-analyzer wisent-python-wy--<number>-regexp-analyzer | ||
| 790 | "regexp analyzer for <number> tokens." | ||
| 791 | semantic-lex-number-expression | ||
| 792 | nil | ||
| 793 | 'NUMBER_LITERAL) | ||
| 794 | |||
| 795 | (define-lex-keyword-type-analyzer wisent-python-wy--<keyword>-keyword-analyzer | ||
| 796 | "keyword analyzer for <keyword> tokens." | ||
| 797 | "\\(\\sw\\|\\s_\\)+") | ||
| 798 | |||
| 748 | 799 | ||
| 749 | ;;; Epilogue | 800 | ;;; Epilogue |
| 750 | ;; | 801 | ;; |
diff --git a/lisp/cedet/srecode/srt-wy.el b/lisp/cedet/srecode/srt-wy.el index 2fb8e7665e9..5bd202093e9 100644 --- a/lisp/cedet/srecode/srt-wy.el +++ b/lisp/cedet/srecode/srt-wy.el | |||
| @@ -18,13 +18,12 @@ | |||
| 18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 19 | 19 | ||
| 20 | ;;; Commentary: | 20 | ;;; Commentary: |
| 21 | 21 | ;; | |
| 22 | ;; Generated from srecode-template.wy in the CEDET repository. | 22 | ;; This file was generated from admin/grammars/srecode-template.wy. |
| 23 | 23 | ||
| 24 | ;;; Code: | 24 | ;;; Code: |
| 25 | 25 | ||
| 26 | (require 'semantic/lex) | 26 | (require 'semantic/lex) |
| 27 | |||
| 28 | 27 | ||
| 29 | ;;; Prologue | 28 | ;;; Prologue |
| 30 | ;; | 29 | ;; |
| @@ -206,10 +205,12 @@ | |||
| 206 | 205 | ||
| 207 | 206 | ||
| 208 | ;;; Analyzers | 207 | ;;; Analyzers |
| 209 | ;; | 208 | |
| 210 | (define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer | 209 | (define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer |
| 211 | "keyword analyzer for <keyword> tokens." | 210 | "string analyzer for <punctuation> tokens." |
| 212 | "\\(\\sw\\|\\s_\\)+") | 211 | "\\s.+" |
| 212 | nil | ||
| 213 | 'punctuation) | ||
| 213 | 214 | ||
| 214 | (define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer | 215 | (define-lex-regex-type-analyzer srecode-template-wy--<symbol>-regexp-analyzer |
| 215 | "regexp analyzer for <symbol> tokens." | 216 | "regexp analyzer for <symbol> tokens." |
| @@ -217,22 +218,20 @@ | |||
| 217 | nil | 218 | nil |
| 218 | 'symbol) | 219 | 'symbol) |
| 219 | 220 | ||
| 220 | (define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer | ||
| 221 | "sexp analyzer for <string> tokens." | ||
| 222 | "\\s\"" | ||
| 223 | 'string) | ||
| 224 | |||
| 225 | (define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer | 221 | (define-lex-regex-type-analyzer srecode-template-wy--<number>-regexp-analyzer |
| 226 | "regexp analyzer for <number> tokens." | 222 | "regexp analyzer for <number> tokens." |
| 227 | semantic-lex-number-expression | 223 | semantic-lex-number-expression |
| 228 | nil | 224 | nil |
| 229 | 'number) | 225 | 'number) |
| 230 | 226 | ||
| 231 | (define-lex-string-type-analyzer srecode-template-wy--<punctuation>-string-analyzer | 227 | (define-lex-sexp-type-analyzer srecode-template-wy--<string>-sexp-analyzer |
| 232 | "string analyzer for <punctuation> tokens." | 228 | "sexp analyzer for <string> tokens." |
| 233 | "\\s.+" | 229 | "\\s\"" |
| 234 | nil | 230 | 'string) |
| 235 | 'punctuation) | 231 | |
| 232 | (define-lex-keyword-type-analyzer srecode-template-wy--<keyword>-keyword-analyzer | ||
| 233 | "keyword analyzer for <keyword> tokens." | ||
| 234 | "\\(\\sw\\|\\s_\\)+") | ||
| 236 | 235 | ||
| 237 | 236 | ||
| 238 | ;;; Epilogue | 237 | ;;; Epilogue |
diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el index acfc2486711..df90f6c464f 100644 --- a/lisp/cedet/srecode/texi.el +++ b/lisp/cedet/srecode/texi.el | |||
| @@ -244,7 +244,7 @@ that class. | |||
| 244 | `function' => @dfn{function} | 244 | `function' => @dfn{function} |
| 245 | `variable' => @code{variable} | 245 | `variable' => @code{variable} |
| 246 | `class' => @code{class} @xref{class} | 246 | `class' => @code{class} @xref{class} |
| 247 | `unknown' => @code{unknonwn} | 247 | `unknown' => @code{unknown} |
| 248 | \"text\" => ``text'' | 248 | \"text\" => ``text'' |
| 249 | 'quoteme => @code{quoteme} | 249 | 'quoteme => @code{quoteme} |
| 250 | non-nil => non-@code{nil} | 250 | non-nil => non-@code{nil} |
diff --git a/lisp/color.el b/lisp/color.el index 487e280dd59..96b79a4ace2 100644 --- a/lisp/color.el +++ b/lisp/color.el | |||
| @@ -128,8 +128,8 @@ inclusive." | |||
| 128 | RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0, | 128 | RED, GREEN, and BLUE should each be numbers between 0.0 and 1.0, |
| 129 | inclusive. | 129 | inclusive. |
| 130 | 130 | ||
| 131 | Return a list (HUE, SATURATION, LUMINENCE), where HUE is in radians | 131 | Return a list (HUE, SATURATION, LUMINANCE), where HUE is in radians |
| 132 | and both SATURATION and LUMINENCE are between 0.0 and 1.0, | 132 | and both SATURATION and LUMINANCE are between 0.0 and 1.0, |
| 133 | inclusive." | 133 | inclusive." |
| 134 | (let* ((r red) | 134 | (let* ((r red) |
| 135 | (g green) | 135 | (g green) |
diff --git a/lisp/composite.el b/lisp/composite.el index 487962ee07c..72317ac470e 100644 --- a/lisp/composite.el +++ b/lisp/composite.el | |||
| @@ -656,7 +656,7 @@ prepending a space before it." | |||
| 656 | (if (not (char-charset (lglyph-char glyph) coding)) | 656 | (if (not (char-charset (lglyph-char glyph) coding)) |
| 657 | (progn | 657 | (progn |
| 658 | ;; As the terminal doesn't support this glyph, return a | 658 | ;; As the terminal doesn't support this glyph, return a |
| 659 | ;; gstring in which each glyph is its own graphme-cluster | 659 | ;; gstring in which each glyph is its own grapheme-cluster |
| 660 | ;; of width 1.. | 660 | ;; of width 1.. |
| 661 | (setq i 0) | 661 | (setq i 0) |
| 662 | (while (and (< i nglyphs) | 662 | (while (and (< i nglyphs) |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 07944a6c16f..3d5ae69fe3d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -3225,7 +3225,7 @@ Also change :reverse-video to :inverse-video." | |||
| 3225 | (if (not inactive) | 3225 | (if (not inactive) |
| 3226 | ;; Widget is alive, we don't have to do anything special | 3226 | ;; Widget is alive, we don't have to do anything special |
| 3227 | (widget-default-delete widget) | 3227 | (widget-default-delete widget) |
| 3228 | ;; WIDGET is already deleted because we did so to inactivate it; | 3228 | ;; WIDGET is already deleted because we did so to deactivate it; |
| 3229 | ;; now just get rid of the label we put in its place. | 3229 | ;; now just get rid of the label we put in its place. |
| 3230 | (delete-region (car (cdr inactive)) | 3230 | (delete-region (car (cdr inactive)) |
| 3231 | (+ (car (cdr inactive)) (cdr (cdr inactive)))) | 3231 | (+ (car (cdr inactive)) (cdr (cdr inactive)))) |
diff --git a/lisp/dframe.el b/lisp/dframe.el index b1eb2d636b9..b4f44e1a308 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el | |||
| @@ -718,7 +718,7 @@ Argument PROMPT is the prompt to use." | |||
| 718 | 718 | ||
| 719 | (defun dframe-set-timer (timeout fn &optional _null-on-error) | 719 | (defun dframe-set-timer (timeout fn &optional _null-on-error) |
| 720 | "Apply a timer with TIMEOUT, to call FN, or remove a timer if TIMEOUT is nil. | 720 | "Apply a timer with TIMEOUT, to call FN, or remove a timer if TIMEOUT is nil. |
| 721 | TIMEOUT is the number of seconds until the dframe controled program | 721 | TIMEOUT is the number of seconds until the dframe controlled program |
| 722 | timer is called again. When TIMEOUT is nil, turn off all timeouts. | 722 | timer is called again. When TIMEOUT is nil, turn off all timeouts. |
| 723 | This function must be called from the buffer belonging to the program | 723 | This function must be called from the buffer belonging to the program |
| 724 | who requested the timer. NULL-ON-ERROR is ignored." | 724 | who requested the timer. NULL-ON-ERROR is ignored." |
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index b63940cec2d..757e814dba1 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -927,8 +927,7 @@ return t; if SYM is q or ESC, return nil." | |||
| 927 | (concat (apply 'format prompt args) | 927 | (concat (apply 'format prompt args) |
| 928 | (if help-form | 928 | (if help-form |
| 929 | (format " [Type yn!q or %s] " | 929 | (format " [Type yn!q or %s] " |
| 930 | (key-description | 930 | (key-description (vector help-char))) |
| 931 | (char-to-string help-char))) | ||
| 932 | " [Type y, n, q or !] "))) | 931 | " [Type y, n, q or !] "))) |
| 933 | (set sym (setq char (read-char-choice prompt char-choices))) | 932 | (set sym (setq char (read-char-choice prompt char-choices))) |
| 934 | (if (memq char '(?y ?\s ?!)) t))))) | 933 | (if (memq char '(?y ?\s ?!)) t))))) |
diff --git a/lisp/dired.el b/lisp/dired.el index 32a7f749681..1d503a14810 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -3667,7 +3667,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." | |||
| 3667 | ;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command | 3667 | ;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command |
| 3668 | ;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown | 3668 | ;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown |
| 3669 | ;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff | 3669 | ;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff |
| 3670 | ;;;;;; dired-diff) "dired-aux" "dired-aux.el" "2026ac587f0d9e893bae7662ff9d9318") | 3670 | ;;;;;; dired-diff) "dired-aux" "dired-aux.el" "2301de52aab0488c60d2b4841b6f597f") |
| 3671 | ;;; Generated autoloads from dired-aux.el | 3671 | ;;; Generated autoloads from dired-aux.el |
| 3672 | 3672 | ||
| 3673 | (autoload 'dired-diff "dired-aux" "\ | 3673 | (autoload 'dired-diff "dired-aux" "\ |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index d16d8c6f62d..7e4329234e3 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -124,7 +124,7 @@ | |||
| 124 | ;; (except the tooltip) if the next match is on the same page. | 124 | ;; (except the tooltip) if the next match is on the same page. |
| 125 | 125 | ||
| 126 | ;; And it's much slower than the current search facility, because | 126 | ;; And it's much slower than the current search facility, because |
| 127 | ;; isearch really searches for each step forward or backward wheras | 127 | ;; isearch really searches for each step forward or backward whereas |
| 128 | ;; the current approach searches once and then it knows to which | 128 | ;; the current approach searches once and then it knows to which |
| 129 | ;; pages to jump. | 129 | ;; pages to jump. |
| 130 | 130 | ||
diff --git a/lisp/electric.el b/lisp/electric.el index 657b577bb1e..1a8bf9f89ed 100644 --- a/lisp/electric.el +++ b/lisp/electric.el | |||
| @@ -197,11 +197,13 @@ Returns nil when we can't find this char." | |||
| 197 | ;; value, which only works well if the variable is preloaded. | 197 | ;; value, which only works well if the variable is preloaded. |
| 198 | ;;;###autoload | 198 | ;;;###autoload |
| 199 | (defvar electric-indent-chars '(?\n) | 199 | (defvar electric-indent-chars '(?\n) |
| 200 | "Characters that should cause automatic reindentation. | 200 | "Characters that should cause automatic reindentation.") |
| 201 | Each entry of the list can be either a character or a cons of the | 201 | |
| 202 | form (CHAR . PREDICATE) which means that CHAR should cause reindentation | 202 | (defvar electric-indent-functions nil |
| 203 | only if PREDICATE returns non-nil. PREDICATE is called with no arguments | 203 | "Special hook run to decide whether to auto-indent. |
| 204 | and with point before the inserted char.") | 204 | Each function is called with one argument (the inserted char), with |
| 205 | point right after that char, and it should return t to cause indentation, | ||
| 206 | `no-indent' to prevent indentation or nil to let other functions decide.") | ||
| 205 | 207 | ||
| 206 | (defun electric-indent-post-self-insert-function () | 208 | (defun electric-indent-post-self-insert-function () |
| 207 | ;; FIXME: This reindents the current line, but what we really want instead is | 209 | ;; FIXME: This reindents the current line, but what we really want instead is |
| @@ -212,18 +214,21 @@ and with point before the inserted char.") | |||
| 212 | ;; There might be a way to get it working by analyzing buffer-undo-list, but | 214 | ;; There might be a way to get it working by analyzing buffer-undo-list, but |
| 213 | ;; it looks challenging. | 215 | ;; it looks challenging. |
| 214 | (let (pos) | 216 | (let (pos) |
| 215 | (when (and (or (memq last-command-event electric-indent-chars) | 217 | (when (and |
| 216 | (let ((cp (assq last-command-event electric-indent-chars))) | 218 | ;; Don't reindent while inserting spaces at beginning of line. |
| 217 | (and cp (setq pos (electric--after-char-pos)) | 219 | (or (not (memq last-command-event '(?\s ?\t))) |
| 218 | (save-excursion | 220 | (save-excursion (skip-chars-backward " \t") (not (bolp)))) |
| 219 | (goto-char (1- pos)) | 221 | (setq pos (electric--after-char-pos)) |
| 220 | (funcall (cdr cp)))))) | 222 | (save-excursion |
| 221 | ;; Don't reindent while inserting spaces at beginning of line. | 223 | (goto-char pos) |
| 222 | (or (not (memq last-command-event '(?\s ?\t))) | 224 | (let ((act (or (run-hook-with-args-until-success |
| 223 | (save-excursion (skip-chars-backward " \t") (not (bolp)))) | 225 | 'electric-indent-functions |
| 224 | (setq pos (electric--after-char-pos)) | 226 | last-command-event) |
| 225 | ;; Not in a string or comment. | 227 | (memq last-command-event electric-indent-chars)))) |
| 226 | (not (nth 8 (save-excursion (syntax-ppss pos))))) | 228 | (not |
| 229 | (or (memq act '(nil no-indent)) | ||
| 230 | ;; In a string or comment. | ||
| 231 | (unless (eq act 'do-indent) (nth 8 (syntax-ppss)))))))) | ||
| 227 | ;; For newline, we want to reindent both lines and basically behave like | 232 | ;; For newline, we want to reindent both lines and basically behave like |
| 228 | ;; reindent-then-newline-and-indent (whose code we hence copied). | 233 | ;; reindent-then-newline-and-indent (whose code we hence copied). |
| 229 | (when (< (1- pos) (line-beginning-position)) | 234 | (when (< (1- pos) (line-beginning-position)) |
| @@ -231,7 +236,7 @@ and with point before the inserted char.") | |||
| 231 | (save-excursion | 236 | (save-excursion |
| 232 | (unless (memq indent-line-function | 237 | (unless (memq indent-line-function |
| 233 | '(indent-relative indent-to-left-margin | 238 | '(indent-relative indent-to-left-margin |
| 234 | indent-relative-maybe)) | 239 | indent-relative-maybe)) |
| 235 | ;; Don't reindent the previous line if the indentation function | 240 | ;; Don't reindent the previous line if the indentation function |
| 236 | ;; is not a real one. | 241 | ;; is not a real one. |
| 237 | (goto-char before) | 242 | (goto-char before) |
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 976848e155d..ae2900775ac 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el | |||
| @@ -625,12 +625,12 @@ | |||
| 625 | ;; | 625 | ;; |
| 626 | ;; (ad-activate-regexp "^ange-ftp-") | 626 | ;; (ad-activate-regexp "^ange-ftp-") |
| 627 | ;; | 627 | ;; |
| 628 | ;; A saver way would have been to use | 628 | ;; A safer way would have been to use |
| 629 | ;; | 629 | ;; |
| 630 | ;; (ad-update-regexp "^ange-ftp-") | 630 | ;; (ad-update-regexp "^ange-ftp-") |
| 631 | ;; | 631 | ;; |
| 632 | ;; instead which would have only reactivated currently actively advised | 632 | ;; instead which would have only reactivated currently actively advised |
| 633 | ;; functions, but not functions that were currently deactivated. All these | 633 | ;; functions, but not functions that were currently inactive. All these |
| 634 | ;; functions can also be called interactively. | 634 | ;; functions can also be called interactively. |
| 635 | 635 | ||
| 636 | ;; A certain piece of advice is considered a match if its name contains a | 636 | ;; A certain piece of advice is considered a match if its name contains a |
| @@ -833,7 +833,7 @@ | |||
| 833 | ;; Reactivate an advised function but only if its advice is currently | 833 | ;; Reactivate an advised function but only if its advice is currently |
| 834 | ;; active. This can be used to bring all currently advised function up | 834 | ;; active. This can be used to bring all currently advised function up |
| 835 | ;; to date with the current state of advice without also activating | 835 | ;; to date with the current state of advice without also activating |
| 836 | ;; currently deactivated functions. | 836 | ;; currently inactive functions. |
| 837 | ;; - Caching: | 837 | ;; - Caching: |
| 838 | ;; Is the saving of an advised definition and an identifying cache-id so | 838 | ;; Is the saving of an advised definition and an identifying cache-id so |
| 839 | ;; it can be reused, for example, for activation after deactivation. | 839 | ;; it can be reused, for example, for activation after deactivation. |
| @@ -853,7 +853,7 @@ | |||
| 853 | ;; - ad-activate to activate the advice of a FUNCTION | 853 | ;; - ad-activate to activate the advice of a FUNCTION |
| 854 | ;; - ad-deactivate to deactivate the advice of a FUNCTION | 854 | ;; - ad-deactivate to deactivate the advice of a FUNCTION |
| 855 | ;; - ad-update to activate the advice of a FUNCTION unless it was not | 855 | ;; - ad-update to activate the advice of a FUNCTION unless it was not |
| 856 | ;; yet activated or is currently deactivated. | 856 | ;; yet activated or is currently inactive. |
| 857 | ;; - ad-unadvise deactivates a FUNCTION and removes all of its advice | 857 | ;; - ad-unadvise deactivates a FUNCTION and removes all of its advice |
| 858 | ;; information, hence, it cannot be activated again | 858 | ;; information, hence, it cannot be activated again |
| 859 | ;; - ad-recover tries to redefine a FUNCTION to its original definition and | 859 | ;; - ad-recover tries to redefine a FUNCTION to its original definition and |
| @@ -1261,7 +1261,7 @@ | |||
| 1261 | ;; contain some advice matched by the regular expression. This is a save | 1261 | ;; contain some advice matched by the regular expression. This is a save |
| 1262 | ;; way to update the activation of advised functions whose advice changed | 1262 | ;; way to update the activation of advised functions whose advice changed |
| 1263 | ;; in some way or other without accidentally also activating currently | 1263 | ;; in some way or other without accidentally also activating currently |
| 1264 | ;; deactivated functions: | 1264 | ;; inactive functions: |
| 1265 | ;; | 1265 | ;; |
| 1266 | ;; (ad-update-regexp "^fg-") | 1266 | ;; (ad-update-regexp "^fg-") |
| 1267 | ;; nil | 1267 | ;; nil |
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index df98271832a..19a4d44273d 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -446,7 +446,11 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE | |||
| 446 | generated-autoload-load-name | 446 | generated-autoload-load-name |
| 447 | (autoload-file-load-name absfile))) | 447 | (autoload-file-load-name absfile))) |
| 448 | (when (and outfile | 448 | (when (and outfile |
| 449 | (not (equal outfile (autoload-generated-file)))) | 449 | (not |
| 450 | (if (memq system-type '(ms-dos windows-nt)) | ||
| 451 | (equal (downcase outfile) | ||
| 452 | (downcase (autoload-generated-file))) | ||
| 453 | (equal outfile (autoload-generated-file))))) | ||
| 450 | (setq otherbuf t)) | 454 | (setq otherbuf t)) |
| 451 | (save-excursion | 455 | (save-excursion |
| 452 | (save-restriction | 456 | (save-restriction |
diff --git a/lisp/emacs-lisp/avl-tree.el b/lisp/emacs-lisp/avl-tree.el index 9ecd4e12020..bc1efc118ef 100644 --- a/lisp/emacs-lisp/avl-tree.el +++ b/lisp/emacs-lisp/avl-tree.el | |||
| @@ -74,7 +74,7 @@ | |||
| 74 | cmpfun) | 74 | cmpfun) |
| 75 | 75 | ||
| 76 | (defmacro avl-tree--root (tree) | 76 | (defmacro avl-tree--root (tree) |
| 77 | ;; Return the root node for an avl-tree. INTERNAL USE ONLY. | 77 | ;; Return the root node for an AVL tree. INTERNAL USE ONLY. |
| 78 | `(avl-tree--node-left (avl-tree--dummyroot ,tree))) | 78 | `(avl-tree--node-left (avl-tree--dummyroot ,tree))) |
| 79 | 79 | ||
| 80 | (defsetf avl-tree--root (tree) (node) | 80 | (defsetf avl-tree--root (tree) (node) |
| @@ -372,7 +372,7 @@ itself." | |||
| 372 | 372 | ||
| 373 | ;;; INTERNAL USE ONLY | 373 | ;;; INTERNAL USE ONLY |
| 374 | (defun avl-tree--do-copy (root) | 374 | (defun avl-tree--do-copy (root) |
| 375 | "Copy the avl tree with ROOT as root. Highly recursive." | 375 | "Copy the AVL tree with ROOT as root. Highly recursive." |
| 376 | (if (null root) | 376 | (if (null root) |
| 377 | nil | 377 | nil |
| 378 | (avl-tree--node-create | 378 | (avl-tree--node-create |
| @@ -401,7 +401,7 @@ itself." | |||
| 401 | ;; front of the STACK, until a leaf is reached. | 401 | ;; front of the STACK, until a leaf is reached. |
| 402 | (let ((node (car (avl-tree--stack-store stack))) | 402 | (let ((node (car (avl-tree--stack-store stack))) |
| 403 | (dir (if (avl-tree--stack-reverse stack) 1 0))) | 403 | (dir (if (avl-tree--stack-reverse stack) 1 0))) |
| 404 | (when node ; check for emtpy stack | 404 | (when node ; check for empty stack |
| 405 | (while (setq node (avl-tree--node-branch node dir)) | 405 | (while (setq node (avl-tree--node-branch node dir)) |
| 406 | (push node (avl-tree--stack-store stack)))))) | 406 | (push node (avl-tree--stack-store stack)))))) |
| 407 | 407 | ||
| @@ -411,21 +411,21 @@ itself." | |||
| 411 | 411 | ||
| 412 | ;; define public alias for constructors so that we can set docstring | 412 | ;; define public alias for constructors so that we can set docstring |
| 413 | (defalias 'avl-tree-create 'avl-tree--create | 413 | (defalias 'avl-tree-create 'avl-tree--create |
| 414 | "Create an empty avl tree. | 414 | "Create an empty AVL tree. |
| 415 | COMPARE-FUNCTION is a function which takes two arguments, A and B, | 415 | COMPARE-FUNCTION is a function which takes two arguments, A and B, |
| 416 | and returns non-nil if A is less than B, and nil otherwise.") | 416 | and returns non-nil if A is less than B, and nil otherwise.") |
| 417 | 417 | ||
| 418 | (defalias 'avl-tree-compare-function 'avl-tree--cmpfun | 418 | (defalias 'avl-tree-compare-function 'avl-tree--cmpfun |
| 419 | "Return the comparison function for the avl tree TREE. | 419 | "Return the comparison function for the AVL tree TREE. |
| 420 | 420 | ||
| 421 | \(fn TREE)") | 421 | \(fn TREE)") |
| 422 | 422 | ||
| 423 | (defun avl-tree-empty (tree) | 423 | (defun avl-tree-empty (tree) |
| 424 | "Return t if avl tree TREE is emtpy, otherwise return nil." | 424 | "Return t if AVL tree TREE is empty, otherwise return nil." |
| 425 | (null (avl-tree--root tree))) | 425 | (null (avl-tree--root tree))) |
| 426 | 426 | ||
| 427 | (defun avl-tree-enter (tree data &optional updatefun) | 427 | (defun avl-tree-enter (tree data &optional updatefun) |
| 428 | "Insert DATA into the avl tree TREE. | 428 | "Insert DATA into the AVL tree TREE. |
| 429 | 429 | ||
| 430 | If an element that matches DATA (according to the tree's | 430 | If an element that matches DATA (according to the tree's |
| 431 | comparison function, see `avl-tree-create') already exists in | 431 | comparison function, see `avl-tree-create') already exists in |
| @@ -433,8 +433,8 @@ TREE, it will be replaced by DATA by default. | |||
| 433 | 433 | ||
| 434 | If UPDATEFUN is supplied and an element matching DATA already | 434 | If UPDATEFUN is supplied and an element matching DATA already |
| 435 | exists in TREE, UPDATEFUN is called with two arguments: DATA, and | 435 | exists in TREE, UPDATEFUN is called with two arguments: DATA, and |
| 436 | the matching element. Its return value replaces the existing | 436 | the matching element. Its return value replaces the existing |
| 437 | element. This value *must* itself match DATA (and hence the | 437 | element. This value *must* itself match DATA (and hence the |
| 438 | pre-existing data), or an error will occur. | 438 | pre-existing data), or an error will occur. |
| 439 | 439 | ||
| 440 | Returns the new data." | 440 | Returns the new data." |
| @@ -443,7 +443,7 @@ Returns the new data." | |||
| 443 | 0 data updatefun))) | 443 | 0 data updatefun))) |
| 444 | 444 | ||
| 445 | (defun avl-tree-delete (tree data &optional test nilflag) | 445 | (defun avl-tree-delete (tree data &optional test nilflag) |
| 446 | "Delete the element matching DATA from the avl tree TREE. | 446 | "Delete the element matching DATA from the AVL tree TREE. |
| 447 | Matching uses the comparison function previously specified in | 447 | Matching uses the comparison function previously specified in |
| 448 | `avl-tree-create' when TREE was created. | 448 | `avl-tree-create' when TREE was created. |
| 449 | 449 | ||
| @@ -456,7 +456,7 @@ distinguished from the case of a successfully deleted null | |||
| 456 | element. | 456 | element. |
| 457 | 457 | ||
| 458 | If supplied, TEST specifies a test that a matching element must | 458 | If supplied, TEST specifies a test that a matching element must |
| 459 | pass before it is deleted. If a matching element is found, it is | 459 | pass before it is deleted. If a matching element is found, it is |
| 460 | passed as an argument to TEST, and is deleted only if the return | 460 | passed as an argument to TEST, and is deleted only if the return |
| 461 | value is non-nil." | 461 | value is non-nil." |
| 462 | (cdr (avl-tree--do-delete (avl-tree--cmpfun tree) | 462 | (cdr (avl-tree--do-delete (avl-tree--cmpfun tree) |
| @@ -465,14 +465,14 @@ value is non-nil." | |||
| 465 | 465 | ||
| 466 | 466 | ||
| 467 | (defun avl-tree-member (tree data &optional nilflag) | 467 | (defun avl-tree-member (tree data &optional nilflag) |
| 468 | "Return the element in the avl tree TREE which matches DATA. | 468 | "Return the element in the AVL tree TREE which matches DATA. |
| 469 | Matching uses the comparison function previously specified in | 469 | Matching uses the comparison function previously specified in |
| 470 | `avl-tree-create' when TREE was created. | 470 | `avl-tree-create' when TREE was created. |
| 471 | 471 | ||
| 472 | If there is no such element in the tree, nil is | 472 | If there is no such element in the tree, nil is |
| 473 | returned. Optional argument NILFLAG specifies a value to return | 473 | returned. Optional argument NILFLAG specifies a value to return |
| 474 | instead of nil in this case. This allows non-existent elements to | 474 | instead of nil in this case. This allows non-existent elements to |
| 475 | be distinguished from a null element. (See also | 475 | be distinguished from a null element. (See also |
| 476 | `avl-tree-member-p', which does this for you.)" | 476 | `avl-tree-member-p', which does this for you.)" |
| 477 | (let ((node (avl-tree--root tree)) | 477 | (let ((node (avl-tree--root tree)) |
| 478 | (compare-function (avl-tree--cmpfun tree))) | 478 | (compare-function (avl-tree--cmpfun tree))) |
| @@ -488,15 +488,15 @@ be distinguished from a null element. (See also | |||
| 488 | 488 | ||
| 489 | 489 | ||
| 490 | (defun avl-tree-member-p (tree data) | 490 | (defun avl-tree-member-p (tree data) |
| 491 | "Return t if an element matching DATA exists in the avl tree TREE, | 491 | "Return t if an element matching DATA exists in the AVL tree TREE. |
| 492 | otherwise return nil. Matching uses the comparison function | 492 | Otherwise return nil. Matching uses the comparison function |
| 493 | previously specified in `avl-tree-create' when TREE was created." | 493 | previously specified in `avl-tree-create' when TREE was created." |
| 494 | (let ((flag '(nil))) | 494 | (let ((flag '(nil))) |
| 495 | (not (eq (avl-tree-member tree data flag) flag)))) | 495 | (not (eq (avl-tree-member tree data flag) flag)))) |
| 496 | 496 | ||
| 497 | 497 | ||
| 498 | (defun avl-tree-map (__map-function__ tree &optional reverse) | 498 | (defun avl-tree-map (__map-function__ tree &optional reverse) |
| 499 | "Modify all elements in the avl tree TREE by applying FUNCTION. | 499 | "Modify all elements in the AVL tree TREE by applying FUNCTION. |
| 500 | 500 | ||
| 501 | Each element is replaced by the return value of FUNCTION applied | 501 | Each element is replaced by the return value of FUNCTION applied |
| 502 | to that element. | 502 | to that element. |
| @@ -512,7 +512,7 @@ descending order if REVERSE is non-nil." | |||
| 512 | 512 | ||
| 513 | 513 | ||
| 514 | (defun avl-tree-mapc (__map-function__ tree &optional reverse) | 514 | (defun avl-tree-mapc (__map-function__ tree &optional reverse) |
| 515 | "Apply FUNCTION to all elements in avl tree TREE, | 515 | "Apply FUNCTION to all elements in AVL tree TREE, |
| 516 | for side-effect only. | 516 | for side-effect only. |
| 517 | 517 | ||
| 518 | FUNCTION is applied to the elements in ascending order, or | 518 | FUNCTION is applied to the elements in ascending order, or |
| @@ -526,7 +526,7 @@ descending order if REVERSE is non-nil." | |||
| 526 | 526 | ||
| 527 | (defun avl-tree-mapf | 527 | (defun avl-tree-mapf |
| 528 | (__map-function__ combinator tree &optional reverse) | 528 | (__map-function__ combinator tree &optional reverse) |
| 529 | "Apply FUNCTION to all elements in avl tree TREE, | 529 | "Apply FUNCTION to all elements in AVL tree TREE, |
| 530 | and combine the results using COMBINATOR. | 530 | and combine the results using COMBINATOR. |
| 531 | 531 | ||
| 532 | The FUNCTION is applied and the results are combined in ascending | 532 | The FUNCTION is applied and the results are combined in ascending |
| @@ -545,7 +545,7 @@ order, or descending order if REVERSE is non-nil." | |||
| 545 | 545 | ||
| 546 | 546 | ||
| 547 | (defun avl-tree-mapcar (__map-function__ tree &optional reverse) | 547 | (defun avl-tree-mapcar (__map-function__ tree &optional reverse) |
| 548 | "Apply FUNCTION to all elements in avl tree TREE, | 548 | "Apply FUNCTION to all elements in AVL tree TREE, |
| 549 | and make a list of the results. | 549 | and make a list of the results. |
| 550 | 550 | ||
| 551 | The FUNCTION is applied and the list constructed in ascending | 551 | The FUNCTION is applied and the list constructed in ascending |
| @@ -578,7 +578,7 @@ is more efficient." | |||
| 578 | (avl-tree--node-data node)))) | 578 | (avl-tree--node-data node)))) |
| 579 | 579 | ||
| 580 | (defun avl-tree-copy (tree) | 580 | (defun avl-tree-copy (tree) |
| 581 | "Return a copy of the avl tree TREE." | 581 | "Return a copy of the AVL tree TREE." |
| 582 | (let ((new-tree (avl-tree-create (avl-tree--cmpfun tree)))) | 582 | (let ((new-tree (avl-tree-create (avl-tree--cmpfun tree)))) |
| 583 | (setf (avl-tree--root new-tree) (avl-tree--do-copy (avl-tree--root tree))) | 583 | (setf (avl-tree--root new-tree) (avl-tree--do-copy (avl-tree--root tree))) |
| 584 | new-tree)) | 584 | new-tree)) |
| @@ -600,7 +600,7 @@ is more efficient." | |||
| 600 | treesize)) | 600 | treesize)) |
| 601 | 601 | ||
| 602 | (defun avl-tree-clear (tree) | 602 | (defun avl-tree-clear (tree) |
| 603 | "Clear the avl tree TREE." | 603 | "Clear the AVL tree TREE." |
| 604 | (setf (avl-tree--root tree) nil)) | 604 | (setf (avl-tree--root tree) nil)) |
| 605 | 605 | ||
| 606 | 606 | ||
| @@ -617,8 +617,8 @@ calling `avl-tree-stack-pop' will give unpredictable results). | |||
| 617 | 617 | ||
| 618 | Operations on these objects are significantly more efficient than | 618 | Operations on these objects are significantly more efficient than |
| 619 | constructing a real stack with `avl-tree-flatten' and using | 619 | constructing a real stack with `avl-tree-flatten' and using |
| 620 | standard stack functions. As such, they can be useful in | 620 | standard stack functions. As such, they can be useful in |
| 621 | implementing efficient algorithms of AVL trees. However, in cases | 621 | implementing efficient algorithms of AVL trees. However, in cases |
| 622 | where mapping functions `avl-tree-mapc', `avl-tree-mapcar' or | 622 | where mapping functions `avl-tree-mapc', `avl-tree-mapcar' or |
| 623 | `avl-tree-mapf' would be sufficient, it is better to use one of | 623 | `avl-tree-mapf' would be sufficient, it is better to use one of |
| 624 | those instead." | 624 | those instead." |
| @@ -629,11 +629,11 @@ those instead." | |||
| 629 | 629 | ||
| 630 | (defun avl-tree-stack-pop (avl-tree-stack &optional nilflag) | 630 | (defun avl-tree-stack-pop (avl-tree-stack &optional nilflag) |
| 631 | "Pop the first element from AVL-TREE-STACK. | 631 | "Pop the first element from AVL-TREE-STACK. |
| 632 | \(See also `avl-tree-stack'\). | 632 | \(See also `avl-tree-stack'). |
| 633 | 633 | ||
| 634 | Returns nil if the stack is empty, or NILFLAG if specified. (The | 634 | Returns nil if the stack is empty, or NILFLAG if specified. |
| 635 | latter allows an empty stack to be distinguished from a null | 635 | \(The latter allows an empty stack to be distinguished from |
| 636 | element stored in the AVL tree.)" | 636 | a null element stored in the AVL tree.)" |
| 637 | (let (node next) | 637 | (let (node next) |
| 638 | (if (not (setq node (pop (avl-tree--stack-store avl-tree-stack)))) | 638 | (if (not (setq node (pop (avl-tree--stack-store avl-tree-stack)))) |
| 639 | nilflag | 639 | nilflag |
| @@ -650,9 +650,9 @@ element stored in the AVL tree.)" | |||
| 650 | "Return the first element of AVL-TREE-STACK, without removing it | 650 | "Return the first element of AVL-TREE-STACK, without removing it |
| 651 | from the stack. | 651 | from the stack. |
| 652 | 652 | ||
| 653 | Returns nil if the stack is empty, or NILFLAG if specified. (The | 653 | Returns nil if the stack is empty, or NILFLAG if specified. |
| 654 | latter allows an empty stack to be distinguished from a null | 654 | \(The latter allows an empty stack to be distinguished from |
| 655 | element stored in the AVL tree.)" | 655 | a null element stored in the AVL tree.)" |
| 656 | (or (car (avl-tree--stack-store avl-tree-stack)) | 656 | (or (car (avl-tree--stack-store avl-tree-stack)) |
| 657 | nilflag)) | 657 | nilflag)) |
| 658 | 658 | ||
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 0630f5f4e4e..c9027fb663d 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -135,7 +135,7 @@ | |||
| 135 | ;; We'd have to notice defvars and defconsts, since those variables should | 135 | ;; We'd have to notice defvars and defconsts, since those variables should |
| 136 | ;; always be dynamic, and attempting to do a lexical binding of them | 136 | ;; always be dynamic, and attempting to do a lexical binding of them |
| 137 | ;; should simply do a dynamic binding instead. | 137 | ;; should simply do a dynamic binding instead. |
| 138 | ;; But! We need to know about variables that were not necessarily defvarred | 138 | ;; But! We need to know about variables that were not necessarily defvared |
| 139 | ;; in the file being compiled (doing a boundp check isn't good enough.) | 139 | ;; in the file being compiled (doing a boundp check isn't good enough.) |
| 140 | ;; Fdefvar() would have to be modified to add something to the plist. | 140 | ;; Fdefvar() would have to be modified to add something to the plist. |
| 141 | ;; | 141 | ;; |
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 3d593570c4e..9aa230cfe9b 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -178,9 +178,9 @@ adds `c' to it; otherwise adds `.elc'." | |||
| 178 | ;; This can be the 'byte-compile property of any symbol. | 178 | ;; This can be the 'byte-compile property of any symbol. |
| 179 | (autoload 'byte-compile-inline-expand "byte-opt") | 179 | (autoload 'byte-compile-inline-expand "byte-opt") |
| 180 | 180 | ||
| 181 | ;; This is the entrypoint to the lapcode optimizer pass1. | 181 | ;; This is the entry point to the lapcode optimizer pass1. |
| 182 | (autoload 'byte-optimize-form "byte-opt") | 182 | (autoload 'byte-optimize-form "byte-opt") |
| 183 | ;; This is the entrypoint to the lapcode optimizer pass2. | 183 | ;; This is the entry point to the lapcode optimizer pass2. |
| 184 | (autoload 'byte-optimize-lapcode "byte-opt") | 184 | (autoload 'byte-optimize-lapcode "byte-opt") |
| 185 | (autoload 'byte-compile-unfold-lambda "byte-opt") | 185 | (autoload 'byte-compile-unfold-lambda "byte-opt") |
| 186 | 186 | ||
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index c6e157be776..daafd2226ec 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el | |||
| @@ -67,7 +67,7 @@ | |||
| 67 | 67 | ||
| 68 | ;; TODO: (not just for cconv but also for the lexbind changes in general) | 68 | ;; TODO: (not just for cconv but also for the lexbind changes in general) |
| 69 | ;; - let (e)debug find the value of lexical variables from the stack. | 69 | ;; - let (e)debug find the value of lexical variables from the stack. |
| 70 | ;; - make eval-region do the eval-sexp-add-defvars danse. | 70 | ;; - make eval-region do the eval-sexp-add-defvars dance. |
| 71 | ;; - byte-optimize-form should be applied before cconv. | 71 | ;; - byte-optimize-form should be applied before cconv. |
| 72 | ;; OTOH, the warnings emitted by cconv-analyze need to come before optimize | 72 | ;; OTOH, the warnings emitted by cconv-analyze need to come before optimize |
| 73 | ;; since afterwards they can because obnoxious (warnings about an "unused | 73 | ;; since afterwards they can because obnoxious (warnings about an "unused |
| @@ -507,7 +507,7 @@ places where they originally did not directly appear." | |||
| 507 | (defalias 'byte-compile-not-lexical-var-p 'boundp)) | 507 | (defalias 'byte-compile-not-lexical-var-p 'boundp)) |
| 508 | 508 | ||
| 509 | (defun cconv--analyse-use (vardata form varkind) | 509 | (defun cconv--analyse-use (vardata form varkind) |
| 510 | "Analyse the use of a variable. | 510 | "Analyze the use of a variable. |
| 511 | VARDATA should be (BINDER READ MUTATED CAPTURED CALLED). | 511 | VARDATA should be (BINDER READ MUTATED CAPTURED CALLED). |
| 512 | VARKIND is the name of the kind of variable. | 512 | VARKIND is the name of the kind of variable. |
| 513 | FORM is the parent form that binds this var." | 513 | FORM is the parent form that binds this var." |
| @@ -559,7 +559,7 @@ FORM is the parent form that binds this var." | |||
| 559 | (t (let ((varstruct (list arg nil nil nil nil))) | 559 | (t (let ((varstruct (list arg nil nil nil nil))) |
| 560 | (push (cons (list arg) (cdr varstruct)) newvars) | 560 | (push (cons (list arg) (cdr varstruct)) newvars) |
| 561 | (push varstruct newenv))))) | 561 | (push varstruct newenv))))) |
| 562 | (dolist (form body) ;Analyse body forms. | 562 | (dolist (form body) ;Analyze body forms. |
| 563 | (cconv-analyse-form form newenv)) | 563 | (cconv-analyse-form form newenv)) |
| 564 | ;; Summarize resulting data about arguments. | 564 | ;; Summarize resulting data about arguments. |
| 565 | (dolist (vardata newvars) | 565 | (dolist (vardata newvars) |
| @@ -612,7 +612,7 @@ and updates the data stored in ENV." | |||
| 612 | (push (cons binder (cdr varstruct)) newvars) | 612 | (push (cons binder (cdr varstruct)) newvars) |
| 613 | (push varstruct env)))) | 613 | (push varstruct env)))) |
| 614 | 614 | ||
| 615 | (dolist (form body-forms) ; Analyse body forms. | 615 | (dolist (form body-forms) ; Analyze body forms. |
| 616 | (cconv-analyse-form form env)) | 616 | (cconv-analyse-form form env)) |
| 617 | 617 | ||
| 618 | (dolist (vardata newvars) | 618 | (dolist (vardata newvars) |
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index bf9f2c9d6ed..fae4d9adc38 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -233,10 +233,10 @@ or call the function `%s'.")))) | |||
| 233 | (defun ,modefun (&optional arg ,@extra-args) | 233 | (defun ,modefun (&optional arg ,@extra-args) |
| 234 | ,(or doc | 234 | ,(or doc |
| 235 | (format (concat "Toggle %s on or off. | 235 | (format (concat "Toggle %s on or off. |
| 236 | Interactively, with no prefix argument, toggle the mode. | 236 | With a prefix argument ARG, enable %s if ARG is |
| 237 | With universal prefix ARG turn mode on. | 237 | positive, and disable it otherwise. If called from Lisp, enable |
| 238 | With zero or negative ARG turn mode off. | 238 | the mode if ARG is omitted or nil. |
| 239 | \\{%s}") pretty-name keymap-sym)) | 239 | \\{%s}") pretty-name pretty-name keymap-sym)) |
| 240 | ;; Use `toggle' rather than (if ,mode 0 1) so that using | 240 | ;; Use `toggle' rather than (if ,mode 0 1) so that using |
| 241 | ;; repeat-command still does the toggling correctly. | 241 | ;; repeat-command still does the toggling correctly. |
| 242 | (interactive (list (or current-prefix-arg 'toggle))) | 242 | (interactive (list (or current-prefix-arg 'toggle))) |
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 5e29a85d386..db3236afc1a 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el | |||
| @@ -992,7 +992,7 @@ if default value is nil." | |||
| 992 | ;; EML - Note: the only reason to override a class bound slot | 992 | ;; EML - Note: the only reason to override a class bound slot |
| 993 | ;; is to change the default, so allow unbound in. | 993 | ;; is to change the default, so allow unbound in. |
| 994 | 994 | ||
| 995 | ;; If we have a repeat, only update the vlaue... | 995 | ;; If we have a repeat, only update the value... |
| 996 | (eieio-perform-slot-validation-for-default a tp value skipnil) | 996 | (eieio-perform-slot-validation-for-default a tp value skipnil) |
| 997 | (setcar dp value)) | 997 | (setcar dp value)) |
| 998 | 998 | ||
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index ba04a27021e..ce6f8348a6b 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el | |||
| @@ -1098,7 +1098,7 @@ optional prefix argument REINIT is non-nil." | |||
| 1098 | ;; This includes all the built-in and dumped things with documentation. | 1098 | ;; This includes all the built-in and dumped things with documentation. |
| 1099 | (defun elint-scan-doc-file () | 1099 | (defun elint-scan-doc-file () |
| 1100 | "Scan the DOC file for function and variables. | 1100 | "Scan the DOC file for function and variables. |
| 1101 | Marks the function wih their arguments, and returns a list of variables." | 1101 | Marks the function with their arguments, and returns a list of variables." |
| 1102 | ;; Cribbed from help-fns.el. | 1102 | ;; Cribbed from help-fns.el. |
| 1103 | (let ((docbuf " *DOC*") | 1103 | (let ((docbuf " *DOC*") |
| 1104 | vars sym args) | 1104 | vars sym args) |
diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el index d43ba6c0d3e..afc8c7faa47 100644 --- a/lisp/emacs-lisp/smie.el +++ b/lisp/emacs-lisp/smie.el | |||
| @@ -579,7 +579,7 @@ PREC2 is a table as returned by `smie-precs->prec2' or | |||
| 579 | (smie-debug--describe-cycle | 579 | (smie-debug--describe-cycle |
| 580 | table (smie-debug--prec2-cycle csts))))) | 580 | table (smie-debug--prec2-cycle csts))))) |
| 581 | (incf i 10)) | 581 | (incf i 10)) |
| 582 | ;; Propagate equalities back to their source. | 582 | ;; Propagate equality constraints back to their sources. |
| 583 | (dolist (eq (nreverse eqs)) | 583 | (dolist (eq (nreverse eqs)) |
| 584 | (when (null (cadr eq)) | 584 | (when (null (cadr eq)) |
| 585 | ;; There's an equality constraint, but we still haven't given | 585 | ;; There's an equality constraint, but we still haven't given |
diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el index 8f991575eda..a5a6f71d79e 100644 --- a/lisp/emacs-lisp/testcover.el +++ b/lisp/emacs-lisp/testcover.el | |||
| @@ -220,7 +220,7 @@ non-nil, byte-compiles each function after instrumenting." | |||
| 220 | (defun testcover-reinstrument (form) | 220 | (defun testcover-reinstrument (form) |
| 221 | "Reinstruments FORM to use testcover instead of edebug. This | 221 | "Reinstruments FORM to use testcover instead of edebug. This |
| 222 | function modifies the list that FORM points to. Result is nil if | 222 | function modifies the list that FORM points to. Result is nil if |
| 223 | FORM should return multiple vlues, t if should always return same | 223 | FORM should return multiple values, t if should always return same |
| 224 | value, 'maybe if either is acceptable." | 224 | value, 'maybe if either is acceptable." |
| 225 | (let ((fun (car-safe form)) | 225 | (let ((fun (car-safe form)) |
| 226 | id val) | 226 | id val) |
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index df37157f7a9..ce3cc3c9a22 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el | |||
| @@ -3715,7 +3715,7 @@ Although this function is bound to \\[viper-toggle-search-style], the most | |||
| 3715 | convenient way to use it is to bind `//' to the macro | 3715 | convenient way to use it is to bind `//' to the macro |
| 3716 | `1 M-x viper-toggle-search-style' and `///' to | 3716 | `1 M-x viper-toggle-search-style' and `///' to |
| 3717 | `2 M-x viper-toggle-search-style'. In this way, hitting `//' quickly will | 3717 | `2 M-x viper-toggle-search-style'. In this way, hitting `//' quickly will |
| 3718 | toggle case-fold-search and hitting `/' three times witth toggle regexp | 3718 | toggle case-fold-search and hitting `/' three times with toggle regexp |
| 3719 | search. Macros are more convenient in this case because they don't affect | 3719 | search. Macros are more convenient in this case because they don't affect |
| 3720 | the Emacs binding of `/'." | 3720 | the Emacs binding of `/'." |
| 3721 | (interactive "P") | 3721 | (interactive "P") |
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index b0c37ed28e4..2d221d5fa05 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el | |||
| @@ -593,7 +593,7 @@ to a new place after repeating previous Vi command." | |||
| 593 | ;; The reason this is needed is because dabbrev-expand (and possibly | 593 | ;; The reason this is needed is because dabbrev-expand (and possibly |
| 594 | ;; others) may jump to before the insertion point, delete something and | 594 | ;; others) may jump to before the insertion point, delete something and |
| 595 | ;; then reinsert a bigger piece. For instance: bla^blo | 595 | ;; then reinsert a bigger piece. For instance: bla^blo |
| 596 | ;; If dabbrev-expand is called after `blo' and ^ undicates viper-insert-point, | 596 | ;; If dabbrev-expand is called after `blo' and ^ indicates viper-insert-point, |
| 597 | ;; then point jumps to the beginning of `blo'. If expansion is found, `blablo' | 597 | ;; then point jumps to the beginning of `blo'. If expansion is found, `blablo' |
| 598 | ;; is deleted, and we have |^, where | denotes point. Next, dabbrev-expand | 598 | ;; is deleted, and we have |^, where | denotes point. Next, dabbrev-expand |
| 599 | ;; will insert the expansion, and we get: blablo^ | 599 | ;; will insert the expansion, and we get: blablo^ |
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el index 00153c1ff0e..e978823a49c 100644 --- a/lisp/emulation/viper-macs.el +++ b/lisp/emulation/viper-macs.el | |||
| @@ -319,7 +319,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., | |||
| 319 | 319 | ||
| 320 | ;; Accepts as macro names: strings and vectors. | 320 | ;; Accepts as macro names: strings and vectors. |
| 321 | ;; strings must be strings of characters; vectors must be vectors of keys | 321 | ;; strings must be strings of characters; vectors must be vectors of keys |
| 322 | ;; in canonic form. The canonic form is essentially the form used in XEmacs | 322 | ;; in canonical form, which is essentially the form used in XEmacs. |
| 323 | ;; More general definitions are inherited by more specific scopes: | 323 | ;; More general definitions are inherited by more specific scopes: |
| 324 | ;; global->major mode->buffer. More specific definitions override more general | 324 | ;; global->major mode->buffer. More specific definitions override more general |
| 325 | (defun viper-record-kbd-macro (macro-name state macro-body &optional scope) | 325 | (defun viper-record-kbd-macro (macro-name state macro-body &optional scope) |
diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index a2e289df5e8..a99ffdea558 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el | |||
| @@ -66,7 +66,7 @@ | |||
| 66 | "*Function that determines what constitutes a word for clicking events. | 66 | "*Function that determines what constitutes a word for clicking events. |
| 67 | Takes two parameters: a COUNT, indicating how many words to return, | 67 | Takes two parameters: a COUNT, indicating how many words to return, |
| 68 | and CLICK-COUNT, telling whether this is the first click, a double-click, | 68 | and CLICK-COUNT, telling whether this is the first click, a double-click, |
| 69 | or a tripple-click." | 69 | or a triple-click." |
| 70 | :type 'symbol | 70 | :type 'symbol |
| 71 | :group 'viper-mouse) | 71 | :group 'viper-mouse) |
| 72 | 72 | ||
diff --git a/lisp/epg.el b/lisp/epg.el index 00c00f9c9d3..133e76da96c 100644 --- a/lisp/epg.el +++ b/lisp/epg.el | |||
| @@ -82,7 +82,7 @@ | |||
| 82 | (defconst epg-invalid-recipients-reason-alist | 82 | (defconst epg-invalid-recipients-reason-alist |
| 83 | '((0 . "No specific reason given") | 83 | '((0 . "No specific reason given") |
| 84 | (1 . "Not Found") | 84 | (1 . "Not Found") |
| 85 | (2 . "Ambigious specification") | 85 | (2 . "Ambiguous specification") |
| 86 | (3 . "Wrong key usage") | 86 | (3 . "Wrong key usage") |
| 87 | (4 . "Key revoked") | 87 | (4 . "Key revoked") |
| 88 | (5 . "Key expired") | 88 | (5 . "Key expired") |
| @@ -95,7 +95,7 @@ | |||
| 95 | (defconst epg-delete-problem-reason-alist | 95 | (defconst epg-delete-problem-reason-alist |
| 96 | '((1 . "No such key") | 96 | '((1 . "No such key") |
| 97 | (2 . "Must delete secret key first") | 97 | (2 . "Must delete secret key first") |
| 98 | (3 . "Ambigious specification"))) | 98 | (3 . "Ambiguous specification"))) |
| 99 | 99 | ||
| 100 | (defconst epg-import-ok-reason-alist | 100 | (defconst epg-import-ok-reason-alist |
| 101 | '((0 . "Not actually changed") | 101 | '((0 . "Not actually changed") |
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 3fd2c87d59c..1b67835cb07 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2011-11-28 Mike Kazantsev <mk.fraggod@gmail.com> (tiny change) | ||
| 2 | |||
| 3 | * erc-dcc.el (erc-dcc-ctcp-query-send-regexp): Updated regexp to | ||
| 4 | match quoted filenames with spaces inside. | ||
| 5 | (erc-dcc-handle-ctcp-send): Updated regexp match group numbers, | ||
| 6 | added processing of escaped quotes and backslashes if filename | ||
| 7 | itself was in quotes. | ||
| 8 | |||
| 1 | 2011-11-20 Juanma Barranquero <lekktu@gmail.com> | 9 | 2011-11-20 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 10 | ||
| 3 | * erc-log.el (erc-logging-enabled): Fix typo. | 11 | * erc-log.el (erc-logging-enabled): Fix typo. |
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02 index 279a336f15f..3364af531f5 100644 --- a/lisp/erc/ChangeLog.02 +++ b/lisp/erc/ChangeLog.02 | |||
| @@ -979,7 +979,7 @@ | |||
| 979 | 979 | ||
| 980 | 2002-11-16 Alex Schroeder <alex@gnu.org> | 980 | 2002-11-16 Alex Schroeder <alex@gnu.org> |
| 981 | 981 | ||
| 982 | * erc-autoaway.el, erc-button.el, erc-fill.el, erc-match.el, | 982 | * erc-autoaway.el, erc-button.el, erc-fill.el, erc-match.el, |
| 983 | erc-menu.el, erc-ring.el, erc-track.el: | 983 | erc-menu.el, erc-ring.el, erc-track.el: |
| 984 | Cleanup of file headers: copyright years, GPL mumbo-jumbo, commentaries. | 984 | Cleanup of file headers: copyright years, GPL mumbo-jumbo, commentaries. |
| 985 | 985 | ||
| @@ -1447,7 +1447,7 @@ | |||
| 1447 | * erc-match.el: fixed spelling error | 1447 | * erc-match.el: fixed spelling error |
| 1448 | 1448 | ||
| 1449 | * erc-track.el, erc-match.el: * erc-match.el: | 1449 | * erc-track.el, erc-match.el: * erc-match.el: |
| 1450 | highlight current nickname in its own face (deactivated by default): | 1450 | highlight current nickname in its own face (inactive by default): |
| 1451 | - added erc-current-nick-highlight-type, erc-current-nick-face, | 1451 | - added erc-current-nick-highlight-type, erc-current-nick-face, |
| 1452 | erc-current-nick-p | 1452 | erc-current-nick-p |
| 1453 | 1453 | ||
| @@ -1564,7 +1564,7 @@ | |||
| 1564 | (require 'erc-nickserv) is now necessary for this to work | 1564 | (require 'erc-nickserv) is now necessary for this to work |
| 1565 | 1565 | ||
| 1566 | * erc.el: | 1566 | * erc.el: |
| 1567 | * results of /COUNTRY now formatted as notice; errors are ignored, | 1567 | * results of /COUNTRY now formatted as notice; errors are ignored, |
| 1568 | fixing | 1568 | fixing |
| 1569 | bug which made prompt disappear | 1569 | bug which made prompt disappear |
| 1570 | 1570 | ||
| @@ -1959,9 +1959,9 @@ | |||
| 1959 | 1959 | ||
| 1960 | * erc.el: remove trailing \n from any sent text | 1960 | * erc.el: remove trailing \n from any sent text |
| 1961 | 1961 | ||
| 1962 | * servers.pl, erc-bbdb.el, erc-button.el, erc-chess.el, | 1962 | * servers.pl, erc-bbdb.el, erc-button.el, erc-chess.el, |
| 1963 | erc-complete.el, erc-fill.el, erc-ibuffer.el, erc-list.el, | 1963 | erc-complete.el, erc-fill.el, erc-ibuffer.el, erc-list.el, |
| 1964 | erc-match.el, erc-menu.el, erc-nets.el, erc-replace.el, | 1964 | erc-match.el, erc-menu.el, erc-nets.el, erc-replace.el, |
| 1965 | erc-speak.el, erc-speedbar.el, erc-track.el, erc.el: | 1965 | erc-speak.el, erc-speedbar.el, erc-track.el, erc.el: |
| 1966 | clean whitespace | 1966 | clean whitespace |
| 1967 | 1967 | ||
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index 19e1801e03c..fce22aadcc4 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el | |||
| @@ -649,7 +649,16 @@ that subcommand." | |||
| 649 | ?q query ?n nick ?u login ?h host)))) | 649 | ?q query ?n nick ?u login ?h host)))) |
| 650 | 650 | ||
| 651 | (defconst erc-dcc-ctcp-query-send-regexp | 651 | (defconst erc-dcc-ctcp-query-send-regexp |
| 652 | "^DCC SEND \\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) *\\([0-9]*\\)") | 652 | (concat "^DCC SEND \\(" |
| 653 | ;; Following part matches either filename without spaces | ||
| 654 | ;; or filename enclosed in double quotes with any number | ||
| 655 | ;; of escaped double quotes inside. | ||
| 656 | "\"\\(\\(.*?\\(\\\\\"\\)?\\)+?\\)\"\\|\\([^ ]+\\)" | ||
| 657 | "\\) \\([0-9]+\\) \\([0-9]+\\) *\\([0-9]*\\)")) | ||
| 658 | |||
| 659 | (defsubst erc-dcc-unquote-filename (filename) | ||
| 660 | (erc-replace-regexp-in-string "\\\\\\\\" "\\" | ||
| 661 | (erc-replace-regexp-in-string "\\\\\"" "\"" filename t t) t t)) | ||
| 653 | 662 | ||
| 654 | (defun erc-dcc-handle-ctcp-send (proc query nick login host to) | 663 | (defun erc-dcc-handle-ctcp-send (proc query nick login host to) |
| 655 | "This is called if a CTCP DCC SEND subcommand is sent to the client. | 664 | "This is called if a CTCP DCC SEND subcommand is sent to the client. |
| @@ -664,10 +673,12 @@ It extracts the information about the dcc request and adds it to | |||
| 664 | 'dcc-request-bogus | 673 | 'dcc-request-bogus |
| 665 | ?r "SEND" ?n nick ?u login ?h host)) | 674 | ?r "SEND" ?n nick ?u login ?h host)) |
| 666 | ((string-match erc-dcc-ctcp-query-send-regexp query) | 675 | ((string-match erc-dcc-ctcp-query-send-regexp query) |
| 667 | (let ((filename (match-string 1 query)) | 676 | (let ((filename |
| 668 | (ip (erc-decimal-to-ip (match-string 2 query))) | 677 | (or (match-string 3 query) |
| 669 | (port (match-string 3 query)) | 678 | (erc-dcc-unquote-filename (match-string 2 query)))) |
| 670 | (size (match-string 4 query))) | 679 | (ip (erc-decimal-to-ip (match-string 6 query))) |
| 680 | (port (match-string 7 query)) | ||
| 681 | (size (match-string 8 query))) | ||
| 671 | ;; FIXME: a warning really should also be sent | 682 | ;; FIXME: a warning really should also be sent |
| 672 | ;; if the ip address != the host the dcc sender is on. | 683 | ;; if the ip address != the host the dcc sender is on. |
| 673 | (erc-display-message | 684 | (erc-display-message |
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index a218dd12555..0eff33f1e75 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -2626,7 +2626,7 @@ VALUE is computed by evaluating the rest of LINE in Lisp." | |||
| 2626 | (defun erc-cmd-default (line) | 2626 | (defun erc-cmd-default (line) |
| 2627 | "Fallback command. | 2627 | "Fallback command. |
| 2628 | 2628 | ||
| 2629 | Commands for which no erc-cmd-xxx exists, are tunnelled through | 2629 | Commands for which no erc-cmd-xxx exists, are tunneled through |
| 2630 | this function. LINE is sent to the server verbatim, and | 2630 | this function. LINE is sent to the server verbatim, and |
| 2631 | therefore has to contain the command itself as well." | 2631 | therefore has to contain the command itself as well." |
| 2632 | (erc-log (format "cmd: DEFAULT: %s" line)) | 2632 | (erc-log (format "cmd: DEFAULT: %s" line)) |
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el index db5e98062a9..5e44e541526 100644 --- a/lisp/eshell/em-hist.el +++ b/lisp/eshell/em-hist.el | |||
| @@ -90,12 +90,14 @@ | |||
| 90 | "If non-nil, name of the file to read/write input history. | 90 | "If non-nil, name of the file to read/write input history. |
| 91 | See also `eshell-read-history' and `eshell-write-history'. | 91 | See also `eshell-read-history' and `eshell-write-history'. |
| 92 | If it is nil, Eshell will use the value of HISTFILE." | 92 | If it is nil, Eshell will use the value of HISTFILE." |
| 93 | :type 'file | 93 | :type '(choice (const :tag "Use HISTFILE" nil) |
| 94 | file) | ||
| 94 | :group 'eshell-hist) | 95 | :group 'eshell-hist) |
| 95 | 96 | ||
| 96 | (defcustom eshell-history-size 128 | 97 | (defcustom eshell-history-size 128 |
| 97 | "Size of the input history ring. If nil, use envvar HISTSIZE." | 98 | "Size of the input history ring. If nil, use envvar HISTSIZE." |
| 98 | :type 'integer | 99 | :type '(choice (const :tag "Use HISTSIZE" nil) |
| 100 | integer) | ||
| 99 | :group 'eshell-hist) | 101 | :group 'eshell-hist) |
| 100 | 102 | ||
| 101 | (defcustom eshell-hist-ignoredups nil | 103 | (defcustom eshell-hist-ignoredups nil |
| @@ -261,7 +263,13 @@ element, regardless of any text on the command line. In that case, | |||
| 261 | 263 | ||
| 262 | (make-local-variable 'eshell-history-size) | 264 | (make-local-variable 'eshell-history-size) |
| 263 | (or eshell-history-size | 265 | (or eshell-history-size |
| 264 | (setq eshell-history-size (getenv "HISTSIZE"))) | 266 | (let ((hsize (getenv "HISTSIZE"))) |
| 267 | (setq eshell-history-size | ||
| 268 | (if (and (stringp hsize) | ||
| 269 | (integerp (setq hsize (string-to-number hsize))) | ||
| 270 | (> hsize 0)) | ||
| 271 | hsize | ||
| 272 | 128)))) | ||
| 265 | 273 | ||
| 266 | (make-local-variable 'eshell-history-file-name) | 274 | (make-local-variable 'eshell-history-file-name) |
| 267 | (or eshell-history-file-name | 275 | (or eshell-history-file-name |
diff --git a/lisp/files.el b/lisp/files.el index 0f167ce3ffa..f903d2919a6 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1343,7 +1343,7 @@ automatically choosing a major mode, use \\[find-file-literally]." | |||
| 1343 | (let ((value (find-file-noselect filename nil nil wildcards))) | 1343 | (let ((value (find-file-noselect filename nil nil wildcards))) |
| 1344 | (if (listp value) | 1344 | (if (listp value) |
| 1345 | (mapcar 'switch-to-buffer (nreverse value)) | 1345 | (mapcar 'switch-to-buffer (nreverse value)) |
| 1346 | (switch-to-buffer value nil 'force-same-window)))) | 1346 | (switch-to-buffer value)))) |
| 1347 | 1347 | ||
| 1348 | (defun find-file-other-window (filename &optional wildcards) | 1348 | (defun find-file-other-window (filename &optional wildcards) |
| 1349 | "Edit file FILENAME, in another window. | 1349 | "Edit file FILENAME, in another window. |
diff --git a/lisp/filesets.el b/lisp/filesets.el index 269ee331fb2..680a107adfe 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el | |||
| @@ -267,12 +267,12 @@ SYM to VAL and return t. If INIT-FLAG is non-nil, set with | |||
| 267 | (not ignore-flag))) | 267 | (not ignore-flag))) |
| 268 | 268 | ||
| 269 | (defun filesets-set-default! (sym val) | 269 | (defun filesets-set-default! (sym val) |
| 270 | "Call `filestes-set-default' and reset cached data (i.e. rebuild menu)." | 270 | "Call `filesets-set-default' and reset cached data (i.e. rebuild menu)." |
| 271 | (when (filesets-set-default sym val) | 271 | (when (filesets-set-default sym val) |
| 272 | (filesets-reset-fileset))) | 272 | (filesets-reset-fileset))) |
| 273 | 273 | ||
| 274 | (defun filesets-set-default+ (sym val) | 274 | (defun filesets-set-default+ (sym val) |
| 275 | "Call `filestes-set-default' and reset filesets' standard menu." | 275 | "Call `filesets-set-default' and reset filesets' standard menu." |
| 276 | (when (filesets-set-default sym val) | 276 | (when (filesets-set-default sym val) |
| 277 | (setq filesets-has-changed-flag t))) | 277 | (setq filesets-has-changed-flag t))) |
| 278 | ; (filesets-reset-fileset nil t))) | 278 | ; (filesets-reset-fileset nil t))) |
diff --git a/lisp/follow.el b/lisp/follow.el index 72a091e8ce2..2273e8920fd 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -98,7 +98,7 @@ | |||
| 98 | ;; (global-set-key [f7] 'follow-delete-other-windows-and-split) | 98 | ;; (global-set-key [f7] 'follow-delete-other-windows-and-split) |
| 99 | 99 | ||
| 100 | 100 | ||
| 101 | ;; There exist two system variables that control the appearence of | 101 | ;; There exist two system variables that control the appearance of |
| 102 | ;; lines wider than the window containing them. The default is to | 102 | ;; lines wider than the window containing them. The default is to |
| 103 | ;; truncate long lines whenever a window isn't as wide as the frame. | 103 | ;; truncate long lines whenever a window isn't as wide as the frame. |
| 104 | ;; | 104 | ;; |
| @@ -351,7 +351,7 @@ After that, changing the prefix key requires manipulating keymaps." | |||
| 351 | ;; global map. | 351 | ;; global map. |
| 352 | (easy-menu-add-item nil '("Tools") | 352 | (easy-menu-add-item nil '("Tools") |
| 353 | '("Follow" | 353 | '("Follow" |
| 354 | ;; The Emacs code used to just grey out operations when follow-mode was | 354 | ;; The Emacs code used to just gray out operations when follow-mode was |
| 355 | ;; not enabled, whereas the XEmacs code used to remove it altogether. | 355 | ;; not enabled, whereas the XEmacs code used to remove it altogether. |
| 356 | ;; Not sure which is preferable, but clearly the preference should not | 356 | ;; Not sure which is preferable, but clearly the preference should not |
| 357 | ;; depend on the flavor. | 357 | ;; depend on the flavor. |
diff --git a/lisp/frame.el b/lisp/frame.el index f63179de1f1..af668f80961 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -1133,15 +1133,21 @@ To get the frame's current border color, use `frame-parameters'." | |||
| 1133 | (list (cons 'border-color color-name)))) | 1133 | (list (cons 'border-color color-name)))) |
| 1134 | 1134 | ||
| 1135 | (define-minor-mode auto-raise-mode | 1135 | (define-minor-mode auto-raise-mode |
| 1136 | "Toggle whether or not the selected frame should auto-raise. | 1136 | "Toggle whether or not selected frames should auto-raise. |
| 1137 | With a prefix argument ARG, enable Auto Raise mode if ARG is | 1137 | With a prefix argument ARG, enable Auto Raise mode if ARG is |
| 1138 | positive, and disable it otherwise. If called from Lisp, enable | 1138 | positive, and disable it otherwise. If called from Lisp, enable |
| 1139 | the mode if ARG is omitted or nil. | 1139 | the mode if ARG is omitted or nil. |
| 1140 | 1140 | ||
| 1141 | Note that this controls Emacs's own auto-raise feature. | 1141 | Auto Raise mode does nothing under most window managers, which |
| 1142 | Some window managers allow you to enable auto-raise for certain windows. | 1142 | switch focus on mouse clicks. It only has an effect if your |
| 1143 | You can use that for Emacs windows if you wish, but if you do, | 1143 | window manager switches focus on mouse movement (in which case |
| 1144 | that is beyond the control of Emacs and this command has no effect on it." | 1144 | you should also change `focus-follows-mouse' to t). Then, |
| 1145 | enabling Auto Raise mode causes any graphical Emacs frame which | ||
| 1146 | acquires focus to be automatically raised. | ||
| 1147 | |||
| 1148 | Note that this minor mode controls Emacs's own auto-raise | ||
| 1149 | feature. Window managers that switch focus on mouse movement | ||
| 1150 | often have their own auto-raise feature." | ||
| 1145 | :variable (frame-parameter nil 'auto-raise) | 1151 | :variable (frame-parameter nil 'auto-raise) |
| 1146 | (if (frame-parameter nil 'auto-raise) | 1152 | (if (frame-parameter nil 'auto-raise) |
| 1147 | (raise-frame))) | 1153 | (raise-frame))) |
| @@ -1152,10 +1158,16 @@ With a prefix argument ARG, enable Auto Lower mode if ARG is | |||
| 1152 | positive, and disable it otherwise. If called from Lisp, enable | 1158 | positive, and disable it otherwise. If called from Lisp, enable |
| 1153 | the mode if ARG is omitted or nil. | 1159 | the mode if ARG is omitted or nil. |
| 1154 | 1160 | ||
| 1155 | Note that this controls Emacs's own auto-lower feature. | 1161 | Auto Lower mode does nothing under most window managers, which |
| 1156 | Some window managers allow you to enable auto-lower for certain windows. | 1162 | switch focus on mouse clicks. It only has an effect if your |
| 1157 | You can use that for Emacs windows if you wish, but if you do, | 1163 | window manager switches focus on mouse movement (in which case |
| 1158 | that is beyond the control of Emacs and this command has no effect on it." | 1164 | you should also change `focus-follows-mouse' to t). Then, |
| 1165 | enabling Auto Lower Mode causes any graphical Emacs frame which | ||
| 1166 | loses focus to be automatically lowered. | ||
| 1167 | |||
| 1168 | Note that this minor mode controls Emacs's own auto-lower | ||
| 1169 | feature. Window managers that switch focus on mouse movement | ||
| 1170 | often have their own features for raising or lowering frames." | ||
| 1159 | :variable (frame-parameter nil 'auto-lower)) | 1171 | :variable (frame-parameter nil 'auto-lower)) |
| 1160 | 1172 | ||
| 1161 | (defun set-frame-name (name) | 1173 | (defun set-frame-name (name) |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 889a5230d15..fbfcda57b53 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,45 @@ | |||
| 1 | 2011-12-02 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 2 | |||
| 3 | * compface.el (uncompface): | ||
| 4 | * gnus-art.el (gnus-article-x-face-command): Update the header format | ||
| 5 | of icon data for the most recent icontopbm program. | ||
| 6 | |||
| 7 | 2011-12-01 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 8 | |||
| 9 | * gnus-msg.el (gnus-inews-do-gcc): | ||
| 10 | * message.el (message-send-mail): | ||
| 11 | * mml.el (mml-generate-mime): Share the value of the buffer-local | ||
| 12 | `message-options' variable between a draft buffer and temprary working | ||
| 13 | buffers. | ||
| 14 | |||
| 15 | 2011-11-30 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 16 | |||
| 17 | * message.el (message-pop-to-buffer): Revert 2011-09-11 change. | ||
| 18 | |||
| 19 | 2011-11-30 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 20 | |||
| 21 | * gnus-art.el (gnus-article-browse-html-parts): Convert link file names | ||
| 22 | for Cygwin. | ||
| 23 | |||
| 24 | 2011-11-24 Glenn Morris <rgm@gnu.org> | ||
| 25 | |||
| 26 | * starttls.el: Fix case of "GnuTLS". | ||
| 27 | |||
| 28 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 29 | |||
| 30 | * gnus-group.el (gnus-group-highlight): Fix typo. | ||
| 31 | |||
| 32 | 2011-11-24 Adam W <adam_w67@yahoo.com> (tiny change) | ||
| 33 | |||
| 34 | * mail-source.el (mail-source-fetch-maildir): Don't expect the return | ||
| 35 | value of `delete-file', that returns nil for a local file but returns t | ||
| 36 | for a remote file using ssh. | ||
| 37 | |||
| 38 | 2011-11-22 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 39 | |||
| 40 | * shr.el (shr-table-horizontal-line): Use "?\s" instead of "? " to | ||
| 41 | avoid later breakage. | ||
| 42 | |||
| 1 | 2011-11-22 Katsumi Yamaoka <yamaoka@jpl.org> | 43 | 2011-11-22 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 44 | ||
| 3 | * gnus-art.el (gnus-article-setup-buffer): Decode group name used for | 45 | * gnus-art.el (gnus-article-setup-buffer): Decode group name used for |
| @@ -2266,7 +2308,7 @@ | |||
| 2266 | * gnus-art.el (gnus-article-next-page-1): Because customized mode-line | 2308 | * gnus-art.el (gnus-article-next-page-1): Because customized mode-line |
| 2267 | face with line-width greater than zero will cause RET in gnus summary | 2309 | face with line-width greater than zero will cause RET in gnus summary |
| 2268 | buffer to scroll down article page-wise because auto vscroll happens, | 2310 | buffer to scroll down article page-wise because auto vscroll happens, |
| 2269 | it should be temporalily disabled when doing a scroll-up. | 2311 | it should be temporally disabled when doing a scroll-up. |
| 2270 | 2312 | ||
| 2271 | 2011-02-19 Lars Ingebrigtsen <larsi@gnus.org> | 2313 | 2011-02-19 Lars Ingebrigtsen <larsi@gnus.org> |
| 2272 | 2314 | ||
| @@ -2759,7 +2801,7 @@ | |||
| 2759 | 2011-01-28 Lars Ingebrigtsen <larsi@gnus.org> | 2801 | 2011-01-28 Lars Ingebrigtsen <larsi@gnus.org> |
| 2760 | 2802 | ||
| 2761 | * gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active | 2803 | * gnus-sum.el (gnus-select-newsgroup): Don't try to alter the active |
| 2762 | data if the group is unactivated. | 2804 | data if the group is inactive. |
| 2763 | 2805 | ||
| 2764 | 2011-01-28 Julien Danjou <julien@danjou.info> | 2806 | 2011-01-28 Julien Danjou <julien@danjou.info> |
| 2765 | 2807 | ||
| @@ -2850,7 +2892,7 @@ | |||
| 2850 | we're using an encrypted connection. | 2892 | we're using an encrypted connection. |
| 2851 | 2893 | ||
| 2852 | * proto-stream.el: Alter the interface functions to also return the | 2894 | * proto-stream.el: Alter the interface functions to also return the |
| 2853 | actual stream type used: network or tls. | 2895 | actual stream type used: network or TLS. |
| 2854 | 2896 | ||
| 2855 | 2011-01-25 Julien Danjou <julien@danjou.info> | 2897 | 2011-01-25 Julien Danjou <julien@danjou.info> |
| 2856 | 2898 | ||
| @@ -3579,7 +3621,7 @@ | |||
| 3579 | 3621 | ||
| 3580 | 2010-11-30 Lars Magne Ingebrigtsen <larsi@gnus.org> | 3622 | 2010-11-30 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 3581 | 3623 | ||
| 3582 | * proto-stream.el (open-protocol-stream): All starttls connections are | 3624 | * proto-stream.el (open-protocol-stream): All STARTTLS connections are |
| 3583 | handled by the network handler. | 3625 | handled by the network handler. |
| 3584 | 3626 | ||
| 3585 | 2010-11-30 Julien Danjou <julien@danjou.info> | 3627 | 2010-11-30 Julien Danjou <julien@danjou.info> |
| @@ -3668,9 +3710,9 @@ | |||
| 3668 | (nnimap-open-connection): Be more backwards-compatible. | 3710 | (nnimap-open-connection): Be more backwards-compatible. |
| 3669 | 3711 | ||
| 3670 | * proto-stream.el (proto-stream-always-use-starttls): New variable. | 3712 | * proto-stream.el (proto-stream-always-use-starttls): New variable. |
| 3671 | (proto-stream-open-starttls): De-duplicate the starttls code. | 3713 | (proto-stream-open-starttls): De-duplicate the STARTTLS code. |
| 3672 | (proto-stream-open-starttls): Folded back into the main function. | 3714 | (proto-stream-open-starttls): Folded back into the main function. |
| 3673 | (proto-stream-open-network): Fix typo in the gnutls path. | 3715 | (proto-stream-open-network): Fix typo in the GnuTLS path. |
| 3674 | (proto-stream-command): Refactor out. | 3716 | (proto-stream-command): Refactor out. |
| 3675 | 3717 | ||
| 3676 | * nntp.el (nntp-open-connection): Fix the STARTTLS command syntax. | 3718 | * nntp.el (nntp-open-connection): Fix the STARTTLS command syntax. |
| @@ -3682,7 +3724,7 @@ | |||
| 3682 | 3724 | ||
| 3683 | * proto-stream.el (proto-stream-open-tls): Delete output from openssl | 3725 | * proto-stream.el (proto-stream-open-tls): Delete output from openssl |
| 3684 | if we're using tls.el. | 3726 | if we're using tls.el. |
| 3685 | (proto-stream-open-network): If we don't have gnutls-cli or gnutls | 3727 | (proto-stream-open-network): If we don't have gnutls-cli or GnuTLS |
| 3686 | built in, then don't try to establish a STARTTLS connection. | 3728 | built in, then don't try to establish a STARTTLS connection. |
| 3687 | 3729 | ||
| 3688 | * nntp.el (nntp-open-connection): Switch on STARTTLS on supported | 3730 | * nntp.el (nntp-open-connection): Switch on STARTTLS on supported |
| @@ -5082,7 +5124,7 @@ | |||
| 5082 | * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active' | 5124 | * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active' |
| 5083 | non-variable, too. | 5125 | non-variable, too. |
| 5084 | 5126 | ||
| 5085 | * nnimap.el (nnimap-open-connection): Use gnutls STARTTLS, if | 5127 | * nnimap.el (nnimap-open-connection): Use GnuTLS STARTTLS, if |
| 5086 | available. | 5128 | available. |
| 5087 | (nnimap-update-info): Rely more on the current active than the param | 5129 | (nnimap-update-info): Rely more on the current active than the param |
| 5088 | active to avoid marking articles as read too much. | 5130 | active to avoid marking articles as read too much. |
| @@ -5131,8 +5173,8 @@ | |||
| 5131 | group is the "last", so that the backends like nnfolder actually save | 5173 | group is the "last", so that the backends like nnfolder actually save |
| 5132 | their folders. | 5174 | their folders. |
| 5133 | 5175 | ||
| 5134 | * nnimap.el (nnimap-open-connection): If we have gnutls loaded, then | 5176 | * nnimap.el (nnimap-open-connection): If we have GnuTLS loaded, then |
| 5135 | try to use that for the tls stream. | 5177 | try to use that for the TLS stream. |
| 5136 | (nnimap-retrieve-group-data-early): Rework the marks code to heed | 5178 | (nnimap-retrieve-group-data-early): Rework the marks code to heed |
| 5137 | UIDVALIDITY and find out which groups are read-only and not. | 5179 | UIDVALIDITY and find out which groups are read-only and not. |
| 5138 | (nnimap-get-flags): Use the same marks parsing code as the rest of | 5180 | (nnimap-get-flags): Use the same marks parsing code as the rest of |
| @@ -6351,8 +6393,8 @@ | |||
| 6351 | * gnus-int.el (gnus-request-update-info): Protect against backends not | 6393 | * gnus-int.el (gnus-request-update-info): Protect against backends not |
| 6352 | having the function. | 6394 | having the function. |
| 6353 | 6395 | ||
| 6354 | * nnimap.el (nnimap-stream): Mention starttls. | 6396 | * nnimap.el (nnimap-stream): Mention STARTTLS. |
| 6355 | (nnimap-open-connection): Add starttls support. | 6397 | (nnimap-open-connection): Add STARTTLS support. |
| 6356 | 6398 | ||
| 6357 | 2010-09-23 Andrew Cohen <cohen@andy.bu.edu> | 6399 | 2010-09-23 Andrew Cohen <cohen@andy.bu.edu> |
| 6358 | 6400 | ||
| @@ -10942,7 +10984,7 @@ | |||
| 10942 | 2007-11-14 Denys Duchier <denys.duchier@univ-orleans.fr> (tiny change) | 10984 | 2007-11-14 Denys Duchier <denys.duchier@univ-orleans.fr> (tiny change) |
| 10943 | 10985 | ||
| 10944 | * pop3.el (pop3-open-server): Accept and process data more robustly at | 10986 | * pop3.el (pop3-open-server): Accept and process data more robustly at |
| 10945 | connexion start to avoid spurious "POP SSL connexion failed" errors. | 10987 | connection start to avoid spurious "POP SSL connection failed" errors. |
| 10946 | 10988 | ||
| 10947 | 2007-11-14 Katsumi Yamaoka <yamaoka@jpl.org> | 10989 | 2007-11-14 Katsumi Yamaoka <yamaoka@jpl.org> |
| 10948 | 10990 | ||
| @@ -11689,7 +11731,7 @@ | |||
| 11689 | (nntp-open-marks): Decode group names when bootstrapping marks. | 11731 | (nntp-open-marks): Decode group names when bootstrapping marks. |
| 11690 | 11732 | ||
| 11691 | * rfc2047.el (rfc2047-encode-message-header): Make XEmacs decode | 11733 | * rfc2047.el (rfc2047-encode-message-header): Make XEmacs decode |
| 11692 | Newsgroups and Folowup-To headers. | 11734 | Newsgroups and Followup-To headers. |
| 11693 | 11735 | ||
| 11694 | 2007-07-13 Katsumi Yamaoka <yamaoka@jpl.org> | 11736 | 2007-07-13 Katsumi Yamaoka <yamaoka@jpl.org> |
| 11695 | 11737 | ||
| @@ -16497,7 +16539,7 @@ | |||
| 16497 | 2005-07-01 Katsumi Yamaoka <yamaoka@jpl.org> | 16539 | 2005-07-01 Katsumi Yamaoka <yamaoka@jpl.org> |
| 16498 | 16540 | ||
| 16499 | * gnus-art.el (article-display-face): Improve the efficiency. | 16541 | * gnus-art.el (article-display-face): Improve the efficiency. |
| 16500 | (article-display-x-face): Ditto; remove grey x-face stuff. | 16542 | (article-display-x-face): Ditto; remove gray x-face stuff. |
| 16501 | 16543 | ||
| 16502 | 2005-06-30 Katsumi Yamaoka <yamaoka@jpl.org> | 16544 | 2005-06-30 Katsumi Yamaoka <yamaoka@jpl.org> |
| 16503 | 16545 | ||
| @@ -18632,7 +18674,7 @@ | |||
| 18632 | 2004-09-28 Kevin Greiner <kgreiner@compsol.cc> | 18674 | 2004-09-28 Kevin Greiner <kgreiner@compsol.cc> |
| 18633 | 18675 | ||
| 18634 | * gnus-agent.el (gnus-agent-synchronize-group-flags): Replace | 18676 | * gnus-agent.el (gnus-agent-synchronize-group-flags): Replace |
| 18635 | gnus-requst-update-info with explicit code to sync the in-memory | 18677 | gnus-request-update-info with explicit code to sync the in-memory |
| 18636 | info read flags with the marks being sync'd to the backend. | 18678 | info read flags with the marks being sync'd to the backend. |
| 18637 | 18679 | ||
| 18638 | * gnus-util.el (gnus-pp): Add optional stream to match pp API. | 18680 | * gnus-util.el (gnus-pp): Add optional stream to match pp API. |
| @@ -19746,7 +19788,7 @@ | |||
| 19746 | 19788 | ||
| 19747 | 2004-05-26 Simon Josefsson <jas@extundo.com> | 19789 | 2004-05-26 Simon Josefsson <jas@extundo.com> |
| 19748 | 19790 | ||
| 19749 | * starttls.el: Merge with my GNUTLS based starttls.el. | 19791 | * starttls.el: Merge with my GnuTLS based starttls.el. |
| 19750 | (starttls-gnutls-program, starttls-use-gnutls) | 19792 | (starttls-gnutls-program, starttls-use-gnutls) |
| 19751 | (starttls-extra-arguments, starttls-process-connection-type) | 19793 | (starttls-extra-arguments, starttls-process-connection-type) |
| 19752 | (starttls-connect, starttls-failure, starttls-success): | 19794 | (starttls-connect, starttls-failure, starttls-success): |
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index 86c4eea59ab..a2d6d61efd4 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 | |||
| @@ -2346,7 +2346,7 @@ | |||
| 2346 | 2346 | ||
| 2347 | * nnmh.el: Don't call nnmail-activate. | 2347 | * nnmh.el: Don't call nnmail-activate. |
| 2348 | 2348 | ||
| 2349 | * gnus.el: User-variabelize all custom vars. | 2349 | * gnus.el: User-variablize all custom vars. |
| 2350 | 2350 | ||
| 2351 | 1998-02-13 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no> | 2351 | 1998-02-13 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no> |
| 2352 | 2352 | ||
| @@ -3471,7 +3471,7 @@ | |||
| 3471 | * pop3.el (pop3-md5): `with-temp-buffer' doesn't exist in Emacs | 3471 | * pop3.el (pop3-md5): `with-temp-buffer' doesn't exist in Emacs |
| 3472 | 19.34. | 3472 | 19.34. |
| 3473 | 3473 | ||
| 3474 | * nneething.el (nneething-directory): Defvarred. | 3474 | * nneething.el (nneething-directory): Defvared. |
| 3475 | 3475 | ||
| 3476 | * message.el: Autoloaded nndraft things. | 3476 | * message.el: Autoloaded nndraft things. |
| 3477 | (message-set-auto-save-file-name): Use it. | 3477 | (message-set-auto-save-file-name): Use it. |
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2 index e519ce340c2..6b11a956a99 100644 --- a/lisp/gnus/ChangeLog.2 +++ b/lisp/gnus/ChangeLog.2 | |||
| @@ -1396,7 +1396,7 @@ | |||
| 1396 | * tls.el (tls-process-connection-type): Doc fix. | 1396 | * tls.el (tls-process-connection-type): Doc fix. |
| 1397 | 1397 | ||
| 1398 | * imap.el (imap-starttls-open): Rewrite, should support both old | 1398 | * imap.el (imap-starttls-open): Rewrite, should support both old |
| 1399 | starttls.el and new starttls.el that uses GNUTLS. | 1399 | starttls.el and new starttls.el that uses GnuTLS. |
| 1400 | 1400 | ||
| 1401 | 2003-09-18 Katsumi Yamaoka <yamaoka@jpl.org> | 1401 | 2003-09-18 Katsumi Yamaoka <yamaoka@jpl.org> |
| 1402 | 1402 | ||
| @@ -5120,7 +5120,7 @@ | |||
| 5120 | * gnus-util.el (gnus-prin1-to-string): Bind print-length and | 5120 | * gnus-util.el (gnus-prin1-to-string): Bind print-length and |
| 5121 | print-level. | 5121 | print-level. |
| 5122 | 5122 | ||
| 5123 | * gnus-art.el (article-display-x-face): Removed grey x-face stuff. | 5123 | * gnus-art.el (article-display-x-face): Removed gray x-face stuff. |
| 5124 | (gnus-treat-display-grey-xface): Removed. | 5124 | (gnus-treat-display-grey-xface): Removed. |
| 5125 | 5125 | ||
| 5126 | * gnus-fun.el (gnus-grab-cam-face): New. | 5126 | * gnus-fun.el (gnus-grab-cam-face): New. |
| @@ -9836,7 +9836,7 @@ | |||
| 9836 | 2002-02-08 ShengHuo ZHU <zsh@cs.rochester.edu> | 9836 | 2002-02-08 ShengHuo ZHU <zsh@cs.rochester.edu> |
| 9837 | 9837 | ||
| 9838 | * gnus-art.el (gnus-treat-display-grey-xface): New variable. | 9838 | * gnus-art.el (gnus-treat-display-grey-xface): New variable. |
| 9839 | (article-display-x-face): Use it. Disable grey xface, if | 9839 | (article-display-x-face): Use it. Disable gray xface, if |
| 9840 | uncompface is not found. | 9840 | uncompface is not found. |
| 9841 | 9841 | ||
| 9842 | * message.el (message-mode): Don't enable multibyte on an indirect | 9842 | * message.el (message-mode): Don't enable multibyte on an indirect |
| @@ -11350,7 +11350,7 @@ | |||
| 11350 | * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Renamed. | 11350 | * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Renamed. |
| 11351 | 11351 | ||
| 11352 | * gnus-art.el (gnus-ignored-headers): Hide all X-Faces. | 11352 | * gnus-art.el (gnus-ignored-headers): Hide all X-Faces. |
| 11353 | (article-display-x-face): Display grey X-Faces. | 11353 | (article-display-x-face): Display gray X-Faces. |
| 11354 | 11354 | ||
| 11355 | * gnus-fun.el (gnus-convert-gray-x-face-region): New function. | 11355 | * gnus-fun.el (gnus-convert-gray-x-face-region): New function. |
| 11356 | (gnus-convert-gray-x-face-to-ppm): Ditto. | 11356 | (gnus-convert-gray-x-face-to-ppm): Ditto. |
diff --git a/lisp/gnus/compface.el b/lisp/gnus/compface.el index 2a2383777cb..e132f736269 100644 --- a/lisp/gnus/compface.el +++ b/lisp/gnus/compface.el | |||
| @@ -42,7 +42,8 @@ or `faces-xface' and `netpbm' or `libgr-progs', for instance." | |||
| 42 | 'delete '(t nil) nil)) | 42 | 'delete '(t nil) nil)) |
| 43 | (progn | 43 | (progn |
| 44 | (goto-char (point-min)) | 44 | (goto-char (point-min)) |
| 45 | (insert "/* Width=48, Height=48 */\n") | 45 | (insert "/* Format_version=1, Width=48, Height=48, Depth=1,\ |
| 46 | Valid_bits_per_item=16 */\n") | ||
| 46 | ;; I just can't get "icontopbm" to work correctly on its | 47 | ;; I just can't get "icontopbm" to work correctly on its |
| 47 | ;; own in XEmacs. And Emacs doesn't understand un-raw pbm | 48 | ;; own in XEmacs. And Emacs doesn't understand un-raw pbm |
| 48 | ;; files. | 49 | ;; files. |
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el index f913ddb5378..3ee72bc5fc6 100644 --- a/lisp/gnus/gmm-utils.el +++ b/lisp/gnus/gmm-utils.el | |||
| @@ -217,7 +217,7 @@ This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility." | |||
| 217 | 'static-color 'pseudo-color))))) | 217 | 'static-color 'pseudo-color))))) |
| 218 | 'gnome | 218 | 'gnome |
| 219 | 'retro) | 219 | 'retro) |
| 220 | "Prefered tool bar style." | 220 | "Preferred tool bar style." |
| 221 | :type '(choice (const :tag "GNOME style" gnome) | 221 | :type '(choice (const :tag "GNOME style" gnome) |
| 222 | (const :tag "Retro look" retro)) | 222 | (const :tag "Retro look" retro)) |
| 223 | :group 'gmm) | 223 | :group 'gmm) |
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 0abc802f558..555c715bc2f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -268,11 +268,14 @@ This can also be a list of the above values." | |||
| 268 | (if (or (gnus-image-type-available-p 'xface) | 268 | (if (or (gnus-image-type-available-p 'xface) |
| 269 | (gnus-image-type-available-p 'pbm)) | 269 | (gnus-image-type-available-p 'pbm)) |
| 270 | 'gnus-display-x-face-in-from | 270 | 'gnus-display-x-face-in-from |
| 271 | "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | ee -") | 271 | "{ echo \ |
| 272 | '/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */'\ | ||
| 273 | ; uncompface; } | icontopbm | ee -") | ||
| 272 | (if (gnus-image-type-available-p 'pbm) | 274 | (if (gnus-image-type-available-p 'pbm) |
| 273 | 'gnus-display-x-face-in-from | 275 | 'gnus-display-x-face-in-from |
| 274 | "{ echo '/* Width=48, Height=48 */'; uncompface; } | icontopbm | \ | 276 | "{ echo \ |
| 275 | display -")) | 277 | '/* Format_version=1, Width=48, Height=48, Depth=1, Valid_bits_per_item=16 */'\ |
| 278 | ; uncompface; } | icontopbm | display -")) | ||
| 276 | "*String or function to be executed to display an X-Face header. | 279 | "*String or function to be executed to display an X-Face header. |
| 277 | If it is a string, the command will be executed in a sub-shell | 280 | If it is a string, the command will be executed in a sub-shell |
| 278 | asynchronously. The compressed face will be piped to this command." | 281 | asynchronously. The compressed face will be piped to this command." |
| @@ -2879,6 +2882,14 @@ message header will be added to the bodies of the \"text/html\" parts." | |||
| 2879 | (with-current-buffer gnus-article-buffer | 2882 | (with-current-buffer gnus-article-buffer |
| 2880 | gnus-article-mime-handles) | 2883 | gnus-article-mime-handles) |
| 2881 | cid-dir)) | 2884 | cid-dir)) |
| 2885 | (when (eq system-type 'cygwin) | ||
| 2886 | (setq cid-file | ||
| 2887 | (concat "/" (substring | ||
| 2888 | (with-output-to-string | ||
| 2889 | (call-process "cygpath" nil | ||
| 2890 | standard-output | ||
| 2891 | nil "-m" cid-file)) | ||
| 2892 | 0 -1)))) | ||
| 2882 | (replace-match (concat "file://" cid-file) | 2893 | (replace-match (concat "file://" cid-file) |
| 2883 | nil nil nil 1)))) | 2894 | nil nil nil 1)))) |
| 2884 | (unless content (setq content (buffer-string)))) | 2895 | (unless content (setq content (buffer-string)))) |
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 6f146644115..694b4d7e8b4 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -362,7 +362,7 @@ If you want to modify the group buffer, you can use this hook." | |||
| 362 | gnus-group-news-low)) | 362 | gnus-group-news-low)) |
| 363 | "*Controls the highlighting of group buffer lines. | 363 | "*Controls the highlighting of group buffer lines. |
| 364 | 364 | ||
| 365 | Below is a list of `Form'/`Face' pairs. When deciding how a a | 365 | Below is a list of `Form'/`Face' pairs. When deciding how a |
| 366 | particular group line should be displayed, each form is | 366 | particular group line should be displayed, each form is |
| 367 | evaluated. The content of the face field after the first true form is | 367 | evaluated. The content of the face field after the first true form is |
| 368 | used. You can change how those group lines are displayed by | 368 | used. You can change how those group lines are displayed by |
| @@ -1354,9 +1354,9 @@ if it is a string, only list groups matching REGEXP." | |||
| 1354 | (predicate t) ; We list all groups? | 1354 | (predicate t) ; We list all groups? |
| 1355 | (t | 1355 | (t |
| 1356 | (or | 1356 | (or |
| 1357 | (if (eq unread t) ; Unactivated? | 1357 | (if (eq unread t) ; Inactive? |
| 1358 | gnus-group-list-inactive-groups | 1358 | gnus-group-list-inactive-groups |
| 1359 | ; We list unactivated | 1359 | ; We list inactive |
| 1360 | (and (numberp unread) (> unread 0))) | 1360 | (and (numberp unread) (> unread 0))) |
| 1361 | ; We list groups with unread articles | 1361 | ; We list groups with unread articles |
| 1362 | (and gnus-list-groups-with-ticked-articles | 1362 | (and gnus-list-groups-with-ticked-articles |
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index e6a06a0500d..e06d475ed6c 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el | |||
| @@ -1549,7 +1549,7 @@ this is a reply." | |||
| 1549 | (message-narrow-to-headers) | 1549 | (message-narrow-to-headers) |
| 1550 | (let ((gcc (or gcc (mail-fetch-field "gcc" nil t))) | 1550 | (let ((gcc (or gcc (mail-fetch-field "gcc" nil t))) |
| 1551 | (cur (current-buffer)) | 1551 | (cur (current-buffer)) |
| 1552 | groups group method group-art | 1552 | groups group method group-art options |
| 1553 | mml-externalize-attachments) | 1553 | mml-externalize-attachments) |
| 1554 | (when gcc | 1554 | (when gcc |
| 1555 | (message-remove-header "gcc") | 1555 | (message-remove-header "gcc") |
| @@ -1573,6 +1573,7 @@ this is a reply." | |||
| 1573 | gnus-gcc-externalize-attachments)) | 1573 | gnus-gcc-externalize-attachments)) |
| 1574 | (save-excursion | 1574 | (save-excursion |
| 1575 | (nnheader-set-temp-buffer " *acc*") | 1575 | (nnheader-set-temp-buffer " *acc*") |
| 1576 | (setq message-options (with-current-buffer cur message-options)) | ||
| 1576 | (insert-buffer-substring cur) | 1577 | (insert-buffer-substring cur) |
| 1577 | (message-encode-message-body) | 1578 | (message-encode-message-body) |
| 1578 | (save-restriction | 1579 | (save-restriction |
| @@ -1629,6 +1630,8 @@ this is a reply." | |||
| 1629 | (boundp 'gnus-inews-mark-gcc-as-read) | 1630 | (boundp 'gnus-inews-mark-gcc-as-read) |
| 1630 | (symbol-value 'gnus-inews-mark-gcc-as-read)))) | 1631 | (symbol-value 'gnus-inews-mark-gcc-as-read)))) |
| 1631 | (gnus-group-mark-article-read group (cdr group-art))) | 1632 | (gnus-group-mark-article-read group (cdr group-art))) |
| 1633 | (setq options message-options) | ||
| 1634 | (with-current-buffer cur (setq message-options options)) | ||
| 1632 | (kill-buffer (current-buffer))))))))) | 1635 | (kill-buffer (current-buffer))))))))) |
| 1633 | 1636 | ||
| 1634 | (defun gnus-inews-insert-gcc (&optional group) | 1637 | (defun gnus-inews-insert-gcc (&optional group) |
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index b18b78df063..3a9294d58d6 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el | |||
| @@ -2533,7 +2533,7 @@ If FORCE is non-nil, the .newsrc file is read." | |||
| 2533 | ((or (eq symbol options-symbol) | 2533 | ((or (eq symbol options-symbol) |
| 2534 | (eq symbol Options-symbol)) | 2534 | (eq symbol Options-symbol)) |
| 2535 | (setq gnus-newsrc-options | 2535 | (setq gnus-newsrc-options |
| 2536 | ;; This concating is quite inefficient, but since our | 2536 | ;; This concatting is quite inefficient, but since our |
| 2537 | ;; thorough studies show that approx 99.37% of all | 2537 | ;; thorough studies show that approx 99.37% of all |
| 2538 | ;; .newsrc files only contain a single options line, we | 2538 | ;; .newsrc files only contain a single options line, we |
| 2539 | ;; don't give a damn, frankly, my dear. | 2539 | ;; don't give a damn, frankly, my dear. |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 7cea88e7f54..b3f85cf9366 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -11913,7 +11913,7 @@ will not be marked as saved." | |||
| 11913 | ;; This is a pseudo-article. | 11913 | ;; This is a pseudo-article. |
| 11914 | (if (assq 'name header) | 11914 | (if (assq 'name header) |
| 11915 | (gnus-copy-file (cdr (assq 'name header))) | 11915 | (gnus-copy-file (cdr (assq 'name header))) |
| 11916 | (gnus-message 1 "Article %d is unsaveable" article)) | 11916 | (gnus-message 1 "Article %d is unsavable" article)) |
| 11917 | ;; This is a real article. | 11917 | ;; This is a real article. |
| 11918 | (save-window-excursion | 11918 | (save-window-excursion |
| 11919 | (gnus-summary-select-article decode decode nil article) | 11919 | (gnus-summary-select-article decode decode nil article) |
diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index 17af1a38333..87ca27adcf4 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el | |||
| @@ -582,7 +582,7 @@ articles in the topic and its subtopics." | |||
| 582 | (or gnus-topic-display-empty-topics ;We want empty topics | 582 | (or gnus-topic-display-empty-topics ;We want empty topics |
| 583 | (not (zerop unread)) ;Non-empty | 583 | (not (zerop unread)) ;Non-empty |
| 584 | tick ;Ticked articles | 584 | tick ;Ticked articles |
| 585 | (/= point-max (point-max)))) ;Unactivated groups | 585 | (/= point-max (point-max)))) ;Inactive groups |
| 586 | (gnus-extent-start-open (point)) | 586 | (gnus-extent-start-open (point)) |
| 587 | (gnus-topic-insert-topic-line | 587 | (gnus-topic-insert-topic-line |
| 588 | (car type) visiblep | 588 | (car type) visiblep |
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 6e6ef76c0c1..2315cff6261 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el | |||
| @@ -1017,6 +1017,7 @@ This only works when `display-time' is enabled." | |||
| 1017 | (dolist (file (directory-files (concat path subdir) t)) | 1017 | (dolist (file (directory-files (concat path subdir) t)) |
| 1018 | (when (and (not (file-directory-p file)) | 1018 | (when (and (not (file-directory-p file)) |
| 1019 | (not (if function | 1019 | (not (if function |
| 1020 | ;; `function' should return nil if successful. | ||
| 1020 | (funcall function file mail-source-crash-box) | 1021 | (funcall function file mail-source-crash-box) |
| 1021 | (let ((coding-system-for-write | 1022 | (let ((coding-system-for-write |
| 1022 | mm-text-coding-system) | 1023 | mm-text-coding-system) |
| @@ -1035,7 +1036,8 @@ This only works when `display-time' is enabled." | |||
| 1035 | ;;; (insert "\n\n") | 1036 | ;;; (insert "\n\n") |
| 1036 | ;; MMDF mail format | 1037 | ;; MMDF mail format |
| 1037 | (insert "\001\001\001\001\n")) | 1038 | (insert "\001\001\001\001\n")) |
| 1038 | (delete-file file))))) | 1039 | (delete-file file) |
| 1040 | nil)))) | ||
| 1039 | (incf found (mail-source-callback callback file)) | 1041 | (incf found (mail-source-callback callback file)) |
| 1040 | (mail-source-delete-crash-box))))) | 1042 | (mail-source-delete-crash-box))))) |
| 1041 | found))) | 1043 | found))) |
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 5d82faee20d..ee9d4992158 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -4507,7 +4507,8 @@ This function could be useful in `message-setup-hook'." | |||
| 4507 | (boundp 'gnus-group-posting-charset-alist)) | 4507 | (boundp 'gnus-group-posting-charset-alist)) |
| 4508 | (gnus-setup-posting-charset nil) | 4508 | (gnus-setup-posting-charset nil) |
| 4509 | message-posting-charset)) | 4509 | message-posting-charset)) |
| 4510 | (headers message-required-mail-headers)) | 4510 | (headers message-required-mail-headers) |
| 4511 | options) | ||
| 4511 | (when (and message-generate-hashcash | 4512 | (when (and message-generate-hashcash |
| 4512 | (not (eq message-generate-hashcash 'opportunistic))) | 4513 | (not (eq message-generate-hashcash 'opportunistic))) |
| 4513 | (message "Generating hashcash...") | 4514 | (message "Generating hashcash...") |
| @@ -4546,9 +4547,11 @@ This function could be useful in `message-setup-hook'." | |||
| 4546 | (error "Failed to send the message"))))) | 4547 | (error "Failed to send the message"))))) |
| 4547 | ;; Let the user do all of the above. | 4548 | ;; Let the user do all of the above. |
| 4548 | (run-hooks 'message-header-hook)) | 4549 | (run-hooks 'message-header-hook)) |
| 4550 | (setq options message-options) | ||
| 4549 | (unwind-protect | 4551 | (unwind-protect |
| 4550 | (with-current-buffer tembuf | 4552 | (with-current-buffer tembuf |
| 4551 | (erase-buffer) | 4553 | (erase-buffer) |
| 4554 | (setq message-options options) | ||
| 4552 | ;; Avoid copying text props (except hard newlines). | 4555 | ;; Avoid copying text props (except hard newlines). |
| 4553 | (insert (with-current-buffer mailbuf | 4556 | (insert (with-current-buffer mailbuf |
| 4554 | (mml-buffer-substring-no-properties-except-hard-newlines | 4557 | (mml-buffer-substring-no-properties-except-hard-newlines |
| @@ -4630,9 +4633,11 @@ If you always want Gnus to send messages in one piece, set | |||
| 4630 | (message "Sending via mail...") | 4633 | (message "Sending via mail...") |
| 4631 | (funcall (or message-send-mail-real-function | 4634 | (funcall (or message-send-mail-real-function |
| 4632 | message-send-mail-function))) | 4635 | message-send-mail-function))) |
| 4633 | (message-send-mail-partially))) | 4636 | (message-send-mail-partially)) |
| 4637 | (setq options message-options)) | ||
| 4634 | (kill-buffer tembuf)) | 4638 | (kill-buffer tembuf)) |
| 4635 | (set-buffer mailbuf) | 4639 | (set-buffer mailbuf) |
| 4640 | (setq message-options options) | ||
| 4636 | (push 'mail message-sent-message-via))) | 4641 | (push 'mail message-sent-message-via))) |
| 4637 | 4642 | ||
| 4638 | (defvar sendmail-program) | 4643 | (defvar sendmail-program) |
| @@ -6322,6 +6327,7 @@ between beginning of field and beginning of line." | |||
| 6322 | 6327 | ||
| 6323 | (defun message-pop-to-buffer (name &optional switch-function) | 6328 | (defun message-pop-to-buffer (name &optional switch-function) |
| 6324 | "Pop to buffer NAME, and warn if it already exists and is modified." | 6329 | "Pop to buffer NAME, and warn if it already exists and is modified." |
| 6330 | (unless switch-function (setq switch-function #'pop-to-buffer)) | ||
| 6325 | (let ((buffer (get-buffer name))) | 6331 | (let ((buffer (get-buffer name))) |
| 6326 | (if (and buffer | 6332 | (if (and buffer |
| 6327 | (buffer-name buffer)) | 6333 | (buffer-name buffer)) |
| @@ -6331,7 +6337,7 @@ between beginning of field and beginning of line." | |||
| 6331 | (progn | 6337 | (progn |
| 6332 | (gnus-select-frame-set-input-focus (window-frame window)) | 6338 | (gnus-select-frame-set-input-focus (window-frame window)) |
| 6333 | (select-window window)) | 6339 | (select-window window)) |
| 6334 | (funcall (or switch-function 'switch-to-buffer) buffer) | 6340 | (funcall switch-function buffer) |
| 6335 | (set-buffer buffer)) | 6341 | (set-buffer buffer)) |
| 6336 | (when (and (buffer-modified-p) | 6342 | (when (and (buffer-modified-p) |
| 6337 | (not (prog1 | 6343 | (not (prog1 |
| @@ -6339,7 +6345,7 @@ between beginning of field and beginning of line." | |||
| 6339 | "Message already being composed; erase? ") | 6345 | "Message already being composed; erase? ") |
| 6340 | (message nil)))) | 6346 | (message nil)))) |
| 6341 | (error "Message being composed"))) | 6347 | (error "Message being composed"))) |
| 6342 | (funcall (or switch-function 'switch-to-buffer) name) | 6348 | (funcall switch-function name) |
| 6343 | (set-buffer name)) | 6349 | (set-buffer name)) |
| 6344 | (erase-buffer) | 6350 | (erase-buffer) |
| 6345 | (message-mode))) | 6351 | (message-mode))) |
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el index 695451ddc45..ee7ba1c193b 100644 --- a/lisp/gnus/mm-bodies.el +++ b/lisp/gnus/mm-bodies.el | |||
| @@ -87,9 +87,9 @@ If no encoding was done, nil is returned." | |||
| 87 | (goto-char (point-min)) | 87 | (goto-char (point-min)) |
| 88 | (if (re-search-forward "[^\x0-\x7f]" nil t) | 88 | (if (re-search-forward "[^\x0-\x7f]" nil t) |
| 89 | (or mail-parse-charset | 89 | (or mail-parse-charset |
| 90 | (message-options-get 'mm-encody-body-charset) | 90 | (message-options-get 'mm-body-charset-encoding-alist) |
| 91 | (message-options-set | 91 | (message-options-set |
| 92 | 'mm-encody-body-charset | 92 | 'mm-body-charset-encoding-alist |
| 93 | (mm-read-coding-system "Charset used in the article: "))) | 93 | (mm-read-coding-system "Charset used in the article: "))) |
| 94 | ;; The logic in `mml-generate-mime-1' confirms that it's OK | 94 | ;; The logic in `mml-generate-mime-1' confirms that it's OK |
| 95 | ;; to return nil here. | 95 | ;; to return nil here. |
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 36c56e0921b..44e2af5b904 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el | |||
| @@ -360,7 +360,7 @@ to: | |||
| 360 | (\"text/html\" \"text/richtext\") | 360 | (\"text/html\" \"text/richtext\") |
| 361 | 361 | ||
| 362 | Adding \"image/.*\" might also be useful. Spammers use it as the | 362 | Adding \"image/.*\" might also be useful. Spammers use it as the |
| 363 | prefered part of multipart/alternative messages. See also | 363 | preferred part of multipart/alternative messages. See also |
| 364 | `gnus-buttonized-mime-types', to which adding \"multipart/alternative\" | 364 | `gnus-buttonized-mime-types', to which adding \"multipart/alternative\" |
| 365 | enables you to choose manually one of two types those mails include." | 365 | enables you to choose manually one of two types those mails include." |
| 366 | :type '(repeat regexp) ;; See `mm-preferred-alternative-precedence'. | 366 | :type '(repeat regexp) ;; See `mm-preferred-alternative-precedence'. |
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 352fa329e3e..867c3be4b60 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el | |||
| @@ -466,16 +466,21 @@ If MML is non-nil, return the buffer up till the correspondent mml tag." | |||
| 466 | (defun mml-generate-mime () | 466 | (defun mml-generate-mime () |
| 467 | "Generate a MIME message based on the current MML document." | 467 | "Generate a MIME message based on the current MML document." |
| 468 | (let ((cont (mml-parse)) | 468 | (let ((cont (mml-parse)) |
| 469 | (mml-multipart-number mml-multipart-number)) | 469 | (mml-multipart-number mml-multipart-number) |
| 470 | (options message-options)) | ||
| 470 | (if (not cont) | 471 | (if (not cont) |
| 471 | nil | 472 | nil |
| 472 | (mm-with-multibyte-buffer | 473 | (prog1 |
| 473 | (if (and (consp (car cont)) | 474 | (mm-with-multibyte-buffer |
| 474 | (= (length cont) 1)) | 475 | (setq message-options options) |
| 475 | (mml-generate-mime-1 (car cont)) | 476 | (if (and (consp (car cont)) |
| 476 | (mml-generate-mime-1 (nconc (list 'multipart '(type . "mixed")) | 477 | (= (length cont) 1)) |
| 477 | cont))) | 478 | (mml-generate-mime-1 (car cont)) |
| 478 | (buffer-string))))) | 479 | (mml-generate-mime-1 (nconc (list 'multipart '(type . "mixed")) |
| 480 | cont))) | ||
| 481 | (setq options message-options) | ||
| 482 | (buffer-string)) | ||
| 483 | (setq message-options options))))) | ||
| 479 | 484 | ||
| 480 | (defun mml-generate-mime-1 (cont) | 485 | (defun mml-generate-mime-1 (cont) |
| 481 | (let ((mm-use-ultra-safe-encoding | 486 | (let ((mm-use-ultra-safe-encoding |
| @@ -1454,7 +1459,7 @@ Should be adopted if code in `message-send-mail' is changed." | |||
| 1454 | "Display current buffer with Gnus, in a new buffer. | 1459 | "Display current buffer with Gnus, in a new buffer. |
| 1455 | If RAW, display a raw encoded MIME message. | 1460 | If RAW, display a raw encoded MIME message. |
| 1456 | 1461 | ||
| 1457 | The window layout for the preview buffer is controled by the variables | 1462 | The window layout for the preview buffer is controlled by the variables |
| 1458 | `special-display-buffer-names', `special-display-regexps', or | 1463 | `special-display-buffer-names', `special-display-regexps', or |
| 1459 | `gnus-buffer-configuration' (the first match made will be used), | 1464 | `gnus-buffer-configuration' (the first match made will be used), |
| 1460 | or the `pop-to-buffer' function." | 1465 | or the `pop-to-buffer' function." |
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index 399008cec1b..59e06364f42 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el | |||
| @@ -1213,7 +1213,7 @@ Use the nov database for the current group if available." | |||
| 1213 | ;; #### already belongs to a range, whereas the corresponding | 1213 | ;; #### already belongs to a range, whereas the corresponding |
| 1214 | ;; #### article doesn't exist (for example, if you delete an | 1214 | ;; #### article doesn't exist (for example, if you delete an |
| 1215 | ;; #### article). For that reason, it is important to update | 1215 | ;; #### article). For that reason, it is important to update |
| 1216 | ;; #### the ranges (meaning remove inexistent articles) before | 1216 | ;; #### the ranges (meaning remove nonexistent articles) before |
| 1217 | ;; #### doing anything on them. | 1217 | ;; #### doing anything on them. |
| 1218 | ;; 2 a/ read articles: | 1218 | ;; 2 a/ read articles: |
| 1219 | (let ((read (gnus-info-read info))) | 1219 | (let ((read (gnus-info-read info))) |
diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index ee3e6582e80..0f7a450b30c 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el | |||
| @@ -270,11 +270,11 @@ Use streaming commands." | |||
| 270 | message-count)) | 270 | message-count)) |
| 271 | 271 | ||
| 272 | (defcustom pop3-stream-type nil | 272 | (defcustom pop3-stream-type nil |
| 273 | "*Transport security type for POP3 connexions. | 273 | "*Transport security type for POP3 connections. |
| 274 | This may be either nil (plain connexion), `ssl' (use an | 274 | This may be either nil (plain connection), `ssl' (use an |
| 275 | SSL/TSL-secured stream) or `starttls' (use the starttls mechanism | 275 | SSL/TSL-secured stream) or `starttls' (use the starttls mechanism |
| 276 | to turn on TLS security after opening the stream). However, if | 276 | to turn on TLS security after opening the stream). However, if |
| 277 | this is nil, `ssl' is assumed for connexions to port | 277 | this is nil, `ssl' is assumed for connections to port |
| 278 | 995 (pop3s)." | 278 | 995 (pop3s)." |
| 279 | :version "23.1" ;; No Gnus | 279 | :version "23.1" ;; No Gnus |
| 280 | :group 'pop3 | 280 | :group 'pop3 |
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index feed078034c..f1cb1f69e56 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el | |||
| @@ -586,7 +586,7 @@ should not change this value.") | |||
| 586 | ((>= column rfc2047-encode-max-chars) | 586 | ((>= column rfc2047-encode-max-chars) |
| 587 | (when eword | 587 | (when eword |
| 588 | (cond ((string-match "\n[ \t]+\\'" eword) | 588 | (cond ((string-match "\n[ \t]+\\'" eword) |
| 589 | ;; Reomove a superfluous empty line. | 589 | ;; Remove a superfluous empty line. |
| 590 | (setq eword (substring eword 0 (match-beginning 0)))) | 590 | (setq eword (substring eword 0 (match-beginning 0)))) |
| 591 | ((string-match "(+\\'" eword) | 591 | ((string-match "(+\\'" eword) |
| 592 | ;; Break the line before the open parenthesis. | 592 | ;; Break the line before the open parenthesis. |
| @@ -639,7 +639,7 @@ should not change this value.") | |||
| 639 | (setq crest " " | 639 | (setq crest " " |
| 640 | eword (concat eword next))) | 640 | eword (concat eword next))) |
| 641 | (when (string-match "\n[ \t]+\\'" eword) | 641 | (when (string-match "\n[ \t]+\\'" eword) |
| 642 | ;; Reomove a superfluous empty line. | 642 | ;; Remove a superfluous empty line. |
| 643 | (setq eword (substring eword 0 (match-beginning 0)))) | 643 | (setq eword (substring eword 0 (match-beginning 0)))) |
| 644 | (rfc2047-encode-1 (length crest) (substring string index) | 644 | (rfc2047-encode-1 (length crest) (substring string index) |
| 645 | cs encoder start " " tail | 645 | cs encoder start " " tail |
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 119d8e0a7f3..f2d8f843564 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el | |||
| @@ -53,17 +53,17 @@ fit these criteria." | |||
| 53 | :group 'shr | 53 | :group 'shr |
| 54 | :type 'regexp) | 54 | :type 'regexp) |
| 55 | 55 | ||
| 56 | (defcustom shr-table-horizontal-line ? ; space | 56 | (defcustom shr-table-horizontal-line ?\s |
| 57 | "Character used to draw horizontal table lines." | 57 | "Character used to draw horizontal table lines." |
| 58 | :group 'shr | 58 | :group 'shr |
| 59 | :type 'character) | 59 | :type 'character) |
| 60 | 60 | ||
| 61 | (defcustom shr-table-vertical-line ? ; space | 61 | (defcustom shr-table-vertical-line ?\s |
| 62 | "Character used to draw vertical table lines." | 62 | "Character used to draw vertical table lines." |
| 63 | :group 'shr | 63 | :group 'shr |
| 64 | :type 'character) | 64 | :type 'character) |
| 65 | 65 | ||
| 66 | (defcustom shr-table-corner ? ; space | 66 | (defcustom shr-table-corner ?\s |
| 67 | "Character used to draw table corners." | 67 | "Character used to draw table corners." |
| 68 | :group 'shr | 68 | :group 'shr |
| 69 | :type 'character) | 69 | :type 'character) |
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index b995f7478ce..af9fd42c127 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Daiki Ueno <ueno@unixuser.org> | 5 | ;; Author: Daiki Ueno <ueno@unixuser.org> |
| 6 | ;; Author: Simon Josefsson <simon@josefsson.org> | 6 | ;; Author: Simon Josefsson <simon@josefsson.org> |
| 7 | ;; Created: 1999/11/20 | 7 | ;; Created: 1999/11/20 |
| 8 | ;; Keywords: TLS, SSL, OpenSSL, GNUTLS, mail, news | 8 | ;; Keywords: TLS, SSL, OpenSSL, GnuTLS, mail, news |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -33,15 +33,15 @@ | |||
| 33 | ;; implementations both called "starttls.el". The first one is Daiki | 33 | ;; implementations both called "starttls.el". The first one is Daiki |
| 34 | ;; Ueno's starttls.el which uses his own "starttls" command line tool, | 34 | ;; Ueno's starttls.el which uses his own "starttls" command line tool, |
| 35 | ;; and the second one is Simon Josefsson's starttls.el which uses | 35 | ;; and the second one is Simon Josefsson's starttls.el which uses |
| 36 | ;; "gnutls-cli" from GNUTLS. | 36 | ;; "gnutls-cli" from GnuTLS. |
| 37 | ;; | 37 | ;; |
| 38 | ;; If "starttls" is available, it is prefered by the code over | 38 | ;; If "starttls" is available, it is preferred by the code over |
| 39 | ;; "gnutls-cli", for backwards compatibility. Use | 39 | ;; "gnutls-cli", for backwards compatibility. Use |
| 40 | ;; `starttls-use-gnutls' to toggle between implementations if you have | 40 | ;; `starttls-use-gnutls' to toggle between implementations if you have |
| 41 | ;; both tools installed. It is recommended to use GNUTLS, though, as | 41 | ;; both tools installed. It is recommended to use GnuTLS, though, as |
| 42 | ;; it performs more verification of the certificates. | 42 | ;; it performs more verification of the certificates. |
| 43 | 43 | ||
| 44 | ;; The GNUTLS support requires GNUTLS 0.9.90 (released 2003-10-08) or | 44 | ;; The GnuTLS support requires GnuTLS 0.9.90 (released 2003-10-08) or |
| 45 | ;; later, from <http://www.gnu.org/software/gnutls/>, or "starttls" | 45 | ;; later, from <http://www.gnu.org/software/gnutls/>, or "starttls" |
| 46 | ;; from <ftp://ftp.opaopa.org/pub/elisp/>. | 46 | ;; from <ftp://ftp.opaopa.org/pub/elisp/>. |
| 47 | 47 | ||
| @@ -121,8 +121,8 @@ | |||
| 121 | :group 'mail) | 121 | :group 'mail) |
| 122 | 122 | ||
| 123 | (defcustom starttls-gnutls-program "gnutls-cli" | 123 | (defcustom starttls-gnutls-program "gnutls-cli" |
| 124 | "Name of GNUTLS command line tool. | 124 | "Name of GnuTLS command line tool. |
| 125 | This program is used when GNUTLS is used, i.e. when | 125 | This program is used when GnuTLS is used, i.e. when |
| 126 | `starttls-use-gnutls' is non-nil." | 126 | `starttls-use-gnutls' is non-nil." |
| 127 | :version "22.1" | 127 | :version "22.1" |
| 128 | :type 'string | 128 | :type 'string |
| @@ -136,7 +136,7 @@ i.e. when `starttls-use-gnutls' is nil." | |||
| 136 | :group 'starttls) | 136 | :group 'starttls) |
| 137 | 137 | ||
| 138 | (defcustom starttls-use-gnutls (not (executable-find starttls-program)) | 138 | (defcustom starttls-use-gnutls (not (executable-find starttls-program)) |
| 139 | "*Whether to use GNUTLS instead of the `starttls' command." | 139 | "*Whether to use GnuTLS instead of the `starttls' command." |
| 140 | :version "22.1" | 140 | :version "22.1" |
| 141 | :type 'boolean | 141 | :type 'boolean |
| 142 | :group 'starttls) | 142 | :group 'starttls) |
| @@ -150,7 +150,7 @@ These apply when the `starttls' command is used, i.e. when | |||
| 150 | 150 | ||
| 151 | (defcustom starttls-extra-arguments nil | 151 | (defcustom starttls-extra-arguments nil |
| 152 | "Extra arguments to `starttls-program'. | 152 | "Extra arguments to `starttls-program'. |
| 153 | These apply when GNUTLS is used, i.e. when `starttls-use-gnutls' is non-nil. | 153 | These apply when GnuTLS is used, i.e. when `starttls-use-gnutls' is non-nil. |
| 154 | 154 | ||
| 155 | For example, non-TLS compliant servers may require | 155 | For example, non-TLS compliant servers may require |
| 156 | '(\"--protocols\" \"ssl3\"). Invoke \"gnutls-cli --help\" to | 156 | '(\"--protocols\" \"ssl3\"). Invoke \"gnutls-cli --help\" to |
| @@ -167,8 +167,8 @@ find out which parameters are available." | |||
| 167 | 167 | ||
| 168 | (defcustom starttls-connect "- Simple Client Mode:\n\n" | 168 | (defcustom starttls-connect "- Simple Client Mode:\n\n" |
| 169 | "*Regular expression indicating successful connection. | 169 | "*Regular expression indicating successful connection. |
| 170 | The default is what GNUTLS's \"gnutls-cli\" outputs." | 170 | The default is what GnuTLS's \"gnutls-cli\" outputs." |
| 171 | ;; GNUTLS cli.c:main() prints this string when it is starting to run | 171 | ;; GnuTLS cli.c:main() prints this string when it is starting to run |
| 172 | ;; in the application read/write phase. If the logic, or the string | 172 | ;; in the application read/write phase. If the logic, or the string |
| 173 | ;; itself, is modified, this must be updated. | 173 | ;; itself, is modified, this must be updated. |
| 174 | :version "22.1" | 174 | :version "22.1" |
| @@ -177,8 +177,8 @@ The default is what GNUTLS's \"gnutls-cli\" outputs." | |||
| 177 | 177 | ||
| 178 | (defcustom starttls-failure "\\*\\*\\* Handshake has failed" | 178 | (defcustom starttls-failure "\\*\\*\\* Handshake has failed" |
| 179 | "*Regular expression indicating failed TLS handshake. | 179 | "*Regular expression indicating failed TLS handshake. |
| 180 | The default is what GNUTLS's \"gnutls-cli\" outputs." | 180 | The default is what GnuTLS's \"gnutls-cli\" outputs." |
| 181 | ;; GNUTLS cli.c:do_handshake() prints this string on failure. If the | 181 | ;; GnuTLS cli.c:do_handshake() prints this string on failure. If the |
| 182 | ;; logic, or the string itself, is modified, this must be updated. | 182 | ;; logic, or the string itself, is modified, this must be updated. |
| 183 | :version "22.1" | 183 | :version "22.1" |
| 184 | :type 'regexp | 184 | :type 'regexp |
| @@ -186,8 +186,8 @@ The default is what GNUTLS's \"gnutls-cli\" outputs." | |||
| 186 | 186 | ||
| 187 | (defcustom starttls-success "- Compression: " | 187 | (defcustom starttls-success "- Compression: " |
| 188 | "*Regular expression indicating completed TLS handshakes. | 188 | "*Regular expression indicating completed TLS handshakes. |
| 189 | The default is what GNUTLS's \"gnutls-cli\" outputs." | 189 | The default is what GnuTLS's \"gnutls-cli\" outputs." |
| 190 | ;; GNUTLS cli.c:do_handshake() calls, on success, | 190 | ;; GnuTLS cli.c:do_handshake() calls, on success, |
| 191 | ;; common.c:print_info(), that unconditionally print this string | 191 | ;; common.c:print_info(), that unconditionally print this string |
| 192 | ;; last. If that logic, or the string itself, is modified, this | 192 | ;; last. If that logic, or the string itself, is modified, this |
| 193 | ;; must be updated. | 193 | ;; must be updated. |
| @@ -283,7 +283,7 @@ BUFFER is the buffer (or `buffer-name') to associate with the process. | |||
| 283 | Third arg is name of the host to connect to, or its IP address. | 283 | Third arg is name of the host to connect to, or its IP address. |
| 284 | Fourth arg PORT is an integer specifying a port to connect to. | 284 | Fourth arg PORT is an integer specifying a port to connect to. |
| 285 | If `starttls-use-gnutls' is nil, this may also be a service name, but | 285 | If `starttls-use-gnutls' is nil, this may also be a service name, but |
| 286 | GNUTLS requires a port number." | 286 | GnuTLS requires a port number." |
| 287 | (if starttls-use-gnutls | 287 | (if starttls-use-gnutls |
| 288 | (starttls-open-stream-gnutls name buffer host port) | 288 | (starttls-open-stream-gnutls name buffer host port) |
| 289 | (message "Opening STARTTLS connection to `%s:%s'" host (format "%s" port)) | 289 | (message "Opening STARTTLS connection to `%s:%s'" host (format "%s" port)) |
diff --git a/lisp/help.el b/lisp/help.el index 506889c210e..36d49aae9b3 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -969,7 +969,7 @@ This is effective only when Temp Buffer Resize mode is enabled. | |||
| 969 | The value is the maximum height (in lines) which | 969 | The value is the maximum height (in lines) which |
| 970 | `resize-temp-buffer-window' will give to a window displaying a | 970 | `resize-temp-buffer-window' will give to a window displaying a |
| 971 | temporary buffer. It can also be a function to be called to | 971 | temporary buffer. It can also be a function to be called to |
| 972 | choose the height for such a buffer. It gets one argumemt, the | 972 | choose the height for such a buffer. It gets one argument, the |
| 973 | buffer, and should return a positive integer. At the time the | 973 | buffer, and should return a positive integer. At the time the |
| 974 | function is called, the window to be resized is selected." | 974 | function is called, the window to be resized is selected." |
| 975 | :type '(choice integer function) | 975 | :type '(choice integer function) |
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index 056115f57b7..126b616a644 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el | |||
| @@ -150,11 +150,11 @@ main-content <=MAIN_CONTENT;\\n\" rtfm-section file style rtfm-section file)) | |||
| 150 | :prefix "hfy-") | 150 | :prefix "hfy-") |
| 151 | 151 | ||
| 152 | (defcustom hfy-page-header 'hfy-default-header | 152 | (defcustom hfy-page-header 'hfy-default-header |
| 153 | "Function called to build the header of the html source. | 153 | "Function called to build the header of the HTML source. |
| 154 | This is called with two arguments (the filename relative to the top | 154 | This is called with two arguments (the filename relative to the top |
| 155 | level source directory being etag'd and fontified), and a string containing | 155 | level source directory being etag'd and fontified), and a string containing |
| 156 | the <style>...</style> text to embed in the document. | 156 | the <style>...</style> text to embed in the document. |
| 157 | It should return the string returned will be used as the header for the | 157 | It should return a string that will be used as the header for the |
| 158 | htmlfontified version of the source file.\n | 158 | htmlfontified version of the source file.\n |
| 159 | See also `hfy-page-footer'." | 159 | See also `hfy-page-footer'." |
| 160 | :group 'htmlfontify | 160 | :group 'htmlfontify |
| @@ -166,8 +166,8 @@ See also `hfy-page-footer'." | |||
| 166 | (defcustom hfy-split-index nil | 166 | (defcustom hfy-split-index nil |
| 167 | "Whether or not to split the index `hfy-index-file' alphabetically. | 167 | "Whether or not to split the index `hfy-index-file' alphabetically. |
| 168 | If non-nil, the index is split on the first letter of each tag. | 168 | If non-nil, the index is split on the first letter of each tag. |
| 169 | Useful when the index would otherwise | 169 | Useful when the index would otherwise be large and take |
| 170 | be large and take a long time to render or be difficult to navigate." | 170 | a long time to render or be difficult to navigate." |
| 171 | :group 'htmlfontify | 171 | :group 'htmlfontify |
| 172 | :tag "split-index" | 172 | :tag "split-index" |
| 173 | :type '(boolean)) | 173 | :type '(boolean)) |
| @@ -179,7 +179,7 @@ It takes only one argument, the filename." | |||
| 179 | :tag "page-footer" | 179 | :tag "page-footer" |
| 180 | :type '(function)) | 180 | :type '(function)) |
| 181 | 181 | ||
| 182 | (defcustom hfy-extn ".html" | 182 | (defcustom hfy-extn ".html" |
| 183 | "File extension used for output files." | 183 | "File extension used for output files." |
| 184 | :group 'htmlfontify | 184 | :group 'htmlfontify |
| 185 | :tag "extension" | 185 | :tag "extension" |
| @@ -251,7 +251,7 @@ when not running under a window system." | |||
| 251 | 251 | ||
| 252 | (defcustom hfy-post-html-hooks nil | 252 | (defcustom hfy-post-html-hooks nil |
| 253 | "List of functions to call after creating and filling the HTML buffer. | 253 | "List of functions to call after creating and filling the HTML buffer. |
| 254 | These functions will be called with the html buffer as the current buffer." | 254 | These functions will be called with the HTML buffer as the current buffer." |
| 255 | :group 'htmlfontify | 255 | :group 'htmlfontify |
| 256 | :tag "post-html-hooks" | 256 | :tag "post-html-hooks" |
| 257 | :options '(set-auto-mode) | 257 | :options '(set-auto-mode) |
| @@ -342,7 +342,7 @@ commands in `hfy-etags-cmd-alist'." | |||
| 342 | :type '(file)) | 342 | :type '(file)) |
| 343 | 343 | ||
| 344 | (defcustom hfy-shell-file-name "/bin/sh" | 344 | (defcustom hfy-shell-file-name "/bin/sh" |
| 345 | "Shell (bourne or compatible) to invoke for complex shell operations." | 345 | "Shell (Bourne or compatible) to invoke for complex shell operations." |
| 346 | :group 'htmlfontify | 346 | :group 'htmlfontify |
| 347 | :tag "shell-file-name" | 347 | :tag "shell-file-name" |
| 348 | :type '(file)) | 348 | :type '(file)) |
| @@ -595,7 +595,8 @@ in a windowing system - try to trick it..." | |||
| 595 | (setq cperl-syntaxify-by-font-lock t))) | 595 | (setq cperl-syntaxify-by-font-lock t))) |
| 596 | (setq hfy-cperl-mode-kludged-p t))) ) | 596 | (setq hfy-cperl-mode-kludged-p t))) ) |
| 597 | 597 | ||
| 598 | (defun hfy-opt (symbol) "Is option SYMBOL set." | 598 | (defun hfy-opt (symbol) |
| 599 | "Is option SYMBOL set." | ||
| 599 | (memq symbol hfy-optimisations)) | 600 | (memq symbol hfy-optimisations)) |
| 600 | 601 | ||
| 601 | (defun hfy-default-header (file style) | 602 | (defun hfy-default-header (file style) |
| @@ -1066,7 +1067,7 @@ See also `hfy-face-to-style-i', `hfy-flatten-style'." | |||
| 1066 | ;; text-decoration is not inherited. | 1067 | ;; text-decoration is not inherited. |
| 1067 | ;; but it's not wrong and if this ever changes it will | 1068 | ;; but it's not wrong and if this ever changes it will |
| 1068 | ;; be needed, so I think it's better to leave it in? -- v | 1069 | ;; be needed, so I think it's better to leave it in? -- v |
| 1069 | (nconc final-style '(("text-decoration"."none")))))) | 1070 | (nconc final-style '(("text-decoration" . "none")))))) |
| 1070 | final-style)) | 1071 | final-style)) |
| 1071 | 1072 | ||
| 1072 | ;; strip redundant bits from a name. Technically, this could result in | 1073 | ;; strip redundant bits from a name. Technically, this could result in |
| @@ -1992,7 +1993,7 @@ FILE is the specific file we are rendering." | |||
| 1992 | tags-list) ))) | 1993 | tags-list) ))) |
| 1993 | 1994 | ||
| 1994 | (defun hfy-shell () | 1995 | (defun hfy-shell () |
| 1995 | "Return `shell-file-name', or \"/bin/sh\" if it is a non-bourne shell." | 1996 | "Return `shell-file-name', or \"/bin/sh\" if it is a non-Bourne shell." |
| 1996 | (if (string-match "\\<bash\\>\\|\\<sh\\>\\|\\<dash\\>" shell-file-name) | 1997 | (if (string-match "\\<bash\\>\\|\\<sh\\>\\|\\<dash\\>" shell-file-name) |
| 1997 | shell-file-name | 1998 | shell-file-name |
| 1998 | (or hfy-shell-file-name "/bin/sh"))) | 1999 | (or hfy-shell-file-name "/bin/sh"))) |
diff --git a/lisp/ido.el b/lisp/ido.el index f425fd5fc63..f2dcba614a9 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -1692,7 +1692,7 @@ This function also adds a hook to the minibuffer." | |||
| 1692 | (defun ido-nonreadable-directory-p (dir) | 1692 | (defun ido-nonreadable-directory-p (dir) |
| 1693 | ;; Return t if dir is a directory, but not readable | 1693 | ;; Return t if dir is a directory, but not readable |
| 1694 | ;; Do not check for non-readable directories via tramp, as this causes a premature | 1694 | ;; Do not check for non-readable directories via tramp, as this causes a premature |
| 1695 | ;; connect on incomplete tramp paths (after entring just method:). | 1695 | ;; connect on incomplete tramp paths (after entering just method:). |
| 1696 | (let ((ido-enable-tramp-completion nil)) | 1696 | (let ((ido-enable-tramp-completion nil)) |
| 1697 | (and (ido-final-slash dir) | 1697 | (and (ido-final-slash dir) |
| 1698 | (not (ido-is-unc-host dir)) | 1698 | (not (ido-is-unc-host dir)) |
| @@ -1702,7 +1702,7 @@ This function also adds a hook to the minibuffer." | |||
| 1702 | (defun ido-directory-too-big-p (dir) | 1702 | (defun ido-directory-too-big-p (dir) |
| 1703 | ;; Return t if dir is a directory, but too big to show | 1703 | ;; Return t if dir is a directory, but too big to show |
| 1704 | ;; Do not check for non-readable directories via tramp, as this causes a premature | 1704 | ;; Do not check for non-readable directories via tramp, as this causes a premature |
| 1705 | ;; connect on incomplete tramp paths (after entring just method:). | 1705 | ;; connect on incomplete tramp paths (after entering just method:). |
| 1706 | (let ((ido-enable-tramp-completion nil)) | 1706 | (let ((ido-enable-tramp-completion nil)) |
| 1707 | (and (numberp ido-max-directory-size) | 1707 | (and (numberp ido-max-directory-size) |
| 1708 | (ido-final-slash dir) | 1708 | (ido-final-slash dir) |
diff --git a/lisp/indent.el b/lisp/indent.el index 93218032700..f5850de8b8f 100644 --- a/lisp/indent.el +++ b/lisp/indent.el | |||
| @@ -63,9 +63,11 @@ e.g., `c-tab-always-indent', and do not respect this variable." | |||
| 63 | 63 | ||
| 64 | (defun indent-according-to-mode () | 64 | (defun indent-according-to-mode () |
| 65 | "Indent line in proper way for current major mode. | 65 | "Indent line in proper way for current major mode. |
| 66 | The buffer-local variable `indent-line-function' determines how to do this, | 66 | Normally, this is done by calling the function specified by the |
| 67 | but the functions `indent-relative' and `indent-relative-maybe' are | 67 | variable `indent-line-function'. However, if the value of that |
| 68 | special; we don't actually use them here." | 68 | variable is `indent-relative' or `indent-relative-maybe', handle |
| 69 | it specially (since those functions are used for tabbing); in | ||
| 70 | that case, indent by aligning to the previous non-blank line." | ||
| 69 | (interactive) | 71 | (interactive) |
| 70 | (syntax-propertize (line-end-position)) | 72 | (syntax-propertize (line-end-position)) |
| 71 | (if (memq indent-line-function | 73 | (if (memq indent-line-function |
| @@ -84,22 +86,25 @@ special; we don't actually use them here." | |||
| 84 | (funcall indent-line-function))) | 86 | (funcall indent-line-function))) |
| 85 | 87 | ||
| 86 | (defun indent-for-tab-command (&optional arg) | 88 | (defun indent-for-tab-command (&optional arg) |
| 87 | "Indent line or region in proper way for current major mode or insert a tab. | 89 | "Indent the current line or region, or insert a tab, as appropriate. |
| 88 | Depending on `tab-always-indent', either insert a tab or indent. | 90 | This function either inserts a tab, or indents the current line, |
| 89 | 91 | or performs symbol completion, depending on `tab-always-indent'. | |
| 90 | In most major modes, if point was in the current line's indentation, | 92 | The function called to actually indent the line or insert a tab |
| 91 | it is moved to the first non-whitespace character after indenting; | 93 | is given by the variable `indent-line-function'. |
| 92 | otherwise it stays at the same position in the text. | 94 | |
| 93 | 95 | If a prefix argument is given, after this function indents the | |
| 94 | If a prefix argument is given, also rigidly indent the entire | 96 | current line or inserts a tab, it also rigidly indents the entire |
| 95 | balanced expression which starts at the beginning of the current | 97 | balanced expression which starts at the beginning of the current |
| 96 | line to reflect the current line's change in indentation. | 98 | line, to reflect the current line's indentation. |
| 97 | 99 | ||
| 98 | If `transient-mark-mode' is turned on and the region is active, | 100 | In most major modes, if point was in the current line's |
| 99 | indent the region (in this case, any prefix argument is ignored). | 101 | indentation, it is moved to the first non-whitespace character |
| 102 | after indenting; otherwise it stays at the same position relative | ||
| 103 | to the text. | ||
| 100 | 104 | ||
| 101 | The function actually called to indent the line is determined by the value of | 105 | If `transient-mark-mode' is turned on and the region is active, |
| 102 | `indent-line-function'." | 106 | this function instead calls `indent-region'. In this case, any |
| 107 | prefix argument is ignored." | ||
| 103 | (interactive "P") | 108 | (interactive "P") |
| 104 | (cond | 109 | (cond |
| 105 | ;; The region is active, indent it. | 110 | ;; The region is active, indent it. |
| @@ -393,34 +398,14 @@ indents all the lines with it: | |||
| 393 | with it. | 398 | with it. |
| 394 | 2) If `indent-region-function' is non-nil, call that function | 399 | 2) If `indent-region-function' is non-nil, call that function |
| 395 | to indent the region. | 400 | to indent the region. |
| 396 | 3) Indent each line as specified by the variable `indent-line-function'. | 401 | 3) Indent each line via `indent-according-to-mode'. |
| 397 | 402 | ||
| 398 | Called from a program, START and END specify the region to indent. | 403 | Called from a program, START and END specify the region to indent. |
| 399 | If the third argument COLUMN is an integer, it specifies the | 404 | If the third argument COLUMN is an integer, it specifies the |
| 400 | column to indent to; if it is nil, use one of the three methods above." | 405 | column to indent to; if it is nil, use one of the three methods above." |
| 401 | (interactive "r\nP") | 406 | (interactive "r\nP") |
| 402 | (if (null column) | 407 | (cond |
| 403 | (if fill-prefix | 408 | (column |
| 404 | (save-excursion | ||
| 405 | (goto-char end) | ||
| 406 | (setq end (point-marker)) | ||
| 407 | (goto-char start) | ||
| 408 | (let ((regexp (regexp-quote fill-prefix))) | ||
| 409 | (while (< (point) end) | ||
| 410 | (or (looking-at regexp) | ||
| 411 | (and (bolp) (eolp)) | ||
| 412 | (insert fill-prefix)) | ||
| 413 | (forward-line 1)))) | ||
| 414 | (if indent-region-function | ||
| 415 | (funcall indent-region-function start end) | ||
| 416 | (save-excursion | ||
| 417 | (setq end (copy-marker end)) | ||
| 418 | (goto-char start) | ||
| 419 | (while (< (point) end) | ||
| 420 | (or (and (bolp) (eolp)) | ||
| 421 | (indent-according-to-mode)) | ||
| 422 | (forward-line 1)) | ||
| 423 | (move-marker end nil)))) | ||
| 424 | (setq column (prefix-numeric-value column)) | 409 | (setq column (prefix-numeric-value column)) |
| 425 | (save-excursion | 410 | (save-excursion |
| 426 | (goto-char end) | 411 | (goto-char end) |
| @@ -433,6 +418,28 @@ column to indent to; if it is nil, use one of the three methods above." | |||
| 433 | (indent-to column 0)) | 418 | (indent-to column 0)) |
| 434 | (forward-line 1)) | 419 | (forward-line 1)) |
| 435 | (move-marker end nil))) | 420 | (move-marker end nil))) |
| 421 | (fill-prefix | ||
| 422 | (save-excursion | ||
| 423 | (goto-char end) | ||
| 424 | (setq end (point-marker)) | ||
| 425 | (goto-char start) | ||
| 426 | (let ((regexp (regexp-quote fill-prefix))) | ||
| 427 | (while (< (point) end) | ||
| 428 | (or (looking-at regexp) | ||
| 429 | (and (bolp) (eolp)) | ||
| 430 | (insert fill-prefix)) | ||
| 431 | (forward-line 1))))) | ||
| 432 | (indent-region-function | ||
| 433 | (funcall indent-region-function start end)) | ||
| 434 | (t | ||
| 435 | (save-excursion | ||
| 436 | (setq end (copy-marker end)) | ||
| 437 | (goto-char start) | ||
| 438 | (while (< (point) end) | ||
| 439 | (or (and (bolp) (eolp)) | ||
| 440 | (indent-according-to-mode)) | ||
| 441 | (forward-line 1)) | ||
| 442 | (move-marker end nil)))) | ||
| 436 | ;; In most cases, reindenting modifies the buffer, but it may also | 443 | ;; In most cases, reindenting modifies the buffer, but it may also |
| 437 | ;; leave it unmodified, in which case we have to deactivate the mark | 444 | ;; leave it unmodified, in which case we have to deactivate the mark |
| 438 | ;; by hand. | 445 | ;; by hand. |
diff --git a/lisp/info.el b/lisp/info.el index 4f2f33d017c..c1dae66bea2 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -1769,12 +1769,14 @@ If DIRECTION is `backward', search in the reverse direction." | |||
| 1769 | ;; If no subfiles, give error now. | 1769 | ;; If no subfiles, give error now. |
| 1770 | (if give-up | 1770 | (if give-up |
| 1771 | (if (null Info-current-subfile) | 1771 | (if (null Info-current-subfile) |
| 1772 | (let ((search-spaces-regexp | 1772 | (if isearch-mode |
| 1773 | (if (or (not isearch-mode) isearch-regexp) | 1773 | (signal 'search-failed (list regexp "end of manual")) |
| 1774 | Info-search-whitespace-regexp))) | 1774 | (let ((search-spaces-regexp |
| 1775 | (if backward | 1775 | (if (or (not isearch-mode) isearch-regexp) |
| 1776 | (re-search-backward regexp) | 1776 | Info-search-whitespace-regexp))) |
| 1777 | (re-search-forward regexp))) | 1777 | (if backward |
| 1778 | (re-search-backward regexp) | ||
| 1779 | (re-search-forward regexp)))) | ||
| 1778 | (setq found nil))) | 1780 | (setq found nil))) |
| 1779 | 1781 | ||
| 1780 | (if (and bound (not found)) | 1782 | (if (and bound (not found)) |
| @@ -1845,7 +1847,7 @@ If DIRECTION is `backward', search in the reverse direction." | |||
| 1845 | (if found | 1847 | (if found |
| 1846 | (message "") | 1848 | (message "") |
| 1847 | (signal 'search-failed (if isearch-mode | 1849 | (signal 'search-failed (if isearch-mode |
| 1848 | (list regexp "end of the manual") | 1850 | (list regexp "end of manual") |
| 1849 | (list regexp))))) | 1851 | (list regexp))))) |
| 1850 | (if (not found) | 1852 | (if (not found) |
| 1851 | (progn (Info-read-subfile osubfile) | 1853 | (progn (Info-read-subfile osubfile) |
| @@ -3240,7 +3242,7 @@ search results." | |||
| 3240 | (Info-index topic) | 3242 | (Info-index topic) |
| 3241 | (push (cons (cons Info-current-file topic) Info-index-alternatives) | 3243 | (push (cons (cons Info-current-file topic) Info-index-alternatives) |
| 3242 | Info-virtual-index-nodes) | 3244 | Info-virtual-index-nodes) |
| 3243 | ;; Clean up unneccessary side-effects of `Info-index'. | 3245 | ;; Clean up unnecessary side-effects of `Info-index'. |
| 3244 | (setq Info-history-list ohist-list) | 3246 | (setq Info-history-list ohist-list) |
| 3245 | (Info-goto-node orignode) | 3247 | (Info-goto-node orignode) |
| 3246 | (message ""))) | 3248 | (message ""))) |
diff --git a/lisp/international/cp51932.el b/lisp/international/cp51932.el index d4a347d43aa..a6489268578 100644 --- a/lisp/international/cp51932.el +++ b/lisp/international/cp51932.el | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*- | 1 | ;;; cp51932.el -- translation table for CP51932. -*- no-byte-compile: t -*- |
| 2 | ;;; Automatically genrated from CP932-2BYTE.map | 2 | ;;; Automatically generated from CP932-2BYTE.map |
| 3 | (let ((map | 3 | (let ((map |
| 4 | '(;JISEXT<->UNICODE | 4 | '(;JISEXT<->UNICODE |
| 5 | (#x2D21 . #x2460) | 5 | (#x2D21 . #x2460) |
| @@ -468,4 +468,3 @@ | |||
| 468 | (setcar x (cdr x)) (setcdr x tmp))) | 468 | (setcar x (cdr x)) (setcdr x tmp))) |
| 469 | map) | 469 | map) |
| 470 | (define-translation-table 'cp51932-encode map)) | 470 | (define-translation-table 'cp51932-encode map)) |
| 471 | |||
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 9f6520c7238..2425ee46eea 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el | |||
| @@ -858,9 +858,9 @@ Internal use only. Should be called at startup time." | |||
| 858 | (defun x-decompose-font-name (pattern) | 858 | (defun x-decompose-font-name (pattern) |
| 859 | "Decompose PATTERN into XLFD fields and return a vector of the fields. | 859 | "Decompose PATTERN into XLFD fields and return a vector of the fields. |
| 860 | The length of the vector is 12. | 860 | The length of the vector is 12. |
| 861 | The FOUNDRY and FAMILY fields are concatinated and stored in the first | 861 | The FOUNDRY and FAMILY fields are concatenated and stored in the first |
| 862 | element of the vector. | 862 | element of the vector. |
| 863 | The REGISTRY and ENCODING fields are concatinated and stored in the last | 863 | The REGISTRY and ENCODING fields are concatenated and stored in the last |
| 864 | element of the vector. | 864 | element of the vector. |
| 865 | 865 | ||
| 866 | Return nil if PATTERN doesn't conform to XLFD." | 866 | Return nil if PATTERN doesn't conform to XLFD." |
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 58a08f4506f..d078d98a480 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -703,13 +703,13 @@ If the value is nil, on decoding, don't treat the first two-byte as | |||
| 703 | BOM, and on encoding, don't produce BOM bytes. | 703 | BOM, and on encoding, don't produce BOM bytes. |
| 704 | 704 | ||
| 705 | If the value is t, on decoding, skip the first two-byte as BOM, and on | 705 | If the value is t, on decoding, skip the first two-byte as BOM, and on |
| 706 | encoding, produce BOM bytes accoding to the value of `:endian'. | 706 | encoding, produce BOM bytes according to the value of `:endian'. |
| 707 | 707 | ||
| 708 | If the value is cons, on decoding, check the first two-byte. If they | 708 | If the value is cons, on decoding, check the first two-byte. If they |
| 709 | are 0xFE 0xFF, use the car part coding system of the value. If they | 709 | are 0xFE 0xFF, use the car part coding system of the value. If they |
| 710 | are 0xFF 0xFE, use the cdr part coding system of the value. | 710 | are 0xFF 0xFE, use the cdr part coding system of the value. |
| 711 | Otherwise, treat them as bytes for a normal character. On encoding, | 711 | Otherwise, treat them as bytes for a normal character. On encoding, |
| 712 | produce BOM bytes accoding to the value of `:endian'. | 712 | produce BOM bytes according to the value of `:endian'. |
| 713 | 713 | ||
| 714 | This attribute has a meaning only when `:coding-type' is `utf-16' or | 714 | This attribute has a meaning only when `:coding-type' is `utf-16' or |
| 715 | `utf-8'. | 715 | `utf-8'. |
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 0ba0b9085b9..6614ac8b416 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el | |||
| @@ -128,11 +128,11 @@ SPC, 1, 2, 3, or 4 specifing a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N | |||
| 128 | \\<quail-translation-docstring>") | 128 | \\<quail-translation-docstring>") |
| 129 | 129 | ||
| 130 | ("chinese-punct-b5" "$(0O:(BB" | 130 | ("chinese-punct-b5" "$(0O:(BB" |
| 131 | "Input method for Chinese punctuations and symbols of Big5 | 131 | "Input method for Chinese punctuation and symbols of Big5 |
| 132 | \(`chinese-big5-1' and `chinese-big5-2').") | 132 | \(`chinese-big5-1' and `chinese-big5-2').") |
| 133 | 133 | ||
| 134 | ("chinese-punct" "$A1j(BG" | 134 | ("chinese-punct" "$A1j(BG" |
| 135 | "Input method for Chinese punctuations and symbols of GB2312 | 135 | "Input method for Chinese punctuation and symbols of GB2312 |
| 136 | \(`chinese-gb2312').") | 136 | \(`chinese-gb2312').") |
| 137 | 137 | ||
| 138 | ("chinese-py-b5" "$(03<(BB" | 138 | ("chinese-py-b5" "$(03<(BB" |
| @@ -801,36 +801,36 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." | |||
| 801 | (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) | 801 | (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) |
| 802 | (dolist (elt dic) | 802 | (dolist (elt dic) |
| 803 | (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) | 803 | (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) |
| 804 | (let ((punctuations '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") | 804 | (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") |
| 805 | (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B") | 805 | (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B") |
| 806 | ("'" "$(0!e!d(B" "$(G!e!d(B") | 806 | ("'" "$(0!e!d(B" "$(G!e!d(B") |
| 807 | ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B") | 807 | ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B") |
| 808 | ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B") | 808 | ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B") |
| 809 | ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B") | 809 | ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B") |
| 810 | ("/" "$(0"_"a#L(B" "$(G"_"a#L(B") | 810 | ("/" "$(0"_"a#L(B" "$(G"_"a#L(B") |
| 811 | ("?" "$(0!)!4(B" "$(G!)!4(B") | 811 | ("?" "$(0!)!4(B" "$(G!)!4(B") |
| 812 | ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B") | 812 | ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B") |
| 813 | (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B") | 813 | (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B") |
| 814 | ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B") | 814 | ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B") |
| 815 | ("]" "$(0!G!K!c!I!M!W | 815 | ("]" "$(0!G!K!c!I!M!W |
| 816 | ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ") | 816 | ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ") |
| 817 | ("}" "$(0!C!a!E(B" "$(G!C!a!E(B") | 817 | ("}" "$(0!C!a!E(B" "$(G!C!a!E(B") |
| 818 | ("`" "$(0!j!k(B" "$(G!j!k(B") | 818 | ("`" "$(0!j!k(B" "$(G!j!k(B") |
| 819 | ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B") | 819 | ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B") |
| 820 | ("!" "$(0!*!5(B" "$(G!*!5(B") | 820 | ("!" "$(0!*!5(B" "$(G!*!5(B") |
| 821 | ("@" "$(0"i"n(B" "$(G"i"n(B") | 821 | ("@" "$(0"i"n(B" "$(G"i"n(B") |
| 822 | ("#" "$(0!l"-(B" "$(G!l"-(B") | 822 | ("#" "$(0!l"-(B" "$(G!l"-(B") |
| 823 | ("$" "$(0"c"l(B" "$(G"c"l(B") | 823 | ("$" "$(0"c"l(B" "$(G"c"l(B") |
| 824 | ("%" "$(0"h"m(B" "$(G"h"m(B") | 824 | ("%" "$(0"h"m(B" "$(G"h"m(B") |
| 825 | ("&" "$(0!m".(B" "$(G!m".(B") | 825 | ("&" "$(0!m".(B" "$(G!m".(B") |
| 826 | ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B") | 826 | ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B") |
| 827 | ("(" "$(0!>!^!@(B" "$(G!>!^!@(B") | 827 | ("(" "$(0!>!^!@(B" "$(G!>!^!@(B") |
| 828 | (")" "$(0!?!_!A(B" "$(G!?!_!A(B") | 828 | (")" "$(0!?!_!A(B" "$(G!?!_!A(B") |
| 829 | ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B") | 829 | ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B") |
| 830 | ("_" "$(0"%"&(B" "$(G"%"&(B") | 830 | ("_" "$(0"%"&(B" "$(G"%"&(B") |
| 831 | ("=" "$(0"8"C(B" "$(G"8"C(B") | 831 | ("=" "$(0"8"C(B" "$(G"8"C(B") |
| 832 | ("+" "$(0"0"?(B" "$(G"0"?(B")))) | 832 | ("+" "$(0"0"?(B" "$(G"0"?(B")))) |
| 833 | (dolist (elt punctuations) | 833 | (dolist (elt punctuation) |
| 834 | (insert (format "(%S %S)\n" (concat "z" (car elt)) | 834 | (insert (format "(%S %S)\n" (concat "z" (car elt)) |
| 835 | (if big5-p (nth 1 elt) (nth 2 elt)))))) | 835 | (if big5-p (nth 1 elt) (nth 2 elt)))))) |
| 836 | (insert ")\n"))) | 836 | (insert ")\n"))) |
| @@ -1017,7 +1017,7 @@ To input words of more than three letters, you type 4 keys, initials | |||
| 1017 | of the first three letters and the last letter. For instance, | 1017 | of the first three letters and the last letter. For instance, |
| 1018 | \"bjdt\" inputs $A11>)5gJSL((B. | 1018 | \"bjdt\" inputs $A11>)5gJSL((B. |
| 1019 | 1019 | ||
| 1020 | To input symbols and punctuations, type `/' followed by one of `a' to | 1020 | To input symbols and punctuation, type `/' followed by one of `a' to |
| 1021 | `z', then select one of the candidates.")) | 1021 | `z', then select one of the candidates.")) |
| 1022 | (insert " '((\"\C-?\" . quail-delete-last-char) | 1022 | (insert " '((\"\C-?\" . quail-delete-last-char) |
| 1023 | (\".\" . quail-next-translation) | 1023 | (\".\" . quail-next-translation) |
diff --git a/lisp/isearch.el b/lisp/isearch.el index 39ed7adc9c4..01dff91a1ff 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1438,12 +1438,7 @@ string. NLINES has the same meaning as in `occur'." | |||
| 1438 | (interactive | 1438 | (interactive |
| 1439 | (list | 1439 | (list |
| 1440 | (cond | 1440 | (cond |
| 1441 | (isearch-word (concat "\\b" (replace-regexp-in-string | 1441 | (isearch-word (word-search-regexp isearch-string)) |
| 1442 | "\\W+" "\\W+" | ||
| 1443 | (replace-regexp-in-string | ||
| 1444 | "^\\W+\\|\\W+$" "" isearch-string) | ||
| 1445 | nil t) | ||
| 1446 | "\\b")) | ||
| 1447 | (isearch-regexp isearch-string) | 1442 | (isearch-regexp isearch-string) |
| 1448 | (t (regexp-quote isearch-string))) | 1443 | (t (regexp-quote isearch-string))) |
| 1449 | (if current-prefix-arg (prefix-numeric-value current-prefix-arg)))) | 1444 | (if current-prefix-arg (prefix-numeric-value current-prefix-arg)))) |
| @@ -1548,7 +1543,10 @@ If search string is empty, just beep." | |||
| 1548 | (defun isearch-yank-x-selection () | 1543 | (defun isearch-yank-x-selection () |
| 1549 | "Pull current X selection into search string." | 1544 | "Pull current X selection into search string." |
| 1550 | (interactive) | 1545 | (interactive) |
| 1551 | (isearch-yank-string (x-get-selection))) | 1546 | (isearch-yank-string (x-get-selection)) |
| 1547 | ;; If `x-get-selection' returned the text from the active region, | ||
| 1548 | ;; then it "used" the mark which we should hence deactivate. | ||
| 1549 | (when select-active-regions (deactivate-mark))) | ||
| 1552 | 1550 | ||
| 1553 | 1551 | ||
| 1554 | (defun isearch-mouse-2 (click) | 1552 | (defun isearch-mouse-2 (click) |
| @@ -1639,8 +1637,10 @@ Subword is used when `subword-mode' is activated. " | |||
| 1639 | (if (and (eq case-fold-search t) search-upper-case) | 1637 | (if (and (eq case-fold-search t) search-upper-case) |
| 1640 | (setq case-fold-search | 1638 | (setq case-fold-search |
| 1641 | (isearch-no-upper-case-p isearch-string isearch-regexp))) | 1639 | (isearch-no-upper-case-p isearch-string isearch-regexp))) |
| 1642 | (looking-at (if isearch-regexp isearch-string | 1640 | (looking-at (cond |
| 1643 | (regexp-quote isearch-string)))) | 1641 | (isearch-word (word-search-regexp isearch-string t)) |
| 1642 | (isearch-regexp isearch-string) | ||
| 1643 | (t (regexp-quote isearch-string))))) | ||
| 1644 | (error nil)) | 1644 | (error nil)) |
| 1645 | (or isearch-yank-flag | 1645 | (or isearch-yank-flag |
| 1646 | (<= (match-end 0) | 1646 | (<= (match-end 0) |
| @@ -1872,7 +1872,7 @@ the bottom." | |||
| 1872 | (goto-char isearch-point)) | 1872 | (goto-char isearch-point)) |
| 1873 | 1873 | ||
| 1874 | (defun isearch-reread-key-sequence-naturally (keylist) | 1874 | (defun isearch-reread-key-sequence-naturally (keylist) |
| 1875 | "Reread key sequence KEYLIST with Isearch mode's keymap deactivated. | 1875 | "Reread key sequence KEYLIST with an inactive Isearch-mode keymap. |
| 1876 | Return the key sequence as a string/vector." | 1876 | Return the key sequence as a string/vector." |
| 1877 | (isearch-unread-key-sequence keylist) | 1877 | (isearch-unread-key-sequence keylist) |
| 1878 | (let (overriding-terminal-local-map) | 1878 | (let (overriding-terminal-local-map) |
| @@ -2225,7 +2225,11 @@ If there is no completion possible, say so and continue searching." | |||
| 2225 | (if nonincremental "search" "I-search") | 2225 | (if nonincremental "search" "I-search") |
| 2226 | (if isearch-forward "" " backward") | 2226 | (if isearch-forward "" " backward") |
| 2227 | (if current-input-method | 2227 | (if current-input-method |
| 2228 | (concat " [" current-input-method-title "]: ") | 2228 | ;; Input methods for RTL languages use RTL |
| 2229 | ;; characters for their title, and that messes | ||
| 2230 | ;; up the display of search text after the prompt. | ||
| 2231 | (bidi-string-mark-left-to-right | ||
| 2232 | (concat " [" current-input-method-title "]: ")) | ||
| 2229 | ": ") | 2233 | ": ") |
| 2230 | ))) | 2234 | ))) |
| 2231 | (propertize (concat (upcase (substring m 0 1)) (substring m 1)) | 2235 | (propertize (concat (upcase (substring m 0 1)) (substring m 1)) |
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index 444f4d519da..1d93d981f8e 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el | |||
| @@ -802,7 +802,7 @@ The 2nd and 3rd arguments BEGIN and END specify the region." | |||
| 802 | (forward-char 1) | 802 | (forward-char 1) |
| 803 | (insert "}"))) | 803 | (insert "}"))) |
| 804 | 804 | ||
| 805 | ;; Special Ethiopic punctuations. | 805 | ;; Special Ethiopic punctuation. |
| 806 | (goto-char (point-min)) | 806 | (goto-char (point-min)) |
| 807 | (while (re-search-forward "\\ce[»\\.\\?]\\|«\\ce" nil t) | 807 | (while (re-search-forward "\\ce[»\\.\\?]\\|«\\ce" nil t) |
| 808 | (cond | 808 | (cond |
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 8458974e753..fd23bbb6d54 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el | |||
| @@ -27,7 +27,7 @@ | |||
| 27 | 27 | ||
| 28 | ;;; History: | 28 | ;;; History: |
| 29 | ;; 1997.03.13 Modification in treatment of text properties; | 29 | ;; 1997.03.13 Modification in treatment of text properties; |
| 30 | ;; Support for some special signs and punctuations. | 30 | ;; Support for some special signs and punctuation. |
| 31 | ;; 1999.10.25 Modification for a new composition way by K.Handa. | 31 | ;; 1999.10.25 Modification for a new composition way by K.Handa. |
| 32 | 32 | ||
| 33 | ;;; Commentary: | 33 | ;;; Commentary: |
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index a23645bae1f..1607868dea5 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el | |||
| @@ -30,7 +30,7 @@ | |||
| 30 | 30 | ||
| 31 | ;;; History: | 31 | ;;; History: |
| 32 | 32 | ||
| 33 | ;; 1997.03.13 Modification for special signs and punctuations. | 33 | ;; 1997.03.13 Modification for special signs and punctuation. |
| 34 | 34 | ||
| 35 | ;;; Commentary: | 35 | ;;; Commentary: |
| 36 | 36 | ||
| @@ -44,7 +44,7 @@ | |||
| 44 | ;;; | 44 | ;;; |
| 45 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | 45 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F |
| 46 | ;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5) | 46 | ;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5) |
| 47 | ;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuations, | 47 | ;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation, |
| 48 | ;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and | 48 | ;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and |
| 49 | ;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7) | 424 | )) |
| 425 | 425 | ||
| 426 | ;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) | 426 | ;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) |
| 427 | ;;; New varialble. created by Tomabechi 2000/06/08 | 427 | ;;; New variable. created by Tomabechi 2000/06/08 |
| 428 | (defconst tibetan-composite-vowel-alist | 428 | (defconst tibetan-composite-vowel-alist |
| 429 | '(;; LONG A | 429 | '(;; LONG A |
| 430 | ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) | 430 | ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) |
| @@ -604,7 +604,7 @@ This also matches some punctuation characters which need conversion.") | |||
| 604 | (defvar tibetan-decomposed-temp nil) | 604 | (defvar tibetan-decomposed-temp nil) |
| 605 | 605 | ||
| 606 | ;; For automatic composition. | 606 | ;; For automatic composition. |
| 607 | (set-char-table-range | 607 | (set-char-table-range |
| 608 | composition-function-table '(#xF00 . #xFD1) | 608 | composition-function-table '(#xF00 . #xFD1) |
| 609 | (list (vector tibetan-composable-pattern 0 'font-shape-gstring))) | 609 | (list (vector tibetan-composable-pattern 0 'font-shape-gstring))) |
| 610 | 610 | ||
diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 7f595db4814..858cfa85a6f 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | 5 | ||
| 6 | ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best | 6 | ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best |
| 7 | ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" | 7 | ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" |
| 8 | ;;;;;; "play/5x5.el" (20119 34052)) | 8 | ;;;;;; "play/5x5.el" (20168 57844)) |
| 9 | ;;; Generated autoloads from play/5x5.el | 9 | ;;; Generated autoloads from play/5x5.el |
| 10 | 10 | ||
| 11 | (autoload '5x5 "5x5" "\ | 11 | (autoload '5x5 "5x5" "\ |
| @@ -68,7 +68,7 @@ should return a grid vector array that is the new solution. | |||
| 68 | ;;;*** | 68 | ;;;*** |
| 69 | 69 | ||
| 70 | ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" | 70 | ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" |
| 71 | ;;;;;; (20119 34052)) | 71 | ;;;;;; (20178 7273)) |
| 72 | ;;; Generated autoloads from progmodes/ada-mode.el | 72 | ;;; Generated autoloads from progmodes/ada-mode.el |
| 73 | 73 | ||
| 74 | (autoload 'ada-add-extensions "ada-mode" "\ | 74 | (autoload 'ada-add-extensions "ada-mode" "\ |
| @@ -88,7 +88,7 @@ Ada mode is the major mode for editing Ada code. | |||
| 88 | ;;;*** | 88 | ;;;*** |
| 89 | 89 | ||
| 90 | ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" | 90 | ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" |
| 91 | ;;;;;; (20119 34052)) | 91 | ;;;;;; (19845 45374)) |
| 92 | ;;; Generated autoloads from progmodes/ada-stmt.el | 92 | ;;; Generated autoloads from progmodes/ada-stmt.el |
| 93 | 93 | ||
| 94 | (autoload 'ada-header "ada-stmt" "\ | 94 | (autoload 'ada-header "ada-stmt" "\ |
| @@ -99,7 +99,7 @@ Insert a descriptive header at the top of the file. | |||
| 99 | ;;;*** | 99 | ;;;*** |
| 100 | 100 | ||
| 101 | ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" | 101 | ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" |
| 102 | ;;;;;; (20140 44371)) | 102 | ;;;;;; (20176 51947)) |
| 103 | ;;; Generated autoloads from progmodes/ada-xref.el | 103 | ;;; Generated autoloads from progmodes/ada-xref.el |
| 104 | 104 | ||
| 105 | (autoload 'ada-find-file "ada-xref" "\ | 105 | (autoload 'ada-find-file "ada-xref" "\ |
| @@ -114,7 +114,7 @@ Completion is available. | |||
| 114 | ;;;;;; add-change-log-entry-other-window add-change-log-entry find-change-log | 114 | ;;;;;; add-change-log-entry-other-window add-change-log-entry find-change-log |
| 115 | ;;;;;; prompt-for-change-log-name add-log-mailing-address add-log-full-name | 115 | ;;;;;; prompt-for-change-log-name add-log-mailing-address add-log-full-name |
| 116 | ;;;;;; add-log-current-defun-function) "add-log" "vc/add-log.el" | 116 | ;;;;;; add-log-current-defun-function) "add-log" "vc/add-log.el" |
| 117 | ;;;;;; (20119 34052)) | 117 | ;;;;;; (20033 22846)) |
| 118 | ;;; Generated autoloads from vc/add-log.el | 118 | ;;; Generated autoloads from vc/add-log.el |
| 119 | 119 | ||
| 120 | (put 'change-log-default-name 'safe-local-variable 'string-or-null-p) | 120 | (put 'change-log-default-name 'safe-local-variable 'string-or-null-p) |
| @@ -253,7 +253,7 @@ old-style time formats for entries are supported. | |||
| 253 | 253 | ||
| 254 | ;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice | 254 | ;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice |
| 255 | ;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action) | 255 | ;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action) |
| 256 | ;;;;;; "advice" "emacs-lisp/advice.el" (20119 34052)) | 256 | ;;;;;; "advice" "emacs-lisp/advice.el" (20179 28130)) |
| 257 | ;;; Generated autoloads from emacs-lisp/advice.el | 257 | ;;; Generated autoloads from emacs-lisp/advice.el |
| 258 | 258 | ||
| 259 | (defvar ad-redefinition-action 'warn "\ | 259 | (defvar ad-redefinition-action 'warn "\ |
| @@ -398,7 +398,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...) | |||
| 398 | 398 | ||
| 399 | ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule | 399 | ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule |
| 400 | ;;;;;; align-highlight-rule align-current align-entire align-regexp | 400 | ;;;;;; align-highlight-rule align-current align-entire align-regexp |
| 401 | ;;;;;; align) "align" "align.el" (20119 34052)) | 401 | ;;;;;; align) "align" "align.el" (20182 4358)) |
| 402 | ;;; Generated autoloads from align.el | 402 | ;;; Generated autoloads from align.el |
| 403 | 403 | ||
| 404 | (autoload 'align "align" "\ | 404 | (autoload 'align "align" "\ |
| @@ -489,7 +489,7 @@ A replacement function for `newline-and-indent', aligning as it goes. | |||
| 489 | 489 | ||
| 490 | ;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation | 490 | ;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation |
| 491 | ;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el" | 491 | ;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el" |
| 492 | ;;;;;; (20126 50779)) | 492 | ;;;;;; (20178 7273)) |
| 493 | ;;; Generated autoloads from allout.el | 493 | ;;; Generated autoloads from allout.el |
| 494 | 494 | ||
| 495 | (autoload 'allout-auto-activation-helper "allout" "\ | 495 | (autoload 'allout-auto-activation-helper "allout" "\ |
| @@ -500,7 +500,7 @@ Intended to be used as the `allout-auto-activation' :set function. | |||
| 500 | \(fn VAR VALUE)" nil nil) | 500 | \(fn VAR VALUE)" nil nil) |
| 501 | 501 | ||
| 502 | (autoload 'allout-setup "allout" "\ | 502 | (autoload 'allout-setup "allout" "\ |
| 503 | Do fundamental emacs session for allout auto-activation. | 503 | Do fundamental Emacs session for allout auto-activation. |
| 504 | 504 | ||
| 505 | Establishes allout processing as part of visiting a file if | 505 | Establishes allout processing as part of visiting a file if |
| 506 | `allout-auto-activation' is non-nil, or removes it otherwise. | 506 | `allout-auto-activation' is non-nil, or removes it otherwise. |
| @@ -600,7 +600,7 @@ Below is a description of the key bindings, and then description | |||
| 600 | of special `allout-mode' features and terminology. See also the | 600 | of special `allout-mode' features and terminology. See also the |
| 601 | outline menubar additions for quick reference to many of the | 601 | outline menubar additions for quick reference to many of the |
| 602 | features. Customize `allout-auto-activation' to prepare your | 602 | features. Customize `allout-auto-activation' to prepare your |
| 603 | emacs session for automatic activation of `allout-mode'. | 603 | Emacs session for automatic activation of `allout-mode'. |
| 604 | 604 | ||
| 605 | The bindings are those listed in `allout-prefixed-keybindings' | 605 | The bindings are those listed in `allout-prefixed-keybindings' |
| 606 | and `allout-unprefixed-keybindings'. We recommend customizing | 606 | and `allout-unprefixed-keybindings'. We recommend customizing |
| @@ -648,7 +648,7 @@ the HOT-SPOT Operation section. | |||
| 648 | \\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for | 648 | \\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for |
| 649 | current topic | 649 | current topic |
| 650 | \\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and | 650 | \\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and |
| 651 | its' offspring -- distinctive bullets are not changed, others | 651 | its offspring -- distinctive bullets are not changed, others |
| 652 | are alternated according to nesting depth. | 652 | are alternated according to nesting depth. |
| 653 | \\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- | 653 | \\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- |
| 654 | the offspring are not affected. | 654 | the offspring are not affected. |
| @@ -658,12 +658,12 @@ the HOT-SPOT Operation section. | |||
| 658 | ---------------------------------- | 658 | ---------------------------------- |
| 659 | \\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. | 659 | \\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. |
| 660 | \\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. | 660 | \\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. |
| 661 | \\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure. | 661 | \\[allout-kill-line] `allout-kill-line' Kill line, attending to outline structure. |
| 662 | \\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. | 662 | \\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. |
| 663 | \\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to | 663 | \\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to |
| 664 | depth of heading if yanking into bare topic | 664 | depth of heading if yanking into bare topic |
| 665 | heading (ie, prefix sans text). | 665 | heading (ie, prefix sans text). |
| 666 | \\[allout-yank-pop] `allout-yank-pop' Is to allout-yank as yank-pop is to yank | 666 | \\[allout-yank-pop] `allout-yank-pop' Is to `allout-yank' as `yank-pop' is to `yank'. |
| 667 | 667 | ||
| 668 | Topic-oriented Encryption: | 668 | Topic-oriented Encryption: |
| 669 | ------------------------- | 669 | ------------------------- |
| @@ -806,7 +806,7 @@ PREFIX-LEAD: | |||
| 806 | When the PREFIX-LEAD is set to the comment-string of a | 806 | When the PREFIX-LEAD is set to the comment-string of a |
| 807 | programming language, outline structuring can be embedded in | 807 | programming language, outline structuring can be embedded in |
| 808 | program code without interfering with processing of the text | 808 | program code without interfering with processing of the text |
| 809 | (by emacs or the language processor) as program code. This | 809 | (by Emacs or the language processor) as program code. This |
| 810 | setting happens automatically when allout mode is used in | 810 | setting happens automatically when allout mode is used in |
| 811 | programming-mode buffers. See `allout-use-mode-specific-leader' | 811 | programming-mode buffers. See `allout-use-mode-specific-leader' |
| 812 | docstring for more detail. | 812 | docstring for more detail. |
| @@ -818,8 +818,8 @@ BULLET: A character at the end of the ITEM PREFIX, it must be one of | |||
| 818 | `allout-distinctive-bullets-string'. When creating a TOPIC, | 818 | `allout-distinctive-bullets-string'. When creating a TOPIC, |
| 819 | plain BULLETs are by default used, according to the DEPTH of the | 819 | plain BULLETs are by default used, according to the DEPTH of the |
| 820 | TOPIC. Choice among the distinctive BULLETs is offered when you | 820 | TOPIC. Choice among the distinctive BULLETs is offered when you |
| 821 | provide a universal argugment (\\[universal-argument]) to the | 821 | provide a universal argument (\\[universal-argument]) to the |
| 822 | TOPIC creation command, or when explictly rebulleting a TOPIC. The | 822 | TOPIC creation command, or when explicitly rebulleting a TOPIC. The |
| 823 | significance of the various distinctive bullets is purely by | 823 | significance of the various distinctive bullets is purely by |
| 824 | convention. See the documentation for the above bullet strings for | 824 | convention. See the documentation for the above bullet strings for |
| 825 | more details. | 825 | more details. |
| @@ -842,7 +842,7 @@ OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be. | |||
| 842 | Activate outline mode and establish file var so it is started subsequently. | 842 | Activate outline mode and establish file var so it is started subsequently. |
| 843 | 843 | ||
| 844 | See `allout-layout' and customization of `allout-auto-activation' | 844 | See `allout-layout' and customization of `allout-auto-activation' |
| 845 | for details on preparing emacs for automatic allout activation. | 845 | for details on preparing Emacs for automatic allout activation. |
| 846 | 846 | ||
| 847 | \(fn &optional ARG)" t nil) | 847 | \(fn &optional ARG)" t nil) |
| 848 | 848 | ||
| @@ -850,7 +850,7 @@ for details on preparing emacs for automatic allout activation. | |||
| 850 | 850 | ||
| 851 | ;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation | 851 | ;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation |
| 852 | ;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el" | 852 | ;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el" |
| 853 | ;;;;;; (20126 50769)) | 853 | ;;;;;; (20167 36967)) |
| 854 | ;;; Generated autoloads from allout-widgets.el | 854 | ;;; Generated autoloads from allout-widgets.el |
| 855 | 855 | ||
| 856 | (let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads)))) | 856 | (let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads)))) |
| @@ -910,7 +910,7 @@ outline hot-spot navigation (see `allout-mode'). | |||
| 910 | ;;;*** | 910 | ;;;*** |
| 911 | 911 | ||
| 912 | ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" | 912 | ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" |
| 913 | ;;;;;; "net/ange-ftp.el" (20119 34052)) | 913 | ;;;;;; "net/ange-ftp.el" (20178 7273)) |
| 914 | ;;; Generated autoloads from net/ange-ftp.el | 914 | ;;; Generated autoloads from net/ange-ftp.el |
| 915 | 915 | ||
| 916 | (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) | 916 | (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) |
| @@ -932,7 +932,7 @@ directory, so that Emacs will know its current contents. | |||
| 932 | ;;;*** | 932 | ;;;*** |
| 933 | 933 | ||
| 934 | ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) | 934 | ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) |
| 935 | ;;;;;; "animate" "play/animate.el" (20119 34052)) | 935 | ;;;;;; "animate" "play/animate.el" (20164 60780)) |
| 936 | ;;; Generated autoloads from play/animate.el | 936 | ;;; Generated autoloads from play/animate.el |
| 937 | 937 | ||
| 938 | (autoload 'animate-string "animate" "\ | 938 | (autoload 'animate-string "animate" "\ |
| @@ -965,7 +965,7 @@ the buffer *Birthday-Present-for-Name*. | |||
| 965 | ;;;*** | 965 | ;;;*** |
| 966 | 966 | ||
| 967 | ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) | 967 | ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) |
| 968 | ;;;;;; "ansi-color" "ansi-color.el" (20119 34052)) | 968 | ;;;;;; "ansi-color" "ansi-color.el" (20164 60780)) |
| 969 | ;;; Generated autoloads from ansi-color.el | 969 | ;;; Generated autoloads from ansi-color.el |
| 970 | 970 | ||
| 971 | (autoload 'ansi-color-for-comint-mode-on "ansi-color" "\ | 971 | (autoload 'ansi-color-for-comint-mode-on "ansi-color" "\ |
| @@ -991,7 +991,7 @@ This is a good function to put in `comint-output-filter-functions'. | |||
| 991 | ;;;*** | 991 | ;;;*** |
| 992 | 992 | ||
| 993 | ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) | 993 | ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) |
| 994 | ;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20119 34052)) | 994 | ;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (19890 42850)) |
| 995 | ;;; Generated autoloads from progmodes/antlr-mode.el | 995 | ;;; Generated autoloads from progmodes/antlr-mode.el |
| 996 | 996 | ||
| 997 | (autoload 'antlr-show-makefile-rules "antlr-mode" "\ | 997 | (autoload 'antlr-show-makefile-rules "antlr-mode" "\ |
| @@ -1027,7 +1027,7 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. | |||
| 1027 | ;;;*** | 1027 | ;;;*** |
| 1028 | 1028 | ||
| 1029 | ;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el" | 1029 | ;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el" |
| 1030 | ;;;;;; (20119 34052)) | 1030 | ;;;;;; (19956 37456)) |
| 1031 | ;;; Generated autoloads from calendar/appt.el | 1031 | ;;; Generated autoloads from calendar/appt.el |
| 1032 | 1032 | ||
| 1033 | (autoload 'appt-add "appt" "\ | 1033 | (autoload 'appt-add "appt" "\ |
| @@ -1050,7 +1050,7 @@ ARG is positive, otherwise off. | |||
| 1050 | 1050 | ||
| 1051 | ;;;### (autoloads (apropos-documentation apropos-value apropos-library | 1051 | ;;;### (autoloads (apropos-documentation apropos-value apropos-library |
| 1052 | ;;;;;; apropos apropos-documentation-property apropos-command apropos-variable | 1052 | ;;;;;; apropos apropos-documentation-property apropos-command apropos-variable |
| 1053 | ;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20119 34052)) | 1053 | ;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20161 45793)) |
| 1054 | ;;; Generated autoloads from apropos.el | 1054 | ;;; Generated autoloads from apropos.el |
| 1055 | 1055 | ||
| 1056 | (autoload 'apropos-read-pattern "apropos" "\ | 1056 | (autoload 'apropos-read-pattern "apropos" "\ |
| @@ -1120,7 +1120,8 @@ Returns list of symbols and documentation found. | |||
| 1120 | (autoload 'apropos-library "apropos" "\ | 1120 | (autoload 'apropos-library "apropos" "\ |
| 1121 | List the variables and functions defined by library FILE. | 1121 | List the variables and functions defined by library FILE. |
| 1122 | FILE should be one of the libraries currently loaded and should | 1122 | FILE should be one of the libraries currently loaded and should |
| 1123 | thus be found in `load-history'. | 1123 | thus be found in `load-history'. If `apropos-do-all' is non-nil, |
| 1124 | the output includes key-bindings of commands. | ||
| 1124 | 1125 | ||
| 1125 | \(fn FILE)" t nil) | 1126 | \(fn FILE)" t nil) |
| 1126 | 1127 | ||
| @@ -1132,7 +1133,9 @@ search for matches for that word as a substring. If it is a list of words, | |||
| 1132 | search for matches for any two (or more) of those words. | 1133 | search for matches for any two (or more) of those words. |
| 1133 | 1134 | ||
| 1134 | With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks | 1135 | With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks |
| 1135 | at the function and at the names and values of properties. | 1136 | at function definitions (arguments, documentation and body) and at the |
| 1137 | names and values of properties. | ||
| 1138 | |||
| 1136 | Returns list of symbols and values found. | 1139 | Returns list of symbols and values found. |
| 1137 | 1140 | ||
| 1138 | \(fn PATTERN &optional DO-ALL)" t nil) | 1141 | \(fn PATTERN &optional DO-ALL)" t nil) |
| @@ -1144,17 +1147,19 @@ or a regexp (using some regexp special characters). If it is a word, | |||
| 1144 | search for matches for that word as a substring. If it is a list of words, | 1147 | search for matches for that word as a substring. If it is a list of words, |
| 1145 | search for matches for any two (or more) of those words. | 1148 | search for matches for any two (or more) of those words. |
| 1146 | 1149 | ||
| 1147 | With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also use | 1150 | Note that by default this command only searches in the file specified by |
| 1148 | documentation that is not stored in the documentation file and show key | 1151 | `internal-doc-file-name'; i.e., the etc/DOC file. With \\[universal-argument] prefix, |
| 1149 | bindings. | 1152 | or if `apropos-do-all' is non-nil, it searches all currently defined |
| 1153 | documentation strings. | ||
| 1154 | |||
| 1150 | Returns list of symbols and documentation found. | 1155 | Returns list of symbols and documentation found. |
| 1151 | 1156 | ||
| 1152 | \(fn PATTERN &optional DO-ALL)" t nil) | 1157 | \(fn PATTERN &optional DO-ALL)" t nil) |
| 1153 | 1158 | ||
| 1154 | ;;;*** | 1159 | ;;;*** |
| 1155 | 1160 | ||
| 1156 | ;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20119 | 1161 | ;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20165 |
| 1157 | ;;;;;; 34052)) | 1162 | ;;;;;; 31925)) |
| 1158 | ;;; Generated autoloads from arc-mode.el | 1163 | ;;; Generated autoloads from arc-mode.el |
| 1159 | 1164 | ||
| 1160 | (autoload 'archive-mode "arc-mode" "\ | 1165 | (autoload 'archive-mode "arc-mode" "\ |
| @@ -1174,7 +1179,7 @@ archive. | |||
| 1174 | 1179 | ||
| 1175 | ;;;*** | 1180 | ;;;*** |
| 1176 | 1181 | ||
| 1177 | ;;;### (autoloads (array-mode) "array" "array.el" (20119 34052)) | 1182 | ;;;### (autoloads (array-mode) "array" "array.el" (19845 45374)) |
| 1178 | ;;; Generated autoloads from array.el | 1183 | ;;; Generated autoloads from array.el |
| 1179 | 1184 | ||
| 1180 | (autoload 'array-mode "array" "\ | 1185 | (autoload 'array-mode "array" "\ |
| @@ -1245,8 +1250,8 @@ Entering array mode calls the function `array-mode-hook'. | |||
| 1245 | 1250 | ||
| 1246 | ;;;*** | 1251 | ;;;*** |
| 1247 | 1252 | ||
| 1248 | ;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20119 | 1253 | ;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20172 |
| 1249 | ;;;;;; 34052)) | 1254 | ;;;;;; 54913)) |
| 1250 | ;;; Generated autoloads from textmodes/artist.el | 1255 | ;;; Generated autoloads from textmodes/artist.el |
| 1251 | 1256 | ||
| 1252 | (autoload 'artist-mode "artist" "\ | 1257 | (autoload 'artist-mode "artist" "\ |
| @@ -1452,8 +1457,8 @@ Keymap summary | |||
| 1452 | 1457 | ||
| 1453 | ;;;*** | 1458 | ;;;*** |
| 1454 | 1459 | ||
| 1455 | ;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (20119 | 1460 | ;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (19890 |
| 1456 | ;;;;;; 34052)) | 1461 | ;;;;;; 42850)) |
| 1457 | ;;; Generated autoloads from progmodes/asm-mode.el | 1462 | ;;; Generated autoloads from progmodes/asm-mode.el |
| 1458 | 1463 | ||
| 1459 | (autoload 'asm-mode "asm-mode" "\ | 1464 | (autoload 'asm-mode "asm-mode" "\ |
| @@ -1481,7 +1486,7 @@ Special commands: | |||
| 1481 | ;;;*** | 1486 | ;;;*** |
| 1482 | 1487 | ||
| 1483 | ;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el" | 1488 | ;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el" |
| 1484 | ;;;;;; (20119 34052)) | 1489 | ;;;;;; (20089 47591)) |
| 1485 | ;;; Generated autoloads from gnus/auth-source.el | 1490 | ;;; Generated autoloads from gnus/auth-source.el |
| 1486 | 1491 | ||
| 1487 | (defvar auth-source-cache-expiry 7200 "\ | 1492 | (defvar auth-source-cache-expiry 7200 "\ |
| @@ -1494,7 +1499,7 @@ let-binding.") | |||
| 1494 | ;;;*** | 1499 | ;;;*** |
| 1495 | 1500 | ||
| 1496 | ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" | 1501 | ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" |
| 1497 | ;;;;;; (20126 50800)) | 1502 | ;;;;;; (20127 62865)) |
| 1498 | ;;; Generated autoloads from autoarg.el | 1503 | ;;; Generated autoloads from autoarg.el |
| 1499 | 1504 | ||
| 1500 | (defvar autoarg-mode nil "\ | 1505 | (defvar autoarg-mode nil "\ |
| @@ -1555,7 +1560,7 @@ This is similar to `autoarg-mode' but rebinds the keypad keys | |||
| 1555 | ;;;*** | 1560 | ;;;*** |
| 1556 | 1561 | ||
| 1557 | ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" | 1562 | ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" |
| 1558 | ;;;;;; (20119 34052)) | 1563 | ;;;;;; (20163 39903)) |
| 1559 | ;;; Generated autoloads from progmodes/autoconf.el | 1564 | ;;; Generated autoloads from progmodes/autoconf.el |
| 1560 | 1565 | ||
| 1561 | (autoload 'autoconf-mode "autoconf" "\ | 1566 | (autoload 'autoconf-mode "autoconf" "\ |
| @@ -1566,7 +1571,7 @@ Major mode for editing Autoconf configure.in files. | |||
| 1566 | ;;;*** | 1571 | ;;;*** |
| 1567 | 1572 | ||
| 1568 | ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) | 1573 | ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) |
| 1569 | ;;;;;; "autoinsert" "autoinsert.el" (20126 50812)) | 1574 | ;;;;;; "autoinsert" "autoinsert.el" (20127 62865)) |
| 1570 | ;;; Generated autoloads from autoinsert.el | 1575 | ;;; Generated autoloads from autoinsert.el |
| 1571 | 1576 | ||
| 1572 | (autoload 'auto-insert "autoinsert" "\ | 1577 | (autoload 'auto-insert "autoinsert" "\ |
| @@ -1606,7 +1611,7 @@ insert a template for the file depending on the mode of the buffer. | |||
| 1606 | 1611 | ||
| 1607 | ;;;### (autoloads (batch-update-autoloads update-directory-autoloads | 1612 | ;;;### (autoloads (batch-update-autoloads update-directory-autoloads |
| 1608 | ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" | 1613 | ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" |
| 1609 | ;;;;;; (20119 34052)) | 1614 | ;;;;;; (20173 35732)) |
| 1610 | ;;; Generated autoloads from emacs-lisp/autoload.el | 1615 | ;;; Generated autoloads from emacs-lisp/autoload.el |
| 1611 | 1616 | ||
| 1612 | (put 'generated-autoload-file 'safe-local-variable 'stringp) | 1617 | (put 'generated-autoload-file 'safe-local-variable 'stringp) |
| @@ -1657,7 +1662,7 @@ should be non-nil). | |||
| 1657 | 1662 | ||
| 1658 | ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode | 1663 | ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode |
| 1659 | ;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) | 1664 | ;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) |
| 1660 | ;;;;;; "autorevert" "autorevert.el" (20126 50846)) | 1665 | ;;;;;; "autorevert" "autorevert.el" (20168 57844)) |
| 1661 | ;;; Generated autoloads from autorevert.el | 1666 | ;;; Generated autoloads from autorevert.el |
| 1662 | 1667 | ||
| 1663 | (autoload 'auto-revert-mode "autorevert" "\ | 1668 | (autoload 'auto-revert-mode "autorevert" "\ |
| @@ -1746,7 +1751,7 @@ specifies in the mode line. | |||
| 1746 | ;;;*** | 1751 | ;;;*** |
| 1747 | 1752 | ||
| 1748 | ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" | 1753 | ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" |
| 1749 | ;;;;;; "avoid.el" (20119 34052)) | 1754 | ;;;;;; "avoid.el" (19845 45374)) |
| 1750 | ;;; Generated autoloads from avoid.el | 1755 | ;;; Generated autoloads from avoid.el |
| 1751 | 1756 | ||
| 1752 | (defvar mouse-avoidance-mode nil "\ | 1757 | (defvar mouse-avoidance-mode nil "\ |
| @@ -1787,7 +1792,7 @@ definition of \"random distance\".) | |||
| 1787 | ;;;*** | 1792 | ;;;*** |
| 1788 | 1793 | ||
| 1789 | ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" | 1794 | ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" |
| 1790 | ;;;;;; (20126 50857)) | 1795 | ;;;;;; (20127 62865)) |
| 1791 | ;;; Generated autoloads from battery.el | 1796 | ;;; Generated autoloads from battery.el |
| 1792 | (put 'battery-mode-line-string 'risky-local-variable t) | 1797 | (put 'battery-mode-line-string 'risky-local-variable t) |
| 1793 | 1798 | ||
| @@ -1823,7 +1828,7 @@ seconds. | |||
| 1823 | ;;;*** | 1828 | ;;;*** |
| 1824 | 1829 | ||
| 1825 | ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) | 1830 | ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) |
| 1826 | ;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20119 34052)) | 1831 | ;;;;;; "benchmark" "emacs-lisp/benchmark.el" (19981 40664)) |
| 1827 | ;;; Generated autoloads from emacs-lisp/benchmark.el | 1832 | ;;; Generated autoloads from emacs-lisp/benchmark.el |
| 1828 | 1833 | ||
| 1829 | (autoload 'benchmark-run "benchmark" "\ | 1834 | (autoload 'benchmark-run "benchmark" "\ |
| @@ -1856,7 +1861,7 @@ For non-interactive use see also `benchmark-run' and | |||
| 1856 | ;;;*** | 1861 | ;;;*** |
| 1857 | 1862 | ||
| 1858 | ;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize) | 1863 | ;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize) |
| 1859 | ;;;;;; "bibtex" "textmodes/bibtex.el" (20119 34052)) | 1864 | ;;;;;; "bibtex" "textmodes/bibtex.el" (20174 10230)) |
| 1860 | ;;; Generated autoloads from textmodes/bibtex.el | 1865 | ;;; Generated autoloads from textmodes/bibtex.el |
| 1861 | 1866 | ||
| 1862 | (autoload 'bibtex-initialize "bibtex" "\ | 1867 | (autoload 'bibtex-initialize "bibtex" "\ |
| @@ -1945,7 +1950,7 @@ A prefix arg negates the value of `bibtex-search-entry-globally'. | |||
| 1945 | ;;;*** | 1950 | ;;;*** |
| 1946 | 1951 | ||
| 1947 | ;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el" | 1952 | ;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el" |
| 1948 | ;;;;;; (20119 34052)) | 1953 | ;;;;;; (19863 8742)) |
| 1949 | ;;; Generated autoloads from textmodes/bibtex-style.el | 1954 | ;;; Generated autoloads from textmodes/bibtex-style.el |
| 1950 | 1955 | ||
| 1951 | (autoload 'bibtex-style-mode "bibtex-style" "\ | 1956 | (autoload 'bibtex-style-mode "bibtex-style" "\ |
| @@ -1957,10 +1962,11 @@ Major mode for editing BibTeX style files. | |||
| 1957 | 1962 | ||
| 1958 | ;;;### (autoloads (binhex-decode-region binhex-decode-region-external | 1963 | ;;;### (autoloads (binhex-decode-region binhex-decode-region-external |
| 1959 | ;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el" | 1964 | ;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el" |
| 1960 | ;;;;;; (20119 34052)) | 1965 | ;;;;;; (20174 10230)) |
| 1961 | ;;; Generated autoloads from mail/binhex.el | 1966 | ;;; Generated autoloads from mail/binhex.el |
| 1962 | 1967 | ||
| 1963 | (defconst binhex-begin-line "^:...............................................................$") | 1968 | (defconst binhex-begin-line "^:...............................................................$" "\ |
| 1969 | Regular expression matching the start of a BinHex encoded region.") | ||
| 1964 | 1970 | ||
| 1965 | (autoload 'binhex-decode-region-internal "binhex" "\ | 1971 | (autoload 'binhex-decode-region-internal "binhex" "\ |
| 1966 | Binhex decode region between START and END without using an external program. | 1972 | Binhex decode region between START and END without using an external program. |
| @@ -1980,8 +1986,8 @@ Binhex decode region between START and END. | |||
| 1980 | 1986 | ||
| 1981 | ;;;*** | 1987 | ;;;*** |
| 1982 | 1988 | ||
| 1983 | ;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20119 | 1989 | ;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (19845 |
| 1984 | ;;;;;; 34052)) | 1990 | ;;;;;; 45374)) |
| 1985 | ;;; Generated autoloads from play/blackbox.el | 1991 | ;;; Generated autoloads from play/blackbox.el |
| 1986 | 1992 | ||
| 1987 | (autoload 'blackbox "blackbox" "\ | 1993 | (autoload 'blackbox "blackbox" "\ |
| @@ -2104,7 +2110,7 @@ a reflection. | |||
| 2104 | ;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert | 2110 | ;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert |
| 2105 | ;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate | 2111 | ;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate |
| 2106 | ;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark" | 2112 | ;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark" |
| 2107 | ;;;;;; "bookmark.el" (20119 34052)) | 2113 | ;;;;;; "bookmark.el" (20178 7273)) |
| 2108 | ;;; Generated autoloads from bookmark.el | 2114 | ;;; Generated autoloads from bookmark.el |
| 2109 | (define-key ctl-x-r-map "b" 'bookmark-jump) | 2115 | (define-key ctl-x-r-map "b" 'bookmark-jump) |
| 2110 | (define-key ctl-x-r-map "m" 'bookmark-set) | 2116 | (define-key ctl-x-r-map "m" 'bookmark-set) |
| @@ -2305,7 +2311,7 @@ Incremental search of bookmarks, hiding the non-matches as we go. | |||
| 2305 | ;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point | 2311 | ;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point |
| 2306 | ;;;;;; browse-url browse-url-of-region browse-url-of-dired-file | 2312 | ;;;;;; browse-url browse-url-of-region browse-url-of-dired-file |
| 2307 | ;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function) | 2313 | ;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function) |
| 2308 | ;;;;;; "browse-url" "net/browse-url.el" (20126 51279)) | 2314 | ;;;;;; "browse-url" "net/browse-url.el" (20168 57844)) |
| 2309 | ;;; Generated autoloads from net/browse-url.el | 2315 | ;;; Generated autoloads from net/browse-url.el |
| 2310 | 2316 | ||
| 2311 | (defvar browse-url-browser-function 'browse-url-default-browser "\ | 2317 | (defvar browse-url-browser-function 'browse-url-default-browser "\ |
| @@ -2618,8 +2624,8 @@ from `browse-url-elinks-wrapper'. | |||
| 2618 | 2624 | ||
| 2619 | ;;;*** | 2625 | ;;;*** |
| 2620 | 2626 | ||
| 2621 | ;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (20119 | 2627 | ;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (20165 |
| 2622 | ;;;;;; 34052)) | 2628 | ;;;;;; 31925)) |
| 2623 | ;;; Generated autoloads from play/bruce.el | 2629 | ;;; Generated autoloads from play/bruce.el |
| 2624 | 2630 | ||
| 2625 | (autoload 'bruce "bruce" "\ | 2631 | (autoload 'bruce "bruce" "\ |
| @@ -2635,7 +2641,7 @@ Return a vector containing the lines from `bruce-phrases-file'. | |||
| 2635 | ;;;*** | 2641 | ;;;*** |
| 2636 | 2642 | ||
| 2637 | ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) | 2643 | ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) |
| 2638 | ;;;;;; "bs" "bs.el" (20140 44207)) | 2644 | ;;;;;; "bs" "bs.el" (20161 45793)) |
| 2639 | ;;; Generated autoloads from bs.el | 2645 | ;;; Generated autoloads from bs.el |
| 2640 | 2646 | ||
| 2641 | (autoload 'bs-cycle-next "bs" "\ | 2647 | (autoload 'bs-cycle-next "bs" "\ |
| @@ -2675,7 +2681,7 @@ name of buffer configuration. | |||
| 2675 | 2681 | ||
| 2676 | ;;;*** | 2682 | ;;;*** |
| 2677 | 2683 | ||
| 2678 | ;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20119 34052)) | 2684 | ;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20166 16092)) |
| 2679 | ;;; Generated autoloads from play/bubbles.el | 2685 | ;;; Generated autoloads from play/bubbles.el |
| 2680 | 2686 | ||
| 2681 | (autoload 'bubbles "bubbles" "\ | 2687 | (autoload 'bubbles "bubbles" "\ |
| @@ -2697,7 +2703,7 @@ columns on its right towards the left. | |||
| 2697 | ;;;*** | 2703 | ;;;*** |
| 2698 | 2704 | ||
| 2699 | ;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference" | 2705 | ;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference" |
| 2700 | ;;;;;; "progmodes/bug-reference.el" (20127 25733)) | 2706 | ;;;;;; "progmodes/bug-reference.el" (20127 62865)) |
| 2701 | ;;; Generated autoloads from progmodes/bug-reference.el | 2707 | ;;; Generated autoloads from progmodes/bug-reference.el |
| 2702 | 2708 | ||
| 2703 | (put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format))))) | 2709 | (put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format))))) |
| @@ -2721,7 +2727,7 @@ Like `bug-reference-mode', but only buttonize in comments and strings. | |||
| 2721 | ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile | 2727 | ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile |
| 2722 | ;;;;;; compile-defun byte-compile-file byte-recompile-directory | 2728 | ;;;;;; compile-defun byte-compile-file byte-recompile-directory |
| 2723 | ;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning) | 2729 | ;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning) |
| 2724 | ;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20119 34052)) | 2730 | ;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20178 7273)) |
| 2725 | ;;; Generated autoloads from emacs-lisp/bytecomp.el | 2731 | ;;; Generated autoloads from emacs-lisp/bytecomp.el |
| 2726 | (put 'byte-compile-dynamic 'safe-local-variable 'booleanp) | 2732 | (put 'byte-compile-dynamic 'safe-local-variable 'booleanp) |
| 2727 | (put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) | 2733 | (put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) |
| @@ -2841,8 +2847,8 @@ and corresponding effects. | |||
| 2841 | 2847 | ||
| 2842 | ;;;*** | 2848 | ;;;*** |
| 2843 | 2849 | ||
| 2844 | ;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20119 | 2850 | ;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (19885 |
| 2845 | ;;;;;; 34052)) | 2851 | ;;;;;; 24894)) |
| 2846 | ;;; Generated autoloads from calendar/cal-china.el | 2852 | ;;; Generated autoloads from calendar/cal-china.el |
| 2847 | 2853 | ||
| 2848 | (put 'calendar-chinese-time-zone 'risky-local-variable t) | 2854 | (put 'calendar-chinese-time-zone 'risky-local-variable t) |
| @@ -2851,7 +2857,7 @@ and corresponding effects. | |||
| 2851 | 2857 | ||
| 2852 | ;;;*** | 2858 | ;;;*** |
| 2853 | 2859 | ||
| 2854 | ;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20119 34052)) | 2860 | ;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (19885 24894)) |
| 2855 | ;;; Generated autoloads from calendar/cal-dst.el | 2861 | ;;; Generated autoloads from calendar/cal-dst.el |
| 2856 | 2862 | ||
| 2857 | (put 'calendar-daylight-savings-starts 'risky-local-variable t) | 2863 | (put 'calendar-daylight-savings-starts 'risky-local-variable t) |
| @@ -2863,7 +2869,7 @@ and corresponding effects. | |||
| 2863 | ;;;*** | 2869 | ;;;*** |
| 2864 | 2870 | ||
| 2865 | ;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el" | 2871 | ;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el" |
| 2866 | ;;;;;; (20119 34052)) | 2872 | ;;;;;; (19885 24894)) |
| 2867 | ;;; Generated autoloads from calendar/cal-hebrew.el | 2873 | ;;; Generated autoloads from calendar/cal-hebrew.el |
| 2868 | 2874 | ||
| 2869 | (autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ | 2875 | (autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ |
| @@ -2879,8 +2885,8 @@ from the cursor position. | |||
| 2879 | 2885 | ||
| 2880 | ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle | 2886 | ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle |
| 2881 | ;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc | 2887 | ;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc |
| 2882 | ;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20119 | 2888 | ;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20172 |
| 2883 | ;;;;;; 34052)) | 2889 | ;;;;;; 54913)) |
| 2884 | ;;; Generated autoloads from calc/calc.el | 2890 | ;;; Generated autoloads from calc/calc.el |
| 2885 | (define-key ctl-x-map "*" 'calc-dispatch) | 2891 | (define-key ctl-x-map "*" 'calc-dispatch) |
| 2886 | 2892 | ||
| @@ -2964,8 +2970,8 @@ See Info node `(calc)Defining Functions'. | |||
| 2964 | 2970 | ||
| 2965 | ;;;*** | 2971 | ;;;*** |
| 2966 | 2972 | ||
| 2967 | ;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20119 | 2973 | ;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (19845 |
| 2968 | ;;;;;; 34052)) | 2974 | ;;;;;; 45374)) |
| 2969 | ;;; Generated autoloads from calc/calc-undo.el | 2975 | ;;; Generated autoloads from calc/calc-undo.el |
| 2970 | 2976 | ||
| 2971 | (autoload 'calc-undo "calc-undo" "\ | 2977 | (autoload 'calc-undo "calc-undo" "\ |
| @@ -2975,8 +2981,8 @@ See Info node `(calc)Defining Functions'. | |||
| 2975 | 2981 | ||
| 2976 | ;;;*** | 2982 | ;;;*** |
| 2977 | 2983 | ||
| 2978 | ;;;### (autoloads (calculator) "calculator" "calculator.el" (20140 | 2984 | ;;;### (autoloads (calculator) "calculator" "calculator.el" (20141 |
| 2979 | ;;;;;; 44219)) | 2985 | ;;;;;; 9296)) |
| 2980 | ;;; Generated autoloads from calculator.el | 2986 | ;;; Generated autoloads from calculator.el |
| 2981 | 2987 | ||
| 2982 | (autoload 'calculator "calculator" "\ | 2988 | (autoload 'calculator "calculator" "\ |
| @@ -2988,7 +2994,7 @@ See the documentation for `calculator-mode' for more information. | |||
| 2988 | ;;;*** | 2994 | ;;;*** |
| 2989 | 2995 | ||
| 2990 | ;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20141 | 2996 | ;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20141 |
| 2991 | ;;;;;; 25678)) | 2997 | ;;;;;; 9296)) |
| 2992 | ;;; Generated autoloads from calendar/calendar.el | 2998 | ;;; Generated autoloads from calendar/calendar.el |
| 2993 | 2999 | ||
| 2994 | (autoload 'calendar "calendar" "\ | 3000 | (autoload 'calendar "calendar" "\ |
| @@ -3032,7 +3038,7 @@ This function is suitable for execution in a .emacs file. | |||
| 3032 | ;;;*** | 3038 | ;;;*** |
| 3033 | 3039 | ||
| 3034 | ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" | 3040 | ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" |
| 3035 | ;;;;;; "gnus/canlock.el" (20119 34052)) | 3041 | ;;;;;; "gnus/canlock.el" (19845 45374)) |
| 3036 | ;;; Generated autoloads from gnus/canlock.el | 3042 | ;;; Generated autoloads from gnus/canlock.el |
| 3037 | 3043 | ||
| 3038 | (autoload 'canlock-insert-header "canlock" "\ | 3044 | (autoload 'canlock-insert-header "canlock" "\ |
| @@ -3050,7 +3056,7 @@ it fails. | |||
| 3050 | ;;;*** | 3056 | ;;;*** |
| 3051 | 3057 | ||
| 3052 | ;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el" | 3058 | ;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el" |
| 3053 | ;;;;;; (20127 25639)) | 3059 | ;;;;;; (20127 62865)) |
| 3054 | ;;; Generated autoloads from progmodes/cap-words.el | 3060 | ;;; Generated autoloads from progmodes/cap-words.el |
| 3055 | 3061 | ||
| 3056 | (autoload 'capitalized-words-mode "cap-words" "\ | 3062 | (autoload 'capitalized-words-mode "cap-words" "\ |
| @@ -3089,15 +3095,15 @@ Obsoletes `c-forward-into-nomenclature'. | |||
| 3089 | 3095 | ||
| 3090 | ;;;*** | 3096 | ;;;*** |
| 3091 | 3097 | ||
| 3092 | ;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20119 | 3098 | ;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (19845 |
| 3093 | ;;;;;; 34052)) | 3099 | ;;;;;; 45374)) |
| 3094 | ;;; Generated autoloads from progmodes/cc-compat.el | 3100 | ;;; Generated autoloads from progmodes/cc-compat.el |
| 3095 | (put 'c-indent-level 'safe-local-variable 'integerp) | 3101 | (put 'c-indent-level 'safe-local-variable 'integerp) |
| 3096 | 3102 | ||
| 3097 | ;;;*** | 3103 | ;;;*** |
| 3098 | 3104 | ||
| 3099 | ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" | 3105 | ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" |
| 3100 | ;;;;;; (20139 28158)) | 3106 | ;;;;;; (20172 54913)) |
| 3101 | ;;; Generated autoloads from progmodes/cc-engine.el | 3107 | ;;; Generated autoloads from progmodes/cc-engine.el |
| 3102 | 3108 | ||
| 3103 | (autoload 'c-guess-basic-syntax "cc-engine" "\ | 3109 | (autoload 'c-guess-basic-syntax "cc-engine" "\ |
| @@ -3109,7 +3115,7 @@ Return the syntactic context of the current line. | |||
| 3109 | 3115 | ||
| 3110 | ;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region | 3116 | ;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region |
| 3111 | ;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install | 3117 | ;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install |
| 3112 | ;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20119 34052)) | 3118 | ;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (19981 40664)) |
| 3113 | ;;; Generated autoloads from progmodes/cc-guess.el | 3119 | ;;; Generated autoloads from progmodes/cc-guess.el |
| 3114 | 3120 | ||
| 3115 | (defvar c-guess-guessed-offsets-alist nil "\ | 3121 | (defvar c-guess-guessed-offsets-alist nil "\ |
| @@ -3209,7 +3215,7 @@ the absolute file name of the file if STYLE-NAME is nil. | |||
| 3209 | 3215 | ||
| 3210 | ;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode | 3216 | ;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode |
| 3211 | ;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" | 3217 | ;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" |
| 3212 | ;;;;;; (20138 48832)) | 3218 | ;;;;;; (20168 57844)) |
| 3213 | ;;; Generated autoloads from progmodes/cc-mode.el | 3219 | ;;; Generated autoloads from progmodes/cc-mode.el |
| 3214 | 3220 | ||
| 3215 | (autoload 'c-initialize-cc-mode "cc-mode" "\ | 3221 | (autoload 'c-initialize-cc-mode "cc-mode" "\ |
| @@ -3386,7 +3392,7 @@ Key bindings: | |||
| 3386 | ;;;*** | 3392 | ;;;*** |
| 3387 | 3393 | ||
| 3388 | ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" | 3394 | ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" |
| 3389 | ;;;;;; "progmodes/cc-styles.el" (20119 34052)) | 3395 | ;;;;;; "progmodes/cc-styles.el" (19981 40664)) |
| 3390 | ;;; Generated autoloads from progmodes/cc-styles.el | 3396 | ;;; Generated autoloads from progmodes/cc-styles.el |
| 3391 | 3397 | ||
| 3392 | (autoload 'c-set-style "cc-styles" "\ | 3398 | (autoload 'c-set-style "cc-styles" "\ |
| @@ -3437,7 +3443,7 @@ and exists only for compatibility reasons. | |||
| 3437 | 3443 | ||
| 3438 | ;;;*** | 3444 | ;;;*** |
| 3439 | 3445 | ||
| 3440 | ;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20139 28158)) | 3446 | ;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20167 36967)) |
| 3441 | ;;; Generated autoloads from progmodes/cc-vars.el | 3447 | ;;; Generated autoloads from progmodes/cc-vars.el |
| 3442 | (put 'c-basic-offset 'safe-local-variable 'integerp) | 3448 | (put 'c-basic-offset 'safe-local-variable 'integerp) |
| 3443 | (put 'c-backslash-column 'safe-local-variable 'integerp) | 3449 | (put 'c-backslash-column 'safe-local-variable 'integerp) |
| @@ -3447,7 +3453,7 @@ and exists only for compatibility reasons. | |||
| 3447 | 3453 | ||
| 3448 | ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program | 3454 | ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program |
| 3449 | ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" | 3455 | ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" |
| 3450 | ;;;;;; (20119 34052)) | 3456 | ;;;;;; (19943 25429)) |
| 3451 | ;;; Generated autoloads from international/ccl.el | 3457 | ;;; Generated autoloads from international/ccl.el |
| 3452 | 3458 | ||
| 3453 | (autoload 'ccl-compile "ccl" "\ | 3459 | (autoload 'ccl-compile "ccl" "\ |
| @@ -3708,7 +3714,7 @@ See the documentation of `define-ccl-program' for the detail of CCL program. | |||
| 3708 | ;;;*** | 3714 | ;;;*** |
| 3709 | 3715 | ||
| 3710 | ;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el" | 3716 | ;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el" |
| 3711 | ;;;;;; (20119 34052)) | 3717 | ;;;;;; (20178 7273)) |
| 3712 | ;;; Generated autoloads from emacs-lisp/cconv.el | 3718 | ;;; Generated autoloads from emacs-lisp/cconv.el |
| 3713 | 3719 | ||
| 3714 | (autoload 'cconv-closure-convert "cconv" "\ | 3720 | (autoload 'cconv-closure-convert "cconv" "\ |
| @@ -3723,7 +3729,7 @@ Returns a form where all lambdas don't have any free variables. | |||
| 3723 | ;;;*** | 3729 | ;;;*** |
| 3724 | 3730 | ||
| 3725 | ;;;### (autoloads (cfengine-auto-mode cfengine-mode cfengine3-mode) | 3731 | ;;;### (autoloads (cfengine-auto-mode cfengine-mode cfengine3-mode) |
| 3726 | ;;;;;; "cfengine" "progmodes/cfengine.el" (20119 34052)) | 3732 | ;;;;;; "cfengine" "progmodes/cfengine.el" (20168 57844)) |
| 3727 | ;;; Generated autoloads from progmodes/cfengine.el | 3733 | ;;; Generated autoloads from progmodes/cfengine.el |
| 3728 | 3734 | ||
| 3729 | (autoload 'cfengine3-mode "cfengine" "\ | 3735 | (autoload 'cfengine3-mode "cfengine" "\ |
| @@ -3753,7 +3759,7 @@ on the buffer contents | |||
| 3753 | ;;;*** | 3759 | ;;;*** |
| 3754 | 3760 | ||
| 3755 | ;;;### (autoloads (check-declare-directory check-declare-file) "check-declare" | 3761 | ;;;### (autoloads (check-declare-directory check-declare-file) "check-declare" |
| 3756 | ;;;;;; "emacs-lisp/check-declare.el" (20119 34052)) | 3762 | ;;;;;; "emacs-lisp/check-declare.el" (19906 31087)) |
| 3757 | ;;; Generated autoloads from emacs-lisp/check-declare.el | 3763 | ;;; Generated autoloads from emacs-lisp/check-declare.el |
| 3758 | 3764 | ||
| 3759 | (autoload 'check-declare-file "check-declare" "\ | 3765 | (autoload 'check-declare-file "check-declare" "\ |
| @@ -3778,7 +3784,7 @@ Returns non-nil if any false statements are found. | |||
| 3778 | ;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer | 3784 | ;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer |
| 3779 | ;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive | 3785 | ;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive |
| 3780 | ;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p) | 3786 | ;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p) |
| 3781 | ;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20127 23374)) | 3787 | ;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20168 57844)) |
| 3782 | ;;; Generated autoloads from emacs-lisp/checkdoc.el | 3788 | ;;; Generated autoloads from emacs-lisp/checkdoc.el |
| 3783 | (put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp) | 3789 | (put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp) |
| 3784 | (put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp) | 3790 | (put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp) |
| @@ -3974,7 +3980,7 @@ checking of documentation strings. | |||
| 3974 | 3980 | ||
| 3975 | ;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer | 3981 | ;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer |
| 3976 | ;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util" | 3982 | ;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util" |
| 3977 | ;;;;;; "language/china-util.el" (20119 34052)) | 3983 | ;;;;;; "language/china-util.el" (19845 45374)) |
| 3978 | ;;; Generated autoloads from language/china-util.el | 3984 | ;;; Generated autoloads from language/china-util.el |
| 3979 | 3985 | ||
| 3980 | (autoload 'decode-hz-region "china-util" "\ | 3986 | (autoload 'decode-hz-region "china-util" "\ |
| @@ -4012,7 +4018,7 @@ Encode the text in the current buffer to HZ. | |||
| 4012 | ;;;*** | 4018 | ;;;*** |
| 4013 | 4019 | ||
| 4014 | ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) | 4020 | ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) |
| 4015 | ;;;;;; "chistory" "chistory.el" (20119 34052)) | 4021 | ;;;;;; "chistory" "chistory.el" (19845 45374)) |
| 4016 | ;;; Generated autoloads from chistory.el | 4022 | ;;; Generated autoloads from chistory.el |
| 4017 | 4023 | ||
| 4018 | (autoload 'repeat-matching-complex-command "chistory" "\ | 4024 | (autoload 'repeat-matching-complex-command "chistory" "\ |
| @@ -4051,7 +4057,7 @@ and runs the normal hook `command-history-hook'. | |||
| 4051 | 4057 | ||
| 4052 | ;;;*** | 4058 | ;;;*** |
| 4053 | 4059 | ||
| 4054 | ;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (20138 48832)) | 4060 | ;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (20137 45833)) |
| 4055 | ;;; Generated autoloads from emacs-lisp/cl.el | 4061 | ;;; Generated autoloads from emacs-lisp/cl.el |
| 4056 | 4062 | ||
| 4057 | (defvar custom-print-functions nil "\ | 4063 | (defvar custom-print-functions nil "\ |
| @@ -4067,7 +4073,7 @@ a future Emacs interpreter will be able to use it.") | |||
| 4067 | ;;;*** | 4073 | ;;;*** |
| 4068 | 4074 | ||
| 4069 | ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" | 4075 | ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" |
| 4070 | ;;;;;; (20119 34052)) | 4076 | ;;;;;; (20170 64186)) |
| 4071 | ;;; Generated autoloads from emacs-lisp/cl-indent.el | 4077 | ;;; Generated autoloads from emacs-lisp/cl-indent.el |
| 4072 | 4078 | ||
| 4073 | (autoload 'common-lisp-indent-function "cl-indent" "\ | 4079 | (autoload 'common-lisp-indent-function "cl-indent" "\ |
| @@ -4146,7 +4152,7 @@ For example, the function `case' has an indent property | |||
| 4146 | ;;;*** | 4152 | ;;;*** |
| 4147 | 4153 | ||
| 4148 | ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" | 4154 | ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" |
| 4149 | ;;;;;; (20119 34052)) | 4155 | ;;;;;; (19845 45374)) |
| 4150 | ;;; Generated autoloads from progmodes/cmacexp.el | 4156 | ;;; Generated autoloads from progmodes/cmacexp.el |
| 4151 | 4157 | ||
| 4152 | (autoload 'c-macro-expand "cmacexp" "\ | 4158 | (autoload 'c-macro-expand "cmacexp" "\ |
| @@ -4166,8 +4172,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. | |||
| 4166 | 4172 | ||
| 4167 | ;;;*** | 4173 | ;;;*** |
| 4168 | 4174 | ||
| 4169 | ;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20119 | 4175 | ;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20092 |
| 4170 | ;;;;;; 34052)) | 4176 | ;;;;;; 23754)) |
| 4171 | ;;; Generated autoloads from cmuscheme.el | 4177 | ;;; Generated autoloads from cmuscheme.el |
| 4172 | 4178 | ||
| 4173 | (autoload 'run-scheme "cmuscheme" "\ | 4179 | (autoload 'run-scheme "cmuscheme" "\ |
| @@ -4187,7 +4193,7 @@ is run). | |||
| 4187 | 4193 | ||
| 4188 | ;;;*** | 4194 | ;;;*** |
| 4189 | 4195 | ||
| 4190 | ;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20119 34052)) | 4196 | ;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20175 31160)) |
| 4191 | ;;; Generated autoloads from color.el | 4197 | ;;; Generated autoloads from color.el |
| 4192 | 4198 | ||
| 4193 | (autoload 'color-name-to-rgb "color" "\ | 4199 | (autoload 'color-name-to-rgb "color" "\ |
| @@ -4209,7 +4215,7 @@ If FRAME cannot display COLOR, return nil. | |||
| 4209 | ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list | 4215 | ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list |
| 4210 | ;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command | 4216 | ;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command |
| 4211 | ;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" | 4217 | ;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" |
| 4212 | ;;;;;; (20135 20784)) | 4218 | ;;;;;; (20168 57844)) |
| 4213 | ;;; Generated autoloads from comint.el | 4219 | ;;; Generated autoloads from comint.el |
| 4214 | 4220 | ||
| 4215 | (defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ | 4221 | (defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ |
| @@ -4304,7 +4310,7 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. | |||
| 4304 | ;;;*** | 4310 | ;;;*** |
| 4305 | 4311 | ||
| 4306 | ;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el" | 4312 | ;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el" |
| 4307 | ;;;;;; (20119 34052)) | 4313 | ;;;;;; (19845 45374)) |
| 4308 | ;;; Generated autoloads from vc/compare-w.el | 4314 | ;;; Generated autoloads from vc/compare-w.el |
| 4309 | 4315 | ||
| 4310 | (autoload 'compare-windows "compare-w" "\ | 4316 | (autoload 'compare-windows "compare-w" "\ |
| @@ -4341,8 +4347,8 @@ on third call it again advances points to the next difference and so on. | |||
| 4341 | ;;;;;; compilation-shell-minor-mode compilation-mode compilation-start | 4347 | ;;;;;; compilation-shell-minor-mode compilation-mode compilation-start |
| 4342 | ;;;;;; compile compilation-disable-input compile-command compilation-search-path | 4348 | ;;;;;; compile compilation-disable-input compile-command compilation-search-path |
| 4343 | ;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook | 4349 | ;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook |
| 4344 | ;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20127 | 4350 | ;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20167 |
| 4345 | ;;;;;; 25602)) | 4351 | ;;;;;; 36967)) |
| 4346 | ;;; Generated autoloads from progmodes/compile.el | 4352 | ;;; Generated autoloads from progmodes/compile.el |
| 4347 | 4353 | ||
| 4348 | (defvar compilation-mode-hook nil "\ | 4354 | (defvar compilation-mode-hook nil "\ |
| @@ -4522,7 +4528,7 @@ This is the value of `next-error-function' in Compilation buffers. | |||
| 4522 | ;;;*** | 4528 | ;;;*** |
| 4523 | 4529 | ||
| 4524 | ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" | 4530 | ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" |
| 4525 | ;;;;;; (20119 34052)) | 4531 | ;;;;;; (19886 45771)) |
| 4526 | ;;; Generated autoloads from completion.el | 4532 | ;;; Generated autoloads from completion.el |
| 4527 | 4533 | ||
| 4528 | (defvar dynamic-completion-mode nil "\ | 4534 | (defvar dynamic-completion-mode nil "\ |
| @@ -4544,7 +4550,7 @@ Enable dynamic word-completion. | |||
| 4544 | ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode | 4550 | ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode |
| 4545 | ;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode | 4551 | ;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode |
| 4546 | ;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el" | 4552 | ;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el" |
| 4547 | ;;;;;; (20119 34052)) | 4553 | ;;;;;; (20178 7273)) |
| 4548 | ;;; Generated autoloads from textmodes/conf-mode.el | 4554 | ;;; Generated autoloads from textmodes/conf-mode.el |
| 4549 | 4555 | ||
| 4550 | (autoload 'conf-mode "conf-mode" "\ | 4556 | (autoload 'conf-mode "conf-mode" "\ |
| @@ -4700,7 +4706,7 @@ For details see `conf-mode'. Example: | |||
| 4700 | ;;;*** | 4706 | ;;;*** |
| 4701 | 4707 | ||
| 4702 | ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) | 4708 | ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) |
| 4703 | ;;;;;; "cookie1" "play/cookie1.el" (20119 34052)) | 4709 | ;;;;;; "cookie1" "play/cookie1.el" (19845 45374)) |
| 4704 | ;;; Generated autoloads from play/cookie1.el | 4710 | ;;; Generated autoloads from play/cookie1.el |
| 4705 | 4711 | ||
| 4706 | (autoload 'cookie "cookie1" "\ | 4712 | (autoload 'cookie "cookie1" "\ |
| @@ -4732,8 +4738,8 @@ Randomly permute the elements of VECTOR (all permutations equally likely). | |||
| 4732 | ;;;*** | 4738 | ;;;*** |
| 4733 | 4739 | ||
| 4734 | ;;;### (autoloads (copyright-update-directory copyright copyright-fix-years | 4740 | ;;;### (autoloads (copyright-update-directory copyright copyright-fix-years |
| 4735 | ;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20119 | 4741 | ;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (19845 |
| 4736 | ;;;;;; 34052)) | 4742 | ;;;;;; 45374)) |
| 4737 | ;;; Generated autoloads from emacs-lisp/copyright.el | 4743 | ;;; Generated autoloads from emacs-lisp/copyright.el |
| 4738 | (put 'copyright-at-end-flag 'safe-local-variable 'booleanp) | 4744 | (put 'copyright-at-end-flag 'safe-local-variable 'booleanp) |
| 4739 | (put 'copyright-names-regexp 'safe-local-variable 'stringp) | 4745 | (put 'copyright-names-regexp 'safe-local-variable 'stringp) |
| @@ -4772,7 +4778,7 @@ If FIX is non-nil, run `copyright-fix-years' instead. | |||
| 4772 | ;;;*** | 4778 | ;;;*** |
| 4773 | 4779 | ||
| 4774 | ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) | 4780 | ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) |
| 4775 | ;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20119 34052)) | 4781 | ;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20178 7273)) |
| 4776 | ;;; Generated autoloads from progmodes/cperl-mode.el | 4782 | ;;; Generated autoloads from progmodes/cperl-mode.el |
| 4777 | (put 'cperl-indent-level 'safe-local-variable 'integerp) | 4783 | (put 'cperl-indent-level 'safe-local-variable 'integerp) |
| 4778 | (put 'cperl-brace-offset 'safe-local-variable 'integerp) | 4784 | (put 'cperl-brace-offset 'safe-local-variable 'integerp) |
| @@ -4971,7 +4977,7 @@ Run a `perldoc' on the word around point. | |||
| 4971 | ;;;*** | 4977 | ;;;*** |
| 4972 | 4978 | ||
| 4973 | ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" | 4979 | ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" |
| 4974 | ;;;;;; (20119 34052)) | 4980 | ;;;;;; (20104 14925)) |
| 4975 | ;;; Generated autoloads from progmodes/cpp.el | 4981 | ;;; Generated autoloads from progmodes/cpp.el |
| 4976 | 4982 | ||
| 4977 | (autoload 'cpp-highlight-buffer "cpp" "\ | 4983 | (autoload 'cpp-highlight-buffer "cpp" "\ |
| @@ -4990,7 +4996,7 @@ Edit display information for cpp conditionals. | |||
| 4990 | ;;;*** | 4996 | ;;;*** |
| 4991 | 4997 | ||
| 4992 | ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" | 4998 | ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" |
| 4993 | ;;;;;; (20140 44288)) | 4999 | ;;;;;; (20161 45793)) |
| 4994 | ;;; Generated autoloads from emulation/crisp.el | 5000 | ;;; Generated autoloads from emulation/crisp.el |
| 4995 | 5001 | ||
| 4996 | (defvar crisp-mode nil "\ | 5002 | (defvar crisp-mode nil "\ |
| @@ -5016,7 +5022,7 @@ if ARG is omitted or nil. | |||
| 5016 | ;;;*** | 5022 | ;;;*** |
| 5017 | 5023 | ||
| 5018 | ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" | 5024 | ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" |
| 5019 | ;;;;;; (20119 34052)) | 5025 | ;;;;;; (19845 45374)) |
| 5020 | ;;; Generated autoloads from emacs-lisp/crm.el | 5026 | ;;; Generated autoloads from emacs-lisp/crm.el |
| 5021 | 5027 | ||
| 5022 | (autoload 'completing-read-multiple "crm" "\ | 5028 | (autoload 'completing-read-multiple "crm" "\ |
| @@ -5051,8 +5057,8 @@ INHERIT-INPUT-METHOD. | |||
| 5051 | 5057 | ||
| 5052 | ;;;*** | 5058 | ;;;*** |
| 5053 | 5059 | ||
| 5054 | ;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (20119 | 5060 | ;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (19978 |
| 5055 | ;;;;;; 34052)) | 5061 | ;;;;;; 37530)) |
| 5056 | ;;; Generated autoloads from textmodes/css-mode.el | 5062 | ;;; Generated autoloads from textmodes/css-mode.el |
| 5057 | 5063 | ||
| 5058 | (autoload 'css-mode "css-mode" "\ | 5064 | (autoload 'css-mode "css-mode" "\ |
| @@ -5063,7 +5069,7 @@ Major mode to edit Cascading Style Sheets. | |||
| 5063 | ;;;*** | 5069 | ;;;*** |
| 5064 | 5070 | ||
| 5065 | ;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" | 5071 | ;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" |
| 5066 | ;;;;;; (20128 38948)) | 5072 | ;;;;;; (20127 62865)) |
| 5067 | ;;; Generated autoloads from emulation/cua-base.el | 5073 | ;;; Generated autoloads from emulation/cua-base.el |
| 5068 | 5074 | ||
| 5069 | (defvar cua-mode nil "\ | 5075 | (defvar cua-mode nil "\ |
| @@ -5123,7 +5129,7 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. | |||
| 5123 | ;;;;;; customize-mode customize customize-push-and-save customize-save-variable | 5129 | ;;;;;; customize-mode customize customize-push-and-save customize-save-variable |
| 5124 | ;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically | 5130 | ;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically |
| 5125 | ;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically) | 5131 | ;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically) |
| 5126 | ;;;;;; "cus-edit" "cus-edit.el" (20119 34052)) | 5132 | ;;;;;; "cus-edit" "cus-edit.el" (20179 28130)) |
| 5127 | ;;; Generated autoloads from cus-edit.el | 5133 | ;;; Generated autoloads from cus-edit.el |
| 5128 | 5134 | ||
| 5129 | (defvar custom-browse-sort-alphabetically nil "\ | 5135 | (defvar custom-browse-sort-alphabetically nil "\ |
| @@ -5439,8 +5445,8 @@ The format is suitable for use with `easy-menu-define'. | |||
| 5439 | ;;;*** | 5445 | ;;;*** |
| 5440 | 5446 | ||
| 5441 | ;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme | 5447 | ;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme |
| 5442 | ;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20119 | 5448 | ;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20059 |
| 5443 | ;;;;;; 34052)) | 5449 | ;;;;;; 26455)) |
| 5444 | ;;; Generated autoloads from cus-theme.el | 5450 | ;;; Generated autoloads from cus-theme.el |
| 5445 | 5451 | ||
| 5446 | (autoload 'customize-create-theme "cus-theme" "\ | 5452 | (autoload 'customize-create-theme "cus-theme" "\ |
| @@ -5472,7 +5478,7 @@ omitted, a buffer named *Custom Themes* is used. | |||
| 5472 | ;;;*** | 5478 | ;;;*** |
| 5473 | 5479 | ||
| 5474 | ;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el" | 5480 | ;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el" |
| 5475 | ;;;;;; (20119 34052)) | 5481 | ;;;;;; (20174 10230)) |
| 5476 | ;;; Generated autoloads from vc/cvs-status.el | 5482 | ;;; Generated autoloads from vc/cvs-status.el |
| 5477 | 5483 | ||
| 5478 | (autoload 'cvs-status-mode "cvs-status" "\ | 5484 | (autoload 'cvs-status-mode "cvs-status" "\ |
| @@ -5483,7 +5489,7 @@ Mode used for cvs status output. | |||
| 5483 | ;;;*** | 5489 | ;;;*** |
| 5484 | 5490 | ||
| 5485 | ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) | 5491 | ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) |
| 5486 | ;;;;;; "cwarn" "progmodes/cwarn.el" (20119 34052)) | 5492 | ;;;;;; "cwarn" "progmodes/cwarn.el" (20168 57844)) |
| 5487 | ;;; Generated autoloads from progmodes/cwarn.el | 5493 | ;;; Generated autoloads from progmodes/cwarn.el |
| 5488 | 5494 | ||
| 5489 | (autoload 'cwarn-mode "cwarn" "\ | 5495 | (autoload 'cwarn-mode "cwarn" "\ |
| @@ -5532,7 +5538,7 @@ See `cwarn-mode' for more information on Cwarn mode. | |||
| 5532 | 5538 | ||
| 5533 | ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char | 5539 | ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char |
| 5534 | ;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" | 5540 | ;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" |
| 5535 | ;;;;;; (20119 34052)) | 5541 | ;;;;;; (19845 45374)) |
| 5536 | ;;; Generated autoloads from language/cyril-util.el | 5542 | ;;; Generated autoloads from language/cyril-util.el |
| 5537 | 5543 | ||
| 5538 | (autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ | 5544 | (autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ |
| @@ -5561,7 +5567,7 @@ If the argument is nil, we return the display table to its standard state. | |||
| 5561 | ;;;*** | 5567 | ;;;*** |
| 5562 | 5568 | ||
| 5563 | ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" | 5569 | ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" |
| 5564 | ;;;;;; (20119 34052)) | 5570 | ;;;;;; (19989 34789)) |
| 5565 | ;;; Generated autoloads from dabbrev.el | 5571 | ;;; Generated autoloads from dabbrev.el |
| 5566 | (put 'dabbrev-case-fold-search 'risky-local-variable t) | 5572 | (put 'dabbrev-case-fold-search 'risky-local-variable t) |
| 5567 | (put 'dabbrev-case-replace 'risky-local-variable t) | 5573 | (put 'dabbrev-case-replace 'risky-local-variable t) |
| @@ -5608,7 +5614,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. | |||
| 5608 | ;;;*** | 5614 | ;;;*** |
| 5609 | 5615 | ||
| 5610 | ;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el" | 5616 | ;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el" |
| 5611 | ;;;;;; (20119 34052)) | 5617 | ;;;;;; (20168 57844)) |
| 5612 | ;;; Generated autoloads from cedet/data-debug.el | 5618 | ;;; Generated autoloads from cedet/data-debug.el |
| 5613 | 5619 | ||
| 5614 | (autoload 'data-debug-new-buffer "data-debug" "\ | 5620 | (autoload 'data-debug-new-buffer "data-debug" "\ |
| @@ -5618,8 +5624,8 @@ Create a new data-debug buffer with NAME. | |||
| 5618 | 5624 | ||
| 5619 | ;;;*** | 5625 | ;;;*** |
| 5620 | 5626 | ||
| 5621 | ;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20119 | 5627 | ;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20176 |
| 5622 | ;;;;;; 34052)) | 5628 | ;;;;;; 51947)) |
| 5623 | ;;; Generated autoloads from net/dbus.el | 5629 | ;;; Generated autoloads from net/dbus.el |
| 5624 | 5630 | ||
| 5625 | (autoload 'dbus-handle-event "dbus" "\ | 5631 | (autoload 'dbus-handle-event "dbus" "\ |
| @@ -5632,8 +5638,8 @@ If the HANDLER returns a `dbus-error', it is propagated as return message. | |||
| 5632 | 5638 | ||
| 5633 | ;;;*** | 5639 | ;;;*** |
| 5634 | 5640 | ||
| 5635 | ;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20119 | 5641 | ;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20162 |
| 5636 | ;;;;;; 34052)) | 5642 | ;;;;;; 63140)) |
| 5637 | ;;; Generated autoloads from progmodes/dcl-mode.el | 5643 | ;;; Generated autoloads from progmodes/dcl-mode.el |
| 5638 | 5644 | ||
| 5639 | (autoload 'dcl-mode "dcl-mode" "\ | 5645 | (autoload 'dcl-mode "dcl-mode" "\ |
| @@ -5677,7 +5683,7 @@ Variables controlling indentation style and extra features: | |||
| 5677 | dcl-block-begin-regexp | 5683 | dcl-block-begin-regexp |
| 5678 | dcl-block-end-regexp | 5684 | dcl-block-end-regexp |
| 5679 | Regexps that match command lines that begin and end, respectively, | 5685 | Regexps that match command lines that begin and end, respectively, |
| 5680 | a block of commmand lines that will be given extra indentation. | 5686 | a block of command lines that will be given extra indentation. |
| 5681 | Command lines between THEN-ELSE-ENDIF are always indented; these variables | 5687 | Command lines between THEN-ELSE-ENDIF are always indented; these variables |
| 5682 | make it possible to define other places to indent. | 5688 | make it possible to define other places to indent. |
| 5683 | Set to nil to disable this feature. | 5689 | Set to nil to disable this feature. |
| @@ -5760,7 +5766,7 @@ There is some minimal font-lock support (see vars | |||
| 5760 | ;;;*** | 5766 | ;;;*** |
| 5761 | 5767 | ||
| 5762 | ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" | 5768 | ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" |
| 5763 | ;;;;;; "emacs-lisp/debug.el" (20119 34052)) | 5769 | ;;;;;; "emacs-lisp/debug.el" (20098 62550)) |
| 5764 | ;;; Generated autoloads from emacs-lisp/debug.el | 5770 | ;;; Generated autoloads from emacs-lisp/debug.el |
| 5765 | 5771 | ||
| 5766 | (setq debugger 'debug) | 5772 | (setq debugger 'debug) |
| @@ -5804,7 +5810,7 @@ To specify a nil argument interactively, exit with an empty minibuffer. | |||
| 5804 | ;;;*** | 5810 | ;;;*** |
| 5805 | 5811 | ||
| 5806 | ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" | 5812 | ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" |
| 5807 | ;;;;;; (20119 34052)) | 5813 | ;;;;;; (20164 60780)) |
| 5808 | ;;; Generated autoloads from play/decipher.el | 5814 | ;;; Generated autoloads from play/decipher.el |
| 5809 | 5815 | ||
| 5810 | (autoload 'decipher "decipher" "\ | 5816 | (autoload 'decipher "decipher" "\ |
| @@ -5833,8 +5839,8 @@ The most useful commands are: | |||
| 5833 | ;;;*** | 5839 | ;;;*** |
| 5834 | 5840 | ||
| 5835 | ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region | 5841 | ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region |
| 5836 | ;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20119 | 5842 | ;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20154 |
| 5837 | ;;;;;; 34052)) | 5843 | ;;;;;; 24929)) |
| 5838 | ;;; Generated autoloads from delim-col.el | 5844 | ;;; Generated autoloads from delim-col.el |
| 5839 | 5845 | ||
| 5840 | (autoload 'delimit-columns-customize "delim-col" "\ | 5846 | (autoload 'delimit-columns-customize "delim-col" "\ |
| @@ -5858,8 +5864,8 @@ START and END delimits the corners of text rectangle. | |||
| 5858 | 5864 | ||
| 5859 | ;;;*** | 5865 | ;;;*** |
| 5860 | 5866 | ||
| 5861 | ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20119 | 5867 | ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20153 |
| 5862 | ;;;;;; 34052)) | 5868 | ;;;;;; 32900)) |
| 5863 | ;;; Generated autoloads from progmodes/delphi.el | 5869 | ;;; Generated autoloads from progmodes/delphi.el |
| 5864 | 5870 | ||
| 5865 | (autoload 'delphi-mode "delphi" "\ | 5871 | (autoload 'delphi-mode "delphi" "\ |
| @@ -5910,8 +5916,8 @@ with no args, if that value is non-nil. | |||
| 5910 | 5916 | ||
| 5911 | ;;;*** | 5917 | ;;;*** |
| 5912 | 5918 | ||
| 5913 | ;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20126 | 5919 | ;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20127 |
| 5914 | ;;;;;; 50889)) | 5920 | ;;;;;; 62865)) |
| 5915 | ;;; Generated autoloads from delsel.el | 5921 | ;;; Generated autoloads from delsel.el |
| 5916 | 5922 | ||
| 5917 | (defalias 'pending-delete-mode 'delete-selection-mode) | 5923 | (defalias 'pending-delete-mode 'delete-selection-mode) |
| @@ -5941,7 +5947,7 @@ any selection. | |||
| 5941 | ;;;*** | 5947 | ;;;*** |
| 5942 | 5948 | ||
| 5943 | ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) | 5949 | ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) |
| 5944 | ;;;;;; "derived" "emacs-lisp/derived.el" (20134 8296)) | 5950 | ;;;;;; "derived" "emacs-lisp/derived.el" (20137 12290)) |
| 5945 | ;;; Generated autoloads from emacs-lisp/derived.el | 5951 | ;;; Generated autoloads from emacs-lisp/derived.el |
| 5946 | 5952 | ||
| 5947 | (autoload 'define-derived-mode "derived" "\ | 5953 | (autoload 'define-derived-mode "derived" "\ |
| @@ -6008,7 +6014,7 @@ the first time the mode is used. | |||
| 6008 | ;;;*** | 6014 | ;;;*** |
| 6009 | 6015 | ||
| 6010 | ;;;### (autoloads (describe-char describe-text-properties) "descr-text" | 6016 | ;;;### (autoloads (describe-char describe-text-properties) "descr-text" |
| 6011 | ;;;;;; "descr-text.el" (20127 27092)) | 6017 | ;;;;;; "descr-text.el" (20170 13157)) |
| 6012 | ;;; Generated autoloads from descr-text.el | 6018 | ;;; Generated autoloads from descr-text.el |
| 6013 | 6019 | ||
| 6014 | (autoload 'describe-text-properties "descr-text" "\ | 6020 | (autoload 'describe-text-properties "descr-text" "\ |
| @@ -6036,7 +6042,7 @@ as well as widgets, buttons, overlays, and text properties. | |||
| 6036 | ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir | 6042 | ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir |
| 6037 | ;;;;;; desktop-load-default desktop-read desktop-remove desktop-save | 6043 | ;;;;;; desktop-load-default desktop-read desktop-remove desktop-save |
| 6038 | ;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop" | 6044 | ;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop" |
| 6039 | ;;;;;; "desktop.el" (20126 50898)) | 6045 | ;;;;;; "desktop.el" (20165 31925)) |
| 6040 | ;;; Generated autoloads from desktop.el | 6046 | ;;; Generated autoloads from desktop.el |
| 6041 | 6047 | ||
| 6042 | (defvar desktop-save-mode nil "\ | 6048 | (defvar desktop-save-mode nil "\ |
| @@ -6223,7 +6229,7 @@ Revert to the last loaded desktop. | |||
| 6223 | 6229 | ||
| 6224 | ;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article | 6230 | ;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article |
| 6225 | ;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines) | 6231 | ;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines) |
| 6226 | ;;;;;; "deuglify" "gnus/deuglify.el" (20119 34052)) | 6232 | ;;;;;; "deuglify" "gnus/deuglify.el" (19845 45374)) |
| 6227 | ;;; Generated autoloads from gnus/deuglify.el | 6233 | ;;; Generated autoloads from gnus/deuglify.el |
| 6228 | 6234 | ||
| 6229 | (autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ | 6235 | (autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ |
| @@ -6256,7 +6262,7 @@ Deuglify broken Outlook (Express) articles and redisplay. | |||
| 6256 | ;;;*** | 6262 | ;;;*** |
| 6257 | 6263 | ||
| 6258 | ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" | 6264 | ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" |
| 6259 | ;;;;;; "calendar/diary-lib.el" (20119 34052)) | 6265 | ;;;;;; "calendar/diary-lib.el" (20168 57844)) |
| 6260 | ;;; Generated autoloads from calendar/diary-lib.el | 6266 | ;;; Generated autoloads from calendar/diary-lib.el |
| 6261 | 6267 | ||
| 6262 | (autoload 'diary "diary-lib" "\ | 6268 | (autoload 'diary "diary-lib" "\ |
| @@ -6299,7 +6305,7 @@ Major mode for editing the diary file. | |||
| 6299 | ;;;*** | 6305 | ;;;*** |
| 6300 | 6306 | ||
| 6301 | ;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command | 6307 | ;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command |
| 6302 | ;;;;;; diff-switches) "diff" "vc/diff.el" (20119 34052)) | 6308 | ;;;;;; diff-switches) "diff" "vc/diff.el" (19999 41597)) |
| 6303 | ;;; Generated autoloads from vc/diff.el | 6309 | ;;; Generated autoloads from vc/diff.el |
| 6304 | 6310 | ||
| 6305 | (defvar diff-switches (purecopy "-c") "\ | 6311 | (defvar diff-switches (purecopy "-c") "\ |
| @@ -6343,7 +6349,7 @@ This requires the external program `diff' to be in your `exec-path'. | |||
| 6343 | ;;;*** | 6349 | ;;;*** |
| 6344 | 6350 | ||
| 6345 | ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el" | 6351 | ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el" |
| 6346 | ;;;;;; (20127 23725)) | 6352 | ;;;;;; (20181 13366)) |
| 6347 | ;;; Generated autoloads from vc/diff-mode.el | 6353 | ;;; Generated autoloads from vc/diff-mode.el |
| 6348 | 6354 | ||
| 6349 | (autoload 'diff-mode "diff-mode" "\ | 6355 | (autoload 'diff-mode "diff-mode" "\ |
| @@ -6375,7 +6381,7 @@ the mode if ARG is omitted or nil. | |||
| 6375 | 6381 | ||
| 6376 | ;;;*** | 6382 | ;;;*** |
| 6377 | 6383 | ||
| 6378 | ;;;### (autoloads (dig) "dig" "net/dig.el" (20119 34052)) | 6384 | ;;;### (autoloads (dig) "dig" "net/dig.el" (19845 45374)) |
| 6379 | ;;; Generated autoloads from net/dig.el | 6385 | ;;; Generated autoloads from net/dig.el |
| 6380 | 6386 | ||
| 6381 | (autoload 'dig "dig" "\ | 6387 | (autoload 'dig "dig" "\ |
| @@ -6387,7 +6393,7 @@ Optional arguments are passed to `dig-invoke'. | |||
| 6387 | ;;;*** | 6393 | ;;;*** |
| 6388 | 6394 | ||
| 6389 | ;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window | 6395 | ;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window |
| 6390 | ;;;;;; dired dired-listing-switches) "dired" "dired.el" (20140 44600)) | 6396 | ;;;;;; dired dired-listing-switches) "dired" "dired.el" (20167 36967)) |
| 6391 | ;;; Generated autoloads from dired.el | 6397 | ;;; Generated autoloads from dired.el |
| 6392 | 6398 | ||
| 6393 | (defvar dired-listing-switches (purecopy "-al") "\ | 6399 | (defvar dired-listing-switches (purecopy "-al") "\ |
| @@ -6509,7 +6515,7 @@ Keybindings: | |||
| 6509 | ;;;*** | 6515 | ;;;*** |
| 6510 | 6516 | ||
| 6511 | ;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el" | 6517 | ;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el" |
| 6512 | ;;;;;; (20126 50922)) | 6518 | ;;;;;; (20127 62865)) |
| 6513 | ;;; Generated autoloads from dirtrack.el | 6519 | ;;; Generated autoloads from dirtrack.el |
| 6514 | 6520 | ||
| 6515 | (autoload 'dirtrack-mode "dirtrack" "\ | 6521 | (autoload 'dirtrack-mode "dirtrack" "\ |
| @@ -6539,8 +6545,8 @@ function `dirtrack-debug-mode' to turn on debugging output. | |||
| 6539 | 6545 | ||
| 6540 | ;;;*** | 6546 | ;;;*** |
| 6541 | 6547 | ||
| 6542 | ;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20119 | 6548 | ;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (19931 |
| 6543 | ;;;;;; 34052)) | 6549 | ;;;;;; 11784)) |
| 6544 | ;;; Generated autoloads from emacs-lisp/disass.el | 6550 | ;;; Generated autoloads from emacs-lisp/disass.el |
| 6545 | 6551 | ||
| 6546 | (autoload 'disassemble "disass" "\ | 6552 | (autoload 'disassemble "disass" "\ |
| @@ -6559,7 +6565,7 @@ redefine OBJECT if it is a symbol. | |||
| 6559 | ;;;;;; standard-display-g1 standard-display-ascii standard-display-default | 6565 | ;;;;;; standard-display-g1 standard-display-ascii standard-display-default |
| 6560 | ;;;;;; standard-display-8bit describe-current-display-table describe-display-table | 6566 | ;;;;;; standard-display-8bit describe-current-display-table describe-display-table |
| 6561 | ;;;;;; set-display-table-slot display-table-slot make-display-table) | 6567 | ;;;;;; set-display-table-slot display-table-slot make-display-table) |
| 6562 | ;;;;;; "disp-table" "disp-table.el" (20119 34052)) | 6568 | ;;;;;; "disp-table" "disp-table.el" (19984 16846)) |
| 6563 | ;;; Generated autoloads from disp-table.el | 6569 | ;;; Generated autoloads from disp-table.el |
| 6564 | 6570 | ||
| 6565 | (autoload 'make-display-table "disp-table" "\ | 6571 | (autoload 'make-display-table "disp-table" "\ |
| @@ -6681,7 +6687,7 @@ in `.emacs'. | |||
| 6681 | ;;;*** | 6687 | ;;;*** |
| 6682 | 6688 | ||
| 6683 | ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" | 6689 | ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" |
| 6684 | ;;;;;; (20119 34052)) | 6690 | ;;;;;; (19845 45374)) |
| 6685 | ;;; Generated autoloads from play/dissociate.el | 6691 | ;;; Generated autoloads from play/dissociate.el |
| 6686 | 6692 | ||
| 6687 | (autoload 'dissociated-press "dissociate" "\ | 6693 | (autoload 'dissociated-press "dissociate" "\ |
| @@ -6697,7 +6703,7 @@ Default is 2. | |||
| 6697 | 6703 | ||
| 6698 | ;;;*** | 6704 | ;;;*** |
| 6699 | 6705 | ||
| 6700 | ;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20119 34052)) | 6706 | ;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (19886 45771)) |
| 6701 | ;;; Generated autoloads from dnd.el | 6707 | ;;; Generated autoloads from dnd.el |
| 6702 | 6708 | ||
| 6703 | (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)) "\ | 6709 | (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)) "\ |
| @@ -6718,7 +6724,7 @@ if some action was made, or nil if the URL is ignored.") | |||
| 6718 | ;;;*** | 6724 | ;;;*** |
| 6719 | 6725 | ||
| 6720 | ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" | 6726 | ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" |
| 6721 | ;;;;;; "textmodes/dns-mode.el" (20119 34052)) | 6727 | ;;;;;; "textmodes/dns-mode.el" (19845 45374)) |
| 6722 | ;;; Generated autoloads from textmodes/dns-mode.el | 6728 | ;;; Generated autoloads from textmodes/dns-mode.el |
| 6723 | 6729 | ||
| 6724 | (autoload 'dns-mode "dns-mode" "\ | 6730 | (autoload 'dns-mode "dns-mode" "\ |
| @@ -6742,8 +6748,8 @@ Locate SOA record and increment the serial field. | |||
| 6742 | ;;;*** | 6748 | ;;;*** |
| 6743 | 6749 | ||
| 6744 | ;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe | 6750 | ;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe |
| 6745 | ;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20139 | 6751 | ;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20172 |
| 6746 | ;;;;;; 28158)) | 6752 | ;;;;;; 54913)) |
| 6747 | ;;; Generated autoloads from doc-view.el | 6753 | ;;; Generated autoloads from doc-view.el |
| 6748 | 6754 | ||
| 6749 | (autoload 'doc-view-mode-p "doc-view" "\ | 6755 | (autoload 'doc-view-mode-p "doc-view" "\ |
| @@ -6789,7 +6795,7 @@ See the command `doc-view-mode' for more information on this mode. | |||
| 6789 | 6795 | ||
| 6790 | ;;;*** | 6796 | ;;;*** |
| 6791 | 6797 | ||
| 6792 | ;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20119 34052)) | 6798 | ;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20077 56412)) |
| 6793 | ;;; Generated autoloads from play/doctor.el | 6799 | ;;; Generated autoloads from play/doctor.el |
| 6794 | 6800 | ||
| 6795 | (autoload 'doctor "doctor" "\ | 6801 | (autoload 'doctor "doctor" "\ |
| @@ -6799,7 +6805,7 @@ Switch to *doctor* buffer and start giving psychotherapy. | |||
| 6799 | 6805 | ||
| 6800 | ;;;*** | 6806 | ;;;*** |
| 6801 | 6807 | ||
| 6802 | ;;;### (autoloads (double-mode) "double" "double.el" (20126 50942)) | 6808 | ;;;### (autoloads (double-mode) "double" "double.el" (20127 62865)) |
| 6803 | ;;; Generated autoloads from double.el | 6809 | ;;; Generated autoloads from double.el |
| 6804 | 6810 | ||
| 6805 | (autoload 'double-mode "double" "\ | 6811 | (autoload 'double-mode "double" "\ |
| @@ -6815,7 +6821,7 @@ strings when pressed twice. See `double-map' for details. | |||
| 6815 | 6821 | ||
| 6816 | ;;;*** | 6822 | ;;;*** |
| 6817 | 6823 | ||
| 6818 | ;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20119 34052)) | 6824 | ;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (19845 45374)) |
| 6819 | ;;; Generated autoloads from play/dunnet.el | 6825 | ;;; Generated autoloads from play/dunnet.el |
| 6820 | 6826 | ||
| 6821 | (autoload 'dunnet "dunnet" "\ | 6827 | (autoload 'dunnet "dunnet" "\ |
| @@ -6827,7 +6833,7 @@ Switch to *dungeon* buffer and start game. | |||
| 6827 | 6833 | ||
| 6828 | ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap | 6834 | ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap |
| 6829 | ;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode" | 6835 | ;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode" |
| 6830 | ;;;;;; "emacs-lisp/easy-mmode.el" (20136 49226)) | 6836 | ;;;;;; "emacs-lisp/easy-mmode.el" (20179 28130)) |
| 6831 | ;;; Generated autoloads from emacs-lisp/easy-mmode.el | 6837 | ;;; Generated autoloads from emacs-lisp/easy-mmode.el |
| 6832 | 6838 | ||
| 6833 | (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) | 6839 | (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) |
| @@ -6938,8 +6944,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). | |||
| 6938 | ;;;*** | 6944 | ;;;*** |
| 6939 | 6945 | ||
| 6940 | ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define | 6946 | ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define |
| 6941 | ;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (20119 | 6947 | ;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (19845 |
| 6942 | ;;;;;; 34052)) | 6948 | ;;;;;; 45374)) |
| 6943 | ;;; Generated autoloads from emacs-lisp/easymenu.el | 6949 | ;;; Generated autoloads from emacs-lisp/easymenu.el |
| 6944 | 6950 | ||
| 6945 | (autoload 'easy-menu-define "easymenu" "\ | 6951 | (autoload 'easy-menu-define "easymenu" "\ |
| @@ -7093,7 +7099,7 @@ To implement dynamic menus, either call this from | |||
| 7093 | ;;;;;; ebnf-eps-file ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer | 7099 | ;;;;;; ebnf-eps-file ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer |
| 7094 | ;;;;;; ebnf-spool-file ebnf-spool-directory ebnf-print-region ebnf-print-buffer | 7100 | ;;;;;; ebnf-spool-file ebnf-spool-directory ebnf-print-region ebnf-print-buffer |
| 7095 | ;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" | 7101 | ;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" |
| 7096 | ;;;;;; "progmodes/ebnf2ps.el" (20119 34052)) | 7102 | ;;;;;; "progmodes/ebnf2ps.el" (20166 16092)) |
| 7097 | ;;; Generated autoloads from progmodes/ebnf2ps.el | 7103 | ;;; Generated autoloads from progmodes/ebnf2ps.el |
| 7098 | 7104 | ||
| 7099 | (autoload 'ebnf-customize "ebnf2ps" "\ | 7105 | (autoload 'ebnf-customize "ebnf2ps" "\ |
| @@ -7367,8 +7373,8 @@ See `ebnf-style-database' documentation. | |||
| 7367 | ;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition | 7373 | ;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition |
| 7368 | ;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration | 7374 | ;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration |
| 7369 | ;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree | 7375 | ;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree |
| 7370 | ;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (20119 | 7376 | ;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (20104 |
| 7371 | ;;;;;; 34052)) | 7377 | ;;;;;; 14925)) |
| 7372 | ;;; Generated autoloads from progmodes/ebrowse.el | 7378 | ;;; Generated autoloads from progmodes/ebrowse.el |
| 7373 | 7379 | ||
| 7374 | (autoload 'ebrowse-tree-mode "ebrowse" "\ | 7380 | (autoload 'ebrowse-tree-mode "ebrowse" "\ |
| @@ -7517,7 +7523,7 @@ Display statistics for a class tree. | |||
| 7517 | ;;;*** | 7523 | ;;;*** |
| 7518 | 7524 | ||
| 7519 | ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" | 7525 | ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" |
| 7520 | ;;;;;; (20119 34052)) | 7526 | ;;;;;; (20104 14925)) |
| 7521 | ;;; Generated autoloads from ebuff-menu.el | 7527 | ;;; Generated autoloads from ebuff-menu.el |
| 7522 | 7528 | ||
| 7523 | (autoload 'electric-buffer-list "ebuff-menu" "\ | 7529 | (autoload 'electric-buffer-list "ebuff-menu" "\ |
| @@ -7542,7 +7548,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. | |||
| 7542 | ;;;*** | 7548 | ;;;*** |
| 7543 | 7549 | ||
| 7544 | ;;;### (autoloads (Electric-command-history-redo-expression) "echistory" | 7550 | ;;;### (autoloads (Electric-command-history-redo-expression) "echistory" |
| 7545 | ;;;;;; "echistory.el" (20119 34052)) | 7551 | ;;;;;; "echistory.el" (19886 45771)) |
| 7546 | ;;; Generated autoloads from echistory.el | 7552 | ;;; Generated autoloads from echistory.el |
| 7547 | 7553 | ||
| 7548 | (autoload 'Electric-command-history-redo-expression "echistory" "\ | 7554 | (autoload 'Electric-command-history-redo-expression "echistory" "\ |
| @@ -7554,7 +7560,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. | |||
| 7554 | ;;;*** | 7560 | ;;;*** |
| 7555 | 7561 | ||
| 7556 | ;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el" | 7562 | ;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el" |
| 7557 | ;;;;;; (20119 34052)) | 7563 | ;;;;;; (20110 24804)) |
| 7558 | ;;; Generated autoloads from gnus/ecomplete.el | 7564 | ;;; Generated autoloads from gnus/ecomplete.el |
| 7559 | 7565 | ||
| 7560 | (autoload 'ecomplete-setup "ecomplete" "\ | 7566 | (autoload 'ecomplete-setup "ecomplete" "\ |
| @@ -7564,7 +7570,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. | |||
| 7564 | 7570 | ||
| 7565 | ;;;*** | 7571 | ;;;*** |
| 7566 | 7572 | ||
| 7567 | ;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20131 35255)) | 7573 | ;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20168 57844)) |
| 7568 | ;;; Generated autoloads from cedet/ede.el | 7574 | ;;; Generated autoloads from cedet/ede.el |
| 7569 | 7575 | ||
| 7570 | (defvar global-ede-mode nil "\ | 7576 | (defvar global-ede-mode nil "\ |
| @@ -7591,7 +7597,7 @@ an EDE controlled project. | |||
| 7591 | 7597 | ||
| 7592 | ;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form | 7598 | ;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form |
| 7593 | ;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug" | 7599 | ;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug" |
| 7594 | ;;;;;; "emacs-lisp/edebug.el" (20119 34052)) | 7600 | ;;;;;; "emacs-lisp/edebug.el" (20166 16092)) |
| 7595 | ;;; Generated autoloads from emacs-lisp/edebug.el | 7601 | ;;; Generated autoloads from emacs-lisp/edebug.el |
| 7596 | 7602 | ||
| 7597 | (defvar edebug-all-defs nil "\ | 7603 | (defvar edebug-all-defs nil "\ |
| @@ -7664,7 +7670,7 @@ Toggle edebugging of all forms. | |||
| 7664 | ;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories | 7670 | ;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories |
| 7665 | ;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories | 7671 | ;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories |
| 7666 | ;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file | 7672 | ;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file |
| 7667 | ;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20119 34052)) | 7673 | ;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (19996 8027)) |
| 7668 | ;;; Generated autoloads from vc/ediff.el | 7674 | ;;; Generated autoloads from vc/ediff.el |
| 7669 | 7675 | ||
| 7670 | (autoload 'ediff-files "ediff" "\ | 7676 | (autoload 'ediff-files "ediff" "\ |
| @@ -7896,7 +7902,7 @@ With optional NODE, goes to that node. | |||
| 7896 | ;;;*** | 7902 | ;;;*** |
| 7897 | 7903 | ||
| 7898 | ;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el" | 7904 | ;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el" |
| 7899 | ;;;;;; (20119 34052)) | 7905 | ;;;;;; (20178 7273)) |
| 7900 | ;;; Generated autoloads from vc/ediff-help.el | 7906 | ;;; Generated autoloads from vc/ediff-help.el |
| 7901 | 7907 | ||
| 7902 | (autoload 'ediff-customize "ediff-help" "\ | 7908 | (autoload 'ediff-customize "ediff-help" "\ |
| @@ -7907,7 +7913,7 @@ With optional NODE, goes to that node. | |||
| 7907 | ;;;*** | 7913 | ;;;*** |
| 7908 | 7914 | ||
| 7909 | ;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el" | 7915 | ;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el" |
| 7910 | ;;;;;; (20119 34052)) | 7916 | ;;;;;; (20168 57844)) |
| 7911 | ;;; Generated autoloads from vc/ediff-mult.el | 7917 | ;;; Generated autoloads from vc/ediff-mult.el |
| 7912 | 7918 | ||
| 7913 | (autoload 'ediff-show-registry "ediff-mult" "\ | 7919 | (autoload 'ediff-show-registry "ediff-mult" "\ |
| @@ -7920,7 +7926,7 @@ Display Ediff's registry. | |||
| 7920 | ;;;*** | 7926 | ;;;*** |
| 7921 | 7927 | ||
| 7922 | ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) | 7928 | ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) |
| 7923 | ;;;;;; "ediff-util" "vc/ediff-util.el" (20140 44390)) | 7929 | ;;;;;; "ediff-util" "vc/ediff-util.el" (20175 31160)) |
| 7924 | ;;; Generated autoloads from vc/ediff-util.el | 7930 | ;;; Generated autoloads from vc/ediff-util.el |
| 7925 | 7931 | ||
| 7926 | (autoload 'ediff-toggle-multiframe "ediff-util" "\ | 7932 | (autoload 'ediff-toggle-multiframe "ediff-util" "\ |
| @@ -7941,7 +7947,7 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. | |||
| 7941 | 7947 | ||
| 7942 | ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro | 7948 | ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro |
| 7943 | ;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" | 7949 | ;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" |
| 7944 | ;;;;;; (20119 34052)) | 7950 | ;;;;;; (19886 45771)) |
| 7945 | ;;; Generated autoloads from edmacro.el | 7951 | ;;; Generated autoloads from edmacro.el |
| 7946 | 7952 | ||
| 7947 | (autoload 'edit-kbd-macro "edmacro" "\ | 7953 | (autoload 'edit-kbd-macro "edmacro" "\ |
| @@ -7990,7 +7996,7 @@ or nil, use a compact 80-column format. | |||
| 7990 | ;;;*** | 7996 | ;;;*** |
| 7991 | 7997 | ||
| 7992 | ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" | 7998 | ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" |
| 7993 | ;;;;;; "emulation/edt.el" (20140 44303)) | 7999 | ;;;;;; "emulation/edt.el" (20154 24929)) |
| 7994 | ;;; Generated autoloads from emulation/edt.el | 8000 | ;;; Generated autoloads from emulation/edt.el |
| 7995 | 8001 | ||
| 7996 | (autoload 'edt-set-scroll-margins "edt" "\ | 8002 | (autoload 'edt-set-scroll-margins "edt" "\ |
| @@ -8008,7 +8014,7 @@ Turn on EDT Emulation. | |||
| 8008 | ;;;*** | 8014 | ;;;*** |
| 8009 | 8015 | ||
| 8010 | ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" | 8016 | ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" |
| 8011 | ;;;;;; (20119 34052)) | 8017 | ;;;;;; (19865 50420)) |
| 8012 | ;;; Generated autoloads from ehelp.el | 8018 | ;;; Generated autoloads from ehelp.el |
| 8013 | 8019 | ||
| 8014 | (autoload 'with-electric-help "ehelp" "\ | 8020 | (autoload 'with-electric-help "ehelp" "\ |
| @@ -8045,7 +8051,7 @@ BUFFER is put back into its original major mode. | |||
| 8045 | ;;;*** | 8051 | ;;;*** |
| 8046 | 8052 | ||
| 8047 | ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) | 8053 | ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) |
| 8048 | ;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20127 23532)) | 8054 | ;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20161 45793)) |
| 8049 | ;;; Generated autoloads from emacs-lisp/eldoc.el | 8055 | ;;; Generated autoloads from emacs-lisp/eldoc.el |
| 8050 | 8056 | ||
| 8051 | (defvar eldoc-minor-mode-string (purecopy " ElDoc") "\ | 8057 | (defvar eldoc-minor-mode-string (purecopy " ElDoc") "\ |
| @@ -8092,11 +8098,15 @@ Emacs Lisp mode) that support ElDoc.") | |||
| 8092 | ;;;*** | 8098 | ;;;*** |
| 8093 | 8099 | ||
| 8094 | ;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode) | 8100 | ;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode) |
| 8095 | ;;;;;; "electric" "electric.el" (20126 50965)) | 8101 | ;;;;;; "electric" "electric.el" (20168 57844)) |
| 8096 | ;;; Generated autoloads from electric.el | 8102 | ;;; Generated autoloads from electric.el |
| 8097 | 8103 | ||
| 8098 | (defvar electric-indent-chars '(10) "\ | 8104 | (defvar electric-indent-chars '(10) "\ |
| 8099 | Characters that should cause automatic reindentation.") | 8105 | Characters that should cause automatic reindentation. |
| 8106 | Each entry of the list can be either a character or a cons of the | ||
| 8107 | form (CHAR . PREDICATE) which means that CHAR should cause reindentation | ||
| 8108 | only if PREDICATE returns non-nil. PREDICATE is called with no arguments | ||
| 8109 | and with point before the inserted char.") | ||
| 8100 | 8110 | ||
| 8101 | (defvar electric-indent-mode nil "\ | 8111 | (defvar electric-indent-mode nil "\ |
| 8102 | Non-nil if Electric-Indent mode is enabled. | 8112 | Non-nil if Electric-Indent mode is enabled. |
| @@ -8156,8 +8166,8 @@ Automatically insert newlines around some chars. | |||
| 8156 | 8166 | ||
| 8157 | ;;;*** | 8167 | ;;;*** |
| 8158 | 8168 | ||
| 8159 | ;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20119 | 8169 | ;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (19845 |
| 8160 | ;;;;;; 34052)) | 8170 | ;;;;;; 45374)) |
| 8161 | ;;; Generated autoloads from elide-head.el | 8171 | ;;; Generated autoloads from elide-head.el |
| 8162 | 8172 | ||
| 8163 | (autoload 'elide-head "elide-head" "\ | 8173 | (autoload 'elide-head "elide-head" "\ |
| @@ -8174,7 +8184,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. | |||
| 8174 | 8184 | ||
| 8175 | ;;;### (autoloads (elint-initialize elint-defun elint-current-buffer | 8185 | ;;;### (autoloads (elint-initialize elint-defun elint-current-buffer |
| 8176 | ;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el" | 8186 | ;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el" |
| 8177 | ;;;;;; (20119 34052)) | 8187 | ;;;;;; (20172 54913)) |
| 8178 | ;;; Generated autoloads from emacs-lisp/elint.el | 8188 | ;;; Generated autoloads from emacs-lisp/elint.el |
| 8179 | 8189 | ||
| 8180 | (autoload 'elint-file "elint" "\ | 8190 | (autoload 'elint-file "elint" "\ |
| @@ -8210,8 +8220,8 @@ optional prefix argument REINIT is non-nil. | |||
| 8210 | ;;;*** | 8220 | ;;;*** |
| 8211 | 8221 | ||
| 8212 | ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list | 8222 | ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list |
| 8213 | ;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20119 | 8223 | ;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (19981 |
| 8214 | ;;;;;; 34052)) | 8224 | ;;;;;; 40664)) |
| 8215 | ;;; Generated autoloads from emacs-lisp/elp.el | 8225 | ;;; Generated autoloads from emacs-lisp/elp.el |
| 8216 | 8226 | ||
| 8217 | (autoload 'elp-instrument-function "elp" "\ | 8227 | (autoload 'elp-instrument-function "elp" "\ |
| @@ -8246,7 +8256,7 @@ displayed. | |||
| 8246 | ;;;*** | 8256 | ;;;*** |
| 8247 | 8257 | ||
| 8248 | ;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el" | 8258 | ;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el" |
| 8249 | ;;;;;; (20126 50977)) | 8259 | ;;;;;; (20127 62865)) |
| 8250 | ;;; Generated autoloads from emacs-lock.el | 8260 | ;;; Generated autoloads from emacs-lock.el |
| 8251 | 8261 | ||
| 8252 | (autoload 'emacs-lock-mode "emacs-lock" "\ | 8262 | (autoload 'emacs-lock-mode "emacs-lock" "\ |
| @@ -8274,7 +8284,7 @@ Other values are interpreted as usual. | |||
| 8274 | ;;;*** | 8284 | ;;;*** |
| 8275 | 8285 | ||
| 8276 | ;;;### (autoloads (report-emacs-bug-query-existing-bugs report-emacs-bug) | 8286 | ;;;### (autoloads (report-emacs-bug-query-existing-bugs report-emacs-bug) |
| 8277 | ;;;;;; "emacsbug" "mail/emacsbug.el" (20119 34052)) | 8287 | ;;;;;; "emacsbug" "mail/emacsbug.el" (20093 44623)) |
| 8278 | ;;; Generated autoloads from mail/emacsbug.el | 8288 | ;;; Generated autoloads from mail/emacsbug.el |
| 8279 | 8289 | ||
| 8280 | (autoload 'report-emacs-bug "emacsbug" "\ | 8290 | (autoload 'report-emacs-bug "emacsbug" "\ |
| @@ -8295,7 +8305,7 @@ The result is an alist with items of the form (URL SUBJECT NO). | |||
| 8295 | ;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote | 8305 | ;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote |
| 8296 | ;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor | 8306 | ;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor |
| 8297 | ;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge" | 8307 | ;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge" |
| 8298 | ;;;;;; "vc/emerge.el" (20140 44401)) | 8308 | ;;;;;; "vc/emerge.el" (20141 9296)) |
| 8299 | ;;; Generated autoloads from vc/emerge.el | 8309 | ;;; Generated autoloads from vc/emerge.el |
| 8300 | 8310 | ||
| 8301 | (autoload 'emerge-files "emerge" "\ | 8311 | (autoload 'emerge-files "emerge" "\ |
| @@ -8356,7 +8366,7 @@ Emerge two RCS revisions of a file, with another revision as ancestor. | |||
| 8356 | ;;;*** | 8366 | ;;;*** |
| 8357 | 8367 | ||
| 8358 | ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) | 8368 | ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) |
| 8359 | ;;;;;; "enriched" "textmodes/enriched.el" (20127 24788)) | 8369 | ;;;;;; "enriched" "textmodes/enriched.el" (19845 45374)) |
| 8360 | ;;; Generated autoloads from textmodes/enriched.el | 8370 | ;;; Generated autoloads from textmodes/enriched.el |
| 8361 | 8371 | ||
| 8362 | (autoload 'enriched-mode "enriched" "\ | 8372 | (autoload 'enriched-mode "enriched" "\ |
| @@ -8391,8 +8401,8 @@ Commands: | |||
| 8391 | ;;;;;; epa-sign-region epa-verify-cleartext-in-region epa-verify-region | 8401 | ;;;;;; epa-sign-region epa-verify-cleartext-in-region epa-verify-region |
| 8392 | ;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file | 8402 | ;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file |
| 8393 | ;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys | 8403 | ;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys |
| 8394 | ;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20119 | 8404 | ;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20104 |
| 8395 | ;;;;;; 34052)) | 8405 | ;;;;;; 14925)) |
| 8396 | ;;; Generated autoloads from epa.el | 8406 | ;;; Generated autoloads from epa.el |
| 8397 | 8407 | ||
| 8398 | (autoload 'epa-list-keys "epa" "\ | 8408 | (autoload 'epa-list-keys "epa" "\ |
| @@ -8570,7 +8580,7 @@ Insert selected KEYS after the point. | |||
| 8570 | ;;;*** | 8580 | ;;;*** |
| 8571 | 8581 | ||
| 8572 | ;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify | 8582 | ;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify |
| 8573 | ;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20119 34052)) | 8583 | ;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (19865 50420)) |
| 8574 | ;;; Generated autoloads from epa-dired.el | 8584 | ;;; Generated autoloads from epa-dired.el |
| 8575 | 8585 | ||
| 8576 | (autoload 'epa-dired-do-decrypt "epa-dired" "\ | 8586 | (autoload 'epa-dired-do-decrypt "epa-dired" "\ |
| @@ -8596,7 +8606,7 @@ Encrypt marked files. | |||
| 8596 | ;;;*** | 8606 | ;;;*** |
| 8597 | 8607 | ||
| 8598 | ;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler) | 8608 | ;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler) |
| 8599 | ;;;;;; "epa-file" "epa-file.el" (20119 34052)) | 8609 | ;;;;;; "epa-file" "epa-file.el" (20038 20303)) |
| 8600 | ;;; Generated autoloads from epa-file.el | 8610 | ;;; Generated autoloads from epa-file.el |
| 8601 | 8611 | ||
| 8602 | (autoload 'epa-file-handler "epa-file" "\ | 8612 | (autoload 'epa-file-handler "epa-file" "\ |
| @@ -8618,7 +8628,7 @@ Encrypt marked files. | |||
| 8618 | 8628 | ||
| 8619 | ;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt | 8629 | ;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt |
| 8620 | ;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode) | 8630 | ;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode) |
| 8621 | ;;;;;; "epa-mail" "epa-mail.el" (20119 34052)) | 8631 | ;;;;;; "epa-mail" "epa-mail.el" (20043 38232)) |
| 8622 | ;;; Generated autoloads from epa-mail.el | 8632 | ;;; Generated autoloads from epa-mail.el |
| 8623 | 8633 | ||
| 8624 | (autoload 'epa-mail-mode "epa-mail" "\ | 8634 | (autoload 'epa-mail-mode "epa-mail" "\ |
| @@ -8682,7 +8692,7 @@ Minor mode to hook EasyPG into Mail mode. | |||
| 8682 | 8692 | ||
| 8683 | ;;;*** | 8693 | ;;;*** |
| 8684 | 8694 | ||
| 8685 | ;;;### (autoloads (epg-make-context) "epg" "epg.el" (20119 34052)) | 8695 | ;;;### (autoloads (epg-make-context) "epg" "epg.el" (20172 54913)) |
| 8686 | ;;; Generated autoloads from epg.el | 8696 | ;;; Generated autoloads from epg.el |
| 8687 | 8697 | ||
| 8688 | (autoload 'epg-make-context "epg" "\ | 8698 | (autoload 'epg-make-context "epg" "\ |
| @@ -8693,7 +8703,7 @@ Return a context object. | |||
| 8693 | ;;;*** | 8703 | ;;;*** |
| 8694 | 8704 | ||
| 8695 | ;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration) | 8705 | ;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration) |
| 8696 | ;;;;;; "epg-config" "epg-config.el" (20119 34052)) | 8706 | ;;;;;; "epg-config" "epg-config.el" (19845 45374)) |
| 8697 | ;;; Generated autoloads from epg-config.el | 8707 | ;;; Generated autoloads from epg-config.el |
| 8698 | 8708 | ||
| 8699 | (autoload 'epg-configuration "epg-config" "\ | 8709 | (autoload 'epg-configuration "epg-config" "\ |
| @@ -8714,7 +8724,7 @@ Look at CONFIG and try to expand GROUP. | |||
| 8714 | ;;;*** | 8724 | ;;;*** |
| 8715 | 8725 | ||
| 8716 | ;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" | 8726 | ;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" |
| 8717 | ;;;;;; "erc/erc.el" (20127 26333)) | 8727 | ;;;;;; "erc/erc.el" (20172 54913)) |
| 8718 | ;;; Generated autoloads from erc/erc.el | 8728 | ;;; Generated autoloads from erc/erc.el |
| 8719 | 8729 | ||
| 8720 | (autoload 'erc-select-read-args "erc" "\ | 8730 | (autoload 'erc-select-read-args "erc" "\ |
| @@ -8756,33 +8766,33 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL. | |||
| 8756 | 8766 | ||
| 8757 | ;;;*** | 8767 | ;;;*** |
| 8758 | 8768 | ||
| 8759 | ;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20119 | 8769 | ;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20161 |
| 8760 | ;;;;;; 34052)) | 8770 | ;;;;;; 45793)) |
| 8761 | ;;; Generated autoloads from erc/erc-autoaway.el | 8771 | ;;; Generated autoloads from erc/erc-autoaway.el |
| 8762 | (autoload 'erc-autoaway-mode "erc-autoaway") | 8772 | (autoload 'erc-autoaway-mode "erc-autoaway") |
| 8763 | 8773 | ||
| 8764 | ;;;*** | 8774 | ;;;*** |
| 8765 | 8775 | ||
| 8766 | ;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20119 34052)) | 8776 | ;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20093 44623)) |
| 8767 | ;;; Generated autoloads from erc/erc-button.el | 8777 | ;;; Generated autoloads from erc/erc-button.el |
| 8768 | (autoload 'erc-button-mode "erc-button" nil t) | 8778 | (autoload 'erc-button-mode "erc-button" nil t) |
| 8769 | 8779 | ||
| 8770 | ;;;*** | 8780 | ;;;*** |
| 8771 | 8781 | ||
| 8772 | ;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20119 34052)) | 8782 | ;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (19845 45374)) |
| 8773 | ;;; Generated autoloads from erc/erc-capab.el | 8783 | ;;; Generated autoloads from erc/erc-capab.el |
| 8774 | (autoload 'erc-capab-identify-mode "erc-capab" nil t) | 8784 | (autoload 'erc-capab-identify-mode "erc-capab" nil t) |
| 8775 | 8785 | ||
| 8776 | ;;;*** | 8786 | ;;;*** |
| 8777 | 8787 | ||
| 8778 | ;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (20119 34052)) | 8788 | ;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (19845 45374)) |
| 8779 | ;;; Generated autoloads from erc/erc-compat.el | 8789 | ;;; Generated autoloads from erc/erc-compat.el |
| 8780 | (autoload 'erc-define-minor-mode "erc-compat") | 8790 | (autoload 'erc-define-minor-mode "erc-compat") |
| 8781 | 8791 | ||
| 8782 | ;;;*** | 8792 | ;;;*** |
| 8783 | 8793 | ||
| 8784 | ;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC) | 8794 | ;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC) |
| 8785 | ;;;;;; "erc-dcc" "erc/erc-dcc.el" (20119 34052)) | 8795 | ;;;;;; "erc-dcc" "erc/erc-dcc.el" (20179 28130)) |
| 8786 | ;;; Generated autoloads from erc/erc-dcc.el | 8796 | ;;; Generated autoloads from erc/erc-dcc.el |
| 8787 | (autoload 'erc-dcc-mode "erc-dcc") | 8797 | (autoload 'erc-dcc-mode "erc-dcc") |
| 8788 | 8798 | ||
| @@ -8815,7 +8825,7 @@ that subcommand. | |||
| 8815 | ;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list | 8825 | ;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list |
| 8816 | ;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action | 8826 | ;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action |
| 8817 | ;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el" | 8827 | ;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el" |
| 8818 | ;;;;;; (20119 34052)) | 8828 | ;;;;;; (19845 45374)) |
| 8819 | ;;; Generated autoloads from erc/erc-ezbounce.el | 8829 | ;;; Generated autoloads from erc/erc-ezbounce.el |
| 8820 | 8830 | ||
| 8821 | (autoload 'erc-cmd-ezb "erc-ezbounce" "\ | 8831 | (autoload 'erc-cmd-ezb "erc-ezbounce" "\ |
| @@ -8878,7 +8888,7 @@ Add EZBouncer convenience functions to ERC. | |||
| 8878 | ;;;*** | 8888 | ;;;*** |
| 8879 | 8889 | ||
| 8880 | ;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20127 | 8890 | ;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20127 |
| 8881 | ;;;;;; 26298)) | 8891 | ;;;;;; 62865)) |
| 8882 | ;;; Generated autoloads from erc/erc-fill.el | 8892 | ;;; Generated autoloads from erc/erc-fill.el |
| 8883 | (autoload 'erc-fill-mode "erc-fill" nil t) | 8893 | (autoload 'erc-fill-mode "erc-fill" nil t) |
| 8884 | 8894 | ||
| @@ -8891,7 +8901,7 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'. | |||
| 8891 | ;;;*** | 8901 | ;;;*** |
| 8892 | 8902 | ||
| 8893 | ;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd" | 8903 | ;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd" |
| 8894 | ;;;;;; "erc/erc-identd.el" (20119 34052)) | 8904 | ;;;;;; "erc/erc-identd.el" (19845 45374)) |
| 8895 | ;;; Generated autoloads from erc/erc-identd.el | 8905 | ;;; Generated autoloads from erc/erc-identd.el |
| 8896 | (autoload 'erc-identd-mode "erc-identd") | 8906 | (autoload 'erc-identd-mode "erc-identd") |
| 8897 | 8907 | ||
| @@ -8913,7 +8923,7 @@ system. | |||
| 8913 | ;;;*** | 8923 | ;;;*** |
| 8914 | 8924 | ||
| 8915 | ;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el" | 8925 | ;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el" |
| 8916 | ;;;;;; (20119 34052)) | 8926 | ;;;;;; (19845 45374)) |
| 8917 | ;;; Generated autoloads from erc/erc-imenu.el | 8927 | ;;; Generated autoloads from erc/erc-imenu.el |
| 8918 | 8928 | ||
| 8919 | (autoload 'erc-create-imenu-index "erc-imenu" "\ | 8929 | (autoload 'erc-create-imenu-index "erc-imenu" "\ |
| @@ -8923,20 +8933,20 @@ system. | |||
| 8923 | 8933 | ||
| 8924 | ;;;*** | 8934 | ;;;*** |
| 8925 | 8935 | ||
| 8926 | ;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20119 34052)) | 8936 | ;;;### (autoloads nil "erc-join" "erc/erc-join.el" (19845 45374)) |
| 8927 | ;;; Generated autoloads from erc/erc-join.el | 8937 | ;;; Generated autoloads from erc/erc-join.el |
| 8928 | (autoload 'erc-autojoin-mode "erc-join" nil t) | 8938 | (autoload 'erc-autojoin-mode "erc-join" nil t) |
| 8929 | 8939 | ||
| 8930 | ;;;*** | 8940 | ;;;*** |
| 8931 | 8941 | ||
| 8932 | ;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20119 34052)) | 8942 | ;;;### (autoloads nil "erc-list" "erc/erc-list.el" (19845 45374)) |
| 8933 | ;;; Generated autoloads from erc/erc-list.el | 8943 | ;;; Generated autoloads from erc/erc-list.el |
| 8934 | (autoload 'erc-list-mode "erc-list") | 8944 | (autoload 'erc-list-mode "erc-list") |
| 8935 | 8945 | ||
| 8936 | ;;;*** | 8946 | ;;;*** |
| 8937 | 8947 | ||
| 8938 | ;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log" | 8948 | ;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log" |
| 8939 | ;;;;;; "erc/erc-log.el" (20119 34052)) | 8949 | ;;;;;; "erc/erc-log.el" (20168 57844)) |
| 8940 | ;;; Generated autoloads from erc/erc-log.el | 8950 | ;;; Generated autoloads from erc/erc-log.el |
| 8941 | (autoload 'erc-log-mode "erc-log" nil t) | 8951 | (autoload 'erc-log-mode "erc-log" nil t) |
| 8942 | 8952 | ||
| @@ -8944,7 +8954,7 @@ system. | |||
| 8944 | Return non-nil if logging is enabled for BUFFER. | 8954 | Return non-nil if logging is enabled for BUFFER. |
| 8945 | If BUFFER is nil, the value of `current-buffer' is used. | 8955 | If BUFFER is nil, the value of `current-buffer' is used. |
| 8946 | Logging is enabled if `erc-log-channels-directory' is non-nil, the directory | 8956 | Logging is enabled if `erc-log-channels-directory' is non-nil, the directory |
| 8947 | is writeable (it will be created as necessary) and | 8957 | is writable (it will be created as necessary) and |
| 8948 | `erc-enable-logging' returns a non-nil value. | 8958 | `erc-enable-logging' returns a non-nil value. |
| 8949 | 8959 | ||
| 8950 | \(fn &optional BUFFER)" nil nil) | 8960 | \(fn &optional BUFFER)" nil nil) |
| @@ -8968,7 +8978,7 @@ You can save every individual message by putting this function on | |||
| 8968 | ;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host | 8978 | ;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host |
| 8969 | ;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool | 8979 | ;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool |
| 8970 | ;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el" | 8980 | ;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el" |
| 8971 | ;;;;;; (20119 34052)) | 8981 | ;;;;;; (20168 57844)) |
| 8972 | ;;; Generated autoloads from erc/erc-match.el | 8982 | ;;; Generated autoloads from erc/erc-match.el |
| 8973 | (autoload 'erc-match-mode "erc-match") | 8983 | (autoload 'erc-match-mode "erc-match") |
| 8974 | 8984 | ||
| @@ -9014,14 +9024,14 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'. | |||
| 9014 | 9024 | ||
| 9015 | ;;;*** | 9025 | ;;;*** |
| 9016 | 9026 | ||
| 9017 | ;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20119 34052)) | 9027 | ;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (19845 45374)) |
| 9018 | ;;; Generated autoloads from erc/erc-menu.el | 9028 | ;;; Generated autoloads from erc/erc-menu.el |
| 9019 | (autoload 'erc-menu-mode "erc-menu" nil t) | 9029 | (autoload 'erc-menu-mode "erc-menu" nil t) |
| 9020 | 9030 | ||
| 9021 | ;;;*** | 9031 | ;;;*** |
| 9022 | 9032 | ||
| 9023 | ;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el" | 9033 | ;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el" |
| 9024 | ;;;;;; (20119 34052)) | 9034 | ;;;;;; (19845 45374)) |
| 9025 | ;;; Generated autoloads from erc/erc-netsplit.el | 9035 | ;;; Generated autoloads from erc/erc-netsplit.el |
| 9026 | (autoload 'erc-netsplit-mode "erc-netsplit") | 9036 | (autoload 'erc-netsplit-mode "erc-netsplit") |
| 9027 | 9037 | ||
| @@ -9033,7 +9043,7 @@ Show who's gone. | |||
| 9033 | ;;;*** | 9043 | ;;;*** |
| 9034 | 9044 | ||
| 9035 | ;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks" | 9045 | ;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks" |
| 9036 | ;;;;;; "erc/erc-networks.el" (20119 34052)) | 9046 | ;;;;;; "erc/erc-networks.el" (19845 45374)) |
| 9037 | ;;; Generated autoloads from erc/erc-networks.el | 9047 | ;;; Generated autoloads from erc/erc-networks.el |
| 9038 | 9048 | ||
| 9039 | (autoload 'erc-determine-network "erc-networks" "\ | 9049 | (autoload 'erc-determine-network "erc-networks" "\ |
| @@ -9051,13 +9061,13 @@ Interactively select a server to connect to using `erc-server-alist'. | |||
| 9051 | ;;;*** | 9061 | ;;;*** |
| 9052 | 9062 | ||
| 9053 | ;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify" | 9063 | ;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify" |
| 9054 | ;;;;;; "erc/erc-notify.el" (20119 34052)) | 9064 | ;;;;;; "erc/erc-notify.el" (20161 45793)) |
| 9055 | ;;; Generated autoloads from erc/erc-notify.el | 9065 | ;;; Generated autoloads from erc/erc-notify.el |
| 9056 | (autoload 'erc-notify-mode "erc-notify" nil t) | 9066 | (autoload 'erc-notify-mode "erc-notify" nil t) |
| 9057 | 9067 | ||
| 9058 | (autoload 'erc-cmd-NOTIFY "erc-notify" "\ | 9068 | (autoload 'erc-cmd-NOTIFY "erc-notify" "\ |
| 9059 | Change `erc-notify-list' or list current notify-list members online. | 9069 | Change `erc-notify-list' or list current notify-list members online. |
| 9060 | Without args, list the current list of notificated people online, | 9070 | Without args, list the current list of notified people online, |
| 9061 | with args, toggle notify status of people. | 9071 | with args, toggle notify status of people. |
| 9062 | 9072 | ||
| 9063 | \(fn &rest ARGS)" nil nil) | 9073 | \(fn &rest ARGS)" nil nil) |
| @@ -9069,33 +9079,33 @@ with args, toggle notify status of people. | |||
| 9069 | 9079 | ||
| 9070 | ;;;*** | 9080 | ;;;*** |
| 9071 | 9081 | ||
| 9072 | ;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20119 34052)) | 9082 | ;;;### (autoloads nil "erc-page" "erc/erc-page.el" (19845 45374)) |
| 9073 | ;;; Generated autoloads from erc/erc-page.el | 9083 | ;;; Generated autoloads from erc/erc-page.el |
| 9074 | (autoload 'erc-page-mode "erc-page") | 9084 | (autoload 'erc-page-mode "erc-page") |
| 9075 | 9085 | ||
| 9076 | ;;;*** | 9086 | ;;;*** |
| 9077 | 9087 | ||
| 9078 | ;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (20119 | 9088 | ;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (19936 |
| 9079 | ;;;;;; 34052)) | 9089 | ;;;;;; 52203)) |
| 9080 | ;;; Generated autoloads from erc/erc-pcomplete.el | 9090 | ;;; Generated autoloads from erc/erc-pcomplete.el |
| 9081 | (autoload 'erc-completion-mode "erc-pcomplete" nil t) | 9091 | (autoload 'erc-completion-mode "erc-pcomplete" nil t) |
| 9082 | 9092 | ||
| 9083 | ;;;*** | 9093 | ;;;*** |
| 9084 | 9094 | ||
| 9085 | ;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20119 34052)) | 9095 | ;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (19845 45374)) |
| 9086 | ;;; Generated autoloads from erc/erc-replace.el | 9096 | ;;; Generated autoloads from erc/erc-replace.el |
| 9087 | (autoload 'erc-replace-mode "erc-replace") | 9097 | (autoload 'erc-replace-mode "erc-replace") |
| 9088 | 9098 | ||
| 9089 | ;;;*** | 9099 | ;;;*** |
| 9090 | 9100 | ||
| 9091 | ;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20119 34052)) | 9101 | ;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (19845 45374)) |
| 9092 | ;;; Generated autoloads from erc/erc-ring.el | 9102 | ;;; Generated autoloads from erc/erc-ring.el |
| 9093 | (autoload 'erc-ring-mode "erc-ring" nil t) | 9103 | (autoload 'erc-ring-mode "erc-ring" nil t) |
| 9094 | 9104 | ||
| 9095 | ;;;*** | 9105 | ;;;*** |
| 9096 | 9106 | ||
| 9097 | ;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode) | 9107 | ;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode) |
| 9098 | ;;;;;; "erc-services" "erc/erc-services.el" (20119 34052)) | 9108 | ;;;;;; "erc-services" "erc/erc-services.el" (19845 45374)) |
| 9099 | ;;; Generated autoloads from erc/erc-services.el | 9109 | ;;; Generated autoloads from erc/erc-services.el |
| 9100 | (autoload 'erc-services-mode "erc-services" nil t) | 9110 | (autoload 'erc-services-mode "erc-services" nil t) |
| 9101 | 9111 | ||
| @@ -9112,14 +9122,14 @@ When called interactively, read the password using `read-passwd'. | |||
| 9112 | 9122 | ||
| 9113 | ;;;*** | 9123 | ;;;*** |
| 9114 | 9124 | ||
| 9115 | ;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20119 34052)) | 9125 | ;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (19845 45374)) |
| 9116 | ;;; Generated autoloads from erc/erc-sound.el | 9126 | ;;; Generated autoloads from erc/erc-sound.el |
| 9117 | (autoload 'erc-sound-mode "erc-sound") | 9127 | (autoload 'erc-sound-mode "erc-sound") |
| 9118 | 9128 | ||
| 9119 | ;;;*** | 9129 | ;;;*** |
| 9120 | 9130 | ||
| 9121 | ;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el" | 9131 | ;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el" |
| 9122 | ;;;;;; (20119 34052)) | 9132 | ;;;;;; (19845 45374)) |
| 9123 | ;;; Generated autoloads from erc/erc-speedbar.el | 9133 | ;;; Generated autoloads from erc/erc-speedbar.el |
| 9124 | 9134 | ||
| 9125 | (autoload 'erc-speedbar-browser "erc-speedbar" "\ | 9135 | (autoload 'erc-speedbar-browser "erc-speedbar" "\ |
| @@ -9130,21 +9140,21 @@ This will add a speedbar major display mode. | |||
| 9130 | 9140 | ||
| 9131 | ;;;*** | 9141 | ;;;*** |
| 9132 | 9142 | ||
| 9133 | ;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20119 | 9143 | ;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (19845 |
| 9134 | ;;;;;; 34052)) | 9144 | ;;;;;; 45374)) |
| 9135 | ;;; Generated autoloads from erc/erc-spelling.el | 9145 | ;;; Generated autoloads from erc/erc-spelling.el |
| 9136 | (autoload 'erc-spelling-mode "erc-spelling" nil t) | 9146 | (autoload 'erc-spelling-mode "erc-spelling" nil t) |
| 9137 | 9147 | ||
| 9138 | ;;;*** | 9148 | ;;;*** |
| 9139 | 9149 | ||
| 9140 | ;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20119 34052)) | 9150 | ;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (19845 45374)) |
| 9141 | ;;; Generated autoloads from erc/erc-stamp.el | 9151 | ;;; Generated autoloads from erc/erc-stamp.el |
| 9142 | (autoload 'erc-timestamp-mode "erc-stamp" nil t) | 9152 | (autoload 'erc-timestamp-mode "erc-stamp" nil t) |
| 9143 | 9153 | ||
| 9144 | ;;;*** | 9154 | ;;;*** |
| 9145 | 9155 | ||
| 9146 | ;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el" | 9156 | ;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el" |
| 9147 | ;;;;;; (20127 26257)) | 9157 | ;;;;;; (20168 57844)) |
| 9148 | ;;; Generated autoloads from erc/erc-track.el | 9158 | ;;; Generated autoloads from erc/erc-track.el |
| 9149 | 9159 | ||
| 9150 | (defvar erc-track-minor-mode nil "\ | 9160 | (defvar erc-track-minor-mode nil "\ |
| @@ -9170,7 +9180,7 @@ keybindings will not do anything useful. | |||
| 9170 | ;;;*** | 9180 | ;;;*** |
| 9171 | 9181 | ||
| 9172 | ;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size) | 9182 | ;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size) |
| 9173 | ;;;;;; "erc-truncate" "erc/erc-truncate.el" (20119 34052)) | 9183 | ;;;;;; "erc-truncate" "erc/erc-truncate.el" (19845 45374)) |
| 9174 | ;;; Generated autoloads from erc/erc-truncate.el | 9184 | ;;; Generated autoloads from erc/erc-truncate.el |
| 9175 | (autoload 'erc-truncate-mode "erc-truncate" nil t) | 9185 | (autoload 'erc-truncate-mode "erc-truncate" nil t) |
| 9176 | 9186 | ||
| @@ -9190,7 +9200,7 @@ Meant to be used in hooks, like `erc-insert-post-hook'. | |||
| 9190 | ;;;*** | 9200 | ;;;*** |
| 9191 | 9201 | ||
| 9192 | ;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el" | 9202 | ;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el" |
| 9193 | ;;;;;; (20119 34052)) | 9203 | ;;;;;; (19845 45374)) |
| 9194 | ;;; Generated autoloads from erc/erc-xdcc.el | 9204 | ;;; Generated autoloads from erc/erc-xdcc.el |
| 9195 | (autoload 'erc-xdcc-mode "erc-xdcc") | 9205 | (autoload 'erc-xdcc-mode "erc-xdcc") |
| 9196 | 9206 | ||
| @@ -9203,7 +9213,7 @@ Add a file to `erc-xdcc-files'. | |||
| 9203 | 9213 | ||
| 9204 | ;;;### (autoloads (ert-describe-test ert-run-tests-interactively | 9214 | ;;;### (autoloads (ert-describe-test ert-run-tests-interactively |
| 9205 | ;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest) | 9215 | ;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest) |
| 9206 | ;;;;;; "ert" "emacs-lisp/ert.el" (20123 28776)) | 9216 | ;;;;;; "ert" "emacs-lisp/ert.el" (20168 57844)) |
| 9207 | ;;; Generated autoloads from emacs-lisp/ert.el | 9217 | ;;; Generated autoloads from emacs-lisp/ert.el |
| 9208 | 9218 | ||
| 9209 | (autoload 'ert-deftest "ert" "\ | 9219 | (autoload 'ert-deftest "ert" "\ |
| @@ -9273,7 +9283,7 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test). | |||
| 9273 | ;;;*** | 9283 | ;;;*** |
| 9274 | 9284 | ||
| 9275 | ;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el" | 9285 | ;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el" |
| 9276 | ;;;;;; (20119 34052)) | 9286 | ;;;;;; (19845 45374)) |
| 9277 | ;;; Generated autoloads from emacs-lisp/ert-x.el | 9287 | ;;; Generated autoloads from emacs-lisp/ert-x.el |
| 9278 | 9288 | ||
| 9279 | (put 'ert-with-test-buffer 'lisp-indent-function 1) | 9289 | (put 'ert-with-test-buffer 'lisp-indent-function 1) |
| @@ -9285,8 +9295,8 @@ Kill all test buffers that are still live. | |||
| 9285 | 9295 | ||
| 9286 | ;;;*** | 9296 | ;;;*** |
| 9287 | 9297 | ||
| 9288 | ;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20119 | 9298 | ;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20164 |
| 9289 | ;;;;;; 34052)) | 9299 | ;;;;;; 60780)) |
| 9290 | ;;; Generated autoloads from eshell/esh-mode.el | 9300 | ;;; Generated autoloads from eshell/esh-mode.el |
| 9291 | 9301 | ||
| 9292 | (autoload 'eshell-mode "esh-mode" "\ | 9302 | (autoload 'eshell-mode "esh-mode" "\ |
| @@ -9299,7 +9309,7 @@ Emacs shell interactive mode. | |||
| 9299 | ;;;*** | 9309 | ;;;*** |
| 9300 | 9310 | ||
| 9301 | ;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell" | 9311 | ;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell" |
| 9302 | ;;;;;; "eshell/eshell.el" (20119 34052)) | 9312 | ;;;;;; "eshell/eshell.el" (20116 6099)) |
| 9303 | ;;; Generated autoloads from eshell/eshell.el | 9313 | ;;; Generated autoloads from eshell/eshell.el |
| 9304 | 9314 | ||
| 9305 | (autoload 'eshell "eshell" "\ | 9315 | (autoload 'eshell "eshell" "\ |
| @@ -9340,7 +9350,7 @@ corresponding to a successful execution. | |||
| 9340 | ;;;;;; visit-tags-table tags-table-mode find-tag-default-function | 9350 | ;;;;;; visit-tags-table tags-table-mode find-tag-default-function |
| 9341 | ;;;;;; find-tag-hook tags-add-tables tags-compression-info-list | 9351 | ;;;;;; find-tag-hook tags-add-tables tags-compression-info-list |
| 9342 | ;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" | 9352 | ;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" |
| 9343 | ;;;;;; (20119 34052)) | 9353 | ;;;;;; (20168 57844)) |
| 9344 | ;;; Generated autoloads from progmodes/etags.el | 9354 | ;;; Generated autoloads from progmodes/etags.el |
| 9345 | 9355 | ||
| 9346 | (defvar tags-file-name nil "\ | 9356 | (defvar tags-file-name nil "\ |
| @@ -9658,7 +9668,7 @@ for \\[find-tag] (which see). | |||
| 9658 | ;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer | 9668 | ;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer |
| 9659 | ;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer | 9669 | ;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer |
| 9660 | ;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el" | 9670 | ;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el" |
| 9661 | ;;;;;; (20119 34052)) | 9671 | ;;;;;; (20175 31160)) |
| 9662 | ;;; Generated autoloads from language/ethio-util.el | 9672 | ;;; Generated autoloads from language/ethio-util.el |
| 9663 | 9673 | ||
| 9664 | (autoload 'setup-ethiopic-environment-internal "ethio-util" "\ | 9674 | (autoload 'setup-ethiopic-environment-internal "ethio-util" "\ |
| @@ -9828,7 +9838,7 @@ With ARG, insert that many delimiters. | |||
| 9828 | 9838 | ||
| 9829 | ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline | 9839 | ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline |
| 9830 | ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" | 9840 | ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" |
| 9831 | ;;;;;; (20119 34052)) | 9841 | ;;;;;; (19931 11784)) |
| 9832 | ;;; Generated autoloads from net/eudc.el | 9842 | ;;; Generated autoloads from net/eudc.el |
| 9833 | 9843 | ||
| 9834 | (autoload 'eudc-set-server "eudc" "\ | 9844 | (autoload 'eudc-set-server "eudc" "\ |
| @@ -9884,7 +9894,7 @@ This does nothing except loading eudc by autoload side-effect. | |||
| 9884 | 9894 | ||
| 9885 | ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline | 9895 | ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline |
| 9886 | ;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) | 9896 | ;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) |
| 9887 | ;;;;;; "eudc-bob" "net/eudc-bob.el" (20119 34052)) | 9897 | ;;;;;; "eudc-bob" "net/eudc-bob.el" (19845 45374)) |
| 9888 | ;;; Generated autoloads from net/eudc-bob.el | 9898 | ;;; Generated autoloads from net/eudc-bob.el |
| 9889 | 9899 | ||
| 9890 | (autoload 'eudc-display-generic-binary "eudc-bob" "\ | 9900 | (autoload 'eudc-display-generic-binary "eudc-bob" "\ |
| @@ -9920,7 +9930,7 @@ Display a button for the JPEG DATA. | |||
| 9920 | ;;;*** | 9930 | ;;;*** |
| 9921 | 9931 | ||
| 9922 | ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) | 9932 | ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) |
| 9923 | ;;;;;; "eudc-export" "net/eudc-export.el" (20119 34052)) | 9933 | ;;;;;; "eudc-export" "net/eudc-export.el" (20175 31160)) |
| 9924 | ;;; Generated autoloads from net/eudc-export.el | 9934 | ;;; Generated autoloads from net/eudc-export.el |
| 9925 | 9935 | ||
| 9926 | (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ | 9936 | (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ |
| @@ -9937,7 +9947,7 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. | |||
| 9937 | ;;;*** | 9947 | ;;;*** |
| 9938 | 9948 | ||
| 9939 | ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" | 9949 | ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" |
| 9940 | ;;;;;; (20119 34052)) | 9950 | ;;;;;; (20162 19074)) |
| 9941 | ;;; Generated autoloads from net/eudc-hotlist.el | 9951 | ;;; Generated autoloads from net/eudc-hotlist.el |
| 9942 | 9952 | ||
| 9943 | (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ | 9953 | (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ |
| @@ -9947,8 +9957,8 @@ Edit the hotlist of directory servers in a specialized buffer. | |||
| 9947 | 9957 | ||
| 9948 | ;;;*** | 9958 | ;;;*** |
| 9949 | 9959 | ||
| 9950 | ;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20119 | 9960 | ;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (19845 |
| 9951 | ;;;;;; 34052)) | 9961 | ;;;;;; 45374)) |
| 9952 | ;;; Generated autoloads from emacs-lisp/ewoc.el | 9962 | ;;; Generated autoloads from emacs-lisp/ewoc.el |
| 9953 | 9963 | ||
| 9954 | (autoload 'ewoc-create "ewoc" "\ | 9964 | (autoload 'ewoc-create "ewoc" "\ |
| @@ -9977,7 +9987,7 @@ fourth arg NOSEP non-nil inhibits this. | |||
| 9977 | ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p | 9987 | ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p |
| 9978 | ;;;;;; executable-self-display executable-set-magic executable-interpret | 9988 | ;;;;;; executable-self-display executable-set-magic executable-interpret |
| 9979 | ;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" | 9989 | ;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" |
| 9980 | ;;;;;; (20119 34052)) | 9990 | ;;;;;; (20160 63745)) |
| 9981 | ;;; Generated autoloads from progmodes/executable.el | 9991 | ;;; Generated autoloads from progmodes/executable.el |
| 9982 | 9992 | ||
| 9983 | (autoload 'executable-command-find-posix-p "executable" "\ | 9993 | (autoload 'executable-command-find-posix-p "executable" "\ |
| @@ -10020,18 +10030,18 @@ file modes. | |||
| 10020 | 10030 | ||
| 10021 | ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot | 10031 | ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot |
| 10022 | ;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el" | 10032 | ;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el" |
| 10023 | ;;;;;; (20119 34052)) | 10033 | ;;;;;; (20164 29468)) |
| 10024 | ;;; Generated autoloads from expand.el | 10034 | ;;; Generated autoloads from expand.el |
| 10025 | 10035 | ||
| 10026 | (autoload 'expand-add-abbrevs "expand" "\ | 10036 | (autoload 'expand-add-abbrevs "expand" "\ |
| 10027 | Add a list of abbrev to abbrev table TABLE. | 10037 | Add a list of abbreviations to abbrev table TABLE. |
| 10028 | ABBREVS is a list of abbrev definitions; each abbrev description entry | 10038 | ABBREVS is a list of abbrev definitions; each abbrev description entry |
| 10029 | has the form (ABBREV EXPANSION ARG). | 10039 | has the form (ABBREV EXPANSION ARG). |
| 10030 | 10040 | ||
| 10031 | ABBREV is the abbreviation to replace. | 10041 | ABBREV is the abbreviation to replace. |
| 10032 | 10042 | ||
| 10033 | EXPANSION is the replacement string or a function which will make the | 10043 | EXPANSION is the replacement string or a function which will make the |
| 10034 | expansion. For example you, could use the DMacros or skeleton packages | 10044 | expansion. For example, you could use the DMacros or skeleton packages |
| 10035 | to generate such functions. | 10045 | to generate such functions. |
| 10036 | 10046 | ||
| 10037 | ARG is an optional argument which can be a number or a list of | 10047 | ARG is an optional argument which can be a number or a list of |
| @@ -10040,7 +10050,7 @@ beginning of the expanded text. | |||
| 10040 | 10050 | ||
| 10041 | If ARG is a list of numbers, point is placed according to the first | 10051 | If ARG is a list of numbers, point is placed according to the first |
| 10042 | member of the list, but you can visit the other specified positions | 10052 | member of the list, but you can visit the other specified positions |
| 10043 | cyclicaly with the functions `expand-jump-to-previous-slot' and | 10053 | cyclically with the functions `expand-jump-to-previous-slot' and |
| 10044 | `expand-jump-to-next-slot'. | 10054 | `expand-jump-to-next-slot'. |
| 10045 | 10055 | ||
| 10046 | If ARG is omitted, point is placed at the end of the expanded text. | 10056 | If ARG is omitted, point is placed at the end of the expanded text. |
| @@ -10069,7 +10079,7 @@ This is used only in conjunction with `expand-add-abbrevs'. | |||
| 10069 | 10079 | ||
| 10070 | ;;;*** | 10080 | ;;;*** |
| 10071 | 10081 | ||
| 10072 | ;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20119 34052)) | 10082 | ;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20178 7273)) |
| 10073 | ;;; Generated autoloads from progmodes/f90.el | 10083 | ;;; Generated autoloads from progmodes/f90.el |
| 10074 | 10084 | ||
| 10075 | (autoload 'f90-mode "f90" "\ | 10085 | (autoload 'f90-mode "f90" "\ |
| @@ -10139,8 +10149,8 @@ with no args, if that value is non-nil. | |||
| 10139 | ;;;### (autoloads (variable-pitch-mode buffer-face-toggle buffer-face-set | 10149 | ;;;### (autoloads (variable-pitch-mode buffer-face-toggle buffer-face-set |
| 10140 | ;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase | 10150 | ;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase |
| 10141 | ;;;;;; text-scale-set face-remap-set-base face-remap-reset-base | 10151 | ;;;;;; text-scale-set face-remap-set-base face-remap-reset-base |
| 10142 | ;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20126 | 10152 | ;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20127 |
| 10143 | ;;;;;; 41069)) | 10153 | ;;;;;; 62865)) |
| 10144 | ;;; Generated autoloads from face-remap.el | 10154 | ;;; Generated autoloads from face-remap.el |
| 10145 | 10155 | ||
| 10146 | (autoload 'face-remap-add-relative "face-remap" "\ | 10156 | (autoload 'face-remap-add-relative "face-remap" "\ |
| @@ -10280,7 +10290,7 @@ Besides the choice of face, it is the same as `buffer-face-mode'. | |||
| 10280 | 10290 | ||
| 10281 | ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue | 10291 | ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue |
| 10282 | ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts | 10292 | ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts |
| 10283 | ;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20119 34052)) | 10293 | ;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20172 54913)) |
| 10284 | ;;; Generated autoloads from mail/feedmail.el | 10294 | ;;; Generated autoloads from mail/feedmail.el |
| 10285 | 10295 | ||
| 10286 | (autoload 'feedmail-send-it "feedmail" "\ | 10296 | (autoload 'feedmail-send-it "feedmail" "\ |
| @@ -10334,7 +10344,7 @@ you can set `feedmail-queue-reminder-alist' to nil. | |||
| 10334 | ;;;*** | 10344 | ;;;*** |
| 10335 | 10345 | ||
| 10336 | ;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu | 10346 | ;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu |
| 10337 | ;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (20119 34052)) | 10347 | ;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (20164 60780)) |
| 10338 | ;;; Generated autoloads from ffap.el | 10348 | ;;; Generated autoloads from ffap.el |
| 10339 | 10349 | ||
| 10340 | (autoload 'ffap-next "ffap" "\ | 10350 | (autoload 'ffap-next "ffap" "\ |
| @@ -10398,7 +10408,7 @@ Evaluate the forms in variable `ffap-bindings'. | |||
| 10398 | ;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively | 10408 | ;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively |
| 10399 | ;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find | 10409 | ;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find |
| 10400 | ;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory) | 10410 | ;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory) |
| 10401 | ;;;;;; "filecache" "filecache.el" (20119 34052)) | 10411 | ;;;;;; "filecache" "filecache.el" (19845 45374)) |
| 10402 | ;;; Generated autoloads from filecache.el | 10412 | ;;; Generated autoloads from filecache.el |
| 10403 | 10413 | ||
| 10404 | (autoload 'file-cache-add-directory "filecache" "\ | 10414 | (autoload 'file-cache-add-directory "filecache" "\ |
| @@ -10458,7 +10468,7 @@ the name is considered already unique; only the second substitution | |||
| 10458 | ;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable | 10468 | ;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable |
| 10459 | ;;;;;; add-dir-local-variable delete-file-local-variable-prop-line | 10469 | ;;;;;; add-dir-local-variable delete-file-local-variable-prop-line |
| 10460 | ;;;;;; add-file-local-variable-prop-line delete-file-local-variable | 10470 | ;;;;;; add-file-local-variable-prop-line delete-file-local-variable |
| 10461 | ;;;;;; add-file-local-variable) "files-x" "files-x.el" (20119 34052)) | 10471 | ;;;;;; add-file-local-variable) "files-x" "files-x.el" (20167 36967)) |
| 10462 | ;;; Generated autoloads from files-x.el | 10472 | ;;; Generated autoloads from files-x.el |
| 10463 | 10473 | ||
| 10464 | (autoload 'add-file-local-variable "files-x" "\ | 10474 | (autoload 'add-file-local-variable "files-x" "\ |
| @@ -10523,8 +10533,8 @@ Copy directory-local variables to the -*- line. | |||
| 10523 | 10533 | ||
| 10524 | ;;;*** | 10534 | ;;;*** |
| 10525 | 10535 | ||
| 10526 | ;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20119 | 10536 | ;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20178 |
| 10527 | ;;;;;; 34052)) | 10537 | ;;;;;; 7273)) |
| 10528 | ;;; Generated autoloads from filesets.el | 10538 | ;;; Generated autoloads from filesets.el |
| 10529 | 10539 | ||
| 10530 | (autoload 'filesets-init "filesets" "\ | 10540 | (autoload 'filesets-init "filesets" "\ |
| @@ -10535,7 +10545,7 @@ Set up hooks, load the cache file -- if existing -- and build the menu. | |||
| 10535 | 10545 | ||
| 10536 | ;;;*** | 10546 | ;;;*** |
| 10537 | 10547 | ||
| 10538 | ;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20119 34052)) | 10548 | ;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (19845 45374)) |
| 10539 | ;;; Generated autoloads from find-cmd.el | 10549 | ;;; Generated autoloads from find-cmd.el |
| 10540 | 10550 | ||
| 10541 | (autoload 'find-cmd "find-cmd" "\ | 10551 | (autoload 'find-cmd "find-cmd" "\ |
| @@ -10555,7 +10565,7 @@ result is a string that should be ready for the command line. | |||
| 10555 | ;;;*** | 10565 | ;;;*** |
| 10556 | 10566 | ||
| 10557 | ;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired" | 10567 | ;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired" |
| 10558 | ;;;;;; "find-dired.el" (20119 34052)) | 10568 | ;;;;;; "find-dired.el" (19980 19797)) |
| 10559 | ;;; Generated autoloads from find-dired.el | 10569 | ;;; Generated autoloads from find-dired.el |
| 10560 | 10570 | ||
| 10561 | (autoload 'find-dired "find-dired" "\ | 10571 | (autoload 'find-dired "find-dired" "\ |
| @@ -10595,7 +10605,7 @@ use in place of \"-ls\" as the final argument. | |||
| 10595 | 10605 | ||
| 10596 | ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file | 10606 | ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file |
| 10597 | ;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el" | 10607 | ;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el" |
| 10598 | ;;;;;; (20119 34052)) | 10608 | ;;;;;; (19845 45374)) |
| 10599 | ;;; Generated autoloads from find-file.el | 10609 | ;;; Generated autoloads from find-file.el |
| 10600 | 10610 | ||
| 10601 | (defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\ | 10611 | (defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\ |
| @@ -10689,7 +10699,7 @@ Visit the file you click on in another window. | |||
| 10689 | ;;;;;; find-variable find-variable-noselect find-function-other-frame | 10699 | ;;;;;; find-variable find-variable-noselect find-function-other-frame |
| 10690 | ;;;;;; find-function-other-window find-function find-function-noselect | 10700 | ;;;;;; find-function-other-window find-function find-function-noselect |
| 10691 | ;;;;;; find-function-search-for-symbol find-library) "find-func" | 10701 | ;;;;;; find-function-search-for-symbol find-library) "find-func" |
| 10692 | ;;;;;; "emacs-lisp/find-func.el" (20119 34052)) | 10702 | ;;;;;; "emacs-lisp/find-func.el" (20153 32815)) |
| 10693 | ;;; Generated autoloads from emacs-lisp/find-func.el | 10703 | ;;; Generated autoloads from emacs-lisp/find-func.el |
| 10694 | 10704 | ||
| 10695 | (autoload 'find-library "find-func" "\ | 10705 | (autoload 'find-library "find-func" "\ |
| @@ -10848,7 +10858,7 @@ Define some key bindings for the find-function family of functions. | |||
| 10848 | ;;;*** | 10858 | ;;;*** |
| 10849 | 10859 | ||
| 10850 | ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories | 10860 | ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories |
| 10851 | ;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20119 34052)) | 10861 | ;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (19886 45771)) |
| 10852 | ;;; Generated autoloads from find-lisp.el | 10862 | ;;; Generated autoloads from find-lisp.el |
| 10853 | 10863 | ||
| 10854 | (autoload 'find-lisp-find-dired "find-lisp" "\ | 10864 | (autoload 'find-lisp-find-dired "find-lisp" "\ |
| @@ -10869,7 +10879,7 @@ Change the filter on a find-lisp-find-dired buffer to REGEXP. | |||
| 10869 | ;;;*** | 10879 | ;;;*** |
| 10870 | 10880 | ||
| 10871 | ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) | 10881 | ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) |
| 10872 | ;;;;;; "finder" "finder.el" (20119 34052)) | 10882 | ;;;;;; "finder" "finder.el" (19893 19022)) |
| 10873 | ;;; Generated autoloads from finder.el | 10883 | ;;; Generated autoloads from finder.el |
| 10874 | 10884 | ||
| 10875 | (autoload 'finder-list-keywords "finder" "\ | 10885 | (autoload 'finder-list-keywords "finder" "\ |
| @@ -10891,7 +10901,7 @@ Find packages matching a given keyword. | |||
| 10891 | ;;;*** | 10901 | ;;;*** |
| 10892 | 10902 | ||
| 10893 | ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" | 10903 | ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" |
| 10894 | ;;;;;; "flow-ctrl.el" (20119 34052)) | 10904 | ;;;;;; "flow-ctrl.el" (19845 45374)) |
| 10895 | ;;; Generated autoloads from flow-ctrl.el | 10905 | ;;; Generated autoloads from flow-ctrl.el |
| 10896 | 10906 | ||
| 10897 | (autoload 'enable-flow-control "flow-ctrl" "\ | 10907 | (autoload 'enable-flow-control "flow-ctrl" "\ |
| @@ -10913,7 +10923,7 @@ to get the effect of a C-q. | |||
| 10913 | ;;;*** | 10923 | ;;;*** |
| 10914 | 10924 | ||
| 10915 | ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" | 10925 | ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" |
| 10916 | ;;;;;; (20119 34052)) | 10926 | ;;;;;; (19845 45374)) |
| 10917 | ;;; Generated autoloads from gnus/flow-fill.el | 10927 | ;;; Generated autoloads from gnus/flow-fill.el |
| 10918 | 10928 | ||
| 10919 | (autoload 'fill-flowed-encode "flow-fill" "\ | 10929 | (autoload 'fill-flowed-encode "flow-fill" "\ |
| @@ -10929,7 +10939,7 @@ to get the effect of a C-q. | |||
| 10929 | ;;;*** | 10939 | ;;;*** |
| 10930 | 10940 | ||
| 10931 | ;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on | 10941 | ;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on |
| 10932 | ;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20119 34052)) | 10942 | ;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (19984 16846)) |
| 10933 | ;;; Generated autoloads from progmodes/flymake.el | 10943 | ;;; Generated autoloads from progmodes/flymake.el |
| 10934 | 10944 | ||
| 10935 | (autoload 'flymake-mode "flymake" "\ | 10945 | (autoload 'flymake-mode "flymake" "\ |
| @@ -10958,14 +10968,14 @@ Turn flymake mode off. | |||
| 10958 | 10968 | ||
| 10959 | ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off | 10969 | ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off |
| 10960 | ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) | 10970 | ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) |
| 10961 | ;;;;;; "flyspell" "textmodes/flyspell.el" (20139 33526)) | 10971 | ;;;;;; "flyspell" "textmodes/flyspell.el" (20174 10230)) |
| 10962 | ;;; Generated autoloads from textmodes/flyspell.el | 10972 | ;;; Generated autoloads from textmodes/flyspell.el |
| 10963 | 10973 | ||
| 10964 | (autoload 'flyspell-prog-mode "flyspell" "\ | 10974 | (autoload 'flyspell-prog-mode "flyspell" "\ |
| 10965 | Turn on `flyspell-mode' for comments and strings. | 10975 | Turn on `flyspell-mode' for comments and strings. |
| 10966 | 10976 | ||
| 10967 | \(fn)" t nil) | 10977 | \(fn)" t nil) |
| 10968 | (defvar flyspell-mode nil) | 10978 | (defvar flyspell-mode nil "Non-nil if Flyspell mode is enabled.") |
| 10969 | 10979 | ||
| 10970 | (autoload 'flyspell-mode "flyspell" "\ | 10980 | (autoload 'flyspell-mode "flyspell" "\ |
| 10971 | Toggle on-the-fly spell checking (Flyspell mode). | 10981 | Toggle on-the-fly spell checking (Flyspell mode). |
| @@ -11030,7 +11040,7 @@ Flyspell whole buffer. | |||
| 11030 | 11040 | ||
| 11031 | ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode | 11041 | ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode |
| 11032 | ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" | 11042 | ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" |
| 11033 | ;;;;;; (20140 43930)) | 11043 | ;;;;;; (20178 7273)) |
| 11034 | ;;; Generated autoloads from follow.el | 11044 | ;;; Generated autoloads from follow.el |
| 11035 | 11045 | ||
| 11036 | (autoload 'turn-on-follow-mode "follow" "\ | 11046 | (autoload 'turn-on-follow-mode "follow" "\ |
| @@ -11106,8 +11116,8 @@ in your `~/.emacs' file, replacing [f7] by your favorite key: | |||
| 11106 | 11116 | ||
| 11107 | ;;;*** | 11117 | ;;;*** |
| 11108 | 11118 | ||
| 11109 | ;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20127 | 11119 | ;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20170 |
| 11110 | ;;;;;; 26006)) | 11120 | ;;;;;; 13157)) |
| 11111 | ;;; Generated autoloads from mail/footnote.el | 11121 | ;;; Generated autoloads from mail/footnote.el |
| 11112 | 11122 | ||
| 11113 | (autoload 'footnote-mode "footnote" "\ | 11123 | (autoload 'footnote-mode "footnote" "\ |
| @@ -11126,7 +11136,7 @@ play around with the following keys: | |||
| 11126 | ;;;*** | 11136 | ;;;*** |
| 11127 | 11137 | ||
| 11128 | ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) | 11138 | ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) |
| 11129 | ;;;;;; "forms" "forms.el" (20119 34052)) | 11139 | ;;;;;; "forms" "forms.el" (20168 57844)) |
| 11130 | ;;; Generated autoloads from forms.el | 11140 | ;;; Generated autoloads from forms.el |
| 11131 | 11141 | ||
| 11132 | (autoload 'forms-mode "forms" "\ | 11142 | (autoload 'forms-mode "forms" "\ |
| @@ -11163,7 +11173,7 @@ Visit a file in Forms mode in other window. | |||
| 11163 | ;;;*** | 11173 | ;;;*** |
| 11164 | 11174 | ||
| 11165 | ;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el" | 11175 | ;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el" |
| 11166 | ;;;;;; (20140 44048)) | 11176 | ;;;;;; (20178 7273)) |
| 11167 | ;;; Generated autoloads from progmodes/fortran.el | 11177 | ;;; Generated autoloads from progmodes/fortran.el |
| 11168 | 11178 | ||
| 11169 | (autoload 'fortran-mode "fortran" "\ | 11179 | (autoload 'fortran-mode "fortran" "\ |
| @@ -11241,7 +11251,7 @@ with no args, if that value is non-nil. | |||
| 11241 | ;;;*** | 11251 | ;;;*** |
| 11242 | 11252 | ||
| 11243 | ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region | 11253 | ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region |
| 11244 | ;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20119 34052)) | 11254 | ;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20165 31925)) |
| 11245 | ;;; Generated autoloads from play/fortune.el | 11255 | ;;; Generated autoloads from play/fortune.el |
| 11246 | 11256 | ||
| 11247 | (autoload 'fortune-add-fortune "fortune" "\ | 11257 | (autoload 'fortune-add-fortune "fortune" "\ |
| @@ -11290,7 +11300,7 @@ and choose the directory as the fortune-file. | |||
| 11290 | ;;;*** | 11300 | ;;;*** |
| 11291 | 11301 | ||
| 11292 | ;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el" | 11302 | ;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el" |
| 11293 | ;;;;;; (20140 44067)) | 11303 | ;;;;;; (20182 4358)) |
| 11294 | ;;; Generated autoloads from progmodes/gdb-mi.el | 11304 | ;;; Generated autoloads from progmodes/gdb-mi.el |
| 11295 | 11305 | ||
| 11296 | (defvar gdb-enable-debug nil "\ | 11306 | (defvar gdb-enable-debug nil "\ |
| @@ -11357,8 +11367,8 @@ detailed description of this mode. | |||
| 11357 | ;;;*** | 11367 | ;;;*** |
| 11358 | 11368 | ||
| 11359 | ;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal | 11369 | ;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal |
| 11360 | ;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20119 | 11370 | ;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (19845 |
| 11361 | ;;;;;; 34052)) | 11371 | ;;;;;; 45374)) |
| 11362 | ;;; Generated autoloads from emacs-lisp/generic.el | 11372 | ;;; Generated autoloads from emacs-lisp/generic.el |
| 11363 | 11373 | ||
| 11364 | (defvar generic-mode-list nil "\ | 11374 | (defvar generic-mode-list nil "\ |
| @@ -11435,7 +11445,7 @@ regular expression that can be used as an element of | |||
| 11435 | ;;;*** | 11445 | ;;;*** |
| 11436 | 11446 | ||
| 11437 | ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" | 11447 | ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" |
| 11438 | ;;;;;; (20119 34052)) | 11448 | ;;;;;; (19906 31087)) |
| 11439 | ;;; Generated autoloads from progmodes/glasses.el | 11449 | ;;; Generated autoloads from progmodes/glasses.el |
| 11440 | 11450 | ||
| 11441 | (autoload 'glasses-mode "glasses" "\ | 11451 | (autoload 'glasses-mode "glasses" "\ |
| @@ -11449,7 +11459,7 @@ at places they belong to. | |||
| 11449 | 11459 | ||
| 11450 | ;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error | 11460 | ;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error |
| 11451 | ;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el" | 11461 | ;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el" |
| 11452 | ;;;;;; (20119 34052)) | 11462 | ;;;;;; (20175 31160)) |
| 11453 | ;;; Generated autoloads from gnus/gmm-utils.el | 11463 | ;;; Generated autoloads from gnus/gmm-utils.el |
| 11454 | 11464 | ||
| 11455 | (autoload 'gmm-regexp-concat "gmm-utils" "\ | 11465 | (autoload 'gmm-regexp-concat "gmm-utils" "\ |
| @@ -11504,7 +11514,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. | |||
| 11504 | ;;;*** | 11514 | ;;;*** |
| 11505 | 11515 | ||
| 11506 | ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server | 11516 | ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server |
| 11507 | ;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20119 34052)) | 11517 | ;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20164 60780)) |
| 11508 | ;;; Generated autoloads from gnus/gnus.el | 11518 | ;;; Generated autoloads from gnus/gnus.el |
| 11509 | (when (fboundp 'custom-autoload) | 11519 | (when (fboundp 'custom-autoload) |
| 11510 | (custom-autoload 'gnus-select-method "gnus")) | 11520 | (custom-autoload 'gnus-select-method "gnus")) |
| @@ -11557,7 +11567,7 @@ prompt the user for the name of an NNTP server to use. | |||
| 11557 | ;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group | 11567 | ;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group |
| 11558 | ;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize | 11568 | ;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize |
| 11559 | ;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" | 11569 | ;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" |
| 11560 | ;;;;;; "gnus/gnus-agent.el" (20119 34052)) | 11570 | ;;;;;; "gnus/gnus-agent.el" (20168 57844)) |
| 11561 | ;;; Generated autoloads from gnus/gnus-agent.el | 11571 | ;;; Generated autoloads from gnus/gnus-agent.el |
| 11562 | 11572 | ||
| 11563 | (autoload 'gnus-unplugged "gnus-agent" "\ | 11573 | (autoload 'gnus-unplugged "gnus-agent" "\ |
| @@ -11648,7 +11658,7 @@ If CLEAN, obsolete (ignore). | |||
| 11648 | ;;;*** | 11658 | ;;;*** |
| 11649 | 11659 | ||
| 11650 | ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" | 11660 | ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" |
| 11651 | ;;;;;; (20119 34052)) | 11661 | ;;;;;; (20182 4358)) |
| 11652 | ;;; Generated autoloads from gnus/gnus-art.el | 11662 | ;;; Generated autoloads from gnus/gnus-art.el |
| 11653 | 11663 | ||
| 11654 | (autoload 'gnus-article-prepare-display "gnus-art" "\ | 11664 | (autoload 'gnus-article-prepare-display "gnus-art" "\ |
| @@ -11659,7 +11669,7 @@ Make the current buffer look like a nice article. | |||
| 11659 | ;;;*** | 11669 | ;;;*** |
| 11660 | 11670 | ||
| 11661 | ;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set) | 11671 | ;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set) |
| 11662 | ;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20119 34052)) | 11672 | ;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (19845 45374)) |
| 11663 | ;;; Generated autoloads from gnus/gnus-bookmark.el | 11673 | ;;; Generated autoloads from gnus/gnus-bookmark.el |
| 11664 | 11674 | ||
| 11665 | (autoload 'gnus-bookmark-set "gnus-bookmark" "\ | 11675 | (autoload 'gnus-bookmark-set "gnus-bookmark" "\ |
| @@ -11684,8 +11694,8 @@ deletion, or > if it is flagged for displaying. | |||
| 11684 | 11694 | ||
| 11685 | ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group | 11695 | ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group |
| 11686 | ;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active | 11696 | ;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active |
| 11687 | ;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (20119 | 11697 | ;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (19845 |
| 11688 | ;;;;;; 34052)) | 11698 | ;;;;;; 45374)) |
| 11689 | ;;; Generated autoloads from gnus/gnus-cache.el | 11699 | ;;; Generated autoloads from gnus/gnus-cache.el |
| 11690 | 11700 | ||
| 11691 | (autoload 'gnus-jog-cache "gnus-cache" "\ | 11701 | (autoload 'gnus-jog-cache "gnus-cache" "\ |
| @@ -11727,7 +11737,7 @@ supported. | |||
| 11727 | ;;;*** | 11737 | ;;;*** |
| 11728 | 11738 | ||
| 11729 | ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) | 11739 | ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) |
| 11730 | ;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20119 34052)) | 11740 | ;;;;;; "gnus-delay" "gnus/gnus-delay.el" (19931 11784)) |
| 11731 | ;;; Generated autoloads from gnus/gnus-delay.el | 11741 | ;;; Generated autoloads from gnus/gnus-delay.el |
| 11732 | 11742 | ||
| 11733 | (autoload 'gnus-delay-article "gnus-delay" "\ | 11743 | (autoload 'gnus-delay-article "gnus-delay" "\ |
| @@ -11763,7 +11773,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. | |||
| 11763 | ;;;*** | 11773 | ;;;*** |
| 11764 | 11774 | ||
| 11765 | ;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d) | 11775 | ;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d) |
| 11766 | ;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20119 34052)) | 11776 | ;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20161 45793)) |
| 11767 | ;;; Generated autoloads from gnus/gnus-diary.el | 11777 | ;;; Generated autoloads from gnus/gnus-diary.el |
| 11768 | 11778 | ||
| 11769 | (autoload 'gnus-user-format-function-d "gnus-diary" "\ | 11779 | (autoload 'gnus-user-format-function-d "gnus-diary" "\ |
| @@ -11779,7 +11789,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. | |||
| 11779 | ;;;*** | 11789 | ;;;*** |
| 11780 | 11790 | ||
| 11781 | ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" | 11791 | ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" |
| 11782 | ;;;;;; (20119 34052)) | 11792 | ;;;;;; (20167 36967)) |
| 11783 | ;;; Generated autoloads from gnus/gnus-dired.el | 11793 | ;;; Generated autoloads from gnus/gnus-dired.el |
| 11784 | 11794 | ||
| 11785 | (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ | 11795 | (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ |
| @@ -11790,7 +11800,7 @@ Convenience method to turn on gnus-dired-mode. | |||
| 11790 | ;;;*** | 11800 | ;;;*** |
| 11791 | 11801 | ||
| 11792 | ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" | 11802 | ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" |
| 11793 | ;;;;;; (20119 34052)) | 11803 | ;;;;;; (19981 40664)) |
| 11794 | ;;; Generated autoloads from gnus/gnus-draft.el | 11804 | ;;; Generated autoloads from gnus/gnus-draft.el |
| 11795 | 11805 | ||
| 11796 | (autoload 'gnus-draft-reminder "gnus-draft" "\ | 11806 | (autoload 'gnus-draft-reminder "gnus-draft" "\ |
| @@ -11802,8 +11812,8 @@ Reminder user if there are unsent drafts. | |||
| 11802 | 11812 | ||
| 11803 | ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png | 11813 | ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png |
| 11804 | ;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header | 11814 | ;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header |
| 11805 | ;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (20119 | 11815 | ;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (20088 |
| 11806 | ;;;;;; 34052)) | 11816 | ;;;;;; 26718)) |
| 11807 | ;;; Generated autoloads from gnus/gnus-fun.el | 11817 | ;;; Generated autoloads from gnus/gnus-fun.el |
| 11808 | 11818 | ||
| 11809 | (autoload 'gnus-random-x-face "gnus-fun" "\ | 11819 | (autoload 'gnus-random-x-face "gnus-fun" "\ |
| @@ -11848,7 +11858,7 @@ FILE should be a PNG file that's 48x48 and smaller than or equal to | |||
| 11848 | ;;;*** | 11858 | ;;;*** |
| 11849 | 11859 | ||
| 11850 | ;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar) | 11860 | ;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar) |
| 11851 | ;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20119 34052)) | 11861 | ;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (19845 45374)) |
| 11852 | ;;; Generated autoloads from gnus/gnus-gravatar.el | 11862 | ;;; Generated autoloads from gnus/gnus-gravatar.el |
| 11853 | 11863 | ||
| 11854 | (autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ | 11864 | (autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ |
| @@ -11866,7 +11876,7 @@ If gravatars are already displayed, remove them. | |||
| 11866 | ;;;*** | 11876 | ;;;*** |
| 11867 | 11877 | ||
| 11868 | ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) | 11878 | ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) |
| 11869 | ;;;;;; "gnus-group" "gnus/gnus-group.el" (20119 34052)) | 11879 | ;;;;;; "gnus-group" "gnus/gnus-group.el" (20179 28130)) |
| 11870 | ;;; Generated autoloads from gnus/gnus-group.el | 11880 | ;;; Generated autoloads from gnus/gnus-group.el |
| 11871 | 11881 | ||
| 11872 | (autoload 'gnus-fetch-group "gnus-group" "\ | 11882 | (autoload 'gnus-fetch-group "gnus-group" "\ |
| @@ -11884,7 +11894,7 @@ Pop up a frame and enter GROUP. | |||
| 11884 | ;;;*** | 11894 | ;;;*** |
| 11885 | 11895 | ||
| 11886 | ;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html" | 11896 | ;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html" |
| 11887 | ;;;;;; "gnus/gnus-html.el" (20119 34052)) | 11897 | ;;;;;; "gnus/gnus-html.el" (20050 11479)) |
| 11888 | ;;; Generated autoloads from gnus/gnus-html.el | 11898 | ;;; Generated autoloads from gnus/gnus-html.el |
| 11889 | 11899 | ||
| 11890 | (autoload 'gnus-article-html "gnus-html" "\ | 11900 | (autoload 'gnus-article-html "gnus-html" "\ |
| @@ -11900,7 +11910,7 @@ Pop up a frame and enter GROUP. | |||
| 11900 | ;;;*** | 11910 | ;;;*** |
| 11901 | 11911 | ||
| 11902 | ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" | 11912 | ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" |
| 11903 | ;;;;;; (20119 34052)) | 11913 | ;;;;;; (19845 45374)) |
| 11904 | ;;; Generated autoloads from gnus/gnus-kill.el | 11914 | ;;; Generated autoloads from gnus/gnus-kill.el |
| 11905 | 11915 | ||
| 11906 | (defalias 'gnus-batch-kill 'gnus-batch-score) | 11916 | (defalias 'gnus-batch-kill 'gnus-batch-score) |
| @@ -11915,7 +11925,7 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score | |||
| 11915 | 11925 | ||
| 11916 | ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate | 11926 | ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate |
| 11917 | ;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" | 11927 | ;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" |
| 11918 | ;;;;;; (20119 34052)) | 11928 | ;;;;;; (19845 45374)) |
| 11919 | ;;; Generated autoloads from gnus/gnus-ml.el | 11929 | ;;; Generated autoloads from gnus/gnus-ml.el |
| 11920 | 11930 | ||
| 11921 | (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ | 11931 | (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ |
| @@ -11940,7 +11950,7 @@ Minor mode for providing mailing-list commands. | |||
| 11940 | 11950 | ||
| 11941 | ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update | 11951 | ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update |
| 11942 | ;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" | 11952 | ;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" |
| 11943 | ;;;;;; (20119 34052)) | 11953 | ;;;;;; (19845 45374)) |
| 11944 | ;;; Generated autoloads from gnus/gnus-mlspl.el | 11954 | ;;; Generated autoloads from gnus/gnus-mlspl.el |
| 11945 | 11955 | ||
| 11946 | (autoload 'gnus-group-split-setup "gnus-mlspl" "\ | 11956 | (autoload 'gnus-group-split-setup "gnus-mlspl" "\ |
| @@ -12041,7 +12051,7 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: | |||
| 12041 | ;;;*** | 12051 | ;;;*** |
| 12042 | 12052 | ||
| 12043 | ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) | 12053 | ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) |
| 12044 | ;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20119 34052)) | 12054 | ;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20183 25152)) |
| 12045 | ;;; Generated autoloads from gnus/gnus-msg.el | 12055 | ;;; Generated autoloads from gnus/gnus-msg.el |
| 12046 | 12056 | ||
| 12047 | (autoload 'gnus-msg-mail "gnus-msg" "\ | 12057 | (autoload 'gnus-msg-mail "gnus-msg" "\ |
| @@ -12067,7 +12077,7 @@ Like `message-reply'. | |||
| 12067 | 12077 | ||
| 12068 | ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon | 12078 | ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon |
| 12069 | ;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" | 12079 | ;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" |
| 12070 | ;;;;;; (20119 34052)) | 12080 | ;;;;;; (19845 45374)) |
| 12071 | ;;; Generated autoloads from gnus/gnus-picon.el | 12081 | ;;; Generated autoloads from gnus/gnus-picon.el |
| 12072 | 12082 | ||
| 12073 | (autoload 'gnus-treat-from-picon "gnus-picon" "\ | 12083 | (autoload 'gnus-treat-from-picon "gnus-picon" "\ |
| @@ -12094,7 +12104,7 @@ If picons are already displayed, remove them. | |||
| 12094 | ;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection | 12104 | ;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection |
| 12095 | ;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement | 12105 | ;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement |
| 12096 | ;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" | 12106 | ;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" |
| 12097 | ;;;;;; "gnus/gnus-range.el" (20119 34052)) | 12107 | ;;;;;; "gnus/gnus-range.el" (19845 45374)) |
| 12098 | ;;; Generated autoloads from gnus/gnus-range.el | 12108 | ;;; Generated autoloads from gnus/gnus-range.el |
| 12099 | 12109 | ||
| 12100 | (autoload 'gnus-sorted-difference "gnus-range" "\ | 12110 | (autoload 'gnus-sorted-difference "gnus-range" "\ |
| @@ -12162,7 +12172,7 @@ Add NUM into sorted LIST by side effect. | |||
| 12162 | ;;;*** | 12172 | ;;;*** |
| 12163 | 12173 | ||
| 12164 | ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) | 12174 | ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) |
| 12165 | ;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20124 52030)) | 12175 | ;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20143 51029)) |
| 12166 | ;;; Generated autoloads from gnus/gnus-registry.el | 12176 | ;;; Generated autoloads from gnus/gnus-registry.el |
| 12167 | 12177 | ||
| 12168 | (autoload 'gnus-registry-initialize "gnus-registry" "\ | 12178 | (autoload 'gnus-registry-initialize "gnus-registry" "\ |
| @@ -12178,8 +12188,8 @@ Install the registry hooks. | |||
| 12178 | ;;;*** | 12188 | ;;;*** |
| 12179 | 12189 | ||
| 12180 | ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate | 12190 | ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate |
| 12181 | ;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20119 | 12191 | ;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (19845 |
| 12182 | ;;;;;; 34052)) | 12192 | ;;;;;; 45374)) |
| 12183 | ;;; Generated autoloads from gnus/gnus-sieve.el | 12193 | ;;; Generated autoloads from gnus/gnus-sieve.el |
| 12184 | 12194 | ||
| 12185 | (autoload 'gnus-sieve-update "gnus-sieve" "\ | 12195 | (autoload 'gnus-sieve-update "gnus-sieve" "\ |
| @@ -12207,7 +12217,7 @@ See the documentation for these variables and functions for details. | |||
| 12207 | ;;;*** | 12217 | ;;;*** |
| 12208 | 12218 | ||
| 12209 | ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" | 12219 | ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" |
| 12210 | ;;;;;; (20119 34052)) | 12220 | ;;;;;; (20076 35541)) |
| 12211 | ;;; Generated autoloads from gnus/gnus-spec.el | 12221 | ;;; Generated autoloads from gnus/gnus-spec.el |
| 12212 | 12222 | ||
| 12213 | (autoload 'gnus-update-format "gnus-spec" "\ | 12223 | (autoload 'gnus-update-format "gnus-spec" "\ |
| @@ -12218,7 +12228,7 @@ Update the format specification near point. | |||
| 12218 | ;;;*** | 12228 | ;;;*** |
| 12219 | 12229 | ||
| 12220 | ;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" | 12230 | ;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" |
| 12221 | ;;;;;; (20119 34052)) | 12231 | ;;;;;; (20176 51947)) |
| 12222 | ;;; Generated autoloads from gnus/gnus-start.el | 12232 | ;;; Generated autoloads from gnus/gnus-start.el |
| 12223 | 12233 | ||
| 12224 | (autoload 'gnus-declare-backend "gnus-start" "\ | 12234 | (autoload 'gnus-declare-backend "gnus-start" "\ |
| @@ -12229,7 +12239,7 @@ Declare back end NAME with ABILITIES as a Gnus back end. | |||
| 12229 | ;;;*** | 12239 | ;;;*** |
| 12230 | 12240 | ||
| 12231 | ;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el" | 12241 | ;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el" |
| 12232 | ;;;;;; (20119 34052)) | 12242 | ;;;;;; (20172 54913)) |
| 12233 | ;;; Generated autoloads from gnus/gnus-sum.el | 12243 | ;;; Generated autoloads from gnus/gnus-sum.el |
| 12234 | 12244 | ||
| 12235 | (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ | 12245 | (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ |
| @@ -12241,7 +12251,7 @@ BOOKMARK is a bookmark name or a bookmark record. | |||
| 12241 | ;;;*** | 12251 | ;;;*** |
| 12242 | 12252 | ||
| 12243 | ;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize) | 12253 | ;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize) |
| 12244 | ;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20119 34052)) | 12254 | ;;;;;; "gnus-sync" "gnus/gnus-sync.el" (19845 45374)) |
| 12245 | ;;; Generated autoloads from gnus/gnus-sync.el | 12255 | ;;; Generated autoloads from gnus/gnus-sync.el |
| 12246 | 12256 | ||
| 12247 | (autoload 'gnus-sync-initialize "gnus-sync" "\ | 12257 | (autoload 'gnus-sync-initialize "gnus-sync" "\ |
| @@ -12257,7 +12267,7 @@ Install the sync hooks. | |||
| 12257 | ;;;*** | 12267 | ;;;*** |
| 12258 | 12268 | ||
| 12259 | ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" | 12269 | ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" |
| 12260 | ;;;;;; (20119 34052)) | 12270 | ;;;;;; (20161 45793)) |
| 12261 | ;;; Generated autoloads from gnus/gnus-win.el | 12271 | ;;; Generated autoloads from gnus/gnus-win.el |
| 12262 | 12272 | ||
| 12263 | (autoload 'gnus-add-configuration "gnus-win" "\ | 12273 | (autoload 'gnus-add-configuration "gnus-win" "\ |
| @@ -12268,7 +12278,7 @@ Add the window configuration CONF to `gnus-buffer-configuration'. | |||
| 12268 | ;;;*** | 12278 | ;;;*** |
| 12269 | 12279 | ||
| 12270 | ;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el" | 12280 | ;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el" |
| 12271 | ;;;;;; (20119 34052)) | 12281 | ;;;;;; (20176 51947)) |
| 12272 | ;;; Generated autoloads from net/gnutls.el | 12282 | ;;; Generated autoloads from net/gnutls.el |
| 12273 | 12283 | ||
| 12274 | (defvar gnutls-min-prime-bits nil "\ | 12284 | (defvar gnutls-min-prime-bits nil "\ |
| @@ -12284,7 +12294,7 @@ A value of nil says to use the default gnutls value.") | |||
| 12284 | 12294 | ||
| 12285 | ;;;*** | 12295 | ;;;*** |
| 12286 | 12296 | ||
| 12287 | ;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20119 34052)) | 12297 | ;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20178 7273)) |
| 12288 | ;;; Generated autoloads from play/gomoku.el | 12298 | ;;; Generated autoloads from play/gomoku.el |
| 12289 | 12299 | ||
| 12290 | (autoload 'gomoku "gomoku" "\ | 12300 | (autoload 'gomoku "gomoku" "\ |
| @@ -12312,7 +12322,7 @@ Use \\[describe-mode] for more info. | |||
| 12312 | 12322 | ||
| 12313 | ;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address | 12323 | ;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address |
| 12314 | ;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20127 | 12324 | ;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20127 |
| 12315 | ;;;;;; 25813)) | 12325 | ;;;;;; 62865)) |
| 12316 | ;;; Generated autoloads from net/goto-addr.el | 12326 | ;;; Generated autoloads from net/goto-addr.el |
| 12317 | 12327 | ||
| 12318 | (define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") | 12328 | (define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") |
| @@ -12351,7 +12361,7 @@ Like `goto-address-mode', but only for comments and strings. | |||
| 12351 | ;;;*** | 12361 | ;;;*** |
| 12352 | 12362 | ||
| 12353 | ;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve) | 12363 | ;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve) |
| 12354 | ;;;;;; "gravatar" "gnus/gravatar.el" (20119 34052)) | 12364 | ;;;;;; "gravatar" "gnus/gravatar.el" (19845 45374)) |
| 12355 | ;;; Generated autoloads from gnus/gravatar.el | 12365 | ;;; Generated autoloads from gnus/gravatar.el |
| 12356 | 12366 | ||
| 12357 | (autoload 'gravatar-retrieve "gravatar" "\ | 12367 | (autoload 'gravatar-retrieve "gravatar" "\ |
| @@ -12369,7 +12379,7 @@ Retrieve MAIL-ADDRESS gravatar and returns it. | |||
| 12369 | 12379 | ||
| 12370 | ;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults | 12380 | ;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults |
| 12371 | ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command | 12381 | ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command |
| 12372 | ;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20119 34052)) | 12382 | ;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20174 10230)) |
| 12373 | ;;; Generated autoloads from progmodes/grep.el | 12383 | ;;; Generated autoloads from progmodes/grep.el |
| 12374 | 12384 | ||
| 12375 | (defvar grep-window-height nil "\ | 12385 | (defvar grep-window-height nil "\ |
| @@ -12427,9 +12437,11 @@ Any other value means to use `find -print' and `xargs'. | |||
| 12427 | 12437 | ||
| 12428 | This variable's value takes effect when `grep-compute-defaults' is called.") | 12438 | This variable's value takes effect when `grep-compute-defaults' is called.") |
| 12429 | 12439 | ||
| 12430 | (defvar grep-history nil) | 12440 | (defvar grep-history nil "\ |
| 12441 | History list for grep.") | ||
| 12431 | 12442 | ||
| 12432 | (defvar grep-find-history nil) | 12443 | (defvar grep-find-history nil "\ |
| 12444 | History list for grep-find.") | ||
| 12433 | 12445 | ||
| 12434 | (autoload 'grep-process-setup "grep" "\ | 12446 | (autoload 'grep-process-setup "grep" "\ |
| 12435 | Setup compilation variables and buffer for `grep'. | 12447 | Setup compilation variables and buffer for `grep'. |
| @@ -12526,7 +12538,7 @@ file name to `*.gz', and sets `grep-highlight-matches' to `always'. | |||
| 12526 | 12538 | ||
| 12527 | ;;;*** | 12539 | ;;;*** |
| 12528 | 12540 | ||
| 12529 | ;;;### (autoloads (gs-load-image) "gs" "gs.el" (20119 34052)) | 12541 | ;;;### (autoloads (gs-load-image) "gs" "gs.el" (19845 45374)) |
| 12530 | ;;; Generated autoloads from gs.el | 12542 | ;;; Generated autoloads from gs.el |
| 12531 | 12543 | ||
| 12532 | (autoload 'gs-load-image "gs" "\ | 12544 | (autoload 'gs-load-image "gs" "\ |
| @@ -12540,7 +12552,7 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. | |||
| 12540 | ;;;*** | 12552 | ;;;*** |
| 12541 | 12553 | ||
| 12542 | ;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb | 12554 | ;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb |
| 12543 | ;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20127 25495)) | 12555 | ;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20178 7273)) |
| 12544 | ;;; Generated autoloads from progmodes/gud.el | 12556 | ;;; Generated autoloads from progmodes/gud.el |
| 12545 | 12557 | ||
| 12546 | (autoload 'gud-gdb "gud" "\ | 12558 | (autoload 'gud-gdb "gud" "\ |
| @@ -12628,8 +12640,8 @@ it if ARG is omitted or nil. | |||
| 12628 | 12640 | ||
| 12629 | ;;;*** | 12641 | ;;;*** |
| 12630 | 12642 | ||
| 12631 | ;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (20119 | 12643 | ;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (19889 |
| 12632 | ;;;;;; 34052)) | 12644 | ;;;;;; 21967)) |
| 12633 | ;;; Generated autoloads from play/handwrite.el | 12645 | ;;; Generated autoloads from play/handwrite.el |
| 12634 | 12646 | ||
| 12635 | (autoload 'handwrite "handwrite" "\ | 12647 | (autoload 'handwrite "handwrite" "\ |
| @@ -12647,7 +12659,7 @@ Variables: `handwrite-linespace' (default 12) | |||
| 12647 | ;;;*** | 12659 | ;;;*** |
| 12648 | 12660 | ||
| 12649 | ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" | 12661 | ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" |
| 12650 | ;;;;;; (20119 34052)) | 12662 | ;;;;;; (19981 40664)) |
| 12651 | ;;; Generated autoloads from play/hanoi.el | 12663 | ;;; Generated autoloads from play/hanoi.el |
| 12652 | 12664 | ||
| 12653 | (autoload 'hanoi "hanoi" "\ | 12665 | (autoload 'hanoi "hanoi" "\ |
| @@ -12676,7 +12688,7 @@ to be updated. | |||
| 12676 | 12688 | ||
| 12677 | ;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment | 12689 | ;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment |
| 12678 | ;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment) | 12690 | ;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment) |
| 12679 | ;;;;;; "hashcash" "mail/hashcash.el" (20119 34052)) | 12691 | ;;;;;; "hashcash" "mail/hashcash.el" (19845 45374)) |
| 12680 | ;;; Generated autoloads from mail/hashcash.el | 12692 | ;;; Generated autoloads from mail/hashcash.el |
| 12681 | 12693 | ||
| 12682 | (autoload 'hashcash-insert-payment "hashcash" "\ | 12694 | (autoload 'hashcash-insert-payment "hashcash" "\ |
| @@ -12721,7 +12733,7 @@ Prefix arg sets default accept amount temporarily. | |||
| 12721 | ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region | 12733 | ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region |
| 12722 | ;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer | 12734 | ;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer |
| 12723 | ;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string | 12735 | ;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string |
| 12724 | ;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (20119 34052)) | 12736 | ;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (19845 45374)) |
| 12725 | ;;; Generated autoloads from help-at-pt.el | 12737 | ;;; Generated autoloads from help-at-pt.el |
| 12726 | 12738 | ||
| 12727 | (autoload 'help-at-pt-string "help-at-pt" "\ | 12739 | (autoload 'help-at-pt-string "help-at-pt" "\ |
| @@ -12851,7 +12863,7 @@ different regions. With numeric argument ARG, behaves like | |||
| 12851 | ;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories | 12863 | ;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories |
| 12852 | ;;;;;; describe-syntax describe-variable variable-at-point describe-function-1 | 12864 | ;;;;;; describe-syntax describe-variable variable-at-point describe-function-1 |
| 12853 | ;;;;;; find-lisp-object-file-name help-C-file-name describe-function) | 12865 | ;;;;;; find-lisp-object-file-name help-C-file-name describe-function) |
| 12854 | ;;;;;; "help-fns" "help-fns.el" (20119 34052)) | 12866 | ;;;;;; "help-fns" "help-fns.el" (20161 45793)) |
| 12855 | ;;; Generated autoloads from help-fns.el | 12867 | ;;; Generated autoloads from help-fns.el |
| 12856 | 12868 | ||
| 12857 | (autoload 'describe-function "help-fns" "\ | 12869 | (autoload 'describe-function "help-fns" "\ |
| @@ -12931,7 +12943,7 @@ Produce a texinfo buffer with sorted doc-strings from the DOC file. | |||
| 12931 | ;;;*** | 12943 | ;;;*** |
| 12932 | 12944 | ||
| 12933 | ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" | 12945 | ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" |
| 12934 | ;;;;;; (20119 34052)) | 12946 | ;;;;;; (19845 45374)) |
| 12935 | ;;; Generated autoloads from help-macro.el | 12947 | ;;; Generated autoloads from help-macro.el |
| 12936 | 12948 | ||
| 12937 | (defvar three-step-help nil "\ | 12949 | (defvar three-step-help nil "\ |
| @@ -12947,8 +12959,8 @@ gives the window that lists the options.") | |||
| 12947 | 12959 | ||
| 12948 | ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button | 12960 | ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button |
| 12949 | ;;;;;; help-make-xrefs help-buffer help-setup-xref help-mode-finish | 12961 | ;;;;;; help-make-xrefs help-buffer help-setup-xref help-mode-finish |
| 12950 | ;;;;;; help-mode-setup help-mode) "help-mode" "help-mode.el" (20119 | 12962 | ;;;;;; help-mode-setup help-mode) "help-mode" "help-mode.el" (20167 |
| 12951 | ;;;;;; 34052)) | 12963 | ;;;;;; 36967)) |
| 12952 | ;;; Generated autoloads from help-mode.el | 12964 | ;;; Generated autoloads from help-mode.el |
| 12953 | 12965 | ||
| 12954 | (autoload 'help-mode "help-mode" "\ | 12966 | (autoload 'help-mode "help-mode" "\ |
| @@ -13041,7 +13053,7 @@ Add xrefs for symbols in `pp's output between FROM and TO. | |||
| 13041 | ;;;*** | 13053 | ;;;*** |
| 13042 | 13054 | ||
| 13043 | ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" | 13055 | ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" |
| 13044 | ;;;;;; "emacs-lisp/helper.el" (20119 34052)) | 13056 | ;;;;;; "emacs-lisp/helper.el" (19845 45374)) |
| 13045 | ;;; Generated autoloads from emacs-lisp/helper.el | 13057 | ;;; Generated autoloads from emacs-lisp/helper.el |
| 13046 | 13058 | ||
| 13047 | (autoload 'Helper-describe-bindings "helper" "\ | 13059 | (autoload 'Helper-describe-bindings "helper" "\ |
| @@ -13057,7 +13069,7 @@ Provide help for current mode. | |||
| 13057 | ;;;*** | 13069 | ;;;*** |
| 13058 | 13070 | ||
| 13059 | ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" | 13071 | ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" |
| 13060 | ;;;;;; "hexl.el" (20119 34052)) | 13072 | ;;;;;; "hexl.el" (19865 50420)) |
| 13061 | ;;; Generated autoloads from hexl.el | 13073 | ;;; Generated autoloads from hexl.el |
| 13062 | 13074 | ||
| 13063 | (autoload 'hexl-mode "hexl" "\ | 13075 | (autoload 'hexl-mode "hexl" "\ |
| @@ -13154,7 +13166,7 @@ This discards the buffer's undo information. | |||
| 13154 | ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer | 13166 | ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer |
| 13155 | ;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer | 13167 | ;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer |
| 13156 | ;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" | 13168 | ;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" |
| 13157 | ;;;;;; (20126 50093)) | 13169 | ;;;;;; (20127 62865)) |
| 13158 | ;;; Generated autoloads from hi-lock.el | 13170 | ;;; Generated autoloads from hi-lock.el |
| 13159 | 13171 | ||
| 13160 | (autoload 'hi-lock-mode "hi-lock" "\ | 13172 | (autoload 'hi-lock-mode "hi-lock" "\ |
| @@ -13293,7 +13305,7 @@ be found in variable `hi-lock-interactive-patterns'. | |||
| 13293 | ;;;*** | 13305 | ;;;*** |
| 13294 | 13306 | ||
| 13295 | ;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el" | 13307 | ;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el" |
| 13296 | ;;;;;; (20127 25465)) | 13308 | ;;;;;; (20127 62865)) |
| 13297 | ;;; Generated autoloads from progmodes/hideif.el | 13309 | ;;; Generated autoloads from progmodes/hideif.el |
| 13298 | 13310 | ||
| 13299 | (autoload 'hide-ifdef-mode "hideif" "\ | 13311 | (autoload 'hide-ifdef-mode "hideif" "\ |
| @@ -13337,7 +13349,7 @@ Several variables affect how the hiding is done: | |||
| 13337 | ;;;*** | 13349 | ;;;*** |
| 13338 | 13350 | ||
| 13339 | ;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el" | 13351 | ;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el" |
| 13340 | ;;;;;; (20119 34052)) | 13352 | ;;;;;; (20172 54913)) |
| 13341 | ;;; Generated autoloads from progmodes/hideshow.el | 13353 | ;;; Generated autoloads from progmodes/hideshow.el |
| 13342 | 13354 | ||
| 13343 | (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))) "\ | 13355 | (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))) "\ |
| @@ -13399,8 +13411,8 @@ Unconditionally turn off `hs-minor-mode'. | |||
| 13399 | ;;;;;; highlight-compare-buffers highlight-changes-rotate-faces | 13411 | ;;;;;; highlight-compare-buffers highlight-changes-rotate-faces |
| 13400 | ;;;;;; highlight-changes-previous-change highlight-changes-next-change | 13412 | ;;;;;; highlight-changes-previous-change highlight-changes-next-change |
| 13401 | ;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode | 13413 | ;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode |
| 13402 | ;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20126 | 13414 | ;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20164 |
| 13403 | ;;;;;; 50110)) | 13415 | ;;;;;; 60780)) |
| 13404 | ;;; Generated autoloads from hilit-chg.el | 13416 | ;;; Generated autoloads from hilit-chg.el |
| 13405 | 13417 | ||
| 13406 | (autoload 'highlight-changes-mode "hilit-chg" "\ | 13418 | (autoload 'highlight-changes-mode "hilit-chg" "\ |
| @@ -13535,7 +13547,7 @@ See `highlight-changes-mode' for more information on Highlight-Changes mode. | |||
| 13535 | ;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction | 13547 | ;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction |
| 13536 | ;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space | 13548 | ;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space |
| 13537 | ;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" | 13549 | ;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" |
| 13538 | ;;;;;; "hippie-exp.el" (20119 34052)) | 13550 | ;;;;;; "hippie-exp.el" (20167 36967)) |
| 13539 | ;;; Generated autoloads from hippie-exp.el | 13551 | ;;; Generated autoloads from hippie-exp.el |
| 13540 | 13552 | ||
| 13541 | (defvar hippie-expand-try-functions-list '(try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol) "\ | 13553 | (defvar hippie-expand-try-functions-list '(try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol) "\ |
| @@ -13608,7 +13620,7 @@ argument VERBOSE non-nil makes the function verbose. | |||
| 13608 | ;;;*** | 13620 | ;;;*** |
| 13609 | 13621 | ||
| 13610 | ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" | 13622 | ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" |
| 13611 | ;;;;;; (20126 50128)) | 13623 | ;;;;;; (20127 62865)) |
| 13612 | ;;; Generated autoloads from hl-line.el | 13624 | ;;; Generated autoloads from hl-line.el |
| 13613 | 13625 | ||
| 13614 | (autoload 'hl-line-mode "hl-line" "\ | 13626 | (autoload 'hl-line-mode "hl-line" "\ |
| @@ -13661,7 +13673,7 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and | |||
| 13661 | ;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays | 13673 | ;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays |
| 13662 | ;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays | 13674 | ;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays |
| 13663 | ;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays" | 13675 | ;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays" |
| 13664 | ;;;;;; "calendar/holidays.el" (20119 34052)) | 13676 | ;;;;;; "calendar/holidays.el" (20107 16822)) |
| 13665 | ;;; Generated autoloads from calendar/holidays.el | 13677 | ;;; Generated autoloads from calendar/holidays.el |
| 13666 | 13678 | ||
| 13667 | (define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1") | 13679 | (define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1") |
| @@ -13809,8 +13821,8 @@ The optional LABEL is used to label the buffer created. | |||
| 13809 | 13821 | ||
| 13810 | ;;;*** | 13822 | ;;;*** |
| 13811 | 13823 | ||
| 13812 | ;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20119 | 13824 | ;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20164 |
| 13813 | ;;;;;; 34052)) | 13825 | ;;;;;; 60780)) |
| 13814 | ;;; Generated autoloads from gnus/html2text.el | 13826 | ;;; Generated autoloads from gnus/html2text.el |
| 13815 | 13827 | ||
| 13816 | (autoload 'html2text "html2text" "\ | 13828 | (autoload 'html2text "html2text" "\ |
| @@ -13821,7 +13833,7 @@ Convert HTML to plain text in the current buffer. | |||
| 13821 | ;;;*** | 13833 | ;;;*** |
| 13822 | 13834 | ||
| 13823 | ;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer) | 13835 | ;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer) |
| 13824 | ;;;;;; "htmlfontify" "htmlfontify.el" (20119 34052)) | 13836 | ;;;;;; "htmlfontify" "htmlfontify.el" (20183 25152)) |
| 13825 | ;;; Generated autoloads from htmlfontify.el | 13837 | ;;; Generated autoloads from htmlfontify.el |
| 13826 | 13838 | ||
| 13827 | (autoload 'htmlfontify-buffer "htmlfontify" "\ | 13839 | (autoload 'htmlfontify-buffer "htmlfontify" "\ |
| @@ -13854,8 +13866,8 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'. | |||
| 13854 | ;;;*** | 13866 | ;;;*** |
| 13855 | 13867 | ||
| 13856 | ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter | 13868 | ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter |
| 13857 | ;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20119 | 13869 | ;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (19845 |
| 13858 | ;;;;;; 34052)) | 13870 | ;;;;;; 45374)) |
| 13859 | ;;; Generated autoloads from ibuf-macs.el | 13871 | ;;; Generated autoloads from ibuf-macs.el |
| 13860 | 13872 | ||
| 13861 | (autoload 'define-ibuffer-column "ibuf-macs" "\ | 13873 | (autoload 'define-ibuffer-column "ibuf-macs" "\ |
| @@ -13952,7 +13964,7 @@ bound to the current value of the filter. | |||
| 13952 | ;;;*** | 13964 | ;;;*** |
| 13953 | 13965 | ||
| 13954 | ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) | 13966 | ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) |
| 13955 | ;;;;;; "ibuffer" "ibuffer.el" (20126 50992)) | 13967 | ;;;;;; "ibuffer" "ibuffer.el" (20162 19074)) |
| 13956 | ;;; Generated autoloads from ibuffer.el | 13968 | ;;; Generated autoloads from ibuffer.el |
| 13957 | 13969 | ||
| 13958 | (autoload 'ibuffer-list-buffers "ibuffer" "\ | 13970 | (autoload 'ibuffer-list-buffers "ibuffer" "\ |
| @@ -13993,7 +14005,7 @@ FORMATS is the value to use for `ibuffer-formats'. | |||
| 13993 | 14005 | ||
| 13994 | ;;;### (autoloads (icalendar-import-buffer icalendar-import-file | 14006 | ;;;### (autoloads (icalendar-import-buffer icalendar-import-file |
| 13995 | ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" | 14007 | ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" |
| 13996 | ;;;;;; "calendar/icalendar.el" (20119 34052)) | 14008 | ;;;;;; "calendar/icalendar.el" (20164 29468)) |
| 13997 | ;;; Generated autoloads from calendar/icalendar.el | 14009 | ;;; Generated autoloads from calendar/icalendar.el |
| 13998 | 14010 | ||
| 13999 | (autoload 'icalendar-export-file "icalendar" "\ | 14011 | (autoload 'icalendar-export-file "icalendar" "\ |
| @@ -14045,8 +14057,8 @@ buffer `*icalendar-errors*'. | |||
| 14045 | 14057 | ||
| 14046 | ;;;*** | 14058 | ;;;*** |
| 14047 | 14059 | ||
| 14048 | ;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20126 | 14060 | ;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20127 |
| 14049 | ;;;;;; 50158)) | 14061 | ;;;;;; 62865)) |
| 14050 | ;;; Generated autoloads from icomplete.el | 14062 | ;;; Generated autoloads from icomplete.el |
| 14051 | 14063 | ||
| 14052 | (defvar icomplete-mode nil "\ | 14064 | (defvar icomplete-mode nil "\ |
| @@ -14068,7 +14080,7 @@ the mode if ARG is omitted or nil. | |||
| 14068 | 14080 | ||
| 14069 | ;;;*** | 14081 | ;;;*** |
| 14070 | 14082 | ||
| 14071 | ;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20119 34052)) | 14083 | ;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (19890 42850)) |
| 14072 | ;;; Generated autoloads from progmodes/icon.el | 14084 | ;;; Generated autoloads from progmodes/icon.el |
| 14073 | 14085 | ||
| 14074 | (autoload 'icon-mode "icon" "\ | 14086 | (autoload 'icon-mode "icon" "\ |
| @@ -14109,7 +14121,7 @@ with no args, if that value is non-nil. | |||
| 14109 | ;;;*** | 14121 | ;;;*** |
| 14110 | 14122 | ||
| 14111 | ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" | 14123 | ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" |
| 14112 | ;;;;;; (20127 25340)) | 14124 | ;;;;;; (20178 7273)) |
| 14113 | ;;; Generated autoloads from progmodes/idlw-shell.el | 14125 | ;;; Generated autoloads from progmodes/idlw-shell.el |
| 14114 | 14126 | ||
| 14115 | (autoload 'idlwave-shell "idlw-shell" "\ | 14127 | (autoload 'idlwave-shell "idlw-shell" "\ |
| @@ -14135,7 +14147,7 @@ See also the variable `idlwave-shell-prompt-pattern'. | |||
| 14135 | ;;;*** | 14147 | ;;;*** |
| 14136 | 14148 | ||
| 14137 | ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" | 14149 | ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" |
| 14138 | ;;;;;; (20129 34279)) | 14150 | ;;;;;; (20168 57844)) |
| 14139 | ;;; Generated autoloads from progmodes/idlwave.el | 14151 | ;;; Generated autoloads from progmodes/idlwave.el |
| 14140 | 14152 | ||
| 14141 | (autoload 'idlwave-mode "idlwave" "\ | 14153 | (autoload 'idlwave-mode "idlwave" "\ |
| @@ -14269,8 +14281,8 @@ The main features of this mode are | |||
| 14269 | ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file | 14281 | ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file |
| 14270 | ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer | 14282 | ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer |
| 14271 | ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window | 14283 | ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window |
| 14272 | ;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (20139 | 14284 | ;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (20178 |
| 14273 | ;;;;;; 37519)) | 14285 | ;;;;;; 7273)) |
| 14274 | ;;; Generated autoloads from ido.el | 14286 | ;;; Generated autoloads from ido.el |
| 14275 | 14287 | ||
| 14276 | (defvar ido-mode nil "\ | 14288 | (defvar ido-mode nil "\ |
| @@ -14531,7 +14543,7 @@ DEF, if non-nil, is the default value. | |||
| 14531 | 14543 | ||
| 14532 | ;;;*** | 14544 | ;;;*** |
| 14533 | 14545 | ||
| 14534 | ;;;### (autoloads (ielm) "ielm" "ielm.el" (20119 34052)) | 14546 | ;;;### (autoloads (ielm) "ielm" "ielm.el" (20077 56412)) |
| 14535 | ;;; Generated autoloads from ielm.el | 14547 | ;;; Generated autoloads from ielm.el |
| 14536 | 14548 | ||
| 14537 | (autoload 'ielm "ielm" "\ | 14549 | (autoload 'ielm "ielm" "\ |
| @@ -14542,7 +14554,7 @@ Switches to the buffer `*ielm*', or creates it if it does not exist. | |||
| 14542 | 14554 | ||
| 14543 | ;;;*** | 14555 | ;;;*** |
| 14544 | 14556 | ||
| 14545 | ;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20119 34052)) | 14557 | ;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (19845 45374)) |
| 14546 | ;;; Generated autoloads from iimage.el | 14558 | ;;; Generated autoloads from iimage.el |
| 14547 | 14559 | ||
| 14548 | (define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") | 14560 | (define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") |
| @@ -14559,7 +14571,7 @@ Toggle inline image minor mode. | |||
| 14559 | ;;;;;; create-image image-type-auto-detected-p image-type-available-p | 14571 | ;;;;;; create-image image-type-auto-detected-p image-type-available-p |
| 14560 | ;;;;;; image-type image-type-from-file-name image-type-from-file-header | 14572 | ;;;;;; image-type image-type-from-file-name image-type-from-file-header |
| 14561 | ;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el" | 14573 | ;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el" |
| 14562 | ;;;;;; (20119 34052)) | 14574 | ;;;;;; (20084 29660)) |
| 14563 | ;;; Generated autoloads from image.el | 14575 | ;;; Generated autoloads from image.el |
| 14564 | 14576 | ||
| 14565 | (autoload 'image-type-from-data "image" "\ | 14577 | (autoload 'image-type-from-data "image" "\ |
| @@ -14756,7 +14768,7 @@ If Emacs is compiled without ImageMagick support, do nothing. | |||
| 14756 | ;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag | 14768 | ;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag |
| 14757 | ;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs | 14769 | ;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs |
| 14758 | ;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs) | 14770 | ;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs) |
| 14759 | ;;;;;; "image-dired" "image-dired.el" (20140 44252)) | 14771 | ;;;;;; "image-dired" "image-dired.el" (20168 57844)) |
| 14760 | ;;; Generated autoloads from image-dired.el | 14772 | ;;; Generated autoloads from image-dired.el |
| 14761 | 14773 | ||
| 14762 | (autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\ | 14774 | (autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\ |
| @@ -14894,7 +14906,7 @@ easy-to-use form. | |||
| 14894 | 14906 | ||
| 14895 | ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp | 14907 | ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp |
| 14896 | ;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" | 14908 | ;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" |
| 14897 | ;;;;;; "image-file.el" (20126 50176)) | 14909 | ;;;;;; "image-file.el" (20127 62865)) |
| 14898 | ;;; Generated autoloads from image-file.el | 14910 | ;;; Generated autoloads from image-file.el |
| 14899 | 14911 | ||
| 14900 | (defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\ | 14912 | (defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\ |
| @@ -14957,7 +14969,7 @@ An image file is one whose name has an extension in | |||
| 14957 | ;;;*** | 14969 | ;;;*** |
| 14958 | 14970 | ||
| 14959 | ;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode | 14971 | ;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode |
| 14960 | ;;;;;; image-mode) "image-mode" "image-mode.el" (20126 50186)) | 14972 | ;;;;;; image-mode) "image-mode" "image-mode.el" (20160 63745)) |
| 14961 | ;;; Generated autoloads from image-mode.el | 14973 | ;;; Generated autoloads from image-mode.el |
| 14962 | 14974 | ||
| 14963 | (autoload 'image-mode "image-mode" "\ | 14975 | (autoload 'image-mode "image-mode" "\ |
| @@ -15002,7 +15014,7 @@ on these modes. | |||
| 15002 | ;;;*** | 15014 | ;;;*** |
| 15003 | 15015 | ||
| 15004 | ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar | 15016 | ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar |
| 15005 | ;;;;;; imenu-sort-function) "imenu" "imenu.el" (20119 34052)) | 15017 | ;;;;;; imenu-sort-function) "imenu" "imenu.el" (19845 45374)) |
| 15006 | ;;; Generated autoloads from imenu.el | 15018 | ;;; Generated autoloads from imenu.el |
| 15007 | 15019 | ||
| 15008 | (defvar imenu-sort-function nil "\ | 15020 | (defvar imenu-sort-function nil "\ |
| @@ -15119,7 +15131,7 @@ for more information. | |||
| 15119 | 15131 | ||
| 15120 | ;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion | 15132 | ;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion |
| 15121 | ;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) | 15133 | ;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) |
| 15122 | ;;;;;; "ind-util" "language/ind-util.el" (20119 34052)) | 15134 | ;;;;;; "ind-util" "language/ind-util.el" (20097 41737)) |
| 15123 | ;;; Generated autoloads from language/ind-util.el | 15135 | ;;; Generated autoloads from language/ind-util.el |
| 15124 | 15136 | ||
| 15125 | (autoload 'indian-compose-region "ind-util" "\ | 15137 | (autoload 'indian-compose-region "ind-util" "\ |
| @@ -15151,7 +15163,7 @@ Convert old Emacs Devanagari characters to UCS. | |||
| 15151 | 15163 | ||
| 15152 | ;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command | 15164 | ;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command |
| 15153 | ;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" | 15165 | ;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" |
| 15154 | ;;;;;; "progmodes/inf-lisp.el" (20119 34052)) | 15166 | ;;;;;; "progmodes/inf-lisp.el" (20168 57844)) |
| 15155 | ;;; Generated autoloads from progmodes/inf-lisp.el | 15167 | ;;; Generated autoloads from progmodes/inf-lisp.el |
| 15156 | 15168 | ||
| 15157 | (defvar inferior-lisp-filter-regexp (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") "\ | 15169 | (defvar inferior-lisp-filter-regexp (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'") "\ |
| @@ -15218,7 +15230,7 @@ of `inferior-lisp-program'). Runs the hooks from | |||
| 15218 | ;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node | 15230 | ;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node |
| 15219 | ;;;;;; Info-mode info-finder info-apropos Info-index Info-directory | 15231 | ;;;;;; Info-mode info-finder info-apropos Info-index Info-directory |
| 15220 | ;;;;;; Info-on-current-buffer info-standalone info-emacs-manual | 15232 | ;;;;;; Info-on-current-buffer info-standalone info-emacs-manual |
| 15221 | ;;;;;; info info-other-window) "info" "info.el" (20134 14214)) | 15233 | ;;;;;; info info-other-window) "info" "info.el" (20172 54913)) |
| 15222 | ;;; Generated autoloads from info.el | 15234 | ;;; Generated autoloads from info.el |
| 15223 | 15235 | ||
| 15224 | (autoload 'info-other-window "info" "\ | 15236 | (autoload 'info-other-window "info" "\ |
| @@ -15404,7 +15416,7 @@ Go to Info buffer that displays MANUAL, creating it if none already exists. | |||
| 15404 | 15416 | ||
| 15405 | ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file | 15417 | ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file |
| 15406 | ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" | 15418 | ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" |
| 15407 | ;;;;;; (20119 34052)) | 15419 | ;;;;;; (19984 16846)) |
| 15408 | ;;; Generated autoloads from info-look.el | 15420 | ;;; Generated autoloads from info-look.el |
| 15409 | 15421 | ||
| 15410 | (autoload 'info-lookup-reset "info-look" "\ | 15422 | (autoload 'info-lookup-reset "info-look" "\ |
| @@ -15453,7 +15465,7 @@ Perform completion on file preceding point. | |||
| 15453 | 15465 | ||
| 15454 | ;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom | 15466 | ;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom |
| 15455 | ;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el" | 15467 | ;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el" |
| 15456 | ;;;;;; (20119 34052)) | 15468 | ;;;;;; (20168 57844)) |
| 15457 | ;;; Generated autoloads from info-xref.el | 15469 | ;;; Generated autoloads from info-xref.el |
| 15458 | 15470 | ||
| 15459 | (autoload 'info-xref-check "info-xref" "\ | 15471 | (autoload 'info-xref-check "info-xref" "\ |
| @@ -15536,7 +15548,7 @@ the sources handy. | |||
| 15536 | ;;;*** | 15548 | ;;;*** |
| 15537 | 15549 | ||
| 15538 | ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold | 15550 | ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold |
| 15539 | ;;;;;; Info-tagify) "informat" "informat.el" (20119 34052)) | 15551 | ;;;;;; Info-tagify) "informat" "informat.el" (19886 45771)) |
| 15540 | ;;; Generated autoloads from informat.el | 15552 | ;;; Generated autoloads from informat.el |
| 15541 | 15553 | ||
| 15542 | (autoload 'Info-tagify "informat" "\ | 15554 | (autoload 'Info-tagify "informat" "\ |
| @@ -15583,7 +15595,7 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" | |||
| 15583 | 15595 | ||
| 15584 | ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method | 15596 | ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method |
| 15585 | ;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" | 15597 | ;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" |
| 15586 | ;;;;;; (20119 34052)) | 15598 | ;;;;;; (19845 45374)) |
| 15587 | ;;; Generated autoloads from international/isearch-x.el | 15599 | ;;; Generated autoloads from international/isearch-x.el |
| 15588 | 15600 | ||
| 15589 | (autoload 'isearch-toggle-specified-input-method "isearch-x" "\ | 15601 | (autoload 'isearch-toggle-specified-input-method "isearch-x" "\ |
| @@ -15603,8 +15615,8 @@ Toggle input method in interactive search. | |||
| 15603 | 15615 | ||
| 15604 | ;;;*** | 15616 | ;;;*** |
| 15605 | 15617 | ||
| 15606 | ;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20119 | 15618 | ;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (19845 |
| 15607 | ;;;;;; 34052)) | 15619 | ;;;;;; 45374)) |
| 15608 | ;;; Generated autoloads from isearchb.el | 15620 | ;;; Generated autoloads from isearchb.el |
| 15609 | 15621 | ||
| 15610 | (autoload 'isearchb-activate "isearchb" "\ | 15622 | (autoload 'isearchb-activate "isearchb" "\ |
| @@ -15620,7 +15632,7 @@ accessed via isearchb. | |||
| 15620 | ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only | 15632 | ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only |
| 15621 | ;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso | 15633 | ;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso |
| 15622 | ;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" | 15634 | ;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" |
| 15623 | ;;;;;; "international/iso-cvt.el" (20119 34052)) | 15635 | ;;;;;; "international/iso-cvt.el" (19845 45374)) |
| 15624 | ;;; Generated autoloads from international/iso-cvt.el | 15636 | ;;; Generated autoloads from international/iso-cvt.el |
| 15625 | 15637 | ||
| 15626 | (autoload 'iso-spanish "iso-cvt" "\ | 15638 | (autoload 'iso-spanish "iso-cvt" "\ |
| @@ -15711,7 +15723,7 @@ Add submenus to the File menu, to convert to and from various formats. | |||
| 15711 | ;;;*** | 15723 | ;;;*** |
| 15712 | 15724 | ||
| 15713 | ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" | 15725 | ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" |
| 15714 | ;;;;;; (20119 34052)) | 15726 | ;;;;;; (19845 45374)) |
| 15715 | ;;; Generated autoloads from international/iso-transl.el | 15727 | ;;; Generated autoloads from international/iso-transl.el |
| 15716 | (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | 15728 | (or key-translation-map (setq key-translation-map (make-sparse-keymap))) |
| 15717 | (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) | 15729 | (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) |
| @@ -15723,7 +15735,7 @@ Add submenus to the File menu, to convert to and from various formats. | |||
| 15723 | ;;;;;; ispell-complete-word ispell-continue ispell-buffer ispell-comments-and-strings | 15735 | ;;;;;; ispell-complete-word ispell-continue ispell-buffer ispell-comments-and-strings |
| 15724 | ;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell | 15736 | ;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell |
| 15725 | ;;;;;; ispell-help ispell-pdict-save ispell-word ispell-personal-dictionary) | 15737 | ;;;;;; ispell-help ispell-pdict-save ispell-word ispell-personal-dictionary) |
| 15726 | ;;;;;; "ispell" "textmodes/ispell.el" (20139 33409)) | 15738 | ;;;;;; "ispell" "textmodes/ispell.el" (20178 7273)) |
| 15727 | ;;; Generated autoloads from textmodes/ispell.el | 15739 | ;;; Generated autoloads from textmodes/ispell.el |
| 15728 | 15740 | ||
| 15729 | (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) | 15741 | (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) |
| @@ -15949,8 +15961,8 @@ You can bind this to the key C-c i in GNUS or mail by adding to | |||
| 15949 | 15961 | ||
| 15950 | ;;;*** | 15962 | ;;;*** |
| 15951 | 15963 | ||
| 15952 | ;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20126 | 15964 | ;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20168 |
| 15953 | ;;;;;; 50194)) | 15965 | ;;;;;; 57844)) |
| 15954 | ;;; Generated autoloads from iswitchb.el | 15966 | ;;; Generated autoloads from iswitchb.el |
| 15955 | 15967 | ||
| 15956 | (defvar iswitchb-mode nil "\ | 15968 | (defvar iswitchb-mode nil "\ |
| @@ -15978,7 +15990,7 @@ between buffers using substrings. See `iswitchb' for details. | |||
| 15978 | ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region | 15990 | ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region |
| 15979 | ;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku | 15991 | ;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku |
| 15980 | ;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) | 15992 | ;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) |
| 15981 | ;;;;;; "japan-util" "language/japan-util.el" (20119 34052)) | 15993 | ;;;;;; "japan-util" "language/japan-util.el" (19845 45374)) |
| 15982 | ;;; Generated autoloads from language/japan-util.el | 15994 | ;;; Generated autoloads from language/japan-util.el |
| 15983 | 15995 | ||
| 15984 | (autoload 'setup-japanese-environment-internal "japan-util" "\ | 15996 | (autoload 'setup-japanese-environment-internal "japan-util" "\ |
| @@ -16056,7 +16068,7 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. | |||
| 16056 | ;;;*** | 16068 | ;;;*** |
| 16057 | 16069 | ||
| 16058 | ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" | 16070 | ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" |
| 16059 | ;;;;;; "jka-compr.el" (20119 34052)) | 16071 | ;;;;;; "jka-compr.el" (20000 30139)) |
| 16060 | ;;; Generated autoloads from jka-compr.el | 16072 | ;;; Generated autoloads from jka-compr.el |
| 16061 | 16073 | ||
| 16062 | (defvar jka-compr-inhibit nil "\ | 16074 | (defvar jka-compr-inhibit nil "\ |
| @@ -16079,7 +16091,7 @@ by `jka-compr-installed'. | |||
| 16079 | 16091 | ||
| 16080 | ;;;*** | 16092 | ;;;*** |
| 16081 | 16093 | ||
| 16082 | ;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20119 34052)) | 16094 | ;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20167 36967)) |
| 16083 | ;;; Generated autoloads from progmodes/js.el | 16095 | ;;; Generated autoloads from progmodes/js.el |
| 16084 | 16096 | ||
| 16085 | (autoload 'js-mode "js" "\ | 16097 | (autoload 'js-mode "js" "\ |
| @@ -16093,7 +16105,7 @@ Major mode for editing JavaScript. | |||
| 16093 | 16105 | ||
| 16094 | ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup | 16106 | ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup |
| 16095 | ;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" | 16107 | ;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" |
| 16096 | ;;;;;; (20119 34052)) | 16108 | ;;;;;; (19845 45374)) |
| 16097 | ;;; Generated autoloads from emulation/keypad.el | 16109 | ;;; Generated autoloads from emulation/keypad.el |
| 16098 | 16110 | ||
| 16099 | (defvar keypad-setup nil "\ | 16111 | (defvar keypad-setup nil "\ |
| @@ -16149,7 +16161,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.' | |||
| 16149 | ;;;*** | 16161 | ;;;*** |
| 16150 | 16162 | ||
| 16151 | ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" | 16163 | ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" |
| 16152 | ;;;;;; (20119 34052)) | 16164 | ;;;;;; (19845 45374)) |
| 16153 | ;;; Generated autoloads from international/kinsoku.el | 16165 | ;;; Generated autoloads from international/kinsoku.el |
| 16154 | 16166 | ||
| 16155 | (autoload 'kinsoku "kinsoku" "\ | 16167 | (autoload 'kinsoku "kinsoku" "\ |
| @@ -16170,8 +16182,8 @@ the context of text formatting. | |||
| 16170 | 16182 | ||
| 16171 | ;;;*** | 16183 | ;;;*** |
| 16172 | 16184 | ||
| 16173 | ;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20119 | 16185 | ;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (19845 |
| 16174 | ;;;;;; 34052)) | 16186 | ;;;;;; 45374)) |
| 16175 | ;;; Generated autoloads from international/kkc.el | 16187 | ;;; Generated autoloads from international/kkc.el |
| 16176 | 16188 | ||
| 16177 | (defvar kkc-after-update-conversion-functions nil "\ | 16189 | (defvar kkc-after-update-conversion-functions nil "\ |
| @@ -16196,7 +16208,7 @@ and the return value is the length of the conversion. | |||
| 16196 | ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro | 16208 | ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro |
| 16197 | ;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter | 16209 | ;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter |
| 16198 | ;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro kmacro-exec-ring-item) | 16210 | ;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro kmacro-exec-ring-item) |
| 16199 | ;;;;;; "kmacro" "kmacro.el" (20119 34052)) | 16211 | ;;;;;; "kmacro" "kmacro.el" (20164 60780)) |
| 16200 | ;;; Generated autoloads from kmacro.el | 16212 | ;;; Generated autoloads from kmacro.el |
| 16201 | (global-set-key "\C-x(" 'kmacro-start-macro) | 16213 | (global-set-key "\C-x(" 'kmacro-start-macro) |
| 16202 | (global-set-key "\C-x)" 'kmacro-end-macro) | 16214 | (global-set-key "\C-x)" 'kmacro-end-macro) |
| @@ -16307,7 +16319,7 @@ If kbd macro currently being defined end it before activating it. | |||
| 16307 | ;;;*** | 16319 | ;;;*** |
| 16308 | 16320 | ||
| 16309 | ;;;### (autoloads (setup-korean-environment-internal) "korea-util" | 16321 | ;;;### (autoloads (setup-korean-environment-internal) "korea-util" |
| 16310 | ;;;;;; "language/korea-util.el" (20119 34052)) | 16322 | ;;;;;; "language/korea-util.el" (19845 45374)) |
| 16311 | ;;; Generated autoloads from language/korea-util.el | 16323 | ;;; Generated autoloads from language/korea-util.el |
| 16312 | 16324 | ||
| 16313 | (defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ | 16325 | (defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ |
| @@ -16322,7 +16334,7 @@ If kbd macro currently being defined end it before activating it. | |||
| 16322 | ;;;*** | 16334 | ;;;*** |
| 16323 | 16335 | ||
| 16324 | ;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el" | 16336 | ;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el" |
| 16325 | ;;;;;; (20119 34052)) | 16337 | ;;;;;; (20178 7273)) |
| 16326 | ;;; Generated autoloads from play/landmark.el | 16338 | ;;; Generated autoloads from play/landmark.el |
| 16327 | 16339 | ||
| 16328 | (defalias 'landmark-repeat 'landmark-test-run) | 16340 | (defalias 'landmark-repeat 'landmark-test-run) |
| @@ -16354,7 +16366,7 @@ Use \\[describe-mode] for more info. | |||
| 16354 | 16366 | ||
| 16355 | ;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string | 16367 | ;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string |
| 16356 | ;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string) | 16368 | ;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string) |
| 16357 | ;;;;;; "lao-util" "language/lao-util.el" (20119 34052)) | 16369 | ;;;;;; "lao-util" "language/lao-util.el" (20165 31925)) |
| 16358 | ;;; Generated autoloads from language/lao-util.el | 16370 | ;;; Generated autoloads from language/lao-util.el |
| 16359 | 16371 | ||
| 16360 | (autoload 'lao-compose-string "lao-util" "\ | 16372 | (autoload 'lao-compose-string "lao-util" "\ |
| @@ -16393,7 +16405,7 @@ Transcribe Romanized Lao string STR to Lao character string. | |||
| 16393 | 16405 | ||
| 16394 | ;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc | 16406 | ;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc |
| 16395 | ;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) | 16407 | ;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) |
| 16396 | ;;;;;; "latexenc" "international/latexenc.el" (20119 34052)) | 16408 | ;;;;;; "latexenc" "international/latexenc.el" (19845 45374)) |
| 16397 | ;;; Generated autoloads from international/latexenc.el | 16409 | ;;; Generated autoloads from international/latexenc.el |
| 16398 | 16410 | ||
| 16399 | (defvar latex-inputenc-coding-alist (purecopy '(("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\ | 16411 | (defvar latex-inputenc-coding-alist (purecopy '(("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\ |
| @@ -16425,7 +16437,7 @@ coding system names is determined from `latex-inputenc-coding-alist'. | |||
| 16425 | ;;;*** | 16437 | ;;;*** |
| 16426 | 16438 | ||
| 16427 | ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) | 16439 | ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) |
| 16428 | ;;;;;; "latin1-disp" "international/latin1-disp.el" (20119 34052)) | 16440 | ;;;;;; "latin1-disp" "international/latin1-disp.el" (19845 45374)) |
| 16429 | ;;; Generated autoloads from international/latin1-disp.el | 16441 | ;;; Generated autoloads from international/latin1-disp.el |
| 16430 | 16442 | ||
| 16431 | (defvar latin1-display nil "\ | 16443 | (defvar latin1-display nil "\ |
| @@ -16467,7 +16479,7 @@ use either \\[customize] or the function `latin1-display'.") | |||
| 16467 | ;;;*** | 16479 | ;;;*** |
| 16468 | 16480 | ||
| 16469 | ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" | 16481 | ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" |
| 16470 | ;;;;;; (20119 34052)) | 16482 | ;;;;;; (19961 55377)) |
| 16471 | ;;; Generated autoloads from progmodes/ld-script.el | 16483 | ;;; Generated autoloads from progmodes/ld-script.el |
| 16472 | 16484 | ||
| 16473 | (autoload 'ld-script-mode "ld-script" "\ | 16485 | (autoload 'ld-script-mode "ld-script" "\ |
| @@ -16478,7 +16490,7 @@ A major mode to edit GNU ld script files | |||
| 16478 | ;;;*** | 16490 | ;;;*** |
| 16479 | 16491 | ||
| 16480 | ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" | 16492 | ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" |
| 16481 | ;;;;;; (20119 34052)) | 16493 | ;;;;;; (19845 45374)) |
| 16482 | ;;; Generated autoloads from ledit.el | 16494 | ;;; Generated autoloads from ledit.el |
| 16483 | 16495 | ||
| 16484 | (defconst ledit-save-files t "\ | 16496 | (defconst ledit-save-files t "\ |
| @@ -16513,7 +16525,7 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode) | |||
| 16513 | 16525 | ||
| 16514 | ;;;*** | 16526 | ;;;*** |
| 16515 | 16527 | ||
| 16516 | ;;;### (autoloads (life) "life" "play/life.el" (20119 34052)) | 16528 | ;;;### (autoloads (life) "life" "play/life.el" (19845 45374)) |
| 16517 | ;;; Generated autoloads from play/life.el | 16529 | ;;; Generated autoloads from play/life.el |
| 16518 | 16530 | ||
| 16519 | (autoload 'life "life" "\ | 16531 | (autoload 'life "life" "\ |
| @@ -16527,7 +16539,7 @@ generations (this defaults to 1). | |||
| 16527 | ;;;*** | 16539 | ;;;*** |
| 16528 | 16540 | ||
| 16529 | ;;;### (autoloads (global-linum-mode linum-mode linum-format) "linum" | 16541 | ;;;### (autoloads (global-linum-mode linum-mode linum-format) "linum" |
| 16530 | ;;;;;; "linum.el" (20126 50215)) | 16542 | ;;;;;; "linum.el" (20127 62865)) |
| 16531 | ;;; Generated autoloads from linum.el | 16543 | ;;; Generated autoloads from linum.el |
| 16532 | 16544 | ||
| 16533 | (defvar linum-format 'dynamic "\ | 16545 | (defvar linum-format 'dynamic "\ |
| @@ -16572,8 +16584,8 @@ See `linum-mode' for more information on Linum mode. | |||
| 16572 | 16584 | ||
| 16573 | ;;;*** | 16585 | ;;;*** |
| 16574 | 16586 | ||
| 16575 | ;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20119 | 16587 | ;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20168 |
| 16576 | ;;;;;; 34052)) | 16588 | ;;;;;; 57844)) |
| 16577 | ;;; Generated autoloads from loadhist.el | 16589 | ;;; Generated autoloads from loadhist.el |
| 16578 | 16590 | ||
| 16579 | (autoload 'unload-feature "loadhist" "\ | 16591 | (autoload 'unload-feature "loadhist" "\ |
| @@ -16605,7 +16617,7 @@ something strange, such as redefining an Emacs function. | |||
| 16605 | ;;;*** | 16617 | ;;;*** |
| 16606 | 16618 | ||
| 16607 | ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) | 16619 | ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) |
| 16608 | ;;;;;; "locate" "locate.el" (20119 34052)) | 16620 | ;;;;;; "locate" "locate.el" (19886 45771)) |
| 16609 | ;;; Generated autoloads from locate.el | 16621 | ;;; Generated autoloads from locate.el |
| 16610 | 16622 | ||
| 16611 | (defvar locate-ls-subdir-switches (purecopy "-al") "\ | 16623 | (defvar locate-ls-subdir-switches (purecopy "-al") "\ |
| @@ -16657,7 +16669,7 @@ except that FILTER is not optional. | |||
| 16657 | 16669 | ||
| 16658 | ;;;*** | 16670 | ;;;*** |
| 16659 | 16671 | ||
| 16660 | ;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20138 48832)) | 16672 | ;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20138 33157)) |
| 16661 | ;;; Generated autoloads from vc/log-edit.el | 16673 | ;;; Generated autoloads from vc/log-edit.el |
| 16662 | 16674 | ||
| 16663 | (autoload 'log-edit "log-edit" "\ | 16675 | (autoload 'log-edit "log-edit" "\ |
| @@ -16684,8 +16696,8 @@ uses the current buffer. | |||
| 16684 | 16696 | ||
| 16685 | ;;;*** | 16697 | ;;;*** |
| 16686 | 16698 | ||
| 16687 | ;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20119 | 16699 | ;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (19946 |
| 16688 | ;;;;;; 34052)) | 16700 | ;;;;;; 1612)) |
| 16689 | ;;; Generated autoloads from vc/log-view.el | 16701 | ;;; Generated autoloads from vc/log-view.el |
| 16690 | 16702 | ||
| 16691 | (autoload 'log-view-mode "log-view" "\ | 16703 | (autoload 'log-view-mode "log-view" "\ |
| @@ -16695,8 +16707,8 @@ Major mode for browsing CVS log output. | |||
| 16695 | 16707 | ||
| 16696 | ;;;*** | 16708 | ;;;*** |
| 16697 | 16709 | ||
| 16698 | ;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20126 | 16710 | ;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20127 |
| 16699 | ;;;;;; 50224)) | 16711 | ;;;;;; 62865)) |
| 16700 | ;;; Generated autoloads from longlines.el | 16712 | ;;; Generated autoloads from longlines.el |
| 16701 | 16713 | ||
| 16702 | (autoload 'longlines-mode "longlines" "\ | 16714 | (autoload 'longlines-mode "longlines" "\ |
| @@ -16722,13 +16734,15 @@ newlines are indicated with a symbol. | |||
| 16722 | ;;;*** | 16734 | ;;;*** |
| 16723 | 16735 | ||
| 16724 | ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer | 16736 | ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer |
| 16725 | ;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20119 | 16737 | ;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20174 |
| 16726 | ;;;;;; 34052)) | 16738 | ;;;;;; 10230)) |
| 16727 | ;;; Generated autoloads from lpr.el | 16739 | ;;; Generated autoloads from lpr.el |
| 16728 | 16740 | ||
| 16729 | (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt))) | 16741 | (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\ |
| 16742 | Non-nil if running on MS-DOS or MS Windows.") | ||
| 16730 | 16743 | ||
| 16731 | (defvar lpr-lp-system (memq system-type '(usg-unix-v hpux irix))) | 16744 | (defvar lpr-lp-system (memq system-type '(usg-unix-v hpux irix)) "\ |
| 16745 | Non-nil if running on a system type that uses the \"lp\" command.") | ||
| 16732 | 16746 | ||
| 16733 | (defvar printer-name (and (eq system-type 'ms-dos) "PRN") "\ | 16747 | (defvar printer-name (and (eq system-type 'ms-dos) "PRN") "\ |
| 16734 | The name of a local printer to which data is sent for printing. | 16748 | The name of a local printer to which data is sent for printing. |
| @@ -16817,7 +16831,7 @@ for further customization of the printer command. | |||
| 16817 | ;;;*** | 16831 | ;;;*** |
| 16818 | 16832 | ||
| 16819 | ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" | 16833 | ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" |
| 16820 | ;;;;;; (20119 34052)) | 16834 | ;;;;;; (19886 45771)) |
| 16821 | ;;; Generated autoloads from ls-lisp.el | 16835 | ;;; Generated autoloads from ls-lisp.el |
| 16822 | 16836 | ||
| 16823 | (defvar ls-lisp-support-shell-wildcards t "\ | 16837 | (defvar ls-lisp-support-shell-wildcards t "\ |
| @@ -16828,8 +16842,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") | |||
| 16828 | 16842 | ||
| 16829 | ;;;*** | 16843 | ;;;*** |
| 16830 | 16844 | ||
| 16831 | ;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (20119 | 16845 | ;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (19845 |
| 16832 | ;;;;;; 34052)) | 16846 | ;;;;;; 45374)) |
| 16833 | ;;; Generated autoloads from calendar/lunar.el | 16847 | ;;; Generated autoloads from calendar/lunar.el |
| 16834 | 16848 | ||
| 16835 | (autoload 'lunar-phases "lunar" "\ | 16849 | (autoload 'lunar-phases "lunar" "\ |
| @@ -16843,8 +16857,8 @@ This function is suitable for execution in a .emacs file. | |||
| 16843 | 16857 | ||
| 16844 | ;;;*** | 16858 | ;;;*** |
| 16845 | 16859 | ||
| 16846 | ;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (20119 | 16860 | ;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (19845 |
| 16847 | ;;;;;; 34052)) | 16861 | ;;;;;; 45374)) |
| 16848 | ;;; Generated autoloads from progmodes/m4-mode.el | 16862 | ;;; Generated autoloads from progmodes/m4-mode.el |
| 16849 | 16863 | ||
| 16850 | (autoload 'm4-mode "m4-mode" "\ | 16864 | (autoload 'm4-mode "m4-mode" "\ |
| @@ -16855,7 +16869,7 @@ A major mode to edit m4 macro files. | |||
| 16855 | ;;;*** | 16869 | ;;;*** |
| 16856 | 16870 | ||
| 16857 | ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" | 16871 | ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" |
| 16858 | ;;;;;; (20119 34052)) | 16872 | ;;;;;; (19930 13389)) |
| 16859 | ;;; Generated autoloads from emacs-lisp/macroexp.el | 16873 | ;;; Generated autoloads from emacs-lisp/macroexp.el |
| 16860 | 16874 | ||
| 16861 | (autoload 'macroexpand-all "macroexp" "\ | 16875 | (autoload 'macroexpand-all "macroexp" "\ |
| @@ -16869,7 +16883,7 @@ definitions to shadow the loaded ones for use in file byte-compilation. | |||
| 16869 | ;;;*** | 16883 | ;;;*** |
| 16870 | 16884 | ||
| 16871 | ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro | 16885 | ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro |
| 16872 | ;;;;;; name-last-kbd-macro) "macros" "macros.el" (20119 34052)) | 16886 | ;;;;;; name-last-kbd-macro) "macros" "macros.el" (19886 45771)) |
| 16873 | ;;; Generated autoloads from macros.el | 16887 | ;;; Generated autoloads from macros.el |
| 16874 | 16888 | ||
| 16875 | (autoload 'name-last-kbd-macro "macros" "\ | 16889 | (autoload 'name-last-kbd-macro "macros" "\ |
| @@ -16958,7 +16972,7 @@ and then select the region of un-tablified names and use | |||
| 16958 | ;;;*** | 16972 | ;;;*** |
| 16959 | 16973 | ||
| 16960 | ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" | 16974 | ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" |
| 16961 | ;;;;;; "mail/mail-extr.el" (20119 34052)) | 16975 | ;;;;;; "mail/mail-extr.el" (20160 63745)) |
| 16962 | ;;; Generated autoloads from mail/mail-extr.el | 16976 | ;;; Generated autoloads from mail/mail-extr.el |
| 16963 | 16977 | ||
| 16964 | (autoload 'mail-extract-address-components "mail-extr" "\ | 16978 | (autoload 'mail-extract-address-components "mail-extr" "\ |
| @@ -16990,7 +17004,7 @@ Convert mail domain DOMAIN to the country it corresponds to. | |||
| 16990 | 17004 | ||
| 16991 | ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history | 17005 | ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history |
| 16992 | ;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" | 17006 | ;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" |
| 16993 | ;;;;;; (20119 34052)) | 17007 | ;;;;;; (19845 45374)) |
| 16994 | ;;; Generated autoloads from mail/mail-hist.el | 17008 | ;;; Generated autoloads from mail/mail-hist.el |
| 16995 | 17009 | ||
| 16996 | (autoload 'mail-hist-define-keys "mail-hist" "\ | 17010 | (autoload 'mail-hist-define-keys "mail-hist" "\ |
| @@ -17022,7 +17036,7 @@ This function normally would be called when the message is sent. | |||
| 17022 | ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region | 17036 | ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region |
| 17023 | ;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable | 17037 | ;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable |
| 17024 | ;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822) | 17038 | ;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822) |
| 17025 | ;;;;;; "mail-utils" "mail/mail-utils.el" (20119 34052)) | 17039 | ;;;;;; "mail-utils" "mail/mail-utils.el" (19922 19303)) |
| 17026 | ;;; Generated autoloads from mail/mail-utils.el | 17040 | ;;; Generated autoloads from mail/mail-utils.el |
| 17027 | 17041 | ||
| 17028 | (defvar mail-use-rfc822 nil "\ | 17042 | (defvar mail-use-rfc822 nil "\ |
| @@ -17095,7 +17109,7 @@ matches may be returned from the message body. | |||
| 17095 | 17109 | ||
| 17096 | ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup | 17110 | ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup |
| 17097 | ;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20127 | 17111 | ;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20127 |
| 17098 | ;;;;;; 25972)) | 17112 | ;;;;;; 62865)) |
| 17099 | ;;; Generated autoloads from mail/mailabbrev.el | 17113 | ;;; Generated autoloads from mail/mailabbrev.el |
| 17100 | 17114 | ||
| 17101 | (defvar mail-abbrevs-mode nil "\ | 17115 | (defvar mail-abbrevs-mode nil "\ |
| @@ -17146,7 +17160,7 @@ double-quotes. | |||
| 17146 | 17160 | ||
| 17147 | ;;;### (autoloads (mail-complete mail-completion-at-point-function | 17161 | ;;;### (autoloads (mail-complete mail-completion-at-point-function |
| 17148 | ;;;;;; define-mail-alias expand-mail-aliases mail-complete-style) | 17162 | ;;;;;; define-mail-alias expand-mail-aliases mail-complete-style) |
| 17149 | ;;;;;; "mailalias" "mail/mailalias.el" (20119 34052)) | 17163 | ;;;;;; "mailalias" "mail/mailalias.el" (19881 27850)) |
| 17150 | ;;; Generated autoloads from mail/mailalias.el | 17164 | ;;; Generated autoloads from mail/mailalias.el |
| 17151 | 17165 | ||
| 17152 | (defvar mail-complete-style 'angles "\ | 17166 | (defvar mail-complete-style 'angles "\ |
| @@ -17198,7 +17212,7 @@ current header, calls `mail-complete-function' and passes prefix ARG if any. | |||
| 17198 | ;;;*** | 17212 | ;;;*** |
| 17199 | 17213 | ||
| 17200 | ;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el" | 17214 | ;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el" |
| 17201 | ;;;;;; (20119 34052)) | 17215 | ;;;;;; (19845 45374)) |
| 17202 | ;;; Generated autoloads from mail/mailclient.el | 17216 | ;;; Generated autoloads from mail/mailclient.el |
| 17203 | 17217 | ||
| 17204 | (autoload 'mailclient-send-it "mailclient" "\ | 17218 | (autoload 'mailclient-send-it "mailclient" "\ |
| @@ -17212,7 +17226,7 @@ The mail client is taken to be the handler of mailto URLs. | |||
| 17212 | 17226 | ||
| 17213 | ;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode | 17227 | ;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode |
| 17214 | ;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode) | 17228 | ;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode) |
| 17215 | ;;;;;; "make-mode" "progmodes/make-mode.el" (20119 34052)) | 17229 | ;;;;;; "make-mode" "progmodes/make-mode.el" (20176 51947)) |
| 17216 | ;;; Generated autoloads from progmodes/make-mode.el | 17230 | ;;; Generated autoloads from progmodes/make-mode.el |
| 17217 | 17231 | ||
| 17218 | (autoload 'makefile-mode "make-mode" "\ | 17232 | (autoload 'makefile-mode "make-mode" "\ |
| @@ -17329,8 +17343,8 @@ An adapted `makefile-mode' that knows about imake. | |||
| 17329 | 17343 | ||
| 17330 | ;;;*** | 17344 | ;;;*** |
| 17331 | 17345 | ||
| 17332 | ;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20119 | 17346 | ;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (19886 |
| 17333 | ;;;;;; 34052)) | 17347 | ;;;;;; 45771)) |
| 17334 | ;;; Generated autoloads from makesum.el | 17348 | ;;; Generated autoloads from makesum.el |
| 17335 | 17349 | ||
| 17336 | (autoload 'make-command-summary "makesum" "\ | 17350 | (autoload 'make-command-summary "makesum" "\ |
| @@ -17342,7 +17356,7 @@ Previous contents of that buffer are killed first. | |||
| 17342 | ;;;*** | 17356 | ;;;*** |
| 17343 | 17357 | ||
| 17344 | ;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el" | 17358 | ;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el" |
| 17345 | ;;;;;; (20119 34052)) | 17359 | ;;;;;; (20178 7273)) |
| 17346 | ;;; Generated autoloads from man.el | 17360 | ;;; Generated autoloads from man.el |
| 17347 | 17361 | ||
| 17348 | (defalias 'manual-entry 'man) | 17362 | (defalias 'manual-entry 'man) |
| @@ -17396,7 +17410,7 @@ Default bookmark handler for Man buffers. | |||
| 17396 | 17410 | ||
| 17397 | ;;;*** | 17411 | ;;;*** |
| 17398 | 17412 | ||
| 17399 | ;;;### (autoloads (master-mode) "master" "master.el" (20126 50238)) | 17413 | ;;;### (autoloads (master-mode) "master" "master.el" (20127 62865)) |
| 17400 | ;;; Generated autoloads from master.el | 17414 | ;;; Generated autoloads from master.el |
| 17401 | 17415 | ||
| 17402 | (autoload 'master-mode "master" "\ | 17416 | (autoload 'master-mode "master" "\ |
| @@ -17419,7 +17433,7 @@ yourself the value of `master-of' by calling `master-show-slave'. | |||
| 17419 | ;;;*** | 17433 | ;;;*** |
| 17420 | 17434 | ||
| 17421 | ;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el" | 17435 | ;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el" |
| 17422 | ;;;;;; (20126 50247)) | 17436 | ;;;;;; (20127 62865)) |
| 17423 | ;;; Generated autoloads from mb-depth.el | 17437 | ;;; Generated autoloads from mb-depth.el |
| 17424 | 17438 | ||
| 17425 | (defvar minibuffer-depth-indicate-mode nil "\ | 17439 | (defvar minibuffer-depth-indicate-mode nil "\ |
| @@ -17452,7 +17466,7 @@ recursion depth in the minibuffer prompt. This is only useful if | |||
| 17452 | ;;;;;; message-forward-make-body message-forward message-recover | 17466 | ;;;;;; message-forward-make-body message-forward message-recover |
| 17453 | ;;;;;; message-supersede message-cancel-news message-followup message-wide-reply | 17467 | ;;;;;; message-supersede message-cancel-news message-followup message-wide-reply |
| 17454 | ;;;;;; message-reply message-news message-mail message-mode) "message" | 17468 | ;;;;;; message-reply message-news message-mail message-mode) "message" |
| 17455 | ;;;;;; "gnus/message.el" (20136 50092)) | 17469 | ;;;;;; "gnus/message.el" (20183 25152)) |
| 17456 | ;;; Generated autoloads from gnus/message.el | 17470 | ;;; Generated autoloads from gnus/message.el |
| 17457 | 17471 | ||
| 17458 | (define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) | 17472 | (define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) |
| @@ -17618,7 +17632,7 @@ which specify the range to operate on. | |||
| 17618 | ;;;*** | 17632 | ;;;*** |
| 17619 | 17633 | ||
| 17620 | ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" | 17634 | ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" |
| 17621 | ;;;;;; (20119 34052)) | 17635 | ;;;;;; (20164 60780)) |
| 17622 | ;;; Generated autoloads from progmodes/meta-mode.el | 17636 | ;;; Generated autoloads from progmodes/meta-mode.el |
| 17623 | 17637 | ||
| 17624 | (autoload 'metafont-mode "meta-mode" "\ | 17638 | (autoload 'metafont-mode "meta-mode" "\ |
| @@ -17635,7 +17649,7 @@ Major mode for editing MetaPost sources. | |||
| 17635 | 17649 | ||
| 17636 | ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body | 17650 | ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body |
| 17637 | ;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" | 17651 | ;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" |
| 17638 | ;;;;;; (20119 34052)) | 17652 | ;;;;;; (20168 57844)) |
| 17639 | ;;; Generated autoloads from mail/metamail.el | 17653 | ;;; Generated autoloads from mail/metamail.el |
| 17640 | 17654 | ||
| 17641 | (autoload 'metamail-interpret-header "metamail" "\ | 17655 | (autoload 'metamail-interpret-header "metamail" "\ |
| @@ -17680,7 +17694,7 @@ redisplayed as output is inserted. | |||
| 17680 | 17694 | ||
| 17681 | ;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose | 17695 | ;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose |
| 17682 | ;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" | 17696 | ;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" |
| 17683 | ;;;;;; "mh-e/mh-comp.el" (20119 34052)) | 17697 | ;;;;;; "mh-e/mh-comp.el" (20160 63745)) |
| 17684 | ;;; Generated autoloads from mh-e/mh-comp.el | 17698 | ;;; Generated autoloads from mh-e/mh-comp.el |
| 17685 | 17699 | ||
| 17686 | (autoload 'mh-smail "mh-comp" "\ | 17700 | (autoload 'mh-smail "mh-comp" "\ |
| @@ -17770,7 +17784,7 @@ delete the draft message. | |||
| 17770 | 17784 | ||
| 17771 | ;;;*** | 17785 | ;;;*** |
| 17772 | 17786 | ||
| 17773 | ;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20119 34052)) | 17787 | ;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20170 13157)) |
| 17774 | ;;; Generated autoloads from mh-e/mh-e.el | 17788 | ;;; Generated autoloads from mh-e/mh-e.el |
| 17775 | 17789 | ||
| 17776 | (put 'mh-progs 'risky-local-variable t) | 17790 | (put 'mh-progs 'risky-local-variable t) |
| @@ -17787,7 +17801,7 @@ Display version information about MH-E and the MH mail handling system. | |||
| 17787 | ;;;*** | 17801 | ;;;*** |
| 17788 | 17802 | ||
| 17789 | ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" | 17803 | ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" |
| 17790 | ;;;;;; "mh-e/mh-folder.el" (20119 34052)) | 17804 | ;;;;;; "mh-e/mh-folder.el" (20004 2139)) |
| 17791 | ;;; Generated autoloads from mh-e/mh-folder.el | 17805 | ;;; Generated autoloads from mh-e/mh-folder.el |
| 17792 | 17806 | ||
| 17793 | (autoload 'mh-rmail "mh-folder" "\ | 17807 | (autoload 'mh-rmail "mh-folder" "\ |
| @@ -17869,7 +17883,7 @@ perform the operation on all messages in that region. | |||
| 17869 | ;;;*** | 17883 | ;;;*** |
| 17870 | 17884 | ||
| 17871 | ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" | 17885 | ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" |
| 17872 | ;;;;;; "midnight.el" (20119 34052)) | 17886 | ;;;;;; "midnight.el" (19853 59245)) |
| 17873 | ;;; Generated autoloads from midnight.el | 17887 | ;;; Generated autoloads from midnight.el |
| 17874 | 17888 | ||
| 17875 | (autoload 'clean-buffer-list "midnight" "\ | 17889 | (autoload 'clean-buffer-list "midnight" "\ |
| @@ -17896,7 +17910,7 @@ to its second argument TM. | |||
| 17896 | ;;;*** | 17910 | ;;;*** |
| 17897 | 17911 | ||
| 17898 | ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" | 17912 | ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" |
| 17899 | ;;;;;; "minibuf-eldef.el" (20126 50271)) | 17913 | ;;;;;; "minibuf-eldef.el" (20127 62865)) |
| 17900 | ;;; Generated autoloads from minibuf-eldef.el | 17914 | ;;; Generated autoloads from minibuf-eldef.el |
| 17901 | 17915 | ||
| 17902 | (defvar minibuffer-electric-default-mode nil "\ | 17916 | (defvar minibuffer-electric-default-mode nil "\ |
| @@ -17926,7 +17940,7 @@ is modified to remove the default indication. | |||
| 17926 | ;;;*** | 17940 | ;;;*** |
| 17927 | 17941 | ||
| 17928 | ;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el" | 17942 | ;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el" |
| 17929 | ;;;;;; (20119 34052)) | 17943 | ;;;;;; (19968 28627)) |
| 17930 | ;;; Generated autoloads from misc.el | 17944 | ;;; Generated autoloads from misc.el |
| 17931 | 17945 | ||
| 17932 | (autoload 'butterfly "misc" "\ | 17946 | (autoload 'butterfly "misc" "\ |
| @@ -17956,7 +17970,7 @@ The return value is always nil. | |||
| 17956 | 17970 | ||
| 17957 | ;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files | 17971 | ;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files |
| 17958 | ;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup) | 17972 | ;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup) |
| 17959 | ;;;;;; "misearch" "misearch.el" (20119 34052)) | 17973 | ;;;;;; "misearch" "misearch.el" (20168 57844)) |
| 17960 | ;;; Generated autoloads from misearch.el | 17974 | ;;; Generated autoloads from misearch.el |
| 17961 | (add-hook 'isearch-mode-hook 'multi-isearch-setup) | 17975 | (add-hook 'isearch-mode-hook 'multi-isearch-setup) |
| 17962 | 17976 | ||
| @@ -18038,7 +18052,7 @@ whose file names match the specified wildcard. | |||
| 18038 | ;;;*** | 18052 | ;;;*** |
| 18039 | 18053 | ||
| 18040 | ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" | 18054 | ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" |
| 18041 | ;;;;;; (20119 34052)) | 18055 | ;;;;;; (20162 19074)) |
| 18042 | ;;; Generated autoloads from progmodes/mixal-mode.el | 18056 | ;;; Generated autoloads from progmodes/mixal-mode.el |
| 18043 | 18057 | ||
| 18044 | (autoload 'mixal-mode "mixal-mode" "\ | 18058 | (autoload 'mixal-mode "mixal-mode" "\ |
| @@ -18049,7 +18063,7 @@ Major mode for the mixal asm language. | |||
| 18049 | ;;;*** | 18063 | ;;;*** |
| 18050 | 18064 | ||
| 18051 | ;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el" | 18065 | ;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el" |
| 18052 | ;;;;;; (20119 34052)) | 18066 | ;;;;;; (20075 14682)) |
| 18053 | ;;; Generated autoloads from gnus/mm-encode.el | 18067 | ;;; Generated autoloads from gnus/mm-encode.el |
| 18054 | 18068 | ||
| 18055 | (autoload 'mm-default-file-encoding "mm-encode" "\ | 18069 | (autoload 'mm-default-file-encoding "mm-encode" "\ |
| @@ -18060,7 +18074,7 @@ Return a default encoding for FILE. | |||
| 18060 | ;;;*** | 18074 | ;;;*** |
| 18061 | 18075 | ||
| 18062 | ;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents) | 18076 | ;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents) |
| 18063 | ;;;;;; "mm-extern" "gnus/mm-extern.el" (20119 34052)) | 18077 | ;;;;;; "mm-extern" "gnus/mm-extern.el" (19845 45374)) |
| 18064 | ;;; Generated autoloads from gnus/mm-extern.el | 18078 | ;;; Generated autoloads from gnus/mm-extern.el |
| 18065 | 18079 | ||
| 18066 | (autoload 'mm-extern-cache-contents "mm-extern" "\ | 18080 | (autoload 'mm-extern-cache-contents "mm-extern" "\ |
| @@ -18079,7 +18093,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. | |||
| 18079 | ;;;*** | 18093 | ;;;*** |
| 18080 | 18094 | ||
| 18081 | ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" | 18095 | ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" |
| 18082 | ;;;;;; (20119 34052)) | 18096 | ;;;;;; (19845 45374)) |
| 18083 | ;;; Generated autoloads from gnus/mm-partial.el | 18097 | ;;; Generated autoloads from gnus/mm-partial.el |
| 18084 | 18098 | ||
| 18085 | (autoload 'mm-inline-partial "mm-partial" "\ | 18099 | (autoload 'mm-inline-partial "mm-partial" "\ |
| @@ -18093,7 +18107,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. | |||
| 18093 | ;;;*** | 18107 | ;;;*** |
| 18094 | 18108 | ||
| 18095 | ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) | 18109 | ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) |
| 18096 | ;;;;;; "mm-url" "gnus/mm-url.el" (20119 34052)) | 18110 | ;;;;;; "mm-url" "gnus/mm-url.el" (19877 30798)) |
| 18097 | ;;; Generated autoloads from gnus/mm-url.el | 18111 | ;;; Generated autoloads from gnus/mm-url.el |
| 18098 | 18112 | ||
| 18099 | (autoload 'mm-url-insert-file-contents "mm-url" "\ | 18113 | (autoload 'mm-url-insert-file-contents "mm-url" "\ |
| @@ -18110,7 +18124,7 @@ Insert file contents of URL using `mm-url-program'. | |||
| 18110 | ;;;*** | 18124 | ;;;*** |
| 18111 | 18125 | ||
| 18112 | ;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu" | 18126 | ;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu" |
| 18113 | ;;;;;; "gnus/mm-uu.el" (20119 34052)) | 18127 | ;;;;;; "gnus/mm-uu.el" (19845 45374)) |
| 18114 | ;;; Generated autoloads from gnus/mm-uu.el | 18128 | ;;; Generated autoloads from gnus/mm-uu.el |
| 18115 | 18129 | ||
| 18116 | (autoload 'mm-uu-dissect "mm-uu" "\ | 18130 | (autoload 'mm-uu-dissect "mm-uu" "\ |
| @@ -18130,7 +18144,7 @@ Assume text has been decoded if DECODED is non-nil. | |||
| 18130 | ;;;*** | 18144 | ;;;*** |
| 18131 | 18145 | ||
| 18132 | ;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el" | 18146 | ;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el" |
| 18133 | ;;;;;; (20136 50092)) | 18147 | ;;;;;; (20183 25152)) |
| 18134 | ;;; Generated autoloads from gnus/mml.el | 18148 | ;;; Generated autoloads from gnus/mml.el |
| 18135 | 18149 | ||
| 18136 | (autoload 'mml-to-mime "mml" "\ | 18150 | (autoload 'mml-to-mime "mml" "\ |
| @@ -18155,7 +18169,7 @@ body) or \"attachment\" (separate from the body). | |||
| 18155 | ;;;*** | 18169 | ;;;*** |
| 18156 | 18170 | ||
| 18157 | ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" | 18171 | ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" |
| 18158 | ;;;;;; (20124 17058)) | 18172 | ;;;;;; (20124 236)) |
| 18159 | ;;; Generated autoloads from gnus/mml1991.el | 18173 | ;;; Generated autoloads from gnus/mml1991.el |
| 18160 | 18174 | ||
| 18161 | (autoload 'mml1991-encrypt "mml1991" "\ | 18175 | (autoload 'mml1991-encrypt "mml1991" "\ |
| @@ -18172,7 +18186,7 @@ body) or \"attachment\" (separate from the body). | |||
| 18172 | 18186 | ||
| 18173 | ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt | 18187 | ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt |
| 18174 | ;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) | 18188 | ;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) |
| 18175 | ;;;;;; "mml2015" "gnus/mml2015.el" (20124 17058)) | 18189 | ;;;;;; "mml2015" "gnus/mml2015.el" (20124 236)) |
| 18176 | ;;; Generated autoloads from gnus/mml2015.el | 18190 | ;;; Generated autoloads from gnus/mml2015.el |
| 18177 | 18191 | ||
| 18178 | (autoload 'mml2015-decrypt "mml2015" "\ | 18192 | (autoload 'mml2015-decrypt "mml2015" "\ |
| @@ -18212,8 +18226,8 @@ body) or \"attachment\" (separate from the body). | |||
| 18212 | 18226 | ||
| 18213 | ;;;*** | 18227 | ;;;*** |
| 18214 | 18228 | ||
| 18215 | ;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20119 | 18229 | ;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20159 |
| 18216 | ;;;;;; 34052)) | 18230 | ;;;;;; 42847)) |
| 18217 | ;;; Generated autoloads from progmodes/modula2.el | 18231 | ;;; Generated autoloads from progmodes/modula2.el |
| 18218 | 18232 | ||
| 18219 | (defalias 'modula-2-mode 'm2-mode) | 18233 | (defalias 'modula-2-mode 'm2-mode) |
| @@ -18247,7 +18261,7 @@ followed by the first character of the construct. | |||
| 18247 | ;;;*** | 18261 | ;;;*** |
| 18248 | 18262 | ||
| 18249 | ;;;### (autoloads (denato-region nato-region unmorse-region morse-region) | 18263 | ;;;### (autoloads (denato-region nato-region unmorse-region morse-region) |
| 18250 | ;;;;;; "morse" "play/morse.el" (20119 34052)) | 18264 | ;;;;;; "morse" "play/morse.el" (19869 36706)) |
| 18251 | ;;; Generated autoloads from play/morse.el | 18265 | ;;; Generated autoloads from play/morse.el |
| 18252 | 18266 | ||
| 18253 | (autoload 'morse-region "morse" "\ | 18267 | (autoload 'morse-region "morse" "\ |
| @@ -18273,7 +18287,7 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text. | |||
| 18273 | ;;;*** | 18287 | ;;;*** |
| 18274 | 18288 | ||
| 18275 | ;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag" | 18289 | ;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag" |
| 18276 | ;;;;;; "mouse-drag.el" (20119 34052)) | 18290 | ;;;;;; "mouse-drag.el" (19890 42850)) |
| 18277 | ;;; Generated autoloads from mouse-drag.el | 18291 | ;;; Generated autoloads from mouse-drag.el |
| 18278 | 18292 | ||
| 18279 | (autoload 'mouse-drag-throw "mouse-drag" "\ | 18293 | (autoload 'mouse-drag-throw "mouse-drag" "\ |
| @@ -18320,8 +18334,8 @@ To test this function, evaluate: | |||
| 18320 | 18334 | ||
| 18321 | ;;;*** | 18335 | ;;;*** |
| 18322 | 18336 | ||
| 18323 | ;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (20126 | 18337 | ;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (20168 |
| 18324 | ;;;;;; 50277)) | 18338 | ;;;;;; 57844)) |
| 18325 | ;;; Generated autoloads from mouse-sel.el | 18339 | ;;; Generated autoloads from mouse-sel.el |
| 18326 | 18340 | ||
| 18327 | (defvar mouse-sel-mode nil "\ | 18341 | (defvar mouse-sel-mode nil "\ |
| @@ -18364,7 +18378,7 @@ kill ring; mouse-1 or mouse-3 kills it. | |||
| 18364 | 18378 | ||
| 18365 | ;;;*** | 18379 | ;;;*** |
| 18366 | 18380 | ||
| 18367 | ;;;### (autoloads (mpc) "mpc" "mpc.el" (20120 43280)) | 18381 | ;;;### (autoloads (mpc) "mpc" "mpc.el" (20178 7273)) |
| 18368 | ;;; Generated autoloads from mpc.el | 18382 | ;;; Generated autoloads from mpc.el |
| 18369 | 18383 | ||
| 18370 | (autoload 'mpc "mpc" "\ | 18384 | (autoload 'mpc "mpc" "\ |
| @@ -18374,7 +18388,7 @@ Main entry point for MPC. | |||
| 18374 | 18388 | ||
| 18375 | ;;;*** | 18389 | ;;;*** |
| 18376 | 18390 | ||
| 18377 | ;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20119 34052)) | 18391 | ;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (19890 42850)) |
| 18378 | ;;; Generated autoloads from play/mpuz.el | 18392 | ;;; Generated autoloads from play/mpuz.el |
| 18379 | 18393 | ||
| 18380 | (autoload 'mpuz "mpuz" "\ | 18394 | (autoload 'mpuz "mpuz" "\ |
| @@ -18384,7 +18398,7 @@ Multiplication puzzle with GNU Emacs. | |||
| 18384 | 18398 | ||
| 18385 | ;;;*** | 18399 | ;;;*** |
| 18386 | 18400 | ||
| 18387 | ;;;### (autoloads (msb-mode) "msb" "msb.el" (20126 50286)) | 18401 | ;;;### (autoloads (msb-mode) "msb" "msb.el" (20127 62865)) |
| 18388 | ;;; Generated autoloads from msb.el | 18402 | ;;; Generated autoloads from msb.el |
| 18389 | 18403 | ||
| 18390 | (defvar msb-mode nil "\ | 18404 | (defvar msb-mode nil "\ |
| @@ -18414,7 +18428,7 @@ different buffer menu using the function `msb'. | |||
| 18414 | ;;;;;; describe-current-coding-system describe-current-coding-system-briefly | 18428 | ;;;;;; describe-current-coding-system describe-current-coding-system-briefly |
| 18415 | ;;;;;; describe-coding-system describe-character-set list-charset-chars | 18429 | ;;;;;; describe-coding-system describe-character-set list-charset-chars |
| 18416 | ;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" | 18430 | ;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" |
| 18417 | ;;;;;; (20119 34052)) | 18431 | ;;;;;; (20160 63745)) |
| 18418 | ;;; Generated autoloads from international/mule-diag.el | 18432 | ;;; Generated autoloads from international/mule-diag.el |
| 18419 | 18433 | ||
| 18420 | (autoload 'list-character-sets "mule-diag" "\ | 18434 | (autoload 'list-character-sets "mule-diag" "\ |
| @@ -18551,7 +18565,7 @@ The default is 20. If LIMIT is negative, do not limit the listing. | |||
| 18551 | ;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion | 18565 | ;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion |
| 18552 | ;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist | 18566 | ;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist |
| 18553 | ;;;;;; truncate-string-to-width store-substring string-to-sequence) | 18567 | ;;;;;; truncate-string-to-width store-substring string-to-sequence) |
| 18554 | ;;;;;; "mule-util" "international/mule-util.el" (20119 34052)) | 18568 | ;;;;;; "mule-util" "international/mule-util.el" (19845 45374)) |
| 18555 | ;;; Generated autoloads from international/mule-util.el | 18569 | ;;; Generated autoloads from international/mule-util.el |
| 18556 | 18570 | ||
| 18557 | (autoload 'string-to-sequence "mule-util" "\ | 18571 | (autoload 'string-to-sequence "mule-util" "\ |
| @@ -18691,8 +18705,8 @@ per-character basis, this may not be accurate. | |||
| 18691 | ;;;### (autoloads (network-connection network-connection-to-service | 18705 | ;;;### (autoloads (network-connection network-connection-to-service |
| 18692 | ;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host | 18706 | ;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host |
| 18693 | ;;;;;; nslookup nslookup-host ping traceroute route arp netstat | 18707 | ;;;;;; nslookup nslookup-host ping traceroute route arp netstat |
| 18694 | ;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20119 | 18708 | ;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (19845 |
| 18695 | ;;;;;; 34052)) | 18709 | ;;;;;; 45374)) |
| 18696 | ;;; Generated autoloads from net/net-utils.el | 18710 | ;;; Generated autoloads from net/net-utils.el |
| 18697 | 18711 | ||
| 18698 | (autoload 'ifconfig "net-utils" "\ | 18712 | (autoload 'ifconfig "net-utils" "\ |
| @@ -18786,8 +18800,8 @@ Open a network connection to HOST on PORT. | |||
| 18786 | 18800 | ||
| 18787 | ;;;*** | 18801 | ;;;*** |
| 18788 | 18802 | ||
| 18789 | ;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20119 | 18803 | ;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (19845 |
| 18790 | ;;;;;; 34052)) | 18804 | ;;;;;; 45374)) |
| 18791 | ;;; Generated autoloads from net/netrc.el | 18805 | ;;; Generated autoloads from net/netrc.el |
| 18792 | 18806 | ||
| 18793 | (autoload 'netrc-credentials "netrc" "\ | 18807 | (autoload 'netrc-credentials "netrc" "\ |
| @@ -18800,7 +18814,7 @@ listed in the PORTS list. | |||
| 18800 | ;;;*** | 18814 | ;;;*** |
| 18801 | 18815 | ||
| 18802 | ;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el" | 18816 | ;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el" |
| 18803 | ;;;;;; (20121 47865)) | 18817 | ;;;;;; (20122 44898)) |
| 18804 | ;;; Generated autoloads from net/network-stream.el | 18818 | ;;; Generated autoloads from net/network-stream.el |
| 18805 | 18819 | ||
| 18806 | (autoload 'open-network-stream "network-stream" "\ | 18820 | (autoload 'open-network-stream "network-stream" "\ |
| @@ -18896,7 +18910,7 @@ functionality. | |||
| 18896 | ;;;;;; uncomment-region comment-kill comment-set-column comment-indent | 18910 | ;;;;;; uncomment-region comment-kill comment-set-column comment-indent |
| 18897 | ;;;;;; comment-indent-default comment-normalize-vars comment-multi-line | 18911 | ;;;;;; comment-indent-default comment-normalize-vars comment-multi-line |
| 18898 | ;;;;;; comment-padding comment-style comment-column) "newcomment" | 18912 | ;;;;;; comment-padding comment-style comment-column) "newcomment" |
| 18899 | ;;;;;; "newcomment.el" (20119 34052)) | 18913 | ;;;;;; "newcomment.el" (20087 5852)) |
| 18900 | ;;; Generated autoloads from newcomment.el | 18914 | ;;; Generated autoloads from newcomment.el |
| 18901 | 18915 | ||
| 18902 | (defalias 'indent-for-comment 'comment-indent) | 18916 | (defalias 'indent-for-comment 'comment-indent) |
| @@ -19096,7 +19110,7 @@ unless optional argument SOFT is non-nil. | |||
| 19096 | ;;;*** | 19110 | ;;;*** |
| 19097 | 19111 | ||
| 19098 | ;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend" | 19112 | ;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend" |
| 19099 | ;;;;;; "net/newst-backend.el" (20119 34052)) | 19113 | ;;;;;; "net/newst-backend.el" (19918 22236)) |
| 19100 | ;;; Generated autoloads from net/newst-backend.el | 19114 | ;;; Generated autoloads from net/newst-backend.el |
| 19101 | 19115 | ||
| 19102 | (autoload 'newsticker-running-p "newst-backend" "\ | 19116 | (autoload 'newsticker-running-p "newst-backend" "\ |
| @@ -19118,7 +19132,7 @@ Run `newsticker-start-hook' if newsticker was not running already. | |||
| 19118 | ;;;*** | 19132 | ;;;*** |
| 19119 | 19133 | ||
| 19120 | ;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el" | 19134 | ;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el" |
| 19121 | ;;;;;; (20119 34052)) | 19135 | ;;;;;; (20167 36967)) |
| 19122 | ;;; Generated autoloads from net/newst-plainview.el | 19136 | ;;; Generated autoloads from net/newst-plainview.el |
| 19123 | 19137 | ||
| 19124 | (autoload 'newsticker-plainview "newst-plainview" "\ | 19138 | (autoload 'newsticker-plainview "newst-plainview" "\ |
| @@ -19129,7 +19143,7 @@ Start newsticker plainview. | |||
| 19129 | ;;;*** | 19143 | ;;;*** |
| 19130 | 19144 | ||
| 19131 | ;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el" | 19145 | ;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el" |
| 19132 | ;;;;;; (20139 41953)) | 19146 | ;;;;;; (20094 65493)) |
| 19133 | ;;; Generated autoloads from net/newst-reader.el | 19147 | ;;; Generated autoloads from net/newst-reader.el |
| 19134 | 19148 | ||
| 19135 | (autoload 'newsticker-show-news "newst-reader" "\ | 19149 | (autoload 'newsticker-show-news "newst-reader" "\ |
| @@ -19140,7 +19154,7 @@ Start reading news. You may want to bind this to a key. | |||
| 19140 | ;;;*** | 19154 | ;;;*** |
| 19141 | 19155 | ||
| 19142 | ;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p) | 19156 | ;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p) |
| 19143 | ;;;;;; "newst-ticker" "net/newst-ticker.el" (20119 34052)) | 19157 | ;;;;;; "newst-ticker" "net/newst-ticker.el" (19845 45374)) |
| 19144 | ;;; Generated autoloads from net/newst-ticker.el | 19158 | ;;; Generated autoloads from net/newst-ticker.el |
| 19145 | 19159 | ||
| 19146 | (autoload 'newsticker-ticker-running-p "newst-ticker" "\ | 19160 | (autoload 'newsticker-ticker-running-p "newst-ticker" "\ |
| @@ -19161,7 +19175,7 @@ running already. | |||
| 19161 | ;;;*** | 19175 | ;;;*** |
| 19162 | 19176 | ||
| 19163 | ;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el" | 19177 | ;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el" |
| 19164 | ;;;;;; (20141 61905)) | 19178 | ;;;;;; (20168 57844)) |
| 19165 | ;;; Generated autoloads from net/newst-treeview.el | 19179 | ;;; Generated autoloads from net/newst-treeview.el |
| 19166 | 19180 | ||
| 19167 | (autoload 'newsticker-treeview "newst-treeview" "\ | 19181 | (autoload 'newsticker-treeview "newst-treeview" "\ |
| @@ -19172,7 +19186,7 @@ Start newsticker treeview. | |||
| 19172 | ;;;*** | 19186 | ;;;*** |
| 19173 | 19187 | ||
| 19174 | ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" | 19188 | ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" |
| 19175 | ;;;;;; (20119 34052)) | 19189 | ;;;;;; (20168 57844)) |
| 19176 | ;;; Generated autoloads from gnus/nndiary.el | 19190 | ;;; Generated autoloads from gnus/nndiary.el |
| 19177 | 19191 | ||
| 19178 | (autoload 'nndiary-generate-nov-databases "nndiary" "\ | 19192 | (autoload 'nndiary-generate-nov-databases "nndiary" "\ |
| @@ -19182,8 +19196,8 @@ Generate NOV databases in all nndiary directories. | |||
| 19182 | 19196 | ||
| 19183 | ;;;*** | 19197 | ;;;*** |
| 19184 | 19198 | ||
| 19185 | ;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20119 | 19199 | ;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (19845 |
| 19186 | ;;;;;; 34052)) | 19200 | ;;;;;; 45374)) |
| 19187 | ;;; Generated autoloads from gnus/nndoc.el | 19201 | ;;; Generated autoloads from gnus/nndoc.el |
| 19188 | 19202 | ||
| 19189 | (autoload 'nndoc-add-type "nndoc" "\ | 19203 | (autoload 'nndoc-add-type "nndoc" "\ |
| @@ -19198,7 +19212,7 @@ symbol in the alist. | |||
| 19198 | ;;;*** | 19212 | ;;;*** |
| 19199 | 19213 | ||
| 19200 | ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" | 19214 | ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" |
| 19201 | ;;;;;; (20119 34052)) | 19215 | ;;;;;; (19845 45374)) |
| 19202 | ;;; Generated autoloads from gnus/nnfolder.el | 19216 | ;;; Generated autoloads from gnus/nnfolder.el |
| 19203 | 19217 | ||
| 19204 | (autoload 'nnfolder-generate-active-file "nnfolder" "\ | 19218 | (autoload 'nnfolder-generate-active-file "nnfolder" "\ |
| @@ -19210,7 +19224,7 @@ This command does not work if you use short group names. | |||
| 19210 | ;;;*** | 19224 | ;;;*** |
| 19211 | 19225 | ||
| 19212 | ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" | 19226 | ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" |
| 19213 | ;;;;;; (20119 34052)) | 19227 | ;;;;;; (20178 7273)) |
| 19214 | ;;; Generated autoloads from gnus/nnml.el | 19228 | ;;; Generated autoloads from gnus/nnml.el |
| 19215 | 19229 | ||
| 19216 | (autoload 'nnml-generate-nov-databases "nnml" "\ | 19230 | (autoload 'nnml-generate-nov-databases "nnml" "\ |
| @@ -19221,7 +19235,7 @@ Generate NOV databases in all nnml directories. | |||
| 19221 | ;;;*** | 19235 | ;;;*** |
| 19222 | 19236 | ||
| 19223 | ;;;### (autoloads (disable-command enable-command disabled-command-function) | 19237 | ;;;### (autoloads (disable-command enable-command disabled-command-function) |
| 19224 | ;;;;;; "novice" "novice.el" (20119 34052)) | 19238 | ;;;;;; "novice" "novice.el" (19845 45374)) |
| 19225 | ;;; Generated autoloads from novice.el | 19239 | ;;; Generated autoloads from novice.el |
| 19226 | 19240 | ||
| 19227 | (defvar disabled-command-function 'disabled-command-function "\ | 19241 | (defvar disabled-command-function 'disabled-command-function "\ |
| @@ -19254,7 +19268,7 @@ to future sessions. | |||
| 19254 | ;;;*** | 19268 | ;;;*** |
| 19255 | 19269 | ||
| 19256 | ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" | 19270 | ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" |
| 19257 | ;;;;;; (20127 24590)) | 19271 | ;;;;;; (20127 62865)) |
| 19258 | ;;; Generated autoloads from textmodes/nroff-mode.el | 19272 | ;;; Generated autoloads from textmodes/nroff-mode.el |
| 19259 | 19273 | ||
| 19260 | (autoload 'nroff-mode "nroff-mode" "\ | 19274 | (autoload 'nroff-mode "nroff-mode" "\ |
| @@ -19269,7 +19283,7 @@ closing requests for requests that are used in matched pairs. | |||
| 19269 | ;;;*** | 19283 | ;;;*** |
| 19270 | 19284 | ||
| 19271 | ;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el" | 19285 | ;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el" |
| 19272 | ;;;;;; (20119 34052)) | 19286 | ;;;;;; (19845 45374)) |
| 19273 | ;;; Generated autoloads from nxml/nxml-glyph.el | 19287 | ;;; Generated autoloads from nxml/nxml-glyph.el |
| 19274 | 19288 | ||
| 19275 | (autoload 'nxml-glyph-display-string "nxml-glyph" "\ | 19289 | (autoload 'nxml-glyph-display-string "nxml-glyph" "\ |
| @@ -19281,8 +19295,8 @@ Return nil if the face cannot display a glyph for N. | |||
| 19281 | 19295 | ||
| 19282 | ;;;*** | 19296 | ;;;*** |
| 19283 | 19297 | ||
| 19284 | ;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20119 | 19298 | ;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (19927 |
| 19285 | ;;;;;; 34052)) | 19299 | ;;;;;; 37225)) |
| 19286 | ;;; Generated autoloads from nxml/nxml-mode.el | 19300 | ;;; Generated autoloads from nxml/nxml-mode.el |
| 19287 | 19301 | ||
| 19288 | (autoload 'nxml-mode "nxml-mode" "\ | 19302 | (autoload 'nxml-mode "nxml-mode" "\ |
| @@ -19344,7 +19358,7 @@ Many aspects this mode can be customized using | |||
| 19344 | ;;;*** | 19358 | ;;;*** |
| 19345 | 19359 | ||
| 19346 | ;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm" | 19360 | ;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm" |
| 19347 | ;;;;;; "nxml/nxml-uchnm.el" (20119 34052)) | 19361 | ;;;;;; "nxml/nxml-uchnm.el" (19845 45374)) |
| 19348 | ;;; Generated autoloads from nxml/nxml-uchnm.el | 19362 | ;;; Generated autoloads from nxml/nxml-uchnm.el |
| 19349 | 19363 | ||
| 19350 | (autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ | 19364 | (autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ |
| @@ -19367,7 +19381,7 @@ the variable `nxml-enabled-unicode-blocks'. | |||
| 19367 | ;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe | 19381 | ;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe |
| 19368 | ;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info | 19382 | ;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info |
| 19369 | ;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob" | 19383 | ;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob" |
| 19370 | ;;;;;; "org/ob.el" (20119 34052)) | 19384 | ;;;;;; "org/ob.el" (20174 10230)) |
| 19371 | ;;; Generated autoloads from org/ob.el | 19385 | ;;; Generated autoloads from org/ob.el |
| 19372 | 19386 | ||
| 19373 | (autoload 'org-babel-execute-safely-maybe "ob" "\ | 19387 | (autoload 'org-babel-execute-safely-maybe "ob" "\ |
| @@ -19414,7 +19428,7 @@ Insert the results of execution into the buffer. Source code | |||
| 19414 | execution and the collection and formatting of results can be | 19428 | execution and the collection and formatting of results can be |
| 19415 | controlled through a variety of header arguments. | 19429 | controlled through a variety of header arguments. |
| 19416 | 19430 | ||
| 19417 | With prefix argument ARG, force re-execution even if a an | 19431 | With prefix argument ARG, force re-execution even if an |
| 19418 | existing result cached in the buffer would otherwise have been | 19432 | existing result cached in the buffer would otherwise have been |
| 19419 | returned. | 19433 | returned. |
| 19420 | 19434 | ||
| @@ -19570,7 +19584,7 @@ Mark current src block | |||
| 19570 | ;;;*** | 19584 | ;;;*** |
| 19571 | 19585 | ||
| 19572 | ;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "org/ob-keys.el" | 19586 | ;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "org/ob-keys.el" |
| 19573 | ;;;;;; (20119 34052)) | 19587 | ;;;;;; (20045 30710)) |
| 19574 | ;;; Generated autoloads from org/ob-keys.el | 19588 | ;;; Generated autoloads from org/ob-keys.el |
| 19575 | 19589 | ||
| 19576 | (autoload 'org-babel-describe-bindings "ob-keys" "\ | 19590 | (autoload 'org-babel-describe-bindings "ob-keys" "\ |
| @@ -19581,7 +19595,7 @@ Describe all keybindings behind `org-babel-key-prefix'. | |||
| 19581 | ;;;*** | 19595 | ;;;*** |
| 19582 | 19596 | ||
| 19583 | ;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe | 19597 | ;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe |
| 19584 | ;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20119 34052)) | 19598 | ;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20045 31431)) |
| 19585 | ;;; Generated autoloads from org/ob-lob.el | 19599 | ;;; Generated autoloads from org/ob-lob.el |
| 19586 | 19600 | ||
| 19587 | (autoload 'org-babel-lob-ingest "ob-lob" "\ | 19601 | (autoload 'org-babel-lob-ingest "ob-lob" "\ |
| @@ -19606,7 +19620,7 @@ Return a Library of Babel function call as a string. | |||
| 19606 | 19620 | ||
| 19607 | ;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file | 19621 | ;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file |
| 19608 | ;;;;;; org-babel-tangle-lang-exts) "ob-tangle" "org/ob-tangle.el" | 19622 | ;;;;;; org-babel-tangle-lang-exts) "ob-tangle" "org/ob-tangle.el" |
| 19609 | ;;;;;; (20119 34052)) | 19623 | ;;;;;; (20045 30712)) |
| 19610 | ;;; Generated autoloads from org/ob-tangle.el | 19624 | ;;; Generated autoloads from org/ob-tangle.el |
| 19611 | 19625 | ||
| 19612 | (defvar org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "\ | 19626 | (defvar org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "\ |
| @@ -19648,7 +19662,7 @@ exported source code blocks by language. | |||
| 19648 | ;;;*** | 19662 | ;;;*** |
| 19649 | 19663 | ||
| 19650 | ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" | 19664 | ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" |
| 19651 | ;;;;;; (20136 50092)) | 19665 | ;;;;;; (20135 56947)) |
| 19652 | ;;; Generated autoloads from progmodes/octave-inf.el | 19666 | ;;; Generated autoloads from progmodes/octave-inf.el |
| 19653 | 19667 | ||
| 19654 | (autoload 'inferior-octave "octave-inf" "\ | 19668 | (autoload 'inferior-octave "octave-inf" "\ |
| @@ -19671,7 +19685,7 @@ startup file, `~/.emacs-octave'. | |||
| 19671 | ;;;*** | 19685 | ;;;*** |
| 19672 | 19686 | ||
| 19673 | ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" | 19687 | ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" |
| 19674 | ;;;;;; (20136 50092)) | 19688 | ;;;;;; (20135 56947)) |
| 19675 | ;;; Generated autoloads from progmodes/octave-mod.el | 19689 | ;;; Generated autoloads from progmodes/octave-mod.el |
| 19676 | 19690 | ||
| 19677 | (autoload 'octave-mode "octave-mod" "\ | 19691 | (autoload 'octave-mode "octave-mod" "\ |
| @@ -19759,7 +19773,7 @@ including a reproducible test case and send the message. | |||
| 19759 | ;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode | 19773 | ;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode |
| 19760 | ;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle | 19774 | ;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle |
| 19761 | ;;;;;; org-mode org-babel-do-load-languages) "org" "org/org.el" | 19775 | ;;;;;; org-mode org-babel-do-load-languages) "org" "org/org.el" |
| 19762 | ;;;;;; (20119 34052)) | 19776 | ;;;;;; (20170 13157)) |
| 19763 | ;;; Generated autoloads from org/org.el | 19777 | ;;; Generated autoloads from org/org.el |
| 19764 | 19778 | ||
| 19765 | (autoload 'org-babel-do-load-languages "org" "\ | 19779 | (autoload 'org-babel-do-load-languages "org" "\ |
| @@ -19983,7 +19997,7 @@ Call the customize function with org as argument. | |||
| 19983 | ;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list | 19997 | ;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list |
| 19984 | ;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views | 19998 | ;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views |
| 19985 | ;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda | 19999 | ;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda |
| 19986 | ;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20119 34052)) | 20000 | ;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20178 7273)) |
| 19987 | ;;; Generated autoloads from org/org-agenda.el | 20001 | ;;; Generated autoloads from org/org-agenda.el |
| 19988 | 20002 | ||
| 19989 | (autoload 'org-agenda "org-agenda" "\ | 20003 | (autoload 'org-agenda "org-agenda" "\ |
| @@ -20228,7 +20242,7 @@ belonging to the \"Work\" category. | |||
| 20228 | 20242 | ||
| 20229 | ;;;### (autoloads (org-archive-subtree-default-with-confirmation | 20243 | ;;;### (autoloads (org-archive-subtree-default-with-confirmation |
| 20230 | ;;;;;; org-archive-subtree-default) "org-archive" "org/org-archive.el" | 20244 | ;;;;;; org-archive-subtree-default) "org-archive" "org/org-archive.el" |
| 20231 | ;;;;;; (20119 34052)) | 20245 | ;;;;;; (20045 30713)) |
| 20232 | ;;; Generated autoloads from org/org-archive.el | 20246 | ;;; Generated autoloads from org/org-archive.el |
| 20233 | 20247 | ||
| 20234 | (autoload 'org-archive-subtree-default "org-archive" "\ | 20248 | (autoload 'org-archive-subtree-default "org-archive" "\ |
| @@ -20248,8 +20262,8 @@ This command is set with the variable `org-archive-default-command'. | |||
| 20248 | ;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii | 20262 | ;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii |
| 20249 | ;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer | 20263 | ;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer |
| 20250 | ;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer | 20264 | ;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer |
| 20251 | ;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20119 | 20265 | ;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20045 |
| 20252 | ;;;;;; 34052)) | 20266 | ;;;;;; 30713)) |
| 20253 | ;;; Generated autoloads from org/org-ascii.el | 20267 | ;;; Generated autoloads from org/org-ascii.el |
| 20254 | 20268 | ||
| 20255 | (autoload 'org-export-as-latin1 "org-ascii" "\ | 20269 | (autoload 'org-export-as-latin1 "org-ascii" "\ |
| @@ -20322,8 +20336,8 @@ publishing directory. | |||
| 20322 | 20336 | ||
| 20323 | ;;;*** | 20337 | ;;;*** |
| 20324 | 20338 | ||
| 20325 | ;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20119 | 20339 | ;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20045 |
| 20326 | ;;;;;; 34052)) | 20340 | ;;;;;; 30713)) |
| 20327 | ;;; Generated autoloads from org/org-attach.el | 20341 | ;;; Generated autoloads from org/org-attach.el |
| 20328 | 20342 | ||
| 20329 | (autoload 'org-attach "org-attach" "\ | 20343 | (autoload 'org-attach "org-attach" "\ |
| @@ -20335,7 +20349,7 @@ Shows a list of commands and prompts for another key to execute a command. | |||
| 20335 | ;;;*** | 20349 | ;;;*** |
| 20336 | 20350 | ||
| 20337 | ;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org/org-bbdb.el" | 20351 | ;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org/org-bbdb.el" |
| 20338 | ;;;;;; (20119 34052)) | 20352 | ;;;;;; (20164 29468)) |
| 20339 | ;;; Generated autoloads from org/org-bbdb.el | 20353 | ;;; Generated autoloads from org/org-bbdb.el |
| 20340 | 20354 | ||
| 20341 | (autoload 'org-bbdb-anniversaries "org-bbdb" "\ | 20355 | (autoload 'org-bbdb-anniversaries "org-bbdb" "\ |
| @@ -20346,7 +20360,7 @@ Extract anniversaries from BBDB for display in the agenda. | |||
| 20346 | ;;;*** | 20360 | ;;;*** |
| 20347 | 20361 | ||
| 20348 | ;;;### (autoloads (org-capture-import-remember-templates org-capture-insert-template-here | 20362 | ;;;### (autoloads (org-capture-import-remember-templates org-capture-insert-template-here |
| 20349 | ;;;;;; org-capture) "org-capture" "org/org-capture.el" (20119 34052)) | 20363 | ;;;;;; org-capture) "org-capture" "org/org-capture.el" (20168 57844)) |
| 20350 | ;;; Generated autoloads from org/org-capture.el | 20364 | ;;; Generated autoloads from org/org-capture.el |
| 20351 | 20365 | ||
| 20352 | (autoload 'org-capture "org-capture" "\ | 20366 | (autoload 'org-capture "org-capture" "\ |
| @@ -20384,7 +20398,7 @@ Set org-capture-templates to be similar to `org-remember-templates'. | |||
| 20384 | ;;;*** | 20398 | ;;;*** |
| 20385 | 20399 | ||
| 20386 | ;;;### (autoloads (org-clock-persistence-insinuate org-get-clocktable) | 20400 | ;;;### (autoloads (org-clock-persistence-insinuate org-get-clocktable) |
| 20387 | ;;;;;; "org-clock" "org/org-clock.el" (20119 34052)) | 20401 | ;;;;;; "org-clock" "org/org-clock.el" (20172 54913)) |
| 20388 | ;;; Generated autoloads from org/org-clock.el | 20402 | ;;; Generated autoloads from org/org-clock.el |
| 20389 | 20403 | ||
| 20390 | (autoload 'org-get-clocktable "org-clock" "\ | 20404 | (autoload 'org-get-clocktable "org-clock" "\ |
| @@ -20402,7 +20416,7 @@ Set up hooks for clock persistence. | |||
| 20402 | ;;;*** | 20416 | ;;;*** |
| 20403 | 20417 | ||
| 20404 | ;;;### (autoloads (org-datetree-find-date-create) "org-datetree" | 20418 | ;;;### (autoloads (org-datetree-find-date-create) "org-datetree" |
| 20405 | ;;;;;; "org/org-datetree.el" (20119 34052)) | 20419 | ;;;;;; "org/org-datetree.el" (20045 30713)) |
| 20406 | ;;; Generated autoloads from org/org-datetree.el | 20420 | ;;; Generated autoloads from org/org-datetree.el |
| 20407 | 20421 | ||
| 20408 | (autoload 'org-datetree-find-date-create "org-datetree" "\ | 20422 | (autoload 'org-datetree-find-date-create "org-datetree" "\ |
| @@ -20418,7 +20432,7 @@ tree can be found. | |||
| 20418 | ;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open | 20432 | ;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open |
| 20419 | ;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook | 20433 | ;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook |
| 20420 | ;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch) | 20434 | ;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch) |
| 20421 | ;;;;;; "org-docbook" "org/org-docbook.el" (20119 34052)) | 20435 | ;;;;;; "org-docbook" "org/org-docbook.el" (20045 30713)) |
| 20422 | ;;; Generated autoloads from org/org-docbook.el | 20436 | ;;; Generated autoloads from org/org-docbook.el |
| 20423 | 20437 | ||
| 20424 | (autoload 'org-export-as-docbook-batch "org-docbook" "\ | 20438 | (autoload 'org-export-as-docbook-batch "org-docbook" "\ |
| @@ -20495,7 +20509,7 @@ publishing directory. | |||
| 20495 | 20509 | ||
| 20496 | ;;;### (autoloads (org-insert-export-options-template org-export-as-org | 20510 | ;;;### (autoloads (org-insert-export-options-template org-export-as-org |
| 20497 | ;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el" | 20511 | ;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el" |
| 20498 | ;;;;;; (20119 34052)) | 20512 | ;;;;;; (20167 36967)) |
| 20499 | ;;; Generated autoloads from org/org-exp.el | 20513 | ;;; Generated autoloads from org/org-exp.el |
| 20500 | 20514 | ||
| 20501 | (autoload 'org-export "org-exp" "\ | 20515 | (autoload 'org-export "org-exp" "\ |
| @@ -20556,8 +20570,8 @@ Insert into the buffer a template with information for exporting. | |||
| 20556 | ;;;*** | 20570 | ;;;*** |
| 20557 | 20571 | ||
| 20558 | ;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update | 20572 | ;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update |
| 20559 | ;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20119 | 20573 | ;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20065 |
| 20560 | ;;;;;; 34052)) | 20574 | ;;;;;; 65310)) |
| 20561 | ;;; Generated autoloads from org/org-feed.el | 20575 | ;;; Generated autoloads from org/org-feed.el |
| 20562 | 20576 | ||
| 20563 | (autoload 'org-feed-update-all "org-feed" "\ | 20577 | (autoload 'org-feed-update-all "org-feed" "\ |
| @@ -20585,7 +20599,7 @@ Show the raw feed buffer of a feed. | |||
| 20585 | ;;;*** | 20599 | ;;;*** |
| 20586 | 20600 | ||
| 20587 | ;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote" | 20601 | ;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote" |
| 20588 | ;;;;;; "org/org-footnote.el" (20119 34052)) | 20602 | ;;;;;; "org/org-footnote.el" (20161 45793)) |
| 20589 | ;;; Generated autoloads from org/org-footnote.el | 20603 | ;;; Generated autoloads from org/org-footnote.el |
| 20590 | 20604 | ||
| 20591 | (autoload 'org-footnote-action "org-footnote" "\ | 20605 | (autoload 'org-footnote-action "org-footnote" "\ |
| @@ -20636,7 +20650,7 @@ Additional note on `org-footnote-insert-pos-for-preprocessor': | |||
| 20636 | ;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree | 20650 | ;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree |
| 20637 | ;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node | 20651 | ;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node |
| 20638 | ;;;;;; org-freemind-show org-export-as-freemind) "org-freemind" | 20652 | ;;;;;; org-freemind-show org-export-as-freemind) "org-freemind" |
| 20639 | ;;;;;; "org/org-freemind.el" (20119 34052)) | 20653 | ;;;;;; "org/org-freemind.el" (20172 54913)) |
| 20640 | ;;; Generated autoloads from org/org-freemind.el | 20654 | ;;; Generated autoloads from org/org-freemind.el |
| 20641 | 20655 | ||
| 20642 | (autoload 'org-export-as-freemind "org-freemind" "\ | 20656 | (autoload 'org-export-as-freemind "org-freemind" "\ |
| @@ -20697,7 +20711,7 @@ Convert FreeMind file MM-FILE to `org-mode' file ORG-FILE. | |||
| 20697 | ;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html | 20711 | ;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html |
| 20698 | ;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer | 20712 | ;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer |
| 20699 | ;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html" | 20713 | ;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html" |
| 20700 | ;;;;;; "org/org-html.el" (20119 34052)) | 20714 | ;;;;;; "org/org-html.el" (20065 65310)) |
| 20701 | ;;; Generated autoloads from org/org-html.el | 20715 | ;;; Generated autoloads from org/org-html.el |
| 20702 | 20716 | ||
| 20703 | (put 'org-export-html-style-include-default 'safe-local-variable 'booleanp) | 20717 | (put 'org-export-html-style-include-default 'safe-local-variable 'booleanp) |
| @@ -20791,7 +20805,7 @@ that uses these same face definitions. | |||
| 20791 | 20805 | ||
| 20792 | ;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files | 20806 | ;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files |
| 20793 | ;;;;;; org-export-icalendar-this-file) "org-icalendar" "org/org-icalendar.el" | 20807 | ;;;;;; org-export-icalendar-this-file) "org-icalendar" "org/org-icalendar.el" |
| 20794 | ;;;;;; (20119 34052)) | 20808 | ;;;;;; (20164 29468)) |
| 20795 | ;;; Generated autoloads from org/org-icalendar.el | 20809 | ;;; Generated autoloads from org/org-icalendar.el |
| 20796 | 20810 | ||
| 20797 | (autoload 'org-export-icalendar-this-file "org-icalendar" "\ | 20811 | (autoload 'org-export-icalendar-this-file "org-icalendar" "\ |
| @@ -20819,7 +20833,7 @@ The file is stored under the name `org-combined-agenda-icalendar-file'. | |||
| 20819 | ;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find | 20833 | ;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find |
| 20820 | ;;;;;; org-id-goto org-id-get-with-outline-drilling org-id-get-with-outline-path-completion | 20834 | ;;;;;; org-id-goto org-id-get-with-outline-drilling org-id-get-with-outline-path-completion |
| 20821 | ;;;;;; org-id-get org-id-copy org-id-get-create) "org-id" "org/org-id.el" | 20835 | ;;;;;; org-id-get org-id-copy org-id-get-create) "org-id" "org/org-id.el" |
| 20822 | ;;;;;; (20119 34052)) | 20836 | ;;;;;; (20065 65310)) |
| 20823 | ;;; Generated autoloads from org/org-id.el | 20837 | ;;; Generated autoloads from org/org-id.el |
| 20824 | 20838 | ||
| 20825 | (autoload 'org-id-get-create "org-id" "\ | 20839 | (autoload 'org-id-get-create "org-id" "\ |
| @@ -20888,7 +20902,7 @@ Store a link to the current entry, using its ID. | |||
| 20888 | ;;;*** | 20902 | ;;;*** |
| 20889 | 20903 | ||
| 20890 | ;;;### (autoloads (org-indent-mode) "org-indent" "org/org-indent.el" | 20904 | ;;;### (autoloads (org-indent-mode) "org-indent" "org/org-indent.el" |
| 20891 | ;;;;;; (20119 34052)) | 20905 | ;;;;;; (20045 30716)) |
| 20892 | ;;; Generated autoloads from org/org-indent.el | 20906 | ;;; Generated autoloads from org/org-indent.el |
| 20893 | 20907 | ||
| 20894 | (autoload 'org-indent-mode "org-indent" "\ | 20908 | (autoload 'org-indent-mode "org-indent" "\ |
| @@ -20903,7 +20917,7 @@ FIXME: How to update when broken? | |||
| 20903 | ;;;*** | 20917 | ;;;*** |
| 20904 | 20918 | ||
| 20905 | ;;;### (autoloads (org-irc-store-link) "org-irc" "org/org-irc.el" | 20919 | ;;;### (autoloads (org-irc-store-link) "org-irc" "org/org-irc.el" |
| 20906 | ;;;;;; (20119 34052)) | 20920 | ;;;;;; (20065 65310)) |
| 20907 | ;;; Generated autoloads from org/org-irc.el | 20921 | ;;; Generated autoloads from org/org-irc.el |
| 20908 | 20922 | ||
| 20909 | (autoload 'org-irc-store-link "org-irc" "\ | 20923 | (autoload 'org-irc-store-link "org-irc" "\ |
| @@ -20916,7 +20930,7 @@ Dispatch to the appropriate function to store a link to an IRC session. | |||
| 20916 | ;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex | 20930 | ;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex |
| 20917 | ;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer | 20931 | ;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer |
| 20918 | ;;;;;; org-export-as-latex-batch) "org-latex" "org/org-latex.el" | 20932 | ;;;;;; org-export-as-latex-batch) "org-latex" "org/org-latex.el" |
| 20919 | ;;;;;; (20119 34052)) | 20933 | ;;;;;; (20164 29468)) |
| 20920 | ;;; Generated autoloads from org/org-latex.el | 20934 | ;;; Generated autoloads from org/org-latex.el |
| 20921 | 20935 | ||
| 20922 | (autoload 'org-export-as-latex-batch "org-latex" "\ | 20936 | (autoload 'org-export-as-latex-batch "org-latex" "\ |
| @@ -20996,8 +21010,8 @@ Export as LaTeX, then process through to PDF, and open. | |||
| 20996 | ;;;*** | 21010 | ;;;*** |
| 20997 | 21011 | ||
| 20998 | ;;;### (autoloads (org-mobile-create-sumo-agenda org-mobile-pull | 21012 | ;;;### (autoloads (org-mobile-create-sumo-agenda org-mobile-pull |
| 20999 | ;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20119 | 21013 | ;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20065 |
| 21000 | ;;;;;; 34052)) | 21014 | ;;;;;; 65310)) |
| 21001 | ;;; Generated autoloads from org/org-mobile.el | 21015 | ;;; Generated autoloads from org/org-mobile.el |
| 21002 | 21016 | ||
| 21003 | (autoload 'org-mobile-push "org-mobile" "\ | 21017 | (autoload 'org-mobile-push "org-mobile" "\ |
| @@ -21022,7 +21036,7 @@ Create a file that contains all custom agenda views. | |||
| 21022 | ;;;*** | 21036 | ;;;*** |
| 21023 | 21037 | ||
| 21024 | ;;;### (autoloads (org-plot/gnuplot) "org-plot" "org/org-plot.el" | 21038 | ;;;### (autoloads (org-plot/gnuplot) "org-plot" "org/org-plot.el" |
| 21025 | ;;;;;; (20119 34052)) | 21039 | ;;;;;; (20157 54694)) |
| 21026 | ;;; Generated autoloads from org/org-plot.el | 21040 | ;;; Generated autoloads from org/org-plot.el |
| 21027 | 21041 | ||
| 21028 | (autoload 'org-plot/gnuplot "org-plot" "\ | 21042 | (autoload 'org-plot/gnuplot "org-plot" "\ |
| @@ -21036,7 +21050,7 @@ line directly before or after the table. | |||
| 21036 | 21050 | ||
| 21037 | ;;;### (autoloads (org-publish-current-project org-publish-current-file | 21051 | ;;;### (autoloads (org-publish-current-project org-publish-current-file |
| 21038 | ;;;;;; org-publish-all org-publish) "org-publish" "org/org-publish.el" | 21052 | ;;;;;; org-publish-all org-publish) "org-publish" "org/org-publish.el" |
| 21039 | ;;;;;; (20119 34052)) | 21053 | ;;;;;; (20161 45793)) |
| 21040 | ;;; Generated autoloads from org/org-publish.el | 21054 | ;;; Generated autoloads from org/org-publish.el |
| 21041 | 21055 | ||
| 21042 | (defalias 'org-publish-project 'org-publish) | 21056 | (defalias 'org-publish-project 'org-publish) |
| @@ -21070,7 +21084,7 @@ the project. | |||
| 21070 | 21084 | ||
| 21071 | ;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template | 21085 | ;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template |
| 21072 | ;;;;;; org-remember-annotation org-remember-insinuate) "org-remember" | 21086 | ;;;;;; org-remember-annotation org-remember-insinuate) "org-remember" |
| 21073 | ;;;;;; "org/org-remember.el" (20119 34052)) | 21087 | ;;;;;; "org/org-remember.el" (20165 31925)) |
| 21074 | ;;; Generated autoloads from org/org-remember.el | 21088 | ;;; Generated autoloads from org/org-remember.el |
| 21075 | 21089 | ||
| 21076 | (autoload 'org-remember-insinuate "org-remember" "\ | 21090 | (autoload 'org-remember-insinuate "org-remember" "\ |
| @@ -21146,7 +21160,7 @@ See also the variable `org-reverse-note-order'. | |||
| 21146 | ;;;*** | 21160 | ;;;*** |
| 21147 | 21161 | ||
| 21148 | ;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl) | 21162 | ;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl) |
| 21149 | ;;;;;; "org-table" "org/org-table.el" (20119 34052)) | 21163 | ;;;;;; "org-table" "org/org-table.el" (20168 57844)) |
| 21150 | ;;; Generated autoloads from org/org-table.el | 21164 | ;;; Generated autoloads from org/org-table.el |
| 21151 | 21165 | ||
| 21152 | (autoload 'turn-on-orgtbl "org-table" "\ | 21166 | (autoload 'turn-on-orgtbl "org-table" "\ |
| @@ -21170,7 +21184,7 @@ The table is taken from the parameter TXT, or from the buffer at point. | |||
| 21170 | ;;;*** | 21184 | ;;;*** |
| 21171 | 21185 | ||
| 21172 | ;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler) | 21186 | ;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler) |
| 21173 | ;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20119 34052)) | 21187 | ;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20166 16092)) |
| 21174 | ;;; Generated autoloads from org/org-taskjuggler.el | 21188 | ;;; Generated autoloads from org/org-taskjuggler.el |
| 21175 | 21189 | ||
| 21176 | (autoload 'org-export-as-taskjuggler "org-taskjuggler" "\ | 21190 | (autoload 'org-export-as-taskjuggler "org-taskjuggler" "\ |
| @@ -21198,7 +21212,7 @@ with the TaskJuggler GUI. | |||
| 21198 | 21212 | ||
| 21199 | ;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region | 21213 | ;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region |
| 21200 | ;;;;;; org-timer org-timer-start) "org-timer" "org/org-timer.el" | 21214 | ;;;;;; org-timer org-timer-start) "org-timer" "org/org-timer.el" |
| 21201 | ;;;;;; (20119 34052)) | 21215 | ;;;;;; (20045 30718)) |
| 21202 | ;;; Generated autoloads from org/org-timer.el | 21216 | ;;; Generated autoloads from org/org-timer.el |
| 21203 | 21217 | ||
| 21204 | (autoload 'org-timer-start "org-timer" "\ | 21218 | (autoload 'org-timer-start "org-timer" "\ |
| @@ -21259,7 +21273,7 @@ replace any running timer. | |||
| 21259 | ;;;*** | 21273 | ;;;*** |
| 21260 | 21274 | ||
| 21261 | ;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org/org-xoxo.el" | 21275 | ;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org/org-xoxo.el" |
| 21262 | ;;;;;; (20119 34052)) | 21276 | ;;;;;; (20045 30719)) |
| 21263 | ;;; Generated autoloads from org/org-xoxo.el | 21277 | ;;; Generated autoloads from org/org-xoxo.el |
| 21264 | 21278 | ||
| 21265 | (autoload 'org-export-as-xoxo "org-xoxo" "\ | 21279 | (autoload 'org-export-as-xoxo "org-xoxo" "\ |
| @@ -21271,7 +21285,7 @@ The XOXO buffer is named *xoxo-<source buffer name>* | |||
| 21271 | ;;;*** | 21285 | ;;;*** |
| 21272 | 21286 | ||
| 21273 | ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" | 21287 | ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" |
| 21274 | ;;;;;; (20126 50306)) | 21288 | ;;;;;; (20162 63140)) |
| 21275 | ;;; Generated autoloads from outline.el | 21289 | ;;; Generated autoloads from outline.el |
| 21276 | (put 'outline-regexp 'safe-local-variable 'stringp) | 21290 | (put 'outline-regexp 'safe-local-variable 'stringp) |
| 21277 | (put 'outline-heading-end-regexp 'safe-local-variable 'stringp) | 21291 | (put 'outline-heading-end-regexp 'safe-local-variable 'stringp) |
| @@ -21335,7 +21349,7 @@ See the command `outline-mode' for more information on this mode. | |||
| 21335 | ;;;### (autoloads (list-packages describe-package package-initialize | 21349 | ;;;### (autoloads (list-packages describe-package package-initialize |
| 21336 | ;;;;;; package-refresh-contents package-install-file package-install-from-buffer | 21350 | ;;;;;; package-refresh-contents package-install-file package-install-from-buffer |
| 21337 | ;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el" | 21351 | ;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el" |
| 21338 | ;;;;;; (20139 30186)) | 21352 | ;;;;;; (20168 57844)) |
| 21339 | ;;; Generated autoloads from emacs-lisp/package.el | 21353 | ;;; Generated autoloads from emacs-lisp/package.el |
| 21340 | 21354 | ||
| 21341 | (defvar package-enable-at-startup t "\ | 21355 | (defvar package-enable-at-startup t "\ |
| @@ -21405,7 +21419,7 @@ The list is displayed in a buffer named `*Packages*'. | |||
| 21405 | 21419 | ||
| 21406 | ;;;*** | 21420 | ;;;*** |
| 21407 | 21421 | ||
| 21408 | ;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20126 50320)) | 21422 | ;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20127 62865)) |
| 21409 | ;;; Generated autoloads from paren.el | 21423 | ;;; Generated autoloads from paren.el |
| 21410 | 21424 | ||
| 21411 | (defvar show-paren-mode nil "\ | 21425 | (defvar show-paren-mode nil "\ |
| @@ -21432,7 +21446,7 @@ matching parenthesis is highlighted in `show-paren-style' after | |||
| 21432 | ;;;*** | 21446 | ;;;*** |
| 21433 | 21447 | ||
| 21434 | ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" | 21448 | ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" |
| 21435 | ;;;;;; (20119 34052)) | 21449 | ;;;;;; (19845 45374)) |
| 21436 | ;;; Generated autoloads from calendar/parse-time.el | 21450 | ;;; Generated autoloads from calendar/parse-time.el |
| 21437 | (put 'parse-time-rules 'risky-local-variable t) | 21451 | (put 'parse-time-rules 'risky-local-variable t) |
| 21438 | 21452 | ||
| @@ -21445,8 +21459,8 @@ unknown are returned as nil. | |||
| 21445 | 21459 | ||
| 21446 | ;;;*** | 21460 | ;;;*** |
| 21447 | 21461 | ||
| 21448 | ;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20119 | 21462 | ;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20168 |
| 21449 | ;;;;;; 34052)) | 21463 | ;;;;;; 57844)) |
| 21450 | ;;; Generated autoloads from progmodes/pascal.el | 21464 | ;;; Generated autoloads from progmodes/pascal.el |
| 21451 | 21465 | ||
| 21452 | (autoload 'pascal-mode "pascal" "\ | 21466 | (autoload 'pascal-mode "pascal" "\ |
| @@ -21499,7 +21513,7 @@ no args, if that value is non-nil. | |||
| 21499 | ;;;*** | 21513 | ;;;*** |
| 21500 | 21514 | ||
| 21501 | ;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache) | 21515 | ;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache) |
| 21502 | ;;;;;; "password-cache" "password-cache.el" (20119 34052)) | 21516 | ;;;;;; "password-cache" "password-cache.el" (20089 47591)) |
| 21503 | ;;; Generated autoloads from password-cache.el | 21517 | ;;; Generated autoloads from password-cache.el |
| 21504 | 21518 | ||
| 21505 | (defvar password-cache t "\ | 21519 | (defvar password-cache t "\ |
| @@ -21521,7 +21535,7 @@ Check if KEY is in the cache. | |||
| 21521 | ;;;*** | 21535 | ;;;*** |
| 21522 | 21536 | ||
| 21523 | ;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el" | 21537 | ;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el" |
| 21524 | ;;;;;; (20119 34052)) | 21538 | ;;;;;; (19863 8742)) |
| 21525 | ;;; Generated autoloads from emacs-lisp/pcase.el | 21539 | ;;; Generated autoloads from emacs-lisp/pcase.el |
| 21526 | 21540 | ||
| 21527 | (autoload 'pcase "pcase" "\ | 21541 | (autoload 'pcase "pcase" "\ |
| @@ -21580,8 +21594,8 @@ of the form (UPAT EXP). | |||
| 21580 | 21594 | ||
| 21581 | ;;;*** | 21595 | ;;;*** |
| 21582 | 21596 | ||
| 21583 | ;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20119 | 21597 | ;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20100 |
| 21584 | ;;;;;; 34052)) | 21598 | ;;;;;; 17869)) |
| 21585 | ;;; Generated autoloads from pcmpl-cvs.el | 21599 | ;;; Generated autoloads from pcmpl-cvs.el |
| 21586 | 21600 | ||
| 21587 | (autoload 'pcomplete/cvs "pcmpl-cvs" "\ | 21601 | (autoload 'pcomplete/cvs "pcmpl-cvs" "\ |
| @@ -21592,7 +21606,7 @@ Completion rules for the `cvs' command. | |||
| 21592 | ;;;*** | 21606 | ;;;*** |
| 21593 | 21607 | ||
| 21594 | ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) | 21608 | ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) |
| 21595 | ;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20119 34052)) | 21609 | ;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20104 14925)) |
| 21596 | ;;; Generated autoloads from pcmpl-gnu.el | 21610 | ;;; Generated autoloads from pcmpl-gnu.el |
| 21597 | 21611 | ||
| 21598 | (autoload 'pcomplete/gzip "pcmpl-gnu" "\ | 21612 | (autoload 'pcomplete/gzip "pcmpl-gnu" "\ |
| @@ -21620,7 +21634,7 @@ Completion for the GNU tar utility. | |||
| 21620 | ;;;*** | 21634 | ;;;*** |
| 21621 | 21635 | ||
| 21622 | ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) | 21636 | ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) |
| 21623 | ;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20119 34052)) | 21637 | ;;;;;; "pcmpl-linux" "pcmpl-linux.el" (19986 58615)) |
| 21624 | ;;; Generated autoloads from pcmpl-linux.el | 21638 | ;;; Generated autoloads from pcmpl-linux.el |
| 21625 | 21639 | ||
| 21626 | (autoload 'pcomplete/kill "pcmpl-linux" "\ | 21640 | (autoload 'pcomplete/kill "pcmpl-linux" "\ |
| @@ -21640,8 +21654,8 @@ Completion for GNU/Linux `mount'. | |||
| 21640 | 21654 | ||
| 21641 | ;;;*** | 21655 | ;;;*** |
| 21642 | 21656 | ||
| 21643 | ;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20119 | 21657 | ;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (19961 |
| 21644 | ;;;;;; 34052)) | 21658 | ;;;;;; 55377)) |
| 21645 | ;;; Generated autoloads from pcmpl-rpm.el | 21659 | ;;; Generated autoloads from pcmpl-rpm.el |
| 21646 | 21660 | ||
| 21647 | (autoload 'pcomplete/rpm "pcmpl-rpm" "\ | 21661 | (autoload 'pcomplete/rpm "pcmpl-rpm" "\ |
| @@ -21653,7 +21667,7 @@ Completion for the `rpm' command. | |||
| 21653 | 21667 | ||
| 21654 | ;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown | 21668 | ;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown |
| 21655 | ;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir | 21669 | ;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir |
| 21656 | ;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20120 43280)) | 21670 | ;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20121 24048)) |
| 21657 | ;;; Generated autoloads from pcmpl-unix.el | 21671 | ;;; Generated autoloads from pcmpl-unix.el |
| 21658 | 21672 | ||
| 21659 | (autoload 'pcomplete/cd "pcmpl-unix" "\ | 21673 | (autoload 'pcomplete/cd "pcmpl-unix" "\ |
| @@ -21710,8 +21724,8 @@ Includes files as well as host names followed by a colon. | |||
| 21710 | 21724 | ||
| 21711 | ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list | 21725 | ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list |
| 21712 | ;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete | 21726 | ;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete |
| 21713 | ;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (20119 | 21727 | ;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (20106 |
| 21714 | ;;;;;; 34052)) | 21728 | ;;;;;; 17429)) |
| 21715 | ;;; Generated autoloads from pcomplete.el | 21729 | ;;; Generated autoloads from pcomplete.el |
| 21716 | 21730 | ||
| 21717 | (autoload 'pcomplete "pcomplete" "\ | 21731 | (autoload 'pcomplete "pcomplete" "\ |
| @@ -21770,7 +21784,7 @@ Setup `shell-mode' to use pcomplete. | |||
| 21770 | 21784 | ||
| 21771 | ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status | 21785 | ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status |
| 21772 | ;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" | 21786 | ;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" |
| 21773 | ;;;;;; "vc/pcvs.el" (20119 34052)) | 21787 | ;;;;;; "vc/pcvs.el" (20164 60780)) |
| 21774 | ;;; Generated autoloads from vc/pcvs.el | 21788 | ;;; Generated autoloads from vc/pcvs.el |
| 21775 | 21789 | ||
| 21776 | (autoload 'cvs-checkout "pcvs" "\ | 21790 | (autoload 'cvs-checkout "pcvs" "\ |
| @@ -21845,15 +21859,16 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d | |||
| 21845 | 21859 | ||
| 21846 | ;;;*** | 21860 | ;;;*** |
| 21847 | 21861 | ||
| 21848 | ;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20119 34052)) | 21862 | ;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20174 10230)) |
| 21849 | ;;; Generated autoloads from vc/pcvs-defs.el | 21863 | ;;; Generated autoloads from vc/pcvs-defs.el |
| 21850 | 21864 | ||
| 21851 | (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m))) | 21865 | (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m)) "\ |
| 21866 | Global menu used by PCL-CVS.") | ||
| 21852 | 21867 | ||
| 21853 | ;;;*** | 21868 | ;;;*** |
| 21854 | 21869 | ||
| 21855 | ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" | 21870 | ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" |
| 21856 | ;;;;;; (20119 34052)) | 21871 | ;;;;;; (20108 12033)) |
| 21857 | ;;; Generated autoloads from progmodes/perl-mode.el | 21872 | ;;; Generated autoloads from progmodes/perl-mode.el |
| 21858 | (put 'perl-indent-level 'safe-local-variable 'integerp) | 21873 | (put 'perl-indent-level 'safe-local-variable 'integerp) |
| 21859 | (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) | 21874 | (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) |
| @@ -21915,7 +21930,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. | |||
| 21915 | ;;;*** | 21930 | ;;;*** |
| 21916 | 21931 | ||
| 21917 | ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" | 21932 | ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" |
| 21918 | ;;;;;; (20119 34052)) | 21933 | ;;;;;; (20093 44623)) |
| 21919 | ;;; Generated autoloads from textmodes/picture.el | 21934 | ;;; Generated autoloads from textmodes/picture.el |
| 21920 | 21935 | ||
| 21921 | (autoload 'picture-mode "picture" "\ | 21936 | (autoload 'picture-mode "picture" "\ |
| @@ -21995,8 +22010,8 @@ they are not defaultly assigned to keys. | |||
| 21995 | 22010 | ||
| 21996 | ;;;*** | 22011 | ;;;*** |
| 21997 | 22012 | ||
| 21998 | ;;;### (autoloads (plstore-open) "plstore" "gnus/plstore.el" (20119 | 22013 | ;;;### (autoloads (plstore-open) "plstore" "gnus/plstore.el" (20097 |
| 21999 | ;;;;;; 34052)) | 22014 | ;;;;;; 41737)) |
| 22000 | ;;; Generated autoloads from gnus/plstore.el | 22015 | ;;; Generated autoloads from gnus/plstore.el |
| 22001 | 22016 | ||
| 22002 | (autoload 'plstore-open "plstore" "\ | 22017 | (autoload 'plstore-open "plstore" "\ |
| @@ -22007,7 +22022,7 @@ Create a plstore instance associated with FILE. | |||
| 22007 | ;;;*** | 22022 | ;;;*** |
| 22008 | 22023 | ||
| 22009 | ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" | 22024 | ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" |
| 22010 | ;;;;;; (20119 34052)) | 22025 | ;;;;;; (19845 45374)) |
| 22011 | ;;; Generated autoloads from textmodes/po.el | 22026 | ;;; Generated autoloads from textmodes/po.el |
| 22012 | 22027 | ||
| 22013 | (autoload 'po-find-file-coding-system "po" "\ | 22028 | (autoload 'po-find-file-coding-system "po" "\ |
| @@ -22018,7 +22033,7 @@ Called through `file-coding-system-alist', before the file is visited for real. | |||
| 22018 | 22033 | ||
| 22019 | ;;;*** | 22034 | ;;;*** |
| 22020 | 22035 | ||
| 22021 | ;;;### (autoloads (pong) "pong" "play/pong.el" (20119 34052)) | 22036 | ;;;### (autoloads (pong) "pong" "play/pong.el" (19845 45374)) |
| 22022 | ;;; Generated autoloads from play/pong.el | 22037 | ;;; Generated autoloads from play/pong.el |
| 22023 | 22038 | ||
| 22024 | (autoload 'pong "pong" "\ | 22039 | (autoload 'pong "pong" "\ |
| @@ -22034,7 +22049,7 @@ pong-mode keybindings:\\<pong-mode-map> | |||
| 22034 | 22049 | ||
| 22035 | ;;;*** | 22050 | ;;;*** |
| 22036 | 22051 | ||
| 22037 | ;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20119 34052)) | 22052 | ;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20178 7273)) |
| 22038 | ;;; Generated autoloads from gnus/pop3.el | 22053 | ;;; Generated autoloads from gnus/pop3.el |
| 22039 | 22054 | ||
| 22040 | (autoload 'pop3-movemail "pop3" "\ | 22055 | (autoload 'pop3-movemail "pop3" "\ |
| @@ -22047,7 +22062,7 @@ Use streaming commands. | |||
| 22047 | 22062 | ||
| 22048 | ;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression | 22063 | ;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression |
| 22049 | ;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el" | 22064 | ;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el" |
| 22050 | ;;;;;; (20119 34052)) | 22065 | ;;;;;; (19845 45374)) |
| 22051 | ;;; Generated autoloads from emacs-lisp/pp.el | 22066 | ;;; Generated autoloads from emacs-lisp/pp.el |
| 22052 | 22067 | ||
| 22053 | (autoload 'pp-to-string "pp" "\ | 22068 | (autoload 'pp-to-string "pp" "\ |
| @@ -22115,7 +22130,7 @@ Ignores leading comment characters. | |||
| 22115 | ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview | 22130 | ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview |
| 22116 | ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript | 22131 | ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript |
| 22117 | ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" | 22132 | ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" |
| 22118 | ;;;;;; (20119 34052)) | 22133 | ;;;;;; (20175 31160)) |
| 22119 | ;;; Generated autoloads from printing.el | 22134 | ;;; Generated autoloads from printing.el |
| 22120 | 22135 | ||
| 22121 | (autoload 'pr-interface "printing" "\ | 22136 | (autoload 'pr-interface "printing" "\ |
| @@ -22702,7 +22717,7 @@ are both set to t. | |||
| 22702 | 22717 | ||
| 22703 | ;;;*** | 22718 | ;;;*** |
| 22704 | 22719 | ||
| 22705 | ;;;### (autoloads (proced) "proced" "proced.el" (20119 34052)) | 22720 | ;;;### (autoloads (proced) "proced" "proced.el" (20053 39261)) |
| 22706 | ;;; Generated autoloads from proced.el | 22721 | ;;; Generated autoloads from proced.el |
| 22707 | 22722 | ||
| 22708 | (autoload 'proced "proced" "\ | 22723 | (autoload 'proced "proced" "\ |
| @@ -22718,7 +22733,7 @@ See `proced-mode' for a description of features available in Proced buffers. | |||
| 22718 | ;;;*** | 22733 | ;;;*** |
| 22719 | 22734 | ||
| 22720 | ;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog" | 22735 | ;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog" |
| 22721 | ;;;;;; "progmodes/prolog.el" (20119 34052)) | 22736 | ;;;;;; "progmodes/prolog.el" (20176 51947)) |
| 22722 | ;;; Generated autoloads from progmodes/prolog.el | 22737 | ;;; Generated autoloads from progmodes/prolog.el |
| 22723 | 22738 | ||
| 22724 | (autoload 'prolog-mode "prolog" "\ | 22739 | (autoload 'prolog-mode "prolog" "\ |
| @@ -22753,8 +22768,8 @@ With prefix argument ARG, restart the Prolog process if running before. | |||
| 22753 | 22768 | ||
| 22754 | ;;;*** | 22769 | ;;;*** |
| 22755 | 22770 | ||
| 22756 | ;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (20119 | 22771 | ;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (19845 |
| 22757 | ;;;;;; 34052)) | 22772 | ;;;;;; 45374)) |
| 22758 | ;;; Generated autoloads from ps-bdf.el | 22773 | ;;; Generated autoloads from ps-bdf.el |
| 22759 | 22774 | ||
| 22760 | (defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\ | 22775 | (defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\ |
| @@ -22765,8 +22780,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") | |||
| 22765 | 22780 | ||
| 22766 | ;;;*** | 22781 | ;;;*** |
| 22767 | 22782 | ||
| 22768 | ;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20119 | 22783 | ;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20167 |
| 22769 | ;;;;;; 34052)) | 22784 | ;;;;;; 36967)) |
| 22770 | ;;; Generated autoloads from progmodes/ps-mode.el | 22785 | ;;; Generated autoloads from progmodes/ps-mode.el |
| 22771 | 22786 | ||
| 22772 | (autoload 'ps-mode "ps-mode" "\ | 22787 | (autoload 'ps-mode "ps-mode" "\ |
| @@ -22817,8 +22832,8 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number | |||
| 22817 | ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer | 22832 | ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer |
| 22818 | ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces | 22833 | ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces |
| 22819 | ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type | 22834 | ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type |
| 22820 | ;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (20119 | 22835 | ;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (20172 |
| 22821 | ;;;;;; 34052)) | 22836 | ;;;;;; 55048)) |
| 22822 | ;;; Generated autoloads from ps-print.el | 22837 | ;;; Generated autoloads from ps-print.el |
| 22823 | 22838 | ||
| 22824 | (defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\ | 22839 | (defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\ |
| @@ -23015,7 +23030,7 @@ If EXTENSION is any other symbol, it is ignored. | |||
| 23015 | ;;;*** | 23030 | ;;;*** |
| 23016 | 23031 | ||
| 23017 | ;;;### (autoloads (jython-mode python-mode python-after-info-look | 23032 | ;;;### (autoloads (jython-mode python-mode python-after-info-look |
| 23018 | ;;;;;; run-python) "python" "progmodes/python.el" (20119 34052)) | 23033 | ;;;;;; run-python) "python" "progmodes/python.el" (20170 13157)) |
| 23019 | ;;; Generated autoloads from progmodes/python.el | 23034 | ;;; Generated autoloads from progmodes/python.el |
| 23020 | 23035 | ||
| 23021 | (add-to-list 'interpreter-mode-alist (cons (purecopy "jython") 'jython-mode)) | 23036 | (add-to-list 'interpreter-mode-alist (cons (purecopy "jython") 'jython-mode)) |
| @@ -23101,7 +23116,7 @@ Runs `jython-mode-hook' after `python-mode-hook'. | |||
| 23101 | ;;;*** | 23116 | ;;;*** |
| 23102 | 23117 | ||
| 23103 | ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" | 23118 | ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" |
| 23104 | ;;;;;; (20119 34052)) | 23119 | ;;;;;; (19845 45374)) |
| 23105 | ;;; Generated autoloads from gnus/qp.el | 23120 | ;;; Generated autoloads from gnus/qp.el |
| 23106 | 23121 | ||
| 23107 | (autoload 'quoted-printable-decode-region "qp" "\ | 23122 | (autoload 'quoted-printable-decode-region "qp" "\ |
| @@ -23124,7 +23139,7 @@ them into characters should be done separately. | |||
| 23124 | ;;;;;; quail-defrule quail-install-decode-map quail-install-map | 23139 | ;;;;;; quail-defrule quail-install-decode-map quail-install-map |
| 23125 | ;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout | 23140 | ;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout |
| 23126 | ;;;;;; quail-define-package quail-use-package quail-title) "quail" | 23141 | ;;;;;; quail-define-package quail-use-package quail-title) "quail" |
| 23127 | ;;;;;; "international/quail.el" (20119 34052)) | 23142 | ;;;;;; "international/quail.el" (20166 16092)) |
| 23128 | ;;; Generated autoloads from international/quail.el | 23143 | ;;; Generated autoloads from international/quail.el |
| 23129 | 23144 | ||
| 23130 | (autoload 'quail-title "quail" "\ | 23145 | (autoload 'quail-title "quail" "\ |
| @@ -23355,8 +23370,8 @@ of each directory. | |||
| 23355 | 23370 | ||
| 23356 | ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls | 23371 | ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls |
| 23357 | ;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url | 23372 | ;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url |
| 23358 | ;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (20119 | 23373 | ;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (20168 |
| 23359 | ;;;;;; 34052)) | 23374 | ;;;;;; 57844)) |
| 23360 | ;;; Generated autoloads from net/quickurl.el | 23375 | ;;; Generated autoloads from net/quickurl.el |
| 23361 | 23376 | ||
| 23362 | (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\ | 23377 | (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\ |
| @@ -23428,7 +23443,7 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. | |||
| 23428 | ;;;*** | 23443 | ;;;*** |
| 23429 | 23444 | ||
| 23430 | ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" | 23445 | ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" |
| 23431 | ;;;;;; "net/rcirc.el" (20138 51043)) | 23446 | ;;;;;; "net/rcirc.el" (20170 13157)) |
| 23432 | ;;; Generated autoloads from net/rcirc.el | 23447 | ;;; Generated autoloads from net/rcirc.el |
| 23433 | 23448 | ||
| 23434 | (autoload 'rcirc "rcirc" "\ | 23449 | (autoload 'rcirc "rcirc" "\ |
| @@ -23463,8 +23478,8 @@ Global minor mode for tracking activity in rcirc buffers. | |||
| 23463 | 23478 | ||
| 23464 | ;;;*** | 23479 | ;;;*** |
| 23465 | 23480 | ||
| 23466 | ;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20119 | 23481 | ;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (19845 |
| 23467 | ;;;;;; 34052)) | 23482 | ;;;;;; 45374)) |
| 23468 | ;;; Generated autoloads from net/rcompile.el | 23483 | ;;; Generated autoloads from net/rcompile.el |
| 23469 | 23484 | ||
| 23470 | (autoload 'remote-compile "rcompile" "\ | 23485 | (autoload 'remote-compile "rcompile" "\ |
| @@ -23476,7 +23491,7 @@ See \\[compile]. | |||
| 23476 | ;;;*** | 23491 | ;;;*** |
| 23477 | 23492 | ||
| 23478 | ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" | 23493 | ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" |
| 23479 | ;;;;;; (20119 34052)) | 23494 | ;;;;;; (19975 1875)) |
| 23480 | ;;; Generated autoloads from emacs-lisp/re-builder.el | 23495 | ;;; Generated autoloads from emacs-lisp/re-builder.el |
| 23481 | 23496 | ||
| 23482 | (defalias 'regexp-builder 're-builder) | 23497 | (defalias 'regexp-builder 're-builder) |
| @@ -23494,7 +23509,7 @@ matching parts of the target buffer will be highlighted. | |||
| 23494 | 23509 | ||
| 23495 | ;;;*** | 23510 | ;;;*** |
| 23496 | 23511 | ||
| 23497 | ;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20126 50335)) | 23512 | ;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20167 36967)) |
| 23498 | ;;; Generated autoloads from recentf.el | 23513 | ;;; Generated autoloads from recentf.el |
| 23499 | 23514 | ||
| 23500 | (defvar recentf-mode nil "\ | 23515 | (defvar recentf-mode nil "\ |
| @@ -23524,7 +23539,7 @@ were operated on recently. | |||
| 23524 | ;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle | 23539 | ;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle |
| 23525 | ;;;;;; insert-rectangle yank-rectangle kill-rectangle extract-rectangle | 23540 | ;;;;;; insert-rectangle yank-rectangle kill-rectangle extract-rectangle |
| 23526 | ;;;;;; delete-extract-rectangle delete-rectangle) "rect" "rect.el" | 23541 | ;;;;;; delete-extract-rectangle delete-rectangle) "rect" "rect.el" |
| 23527 | ;;;;;; (20119 34052)) | 23542 | ;;;;;; (19999 41597)) |
| 23528 | ;;; Generated autoloads from rect.el | 23543 | ;;; Generated autoloads from rect.el |
| 23529 | (define-key ctl-x-r-map "c" 'clear-rectangle) | 23544 | (define-key ctl-x-r-map "c" 'clear-rectangle) |
| 23530 | (define-key ctl-x-r-map "k" 'kill-rectangle) | 23545 | (define-key ctl-x-r-map "k" 'kill-rectangle) |
| @@ -23661,7 +23676,7 @@ with a prefix argument, prompt for START-AT and FORMAT. | |||
| 23661 | ;;;*** | 23676 | ;;;*** |
| 23662 | 23677 | ||
| 23663 | ;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20127 | 23678 | ;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20127 |
| 23664 | ;;;;;; 24416)) | 23679 | ;;;;;; 62865)) |
| 23665 | ;;; Generated autoloads from textmodes/refill.el | 23680 | ;;; Generated autoloads from textmodes/refill.el |
| 23666 | 23681 | ||
| 23667 | (autoload 'refill-mode "refill" "\ | 23682 | (autoload 'refill-mode "refill" "\ |
| @@ -23682,7 +23697,7 @@ For true \"word wrap\" behavior, use `visual-line-mode' instead. | |||
| 23682 | ;;;*** | 23697 | ;;;*** |
| 23683 | 23698 | ||
| 23684 | ;;;### (autoloads (reftex-reset-scanning-information reftex-mode | 23699 | ;;;### (autoloads (reftex-reset-scanning-information reftex-mode |
| 23685 | ;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20136 50092)) | 23700 | ;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20164 60780)) |
| 23686 | ;;; Generated autoloads from textmodes/reftex.el | 23701 | ;;; Generated autoloads from textmodes/reftex.el |
| 23687 | 23702 | ||
| 23688 | (autoload 'turn-on-reftex "reftex" "\ | 23703 | (autoload 'turn-on-reftex "reftex" "\ |
| @@ -23738,7 +23753,7 @@ This enforces rescanning the buffer on next use. | |||
| 23738 | ;;;*** | 23753 | ;;;*** |
| 23739 | 23754 | ||
| 23740 | ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" | 23755 | ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" |
| 23741 | ;;;;;; (20119 34052)) | 23756 | ;;;;;; (20168 57844)) |
| 23742 | ;;; Generated autoloads from textmodes/reftex-cite.el | 23757 | ;;; Generated autoloads from textmodes/reftex-cite.el |
| 23743 | 23758 | ||
| 23744 | (autoload 'reftex-citation "reftex-cite" "\ | 23759 | (autoload 'reftex-citation "reftex-cite" "\ |
| @@ -23768,7 +23783,7 @@ While entering the regexp, completion on knows citation keys is possible. | |||
| 23768 | ;;;*** | 23783 | ;;;*** |
| 23769 | 23784 | ||
| 23770 | ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" | 23785 | ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" |
| 23771 | ;;;;;; (20119 34052)) | 23786 | ;;;;;; (20164 60780)) |
| 23772 | ;;; Generated autoloads from textmodes/reftex-global.el | 23787 | ;;; Generated autoloads from textmodes/reftex-global.el |
| 23773 | 23788 | ||
| 23774 | (autoload 'reftex-isearch-minor-mode "reftex-global" "\ | 23789 | (autoload 'reftex-isearch-minor-mode "reftex-global" "\ |
| @@ -23785,7 +23800,7 @@ With no argument, this command toggles | |||
| 23785 | ;;;*** | 23800 | ;;;*** |
| 23786 | 23801 | ||
| 23787 | ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" | 23802 | ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" |
| 23788 | ;;;;;; (20119 34052)) | 23803 | ;;;;;; (20162 63140)) |
| 23789 | ;;; Generated autoloads from textmodes/reftex-index.el | 23804 | ;;; Generated autoloads from textmodes/reftex-index.el |
| 23790 | 23805 | ||
| 23791 | (autoload 'reftex-index-phrases-mode "reftex-index" "\ | 23806 | (autoload 'reftex-index-phrases-mode "reftex-index" "\ |
| @@ -23818,7 +23833,7 @@ Here are all local bindings. | |||
| 23818 | ;;;*** | 23833 | ;;;*** |
| 23819 | 23834 | ||
| 23820 | ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" | 23835 | ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" |
| 23821 | ;;;;;; (20119 34052)) | 23836 | ;;;;;; (20161 45793)) |
| 23822 | ;;; Generated autoloads from textmodes/reftex-parse.el | 23837 | ;;; Generated autoloads from textmodes/reftex-parse.el |
| 23823 | 23838 | ||
| 23824 | (autoload 'reftex-all-document-files "reftex-parse" "\ | 23839 | (autoload 'reftex-all-document-files "reftex-parse" "\ |
| @@ -23830,8 +23845,8 @@ of master file. | |||
| 23830 | 23845 | ||
| 23831 | ;;;*** | 23846 | ;;;*** |
| 23832 | 23847 | ||
| 23833 | ;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (20119 | 23848 | ;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (19845 |
| 23834 | ;;;;;; 34052)) | 23849 | ;;;;;; 45374)) |
| 23835 | ;;; Generated autoloads from textmodes/reftex-vars.el | 23850 | ;;; Generated autoloads from textmodes/reftex-vars.el |
| 23836 | (put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) | 23851 | (put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) |
| 23837 | (put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) | 23852 | (put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) |
| @@ -23841,7 +23856,7 @@ of master file. | |||
| 23841 | ;;;*** | 23856 | ;;;*** |
| 23842 | 23857 | ||
| 23843 | ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" | 23858 | ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" |
| 23844 | ;;;;;; (20119 34052)) | 23859 | ;;;;;; (19845 45374)) |
| 23845 | ;;; Generated autoloads from emacs-lisp/regexp-opt.el | 23860 | ;;; Generated autoloads from emacs-lisp/regexp-opt.el |
| 23846 | 23861 | ||
| 23847 | (autoload 'regexp-opt "regexp-opt" "\ | 23862 | (autoload 'regexp-opt "regexp-opt" "\ |
| @@ -23872,7 +23887,7 @@ This means the number of non-shy regexp grouping constructs | |||
| 23872 | 23887 | ||
| 23873 | ;;;### (autoloads (remember-diary-extract-entries remember-clipboard | 23888 | ;;;### (autoloads (remember-diary-extract-entries remember-clipboard |
| 23874 | ;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el" | 23889 | ;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el" |
| 23875 | ;;;;;; (20119 34052)) | 23890 | ;;;;;; (20161 45793)) |
| 23876 | ;;; Generated autoloads from textmodes/remember.el | 23891 | ;;; Generated autoloads from textmodes/remember.el |
| 23877 | 23892 | ||
| 23878 | (autoload 'remember "remember" "\ | 23893 | (autoload 'remember "remember" "\ |
| @@ -23903,7 +23918,7 @@ Extract diary entries from the region. | |||
| 23903 | 23918 | ||
| 23904 | ;;;*** | 23919 | ;;;*** |
| 23905 | 23920 | ||
| 23906 | ;;;### (autoloads (repeat) "repeat" "repeat.el" (20119 34052)) | 23921 | ;;;### (autoloads (repeat) "repeat" "repeat.el" (20172 54913)) |
| 23907 | ;;; Generated autoloads from repeat.el | 23922 | ;;; Generated autoloads from repeat.el |
| 23908 | 23923 | ||
| 23909 | (autoload 'repeat "repeat" "\ | 23924 | (autoload 'repeat "repeat" "\ |
| @@ -23926,7 +23941,7 @@ recently executed command not bound to an input event\". | |||
| 23926 | ;;;*** | 23941 | ;;;*** |
| 23927 | 23942 | ||
| 23928 | ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" | 23943 | ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" |
| 23929 | ;;;;;; (20119 34052)) | 23944 | ;;;;;; (20076 35541)) |
| 23930 | ;;; Generated autoloads from mail/reporter.el | 23945 | ;;; Generated autoloads from mail/reporter.el |
| 23931 | 23946 | ||
| 23932 | (autoload 'reporter-submit-bug-report "reporter" "\ | 23947 | (autoload 'reporter-submit-bug-report "reporter" "\ |
| @@ -23958,7 +23973,7 @@ mail-sending package is used for editing and sending the message. | |||
| 23958 | ;;;*** | 23973 | ;;;*** |
| 23959 | 23974 | ||
| 23960 | ;;;### (autoloads (reposition-window) "reposition" "reposition.el" | 23975 | ;;;### (autoloads (reposition-window) "reposition" "reposition.el" |
| 23961 | ;;;;;; (20119 34052)) | 23976 | ;;;;;; (19845 45374)) |
| 23962 | ;;; Generated autoloads from reposition.el | 23977 | ;;; Generated autoloads from reposition.el |
| 23963 | 23978 | ||
| 23964 | (autoload 'reposition-window "reposition" "\ | 23979 | (autoload 'reposition-window "reposition" "\ |
| @@ -23985,7 +24000,7 @@ first comment line visible (if point is in a comment). | |||
| 23985 | ;;;*** | 24000 | ;;;*** |
| 23986 | 24001 | ||
| 23987 | ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" | 24002 | ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" |
| 23988 | ;;;;;; (20126 50360)) | 24003 | ;;;;;; (20127 62865)) |
| 23989 | ;;; Generated autoloads from reveal.el | 24004 | ;;; Generated autoloads from reveal.el |
| 23990 | 24005 | ||
| 23991 | (autoload 'reveal-mode "reveal" "\ | 24006 | (autoload 'reveal-mode "reveal" "\ |
| @@ -24021,7 +24036,7 @@ the mode if ARG is omitted or nil. | |||
| 24021 | ;;;*** | 24036 | ;;;*** |
| 24022 | 24037 | ||
| 24023 | ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" | 24038 | ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" |
| 24024 | ;;;;;; (20119 34052)) | 24039 | ;;;;;; (19845 45374)) |
| 24025 | ;;; Generated autoloads from emacs-lisp/ring.el | 24040 | ;;; Generated autoloads from emacs-lisp/ring.el |
| 24026 | 24041 | ||
| 24027 | (autoload 'ring-p "ring" "\ | 24042 | (autoload 'ring-p "ring" "\ |
| @@ -24036,7 +24051,7 @@ Make a ring that can contain SIZE elements. | |||
| 24036 | 24051 | ||
| 24037 | ;;;*** | 24052 | ;;;*** |
| 24038 | 24053 | ||
| 24039 | ;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20119 34052)) | 24054 | ;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20077 56412)) |
| 24040 | ;;; Generated autoloads from net/rlogin.el | 24055 | ;;; Generated autoloads from net/rlogin.el |
| 24041 | 24056 | ||
| 24042 | (autoload 'rlogin "rlogin" "\ | 24057 | (autoload 'rlogin "rlogin" "\ |
| @@ -24085,7 +24100,7 @@ variable. | |||
| 24085 | ;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers | 24100 | ;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers |
| 24086 | ;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers | 24101 | ;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers |
| 24087 | ;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p) | 24102 | ;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p) |
| 24088 | ;;;;;; "rmail" "mail/rmail.el" (20138 48832)) | 24103 | ;;;;;; "rmail" "mail/rmail.el" (20174 10633)) |
| 24089 | ;;; Generated autoloads from mail/rmail.el | 24104 | ;;; Generated autoloads from mail/rmail.el |
| 24090 | 24105 | ||
| 24091 | (autoload 'rmail-movemail-variant-p "rmail" "\ | 24106 | (autoload 'rmail-movemail-variant-p "rmail" "\ |
| @@ -24183,8 +24198,8 @@ This is set to nil by default.") | |||
| 24183 | 24198 | ||
| 24184 | (defvar rmail-insert-mime-forwarded-message-function nil "\ | 24199 | (defvar rmail-insert-mime-forwarded-message-function nil "\ |
| 24185 | Function to insert a message in MIME format so it can be forwarded. | 24200 | Function to insert a message in MIME format so it can be forwarded. |
| 24186 | This function is called if `rmail-enable-mime' or | 24201 | This function is called if `rmail-enable-mime' and |
| 24187 | `rmail-enable-mime-composing' is non-nil. | 24202 | `rmail-enable-mime-composing' are non-nil. |
| 24188 | It is called with one argument FORWARD-BUFFER, which is a | 24203 | It is called with one argument FORWARD-BUFFER, which is a |
| 24189 | buffer containing the message to forward. The current buffer | 24204 | buffer containing the message to forward. The current buffer |
| 24190 | is the outgoing mail buffer.") | 24205 | is the outgoing mail buffer.") |
| @@ -24269,7 +24284,7 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. | |||
| 24269 | ;;;*** | 24284 | ;;;*** |
| 24270 | 24285 | ||
| 24271 | ;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen | 24286 | ;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen |
| 24272 | ;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20119 34052)) | 24287 | ;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20172 54913)) |
| 24273 | ;;; Generated autoloads from mail/rmailout.el | 24288 | ;;; Generated autoloads from mail/rmailout.el |
| 24274 | (put 'rmail-output-file-alist 'risky-local-variable t) | 24289 | (put 'rmail-output-file-alist 'risky-local-variable t) |
| 24275 | 24290 | ||
| @@ -24334,7 +24349,7 @@ than appending to it. Deletes the message after writing if | |||
| 24334 | ;;;*** | 24349 | ;;;*** |
| 24335 | 24350 | ||
| 24336 | ;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el" | 24351 | ;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el" |
| 24337 | ;;;;;; (20119 34052)) | 24352 | ;;;;;; (19845 45374)) |
| 24338 | ;;; Generated autoloads from nxml/rng-cmpct.el | 24353 | ;;; Generated autoloads from nxml/rng-cmpct.el |
| 24339 | 24354 | ||
| 24340 | (autoload 'rng-c-load-schema "rng-cmpct" "\ | 24355 | (autoload 'rng-c-load-schema "rng-cmpct" "\ |
| @@ -24346,7 +24361,7 @@ Return a pattern. | |||
| 24346 | ;;;*** | 24361 | ;;;*** |
| 24347 | 24362 | ||
| 24348 | ;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el" | 24363 | ;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el" |
| 24349 | ;;;;;; (20119 34052)) | 24364 | ;;;;;; (19845 45374)) |
| 24350 | ;;; Generated autoloads from nxml/rng-nxml.el | 24365 | ;;; Generated autoloads from nxml/rng-nxml.el |
| 24351 | 24366 | ||
| 24352 | (autoload 'rng-nxml-mode-init "rng-nxml" "\ | 24367 | (autoload 'rng-nxml-mode-init "rng-nxml" "\ |
| @@ -24359,7 +24374,7 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil. | |||
| 24359 | ;;;*** | 24374 | ;;;*** |
| 24360 | 24375 | ||
| 24361 | ;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el" | 24376 | ;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el" |
| 24362 | ;;;;;; (20119 34052)) | 24377 | ;;;;;; (20178 7273)) |
| 24363 | ;;; Generated autoloads from nxml/rng-valid.el | 24378 | ;;; Generated autoloads from nxml/rng-valid.el |
| 24364 | 24379 | ||
| 24365 | (autoload 'rng-validate-mode "rng-valid" "\ | 24380 | (autoload 'rng-validate-mode "rng-valid" "\ |
| @@ -24377,7 +24392,7 @@ will be automatically rechecked when Emacs becomes idle; the | |||
| 24377 | rechecking will be paused whenever there is input pending. | 24392 | rechecking will be paused whenever there is input pending. |
| 24378 | 24393 | ||
| 24379 | By default, uses a vacuous schema that allows any well-formed XML | 24394 | By default, uses a vacuous schema that allows any well-formed XML |
| 24380 | document. A schema can be specified explictly using | 24395 | document. A schema can be specified explicitly using |
| 24381 | \\[rng-set-schema-file-and-validate], or implicitly based on the buffer's | 24396 | \\[rng-set-schema-file-and-validate], or implicitly based on the buffer's |
| 24382 | file name or on the root element name. In each case the schema must | 24397 | file name or on the root element name. In each case the schema must |
| 24383 | be a RELAX NG schema using the compact schema (such schemas | 24398 | be a RELAX NG schema using the compact schema (such schemas |
| @@ -24389,8 +24404,8 @@ to use for finding the schema. | |||
| 24389 | 24404 | ||
| 24390 | ;;;*** | 24405 | ;;;*** |
| 24391 | 24406 | ||
| 24392 | ;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20119 | 24407 | ;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (19930 |
| 24393 | ;;;;;; 34052)) | 24408 | ;;;;;; 13389)) |
| 24394 | ;;; Generated autoloads from nxml/rng-xsd.el | 24409 | ;;; Generated autoloads from nxml/rng-xsd.el |
| 24395 | 24410 | ||
| 24396 | (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) | 24411 | (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) |
| @@ -24418,7 +24433,7 @@ must be equal. | |||
| 24418 | ;;;*** | 24433 | ;;;*** |
| 24419 | 24434 | ||
| 24420 | ;;;### (autoloads (robin-use-package robin-modify-package robin-define-package) | 24435 | ;;;### (autoloads (robin-use-package robin-modify-package robin-define-package) |
| 24421 | ;;;;;; "robin" "international/robin.el" (20119 34052)) | 24436 | ;;;;;; "robin" "international/robin.el" (20159 42847)) |
| 24422 | ;;; Generated autoloads from international/robin.el | 24437 | ;;; Generated autoloads from international/robin.el |
| 24423 | 24438 | ||
| 24424 | (autoload 'robin-define-package "robin" "\ | 24439 | (autoload 'robin-define-package "robin" "\ |
| @@ -24451,7 +24466,7 @@ Start using robin package NAME, which is a string. | |||
| 24451 | ;;;*** | 24466 | ;;;*** |
| 24452 | 24467 | ||
| 24453 | ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region | 24468 | ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region |
| 24454 | ;;;;;; rot13-string rot13) "rot13" "rot13.el" (20119 34052)) | 24469 | ;;;;;; rot13-string rot13) "rot13" "rot13.el" (20154 24929)) |
| 24455 | ;;; Generated autoloads from rot13.el | 24470 | ;;; Generated autoloads from rot13.el |
| 24456 | 24471 | ||
| 24457 | (autoload 'rot13 "rot13" "\ | 24472 | (autoload 'rot13 "rot13" "\ |
| @@ -24489,7 +24504,7 @@ Toggle the use of ROT13 encoding for the current window. | |||
| 24489 | ;;;*** | 24504 | ;;;*** |
| 24490 | 24505 | ||
| 24491 | ;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el" | 24506 | ;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el" |
| 24492 | ;;;;;; (20127 24234)) | 24507 | ;;;;;; (20178 7273)) |
| 24493 | ;;; Generated autoloads from textmodes/rst.el | 24508 | ;;; Generated autoloads from textmodes/rst.el |
| 24494 | (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) | 24509 | (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) |
| 24495 | 24510 | ||
| @@ -24526,7 +24541,7 @@ for modes derived from Text mode, like Mail mode. | |||
| 24526 | ;;;*** | 24541 | ;;;*** |
| 24527 | 24542 | ||
| 24528 | ;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el" | 24543 | ;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el" |
| 24529 | ;;;;;; (20119 34052)) | 24544 | ;;;;;; (19845 45374)) |
| 24530 | ;;; Generated autoloads from progmodes/ruby-mode.el | 24545 | ;;; Generated autoloads from progmodes/ruby-mode.el |
| 24531 | 24546 | ||
| 24532 | (autoload 'ruby-mode "ruby-mode" "\ | 24547 | (autoload 'ruby-mode "ruby-mode" "\ |
| @@ -24547,8 +24562,8 @@ The variable `ruby-indent-level' controls the amount of indentation. | |||
| 24547 | 24562 | ||
| 24548 | ;;;*** | 24563 | ;;;*** |
| 24549 | 24564 | ||
| 24550 | ;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20126 | 24565 | ;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20127 |
| 24551 | ;;;;;; 50390)) | 24566 | ;;;;;; 62865)) |
| 24552 | ;;; Generated autoloads from ruler-mode.el | 24567 | ;;; Generated autoloads from ruler-mode.el |
| 24553 | 24568 | ||
| 24554 | (defvar ruler-mode nil "\ | 24569 | (defvar ruler-mode nil "\ |
| @@ -24565,8 +24580,8 @@ if ARG is omitted or nil. | |||
| 24565 | 24580 | ||
| 24566 | ;;;*** | 24581 | ;;;*** |
| 24567 | 24582 | ||
| 24568 | ;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20119 | 24583 | ;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20161 |
| 24569 | ;;;;;; 34052)) | 24584 | ;;;;;; 45793)) |
| 24570 | ;;; Generated autoloads from emacs-lisp/rx.el | 24585 | ;;; Generated autoloads from emacs-lisp/rx.el |
| 24571 | 24586 | ||
| 24572 | (autoload 'rx-to-string "rx" "\ | 24587 | (autoload 'rx-to-string "rx" "\ |
| @@ -24877,8 +24892,8 @@ enclosed in `(and ...)'. | |||
| 24877 | 24892 | ||
| 24878 | ;;;*** | 24893 | ;;;*** |
| 24879 | 24894 | ||
| 24880 | ;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20126 | 24895 | ;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20127 |
| 24881 | ;;;;;; 50398)) | 24896 | ;;;;;; 62865)) |
| 24882 | ;;; Generated autoloads from savehist.el | 24897 | ;;; Generated autoloads from savehist.el |
| 24883 | 24898 | ||
| 24884 | (defvar savehist-mode nil "\ | 24899 | (defvar savehist-mode nil "\ |
| @@ -24910,7 +24925,7 @@ histories, which is probably undesirable. | |||
| 24910 | ;;;*** | 24925 | ;;;*** |
| 24911 | 24926 | ||
| 24912 | ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" | 24927 | ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" |
| 24913 | ;;;;;; (20119 34052)) | 24928 | ;;;;;; (20079 39251)) |
| 24914 | ;;; Generated autoloads from progmodes/scheme.el | 24929 | ;;; Generated autoloads from progmodes/scheme.el |
| 24915 | 24930 | ||
| 24916 | (autoload 'scheme-mode "scheme" "\ | 24931 | (autoload 'scheme-mode "scheme" "\ |
| @@ -24952,7 +24967,7 @@ that variable's value is a string. | |||
| 24952 | ;;;*** | 24967 | ;;;*** |
| 24953 | 24968 | ||
| 24954 | ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" | 24969 | ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" |
| 24955 | ;;;;;; (20119 34052)) | 24970 | ;;;;;; (19845 45374)) |
| 24956 | ;;; Generated autoloads from gnus/score-mode.el | 24971 | ;;; Generated autoloads from gnus/score-mode.el |
| 24957 | 24972 | ||
| 24958 | (autoload 'gnus-score-mode "score-mode" "\ | 24973 | (autoload 'gnus-score-mode "score-mode" "\ |
| @@ -24966,7 +24981,7 @@ This mode is an extended emacs-lisp mode. | |||
| 24966 | ;;;*** | 24981 | ;;;*** |
| 24967 | 24982 | ||
| 24968 | ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" | 24983 | ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" |
| 24969 | ;;;;;; (20126 50406)) | 24984 | ;;;;;; (20127 62865)) |
| 24970 | ;;; Generated autoloads from scroll-all.el | 24985 | ;;; Generated autoloads from scroll-all.el |
| 24971 | 24986 | ||
| 24972 | (defvar scroll-all-mode nil "\ | 24987 | (defvar scroll-all-mode nil "\ |
| @@ -24992,7 +25007,7 @@ one window apply to all visible windows in the same frame. | |||
| 24992 | ;;;*** | 25007 | ;;;*** |
| 24993 | 25008 | ||
| 24994 | ;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el" | 25009 | ;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el" |
| 24995 | ;;;;;; (20126 43719)) | 25010 | ;;;;;; (19845 45374)) |
| 24996 | ;;; Generated autoloads from scroll-lock.el | 25011 | ;;; Generated autoloads from scroll-lock.el |
| 24997 | 25012 | ||
| 24998 | (autoload 'scroll-lock-mode "scroll-lock" "\ | 25013 | (autoload 'scroll-lock-mode "scroll-lock" "\ |
| @@ -25006,7 +25021,7 @@ during scrolling. | |||
| 25006 | 25021 | ||
| 25007 | ;;;*** | 25022 | ;;;*** |
| 25008 | 25023 | ||
| 25009 | ;;;### (autoloads nil "secrets" "net/secrets.el" (20119 34052)) | 25024 | ;;;### (autoloads nil "secrets" "net/secrets.el" (20175 31160)) |
| 25010 | ;;; Generated autoloads from net/secrets.el | 25025 | ;;; Generated autoloads from net/secrets.el |
| 25011 | (when (featurep 'dbusbind) | 25026 | (when (featurep 'dbusbind) |
| 25012 | (autoload 'secrets-show-secrets "secrets" nil t)) | 25027 | (autoload 'secrets-show-secrets "secrets" nil t)) |
| @@ -25014,7 +25029,7 @@ during scrolling. | |||
| 25014 | ;;;*** | 25029 | ;;;*** |
| 25015 | 25030 | ||
| 25016 | ;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic" | 25031 | ;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic" |
| 25017 | ;;;;;; "cedet/semantic.el" (20127 23255)) | 25032 | ;;;;;; "cedet/semantic.el" (20172 54913)) |
| 25018 | ;;; Generated autoloads from cedet/semantic.el | 25033 | ;;; Generated autoloads from cedet/semantic.el |
| 25019 | 25034 | ||
| 25020 | (defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\ | 25035 | (defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\ |
| @@ -25068,7 +25083,7 @@ Semantic mode. | |||
| 25068 | ;;;;;; mail-personal-alias-file mail-default-reply-to mail-archive-file-name | 25083 | ;;;;;; mail-personal-alias-file mail-default-reply-to mail-archive-file-name |
| 25069 | ;;;;;; mail-header-separator send-mail-function mail-interactive | 25084 | ;;;;;; mail-header-separator send-mail-function mail-interactive |
| 25070 | ;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style) | 25085 | ;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style) |
| 25071 | ;;;;;; "sendmail" "mail/sendmail.el" (20121 46524)) | 25086 | ;;;;;; "sendmail" "mail/sendmail.el" (20122 44898)) |
| 25072 | ;;; Generated autoloads from mail/sendmail.el | 25087 | ;;; Generated autoloads from mail/sendmail.el |
| 25073 | 25088 | ||
| 25074 | (defvar mail-from-style 'default "\ | 25089 | (defvar mail-from-style 'default "\ |
| @@ -25350,8 +25365,8 @@ Like `mail' command, but display mail buffer in another frame. | |||
| 25350 | ;;;*** | 25365 | ;;;*** |
| 25351 | 25366 | ||
| 25352 | ;;;### (autoloads (server-save-buffers-kill-terminal server-mode | 25367 | ;;;### (autoloads (server-save-buffers-kill-terminal server-mode |
| 25353 | ;;;;;; server-force-delete server-start) "server" "server.el" (20126 | 25368 | ;;;;;; server-force-delete server-start) "server" "server.el" (20172 |
| 25354 | ;;;;;; 50430)) | 25369 | ;;;;;; 54913)) |
| 25355 | ;;; Generated autoloads from server.el | 25370 | ;;; Generated autoloads from server.el |
| 25356 | 25371 | ||
| 25357 | (put 'server-host 'risky-local-variable t) | 25372 | (put 'server-host 'risky-local-variable t) |
| @@ -25418,7 +25433,7 @@ only these files will be asked to be saved. | |||
| 25418 | 25433 | ||
| 25419 | ;;;*** | 25434 | ;;;*** |
| 25420 | 25435 | ||
| 25421 | ;;;### (autoloads (ses-mode) "ses" "ses.el" (20119 34052)) | 25436 | ;;;### (autoloads (ses-mode) "ses" "ses.el" (20172 54913)) |
| 25422 | ;;; Generated autoloads from ses.el | 25437 | ;;; Generated autoloads from ses.el |
| 25423 | 25438 | ||
| 25424 | (autoload 'ses-mode "ses" "\ | 25439 | (autoload 'ses-mode "ses" "\ |
| @@ -25437,7 +25452,7 @@ These are active only in the minibuffer, when entering or editing a formula: | |||
| 25437 | ;;;*** | 25452 | ;;;*** |
| 25438 | 25453 | ||
| 25439 | ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" | 25454 | ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" |
| 25440 | ;;;;;; (20127 24193)) | 25455 | ;;;;;; (20167 36967)) |
| 25441 | ;;; Generated autoloads from textmodes/sgml-mode.el | 25456 | ;;; Generated autoloads from textmodes/sgml-mode.el |
| 25442 | 25457 | ||
| 25443 | (autoload 'sgml-mode "sgml-mode" "\ | 25458 | (autoload 'sgml-mode "sgml-mode" "\ |
| @@ -25503,7 +25518,7 @@ To work around that, do: | |||
| 25503 | ;;;*** | 25518 | ;;;*** |
| 25504 | 25519 | ||
| 25505 | ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" | 25520 | ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" |
| 25506 | ;;;;;; (20120 43373)) | 25521 | ;;;;;; (20168 57844)) |
| 25507 | ;;; Generated autoloads from progmodes/sh-script.el | 25522 | ;;; Generated autoloads from progmodes/sh-script.el |
| 25508 | (put 'sh-shell 'safe-local-variable 'symbolp) | 25523 | (put 'sh-shell 'safe-local-variable 'symbolp) |
| 25509 | 25524 | ||
| @@ -25568,7 +25583,7 @@ with your script for an edit-interpret-debug cycle. | |||
| 25568 | ;;;*** | 25583 | ;;;*** |
| 25569 | 25584 | ||
| 25570 | ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" | 25585 | ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" |
| 25571 | ;;;;;; (20119 34052)) | 25586 | ;;;;;; (19845 45374)) |
| 25572 | ;;; Generated autoloads from emacs-lisp/shadow.el | 25587 | ;;; Generated autoloads from emacs-lisp/shadow.el |
| 25573 | 25588 | ||
| 25574 | (autoload 'list-load-path-shadows "shadow" "\ | 25589 | (autoload 'list-load-path-shadows "shadow" "\ |
| @@ -25618,8 +25633,8 @@ function, `load-path-shadows-find'. | |||
| 25618 | ;;;*** | 25633 | ;;;*** |
| 25619 | 25634 | ||
| 25620 | ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group | 25635 | ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group |
| 25621 | ;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20119 | 25636 | ;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (19886 |
| 25622 | ;;;;;; 34052)) | 25637 | ;;;;;; 45771)) |
| 25623 | ;;; Generated autoloads from shadowfile.el | 25638 | ;;; Generated autoloads from shadowfile.el |
| 25624 | 25639 | ||
| 25625 | (autoload 'shadow-define-cluster "shadowfile" "\ | 25640 | (autoload 'shadow-define-cluster "shadowfile" "\ |
| @@ -25658,7 +25673,7 @@ Set up file shadowing. | |||
| 25658 | ;;;*** | 25673 | ;;;*** |
| 25659 | 25674 | ||
| 25660 | ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" | 25675 | ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" |
| 25661 | ;;;;;; (20126 50438)) | 25676 | ;;;;;; (20168 57844)) |
| 25662 | ;;; Generated autoloads from shell.el | 25677 | ;;; Generated autoloads from shell.el |
| 25663 | 25678 | ||
| 25664 | (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ | 25679 | (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ |
| @@ -25706,8 +25721,8 @@ Otherwise, one argument `-i' is passed to the shell. | |||
| 25706 | 25721 | ||
| 25707 | ;;;*** | 25722 | ;;;*** |
| 25708 | 25723 | ||
| 25709 | ;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20119 | 25724 | ;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20172 |
| 25710 | ;;;;;; 34052)) | 25725 | ;;;;;; 54913)) |
| 25711 | ;;; Generated autoloads from gnus/shr.el | 25726 | ;;; Generated autoloads from gnus/shr.el |
| 25712 | 25727 | ||
| 25713 | (autoload 'shr-insert-document "shr" "\ | 25728 | (autoload 'shr-insert-document "shr" "\ |
| @@ -25718,7 +25733,7 @@ Otherwise, one argument `-i' is passed to the shell. | |||
| 25718 | ;;;*** | 25733 | ;;;*** |
| 25719 | 25734 | ||
| 25720 | ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) | 25735 | ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) |
| 25721 | ;;;;;; "sieve" "gnus/sieve.el" (20119 34052)) | 25736 | ;;;;;; "sieve" "gnus/sieve.el" (20165 31925)) |
| 25722 | ;;; Generated autoloads from gnus/sieve.el | 25737 | ;;; Generated autoloads from gnus/sieve.el |
| 25723 | 25738 | ||
| 25724 | (autoload 'sieve-manage "sieve" "\ | 25739 | (autoload 'sieve-manage "sieve" "\ |
| @@ -25739,7 +25754,7 @@ Otherwise, one argument `-i' is passed to the shell. | |||
| 25739 | ;;;*** | 25754 | ;;;*** |
| 25740 | 25755 | ||
| 25741 | ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" | 25756 | ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" |
| 25742 | ;;;;;; (20119 34052)) | 25757 | ;;;;;; (19845 45374)) |
| 25743 | ;;; Generated autoloads from gnus/sieve-mode.el | 25758 | ;;; Generated autoloads from gnus/sieve-mode.el |
| 25744 | 25759 | ||
| 25745 | (autoload 'sieve-mode "sieve-mode" "\ | 25760 | (autoload 'sieve-mode "sieve-mode" "\ |
| @@ -25754,8 +25769,8 @@ Turning on Sieve mode runs `sieve-mode-hook'. | |||
| 25754 | 25769 | ||
| 25755 | ;;;*** | 25770 | ;;;*** |
| 25756 | 25771 | ||
| 25757 | ;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (20119 | 25772 | ;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (19890 |
| 25758 | ;;;;;; 34052)) | 25773 | ;;;;;; 42850)) |
| 25759 | ;;; Generated autoloads from progmodes/simula.el | 25774 | ;;; Generated autoloads from progmodes/simula.el |
| 25760 | 25775 | ||
| 25761 | (autoload 'simula-mode "simula" "\ | 25776 | (autoload 'simula-mode "simula" "\ |
| @@ -25804,7 +25819,7 @@ with no arguments, if that value is non-nil. | |||
| 25804 | ;;;*** | 25819 | ;;;*** |
| 25805 | 25820 | ||
| 25806 | ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new | 25821 | ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new |
| 25807 | ;;;;;; define-skeleton) "skeleton" "skeleton.el" (20119 34052)) | 25822 | ;;;;;; define-skeleton) "skeleton" "skeleton.el" (19845 45374)) |
| 25808 | ;;; Generated autoloads from skeleton.el | 25823 | ;;; Generated autoloads from skeleton.el |
| 25809 | 25824 | ||
| 25810 | (defvar skeleton-filter-function 'identity "\ | 25825 | (defvar skeleton-filter-function 'identity "\ |
| @@ -25914,7 +25929,7 @@ symmetrical ones, and the same character twice for the others. | |||
| 25914 | ;;;*** | 25929 | ;;;*** |
| 25915 | 25930 | ||
| 25916 | ;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff) | 25931 | ;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff) |
| 25917 | ;;;;;; "smerge-mode" "vc/smerge-mode.el" (20119 34052)) | 25932 | ;;;;;; "smerge-mode" "vc/smerge-mode.el" (19946 1612)) |
| 25918 | ;;; Generated autoloads from vc/smerge-mode.el | 25933 | ;;; Generated autoloads from vc/smerge-mode.el |
| 25919 | 25934 | ||
| 25920 | (autoload 'smerge-ediff "smerge-mode" "\ | 25935 | (autoload 'smerge-ediff "smerge-mode" "\ |
| @@ -25939,7 +25954,7 @@ If no conflict maker is found, turn off `smerge-mode'. | |||
| 25939 | ;;;*** | 25954 | ;;;*** |
| 25940 | 25955 | ||
| 25941 | ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" | 25956 | ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" |
| 25942 | ;;;;;; (20119 34052)) | 25957 | ;;;;;; (19939 28373)) |
| 25943 | ;;; Generated autoloads from gnus/smiley.el | 25958 | ;;; Generated autoloads from gnus/smiley.el |
| 25944 | 25959 | ||
| 25945 | (autoload 'smiley-region "smiley" "\ | 25960 | (autoload 'smiley-region "smiley" "\ |
| @@ -25957,7 +25972,7 @@ interactively. If there's no argument, do it at the current buffer. | |||
| 25957 | ;;;*** | 25972 | ;;;*** |
| 25958 | 25973 | ||
| 25959 | ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" | 25974 | ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" |
| 25960 | ;;;;;; "mail/smtpmail.el" (20119 34052)) | 25975 | ;;;;;; "mail/smtpmail.el" (20168 57844)) |
| 25961 | ;;; Generated autoloads from mail/smtpmail.el | 25976 | ;;; Generated autoloads from mail/smtpmail.el |
| 25962 | 25977 | ||
| 25963 | (autoload 'smtpmail-send-it "smtpmail" "\ | 25978 | (autoload 'smtpmail-send-it "smtpmail" "\ |
| @@ -25972,7 +25987,7 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. | |||
| 25972 | 25987 | ||
| 25973 | ;;;*** | 25988 | ;;;*** |
| 25974 | 25989 | ||
| 25975 | ;;;### (autoloads (snake) "snake" "play/snake.el" (20119 34052)) | 25990 | ;;;### (autoloads (snake) "snake" "play/snake.el" (19845 45374)) |
| 25976 | ;;; Generated autoloads from play/snake.el | 25991 | ;;; Generated autoloads from play/snake.el |
| 25977 | 25992 | ||
| 25978 | (autoload 'snake "snake" "\ | 25993 | (autoload 'snake "snake" "\ |
| @@ -25996,7 +26011,7 @@ Snake mode keybindings: | |||
| 25996 | ;;;*** | 26011 | ;;;*** |
| 25997 | 26012 | ||
| 25998 | ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" | 26013 | ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" |
| 25999 | ;;;;;; (20119 34052)) | 26014 | ;;;;;; (20161 45793)) |
| 26000 | ;;; Generated autoloads from net/snmp-mode.el | 26015 | ;;; Generated autoloads from net/snmp-mode.el |
| 26001 | 26016 | ||
| 26002 | (autoload 'snmp-mode "snmp-mode" "\ | 26017 | (autoload 'snmp-mode "snmp-mode" "\ |
| @@ -26025,8 +26040,8 @@ then `snmpv2-mode-hook'. | |||
| 26025 | 26040 | ||
| 26026 | ;;;*** | 26041 | ;;;*** |
| 26027 | 26042 | ||
| 26028 | ;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (20119 | 26043 | ;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (19886 |
| 26029 | ;;;;;; 34052)) | 26044 | ;;;;;; 45771)) |
| 26030 | ;;; Generated autoloads from calendar/solar.el | 26045 | ;;; Generated autoloads from calendar/solar.el |
| 26031 | 26046 | ||
| 26032 | (autoload 'sunrise-sunset "solar" "\ | 26047 | (autoload 'sunrise-sunset "solar" "\ |
| @@ -26041,8 +26056,8 @@ This function is suitable for execution in a .emacs file. | |||
| 26041 | 26056 | ||
| 26042 | ;;;*** | 26057 | ;;;*** |
| 26043 | 26058 | ||
| 26044 | ;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20119 | 26059 | ;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20165 |
| 26045 | ;;;;;; 34052)) | 26060 | ;;;;;; 31925)) |
| 26046 | ;;; Generated autoloads from play/solitaire.el | 26061 | ;;; Generated autoloads from play/solitaire.el |
| 26047 | 26062 | ||
| 26048 | (autoload 'solitaire "solitaire" "\ | 26063 | (autoload 'solitaire "solitaire" "\ |
| @@ -26119,7 +26134,7 @@ Pick your favorite shortcuts: | |||
| 26119 | 26134 | ||
| 26120 | ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields | 26135 | ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields |
| 26121 | ;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs | 26136 | ;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs |
| 26122 | ;;;;;; sort-lines sort-subr) "sort" "sort.el" (20119 34052)) | 26137 | ;;;;;; sort-lines sort-subr) "sort" "sort.el" (19845 45374)) |
| 26123 | ;;; Generated autoloads from sort.el | 26138 | ;;; Generated autoloads from sort.el |
| 26124 | (put 'sort-fold-case 'safe-local-variable 'booleanp) | 26139 | (put 'sort-fold-case 'safe-local-variable 'booleanp) |
| 26125 | 26140 | ||
| @@ -26263,8 +26278,8 @@ From a program takes two point or marker arguments, BEG and END. | |||
| 26263 | 26278 | ||
| 26264 | ;;;*** | 26279 | ;;;*** |
| 26265 | 26280 | ||
| 26266 | ;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20119 | 26281 | ;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20167 |
| 26267 | ;;;;;; 34052)) | 26282 | ;;;;;; 36967)) |
| 26268 | ;;; Generated autoloads from gnus/spam.el | 26283 | ;;; Generated autoloads from gnus/spam.el |
| 26269 | 26284 | ||
| 26270 | (autoload 'spam-initialize "spam" "\ | 26285 | (autoload 'spam-initialize "spam" "\ |
| @@ -26280,7 +26295,7 @@ installed through `spam-necessary-extra-headers'. | |||
| 26280 | 26295 | ||
| 26281 | ;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file | 26296 | ;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file |
| 26282 | ;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" | 26297 | ;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" |
| 26283 | ;;;;;; "gnus/spam-report.el" (20119 34052)) | 26298 | ;;;;;; "gnus/spam-report.el" (20166 16092)) |
| 26284 | ;;; Generated autoloads from gnus/spam-report.el | 26299 | ;;; Generated autoloads from gnus/spam-report.el |
| 26285 | 26300 | ||
| 26286 | (autoload 'spam-report-process-queue "spam-report" "\ | 26301 | (autoload 'spam-report-process-queue "spam-report" "\ |
| @@ -26323,7 +26338,7 @@ Spam reports will be queued with the method used when | |||
| 26323 | ;;;*** | 26338 | ;;;*** |
| 26324 | 26339 | ||
| 26325 | ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" | 26340 | ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" |
| 26326 | ;;;;;; "speedbar.el" (20119 34052)) | 26341 | ;;;;;; "speedbar.el" (20178 7273)) |
| 26327 | ;;; Generated autoloads from speedbar.el | 26342 | ;;; Generated autoloads from speedbar.el |
| 26328 | 26343 | ||
| 26329 | (defalias 'speedbar 'speedbar-frame-mode) | 26344 | (defalias 'speedbar 'speedbar-frame-mode) |
| @@ -26347,8 +26362,8 @@ selected. If the speedbar frame is active, then select the attached frame. | |||
| 26347 | 26362 | ||
| 26348 | ;;;*** | 26363 | ;;;*** |
| 26349 | 26364 | ||
| 26350 | ;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20119 | 26365 | ;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (19845 |
| 26351 | ;;;;;; 34052)) | 26366 | ;;;;;; 45374)) |
| 26352 | ;;; Generated autoloads from play/spook.el | 26367 | ;;; Generated autoloads from play/spook.el |
| 26353 | 26368 | ||
| 26354 | (autoload 'spook "spook" "\ | 26369 | (autoload 'spook "spook" "\ |
| @@ -26367,7 +26382,7 @@ Return a vector containing the lines from `spook-phrases-file'. | |||
| 26367 | ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix | 26382 | ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix |
| 26368 | ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect | 26383 | ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect |
| 26369 | ;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el" | 26384 | ;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el" |
| 26370 | ;;;;;; (20119 34052)) | 26385 | ;;;;;; (20178 7273)) |
| 26371 | ;;; Generated autoloads from progmodes/sql.el | 26386 | ;;; Generated autoloads from progmodes/sql.el |
| 26372 | 26387 | ||
| 26373 | (autoload 'sql-add-product-keywords "sql" "\ | 26388 | (autoload 'sql-add-product-keywords "sql" "\ |
| @@ -26863,7 +26878,7 @@ buffer. | |||
| 26863 | ;;;*** | 26878 | ;;;*** |
| 26864 | 26879 | ||
| 26865 | ;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el" | 26880 | ;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el" |
| 26866 | ;;;;;; (20119 34052)) | 26881 | ;;;;;; (20160 63745)) |
| 26867 | ;;; Generated autoloads from cedet/srecode/srt-mode.el | 26882 | ;;; Generated autoloads from cedet/srecode/srt-mode.el |
| 26868 | 26883 | ||
| 26869 | (autoload 'srecode-template-mode "srecode/srt-mode" "\ | 26884 | (autoload 'srecode-template-mode "srecode/srt-mode" "\ |
| @@ -26876,7 +26891,7 @@ Major-mode for writing SRecode macros. | |||
| 26876 | ;;;*** | 26891 | ;;;*** |
| 26877 | 26892 | ||
| 26878 | ;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el" | 26893 | ;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el" |
| 26879 | ;;;;;; (20119 34052)) | 26894 | ;;;;;; (20175 31160)) |
| 26880 | ;;; Generated autoloads from gnus/starttls.el | 26895 | ;;; Generated autoloads from gnus/starttls.el |
| 26881 | 26896 | ||
| 26882 | (autoload 'starttls-open-stream "starttls" "\ | 26897 | (autoload 'starttls-open-stream "starttls" "\ |
| @@ -26893,7 +26908,7 @@ BUFFER is the buffer (or `buffer-name') to associate with the process. | |||
| 26893 | Third arg is name of the host to connect to, or its IP address. | 26908 | Third arg is name of the host to connect to, or its IP address. |
| 26894 | Fourth arg PORT is an integer specifying a port to connect to. | 26909 | Fourth arg PORT is an integer specifying a port to connect to. |
| 26895 | If `starttls-use-gnutls' is nil, this may also be a service name, but | 26910 | If `starttls-use-gnutls' is nil, this may also be a service name, but |
| 26896 | GNUTLS requires a port number. | 26911 | GnuTLS requires a port number. |
| 26897 | 26912 | ||
| 26898 | \(fn NAME BUFFER HOST PORT)" nil nil) | 26913 | \(fn NAME BUFFER HOST PORT)" nil nil) |
| 26899 | 26914 | ||
| @@ -26903,8 +26918,8 @@ GNUTLS requires a port number. | |||
| 26903 | ;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes | 26918 | ;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes |
| 26904 | ;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke | 26919 | ;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke |
| 26905 | ;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke | 26920 | ;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke |
| 26906 | ;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20126 | 26921 | ;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20127 |
| 26907 | ;;;;;; 50576)) | 26922 | ;;;;;; 62865)) |
| 26908 | ;;; Generated autoloads from strokes.el | 26923 | ;;; Generated autoloads from strokes.el |
| 26909 | 26924 | ||
| 26910 | (autoload 'strokes-global-set-stroke "strokes" "\ | 26925 | (autoload 'strokes-global-set-stroke "strokes" "\ |
| @@ -27018,7 +27033,7 @@ Read a complex stroke and insert its glyph into the current buffer. | |||
| 27018 | ;;;*** | 27033 | ;;;*** |
| 27019 | 27034 | ||
| 27020 | ;;;### (autoloads (studlify-buffer studlify-word studlify-region) | 27035 | ;;;### (autoloads (studlify-buffer studlify-word studlify-region) |
| 27021 | ;;;;;; "studly" "play/studly.el" (20119 34052)) | 27036 | ;;;;;; "studly" "play/studly.el" (19845 45374)) |
| 27022 | ;;; Generated autoloads from play/studly.el | 27037 | ;;; Generated autoloads from play/studly.el |
| 27023 | 27038 | ||
| 27024 | (autoload 'studlify-region "studly" "\ | 27039 | (autoload 'studlify-region "studly" "\ |
| @@ -27039,7 +27054,7 @@ Studlify-case the current buffer. | |||
| 27039 | ;;;*** | 27054 | ;;;*** |
| 27040 | 27055 | ||
| 27041 | ;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el" | 27056 | ;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el" |
| 27042 | ;;;;;; (20127 25236)) | 27057 | ;;;;;; (20127 62865)) |
| 27043 | ;;; Generated autoloads from progmodes/subword.el | 27058 | ;;; Generated autoloads from progmodes/subword.el |
| 27044 | 27059 | ||
| 27045 | (autoload 'subword-mode "subword" "\ | 27060 | (autoload 'subword-mode "subword" "\ |
| @@ -27095,7 +27110,7 @@ See `subword-mode' for more information on Subword mode. | |||
| 27095 | ;;;*** | 27110 | ;;;*** |
| 27096 | 27111 | ||
| 27097 | ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" | 27112 | ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" |
| 27098 | ;;;;;; (20119 34052)) | 27113 | ;;;;;; (19931 11784)) |
| 27099 | ;;; Generated autoloads from mail/supercite.el | 27114 | ;;; Generated autoloads from mail/supercite.el |
| 27100 | 27115 | ||
| 27101 | (autoload 'sc-cite-original "supercite" "\ | 27116 | (autoload 'sc-cite-original "supercite" "\ |
| @@ -27127,8 +27142,8 @@ and `sc-post-hook' is run after the guts of this function. | |||
| 27127 | 27142 | ||
| 27128 | ;;;*** | 27143 | ;;;*** |
| 27129 | 27144 | ||
| 27130 | ;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20126 | 27145 | ;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20127 |
| 27131 | ;;;;;; 50587)) | 27146 | ;;;;;; 62865)) |
| 27132 | ;;; Generated autoloads from t-mouse.el | 27147 | ;;; Generated autoloads from t-mouse.el |
| 27133 | 27148 | ||
| 27134 | (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") | 27149 | (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") |
| @@ -27156,7 +27171,7 @@ It relies on the `gpm' daemon being activated. | |||
| 27156 | 27171 | ||
| 27157 | ;;;*** | 27172 | ;;;*** |
| 27158 | 27173 | ||
| 27159 | ;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20119 34052)) | 27174 | ;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (19998 49767)) |
| 27160 | ;;; Generated autoloads from tabify.el | 27175 | ;;; Generated autoloads from tabify.el |
| 27161 | 27176 | ||
| 27162 | (autoload 'untabify "tabify" "\ | 27177 | (autoload 'untabify "tabify" "\ |
| @@ -27191,7 +27206,7 @@ The variable `tab-width' controls the spacing of tab stops. | |||
| 27191 | ;;;;;; table-recognize table-insert-row-column table-insert-column | 27206 | ;;;;;; table-recognize table-insert-row-column table-insert-column |
| 27192 | ;;;;;; table-insert-row table-insert table-point-left-cell-hook | 27207 | ;;;;;; table-insert-row table-insert table-point-left-cell-hook |
| 27193 | ;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) | 27208 | ;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) |
| 27194 | ;;;;;; "table" "textmodes/table.el" (20119 34052)) | 27209 | ;;;;;; "table" "textmodes/table.el" (20179 28130)) |
| 27195 | ;;; Generated autoloads from textmodes/table.el | 27210 | ;;; Generated autoloads from textmodes/table.el |
| 27196 | 27211 | ||
| 27197 | (defvar table-cell-map-hook nil "\ | 27212 | (defvar table-cell-map-hook nil "\ |
| @@ -27771,7 +27786,7 @@ companion command to `table-capture' this way. | |||
| 27771 | 27786 | ||
| 27772 | (autoload 'table-release "table" "\ | 27787 | (autoload 'table-release "table" "\ |
| 27773 | Convert a table into plain text by removing the frame from a table. | 27788 | Convert a table into plain text by removing the frame from a table. |
| 27774 | Remove the frame from a table and inactivate the table. This command | 27789 | Remove the frame from a table and deactivate the table. This command |
| 27775 | converts a table into plain text without frames. It is a companion to | 27790 | converts a table into plain text without frames. It is a companion to |
| 27776 | `table-capture' which does the opposite process. | 27791 | `table-capture' which does the opposite process. |
| 27777 | 27792 | ||
| @@ -27780,7 +27795,7 @@ converts a table into plain text without frames. It is a companion to | |||
| 27780 | ;;;*** | 27795 | ;;;*** |
| 27781 | 27796 | ||
| 27782 | ;;;### (autoloads (tabulated-list-mode) "tabulated-list" "emacs-lisp/tabulated-list.el" | 27797 | ;;;### (autoloads (tabulated-list-mode) "tabulated-list" "emacs-lisp/tabulated-list.el" |
| 27783 | ;;;;;; (20119 34052)) | 27798 | ;;;;;; (20170 13157)) |
| 27784 | ;;; Generated autoloads from emacs-lisp/tabulated-list.el | 27799 | ;;; Generated autoloads from emacs-lisp/tabulated-list.el |
| 27785 | 27800 | ||
| 27786 | (autoload 'tabulated-list-mode "tabulated-list" "\ | 27801 | (autoload 'tabulated-list-mode "tabulated-list" "\ |
| @@ -27822,7 +27837,7 @@ as the ewoc pretty-printer. | |||
| 27822 | 27837 | ||
| 27823 | ;;;*** | 27838 | ;;;*** |
| 27824 | 27839 | ||
| 27825 | ;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20140 44272)) | 27840 | ;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20141 9296)) |
| 27826 | ;;; Generated autoloads from talk.el | 27841 | ;;; Generated autoloads from talk.el |
| 27827 | 27842 | ||
| 27828 | (autoload 'talk-connect "talk" "\ | 27843 | (autoload 'talk-connect "talk" "\ |
| @@ -27837,7 +27852,7 @@ Connect to the Emacs talk group from the current X display or tty frame. | |||
| 27837 | 27852 | ||
| 27838 | ;;;*** | 27853 | ;;;*** |
| 27839 | 27854 | ||
| 27840 | ;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20129 34168)) | 27855 | ;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20161 45793)) |
| 27841 | ;;; Generated autoloads from tar-mode.el | 27856 | ;;; Generated autoloads from tar-mode.el |
| 27842 | 27857 | ||
| 27843 | (autoload 'tar-mode "tar-mode" "\ | 27858 | (autoload 'tar-mode "tar-mode" "\ |
| @@ -27861,7 +27876,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. | |||
| 27861 | ;;;*** | 27876 | ;;;*** |
| 27862 | 27877 | ||
| 27863 | ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" | 27878 | ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" |
| 27864 | ;;;;;; "progmodes/tcl.el" (20119 34052)) | 27879 | ;;;;;; "progmodes/tcl.el" (20164 29468)) |
| 27865 | ;;; Generated autoloads from progmodes/tcl.el | 27880 | ;;; Generated autoloads from progmodes/tcl.el |
| 27866 | 27881 | ||
| 27867 | (autoload 'tcl-mode "tcl" "\ | 27882 | (autoload 'tcl-mode "tcl" "\ |
| @@ -27909,7 +27924,7 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. | |||
| 27909 | 27924 | ||
| 27910 | ;;;*** | 27925 | ;;;*** |
| 27911 | 27926 | ||
| 27912 | ;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20119 34052)) | 27927 | ;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20077 56412)) |
| 27913 | ;;; Generated autoloads from net/telnet.el | 27928 | ;;; Generated autoloads from net/telnet.el |
| 27914 | 27929 | ||
| 27915 | (autoload 'telnet "telnet" "\ | 27930 | (autoload 'telnet "telnet" "\ |
| @@ -27935,7 +27950,7 @@ Normally input is edited in Emacs and sent a line at a time. | |||
| 27935 | ;;;*** | 27950 | ;;;*** |
| 27936 | 27951 | ||
| 27937 | ;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el" | 27952 | ;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el" |
| 27938 | ;;;;;; (20119 34052)) | 27953 | ;;;;;; (20178 7273)) |
| 27939 | ;;; Generated autoloads from term.el | 27954 | ;;; Generated autoloads from term.el |
| 27940 | 27955 | ||
| 27941 | (autoload 'make-term "term" "\ | 27956 | (autoload 'make-term "term" "\ |
| @@ -27977,8 +27992,8 @@ use in that buffer. | |||
| 27977 | 27992 | ||
| 27978 | ;;;*** | 27993 | ;;;*** |
| 27979 | 27994 | ||
| 27980 | ;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20119 | 27995 | ;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20167 |
| 27981 | ;;;;;; 34052)) | 27996 | ;;;;;; 36967)) |
| 27982 | ;;; Generated autoloads from terminal.el | 27997 | ;;; Generated autoloads from terminal.el |
| 27983 | 27998 | ||
| 27984 | (autoload 'terminal-emulator "terminal" "\ | 27999 | (autoload 'terminal-emulator "terminal" "\ |
| @@ -28015,7 +28030,7 @@ subprocess started. | |||
| 28015 | ;;;*** | 28030 | ;;;*** |
| 28016 | 28031 | ||
| 28017 | ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" | 28032 | ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" |
| 28018 | ;;;;;; (20119 34052)) | 28033 | ;;;;;; (20172 54913)) |
| 28019 | ;;; Generated autoloads from emacs-lisp/testcover.el | 28034 | ;;; Generated autoloads from emacs-lisp/testcover.el |
| 28020 | 28035 | ||
| 28021 | (autoload 'testcover-this-defun "testcover" "\ | 28036 | (autoload 'testcover-this-defun "testcover" "\ |
| @@ -28025,7 +28040,7 @@ Start coverage on function under point. | |||
| 28025 | 28040 | ||
| 28026 | ;;;*** | 28041 | ;;;*** |
| 28027 | 28042 | ||
| 28028 | ;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20119 34052)) | 28043 | ;;;### (autoloads (tetris) "tetris" "play/tetris.el" (19889 21967)) |
| 28029 | ;;; Generated autoloads from play/tetris.el | 28044 | ;;; Generated autoloads from play/tetris.el |
| 28030 | 28045 | ||
| 28031 | (autoload 'tetris "tetris" "\ | 28046 | (autoload 'tetris "tetris" "\ |
| @@ -28056,7 +28071,7 @@ tetris-mode keybindings: | |||
| 28056 | ;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command | 28071 | ;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command |
| 28057 | ;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp | 28072 | ;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp |
| 28058 | ;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" | 28073 | ;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" |
| 28059 | ;;;;;; (20134 8463)) | 28074 | ;;;;;; (20178 7273)) |
| 28060 | ;;; Generated autoloads from textmodes/tex-mode.el | 28075 | ;;; Generated autoloads from textmodes/tex-mode.el |
| 28061 | 28076 | ||
| 28062 | (defvar tex-shell-file-name nil "\ | 28077 | (defvar tex-shell-file-name nil "\ |
| @@ -28358,7 +28373,7 @@ Major mode to edit DocTeX files. | |||
| 28358 | ;;;*** | 28373 | ;;;*** |
| 28359 | 28374 | ||
| 28360 | ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) | 28375 | ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) |
| 28361 | ;;;;;; "texinfmt" "textmodes/texinfmt.el" (20119 34052)) | 28376 | ;;;;;; "texinfmt" "textmodes/texinfmt.el" (20183 25152)) |
| 28362 | ;;; Generated autoloads from textmodes/texinfmt.el | 28377 | ;;; Generated autoloads from textmodes/texinfmt.el |
| 28363 | 28378 | ||
| 28364 | (autoload 'texinfo-format-buffer "texinfmt" "\ | 28379 | (autoload 'texinfo-format-buffer "texinfmt" "\ |
| @@ -28398,7 +28413,7 @@ if large. You can use `Info-split' to do this manually. | |||
| 28398 | ;;;*** | 28413 | ;;;*** |
| 28399 | 28414 | ||
| 28400 | ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) | 28415 | ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) |
| 28401 | ;;;;;; "texinfo" "textmodes/texinfo.el" (20119 34052)) | 28416 | ;;;;;; "texinfo" "textmodes/texinfo.el" (19845 45374)) |
| 28402 | ;;; Generated autoloads from textmodes/texinfo.el | 28417 | ;;; Generated autoloads from textmodes/texinfo.el |
| 28403 | 28418 | ||
| 28404 | (defvar texinfo-open-quote (purecopy "``") "\ | 28419 | (defvar texinfo-open-quote (purecopy "``") "\ |
| @@ -28484,7 +28499,7 @@ value of `texinfo-mode-hook'. | |||
| 28484 | 28499 | ||
| 28485 | ;;;### (autoloads (thai-composition-function thai-compose-buffer | 28500 | ;;;### (autoloads (thai-composition-function thai-compose-buffer |
| 28486 | ;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el" | 28501 | ;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el" |
| 28487 | ;;;;;; (20119 34052)) | 28502 | ;;;;;; (20168 57844)) |
| 28488 | ;;; Generated autoloads from language/thai-util.el | 28503 | ;;; Generated autoloads from language/thai-util.el |
| 28489 | 28504 | ||
| 28490 | (autoload 'thai-compose-region "thai-util" "\ | 28505 | (autoload 'thai-compose-region "thai-util" "\ |
| @@ -28513,7 +28528,7 @@ Compose Thai characters in the current buffer. | |||
| 28513 | 28528 | ||
| 28514 | ;;;### (autoloads (list-at-point number-at-point symbol-at-point | 28529 | ;;;### (autoloads (list-at-point number-at-point symbol-at-point |
| 28515 | ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) | 28530 | ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) |
| 28516 | ;;;;;; "thingatpt" "thingatpt.el" (20119 34052)) | 28531 | ;;;;;; "thingatpt" "thingatpt.el" (19990 55648)) |
| 28517 | ;;; Generated autoloads from thingatpt.el | 28532 | ;;; Generated autoloads from thingatpt.el |
| 28518 | 28533 | ||
| 28519 | (autoload 'forward-thing "thingatpt" "\ | 28534 | (autoload 'forward-thing "thingatpt" "\ |
| @@ -28576,7 +28591,7 @@ Return the Lisp list at point, or nil if none is found. | |||
| 28576 | 28591 | ||
| 28577 | ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked | 28592 | ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked |
| 28578 | ;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" | 28593 | ;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" |
| 28579 | ;;;;;; (20119 34052)) | 28594 | ;;;;;; (20168 57844)) |
| 28580 | ;;; Generated autoloads from thumbs.el | 28595 | ;;; Generated autoloads from thumbs.el |
| 28581 | 28596 | ||
| 28582 | (autoload 'thumbs-find-thumb "thumbs" "\ | 28597 | (autoload 'thumbs-find-thumb "thumbs" "\ |
| @@ -28614,8 +28629,8 @@ In dired, call the setroot program on the image at point. | |||
| 28614 | ;;;;;; tibetan-post-read-conversion tibetan-compose-buffer tibetan-decompose-buffer | 28629 | ;;;;;; tibetan-post-read-conversion tibetan-compose-buffer tibetan-decompose-buffer |
| 28615 | ;;;;;; tibetan-decompose-string tibetan-decompose-region tibetan-compose-region | 28630 | ;;;;;; tibetan-decompose-string tibetan-decompose-region tibetan-compose-region |
| 28616 | ;;;;;; tibetan-compose-string tibetan-transcription-to-tibetan tibetan-tibetan-to-transcription | 28631 | ;;;;;; tibetan-compose-string tibetan-transcription-to-tibetan tibetan-tibetan-to-transcription |
| 28617 | ;;;;;; tibetan-char-p) "tibet-util" "language/tibet-util.el" (20119 | 28632 | ;;;;;; tibetan-char-p) "tibet-util" "language/tibet-util.el" (20175 |
| 28618 | ;;;;;; 34052)) | 28633 | ;;;;;; 31160)) |
| 28619 | ;;; Generated autoloads from language/tibet-util.el | 28634 | ;;; Generated autoloads from language/tibet-util.el |
| 28620 | 28635 | ||
| 28621 | (autoload 'tibetan-char-p "tibet-util" "\ | 28636 | (autoload 'tibetan-char-p "tibet-util" "\ |
| @@ -28689,7 +28704,7 @@ See also docstring of the function tibetan-compose-region. | |||
| 28689 | ;;;*** | 28704 | ;;;*** |
| 28690 | 28705 | ||
| 28691 | ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" | 28706 | ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" |
| 28692 | ;;;;;; (20119 34052)) | 28707 | ;;;;;; (19845 45374)) |
| 28693 | ;;; Generated autoloads from textmodes/tildify.el | 28708 | ;;; Generated autoloads from textmodes/tildify.el |
| 28694 | 28709 | ||
| 28695 | (autoload 'tildify-region "tildify" "\ | 28710 | (autoload 'tildify-region "tildify" "\ |
| @@ -28714,7 +28729,7 @@ This function performs no refilling of the changed text. | |||
| 28714 | 28729 | ||
| 28715 | ;;;### (autoloads (emacs-init-time emacs-uptime display-time-world | 28730 | ;;;### (autoloads (emacs-init-time emacs-uptime display-time-world |
| 28716 | ;;;;;; display-time-mode display-time display-time-day-and-date) | 28731 | ;;;;;; display-time-mode display-time display-time-day-and-date) |
| 28717 | ;;;;;; "time" "time.el" (20126 50604)) | 28732 | ;;;;;; "time" "time.el" (20127 62865)) |
| 28718 | ;;; Generated autoloads from time.el | 28733 | ;;; Generated autoloads from time.el |
| 28719 | 28734 | ||
| 28720 | (defvar display-time-day-and-date nil "\ | 28735 | (defvar display-time-day-and-date nil "\ |
| @@ -28780,7 +28795,7 @@ Return a string giving the duration of the Emacs initialization. | |||
| 28780 | ;;;;;; time-to-day-in-year date-leap-year-p days-between date-to-day | 28795 | ;;;;;; time-to-day-in-year date-leap-year-p days-between date-to-day |
| 28781 | ;;;;;; time-add time-subtract time-since days-to-time time-less-p | 28796 | ;;;;;; time-add time-subtract time-since days-to-time time-less-p |
| 28782 | ;;;;;; seconds-to-time date-to-time) "time-date" "calendar/time-date.el" | 28797 | ;;;;;; seconds-to-time date-to-time) "time-date" "calendar/time-date.el" |
| 28783 | ;;;;;; (20119 34052)) | 28798 | ;;;;;; (19885 24894)) |
| 28784 | ;;; Generated autoloads from calendar/time-date.el | 28799 | ;;; Generated autoloads from calendar/time-date.el |
| 28785 | 28800 | ||
| 28786 | (autoload 'date-to-time "time-date" "\ | 28801 | (autoload 'date-to-time "time-date" "\ |
| @@ -28894,7 +28909,7 @@ This function does not work for SECONDS greater than `most-positive-fixnum'. | |||
| 28894 | ;;;*** | 28909 | ;;;*** |
| 28895 | 28910 | ||
| 28896 | ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" | 28911 | ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" |
| 28897 | ;;;;;; "time-stamp.el" (20119 34052)) | 28912 | ;;;;;; "time-stamp.el" (20033 22846)) |
| 28898 | ;;; Generated autoloads from time-stamp.el | 28913 | ;;; Generated autoloads from time-stamp.el |
| 28899 | (put 'time-stamp-format 'safe-local-variable 'stringp) | 28914 | (put 'time-stamp-format 'safe-local-variable 'stringp) |
| 28900 | (put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p) | 28915 | (put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p) |
| @@ -28938,7 +28953,7 @@ With ARG, turn time stamping on if and only if arg is positive. | |||
| 28938 | ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out | 28953 | ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out |
| 28939 | ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in | 28954 | ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in |
| 28940 | ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" | 28955 | ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" |
| 28941 | ;;;;;; (20119 34052)) | 28956 | ;;;;;; (20165 31925)) |
| 28942 | ;;; Generated autoloads from calendar/timeclock.el | 28957 | ;;; Generated autoloads from calendar/timeclock.el |
| 28943 | 28958 | ||
| 28944 | (autoload 'timeclock-modeline-display "timeclock" "\ | 28959 | (autoload 'timeclock-modeline-display "timeclock" "\ |
| @@ -29038,7 +29053,7 @@ relative only to the time worked today, and not to past time. | |||
| 29038 | ;;;*** | 29053 | ;;;*** |
| 29039 | 29054 | ||
| 29040 | ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" | 29055 | ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" |
| 29041 | ;;;;;; "international/titdic-cnv.el" (20119 34052)) | 29056 | ;;;;;; "international/titdic-cnv.el" (20175 31160)) |
| 29042 | ;;; Generated autoloads from international/titdic-cnv.el | 29057 | ;;; Generated autoloads from international/titdic-cnv.el |
| 29043 | 29058 | ||
| 29044 | (autoload 'titdic-convert "titdic-cnv" "\ | 29059 | (autoload 'titdic-convert "titdic-cnv" "\ |
| @@ -29061,7 +29076,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". | |||
| 29061 | ;;;*** | 29076 | ;;;*** |
| 29062 | 29077 | ||
| 29063 | ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" | 29078 | ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" |
| 29064 | ;;;;;; "tmm.el" (20119 34052)) | 29079 | ;;;;;; "tmm.el" (20163 39903)) |
| 29065 | ;;; Generated autoloads from tmm.el | 29080 | ;;; Generated autoloads from tmm.el |
| 29066 | (define-key global-map "\M-`" 'tmm-menubar) | 29081 | (define-key global-map "\M-`" 'tmm-menubar) |
| 29067 | (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) | 29082 | (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) |
| @@ -29101,7 +29116,7 @@ Its value should be an event that has a binding in MENU. | |||
| 29101 | 29116 | ||
| 29102 | ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities | 29117 | ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities |
| 29103 | ;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) | 29118 | ;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) |
| 29104 | ;;;;;; "todo-mode" "calendar/todo-mode.el" (20119 34052)) | 29119 | ;;;;;; "todo-mode" "calendar/todo-mode.el" (20168 57844)) |
| 29105 | ;;; Generated autoloads from calendar/todo-mode.el | 29120 | ;;; Generated autoloads from calendar/todo-mode.el |
| 29106 | 29121 | ||
| 29107 | (autoload 'todo-add-category "todo-mode" "\ | 29122 | (autoload 'todo-add-category "todo-mode" "\ |
| @@ -29161,7 +29176,7 @@ Show TODO list. | |||
| 29161 | 29176 | ||
| 29162 | ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu | 29177 | ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu |
| 29163 | ;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame) | 29178 | ;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame) |
| 29164 | ;;;;;; "tool-bar" "tool-bar.el" (20126 50619)) | 29179 | ;;;;;; "tool-bar" "tool-bar.el" (20127 62865)) |
| 29165 | ;;; Generated autoloads from tool-bar.el | 29180 | ;;; Generated autoloads from tool-bar.el |
| 29166 | 29181 | ||
| 29167 | (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ | 29182 | (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ |
| @@ -29232,7 +29247,7 @@ holds a keymap. | |||
| 29232 | ;;;*** | 29247 | ;;;*** |
| 29233 | 29248 | ||
| 29234 | ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" | 29249 | ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" |
| 29235 | ;;;;;; (20140 44316)) | 29250 | ;;;;;; (20141 9296)) |
| 29236 | ;;; Generated autoloads from emulation/tpu-edt.el | 29251 | ;;; Generated autoloads from emulation/tpu-edt.el |
| 29237 | 29252 | ||
| 29238 | (defvar tpu-edt-mode nil "\ | 29253 | (defvar tpu-edt-mode nil "\ |
| @@ -29259,7 +29274,7 @@ Turn on TPU/edt emulation. | |||
| 29259 | ;;;*** | 29274 | ;;;*** |
| 29260 | 29275 | ||
| 29261 | ;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el" | 29276 | ;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el" |
| 29262 | ;;;;;; (20119 34052)) | 29277 | ;;;;;; (19845 45374)) |
| 29263 | ;;; Generated autoloads from emulation/tpu-mapper.el | 29278 | ;;; Generated autoloads from emulation/tpu-mapper.el |
| 29264 | 29279 | ||
| 29265 | (autoload 'tpu-mapper "tpu-mapper" "\ | 29280 | (autoload 'tpu-mapper "tpu-mapper" "\ |
| @@ -29293,7 +29308,7 @@ your local X guru can try to figure out why the key is being ignored. | |||
| 29293 | 29308 | ||
| 29294 | ;;;*** | 29309 | ;;;*** |
| 29295 | 29310 | ||
| 29296 | ;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20119 34052)) | 29311 | ;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (19845 45374)) |
| 29297 | ;;; Generated autoloads from emacs-lisp/tq.el | 29312 | ;;; Generated autoloads from emacs-lisp/tq.el |
| 29298 | 29313 | ||
| 29299 | (autoload 'tq-create "tq" "\ | 29314 | (autoload 'tq-create "tq" "\ |
| @@ -29307,7 +29322,7 @@ to a tcp server on another machine. | |||
| 29307 | ;;;*** | 29322 | ;;;*** |
| 29308 | 29323 | ||
| 29309 | ;;;### (autoloads (trace-function-background trace-function trace-buffer) | 29324 | ;;;### (autoloads (trace-function-background trace-function trace-buffer) |
| 29310 | ;;;;;; "trace" "emacs-lisp/trace.el" (20119 34052)) | 29325 | ;;;;;; "trace" "emacs-lisp/trace.el" (19845 45374)) |
| 29311 | ;;; Generated autoloads from emacs-lisp/trace.el | 29326 | ;;; Generated autoloads from emacs-lisp/trace.el |
| 29312 | 29327 | ||
| 29313 | (defvar trace-buffer (purecopy "*trace-output*") "\ | 29328 | (defvar trace-buffer (purecopy "*trace-output*") "\ |
| @@ -29344,7 +29359,7 @@ BUFFER defaults to `trace-buffer'. | |||
| 29344 | ;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion | 29359 | ;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion |
| 29345 | ;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers | 29360 | ;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers |
| 29346 | ;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp" | 29361 | ;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp" |
| 29347 | ;;;;;; "net/tramp.el" (20127 27092)) | 29362 | ;;;;;; "net/tramp.el" (20179 28130)) |
| 29348 | ;;; Generated autoloads from net/tramp.el | 29363 | ;;; Generated autoloads from net/tramp.el |
| 29349 | 29364 | ||
| 29350 | (defvar tramp-mode t "\ | 29365 | (defvar tramp-mode t "\ |
| @@ -29477,7 +29492,7 @@ Discard Tramp from loading remote files. | |||
| 29477 | ;;;*** | 29492 | ;;;*** |
| 29478 | 29493 | ||
| 29479 | ;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" | 29494 | ;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" |
| 29480 | ;;;;;; (20119 34052)) | 29495 | ;;;;;; (19946 29209)) |
| 29481 | ;;; Generated autoloads from net/tramp-ftp.el | 29496 | ;;; Generated autoloads from net/tramp-ftp.el |
| 29482 | 29497 | ||
| 29483 | (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ | 29498 | (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ |
| @@ -29487,8 +29502,8 @@ Discard Tramp from loading remote files. | |||
| 29487 | 29502 | ||
| 29488 | ;;;*** | 29503 | ;;;*** |
| 29489 | 29504 | ||
| 29490 | ;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20140 | 29505 | ;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20176 |
| 29491 | ;;;;;; 41907)) | 29506 | ;;;;;; 51947)) |
| 29492 | ;;; Generated autoloads from tutorial.el | 29507 | ;;; Generated autoloads from tutorial.el |
| 29493 | 29508 | ||
| 29494 | (autoload 'help-with-tutorial "tutorial" "\ | 29509 | (autoload 'help-with-tutorial "tutorial" "\ |
| @@ -29513,7 +29528,7 @@ resumed later. | |||
| 29513 | ;;;*** | 29528 | ;;;*** |
| 29514 | 29529 | ||
| 29515 | ;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el" | 29530 | ;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el" |
| 29516 | ;;;;;; (20119 34052)) | 29531 | ;;;;;; (19845 45374)) |
| 29517 | ;;; Generated autoloads from language/tv-util.el | 29532 | ;;; Generated autoloads from language/tv-util.el |
| 29518 | 29533 | ||
| 29519 | (autoload 'tai-viet-composition-function "tv-util" "\ | 29534 | (autoload 'tai-viet-composition-function "tv-util" "\ |
| @@ -29524,7 +29539,7 @@ resumed later. | |||
| 29524 | ;;;*** | 29539 | ;;;*** |
| 29525 | 29540 | ||
| 29526 | ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" | 29541 | ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" |
| 29527 | ;;;;;; "textmodes/two-column.el" (20140 44080)) | 29542 | ;;;;;; "textmodes/two-column.el" (20141 9296)) |
| 29528 | ;;; Generated autoloads from textmodes/two-column.el | 29543 | ;;; Generated autoloads from textmodes/two-column.el |
| 29529 | (autoload '2C-command "two-column" () t 'keymap) | 29544 | (autoload '2C-command "two-column" () t 'keymap) |
| 29530 | (global-set-key "\C-x6" '2C-command) | 29545 | (global-set-key "\C-x6" '2C-command) |
| @@ -29575,7 +29590,7 @@ First column's text sSs Second column's text | |||
| 29575 | ;;;;;; type-break type-break-mode type-break-keystroke-threshold | 29590 | ;;;;;; type-break type-break-mode type-break-keystroke-threshold |
| 29576 | ;;;;;; type-break-good-break-interval type-break-good-rest-interval | 29591 | ;;;;;; type-break-good-break-interval type-break-good-rest-interval |
| 29577 | ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" | 29592 | ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" |
| 29578 | ;;;;;; (20126 50662)) | 29593 | ;;;;;; (20127 62865)) |
| 29579 | ;;; Generated autoloads from type-break.el | 29594 | ;;; Generated autoloads from type-break.el |
| 29580 | 29595 | ||
| 29581 | (defvar type-break-mode nil "\ | 29596 | (defvar type-break-mode nil "\ |
| @@ -29757,7 +29772,7 @@ FRAC should be the inverse of the fractional value; for example, a value of | |||
| 29757 | 29772 | ||
| 29758 | ;;;*** | 29773 | ;;;*** |
| 29759 | 29774 | ||
| 29760 | ;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20119 34052)) | 29775 | ;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (19845 45374)) |
| 29761 | ;;; Generated autoloads from mail/uce.el | 29776 | ;;; Generated autoloads from mail/uce.el |
| 29762 | 29777 | ||
| 29763 | (autoload 'uce-reply-to-uce "uce" "\ | 29778 | (autoload 'uce-reply-to-uce "uce" "\ |
| @@ -29775,7 +29790,7 @@ You might need to set `uce-mail-reader' before using this. | |||
| 29775 | ;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string | 29790 | ;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string |
| 29776 | ;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region | 29791 | ;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region |
| 29777 | ;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize" | 29792 | ;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize" |
| 29778 | ;;;;;; "international/ucs-normalize.el" (20119 34052)) | 29793 | ;;;;;; "international/ucs-normalize.el" (20052 53218)) |
| 29779 | ;;; Generated autoloads from international/ucs-normalize.el | 29794 | ;;; Generated autoloads from international/ucs-normalize.el |
| 29780 | 29795 | ||
| 29781 | (autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ | 29796 | (autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ |
| @@ -29841,7 +29856,7 @@ Normalize the string STR by the Unicode NFC and Mac OS's HFS Plus. | |||
| 29841 | ;;;*** | 29856 | ;;;*** |
| 29842 | 29857 | ||
| 29843 | ;;;### (autoloads (ununderline-region underline-region) "underline" | 29858 | ;;;### (autoloads (ununderline-region underline-region) "underline" |
| 29844 | ;;;;;; "textmodes/underline.el" (20119 34052)) | 29859 | ;;;;;; "textmodes/underline.el" (19845 45374)) |
| 29845 | ;;; Generated autoloads from textmodes/underline.el | 29860 | ;;; Generated autoloads from textmodes/underline.el |
| 29846 | 29861 | ||
| 29847 | (autoload 'underline-region "underline" "\ | 29862 | (autoload 'underline-region "underline" "\ |
| @@ -29862,7 +29877,7 @@ which specify the range to operate on. | |||
| 29862 | ;;;*** | 29877 | ;;;*** |
| 29863 | 29878 | ||
| 29864 | ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" | 29879 | ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" |
| 29865 | ;;;;;; (20119 34052)) | 29880 | ;;;;;; (20172 54913)) |
| 29866 | ;;; Generated autoloads from mail/unrmail.el | 29881 | ;;; Generated autoloads from mail/unrmail.el |
| 29867 | 29882 | ||
| 29868 | (autoload 'batch-unrmail "unrmail" "\ | 29883 | (autoload 'batch-unrmail "unrmail" "\ |
| @@ -29881,8 +29896,8 @@ Convert old-style Rmail Babyl file FILE to system inbox format file TO-FILE. | |||
| 29881 | 29896 | ||
| 29882 | ;;;*** | 29897 | ;;;*** |
| 29883 | 29898 | ||
| 29884 | ;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20119 | 29899 | ;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (19845 |
| 29885 | ;;;;;; 34052)) | 29900 | ;;;;;; 45374)) |
| 29886 | ;;; Generated autoloads from emacs-lisp/unsafep.el | 29901 | ;;; Generated autoloads from emacs-lisp/unsafep.el |
| 29887 | 29902 | ||
| 29888 | (autoload 'unsafep "unsafep" "\ | 29903 | (autoload 'unsafep "unsafep" "\ |
| @@ -29895,7 +29910,7 @@ UNSAFEP-VARS is a list of symbols with local bindings. | |||
| 29895 | ;;;*** | 29910 | ;;;*** |
| 29896 | 29911 | ||
| 29897 | ;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url" | 29912 | ;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url" |
| 29898 | ;;;;;; "url/url.el" (20119 34052)) | 29913 | ;;;;;; "url/url.el" (20162 19074)) |
| 29899 | ;;; Generated autoloads from url/url.el | 29914 | ;;; Generated autoloads from url/url.el |
| 29900 | 29915 | ||
| 29901 | (autoload 'url-retrieve "url" "\ | 29916 | (autoload 'url-retrieve "url" "\ |
| @@ -29937,7 +29952,7 @@ no further processing). URL is either a string or a parsed URL. | |||
| 29937 | ;;;*** | 29952 | ;;;*** |
| 29938 | 29953 | ||
| 29939 | ;;;### (autoloads (url-register-auth-scheme url-get-authentication) | 29954 | ;;;### (autoloads (url-register-auth-scheme url-get-authentication) |
| 29940 | ;;;;;; "url-auth" "url/url-auth.el" (20119 34052)) | 29955 | ;;;;;; "url-auth" "url/url-auth.el" (19845 45374)) |
| 29941 | ;;; Generated autoloads from url/url-auth.el | 29956 | ;;; Generated autoloads from url/url-auth.el |
| 29942 | 29957 | ||
| 29943 | (autoload 'url-get-authentication "url-auth" "\ | 29958 | (autoload 'url-get-authentication "url-auth" "\ |
| @@ -29979,7 +29994,7 @@ RATING a rating between 1 and 10 of the strength of the authentication. | |||
| 29979 | ;;;*** | 29994 | ;;;*** |
| 29980 | 29995 | ||
| 29981 | ;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache) | 29996 | ;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache) |
| 29982 | ;;;;;; "url-cache" "url/url-cache.el" (20119 34052)) | 29997 | ;;;;;; "url-cache" "url/url-cache.el" (19988 13913)) |
| 29983 | ;;; Generated autoloads from url/url-cache.el | 29998 | ;;; Generated autoloads from url/url-cache.el |
| 29984 | 29999 | ||
| 29985 | (autoload 'url-store-in-cache "url-cache" "\ | 30000 | (autoload 'url-store-in-cache "url-cache" "\ |
| @@ -30000,7 +30015,7 @@ Extract FNAM from the local disk cache. | |||
| 30000 | 30015 | ||
| 30001 | ;;;*** | 30016 | ;;;*** |
| 30002 | 30017 | ||
| 30003 | ;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20119 34052)) | 30018 | ;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (19845 45374)) |
| 30004 | ;;; Generated autoloads from url/url-cid.el | 30019 | ;;; Generated autoloads from url/url-cid.el |
| 30005 | 30020 | ||
| 30006 | (autoload 'url-cid "url-cid" "\ | 30021 | (autoload 'url-cid "url-cid" "\ |
| @@ -30011,7 +30026,7 @@ Extract FNAM from the local disk cache. | |||
| 30011 | ;;;*** | 30026 | ;;;*** |
| 30012 | 30027 | ||
| 30013 | ;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" | 30028 | ;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" |
| 30014 | ;;;;;; "url/url-dav.el" (20119 34052)) | 30029 | ;;;;;; "url/url-dav.el" (20168 57844)) |
| 30015 | ;;; Generated autoloads from url/url-dav.el | 30030 | ;;; Generated autoloads from url/url-dav.el |
| 30016 | 30031 | ||
| 30017 | (autoload 'url-dav-supported-p "url-dav" "\ | 30032 | (autoload 'url-dav-supported-p "url-dav" "\ |
| @@ -30026,8 +30041,8 @@ Extract FNAM from the local disk cache. | |||
| 30026 | 30041 | ||
| 30027 | ;;;*** | 30042 | ;;;*** |
| 30028 | 30043 | ||
| 30029 | ;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20119 | 30044 | ;;;### (autoloads (url-file) "url-file" "url/url-file.el" (19845 |
| 30030 | ;;;;;; 34052)) | 30045 | ;;;;;; 45374)) |
| 30031 | ;;; Generated autoloads from url/url-file.el | 30046 | ;;; Generated autoloads from url/url-file.el |
| 30032 | 30047 | ||
| 30033 | (autoload 'url-file "url-file" "\ | 30048 | (autoload 'url-file "url-file" "\ |
| @@ -30038,7 +30053,7 @@ Handle file: and ftp: URLs. | |||
| 30038 | ;;;*** | 30053 | ;;;*** |
| 30039 | 30054 | ||
| 30040 | ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" | 30055 | ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" |
| 30041 | ;;;;;; "url/url-gw.el" (20119 34052)) | 30056 | ;;;;;; "url/url-gw.el" (19864 29553)) |
| 30042 | ;;; Generated autoloads from url/url-gw.el | 30057 | ;;; Generated autoloads from url/url-gw.el |
| 30043 | 30058 | ||
| 30044 | (autoload 'url-gateway-nslookup-host "url-gw" "\ | 30059 | (autoload 'url-gateway-nslookup-host "url-gw" "\ |
| @@ -30058,7 +30073,7 @@ Might do a non-blocking connection; use `process-status' to check. | |||
| 30058 | 30073 | ||
| 30059 | ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file | 30074 | ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file |
| 30060 | ;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el" | 30075 | ;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el" |
| 30061 | ;;;;;; (20127 23866)) | 30076 | ;;;;;; (20127 62865)) |
| 30062 | ;;; Generated autoloads from url/url-handlers.el | 30077 | ;;; Generated autoloads from url/url-handlers.el |
| 30063 | 30078 | ||
| 30064 | (defvar url-handler-mode nil "\ | 30079 | (defvar url-handler-mode nil "\ |
| @@ -30113,7 +30128,7 @@ accessible. | |||
| 30113 | ;;;*** | 30128 | ;;;*** |
| 30114 | 30129 | ||
| 30115 | ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p | 30130 | ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p |
| 30116 | ;;;;;; url-http) "url-http" "url/url-http.el" (20119 34052)) | 30131 | ;;;;;; url-http) "url-http" "url/url-http.el" (20167 36967)) |
| 30117 | ;;; Generated autoloads from url/url-http.el | 30132 | ;;; Generated autoloads from url/url-http.el |
| 30118 | 30133 | ||
| 30119 | (autoload 'url-http "url-http" "\ | 30134 | (autoload 'url-http "url-http" "\ |
| @@ -30179,7 +30194,7 @@ HTTPS retrievals are asynchronous.") | |||
| 30179 | 30194 | ||
| 30180 | ;;;*** | 30195 | ;;;*** |
| 30181 | 30196 | ||
| 30182 | ;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20119 34052)) | 30197 | ;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (19845 45374)) |
| 30183 | ;;; Generated autoloads from url/url-irc.el | 30198 | ;;; Generated autoloads from url/url-irc.el |
| 30184 | 30199 | ||
| 30185 | (autoload 'url-irc "url-irc" "\ | 30200 | (autoload 'url-irc "url-irc" "\ |
| @@ -30189,8 +30204,8 @@ HTTPS retrievals are asynchronous.") | |||
| 30189 | 30204 | ||
| 30190 | ;;;*** | 30205 | ;;;*** |
| 30191 | 30206 | ||
| 30192 | ;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20119 | 30207 | ;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20164 |
| 30193 | ;;;;;; 34052)) | 30208 | ;;;;;; 60780)) |
| 30194 | ;;; Generated autoloads from url/url-ldap.el | 30209 | ;;; Generated autoloads from url/url-ldap.el |
| 30195 | 30210 | ||
| 30196 | (autoload 'url-ldap "url-ldap" "\ | 30211 | (autoload 'url-ldap "url-ldap" "\ |
| @@ -30204,7 +30219,7 @@ URL can be a URL string, or a URL vector of the type returned by | |||
| 30204 | ;;;*** | 30219 | ;;;*** |
| 30205 | 30220 | ||
| 30206 | ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" | 30221 | ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" |
| 30207 | ;;;;;; (20119 34052)) | 30222 | ;;;;;; (19845 45374)) |
| 30208 | ;;; Generated autoloads from url/url-mailto.el | 30223 | ;;; Generated autoloads from url/url-mailto.el |
| 30209 | 30224 | ||
| 30210 | (autoload 'url-mail "url-mailto" "\ | 30225 | (autoload 'url-mail "url-mailto" "\ |
| @@ -30220,7 +30235,7 @@ Handle the mailto: URL syntax. | |||
| 30220 | ;;;*** | 30235 | ;;;*** |
| 30221 | 30236 | ||
| 30222 | ;;;### (autoloads (url-data url-generic-emulator-loader url-info | 30237 | ;;;### (autoloads (url-data url-generic-emulator-loader url-info |
| 30223 | ;;;;;; url-man) "url-misc" "url/url-misc.el" (20119 34052)) | 30238 | ;;;;;; url-man) "url-misc" "url/url-misc.el" (19845 45374)) |
| 30224 | ;;; Generated autoloads from url/url-misc.el | 30239 | ;;; Generated autoloads from url/url-misc.el |
| 30225 | 30240 | ||
| 30226 | (autoload 'url-man "url-misc" "\ | 30241 | (autoload 'url-man "url-misc" "\ |
| @@ -30252,7 +30267,7 @@ Fetch a data URL (RFC 2397). | |||
| 30252 | ;;;*** | 30267 | ;;;*** |
| 30253 | 30268 | ||
| 30254 | ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" | 30269 | ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" |
| 30255 | ;;;;;; (20119 34052)) | 30270 | ;;;;;; (19845 45374)) |
| 30256 | ;;; Generated autoloads from url/url-news.el | 30271 | ;;; Generated autoloads from url/url-news.el |
| 30257 | 30272 | ||
| 30258 | (autoload 'url-news "url-news" "\ | 30273 | (autoload 'url-news "url-news" "\ |
| @@ -30269,7 +30284,7 @@ Fetch a data URL (RFC 2397). | |||
| 30269 | 30284 | ||
| 30270 | ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable | 30285 | ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable |
| 30271 | ;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" | 30286 | ;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" |
| 30272 | ;;;;;; (20119 34052)) | 30287 | ;;;;;; (19845 45374)) |
| 30273 | ;;; Generated autoloads from url/url-ns.el | 30288 | ;;; Generated autoloads from url/url-ns.el |
| 30274 | 30289 | ||
| 30275 | (autoload 'isPlainHostName "url-ns" "\ | 30290 | (autoload 'isPlainHostName "url-ns" "\ |
| @@ -30310,7 +30325,7 @@ Fetch a data URL (RFC 2397). | |||
| 30310 | ;;;*** | 30325 | ;;;*** |
| 30311 | 30326 | ||
| 30312 | ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" | 30327 | ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" |
| 30313 | ;;;;;; "url/url-parse.el" (20119 34052)) | 30328 | ;;;;;; "url/url-parse.el" (19845 45374)) |
| 30314 | ;;; Generated autoloads from url/url-parse.el | 30329 | ;;; Generated autoloads from url/url-parse.el |
| 30315 | 30330 | ||
| 30316 | (autoload 'url-recreate-url "url-parse" "\ | 30331 | (autoload 'url-recreate-url "url-parse" "\ |
| @@ -30328,7 +30343,7 @@ TYPE USER PASSWORD HOST PORTSPEC FILENAME TARGET ATTRIBUTES FULLNESS. | |||
| 30328 | ;;;*** | 30343 | ;;;*** |
| 30329 | 30344 | ||
| 30330 | ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" | 30345 | ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" |
| 30331 | ;;;;;; (20119 34052)) | 30346 | ;;;;;; (19845 45374)) |
| 30332 | ;;; Generated autoloads from url/url-privacy.el | 30347 | ;;; Generated autoloads from url/url-privacy.el |
| 30333 | 30348 | ||
| 30334 | (autoload 'url-setup-privacy-info "url-privacy" "\ | 30349 | (autoload 'url-setup-privacy-info "url-privacy" "\ |
| @@ -30339,7 +30354,7 @@ Setup variables that expose info about you and your system. | |||
| 30339 | ;;;*** | 30354 | ;;;*** |
| 30340 | 30355 | ||
| 30341 | ;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el" | 30356 | ;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el" |
| 30342 | ;;;;;; (20119 34052)) | 30357 | ;;;;;; (19943 25429)) |
| 30343 | ;;; Generated autoloads from url/url-queue.el | 30358 | ;;; Generated autoloads from url/url-queue.el |
| 30344 | 30359 | ||
| 30345 | (autoload 'url-queue-retrieve "url-queue" "\ | 30360 | (autoload 'url-queue-retrieve "url-queue" "\ |
| @@ -30358,7 +30373,7 @@ controls the level of parallelism via the | |||
| 30358 | ;;;;;; url-pretty-length url-strip-leading-spaces url-eat-trailing-space | 30373 | ;;;;;; url-pretty-length url-strip-leading-spaces url-eat-trailing-space |
| 30359 | ;;;;;; url-get-normalized-date url-lazy-message url-normalize-url | 30374 | ;;;;;; url-get-normalized-date url-lazy-message url-normalize-url |
| 30360 | ;;;;;; url-insert-entities-in-string url-parse-args url-debug url-debug) | 30375 | ;;;;;; url-insert-entities-in-string url-parse-args url-debug url-debug) |
| 30361 | ;;;;;; "url-util" "url/url-util.el" (20119 34052)) | 30376 | ;;;;;; "url-util" "url/url-util.el" (19867 59212)) |
| 30362 | ;;; Generated autoloads from url/url-util.el | 30377 | ;;; Generated autoloads from url/url-util.el |
| 30363 | 30378 | ||
| 30364 | (defvar url-debug nil "\ | 30379 | (defvar url-debug nil "\ |
| @@ -30494,7 +30509,7 @@ This uses `url-current-object', set locally to the buffer. | |||
| 30494 | ;;;*** | 30509 | ;;;*** |
| 30495 | 30510 | ||
| 30496 | ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) | 30511 | ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) |
| 30497 | ;;;;;; "userlock" "userlock.el" (20119 34052)) | 30512 | ;;;;;; "userlock" "userlock.el" (19845 45374)) |
| 30498 | ;;; Generated autoloads from userlock.el | 30513 | ;;; Generated autoloads from userlock.el |
| 30499 | 30514 | ||
| 30500 | (autoload 'ask-user-about-lock "userlock" "\ | 30515 | (autoload 'ask-user-about-lock "userlock" "\ |
| @@ -30524,7 +30539,7 @@ The buffer in question is current when this function is called. | |||
| 30524 | 30539 | ||
| 30525 | ;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion | 30540 | ;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion |
| 30526 | ;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion) | 30541 | ;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion) |
| 30527 | ;;;;;; "utf-7" "international/utf-7.el" (20119 34052)) | 30542 | ;;;;;; "utf-7" "international/utf-7.el" (19845 45374)) |
| 30528 | ;;; Generated autoloads from international/utf-7.el | 30543 | ;;; Generated autoloads from international/utf-7.el |
| 30529 | 30544 | ||
| 30530 | (autoload 'utf-7-post-read-conversion "utf-7" "\ | 30545 | (autoload 'utf-7-post-read-conversion "utf-7" "\ |
| @@ -30549,7 +30564,7 @@ The buffer in question is current when this function is called. | |||
| 30549 | 30564 | ||
| 30550 | ;;;*** | 30565 | ;;;*** |
| 30551 | 30566 | ||
| 30552 | ;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20119 34052)) | 30567 | ;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (19845 45374)) |
| 30553 | ;;; Generated autoloads from gnus/utf7.el | 30568 | ;;; Generated autoloads from gnus/utf7.el |
| 30554 | 30569 | ||
| 30555 | (autoload 'utf7-encode "utf7" "\ | 30570 | (autoload 'utf7-encode "utf7" "\ |
| @@ -30561,7 +30576,7 @@ Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil. | |||
| 30561 | 30576 | ||
| 30562 | ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal | 30577 | ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal |
| 30563 | ;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el" | 30578 | ;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el" |
| 30564 | ;;;;;; (20119 34052)) | 30579 | ;;;;;; (19845 45374)) |
| 30565 | ;;; Generated autoloads from mail/uudecode.el | 30580 | ;;; Generated autoloads from mail/uudecode.el |
| 30566 | 30581 | ||
| 30567 | (autoload 'uudecode-decode-region-external "uudecode" "\ | 30582 | (autoload 'uudecode-decode-region-external "uudecode" "\ |
| @@ -30591,8 +30606,8 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. | |||
| 30591 | ;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers | 30606 | ;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers |
| 30592 | ;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff | 30607 | ;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff |
| 30593 | ;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook | 30608 | ;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook |
| 30594 | ;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20128 | 30609 | ;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20172 |
| 30595 | ;;;;;; 38948)) | 30610 | ;;;;;; 54913)) |
| 30596 | ;;; Generated autoloads from vc/vc.el | 30611 | ;;; Generated autoloads from vc/vc.el |
| 30597 | 30612 | ||
| 30598 | (defvar vc-checkout-hook nil "\ | 30613 | (defvar vc-checkout-hook nil "\ |
| @@ -30875,7 +30890,7 @@ Return the branch part of a revision number REV. | |||
| 30875 | ;;;*** | 30890 | ;;;*** |
| 30876 | 30891 | ||
| 30877 | ;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el" | 30892 | ;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el" |
| 30878 | ;;;;;; (20119 34052)) | 30893 | ;;;;;; (19920 63959)) |
| 30879 | ;;; Generated autoloads from vc/vc-annotate.el | 30894 | ;;; Generated autoloads from vc/vc-annotate.el |
| 30880 | 30895 | ||
| 30881 | (autoload 'vc-annotate "vc-annotate" "\ | 30896 | (autoload 'vc-annotate "vc-annotate" "\ |
| @@ -30912,7 +30927,7 @@ mode-specific menu. `vc-annotate-color-map' and | |||
| 30912 | 30927 | ||
| 30913 | ;;;*** | 30928 | ;;;*** |
| 30914 | 30929 | ||
| 30915 | ;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20119 34052)) | 30930 | ;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20168 57844)) |
| 30916 | ;;; Generated autoloads from vc/vc-arch.el | 30931 | ;;; Generated autoloads from vc/vc-arch.el |
| 30917 | (defun vc-arch-registered (file) | 30932 | (defun vc-arch-registered (file) |
| 30918 | (if (vc-find-root file "{arch}/=tagging-method") | 30933 | (if (vc-find-root file "{arch}/=tagging-method") |
| @@ -30922,13 +30937,14 @@ mode-specific menu. `vc-annotate-color-map' and | |||
| 30922 | 30937 | ||
| 30923 | ;;;*** | 30938 | ;;;*** |
| 30924 | 30939 | ||
| 30925 | ;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20127 27092)) | 30940 | ;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20174 10230)) |
| 30926 | ;;; Generated autoloads from vc/vc-bzr.el | 30941 | ;;; Generated autoloads from vc/vc-bzr.el |
| 30927 | 30942 | ||
| 30928 | (defconst vc-bzr-admin-dirname ".bzr" "\ | 30943 | (defconst vc-bzr-admin-dirname ".bzr" "\ |
| 30929 | Name of the directory containing Bzr repository status files.") | 30944 | Name of the directory containing Bzr repository status files.") |
| 30930 | 30945 | ||
| 30931 | (defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format")) | 30946 | (defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format") "\ |
| 30947 | Name of the format file in a .bzr directory.") | ||
| 30932 | (defun vc-bzr-registered (file) | 30948 | (defun vc-bzr-registered (file) |
| 30933 | (if (vc-find-root file vc-bzr-admin-checkout-format-file) | 30949 | (if (vc-find-root file vc-bzr-admin-checkout-format-file) |
| 30934 | (progn | 30950 | (progn |
| @@ -30937,9 +30953,10 @@ Name of the directory containing Bzr repository status files.") | |||
| 30937 | 30953 | ||
| 30938 | ;;;*** | 30954 | ;;;*** |
| 30939 | 30955 | ||
| 30940 | ;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20119 34052)) | 30956 | ;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20174 10230)) |
| 30941 | ;;; Generated autoloads from vc/vc-cvs.el | 30957 | ;;; Generated autoloads from vc/vc-cvs.el |
| 30942 | (defun vc-cvs-registered (f) | 30958 | (defun vc-cvs-registered (f) |
| 30959 | "Return non-nil if file F is registered with CVS." | ||
| 30943 | (when (file-readable-p (expand-file-name | 30960 | (when (file-readable-p (expand-file-name |
| 30944 | "CVS/Entries" (file-name-directory f))) | 30961 | "CVS/Entries" (file-name-directory f))) |
| 30945 | (load "vc-cvs") | 30962 | (load "vc-cvs") |
| @@ -30947,7 +30964,7 @@ Name of the directory containing Bzr repository status files.") | |||
| 30947 | 30964 | ||
| 30948 | ;;;*** | 30965 | ;;;*** |
| 30949 | 30966 | ||
| 30950 | ;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20119 34052)) | 30967 | ;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20168 57844)) |
| 30951 | ;;; Generated autoloads from vc/vc-dir.el | 30968 | ;;; Generated autoloads from vc/vc-dir.el |
| 30952 | 30969 | ||
| 30953 | (autoload 'vc-dir "vc-dir" "\ | 30970 | (autoload 'vc-dir "vc-dir" "\ |
| @@ -30972,7 +30989,7 @@ These are the commands available for use in the file status buffer: | |||
| 30972 | ;;;*** | 30989 | ;;;*** |
| 30973 | 30990 | ||
| 30974 | ;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el" | 30991 | ;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el" |
| 30975 | ;;;;;; (20119 34052)) | 30992 | ;;;;;; (20168 57844)) |
| 30976 | ;;; Generated autoloads from vc/vc-dispatcher.el | 30993 | ;;; Generated autoloads from vc/vc-dispatcher.el |
| 30977 | 30994 | ||
| 30978 | (autoload 'vc-do-command "vc-dispatcher" "\ | 30995 | (autoload 'vc-do-command "vc-dispatcher" "\ |
| @@ -30995,7 +31012,7 @@ case, and the process object in the asynchronous case. | |||
| 30995 | 31012 | ||
| 30996 | ;;;*** | 31013 | ;;;*** |
| 30997 | 31014 | ||
| 30998 | ;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20119 34052)) | 31015 | ;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20087 5852)) |
| 30999 | ;;; Generated autoloads from vc/vc-git.el | 31016 | ;;; Generated autoloads from vc/vc-git.el |
| 31000 | (defun vc-git-registered (file) | 31017 | (defun vc-git-registered (file) |
| 31001 | "Return non-nil if FILE is registered with git." | 31018 | "Return non-nil if FILE is registered with git." |
| @@ -31006,7 +31023,7 @@ case, and the process object in the asynchronous case. | |||
| 31006 | 31023 | ||
| 31007 | ;;;*** | 31024 | ;;;*** |
| 31008 | 31025 | ||
| 31009 | ;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20119 34052)) | 31026 | ;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (19845 45374)) |
| 31010 | ;;; Generated autoloads from vc/vc-hg.el | 31027 | ;;; Generated autoloads from vc/vc-hg.el |
| 31011 | (defun vc-hg-registered (file) | 31028 | (defun vc-hg-registered (file) |
| 31012 | "Return non-nil if FILE is registered with hg." | 31029 | "Return non-nil if FILE is registered with hg." |
| @@ -31017,12 +31034,14 @@ case, and the process object in the asynchronous case. | |||
| 31017 | 31034 | ||
| 31018 | ;;;*** | 31035 | ;;;*** |
| 31019 | 31036 | ||
| 31020 | ;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20119 34052)) | 31037 | ;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20174 10230)) |
| 31021 | ;;; Generated autoloads from vc/vc-mtn.el | 31038 | ;;; Generated autoloads from vc/vc-mtn.el |
| 31022 | 31039 | ||
| 31023 | (defconst vc-mtn-admin-dir "_MTN") | 31040 | (defconst vc-mtn-admin-dir "_MTN" "\ |
| 31041 | Name of the monotone directory.") | ||
| 31024 | 31042 | ||
| 31025 | (defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format")) | 31043 | (defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format") "\ |
| 31044 | Name of the monotone directory's format file.") | ||
| 31026 | (defun vc-mtn-registered (file) | 31045 | (defun vc-mtn-registered (file) |
| 31027 | (if (vc-find-root file vc-mtn-admin-format) | 31046 | (if (vc-find-root file vc-mtn-admin-format) |
| 31028 | (progn | 31047 | (progn |
| @@ -31032,7 +31051,7 @@ case, and the process object in the asynchronous case. | |||
| 31032 | ;;;*** | 31051 | ;;;*** |
| 31033 | 31052 | ||
| 31034 | ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el" | 31053 | ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el" |
| 31035 | ;;;;;; (20119 34052)) | 31054 | ;;;;;; (20161 45793)) |
| 31036 | ;;; Generated autoloads from vc/vc-rcs.el | 31055 | ;;; Generated autoloads from vc/vc-rcs.el |
| 31037 | 31056 | ||
| 31038 | (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ | 31057 | (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ |
| @@ -31046,7 +31065,7 @@ For a description of possible values, see `vc-check-master-templates'.") | |||
| 31046 | ;;;*** | 31065 | ;;;*** |
| 31047 | 31066 | ||
| 31048 | ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el" | 31067 | ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el" |
| 31049 | ;;;;;; (20119 34052)) | 31068 | ;;;;;; (19845 45374)) |
| 31050 | ;;; Generated autoloads from vc/vc-sccs.el | 31069 | ;;; Generated autoloads from vc/vc-sccs.el |
| 31051 | 31070 | ||
| 31052 | (defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ | 31071 | (defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ |
| @@ -31063,7 +31082,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) | |||
| 31063 | 31082 | ||
| 31064 | ;;;*** | 31083 | ;;;*** |
| 31065 | 31084 | ||
| 31066 | ;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20119 34052)) | 31085 | ;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20162 19074)) |
| 31067 | ;;; Generated autoloads from vc/vc-svn.el | 31086 | ;;; Generated autoloads from vc/vc-svn.el |
| 31068 | (defun vc-svn-registered (f) | 31087 | (defun vc-svn-registered (f) |
| 31069 | (let ((admin-dir (cond ((and (eq system-type 'windows-nt) | 31088 | (let ((admin-dir (cond ((and (eq system-type 'windows-nt) |
| @@ -31077,7 +31096,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) | |||
| 31077 | ;;;*** | 31096 | ;;;*** |
| 31078 | 31097 | ||
| 31079 | ;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el" | 31098 | ;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el" |
| 31080 | ;;;;;; (20129 34267)) | 31099 | ;;;;;; (20131 59880)) |
| 31081 | ;;; Generated autoloads from progmodes/vera-mode.el | 31100 | ;;; Generated autoloads from progmodes/vera-mode.el |
| 31082 | (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) | 31101 | (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) |
| 31083 | 31102 | ||
| @@ -31135,7 +31154,7 @@ Key bindings: | |||
| 31135 | ;;;*** | 31154 | ;;;*** |
| 31136 | 31155 | ||
| 31137 | ;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el" | 31156 | ;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el" |
| 31138 | ;;;;;; (20119 34052)) | 31157 | ;;;;;; (20183 25152)) |
| 31139 | ;;; Generated autoloads from progmodes/verilog-mode.el | 31158 | ;;; Generated autoloads from progmodes/verilog-mode.el |
| 31140 | 31159 | ||
| 31141 | (autoload 'verilog-mode "verilog-mode" "\ | 31160 | (autoload 'verilog-mode "verilog-mode" "\ |
| @@ -31242,6 +31261,8 @@ Some other functions are: | |||
| 31242 | \\[verilog-sk-initial] Insert an initial begin .. end block. | 31261 | \\[verilog-sk-initial] Insert an initial begin .. end block. |
| 31243 | \\[verilog-sk-fork] Insert a fork begin .. end .. join block. | 31262 | \\[verilog-sk-fork] Insert a fork begin .. end .. join block. |
| 31244 | \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. | 31263 | \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. |
| 31264 | \\[verilog-sk-ovm-class] Insert an OVM Class block. | ||
| 31265 | \\[verilog-sk-uvm-class] Insert an UVM Class block. | ||
| 31245 | \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. | 31266 | \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. |
| 31246 | \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block. | 31267 | \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block. |
| 31247 | \\[verilog-sk-specify] Insert a specify .. endspecify block. | 31268 | \\[verilog-sk-specify] Insert a specify .. endspecify block. |
| @@ -31272,7 +31293,7 @@ Key bindings specific to `verilog-mode-map' are: | |||
| 31272 | ;;;*** | 31293 | ;;;*** |
| 31273 | 31294 | ||
| 31274 | ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" | 31295 | ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" |
| 31275 | ;;;;;; (20127 25049)) | 31296 | ;;;;;; (20168 57844)) |
| 31276 | ;;; Generated autoloads from progmodes/vhdl-mode.el | 31297 | ;;; Generated autoloads from progmodes/vhdl-mode.el |
| 31277 | 31298 | ||
| 31278 | (autoload 'vhdl-mode "vhdl-mode" "\ | 31299 | (autoload 'vhdl-mode "vhdl-mode" "\ |
| @@ -31724,10 +31745,10 @@ Usage: | |||
| 31724 | 31745 | ||
| 31725 | 31746 | ||
| 31726 | PRINTING: | 31747 | PRINTING: |
| 31727 | Postscript printing with different faces (an optimized set of faces is | 31748 | PostScript printing with different faces (an optimized set of faces is |
| 31728 | used if `vhdl-print-customize-faces' is non-nil) or colors (if | 31749 | used if `vhdl-print-customize-faces' is non-nil) or colors (if |
| 31729 | `ps-print-color-p' is non-nil) is possible using the standard Emacs | 31750 | `ps-print-color-p' is non-nil) is possible using the standard Emacs |
| 31730 | postscript printing commands. Option `vhdl-print-two-column' defines | 31751 | PostScript printing commands. Option `vhdl-print-two-column' defines |
| 31731 | appropriate default settings for nice landscape two-column printing. | 31752 | appropriate default settings for nice landscape two-column printing. |
| 31732 | The paper format can be set by option `ps-paper-type'. Do not forget to | 31753 | The paper format can be set by option `ps-paper-type'. Do not forget to |
| 31733 | switch `ps-print-color-p' to nil for printing on black-and-white | 31754 | switch `ps-print-color-p' to nil for printing on black-and-white |
| @@ -31813,7 +31834,7 @@ Key bindings: | |||
| 31813 | 31834 | ||
| 31814 | ;;;*** | 31835 | ;;;*** |
| 31815 | 31836 | ||
| 31816 | ;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20119 34052)) | 31837 | ;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20104 14925)) |
| 31817 | ;;; Generated autoloads from emulation/vi.el | 31838 | ;;; Generated autoloads from emulation/vi.el |
| 31818 | 31839 | ||
| 31819 | (autoload 'vi-mode "vi" "\ | 31840 | (autoload 'vi-mode "vi" "\ |
| @@ -31868,7 +31889,7 @@ Syntax table and abbrevs while in vi mode remain as they were in Emacs. | |||
| 31868 | ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion | 31889 | ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion |
| 31869 | ;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer | 31890 | ;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer |
| 31870 | ;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" | 31891 | ;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" |
| 31871 | ;;;;;; "language/viet-util.el" (20119 34052)) | 31892 | ;;;;;; "language/viet-util.el" (19845 45374)) |
| 31872 | ;;; Generated autoloads from language/viet-util.el | 31893 | ;;; Generated autoloads from language/viet-util.el |
| 31873 | 31894 | ||
| 31874 | (autoload 'viet-encode-viscii-char "viet-util" "\ | 31895 | (autoload 'viet-encode-viscii-char "viet-util" "\ |
| @@ -31916,7 +31937,7 @@ Convert Vietnamese characters of the current buffer to `VIQR' mnemonics. | |||
| 31916 | ;;;;;; view-mode view-buffer-other-frame view-buffer-other-window | 31937 | ;;;;;; view-mode view-buffer-other-frame view-buffer-other-window |
| 31917 | ;;;;;; view-buffer view-file-other-frame view-file-other-window | 31938 | ;;;;;; view-buffer view-file-other-frame view-file-other-window |
| 31918 | ;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting) | 31939 | ;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting) |
| 31919 | ;;;;;; "view" "view.el" (20126 50686)) | 31940 | ;;;;;; "view" "view.el" (20174 10230)) |
| 31920 | ;;; Generated autoloads from view.el | 31941 | ;;; Generated autoloads from view.el |
| 31921 | 31942 | ||
| 31922 | (defvar view-remove-frame-by-deleting t "\ | 31943 | (defvar view-remove-frame-by-deleting t "\ |
| @@ -32158,8 +32179,8 @@ Exit View mode and make the current buffer editable. | |||
| 32158 | 32179 | ||
| 32159 | ;;;*** | 32180 | ;;;*** |
| 32160 | 32181 | ||
| 32161 | ;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20140 | 32182 | ;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20141 |
| 32162 | ;;;;;; 44329)) | 32183 | ;;;;;; 9296)) |
| 32163 | ;;; Generated autoloads from emulation/vip.el | 32184 | ;;; Generated autoloads from emulation/vip.el |
| 32164 | 32185 | ||
| 32165 | (autoload 'vip-setup "vip" "\ | 32186 | (autoload 'vip-setup "vip" "\ |
| @@ -32175,7 +32196,7 @@ Turn on VIP emulation of VI. | |||
| 32175 | ;;;*** | 32196 | ;;;*** |
| 32176 | 32197 | ||
| 32177 | ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" | 32198 | ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" |
| 32178 | ;;;;;; (20119 34052)) | 32199 | ;;;;;; (20167 36967)) |
| 32179 | ;;; Generated autoloads from emulation/viper.el | 32200 | ;;; Generated autoloads from emulation/viper.el |
| 32180 | 32201 | ||
| 32181 | (autoload 'toggle-viper-mode "viper" "\ | 32202 | (autoload 'toggle-viper-mode "viper" "\ |
| @@ -32192,7 +32213,7 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. | |||
| 32192 | ;;;*** | 32213 | ;;;*** |
| 32193 | 32214 | ||
| 32194 | ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" | 32215 | ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" |
| 32195 | ;;;;;; (20119 34052)) | 32216 | ;;;;;; (19906 31087)) |
| 32196 | ;;; Generated autoloads from emacs-lisp/warnings.el | 32217 | ;;; Generated autoloads from emacs-lisp/warnings.el |
| 32197 | 32218 | ||
| 32198 | (defvar warning-prefix-function nil "\ | 32219 | (defvar warning-prefix-function nil "\ |
| @@ -32282,7 +32303,7 @@ this is equivalent to `display-warning', using | |||
| 32282 | ;;;*** | 32303 | ;;;*** |
| 32283 | 32304 | ||
| 32284 | ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" | 32305 | ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" |
| 32285 | ;;;;;; (20119 34052)) | 32306 | ;;;;;; (20174 10230)) |
| 32286 | ;;; Generated autoloads from wdired.el | 32307 | ;;; Generated autoloads from wdired.el |
| 32287 | 32308 | ||
| 32288 | (autoload 'wdired-change-to-wdired-mode "wdired" "\ | 32309 | (autoload 'wdired-change-to-wdired-mode "wdired" "\ |
| @@ -32298,7 +32319,7 @@ See `wdired-mode'. | |||
| 32298 | 32319 | ||
| 32299 | ;;;*** | 32320 | ;;;*** |
| 32300 | 32321 | ||
| 32301 | ;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20119 34052)) | 32322 | ;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20159 42847)) |
| 32302 | ;;; Generated autoloads from net/webjump.el | 32323 | ;;; Generated autoloads from net/webjump.el |
| 32303 | 32324 | ||
| 32304 | (autoload 'webjump "webjump" "\ | 32325 | (autoload 'webjump "webjump" "\ |
| @@ -32315,7 +32336,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke | |||
| 32315 | ;;;*** | 32336 | ;;;*** |
| 32316 | 32337 | ||
| 32317 | ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" | 32338 | ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" |
| 32318 | ;;;;;; (20127 25007)) | 32339 | ;;;;;; (20127 62865)) |
| 32319 | ;;; Generated autoloads from progmodes/which-func.el | 32340 | ;;; Generated autoloads from progmodes/which-func.el |
| 32320 | (put 'which-func-format 'risky-local-variable t) | 32341 | (put 'which-func-format 'risky-local-variable t) |
| 32321 | (put 'which-func-current 'risky-local-variable t) | 32342 | (put 'which-func-current 'risky-local-variable t) |
| @@ -32348,7 +32369,7 @@ in certain major modes. | |||
| 32348 | ;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region | 32369 | ;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region |
| 32349 | ;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options | 32370 | ;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options |
| 32350 | ;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode | 32371 | ;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode |
| 32351 | ;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20142 405)) | 32372 | ;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20176 51947)) |
| 32352 | ;;; Generated autoloads from whitespace.el | 32373 | ;;; Generated autoloads from whitespace.el |
| 32353 | 32374 | ||
| 32354 | (autoload 'whitespace-mode "whitespace" "\ | 32375 | (autoload 'whitespace-mode "whitespace" "\ |
| @@ -32747,7 +32768,7 @@ cleaning up these problems. | |||
| 32747 | ;;;*** | 32768 | ;;;*** |
| 32748 | 32769 | ||
| 32749 | ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse | 32770 | ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse |
| 32750 | ;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20126 45211)) | 32771 | ;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20127 62865)) |
| 32751 | ;;; Generated autoloads from wid-browse.el | 32772 | ;;; Generated autoloads from wid-browse.el |
| 32752 | 32773 | ||
| 32753 | (autoload 'widget-browse-at "wid-browse" "\ | 32774 | (autoload 'widget-browse-at "wid-browse" "\ |
| @@ -32773,8 +32794,8 @@ Minor mode for traversing widgets. | |||
| 32773 | ;;;*** | 32794 | ;;;*** |
| 32774 | 32795 | ||
| 32775 | ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create | 32796 | ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create |
| 32776 | ;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20119 | 32797 | ;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20162 |
| 32777 | ;;;;;; 34052)) | 32798 | ;;;;;; 19074)) |
| 32778 | ;;; Generated autoloads from wid-edit.el | 32799 | ;;; Generated autoloads from wid-edit.el |
| 32779 | 32800 | ||
| 32780 | (autoload 'widgetp "wid-edit" "\ | 32801 | (autoload 'widgetp "wid-edit" "\ |
| @@ -32817,8 +32838,8 @@ Setup current buffer so editing string widgets works. | |||
| 32817 | ;;;*** | 32838 | ;;;*** |
| 32818 | 32839 | ||
| 32819 | ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right | 32840 | ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right |
| 32820 | ;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20119 | 32841 | ;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20161 |
| 32821 | ;;;;;; 34052)) | 32842 | ;;;;;; 45793)) |
| 32822 | ;;; Generated autoloads from windmove.el | 32843 | ;;; Generated autoloads from windmove.el |
| 32823 | 32844 | ||
| 32824 | (autoload 'windmove-left "windmove" "\ | 32845 | (autoload 'windmove-left "windmove" "\ |
| @@ -32871,7 +32892,7 @@ Default MODIFIER is 'shift. | |||
| 32871 | ;;;*** | 32892 | ;;;*** |
| 32872 | 32893 | ||
| 32873 | ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" | 32894 | ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" |
| 32874 | ;;;;;; (20119 34052)) | 32895 | ;;;;;; (19998 49767)) |
| 32875 | ;;; Generated autoloads from winner.el | 32896 | ;;; Generated autoloads from winner.el |
| 32876 | 32897 | ||
| 32877 | (defvar winner-mode nil "\ | 32898 | (defvar winner-mode nil "\ |
| @@ -32890,7 +32911,7 @@ With arg, turn Winner mode on if and only if arg is positive. | |||
| 32890 | ;;;*** | 32911 | ;;;*** |
| 32891 | 32912 | ||
| 32892 | ;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file | 32913 | ;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file |
| 32893 | ;;;;;; woman woman-locale) "woman" "woman.el" (20119 34052)) | 32914 | ;;;;;; woman woman-locale) "woman" "woman.el" (20168 57844)) |
| 32894 | ;;; Generated autoloads from woman.el | 32915 | ;;; Generated autoloads from woman.el |
| 32895 | 32916 | ||
| 32896 | (defvar woman-locale nil "\ | 32917 | (defvar woman-locale nil "\ |
| @@ -32939,7 +32960,7 @@ Default bookmark handler for Woman buffers. | |||
| 32939 | ;;;*** | 32960 | ;;;*** |
| 32940 | 32961 | ||
| 32941 | ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" | 32962 | ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" |
| 32942 | ;;;;;; (20140 44344)) | 32963 | ;;;;;; (20141 9296)) |
| 32943 | ;;; Generated autoloads from emulation/ws-mode.el | 32964 | ;;; Generated autoloads from emulation/ws-mode.el |
| 32944 | 32965 | ||
| 32945 | (autoload 'wordstar-mode "ws-mode" "\ | 32966 | (autoload 'wordstar-mode "ws-mode" "\ |
| @@ -33051,7 +33072,7 @@ The key bindings are: | |||
| 33051 | 33072 | ||
| 33052 | ;;;*** | 33073 | ;;;*** |
| 33053 | 33074 | ||
| 33054 | ;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20127 25788)) | 33075 | ;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20175 31160)) |
| 33055 | ;;; Generated autoloads from net/xesam.el | 33076 | ;;; Generated autoloads from net/xesam.el |
| 33056 | 33077 | ||
| 33057 | (autoload 'xesam-search "xesam" "\ | 33078 | (autoload 'xesam-search "xesam" "\ |
| @@ -33071,7 +33092,7 @@ Example: | |||
| 33071 | ;;;*** | 33092 | ;;;*** |
| 33072 | 33093 | ||
| 33073 | ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" | 33094 | ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" |
| 33074 | ;;;;;; (20119 34052)) | 33095 | ;;;;;; (20168 57844)) |
| 33075 | ;;; Generated autoloads from xml.el | 33096 | ;;; Generated autoloads from xml.el |
| 33076 | 33097 | ||
| 33077 | (autoload 'xml-parse-file "xml" "\ | 33098 | (autoload 'xml-parse-file "xml" "\ |
| @@ -33097,7 +33118,7 @@ If PARSE-NS is non-nil, then QNAMES are expanded. | |||
| 33097 | ;;;*** | 33118 | ;;;*** |
| 33098 | 33119 | ||
| 33099 | ;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok" | 33120 | ;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok" |
| 33100 | ;;;;;; "nxml/xmltok.el" (20119 34052)) | 33121 | ;;;;;; "nxml/xmltok.el" (19845 45374)) |
| 33101 | ;;; Generated autoloads from nxml/xmltok.el | 33122 | ;;; Generated autoloads from nxml/xmltok.el |
| 33102 | 33123 | ||
| 33103 | (autoload 'xmltok-get-declared-encoding-position "xmltok" "\ | 33124 | (autoload 'xmltok-get-declared-encoding-position "xmltok" "\ |
| @@ -33115,8 +33136,8 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT. | |||
| 33115 | 33136 | ||
| 33116 | ;;;*** | 33137 | ;;;*** |
| 33117 | 33138 | ||
| 33118 | ;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20126 | 33139 | ;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20127 |
| 33119 | ;;;;;; 50742)) | 33140 | ;;;;;; 62865)) |
| 33120 | ;;; Generated autoloads from xt-mouse.el | 33141 | ;;; Generated autoloads from xt-mouse.el |
| 33121 | 33142 | ||
| 33122 | (defvar xterm-mouse-mode nil "\ | 33143 | (defvar xterm-mouse-mode nil "\ |
| @@ -33146,7 +33167,7 @@ down the SHIFT key while pressing the mouse button. | |||
| 33146 | ;;;*** | 33167 | ;;;*** |
| 33147 | 33168 | ||
| 33148 | ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" | 33169 | ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" |
| 33149 | ;;;;;; "gnus/yenc.el" (20119 34052)) | 33170 | ;;;;;; "gnus/yenc.el" (19845 45374)) |
| 33150 | ;;; Generated autoloads from gnus/yenc.el | 33171 | ;;; Generated autoloads from gnus/yenc.el |
| 33151 | 33172 | ||
| 33152 | (autoload 'yenc-decode-region "yenc" "\ | 33173 | (autoload 'yenc-decode-region "yenc" "\ |
| @@ -33162,7 +33183,7 @@ Extract file name from an yenc header. | |||
| 33162 | ;;;*** | 33183 | ;;;*** |
| 33163 | 33184 | ||
| 33164 | ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism | 33185 | ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism |
| 33165 | ;;;;;; yow) "yow" "play/yow.el" (20119 34052)) | 33186 | ;;;;;; yow) "yow" "play/yow.el" (19845 45374)) |
| 33166 | ;;; Generated autoloads from play/yow.el | 33187 | ;;; Generated autoloads from play/yow.el |
| 33167 | 33188 | ||
| 33168 | (autoload 'yow "yow" "\ | 33189 | (autoload 'yow "yow" "\ |
| @@ -33188,7 +33209,7 @@ Zippy goes to the analyst. | |||
| 33188 | 33209 | ||
| 33189 | ;;;*** | 33210 | ;;;*** |
| 33190 | 33211 | ||
| 33191 | ;;;### (autoloads (zone) "zone" "play/zone.el" (20119 34052)) | 33212 | ;;;### (autoloads (zone) "zone" "play/zone.el" (19889 21967)) |
| 33192 | ;;; Generated autoloads from play/zone.el | 33213 | ;;; Generated autoloads from play/zone.el |
| 33193 | 33214 | ||
| 33194 | (autoload 'zone "zone" "\ | 33215 | (autoload 'zone "zone" "\ |
| @@ -33204,46 +33225,47 @@ Zone out, completely. | |||
| 33204 | ;;;;;; "calc/calc-fin.el" "calc/calc-forms.el" "calc/calc-frac.el" | 33225 | ;;;;;; "calc/calc-fin.el" "calc/calc-forms.el" "calc/calc-frac.el" |
| 33205 | ;;;;;; "calc/calc-funcs.el" "calc/calc-graph.el" "calc/calc-help.el" | 33226 | ;;;;;; "calc/calc-funcs.el" "calc/calc-graph.el" "calc/calc-help.el" |
| 33206 | ;;;;;; "calc/calc-incom.el" "calc/calc-keypd.el" "calc/calc-lang.el" | 33227 | ;;;;;; "calc/calc-incom.el" "calc/calc-keypd.el" "calc/calc-lang.el" |
| 33207 | ;;;;;; "calc/calc-macs.el" "calc/calc-map.el" "calc/calc-math.el" | 33228 | ;;;;;; "calc/calc-loaddefs.el" "calc/calc-macs.el" "calc/calc-map.el" |
| 33208 | ;;;;;; "calc/calc-menu.el" "calc/calc-misc.el" "calc/calc-mode.el" | 33229 | ;;;;;; "calc/calc-math.el" "calc/calc-menu.el" "calc/calc-misc.el" |
| 33209 | ;;;;;; "calc/calc-mtx.el" "calc/calc-nlfit.el" "calc/calc-poly.el" | 33230 | ;;;;;; "calc/calc-mode.el" "calc/calc-mtx.el" "calc/calc-nlfit.el" |
| 33210 | ;;;;;; "calc/calc-prog.el" "calc/calc-rewr.el" "calc/calc-rules.el" | 33231 | ;;;;;; "calc/calc-poly.el" "calc/calc-prog.el" "calc/calc-rewr.el" |
| 33211 | ;;;;;; "calc/calc-sel.el" "calc/calc-stat.el" "calc/calc-store.el" | 33232 | ;;;;;; "calc/calc-rules.el" "calc/calc-sel.el" "calc/calc-stat.el" |
| 33212 | ;;;;;; "calc/calc-stuff.el" "calc/calc-trail.el" "calc/calc-units.el" | 33233 | ;;;;;; "calc/calc-store.el" "calc/calc-stuff.el" "calc/calc-trail.el" |
| 33213 | ;;;;;; "calc/calc-vec.el" "calc/calc-yank.el" "calc/calcalg2.el" | 33234 | ;;;;;; "calc/calc-units.el" "calc/calc-vec.el" "calc/calc-yank.el" |
| 33214 | ;;;;;; "calc/calcalg3.el" "calc/calccomp.el" "calc/calcsel2.el" | 33235 | ;;;;;; "calc/calcalg2.el" "calc/calcalg3.el" "calc/calccomp.el" |
| 33215 | ;;;;;; "calendar/cal-bahai.el" "calendar/cal-coptic.el" "calendar/cal-french.el" | 33236 | ;;;;;; "calc/calcsel2.el" "calendar/cal-bahai.el" "calendar/cal-coptic.el" |
| 33216 | ;;;;;; "calendar/cal-html.el" "calendar/cal-islam.el" "calendar/cal-iso.el" | 33237 | ;;;;;; "calendar/cal-french.el" "calendar/cal-html.el" "calendar/cal-islam.el" |
| 33217 | ;;;;;; "calendar/cal-julian.el" "calendar/cal-loaddefs.el" "calendar/cal-mayan.el" | 33238 | ;;;;;; "calendar/cal-iso.el" "calendar/cal-julian.el" "calendar/cal-loaddefs.el" |
| 33218 | ;;;;;; "calendar/cal-menu.el" "calendar/cal-move.el" "calendar/cal-persia.el" | 33239 | ;;;;;; "calendar/cal-mayan.el" "calendar/cal-menu.el" "calendar/cal-move.el" |
| 33219 | ;;;;;; "calendar/cal-tex.el" "calendar/cal-x.el" "calendar/diary-loaddefs.el" | 33240 | ;;;;;; "calendar/cal-persia.el" "calendar/cal-tex.el" "calendar/cal-x.el" |
| 33220 | ;;;;;; "calendar/hol-loaddefs.el" "cdl.el" "cedet/cedet-cscope.el" | 33241 | ;;;;;; "calendar/diary-loaddefs.el" "calendar/hol-loaddefs.el" "cdl.el" |
| 33221 | ;;;;;; "cedet/cedet-files.el" "cedet/cedet-global.el" "cedet/cedet-idutils.el" | 33242 | ;;;;;; "cedet/cedet-cscope.el" "cedet/cedet-files.el" "cedet/cedet-global.el" |
| 33222 | ;;;;;; "cedet/cedet.el" "cedet/ede/auto.el" "cedet/ede/autoconf-edit.el" | 33243 | ;;;;;; "cedet/cedet-idutils.el" "cedet/cedet.el" "cedet/ede/auto.el" |
| 33223 | ;;;;;; "cedet/ede/base.el" "cedet/ede/cpp-root.el" "cedet/ede/custom.el" | 33244 | ;;;;;; "cedet/ede/autoconf-edit.el" "cedet/ede/base.el" "cedet/ede/cpp-root.el" |
| 33224 | ;;;;;; "cedet/ede/dired.el" "cedet/ede/emacs.el" "cedet/ede/files.el" | 33245 | ;;;;;; "cedet/ede/custom.el" "cedet/ede/dired.el" "cedet/ede/emacs.el" |
| 33225 | ;;;;;; "cedet/ede/generic.el" "cedet/ede/linux.el" "cedet/ede/locate.el" | 33246 | ;;;;;; "cedet/ede/files.el" "cedet/ede/generic.el" "cedet/ede/linux.el" |
| 33226 | ;;;;;; "cedet/ede/make.el" "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el" | 33247 | ;;;;;; "cedet/ede/loaddefs.el" "cedet/ede/locate.el" "cedet/ede/make.el" |
| 33227 | ;;;;;; "cedet/ede/pmake.el" "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el" | 33248 | ;;;;;; "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el" "cedet/ede/pmake.el" |
| 33228 | ;;;;;; "cedet/ede/proj-comp.el" "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el" | 33249 | ;;;;;; "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el" "cedet/ede/proj-comp.el" |
| 33229 | ;;;;;; "cedet/ede/proj-misc.el" "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el" | 33250 | ;;;;;; "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el" "cedet/ede/proj-misc.el" |
| 33230 | ;;;;;; "cedet/ede/proj-scheme.el" "cedet/ede/proj-shared.el" "cedet/ede/proj.el" | 33251 | ;;;;;; "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el" "cedet/ede/proj-scheme.el" |
| 33231 | ;;;;;; "cedet/ede/project-am.el" "cedet/ede/shell.el" "cedet/ede/simple.el" | 33252 | ;;;;;; "cedet/ede/proj-shared.el" "cedet/ede/proj.el" "cedet/ede/project-am.el" |
| 33232 | ;;;;;; "cedet/ede/source.el" "cedet/ede/speedbar.el" "cedet/ede/srecode.el" | 33253 | ;;;;;; "cedet/ede/shell.el" "cedet/ede/simple.el" "cedet/ede/source.el" |
| 33233 | ;;;;;; "cedet/ede/system.el" "cedet/ede/util.el" "cedet/inversion.el" | 33254 | ;;;;;; "cedet/ede/speedbar.el" "cedet/ede/srecode.el" "cedet/ede/system.el" |
| 33234 | ;;;;;; "cedet/mode-local.el" "cedet/pulse.el" "cedet/semantic/analyze.el" | 33255 | ;;;;;; "cedet/ede/util.el" "cedet/inversion.el" "cedet/mode-local.el" |
| 33235 | ;;;;;; "cedet/semantic/analyze/complete.el" "cedet/semantic/analyze/debug.el" | 33256 | ;;;;;; "cedet/pulse.el" "cedet/semantic/analyze.el" "cedet/semantic/analyze/complete.el" |
| 33236 | ;;;;;; "cedet/semantic/analyze/fcn.el" "cedet/semantic/analyze/refs.el" | 33257 | ;;;;;; "cedet/semantic/analyze/debug.el" "cedet/semantic/analyze/fcn.el" |
| 33237 | ;;;;;; "cedet/semantic/bovine.el" "cedet/semantic/bovine/c-by.el" | 33258 | ;;;;;; "cedet/semantic/analyze/refs.el" "cedet/semantic/bovine.el" |
| 33238 | ;;;;;; "cedet/semantic/bovine/c.el" "cedet/semantic/bovine/debug.el" | 33259 | ;;;;;; "cedet/semantic/bovine/c-by.el" "cedet/semantic/bovine/c.el" |
| 33239 | ;;;;;; "cedet/semantic/bovine/el.el" "cedet/semantic/bovine/gcc.el" | 33260 | ;;;;;; "cedet/semantic/bovine/debug.el" "cedet/semantic/bovine/el.el" |
| 33240 | ;;;;;; "cedet/semantic/bovine/make-by.el" "cedet/semantic/bovine/make.el" | 33261 | ;;;;;; "cedet/semantic/bovine/gcc.el" "cedet/semantic/bovine/make-by.el" |
| 33241 | ;;;;;; "cedet/semantic/bovine/scm-by.el" "cedet/semantic/bovine/scm.el" | 33262 | ;;;;;; "cedet/semantic/bovine/make.el" "cedet/semantic/bovine/scm-by.el" |
| 33242 | ;;;;;; "cedet/semantic/chart.el" "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" | 33263 | ;;;;;; "cedet/semantic/bovine/scm.el" "cedet/semantic/chart.el" |
| 33243 | ;;;;;; "cedet/semantic/db-debug.el" "cedet/semantic/db-ebrowse.el" | 33264 | ;;;;;; "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" "cedet/semantic/db-debug.el" |
| 33244 | ;;;;;; "cedet/semantic/db-el.el" "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" | 33265 | ;;;;;; "cedet/semantic/db-ebrowse.el" "cedet/semantic/db-el.el" |
| 33245 | ;;;;;; "cedet/semantic/db-global.el" "cedet/semantic/db-javascript.el" | 33266 | ;;;;;; "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" "cedet/semantic/db-global.el" |
| 33246 | ;;;;;; "cedet/semantic/db-mode.el" "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el" | 33267 | ;;;;;; "cedet/semantic/db-javascript.el" "cedet/semantic/db-mode.el" |
| 33268 | ;;;;;; "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el" | ||
| 33247 | ;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el" | 33269 | ;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el" |
| 33248 | ;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el" | 33270 | ;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el" |
| 33249 | ;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el" | 33271 | ;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el" |
| @@ -33251,13 +33273,13 @@ Zone out, completely. | |||
| 33251 | ;;;;;; "cedet/semantic/fw.el" "cedet/semantic/grammar-wy.el" "cedet/semantic/grammar.el" | 33273 | ;;;;;; "cedet/semantic/fw.el" "cedet/semantic/grammar-wy.el" "cedet/semantic/grammar.el" |
| 33252 | ;;;;;; "cedet/semantic/html.el" "cedet/semantic/ia-sb.el" "cedet/semantic/ia.el" | 33274 | ;;;;;; "cedet/semantic/html.el" "cedet/semantic/ia-sb.el" "cedet/semantic/ia.el" |
| 33253 | ;;;;;; "cedet/semantic/idle.el" "cedet/semantic/imenu.el" "cedet/semantic/java.el" | 33275 | ;;;;;; "cedet/semantic/idle.el" "cedet/semantic/imenu.el" "cedet/semantic/java.el" |
| 33254 | ;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/mru-bookmark.el" | 33276 | ;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/loaddefs.el" |
| 33255 | ;;;;;; "cedet/semantic/sb.el" "cedet/semantic/scope.el" "cedet/semantic/senator.el" | 33277 | ;;;;;; "cedet/semantic/mru-bookmark.el" "cedet/semantic/sb.el" "cedet/semantic/scope.el" |
| 33256 | ;;;;;; "cedet/semantic/sort.el" "cedet/semantic/symref.el" "cedet/semantic/symref/cscope.el" | 33278 | ;;;;;; "cedet/semantic/senator.el" "cedet/semantic/sort.el" "cedet/semantic/symref.el" |
| 33257 | ;;;;;; "cedet/semantic/symref/filter.el" "cedet/semantic/symref/global.el" | 33279 | ;;;;;; "cedet/semantic/symref/cscope.el" "cedet/semantic/symref/filter.el" |
| 33258 | ;;;;;; "cedet/semantic/symref/grep.el" "cedet/semantic/symref/idutils.el" | 33280 | ;;;;;; "cedet/semantic/symref/global.el" "cedet/semantic/symref/grep.el" |
| 33259 | ;;;;;; "cedet/semantic/symref/list.el" "cedet/semantic/tag-file.el" | 33281 | ;;;;;; "cedet/semantic/symref/idutils.el" "cedet/semantic/symref/list.el" |
| 33260 | ;;;;;; "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el" | 33282 | ;;;;;; "cedet/semantic/tag-file.el" "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el" |
| 33261 | ;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el" | 33283 | ;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el" |
| 33262 | ;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el" | 33284 | ;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el" |
| 33263 | ;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el" | 33285 | ;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el" |
| @@ -33269,32 +33291,33 @@ Zone out, completely. | |||
| 33269 | ;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el" | 33291 | ;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el" |
| 33270 | ;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el" | 33292 | ;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el" |
| 33271 | ;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el" | 33293 | ;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el" |
| 33272 | ;;;;;; "cedet/srecode/map.el" "cedet/srecode/mode.el" "cedet/srecode/semantic.el" | 33294 | ;;;;;; "cedet/srecode/loaddefs.el" "cedet/srecode/map.el" "cedet/srecode/mode.el" |
| 33273 | ;;;;;; "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" "cedet/srecode/table.el" | 33295 | ;;;;;; "cedet/srecode/semantic.el" "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" |
| 33274 | ;;;;;; "cedet/srecode/template.el" "cedet/srecode/texi.el" "cus-dep.el" | 33296 | ;;;;;; "cedet/srecode/table.el" "cedet/srecode/template.el" "cedet/srecode/texi.el" |
| 33275 | ;;;;;; "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el" "dos-vars.el" | 33297 | ;;;;;; "cus-dep.el" "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el" |
| 33276 | ;;;;;; "dos-w32.el" "dynamic-setting.el" "emacs-lisp/assoc.el" "emacs-lisp/authors.el" | 33298 | ;;;;;; "dos-vars.el" "dos-w32.el" "dynamic-setting.el" "emacs-lisp/assoc.el" |
| 33277 | ;;;;;; "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" | 33299 | ;;;;;; "emacs-lisp/authors.el" "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" |
| 33278 | ;;;;;; "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-loaddefs.el" | 33300 | ;;;;;; "emacs-lisp/byte-opt.el" "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" |
| 33279 | ;;;;;; "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" "emacs-lisp/cl-specs.el" | 33301 | ;;;;;; "emacs-lisp/cl-loaddefs.el" "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" |
| 33280 | ;;;;;; "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-custom.el" | 33302 | ;;;;;; "emacs-lisp/cl-specs.el" "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el" |
| 33281 | ;;;;;; "emacs-lisp/eieio-datadebug.el" "emacs-lisp/eieio-opt.el" | 33303 | ;;;;;; "emacs-lisp/eieio-custom.el" "emacs-lisp/eieio-datadebug.el" |
| 33282 | ;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" | 33304 | ;;;;;; "emacs-lisp/eieio-opt.el" "emacs-lisp/eieio-speedbar.el" |
| 33283 | ;;;;;; "emacs-lisp/gulp.el" "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" | 33305 | ;;;;;; "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" "emacs-lisp/gulp.el" |
| 33284 | ;;;;;; "emacs-lisp/regi.el" "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" | 33306 | ;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/regi.el" |
| 33285 | ;;;;;; "emacs-lisp/tcover-unsafep.el" "emulation/cua-gmrk.el" "emulation/cua-rect.el" | 33307 | ;;;;;; "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" "emacs-lisp/tcover-unsafep.el" |
| 33286 | ;;;;;; "emulation/edt-lk201.el" "emulation/edt-mapper.el" "emulation/edt-pc.el" | 33308 | ;;;;;; "emulation/cua-gmrk.el" "emulation/cua-rect.el" "emulation/edt-lk201.el" |
| 33287 | ;;;;;; "emulation/edt-vt100.el" "emulation/tpu-extras.el" "emulation/viper-cmd.el" | 33309 | ;;;;;; "emulation/edt-mapper.el" "emulation/edt-pc.el" "emulation/edt-vt100.el" |
| 33288 | ;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el" | 33310 | ;;;;;; "emulation/tpu-extras.el" "emulation/viper-cmd.el" "emulation/viper-ex.el" |
| 33289 | ;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el" | 33311 | ;;;;;; "emulation/viper-init.el" "emulation/viper-keym.el" "emulation/viper-macs.el" |
| 33290 | ;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el" | 33312 | ;;;;;; "emulation/viper-mous.el" "emulation/viper-util.el" "erc/erc-backend.el" |
| 33291 | ;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el" | 33313 | ;;;;;; "erc/erc-goodies.el" "erc/erc-ibuffer.el" "erc/erc-lang.el" |
| 33292 | ;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" | 33314 | ;;;;;; "eshell/em-alias.el" "eshell/em-banner.el" "eshell/em-basic.el" |
| 33293 | ;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" | 33315 | ;;;;;; "eshell/em-cmpl.el" "eshell/em-dirs.el" "eshell/em-glob.el" |
| 33294 | ;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" | 33316 | ;;;;;; "eshell/em-hist.el" "eshell/em-ls.el" "eshell/em-pred.el" |
| 33295 | ;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" | 33317 | ;;;;;; "eshell/em-prompt.el" "eshell/em-rebind.el" "eshell/em-script.el" |
| 33296 | ;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el" | 33318 | ;;;;;; "eshell/em-smart.el" "eshell/em-term.el" "eshell/em-unix.el" |
| 33297 | ;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-io.el" | 33319 | ;;;;;; "eshell/em-xtra.el" "eshell/esh-arg.el" "eshell/esh-cmd.el" |
| 33320 | ;;;;;; "eshell/esh-ext.el" "eshell/esh-groups.el" "eshell/esh-io.el" | ||
| 33298 | ;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el" | 33321 | ;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el" |
| 33299 | ;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el" | 33322 | ;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el" |
| 33300 | ;;;;;; "format-spec.el" "forms-d2.el" "forms-pass.el" "fringe.el" | 33323 | ;;;;;; "format-spec.el" "forms-d2.el" "forms-pass.el" "fringe.el" |
| @@ -33397,8 +33420,8 @@ Zone out, completely. | |||
| 33397 | ;;;;;; "vc/ediff-init.el" "vc/ediff-merg.el" "vc/ediff-ptch.el" | 33420 | ;;;;;; "vc/ediff-init.el" "vc/ediff-merg.el" "vc/ediff-ptch.el" |
| 33398 | ;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" | 33421 | ;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" |
| 33399 | ;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vcursor.el" "vt-control.el" | 33422 | ;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vcursor.el" "vt-control.el" |
| 33400 | ;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "x-dnd.el") (20142 | 33423 | ;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "x-dnd.el") (20183 |
| 33401 | ;;;;;; 850 416521)) | 33424 | ;;;;;; 25444 347950)) |
| 33402 | 33425 | ||
| 33403 | ;;;*** | 33426 | ;;;*** |
| 33404 | 33427 | ||
diff --git a/lisp/lpr.el b/lisp/lpr.el index 76c69f3308c..296063549fc 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el | |||
| @@ -33,11 +33,13 @@ | |||
| 33 | 33 | ||
| 34 | ;;;###autoload | 34 | ;;;###autoload |
| 35 | (defvar lpr-windows-system | 35 | (defvar lpr-windows-system |
| 36 | (memq system-type '(ms-dos windows-nt))) | 36 | (memq system-type '(ms-dos windows-nt)) |
| 37 | "Non-nil if running on MS-DOS or MS Windows.") | ||
| 37 | 38 | ||
| 38 | ;;;###autoload | 39 | ;;;###autoload |
| 39 | (defvar lpr-lp-system | 40 | (defvar lpr-lp-system |
| 40 | (memq system-type '(usg-unix-v hpux irix))) | 41 | (memq system-type '(usg-unix-v hpux irix)) |
| 42 | "Non-nil if running on a system type that uses the \"lp\" command.") | ||
| 41 | 43 | ||
| 42 | 44 | ||
| 43 | (defgroup lpr nil | 45 | (defgroup lpr nil |
diff --git a/lisp/mail/binhex.el b/lisp/mail/binhex.el index 5332c0f14ba..32593462062 100644 --- a/lisp/mail/binhex.el +++ b/lisp/mail/binhex.el | |||
| @@ -79,10 +79,11 @@ input and write the converted data to its standard output." | |||
| 79 | 79 | ||
| 80 | ;;;###autoload | 80 | ;;;###autoload |
| 81 | (defconst binhex-begin-line | 81 | (defconst binhex-begin-line |
| 82 | "^:...............................................................$") | 82 | "^:...............................................................$" |
| 83 | "Regular expression matching the start of a BinHex encoded region.") | ||
| 83 | (defconst binhex-body-line | 84 | (defconst binhex-body-line |
| 84 | "^[^:]...............................................................$") | 85 | "^[^:]...............................................................$") |
| 85 | (defconst binhex-end-line ":$") | 86 | (defconst binhex-end-line ":$") ; unused |
| 86 | 87 | ||
| 87 | (defvar binhex-temporary-file-directory | 88 | (defvar binhex-temporary-file-directory |
| 88 | (cond ((fboundp 'temp-directory) (temp-directory)) | 89 | (cond ((fboundp 'temp-directory) (temp-directory)) |
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 7167fa567d3..7e3d983a76c 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -2026,7 +2026,7 @@ backup file names and the like)." | |||
| 2026 | (if (looking-at ".*\r\n.*\r\n") | 2026 | (if (looking-at ".*\r\n.*\r\n") |
| 2027 | (while (search-forward "\r\n" nil t) | 2027 | (while (search-forward "\r\n" nil t) |
| 2028 | (replace-match "\n" nil t))) | 2028 | (replace-match "\n" nil t))) |
| 2029 | ;; ;; work around text-vs-binary wierdness | 2029 | ;; ;; work around text-vs-binary weirdness |
| 2030 | ;; ;; if we don't find the normal M-H-S, try reading the file a different way | 2030 | ;; ;; if we don't find the normal M-H-S, try reading the file a different way |
| 2031 | ;; (if (not (feedmail-find-eoh t)) | 2031 | ;; (if (not (feedmail-find-eoh t)) |
| 2032 | ;; (let ((file-name-buffer-file-type-alist nil) (default-buffer-file-type nil)) | 2032 | ;; (let ((file-name-buffer-file-type-alist nil) (default-buffer-file-type nil)) |
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 184eaca6c4b..230424c1920 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -482,6 +482,7 @@ still the current message in the Rmail buffer.") | |||
| 482 | ;; It's not clear what it should do now, since there is nothing that | 482 | ;; It's not clear what it should do now, since there is nothing that |
| 483 | ;; records when a message is shown for the first time (unseen is not | 483 | ;; records when a message is shown for the first time (unseen is not |
| 484 | ;; necessarily the same thing). | 484 | ;; necessarily the same thing). |
| 485 | ;; See http://lists.gnu.org/archive/html/emacs-devel/2009-03/msg00013.html | ||
| 485 | (defcustom rmail-message-filter nil | 486 | (defcustom rmail-message-filter nil |
| 486 | "If non-nil, a filter function for new messages in RMAIL. | 487 | "If non-nil, a filter function for new messages in RMAIL. |
| 487 | Called with region narrowed to the message, including headers, | 488 | Called with region narrowed to the message, including headers, |
| @@ -489,30 +490,41 @@ before obeying `rmail-ignored-headers'." | |||
| 489 | :group 'rmail-headers | 490 | :group 'rmail-headers |
| 490 | :type '(choice (const nil) function)) | 491 | :type '(choice (const nil) function)) |
| 491 | 492 | ||
| 493 | (make-obsolete-variable 'rmail-message-filter | ||
| 494 | "it is not used (try `rmail-show-message-hook')." | ||
| 495 | "23.1") | ||
| 496 | |||
| 492 | (defcustom rmail-automatic-folder-directives nil | 497 | (defcustom rmail-automatic-folder-directives nil |
| 493 | "List of directives specifying where to put a message. | 498 | "List of directives specifying how to automatically file messages. |
| 499 | Whenever Rmail shows a message in the folder that `rmail-file-name' | ||
| 500 | specifies, it calls `rmail-auto-file' to maybe file the message in | ||
| 501 | another folder according to this list. Messages that are already | ||
| 502 | marked as `filed', or are in different folders, are left alone. | ||
| 503 | |||
| 494 | Each element of the list is of the form: | 504 | Each element of the list is of the form: |
| 495 | 505 | ||
| 496 | (FOLDERNAME FIELD REGEXP [ FIELD REGEXP ] ... ) | 506 | (FOLDERNAME FIELD REGEXP [ FIELD REGEXP ] ... ) |
| 497 | 507 | ||
| 498 | Where FOLDERNAME is the name of a folder to put the message. | 508 | FOLDERNAME is the name of a folder in which to put the message. |
| 499 | If any of the field regexp's are nil, then it is ignored. | 509 | If FOLDERNAME is nil then Rmail deletes the message, and moves on to |
| 510 | the next. If FOLDERNAME is \"/dev/null\", Rmail deletes the message, | ||
| 511 | but does not move to the next. | ||
| 500 | 512 | ||
| 501 | If FOLDERNAME is \"/dev/null\", it is deleted. | 513 | FIELD is the name of a header field in the message, such as |
| 502 | If FOLDERNAME is nil then it is deleted, and skipped. | 514 | \"subject\" or \"from\". A FIELD of \"to\" includes all text |
| 515 | from both the \"to\" and \"cc\" headers. | ||
| 503 | 516 | ||
| 504 | FIELD is the plain text name of a field in the message, such as | 517 | REGEXP is a regular expression to match (case-sensitively) against |
| 505 | \"subject\" or \"from\". A FIELD of \"to\" will automatically include | 518 | the preceding specified FIELD. |
| 506 | all text from the \"cc\" field as well. | ||
| 507 | 519 | ||
| 508 | REGEXP is an expression to match in the preceding specified FIELD. | 520 | There may be any number of FIELD/REGEXP pairs. |
| 509 | FIELD/REGEXP pairs continue in the list. | 521 | All pairs must match for a directive to apply to a message. |
| 522 | For a given message, Rmail applies only the first matching directive. | ||
| 510 | 523 | ||
| 511 | examples: | 524 | Examples: |
| 512 | (\"/dev/null\" \"from\" \"@spam.com\") ; delete all mail from spam.com | 525 | (\"/dev/null\" \"from\" \"@spam.com\") ; delete all mail from spam.com |
| 513 | (\"RMS\" \"from\" \"rms@\") ; save all mail from RMS. | 526 | (\"RMS\" \"from\" \"rms@\") ; save all mail from RMS. |
| 514 | 527 | " | |
| 515 | Note that this is only applied in the folder specifed by `rmail-file-name'." | ||
| 516 | :group 'rmail | 528 | :group 'rmail |
| 517 | :version "21.1" | 529 | :version "21.1" |
| 518 | :type '(repeat (sexp :tag "Directive"))) | 530 | :type '(repeat (sexp :tag "Directive"))) |
| @@ -552,7 +564,9 @@ In a summary buffer, this holds the RMAIL buffer it is a summary for.") | |||
| 552 | ;; Message counters and markers. Deleted flags. | 564 | ;; Message counters and markers. Deleted flags. |
| 553 | 565 | ||
| 554 | (defvar rmail-current-message nil | 566 | (defvar rmail-current-message nil |
| 555 | "Integer specifying the message currently being displayed in this folder.") | 567 | "Integer specifying the message currently being displayed in this folder. |
| 568 | Counts messages from 1 to `rmail-total-messages'. A value of 0 | ||
| 569 | means there are no messages in the folder.") | ||
| 556 | (put 'rmail-current-message 'permanent-local t) | 570 | (put 'rmail-current-message 'permanent-local t) |
| 557 | 571 | ||
| 558 | (defvar rmail-total-messages nil | 572 | (defvar rmail-total-messages nil |
| @@ -2934,8 +2948,11 @@ Uses the face specified by `rmail-highlight-face'." | |||
| 2934 | (cons overlay rmail-overlay-list)))))))))) | 2948 | (cons overlay rmail-overlay-list)))))))))) |
| 2935 | 2949 | ||
| 2936 | (defun rmail-auto-file () | 2950 | (defun rmail-auto-file () |
| 2937 | "Automatically move a message into a sub-folder based on criteria. | 2951 | "Automatically move a message into another sfolder based on criteria. |
| 2938 | Called when a new message is displayed." | 2952 | This moves messages according to `rmail-automatic-folder-directives'. |
| 2953 | It only does something in the folder that `rmail-file-name' specifies. | ||
| 2954 | The function `rmail-show-message' calls this whenever it shows a message. | ||
| 2955 | This leaves a message alone if it already has the `filed' attribute." | ||
| 2939 | (if (or (zerop rmail-total-messages) | 2956 | (if (or (zerop rmail-total-messages) |
| 2940 | (rmail-message-attr-p rmail-current-message "...F") | 2957 | (rmail-message-attr-p rmail-current-message "...F") |
| 2941 | (not (string= (buffer-file-name) | 2958 | (not (string= (buffer-file-name) |
| @@ -2955,10 +2972,14 @@ Called when a new message is displayed." | |||
| 2955 | directive-loop (cdr (car d))) | 2972 | directive-loop (cdr (car d))) |
| 2956 | (while (and (car directive-loop) | 2973 | (while (and (car directive-loop) |
| 2957 | (let ((f (cond | 2974 | (let ((f (cond |
| 2958 | ((string= (car directive-loop) "from") from) | 2975 | ((string= (downcase (car directive-loop)) "from") |
| 2959 | ((string= (car directive-loop) "to") to) | 2976 | from) |
| 2960 | ((string= (car directive-loop) "subject") subj) | 2977 | ((string= (downcase (car directive-loop)) "to") |
| 2978 | to) | ||
| 2979 | ((string= (downcase (car directive-loop)) | ||
| 2980 | "subject") subj) | ||
| 2961 | (t (mail-fetch-field (car directive-loop)))))) | 2981 | (t (mail-fetch-field (car directive-loop)))))) |
| 2982 | ;; FIXME - shouldn't this ignore case? | ||
| 2962 | (and f (string-match (car (cdr directive-loop)) f)))) | 2983 | (and f (string-match (car (cdr directive-loop)) f)))) |
| 2963 | (setq directive-loop (cdr (cdr directive-loop)))) | 2984 | (setq directive-loop (cdr (cdr directive-loop)))) |
| 2964 | ;; If there are no directives left, then it was a complete match. | 2985 | ;; If there are no directives left, then it was a complete match. |
| @@ -3779,6 +3800,8 @@ which is an element of rmail-msgref-vector." | |||
| 3779 | With prefix argument, \"resend\" the message instead of forwarding it; | 3800 | With prefix argument, \"resend\" the message instead of forwarding it; |
| 3780 | see the documentation of `rmail-resend'." | 3801 | see the documentation of `rmail-resend'." |
| 3781 | (interactive "P") | 3802 | (interactive "P") |
| 3803 | (if (zerop rmail-current-message) | ||
| 3804 | (error "No message to forward")) | ||
| 3782 | (if resend | 3805 | (if resend |
| 3783 | (call-interactively 'rmail-resend) | 3806 | (call-interactively 'rmail-resend) |
| 3784 | (let ((forward-buffer rmail-buffer) | 3807 | (let ((forward-buffer rmail-buffer) |
| @@ -4461,7 +4484,7 @@ Edit the contents of this message. | |||
| 4461 | 4484 | ||
| 4462 | ;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message | 4485 | ;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message |
| 4463 | ;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd" | 4486 | ;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd" |
| 4464 | ;;;;;; "rmailkwd.el" "08c288c88cfe7be50830122c064e3884") | 4487 | ;;;;;; "rmailkwd.el" "ec13237a2b0a9e9c1893e38d36b11134") |
| 4465 | ;;; Generated autoloads from rmailkwd.el | 4488 | ;;; Generated autoloads from rmailkwd.el |
| 4466 | 4489 | ||
| 4467 | (autoload 'rmail-add-label "rmailkwd" "\ | 4490 | (autoload 'rmail-add-label "rmailkwd" "\ |
| @@ -4504,7 +4527,7 @@ With prefix argument N moves forward N messages with these labels. | |||
| 4504 | 4527 | ||
| 4505 | ;;;*** | 4528 | ;;;*** |
| 4506 | 4529 | ||
| 4507 | ;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "5ecb69456c4d86a4e905eb3008602a95") | 4530 | ;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "2cb1f29b88b0c724fdba389fd7b98b00") |
| 4508 | ;;; Generated autoloads from rmailmm.el | 4531 | ;;; Generated autoloads from rmailmm.el |
| 4509 | 4532 | ||
| 4510 | (autoload 'rmail-mime "rmailmm" "\ | 4533 | (autoload 'rmail-mime "rmailmm" "\ |
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index 73542578bf6..472740aefd8 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el | |||
| @@ -96,7 +96,8 @@ LABEL may be a symbol or string." | |||
| 96 | (error "More than one label specified")) | 96 | (error "More than one label specified")) |
| 97 | (with-current-buffer rmail-buffer | 97 | (with-current-buffer rmail-buffer |
| 98 | (rmail-maybe-set-message-counters) | 98 | (rmail-maybe-set-message-counters) |
| 99 | (or msg (setq msg rmail-current-message)) | 99 | (if (zerop (or msg (setq msg rmail-current-message))) |
| 100 | (error "No message")) | ||
| 100 | ;; Force recalculation of summary for this message. | 101 | ;; Force recalculation of summary for this message. |
| 101 | (aset rmail-summary-vector (1- msg) nil) | 102 | (aset rmail-summary-vector (1- msg) nil) |
| 102 | (let (attr-index) | 103 | (let (attr-index) |
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index e53e0c0744e..d01cfc7f2c8 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el | |||
| @@ -1269,7 +1269,8 @@ The arguments ARG and STATE have no effect in this case." | |||
| 1269 | (or arg (goto-char (point-min))) | 1269 | (or arg (goto-char (point-min))) |
| 1270 | (point)) 'rmail-mime-entity))) | 1270 | (point)) 'rmail-mime-entity))) |
| 1271 | (if (or (not arg) entity) (rmail-mime-toggle-raw state))) | 1271 | (if (or (not arg) entity) (rmail-mime-toggle-raw state))) |
| 1272 | (message "Not a MIME message"))) | 1272 | (message "Not a MIME message, just toggling headers") |
| 1273 | (rmail-toggle-header))) | ||
| 1273 | (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string)) | 1274 | (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string)) |
| 1274 | (buf (get-buffer-create "*RMAIL*")) | 1275 | (buf (get-buffer-create "*RMAIL*")) |
| 1275 | (rmail-mime-mbox-buffer rmail-view-buffer) | 1276 | (rmail-mime-mbox-buffer rmail-view-buffer) |
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index c168ca9d8f5..ad76a493483 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el | |||
| @@ -468,6 +468,8 @@ from a non-Rmail buffer. In this case, COUNT is ignored." | |||
| 468 | (if rmail-buffer | 468 | (if rmail-buffer |
| 469 | (set-buffer rmail-buffer) | 469 | (set-buffer rmail-buffer) |
| 470 | (error "There is no Rmail buffer")) | 470 | (error "There is no Rmail buffer")) |
| 471 | (if (zerop rmail-total-messages) | ||
| 472 | (error "No messages to output")) | ||
| 471 | (let ((orig-count count) | 473 | (let ((orig-count count) |
| 472 | beg end) | 474 | beg end) |
| 473 | (while (> count 0) | 475 | (while (> count 0) |
| @@ -533,6 +535,8 @@ so you should call `rmail-output' directly in that case." | |||
| 533 | (if rmail-buffer | 535 | (if rmail-buffer |
| 534 | (set-buffer rmail-buffer) | 536 | (set-buffer rmail-buffer) |
| 535 | (error "There is no Rmail buffer")) | 537 | (error "There is no Rmail buffer")) |
| 538 | (if (zerop rmail-total-messages) | ||
| 539 | (error "No messages to output")) | ||
| 536 | (let ((orig-count count) | 540 | (let ((orig-count count) |
| 537 | (cur (current-buffer))) | 541 | (cur (current-buffer))) |
| 538 | (while (> count 0) | 542 | (while (> count 0) |
| @@ -594,6 +598,8 @@ than appending to it. Deletes the message after writing if | |||
| 594 | (expand-file-name file-name | 598 | (expand-file-name file-name |
| 595 | (and rmail-default-body-file | 599 | (and rmail-default-body-file |
| 596 | (file-name-directory rmail-default-body-file)))) | 600 | (file-name-directory rmail-default-body-file)))) |
| 601 | (if (zerop rmail-current-message) | ||
| 602 | (error "No message to output")) | ||
| 597 | (save-excursion | 603 | (save-excursion |
| 598 | (goto-char (point-min)) | 604 | (goto-char (point-min)) |
| 599 | (search-forward "\n\n") | 605 | (search-forward "\n\n") |
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 9ed2e90b456..652693209e8 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el | |||
| @@ -231,10 +231,9 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'." | |||
| 231 | (while (search-forward "\nFrom " nil t) | 231 | (while (search-forward "\nFrom " nil t) |
| 232 | (forward-char -5) | 232 | (forward-char -5) |
| 233 | (insert ?>))) | 233 | (insert ?>))) |
| 234 | ;; Make sure the message ends with two newlines | ||
| 235 | (goto-char (point-max)) | 234 | (goto-char (point-max)) |
| 236 | (unless (looking-back "\n\n") | 235 | ;; Add terminator blank line to message. |
| 237 | (insert "\n")) | 236 | (insert "\n") |
| 238 | ;; Write it to the output file, suitably encoded. | 237 | ;; Write it to the output file, suitably encoded. |
| 239 | (let ((coding-system-for-write coding)) | 238 | (let ((coding-system-for-write coding)) |
| 240 | (write-region (point-min) (point-max) to-file t | 239 | (write-region (point-min) (point-max) to-file t |
diff --git a/lisp/man.el b/lisp/man.el index 14fdac4e5da..c9ba64bf5e0 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -754,8 +754,10 @@ POS defaults to `point'." | |||
| 754 | 754 | ||
| 755 | (defun Man-completion-table (string pred action) | 755 | (defun Man-completion-table (string pred action) |
| 756 | (cond | 756 | (cond |
| 757 | ((eq action 'lambda) | 757 | ;; This ends up returning t for pretty much any string, and hence leads to |
| 758 | (not (string-match "([^)]*\\'" string))) | 758 | ;; spurious "complete but not unique" messages. And since `man' doesn't |
| 759 | ;; require-match anyway, there's not point being clever. | ||
| 760 | ;;((eq action 'lambda) (not (string-match "([^)]*\\'" string))) | ||
| 759 | ((equal string "-k") | 761 | ((equal string "-k") |
| 760 | ;; Let SPC (minibuffer-complete-word) insert the space. | 762 | ;; Let SPC (minibuffer-complete-word) insert the space. |
| 761 | (complete-with-action action '("-k ") string pred)) | 763 | (complete-with-action action '("-k ") string pred)) |
| @@ -1095,7 +1097,7 @@ Same for the ANSI bold and normal escape sequences." | |||
| 1095 | (replace-match "+") | 1097 | (replace-match "+") |
| 1096 | (put-text-property (1- (point)) (point) 'face 'bold)) | 1098 | (put-text-property (1- (point)) (point) 'face 'bold)) |
| 1097 | ;; When the header is longer than the manpage name, groff tries to | 1099 | ;; When the header is longer than the manpage name, groff tries to |
| 1098 | ;; condense it to a shorter line interspered with ^H. Remove ^H with | 1100 | ;; condense it to a shorter line interspersed with ^H. Remove ^H with |
| 1099 | ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) | 1101 | ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) |
| 1100 | (goto-char (point-min)) | 1102 | (goto-char (point-min)) |
| 1101 | (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) | 1103 | (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) |
| @@ -1189,7 +1191,7 @@ script would have done them." | |||
| 1189 | (goto-char (point-min)) | 1191 | (goto-char (point-min)) |
| 1190 | (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+")) | 1192 | (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+")) |
| 1191 | ;; When the header is longer than the manpage name, groff tries to | 1193 | ;; When the header is longer than the manpage name, groff tries to |
| 1192 | ;; condense it to a shorter line interspered with ^H. Remove ^H with | 1194 | ;; condense it to a shorter line interspersed with ^H. Remove ^H with |
| 1193 | ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) | 1195 | ;; their preceding chars (but don't put Man-overstrike-face). (Bug#5566) |
| 1194 | (goto-char (point-min)) | 1196 | (goto-char (point-min)) |
| 1195 | (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) | 1197 | (while (re-search-forward ".\b" nil t) (backward-delete-char 2)) |
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 6bdd96c0fcc..02e531120be 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -2674,7 +2674,7 @@ | |||
| 2674 | 2674 | ||
| 2675 | Follow MH-E Developers Guide conventions. Use `' quotes for Help | 2675 | Follow MH-E Developers Guide conventions. Use `' quotes for Help |
| 2676 | hyperlinks such as symbols, Info nodes, or URLs. Use \" quotes for | 2676 | hyperlinks such as symbols, Info nodes, or URLs. Use \" quotes for |
| 2677 | everything else. Otherwise, you can accidently get links to | 2677 | everything else. Otherwise, you can accidentally get links to |
| 2678 | nonsense symbols. | 2678 | nonsense symbols. |
| 2679 | 2679 | ||
| 2680 | 2005-12-22 Bill Wohler <wohler@newt.com> | 2680 | 2005-12-22 Bill Wohler <wohler@newt.com> |
| @@ -3456,4 +3456,3 @@ | |||
| 3456 | ;; sentence-end-double-space: nil | 3456 | ;; sentence-end-double-space: nil |
| 3457 | ;; add-log-time-zone-rule: t | 3457 | ;; add-log-time-zone-rule: t |
| 3458 | ;; End: | 3458 | ;; End: |
| 3459 | |||
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index d35d7d4c676..871b84dd039 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 | |||
| @@ -2553,7 +2553,7 @@ | |||
| 2553 | for users who have customized it to a long list now redundant with | 2553 | for users who have customized it to a long list now redundant with |
| 2554 | `mh-invisible-header-fields-default'. | 2554 | `mh-invisible-header-fields-default'. |
| 2555 | (mh-invisible-header-fields-default-override): New defcustom. | 2555 | (mh-invisible-header-fields-default-override): New defcustom. |
| 2556 | Users check off the fields they want displyed from what we | 2556 | Users check off the fields they want displayed from what we |
| 2557 | included in `mh-invisible-header-fields-default'. | 2557 | included in `mh-invisible-header-fields-default'. |
| 2558 | (mh-invisible-headers): Function adapted to new variables. | 2558 | (mh-invisible-headers): Function adapted to new variables. |
| 2559 | 2559 | ||
| @@ -7385,7 +7385,7 @@ | |||
| 7385 | (mh-visit-folder) alias, and v (mh-visit-folder). | 7385 | (mh-visit-folder) alias, and v (mh-visit-folder). |
| 7386 | (mh-index-folder-mode-help-messages): Changes for above. | 7386 | (mh-index-folder-mode-help-messages): Changes for above. |
| 7387 | (mh-index-folder-message-menu, mh-index-folder-folder-menu): New | 7387 | (mh-index-folder-message-menu, mh-index-folder-folder-menu): New |
| 7388 | menus. I decided to delete the unavailable items since greying out | 7388 | menus. I decided to delete the unavailable items since graying out |
| 7389 | implies that the user can do something to access them. In this | 7389 | implies that the user can do something to access them. In this |
| 7390 | case, that's not the case. Well, that's not entirely true--the | 7390 | case, that's not the case. Well, that's not entirely true--the |
| 7391 | user could write code for those functions ;-). | 7391 | user could write code for those functions ;-). |
| @@ -9150,7 +9150,7 @@ | |||
| 9150 | %number(msg). | 9150 | %number(msg). |
| 9151 | (mh-scan-msg-format-string): Format to be used with the current | 9151 | (mh-scan-msg-format-string): Format to be used with the current |
| 9152 | maximum width of message number for the folder in the | 9152 | maximum width of message number for the folder in the |
| 9153 | `mh-upate-scan-format' function. | 9153 | `mh-update-scan-format' function. |
| 9154 | (mh-update-scan-format): Use `mh-scan-msg-format-regexp' for greater | 9154 | (mh-update-scan-format): Use `mh-scan-msg-format-regexp' for greater |
| 9155 | flexibility. The message number is no longer anchored to the | 9155 | flexibility. The message number is no longer anchored to the |
| 9156 | beginning of the `mh-scan-format-nmh' or `mh-scan-format-mh' format | 9156 | beginning of the `mh-scan-format-nmh' or `mh-scan-format-mh' format |
diff --git a/lisp/mh-e/mh-tool-bar.el b/lisp/mh-e/mh-tool-bar.el index ddc9b3ffe94..4469c043b15 100644 --- a/lisp/mh-e/mh-tool-bar.el +++ b/lisp/mh-e/mh-tool-bar.el | |||
| @@ -127,7 +127,7 @@ where, | |||
| 127 | first line is useful and complete without the rest of the string. | 127 | first line is useful and complete without the rest of the string. |
| 128 | 128 | ||
| 129 | Optional item ENABLE-EXPR is an arbitrary lisp expression. If it | 129 | Optional item ENABLE-EXPR is an arbitrary lisp expression. If it |
| 130 | evaluates to nil, then the button is deactivated, otherwise it is | 130 | evaluates to nil, then the button is inactive, otherwise it is |
| 131 | active. If it isn't present then the button is always active." | 131 | active. If it isn't present then the button is always active." |
| 132 | ;; The following variable names have been carefully chosen to make code | 132 | ;; The following variable names have been carefully chosen to make code |
| 133 | ;; generation easier. Modifying the names should be done carefully. | 133 | ;; generation easier. Modifying the names should be done carefully. |
diff --git a/lisp/mpc.el b/lisp/mpc.el index 6c2556b1f39..224131623f4 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el | |||
| @@ -1651,7 +1651,7 @@ Return non-nil if a selection was deactivated." | |||
| 1651 | ;;; Hierarchical tagbrowser ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1651 | ;;; Hierarchical tagbrowser ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 1652 | ;; Todo: | 1652 | ;; Todo: |
| 1653 | ;; - Add a button on each dir to open/close it (?) | 1653 | ;; - Add a button on each dir to open/close it (?) |
| 1654 | ;; - add the parent dir on the previous line, greyed-out, if it's not | 1654 | ;; - add the parent dir on the previous line, grayed-out, if it's not |
| 1655 | ;; present (because we're in the non-selected part and the parent is | 1655 | ;; present (because we're in the non-selected part and the parent is |
| 1656 | ;; in the selected part). | 1656 | ;; in the selected part). |
| 1657 | 1657 | ||
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index f6a5b53ae7f..7ae6912cf8f 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -49,7 +49,7 @@ | |||
| 49 | ;; 'user@' part may be omitted. This syntax can be customized to a certain | 49 | ;; 'user@' part may be omitted. This syntax can be customized to a certain |
| 50 | ;; extent by changing ange-ftp-name-format. There are limitations. | 50 | ;; extent by changing ange-ftp-name-format. There are limitations. |
| 51 | ;; The `host' part has an optional suffix `#port' which may be used to | 51 | ;; The `host' part has an optional suffix `#port' which may be used to |
| 52 | ;; specify a non-default port number for the connexion. | 52 | ;; specify a non-default port number for the connection. |
| 53 | ;; | 53 | ;; |
| 54 | ;; If the user part is omitted then ange-ftp generates a default user | 54 | ;; If the user part is omitted then ange-ftp generates a default user |
| 55 | ;; instead whose value depends on the variable ange-ftp-default-user. | 55 | ;; instead whose value depends on the variable ange-ftp-default-user. |
| @@ -5995,7 +5995,7 @@ Other orders of $ and _ seem to all work just fine.") | |||
| 5995 | (concat | 5995 | (concat |
| 5996 | pubset | 5996 | pubset |
| 5997 | (and userid (concat userid ".")) | 5997 | (and userid (concat userid ".")) |
| 5998 | ;; change every '/' in filename to a '.', normally not neccessary | 5998 | ;; change every '/' in filename to a '.', normally not necessary |
| 5999 | (and filename | 5999 | (and filename |
| 6000 | (subst-char-in-string ?/ ?. filename))))) | 6000 | (subst-char-in-string ?/ ?. filename))))) |
| 6001 | ;; Let's hope that BS2000 recognize this anyway: | 6001 | ;; Let's hope that BS2000 recognize this anyway: |
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 03b84a45ea3..8a8d9e6332f 100644 --- a/lisp/net/dbus.el +++ b/lisp/net/dbus.el | |||
| @@ -150,7 +150,7 @@ association to the service from D-Bus." | |||
| 150 | ;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...). | 150 | ;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...). |
| 151 | ;; MEMBER is either a string (the handler), or a cons cell (a | 151 | ;; MEMBER is either a string (the handler), or a cons cell (a |
| 152 | ;; property value). UNAME and property values are not taken into | 152 | ;; property value). UNAME and property values are not taken into |
| 153 | ;; account for comparision. | 153 | ;; account for comparison. |
| 154 | 154 | ||
| 155 | ;; Loop over the registered functions. | 155 | ;; Loop over the registered functions. |
| 156 | (dolist (elt entry) | 156 | (dolist (elt entry) |
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el index 87ff0b4060f..af8bc084b57 100644 --- a/lisp/net/eudc-export.el +++ b/lisp/net/eudc-export.el | |||
| @@ -128,7 +128,7 @@ LOCATION is used as the address location for bbdb." | |||
| 128 | zip city state) | 128 | zip city state) |
| 129 | (setq addr-components (nreverse addr-components)) | 129 | (setq addr-components (nreverse addr-components)) |
| 130 | ;; If not containing the zip code the last line is supposed to contain a | 130 | ;; If not containing the zip code the last line is supposed to contain a |
| 131 | ;; country name and the addres is supposed to be in european style | 131 | ;; country name and the address is supposed to be in european style |
| 132 | (if (not (string-match "[0-9][0-9][0-9]" last1)) | 132 | (if (not (string-match "[0-9][0-9][0-9]" last1)) |
| 133 | (progn | 133 | (progn |
| 134 | (setq state last1) | 134 | (setq state last1) |
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index 9cb071b185d..18471782f2c 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el | |||
| @@ -108,7 +108,7 @@ trust and key files, and priority string." | |||
| 108 | trustfiles crlfiles keylist min-prime-bits | 108 | trustfiles crlfiles keylist min-prime-bits |
| 109 | verify-flags verify-error verify-hostname-error | 109 | verify-flags verify-error verify-hostname-error |
| 110 | &allow-other-keys) | 110 | &allow-other-keys) |
| 111 | "Negotiate a SSL/TLS connection. Returns proc. Signals gnutls-error. | 111 | "Negotiate a SSL/TLS connection. Returns proc. Signals gnutls-error. |
| 112 | 112 | ||
| 113 | Note arguments are passed CL style, :type TYPE instead of just TYPE. | 113 | Note arguments are passed CL style, :type TYPE instead of just TYPE. |
| 114 | 114 | ||
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el index 7e0eaff1dce..1a48e8863f1 100644 --- a/lisp/net/secrets.el +++ b/lisp/net/secrets.el | |||
| @@ -729,7 +729,7 @@ to their attributes." | |||
| 729 | ;; Create the search buffer. | 729 | ;; Create the search buffer. |
| 730 | (with-current-buffer (get-buffer-create "*Secrets*") | 730 | (with-current-buffer (get-buffer-create "*Secrets*") |
| 731 | (switch-to-buffer-other-window (current-buffer)) | 731 | (switch-to-buffer-other-window (current-buffer)) |
| 732 | ;; Inialize buffer with `secrets-mode'. | 732 | ;; Initialize buffer with `secrets-mode'. |
| 733 | (secrets-mode) | 733 | (secrets-mode) |
| 734 | (secrets-show-collections)))) | 734 | (secrets-show-collections)))) |
| 735 | 735 | ||
diff --git a/lisp/net/tls.el b/lisp/net/tls.el index 42ae5920eee..6f66156a7e2 100644 --- a/lisp/net/tls.el +++ b/lisp/net/tls.el | |||
| @@ -123,7 +123,7 @@ successful negotiation." | |||
| 123 | 123 | ||
| 124 | (defcustom tls-success "- Handshake was completed\\|SSL handshake has read " | 124 | (defcustom tls-success "- Handshake was completed\\|SSL handshake has read " |
| 125 | "Regular expression indicating completed TLS handshakes. | 125 | "Regular expression indicating completed TLS handshakes. |
| 126 | The default is what GNUTLS's \"gnutls-cli\" or OpenSSL's | 126 | The default is what GnuTLS's \"gnutls-cli\" or OpenSSL's |
| 127 | \"openssl s_client\" outputs." | 127 | \"openssl s_client\" outputs." |
| 128 | :version "22.1" | 128 | :version "22.1" |
| 129 | :type 'regexp | 129 | :type 'regexp |
| @@ -150,7 +150,7 @@ consider trustworthy, e.g.: | |||
| 150 | (defcustom tls-untrusted | 150 | (defcustom tls-untrusted |
| 151 | "- Peer's certificate is NOT trusted\\|Verify return code: \\([^0] \\|.[^ ]\\)" | 151 | "- Peer's certificate is NOT trusted\\|Verify return code: \\([^0] \\|.[^ ]\\)" |
| 152 | "Regular expression indicating failure of TLS certificate verification. | 152 | "Regular expression indicating failure of TLS certificate verification. |
| 153 | The default is what GNUTLS's \"gnutls-cli\" or OpenSSL's | 153 | The default is what GnuTLS's \"gnutls-cli\" or OpenSSL's |
| 154 | \"openssl s_client\" return in the event of unsuccessful | 154 | \"openssl s_client\" return in the event of unsuccessful |
| 155 | verification." | 155 | verification." |
| 156 | :type 'regexp | 156 | :type 'regexp |
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index fda88351253..df841bade79 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el | |||
| @@ -996,7 +996,7 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"." | |||
| 996 | (let ((signal-name (dbus-event-member-name last-input-event)) | 996 | (let ((signal-name (dbus-event-member-name last-input-event)) |
| 997 | (elt mount-info)) | 997 | (elt mount-info)) |
| 998 | ;; Jump over the first elements of the mount info. Since there | 998 | ;; Jump over the first elements of the mount info. Since there |
| 999 | ;; were changes in the antries, we cannot access dedicated | 999 | ;; were changes in the entries, we cannot access dedicated |
| 1000 | ;; elements. | 1000 | ;; elements. |
| 1001 | (while (stringp (car elt)) (setq elt (cdr elt))) | 1001 | (while (stringp (car elt)) (setq elt (cdr elt))) |
| 1002 | (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt))) | 1002 | (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt))) |
| @@ -1066,7 +1066,7 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"." | |||
| 1066 | tramp-gvfs-interface-mounttracker "listMounts")) | 1066 | tramp-gvfs-interface-mounttracker "listMounts")) |
| 1067 | nil) | 1067 | nil) |
| 1068 | ;; Jump over the first elements of the mount info. Since there | 1068 | ;; Jump over the first elements of the mount info. Since there |
| 1069 | ;; were changes in the antries, we cannot access dedicated | 1069 | ;; were changes in the entries, we cannot access dedicated |
| 1070 | ;; elements. | 1070 | ;; elements. |
| 1071 | (while (stringp (car elt)) (setq elt (cdr elt))) | 1071 | (while (stringp (car elt)) (setq elt (cdr elt))) |
| 1072 | (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt))) | 1072 | (let* ((fuse-mountpoint (dbus-byte-array-to-string (cadr elt))) |
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 941b788ae4d..ee4c8966626 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -1042,9 +1042,9 @@ target of the symlink differ." | |||
| 1042 | (tramp-flush-file-property l (file-name-directory l-localname)) | 1042 | (tramp-flush-file-property l (file-name-directory l-localname)) |
| 1043 | (tramp-flush-file-property l l-localname) | 1043 | (tramp-flush-file-property l l-localname) |
| 1044 | 1044 | ||
| 1045 | ;; Right, they are on the same host, regardless of user, method, etc. | 1045 | ;; Right, they are on the same host, regardless of user, method, |
| 1046 | ;; We now make the link on the remote machine. This will occur as the user | 1046 | ;; etc. We now make the link on the remote machine. This will |
| 1047 | ;; that FILENAME belongs to. | 1047 | ;; occur as the user that FILENAME belongs to. |
| 1048 | (tramp-send-command-and-check | 1048 | (tramp-send-command-and-check |
| 1049 | l | 1049 | l |
| 1050 | (format | 1050 | (format |
| @@ -4224,148 +4224,166 @@ connection if a previous connection has died for some reason." | |||
| 4224 | (setq p nil))) | 4224 | (setq p nil))) |
| 4225 | 4225 | ||
| 4226 | ;; New connection must be opened. | 4226 | ;; New connection must be opened. |
| 4227 | (unless (and p (processp p) (memq (process-status p) '(run open))) | 4227 | (condition-case err |
| 4228 | 4228 | (unless (and p (processp p) (memq (process-status p) '(run open))) | |
| 4229 | ;; We call `tramp-get-buffer' in order to get a debug buffer for | 4229 | |
| 4230 | ;; messages from the beginning. | 4230 | ;; We call `tramp-get-buffer' in order to get a debug |
| 4231 | (tramp-get-buffer vec) | 4231 | ;; buffer for messages from the beginning. |
| 4232 | (tramp-with-progress-reporter | 4232 | (tramp-get-buffer vec) |
| 4233 | vec 3 | 4233 | (tramp-with-progress-reporter |
| 4234 | (if (zerop (length (tramp-file-name-user vec))) | 4234 | vec 3 |
| 4235 | (format "Opening connection for %s using %s" | 4235 | (if (zerop (length (tramp-file-name-user vec))) |
| 4236 | (tramp-file-name-host vec) | 4236 | (format "Opening connection for %s using %s" |
| 4237 | (tramp-file-name-method vec)) | 4237 | (tramp-file-name-host vec) |
| 4238 | (format "Opening connection for %s@%s using %s" | 4238 | (tramp-file-name-method vec)) |
| 4239 | (tramp-file-name-user vec) | 4239 | (format "Opening connection for %s@%s using %s" |
| 4240 | (tramp-file-name-host vec) | 4240 | (tramp-file-name-user vec) |
| 4241 | (tramp-file-name-method vec))) | 4241 | (tramp-file-name-host vec) |
| 4242 | 4242 | (tramp-file-name-method vec))) | |
| 4243 | ;; Start new process. | 4243 | |
| 4244 | (when (and p (processp p)) | 4244 | ;; Start new process. |
| 4245 | (delete-process p)) | 4245 | (when (and p (processp p)) |
| 4246 | (setenv "TERM" tramp-terminal-type) | 4246 | (delete-process p)) |
| 4247 | (setenv "LC_ALL" "C") | 4247 | (setenv "TERM" tramp-terminal-type) |
| 4248 | (setenv "PROMPT_COMMAND") | 4248 | (setenv "LC_ALL" "C") |
| 4249 | (setenv "PS1" tramp-initial-end-of-output) | 4249 | (setenv "PROMPT_COMMAND") |
| 4250 | (let* ((target-alist (tramp-compute-multi-hops vec)) | 4250 | (setenv "PS1" tramp-initial-end-of-output) |
| 4251 | (process-connection-type tramp-process-connection-type) | 4251 | (let* ((target-alist (tramp-compute-multi-hops vec)) |
| 4252 | (process-adaptive-read-buffering nil) | 4252 | (process-connection-type tramp-process-connection-type) |
| 4253 | (coding-system-for-read nil) | 4253 | (process-adaptive-read-buffering nil) |
| 4254 | ;; This must be done in order to avoid our file name handler. | 4254 | (coding-system-for-read nil) |
| 4255 | (p (let ((default-directory | 4255 | ;; This must be done in order to avoid our file |
| 4256 | (tramp-compat-temporary-file-directory))) | 4256 | ;; name handler. |
| 4257 | (apply | 4257 | (p (let ((default-directory |
| 4258 | 'start-process | 4258 | (tramp-compat-temporary-file-directory))) |
| 4259 | (tramp-get-connection-name vec) | 4259 | (apply |
| 4260 | (tramp-get-connection-buffer vec) | 4260 | 'start-process |
| 4261 | (if tramp-encoding-command-interactive | 4261 | (tramp-get-connection-name vec) |
| 4262 | (list tramp-encoding-shell | 4262 | (tramp-get-connection-buffer vec) |
| 4263 | tramp-encoding-command-interactive) | 4263 | (if tramp-encoding-command-interactive |
| 4264 | (list tramp-encoding-shell)))))) | 4264 | (list tramp-encoding-shell |
| 4265 | 4265 | tramp-encoding-command-interactive) | |
| 4266 | ;; Set sentinel and query flag. | 4266 | (list tramp-encoding-shell)))))) |
| 4267 | (tramp-set-connection-property p "vector" vec) | 4267 | |
| 4268 | (set-process-sentinel p 'tramp-process-sentinel) | 4268 | ;; Set sentinel and query flag. |
| 4269 | (tramp-compat-set-process-query-on-exit-flag p nil) | 4269 | (tramp-set-connection-property p "vector" vec) |
| 4270 | (set-process-sentinel p 'tramp-process-sentinel) | ||
| 4271 | (tramp-compat-set-process-query-on-exit-flag p nil) | ||
| 4270 | 4272 | ||
| 4271 | (tramp-message | ||
| 4272 | vec 6 "%s" (mapconcat 'identity (process-command p) " ")) | ||
| 4273 | |||
| 4274 | ;; Check whether process is alive. | ||
| 4275 | (tramp-barf-if-no-shell-prompt | ||
| 4276 | p 60 "Couldn't find local shell prompt %s" tramp-encoding-shell) | ||
| 4277 | |||
| 4278 | ;; Now do all the connections as specified. | ||
| 4279 | (while target-alist | ||
| 4280 | (let* ((hop (car target-alist)) | ||
| 4281 | (l-method (tramp-file-name-method hop)) | ||
| 4282 | (l-user (tramp-file-name-user hop)) | ||
| 4283 | (l-host (tramp-file-name-host hop)) | ||
| 4284 | (l-port nil) | ||
| 4285 | (login-program | ||
| 4286 | (tramp-get-method-parameter | ||
| 4287 | l-method 'tramp-login-program)) | ||
| 4288 | (login-args | ||
| 4289 | (tramp-get-method-parameter l-method 'tramp-login-args)) | ||
| 4290 | (async-args | ||
| 4291 | (tramp-get-method-parameter l-method 'tramp-async-args)) | ||
| 4292 | (gw-args | ||
| 4293 | (tramp-get-method-parameter l-method 'tramp-gw-args)) | ||
| 4294 | (gw (tramp-get-file-property hop "" "gateway" nil)) | ||
| 4295 | (g-method (and gw (tramp-file-name-method gw))) | ||
| 4296 | (g-user (and gw (tramp-file-name-user gw))) | ||
| 4297 | (g-host (and gw (tramp-file-name-real-host gw))) | ||
| 4298 | (command login-program) | ||
| 4299 | ;; We don't create the temporary file. In fact, | ||
| 4300 | ;; it is just a prefix for the ControlPath option | ||
| 4301 | ;; of ssh; the real temporary file has another | ||
| 4302 | ;; name, and it is created and protected by ssh. | ||
| 4303 | ;; It is also removed by ssh when the connection | ||
| 4304 | ;; is closed. | ||
| 4305 | (tmpfile | ||
| 4306 | (tramp-set-connection-property | ||
| 4307 | p "temp-file" | ||
| 4308 | (make-temp-name | ||
| 4309 | (expand-file-name | ||
| 4310 | tramp-temp-name-prefix | ||
| 4311 | (tramp-compat-temporary-file-directory))))) | ||
| 4312 | spec) | ||
| 4313 | |||
| 4314 | ;; Add arguments for asynchronous processes. | ||
| 4315 | (when (and process-name async-args) | ||
| 4316 | (setq login-args (append async-args login-args))) | ||
| 4317 | |||
| 4318 | ;; Add gateway arguments if necessary. | ||
| 4319 | (when (and gw gw-args) | ||
| 4320 | (setq login-args (append gw-args login-args))) | ||
| 4321 | |||
| 4322 | ;; Check for port number. Until now, there's no need | ||
| 4323 | ;; for handling like method, user, host. | ||
| 4324 | (when (string-match tramp-host-with-port-regexp l-host) | ||
| 4325 | (setq l-port (match-string 2 l-host) | ||
| 4326 | l-host (match-string 1 l-host))) | ||
| 4327 | |||
| 4328 | ;; Set variables for computing the prompt for reading | ||
| 4329 | ;; password. They can also be derived from a gateway. | ||
| 4330 | (setq tramp-current-method (or g-method l-method) | ||
| 4331 | tramp-current-user (or g-user l-user) | ||
| 4332 | tramp-current-host (or g-host l-host)) | ||
| 4333 | |||
| 4334 | ;; Replace login-args place holders. | ||
| 4335 | (setq | ||
| 4336 | l-host (or l-host "") | ||
| 4337 | l-user (or l-user "") | ||
| 4338 | l-port (or l-port "") | ||
| 4339 | spec (format-spec-make | ||
| 4340 | ?h l-host ?u l-user ?p l-port ?t tmpfile) | ||
| 4341 | command | ||
| 4342 | (concat | ||
| 4343 | ;; We do not want to see the trailing local prompt in | ||
| 4344 | ;; `start-file-process'. | ||
| 4345 | (unless (memq system-type '(windows-nt)) "exec ") | ||
| 4346 | command " " | ||
| 4347 | (mapconcat | ||
| 4348 | (lambda (x) | ||
| 4349 | (setq x (mapcar (lambda (y) (format-spec y spec)) x)) | ||
| 4350 | (unless (member "" x) (mapconcat 'identity x " "))) | ||
| 4351 | login-args " ") | ||
| 4352 | ;; Local shell could be a Windows COMSPEC. It | ||
| 4353 | ;; doesn't know the ";" syntax, but we must exit | ||
| 4354 | ;; always for `start-file-process'. "exec" does not | ||
| 4355 | ;; work either. | ||
| 4356 | (if (memq system-type '(windows-nt)) " && exit || exit"))) | ||
| 4357 | |||
| 4358 | ;; Send the command. | ||
| 4359 | (tramp-message vec 3 "Sending command `%s'" command) | ||
| 4360 | (tramp-send-command vec command t t) | ||
| 4361 | (tramp-process-actions p vec pos tramp-actions-before-shell 60) | ||
| 4362 | (tramp-message | 4273 | (tramp-message |
| 4363 | vec 3 "Found remote shell prompt on `%s'" l-host)) | 4274 | vec 6 "%s" (mapconcat 'identity (process-command p) " ")) |
| 4364 | ;; Next hop. | 4275 | |
| 4365 | (setq target-alist (cdr target-alist))) | 4276 | ;; Check whether process is alive. |
| 4366 | 4277 | (tramp-barf-if-no-shell-prompt | |
| 4367 | ;; Make initial shell settings. | 4278 | p 60 |
| 4368 | (tramp-open-connection-setup-interactive-shell p vec))))))) | 4279 | "Couldn't find local shell prompt %s" tramp-encoding-shell) |
| 4280 | |||
| 4281 | ;; Now do all the connections as specified. | ||
| 4282 | (while target-alist | ||
| 4283 | (let* ((hop (car target-alist)) | ||
| 4284 | (l-method (tramp-file-name-method hop)) | ||
| 4285 | (l-user (tramp-file-name-user hop)) | ||
| 4286 | (l-host (tramp-file-name-host hop)) | ||
| 4287 | (l-port nil) | ||
| 4288 | (login-program | ||
| 4289 | (tramp-get-method-parameter | ||
| 4290 | l-method 'tramp-login-program)) | ||
| 4291 | (login-args | ||
| 4292 | (tramp-get-method-parameter | ||
| 4293 | l-method 'tramp-login-args)) | ||
| 4294 | (async-args | ||
| 4295 | (tramp-get-method-parameter | ||
| 4296 | l-method 'tramp-async-args)) | ||
| 4297 | (gw-args | ||
| 4298 | (tramp-get-method-parameter l-method 'tramp-gw-args)) | ||
| 4299 | (gw (tramp-get-file-property hop "" "gateway" nil)) | ||
| 4300 | (g-method (and gw (tramp-file-name-method gw))) | ||
| 4301 | (g-user (and gw (tramp-file-name-user gw))) | ||
| 4302 | (g-host (and gw (tramp-file-name-real-host gw))) | ||
| 4303 | (command login-program) | ||
| 4304 | ;; We don't create the temporary file. In | ||
| 4305 | ;; fact, it is just a prefix for the | ||
| 4306 | ;; ControlPath option of ssh; the real | ||
| 4307 | ;; temporary file has another name, and it is | ||
| 4308 | ;; created and protected by ssh. It is also | ||
| 4309 | ;; removed by ssh when the connection is | ||
| 4310 | ;; closed. | ||
| 4311 | (tmpfile | ||
| 4312 | (tramp-set-connection-property | ||
| 4313 | p "temp-file" | ||
| 4314 | (make-temp-name | ||
| 4315 | (expand-file-name | ||
| 4316 | tramp-temp-name-prefix | ||
| 4317 | (tramp-compat-temporary-file-directory))))) | ||
| 4318 | spec) | ||
| 4319 | |||
| 4320 | ;; Add arguments for asynchronous processes. | ||
| 4321 | (when (and process-name async-args) | ||
| 4322 | (setq login-args (append async-args login-args))) | ||
| 4323 | |||
| 4324 | ;; Add gateway arguments if necessary. | ||
| 4325 | (when (and gw gw-args) | ||
| 4326 | (setq login-args (append gw-args login-args))) | ||
| 4327 | |||
| 4328 | ;; Check for port number. Until now, there's no | ||
| 4329 | ;; need for handling like method, user, host. | ||
| 4330 | (when (string-match tramp-host-with-port-regexp l-host) | ||
| 4331 | (setq l-port (match-string 2 l-host) | ||
| 4332 | l-host (match-string 1 l-host))) | ||
| 4333 | |||
| 4334 | ;; Set variables for computing the prompt for | ||
| 4335 | ;; reading password. They can also be derived | ||
| 4336 | ;; from a gateway. | ||
| 4337 | (setq tramp-current-method (or g-method l-method) | ||
| 4338 | tramp-current-user (or g-user l-user) | ||
| 4339 | tramp-current-host (or g-host l-host)) | ||
| 4340 | |||
| 4341 | ;; Replace login-args place holders. | ||
| 4342 | (setq | ||
| 4343 | l-host (or l-host "") | ||
| 4344 | l-user (or l-user "") | ||
| 4345 | l-port (or l-port "") | ||
| 4346 | spec (format-spec-make | ||
| 4347 | ?h l-host ?u l-user ?p l-port ?t tmpfile) | ||
| 4348 | command | ||
| 4349 | (concat | ||
| 4350 | ;; We do not want to see the trailing local | ||
| 4351 | ;; prompt in `start-file-process'. | ||
| 4352 | (unless (memq system-type '(windows-nt)) "exec ") | ||
| 4353 | command " " | ||
| 4354 | (mapconcat | ||
| 4355 | (lambda (x) | ||
| 4356 | (setq x (mapcar (lambda (y) (format-spec y spec)) x)) | ||
| 4357 | (unless (member "" x) (mapconcat 'identity x " "))) | ||
| 4358 | login-args " ") | ||
| 4359 | ;; Local shell could be a Windows COMSPEC. It | ||
| 4360 | ;; doesn't know the ";" syntax, but we must exit | ||
| 4361 | ;; always for `start-file-process'. "exec" does | ||
| 4362 | ;; not work either. | ||
| 4363 | (if (memq system-type '(windows-nt)) " && exit || exit"))) | ||
| 4364 | |||
| 4365 | ;; Send the command. | ||
| 4366 | (tramp-message vec 3 "Sending command `%s'" command) | ||
| 4367 | (tramp-send-command vec command t t) | ||
| 4368 | (tramp-process-actions | ||
| 4369 | p vec pos tramp-actions-before-shell 60) | ||
| 4370 | (tramp-message | ||
| 4371 | vec 3 "Found remote shell prompt on `%s'" l-host)) | ||
| 4372 | ;; Next hop. | ||
| 4373 | (setq target-alist (cdr target-alist))) | ||
| 4374 | |||
| 4375 | ;; Make initial shell settings. | ||
| 4376 | (tramp-open-connection-setup-interactive-shell p vec)))) | ||
| 4377 | |||
| 4378 | ;; When the user did interrupt, we must cleanup. | ||
| 4379 | (quit | ||
| 4380 | (let ((p (tramp-get-connection-process vec))) | ||
| 4381 | (when (and p (processp p)) | ||
| 4382 | (tramp-flush-connection-property vec) | ||
| 4383 | (tramp-flush-connection-property p) | ||
| 4384 | (delete-process p))) | ||
| 4385 | ;; Propagate the quit signal. | ||
| 4386 | (signal (car err) (cdr err))))))) | ||
| 4369 | 4387 | ||
| 4370 | (defun tramp-send-command (vec command &optional neveropen nooutput) | 4388 | (defun tramp-send-command (vec command &optional neveropen nooutput) |
| 4371 | "Send the COMMAND to connection VEC. | 4389 | "Send the COMMAND to connection VEC. |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 0ee6ad8dea4..c89b61c2eb1 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -1331,7 +1331,7 @@ ARGS to actually emit the message (if applicable)." | |||
| 1331 | (setq fn nil))) | 1331 | (setq fn nil))) |
| 1332 | (setq btn (1+ btn)))) | 1332 | (setq btn (1+ btn)))) |
| 1333 | ;; The following code inserts filename and line number. | 1333 | ;; The following code inserts filename and line number. |
| 1334 | ;; Should be deactivated by default, because it is time | 1334 | ;; Should be inactive by default, because it is time |
| 1335 | ;; consuming. | 1335 | ;; consuming. |
| 1336 | ; (let ((ffn (find-function-noselect (intern fn)))) | 1336 | ; (let ((ffn (find-function-noselect (intern fn)))) |
| 1337 | ; (insert | 1337 | ; (insert |
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el index ea4a887898e..ab817a43885 100644 --- a/lisp/net/xesam.el +++ b/lisp/net/xesam.el | |||
| @@ -196,7 +196,7 @@ be different at least in one face property not set in that face." | |||
| 196 | (defconst xesam-all-fields | 196 | (defconst xesam-all-fields |
| 197 | '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture" | 197 | '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture" |
| 198 | "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee" | 198 | "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee" |
| 199 | "xesam:audioBirate" "xesam:audioChannels" "xesam:audioCodec" | 199 | "xesam:audioBitrate" "xesam:audioChannels" "xesam:audioCodec" |
| 200 | "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate" | 200 | "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate" |
| 201 | "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL" | 201 | "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL" |
| 202 | "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth" | 202 | "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth" |
| @@ -240,7 +240,8 @@ be different at least in one face property not set in that face." | |||
| 240 | "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to" | 240 | "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to" |
| 241 | "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url" | 241 | "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url" |
| 242 | "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword" | 242 | "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword" |
| 243 | "xesam:uuid" "xesam:version" "xesam:verticalResolution" "xesam:videoBirate" | 243 | "xesam:uuid" "xesam:version" "xesam:verticalResolution" |
| 244 | "xesam:videoBitrate" | ||
| 244 | "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance" | 245 | "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance" |
| 245 | "xesam:width" "xesam:wordCount" "xesam:workEmailAddress" | 246 | "xesam:width" "xesam:wordCount" "xesam:workEmailAddress" |
| 246 | "xesam:workPhoneNumber" "xesam:workPostalAddress" | 247 | "xesam:workPhoneNumber" "xesam:workPostalAddress" |
| @@ -819,7 +820,7 @@ search, is returned." | |||
| 819 | (with-current-buffer | 820 | (with-current-buffer |
| 820 | (generate-new-buffer (xesam-buffer-name service search)) | 821 | (generate-new-buffer (xesam-buffer-name service search)) |
| 821 | (switch-to-buffer-other-window (current-buffer)) | 822 | (switch-to-buffer-other-window (current-buffer)) |
| 822 | ;; Inialize buffer with `xesam-mode'. `xesam-vendor' must be | 823 | ;; Initialize buffer with `xesam-mode'. `xesam-vendor' must be |
| 823 | ;; set before calling `xesam-mode', because we want to give the | 824 | ;; set before calling `xesam-mode', because we want to give the |
| 824 | ;; hook functions a chance to identify their search engine. | 825 | ;; hook functions a chance to identify their search engine. |
| 825 | (setq xesam-vendor (xesam-get-cached-property engine "vendor.id")) | 826 | (setq xesam-vendor (xesam-get-cached-property engine "vendor.id")) |
diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el index 876e582ed21..9a29e3d4cca 100644 --- a/lisp/nxml/rng-valid.el +++ b/lisp/nxml/rng-valid.el | |||
| @@ -230,7 +230,7 @@ will be automatically rechecked when Emacs becomes idle; the | |||
| 230 | rechecking will be paused whenever there is input pending. | 230 | rechecking will be paused whenever there is input pending. |
| 231 | 231 | ||
| 232 | By default, uses a vacuous schema that allows any well-formed XML | 232 | By default, uses a vacuous schema that allows any well-formed XML |
| 233 | document. A schema can be specified explictly using | 233 | document. A schema can be specified explicitly using |
| 234 | \\[rng-set-schema-file-and-validate], or implicitly based on the buffer's | 234 | \\[rng-set-schema-file-and-validate], or implicitly based on the buffer's |
| 235 | file name or on the root element name. In each case the schema must | 235 | file name or on the root element name. In each case the schema must |
| 236 | be a RELAX NG schema using the compact schema \(such schemas | 236 | be a RELAX NG schema using the compact schema \(such schemas |
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index 9c750ca5e89..c42c2309413 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el | |||
| @@ -144,7 +144,7 @@ | |||
| 144 | ;; 3.07--3.08: | 144 | ;; 3.07--3.08: |
| 145 | ;; - Made `fast-lock-read-cache' set `fast-lock-cache-filename' | 145 | ;; - Made `fast-lock-read-cache' set `fast-lock-cache-filename' |
| 146 | ;; 3.08--3.09: | 146 | ;; 3.08--3.09: |
| 147 | ;; - Made `fast-lock-save-cache' cope if `fast-lock-minimum-size' is an a list | 147 | ;; - Made `fast-lock-save-cache' cope if `fast-lock-minimum-size' is a list |
| 148 | ;; - Made `fast-lock-mode' respect the value of `font-lock-inhibit-thing-lock' | 148 | ;; - Made `fast-lock-mode' respect the value of `font-lock-inhibit-thing-lock' |
| 149 | ;; - Added `fast-lock-after-unfontify-buffer' | 149 | ;; - Added `fast-lock-after-unfontify-buffer' |
| 150 | ;; 3.09--3.10: | 150 | ;; 3.09--3.10: |
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 1cdb0a6f574..1c8a3e72956 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-11-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * ob.el (org-babel-execute-src-block): Fix typo. | ||
| 4 | |||
| 1 | 2011-11-20 Juanma Barranquero <lekktu@gmail.com> | 5 | 2011-11-20 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 6 | ||
| 3 | * org.el (org-link-unescape, org-link-unescape-compound): Fix typos. | 7 | * org.el (org-link-unescape, org-link-unescape-compound): Fix typos. |
| @@ -15461,7 +15465,7 @@ | |||
| 15461 | 15465 | ||
| 15462 | * org.el (org-enforce-todo-checkbox-dependencies): New option. | 15466 | * org.el (org-enforce-todo-checkbox-dependencies): New option. |
| 15463 | (org-block-todo-from-checkboxes): New function. | 15467 | (org-block-todo-from-checkboxes): New function. |
| 15464 | (org-todo): Make tripple prefix arg circumvent blocking. | 15468 | (org-todo): Make triple prefix arg circumvent blocking. |
| 15465 | 15469 | ||
| 15466 | 2009-01-30 Glenn Morris <rgm@gnu.org> | 15470 | 2009-01-30 Glenn Morris <rgm@gnu.org> |
| 15467 | 15471 | ||
| @@ -17592,7 +17596,7 @@ | |||
| 17592 | 2008-06-17 Carsten Dominik <dominik@science.uva.nl> | 17596 | 2008-06-17 Carsten Dominik <dominik@science.uva.nl> |
| 17593 | 17597 | ||
| 17594 | * org.el (org-schedule, org-deadline): Protect scheduled and | 17598 | * org.el (org-schedule, org-deadline): Protect scheduled and |
| 17595 | deadline tasks against changes that accidently remove the | 17599 | deadline tasks against changes that accidentally remove the |
| 17596 | repeater. Also show a message with the new date when done. | 17600 | repeater. Also show a message with the new date when done. |
| 17597 | 17601 | ||
| 17598 | 2008-06-17 Carsten Dominik <dominik@science.uva.nl> | 17602 | 2008-06-17 Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/org/ob.el b/lisp/org/ob.el index 728c6c5cb5e..f34d1fbda9e 100644 --- a/lisp/org/ob.el +++ b/lisp/org/ob.el | |||
| @@ -380,7 +380,7 @@ Insert the results of execution into the buffer. Source code | |||
| 380 | execution and the collection and formatting of results can be | 380 | execution and the collection and formatting of results can be |
| 381 | controlled through a variety of header arguments. | 381 | controlled through a variety of header arguments. |
| 382 | 382 | ||
| 383 | With prefix argument ARG, force re-execution even if a an | 383 | With prefix argument ARG, force re-execution even if an |
| 384 | existing result cached in the buffer would otherwise have been | 384 | existing result cached in the buffer would otherwise have been |
| 385 | returned. | 385 | returned. |
| 386 | 386 | ||
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 50761ede7cb..2f4617f5146 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el | |||
| @@ -800,7 +800,7 @@ will only be dimmed." | |||
| 800 | :group 'org-agenda-todo-list | 800 | :group 'org-agenda-todo-list |
| 801 | :type '(choice | 801 | :type '(choice |
| 802 | (const :tag "Do not dim" nil) | 802 | (const :tag "Do not dim" nil) |
| 803 | (const :tag "Dim to a grey face" t) | 803 | (const :tag "Dim to a gray face" t) |
| 804 | (const :tag "Make invisible" invisible))) | 804 | (const :tag "Make invisible" invisible))) |
| 805 | 805 | ||
| 806 | (defcustom org-timeline-show-empty-dates 3 | 806 | (defcustom org-timeline-show-empty-dates 3 |
diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el index 138d99a36d9..3607458a410 100644 --- a/lisp/org/org-bibtex.el +++ b/lisp/org/org-bibtex.el | |||
| @@ -215,7 +215,7 @@ | |||
| 215 | "List to hold parsed bibtex entries.") | 215 | "List to hold parsed bibtex entries.") |
| 216 | 216 | ||
| 217 | (defcustom org-bibtex-autogen-keys nil | 217 | (defcustom org-bibtex-autogen-keys nil |
| 218 | "Set to a truthy value to use `bibtex-generate-autokey' to generate keys." | 218 | "Set to a truth value to use `bibtex-generate-autokey' to generate keys." |
| 219 | :group 'org-bibtex | 219 | :group 'org-bibtex |
| 220 | :type 'boolean) | 220 | :type 'boolean) |
| 221 | 221 | ||
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 6279ed3df0d..6d82d4529b6 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el | |||
| @@ -1919,7 +1919,7 @@ the returned times will be formatted strings." | |||
| 1919 | shiftedm (- 13 (* 3 (nth 1 tmp))) | 1919 | shiftedm (- 13 (* 3 (nth 1 tmp))) |
| 1920 | shiftedq (- 5 (nth 1 tmp)))) | 1920 | shiftedq (- 5 (nth 1 tmp)))) |
| 1921 | (setq d 1 h 0 m 0 d1 1 month shiftedm month1 (+ 3 shiftedm) h1 0 m1 0 y shiftedy)) | 1921 | (setq d 1 h 0 m 0 d1 1 month shiftedm month1 (+ 3 shiftedm) h1 0 m1 0 y shiftedy)) |
| 1922 | ((> (+ q shift) 0) ; shift is whitin this year | 1922 | ((> (+ q shift) 0) ; shift is within this year |
| 1923 | (setq shiftedq (+ q shift)) | 1923 | (setq shiftedq (+ q shift)) |
| 1924 | (setq shiftedy y) | 1924 | (setq shiftedy y) |
| 1925 | (setq d 1 h 0 m 0 d1 1 month (+ 1 (* 3 (- (+ q shift) 1))) month1 (+ 4 (* 3 (- (+ q shift) 1))) h1 0 m1 0)))) | 1925 | (setq d 1 h 0 m 0 d1 1 month (+ 1 (* 3 (- (+ q shift) 1))) month1 (+ 4 (* 3 (- (+ q shift) 1))) h1 0 m1 0)))) |
diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el index 05df6bb7524..0f6fc0bed6a 100644 --- a/lisp/org/org-colview.el +++ b/lisp/org/org-colview.el | |||
| @@ -474,7 +474,7 @@ Where possible, use the standard interface for changing this line." | |||
| 474 | ((equal major-mode 'org-agenda-mode) | 474 | ((equal major-mode 'org-agenda-mode) |
| 475 | (org-columns-eval eval) | 475 | (org-columns-eval eval) |
| 476 | ;; The following let preserves the current format, and makes sure | 476 | ;; The following let preserves the current format, and makes sure |
| 477 | ;; that in only a single file things need to be upated. | 477 | ;; that in only a single file things need to be updated. |
| 478 | (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) | 478 | (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) |
| 479 | (buffer (marker-buffer pom)) | 479 | (buffer (marker-buffer pom)) |
| 480 | (org-agenda-contributing-files | 480 | (org-agenda-contributing-files |
| @@ -605,7 +605,7 @@ an integer, select that value." | |||
| 605 | ((equal major-mode 'org-agenda-mode) | 605 | ((equal major-mode 'org-agenda-mode) |
| 606 | (org-columns-eval '(org-entry-put pom key nval)) | 606 | (org-columns-eval '(org-entry-put pom key nval)) |
| 607 | ;; The following let preserves the current format, and makes sure | 607 | ;; The following let preserves the current format, and makes sure |
| 608 | ;; that in only a single file things need to be upated. | 608 | ;; that in only a single file things need to be updated. |
| 609 | (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) | 609 | (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) |
| 610 | (buffer (marker-buffer pom)) | 610 | (buffer (marker-buffer pom)) |
| 611 | (org-agenda-contributing-files | 611 | (org-agenda-contributing-files |
diff --git a/lisp/org/org-freemind.el b/lisp/org/org-freemind.el index 91a1e5e59cb..b01f6d9fa6e 100644 --- a/lisp/org/org-freemind.el +++ b/lisp/org/org-freemind.el | |||
| @@ -660,7 +660,7 @@ Otherwise give an error say the file exists." | |||
| 660 | (with-current-buffer mm-buffer | 660 | (with-current-buffer mm-buffer |
| 661 | (erase-buffer) | 661 | (erase-buffer) |
| 662 | (setq buffer-file-coding-system 'utf-8) | 662 | (setq buffer-file-coding-system 'utf-8) |
| 663 | ;; Fix-me: Currentl Freemind (ver 0.9.0 RC9) does not support this: | 663 | ;; Fix-me: Currently Freemind (ver 0.9.0 RC9) does not support this: |
| 664 | ;;(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n") | 664 | ;;(insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n") |
| 665 | (insert "<map version=\"0.9.0\">\n") | 665 | (insert "<map version=\"0.9.0\">\n") |
| 666 | (insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n")) | 666 | (insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n")) |
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el index b2c8de6ec2f..608a9dc2e88 100644 --- a/lisp/pcmpl-gnu.el +++ b/lisp/pcmpl-gnu.el | |||
| @@ -309,7 +309,8 @@ | |||
| 309 | (let* ((fa (file-attributes (pcomplete-arg 1))) | 309 | (let* ((fa (file-attributes (pcomplete-arg 1))) |
| 310 | (size (nth 7 fa))) | 310 | (size (nth 7 fa))) |
| 311 | (and (numberp size) | 311 | (and (numberp size) |
| 312 | (< size large-file-warning-threshold)))) | 312 | (or (null large-file-warning-threshold) |
| 313 | (< size large-file-warning-threshold))))) | ||
| 313 | (let ((file (pcomplete-arg 1))) | 314 | (let ((file (pcomplete-arg 1))) |
| 314 | (completion-table-dynamic | 315 | (completion-table-dynamic |
| 315 | (lambda (_string) | 316 | (lambda (_string) |
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 33fcf451ebb..ee6b67e6109 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el | |||
| @@ -379,7 +379,7 @@ Other useful commands:\n | |||
| 379 | best-square square | 379 | best-square square |
| 380 | score-max score) | 380 | score-max score) |
| 381 | (aset gomoku-score-table square -1))) ; no: kill it ! | 381 | (aset gomoku-score-table square -1))) ; no: kill it ! |
| 382 | ;; If score is equally good, choose randomly. But first check freeness: | 382 | ;; If score is equally good, choose randomly. But first check freedom: |
| 383 | ((not (zerop (aref gomoku-board square))) | 383 | ((not (zerop (aref gomoku-board square))) |
| 384 | (aset gomoku-score-table square -1)) | 384 | (aset gomoku-score-table square -1)) |
| 385 | ((zerop (random (setq count (1+ count)))) | 385 | ((zerop (random (setq count (1+ count)))) |
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index 8629baf35d3..9ef03725c60 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el | |||
| @@ -385,7 +385,7 @@ is non-nil. One interesting value is `turn-on-font-lock'." | |||
| 385 | best-square square | 385 | best-square square |
| 386 | score-max score) | 386 | score-max score) |
| 387 | (aset landmark-score-table square -1))) ; no: kill it ! | 387 | (aset landmark-score-table square -1))) ; no: kill it ! |
| 388 | ;; If score is equally good, choose randomly. But first check freeness: | 388 | ;; If score is equally good, choose randomly. But first check freedom: |
| 389 | ((not (zerop (aref landmark-board square))) | 389 | ((not (zerop (aref landmark-board square))) |
| 390 | (aset landmark-score-table square -1)) | 390 | (aset landmark-score-table square -1)) |
| 391 | ((zerop (random (setq count (1+ count)))) | 391 | ((zerop (random (setq count (1+ count)))) |
diff --git a/lisp/printing.el b/lisp/printing.el index d6c67cc68a6..2dea24149a7 100644 --- a/lisp/printing.el +++ b/lisp/printing.el | |||
| @@ -547,7 +547,7 @@ Please send all bug fixes and enhancements to | |||
| 547 | ;; `pr-auto-region' Non-nil means region is automagically detected. | 547 | ;; `pr-auto-region' Non-nil means region is automagically detected. |
| 548 | ;; | 548 | ;; |
| 549 | ;; `pr-auto-mode' Non-nil means major-mode specific printing is | 549 | ;; `pr-auto-mode' Non-nil means major-mode specific printing is |
| 550 | ;; prefered over normal printing. | 550 | ;; preferred over normal printing. |
| 551 | ;; | 551 | ;; |
| 552 | ;; `pr-mode-alist' Specify an alist for a major-mode and printing | 552 | ;; `pr-mode-alist' Specify an alist for a major-mode and printing |
| 553 | ;; function. | 553 | ;; function. |
| @@ -2426,7 +2426,7 @@ marked instead of all buffer." | |||
| 2426 | 2426 | ||
| 2427 | 2427 | ||
| 2428 | (defcustom pr-auto-mode t | 2428 | (defcustom pr-auto-mode t |
| 2429 | "Non-nil means major-mode specific printing is prefered over normal printing. | 2429 | "Non-nil means major-mode specific printing is preferred over normal printing. |
| 2430 | 2430 | ||
| 2431 | That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*' | 2431 | That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*' |
| 2432 | and `*-region*' commands will behave like `*-mode*' commands; otherwise, | 2432 | and `*-region*' commands will behave like `*-mode*' commands; otherwise, |
| @@ -5458,7 +5458,7 @@ If menu binding was not done, calls `pr-menu-bind'." | |||
| 5458 | 5458 | ||
| 5459 | 5459 | ||
| 5460 | (defun pr-toggle-mode-menu (&optional no-menu) | 5460 | (defun pr-toggle-mode-menu (&optional no-menu) |
| 5461 | "Toggle whether major-mode specific printing is prefered over normal printing." | 5461 | "Toggle whether major-mode specific printing is preferred over normal printing." |
| 5462 | (interactive) | 5462 | (interactive) |
| 5463 | (pr-toggle 'pr-auto-mode "Auto mode" | 5463 | (pr-toggle 'pr-auto-mode "Auto mode" |
| 5464 | 'printing 1 12 'toggle nil no-menu)) | 5464 | 'printing 1 12 'toggle nil no-menu)) |
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index b8bf62d90b4..64734420a8c 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el | |||
| @@ -1694,7 +1694,7 @@ ARG is ignored, and is there for compatibility with `capitalize-word' only." | |||
| 1694 | (defun ada-no-auto-case (&optional _arg) | 1694 | (defun ada-no-auto-case (&optional _arg) |
| 1695 | "Do nothing. ARG is ignored. | 1695 | "Do nothing. ARG is ignored. |
| 1696 | This function can be used for the auto-casing variables in Ada mode, to | 1696 | This function can be used for the auto-casing variables in Ada mode, to |
| 1697 | adapt to unusal auto-casing schemes. Since it does nothing, you can for | 1697 | adapt to unusual auto-casing schemes. Since it does nothing, you can for |
| 1698 | instance use it for `ada-case-identifier' if you don't want any special | 1698 | instance use it for `ada-case-identifier' if you don't want any special |
| 1699 | auto-casing for identifiers, whereas keywords have to be lower-cased. | 1699 | auto-casing for identifiers, whereas keywords have to be lower-cased. |
| 1700 | See also `ada-auto-case' to disable auto casing altogether." | 1700 | See also `ada-auto-case' to disable auto casing altogether." |
| @@ -3939,7 +3939,7 @@ If NOERROR is non-nil, it only returns nil if no matching start found." | |||
| 3939 | ;; processing them recursively avoids the need for any special | 3939 | ;; processing them recursively avoids the need for any special |
| 3940 | ;; handling. | 3940 | ;; handling. |
| 3941 | ;; Nothing should be done if we have only the specs or a | 3941 | ;; Nothing should be done if we have only the specs or a |
| 3942 | ;; generic instantion. | 3942 | ;; generic instantiation. |
| 3943 | 3943 | ||
| 3944 | ((and (looking-at "\\<procedure\\|function\\>")) | 3944 | ((and (looking-at "\\<procedure\\|function\\>")) |
| 3945 | (if first | 3945 | (if first |
| @@ -4401,7 +4401,7 @@ Moves to 'begin' if in a declarative part." | |||
| 4401 | (ada-goto-matching-end 1)) | 4401 | (ada-goto-matching-end 1)) |
| 4402 | 4402 | ||
| 4403 | ;; on first line of subprogram body | 4403 | ;; on first line of subprogram body |
| 4404 | ;; Do nothing for specs or generic instantion, since these are | 4404 | ;; Do nothing for specs or generic instantiation, since these are |
| 4405 | ;; handled as the general case (find the enclosing block) | 4405 | ;; handled as the general case (find the enclosing block) |
| 4406 | ;; We also need to make sure that we ignore nested subprograms | 4406 | ;; We also need to make sure that we ignore nested subprograms |
| 4407 | ((save-excursion | 4407 | ((save-excursion |
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index 0cfdab23702..2f6a7be393a 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el | |||
| @@ -1357,7 +1357,7 @@ project file." | |||
| 1357 | (or executable-name | 1357 | (or executable-name |
| 1358 | (file-name-sans-extension (buffer-file-name)))))) | 1358 | (file-name-sans-extension (buffer-file-name)))))) |
| 1359 | 1359 | ||
| 1360 | ;; For gvd, add an extra switch so that the Emacs window is completly | 1360 | ;; For gvd, add an extra switch so that the Emacs window is completely |
| 1361 | ;; swallowed inside the Gvd one | 1361 | ;; swallowed inside the Gvd one |
| 1362 | (if (and ada-tight-gvd-integration | 1362 | (if (and ada-tight-gvd-integration |
| 1363 | (string-match "^[^ \t]*gvd" cmd)) | 1363 | (string-match "^[^ \t]*gvd" cmd)) |
| @@ -1783,7 +1783,7 @@ Information is extracted from the ali file." | |||
| 1783 | ) | 1783 | ) |
| 1784 | ) | 1784 | ) |
| 1785 | 1785 | ||
| 1786 | ;; Last check to be completly sure we have found the correct line (the | 1786 | ;; Last check to be completely sure we have found the correct line (the |
| 1787 | ;; ali might not be up to date for instance) | 1787 | ;; ali might not be up to date for instance) |
| 1788 | (if declaration-found | 1788 | (if declaration-found |
| 1789 | (progn | 1789 | (progn |
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 1eaf8910d14..8e4ac92d96f 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el | |||
| @@ -2316,7 +2316,7 @@ function does not require the declaration to contain a brace block." | |||
| 2316 | 2316 | ||
| 2317 | (defun c-after-statement-terminator-p () ; Should we pass in LIM here? | 2317 | (defun c-after-statement-terminator-p () ; Should we pass in LIM here? |
| 2318 | ;; Does point immediately follow a statement "terminator"? A virtual | 2318 | ;; Does point immediately follow a statement "terminator"? A virtual |
| 2319 | ;; semicolon is regarded here as such. So is a an opening brace ;-) | 2319 | ;; semicolon is regarded here as such. So is an opening brace ;-) |
| 2320 | ;; | 2320 | ;; |
| 2321 | ;; This function might do hidden buffer changes. | 2321 | ;; This function might do hidden buffer changes. |
| 2322 | (or (save-excursion | 2322 | (or (save-excursion |
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index c794cad65db..9544c4f8728 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -6467,7 +6467,7 @@ comment at the start of cc-engine.el for more info." | |||
| 6467 | (when (c-keyword-member kwd-sym 'c-typeless-decl-kwds) | 6467 | (when (c-keyword-member kwd-sym 'c-typeless-decl-kwds) |
| 6468 | (setq maybe-typeless t)) | 6468 | (setq maybe-typeless t)) |
| 6469 | 6469 | ||
| 6470 | ;; Haven't matched a type so it's an umambiguous | 6470 | ;; Haven't matched a type so it's an unambiguous |
| 6471 | ;; specifier keyword and we know we're in a | 6471 | ;; specifier keyword and we know we're in a |
| 6472 | ;; declaration. | 6472 | ;; declaration. |
| 6473 | (setq at-decl-or-cast t) | 6473 | (setq at-decl-or-cast t) |
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 4a6344727b4..37818638d41 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el | |||
| @@ -433,7 +433,7 @@ element is a cons where the car is the character to modify and the cdr | |||
| 433 | the new syntax, as accepted by `modify-syntax-entry'." | 433 | the new syntax, as accepted by `modify-syntax-entry'." |
| 434 | ;; The $ character is not allowed in most languages (one exception | 434 | ;; The $ character is not allowed in most languages (one exception |
| 435 | ;; is Java which allows it for legacy reasons) but we still classify | 435 | ;; is Java which allows it for legacy reasons) but we still classify |
| 436 | ;; it as an indentifier character since it's often used in various | 436 | ;; it as an identifier character since it's often used in various |
| 437 | ;; machine generated identifiers. | 437 | ;; machine generated identifiers. |
| 438 | t '((?_ . "w") (?$ . "w")) | 438 | t '((?_ . "w") (?$ . "w")) |
| 439 | (objc java) (append '((?@ . "w")) | 439 | (objc java) (append '((?@ . "w")) |
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 0e649480dda..13fa310106c 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -1388,12 +1388,12 @@ The expansion is entirely correct because it uses the C preprocessor." | |||
| 1388 | 1388 | ||
| 1389 | ;;; These two must be unwound, otherwise take exponential time | 1389 | ;;; These two must be unwound, otherwise take exponential time |
| 1390 | (defconst cperl-maybe-white-and-comment-rex "[ \t\n]*\\(#[^\n]*\n[ \t\n]*\\)*" | 1390 | (defconst cperl-maybe-white-and-comment-rex "[ \t\n]*\\(#[^\n]*\n[ \t\n]*\\)*" |
| 1391 | "Regular expression to match optional whitespace with interpspersed comments. | 1391 | "Regular expression to match optional whitespace with interspersed comments. |
| 1392 | Should contain exactly one group.") | 1392 | Should contain exactly one group.") |
| 1393 | 1393 | ||
| 1394 | ;;; This one is tricky to unwind; still very inefficient... | 1394 | ;;; This one is tricky to unwind; still very inefficient... |
| 1395 | (defconst cperl-white-and-comment-rex "\\([ \t\n]\\|#[^\n]*\n\\)+" | 1395 | (defconst cperl-white-and-comment-rex "\\([ \t\n]\\|#[^\n]*\n\\)+" |
| 1396 | "Regular expression to match whitespace with interpspersed comments. | 1396 | "Regular expression to match whitespace with interspersed comments. |
| 1397 | Should contain exactly one group.") | 1397 | Should contain exactly one group.") |
| 1398 | 1398 | ||
| 1399 | 1399 | ||
| @@ -1811,7 +1811,7 @@ or as help on variables `cperl-tips', `cperl-problems', | |||
| 1811 | (funcall f)) | 1811 | (funcall f)) |
| 1812 | (make-local-variable 'compilation-error-regexp-alist) | 1812 | (make-local-variable 'compilation-error-regexp-alist) |
| 1813 | (push 'cperl compilation-error-regexp-alist))) | 1813 | (push 'cperl compilation-error-regexp-alist))) |
| 1814 | ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x | 1814 | ((boundp 'compilation-error-regexp-alist);; xemacs 19.x |
| 1815 | (make-local-variable 'compilation-error-regexp-alist) | 1815 | (make-local-variable 'compilation-error-regexp-alist) |
| 1816 | (set 'compilation-error-regexp-alist | 1816 | (set 'compilation-error-regexp-alist |
| 1817 | (append cperl-compilation-error-regexp-alist | 1817 | (append cperl-compilation-error-regexp-alist |
| @@ -7650,7 +7650,7 @@ $~ The name of the current report format. | |||
| 7650 | ... &= ... Bitwise and assignment. | 7650 | ... &= ... Bitwise and assignment. |
| 7651 | ... * ... Multiplication. | 7651 | ... * ... Multiplication. |
| 7652 | ... ** ... Exponentiation. | 7652 | ... ** ... Exponentiation. |
| 7653 | *NAME Glob: all objects refered by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2. | 7653 | *NAME Glob: all objects referred by NAME. *NAM1 = *NAM2 aliases NAM1 to NAM2. |
| 7654 | &NAME(arg0, ...) Subroutine call. Arguments go to @_. | 7654 | &NAME(arg0, ...) Subroutine call. Arguments go to @_. |
| 7655 | ... + ... Addition. +EXPR Makes EXPR into scalar context. | 7655 | ... + ... Addition. +EXPR Makes EXPR into scalar context. |
| 7656 | ++ Auto-increment (magical on strings). ++EXPR EXPR++ | 7656 | ++ Auto-increment (magical on strings). ++EXPR EXPR++ |
diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el index ce04d8b390e..95b8d810028 100644 --- a/lisp/progmodes/f90.el +++ b/lisp/progmodes/f90.el | |||
| @@ -724,7 +724,7 @@ Can be overridden by the value of `font-lock-maximum-decoration'.") | |||
| 724 | ["Reset to Saved" Custom-reset-saved :active t | 724 | ["Reset to Saved" Custom-reset-saved :active t |
| 725 | :help "Reset all edited or set settings to saved"] | 725 | :help "Reset all edited or set settings to saved"] |
| 726 | ["Reset to Standard Settings" Custom-reset-standard :active t | 726 | ["Reset to Standard Settings" Custom-reset-standard :active t |
| 727 | :help "Erase all cusomizations in buffer"] | 727 | :help "Erase all customizations in buffer"] |
| 728 | ) | 728 | ) |
| 729 | "--" | 729 | "--" |
| 730 | ["Indent Subprogram" f90-indent-subprogram t] | 730 | ["Indent Subprogram" f90-indent-subprogram t] |
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index e98ca58f3e0..2dac46a6d5b 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -665,7 +665,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.") | |||
| 665 | ["Reset to Saved" Custom-reset-saved :active t | 665 | ["Reset to Saved" Custom-reset-saved :active t |
| 666 | :help "Reset all edited or set settings to saved"] | 666 | :help "Reset all edited or set settings to saved"] |
| 667 | ["Reset to Standard Settings" Custom-reset-standard :active t | 667 | ["Reset to Standard Settings" Custom-reset-standard :active t |
| 668 | :help "Erase all cusomizations in buffer"] | 668 | :help "Erase all customizations in buffer"] |
| 669 | ) | 669 | ) |
| 670 | "--" | 670 | "--" |
| 671 | ["Comment Region" fortran-comment-region mark-active] | 671 | ["Comment Region" fortran-comment-region mark-active] |
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index a1a41bd0b1b..ab40dff24f1 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -214,7 +214,7 @@ Emacs can't find.") | |||
| 214 | (defvar gdb-source-window nil) | 214 | (defvar gdb-source-window nil) |
| 215 | (defvar gdb-inferior-status nil) | 215 | (defvar gdb-inferior-status nil) |
| 216 | (defvar gdb-continuation nil) | 216 | (defvar gdb-continuation nil) |
| 217 | (defvar gdb-version nil) | 217 | (defvar gdb-supports-non-stop nil) |
| 218 | (defvar gdb-filter-output nil | 218 | (defvar gdb-filter-output nil |
| 219 | "Message to be shown in GUD console. | 219 | "Message to be shown in GUD console. |
| 220 | 220 | ||
| @@ -574,7 +574,7 @@ When `gdb-non-stop' is nil, return COMMAND unchanged." | |||
| 574 | (if gdb-non-stop | 574 | (if gdb-non-stop |
| 575 | (if (and gdb-gud-control-all-threads | 575 | (if (and gdb-gud-control-all-threads |
| 576 | (not noall) | 576 | (not noall) |
| 577 | (string-equal gdb-version "7.0+")) | 577 | gdb-supports-non-stop) |
| 578 | (concat command " --all ") | 578 | (concat command " --all ") |
| 579 | (gdb-current-context-command command)) | 579 | (gdb-current-context-command command)) |
| 580 | command)) | 580 | command)) |
| @@ -872,14 +872,16 @@ detailed description of this mode. | |||
| 872 | (when gdb-non-stop | 872 | (when gdb-non-stop |
| 873 | (gdb-input (list "-gdb-set non-stop 1" 'gdb-non-stop-handler))) | 873 | (gdb-input (list "-gdb-set non-stop 1" 'gdb-non-stop-handler))) |
| 874 | 874 | ||
| 875 | (gdb-input (list "-enable-pretty-printing" 'ignore)) | ||
| 876 | |||
| 875 | ;; find source file and compilation directory here | 877 | ;; find source file and compilation directory here |
| 876 | (gdb-input | ||
| 877 | ; Needs GDB 6.2 onwards. | ||
| 878 | (list "-file-list-exec-source-files" 'gdb-get-source-file-list)) | ||
| 879 | (if gdb-create-source-file-list | 878 | (if gdb-create-source-file-list |
| 880 | (gdb-input | 879 | (gdb-input |
| 880 | ; Needs GDB 6.2 onwards. | ||
| 881 | (list "-file-list-exec-source-files" 'gdb-get-source-file-list))) | ||
| 882 | (gdb-input | ||
| 881 | ; Needs GDB 6.0 onwards. | 883 | ; Needs GDB 6.0 onwards. |
| 882 | (list "-file-list-exec-source-file" 'gdb-get-source-file))) | 884 | (list "-file-list-exec-source-file" 'gdb-get-source-file)) |
| 883 | (gdb-input | 885 | (gdb-input |
| 884 | (list "-gdb-show prompt" 'gdb-get-prompt))) | 886 | (list "-gdb-show prompt" 'gdb-get-prompt))) |
| 885 | 887 | ||
| @@ -890,10 +892,18 @@ detailed description of this mode. | |||
| 890 | (message | 892 | (message |
| 891 | "This version of GDB doesn't support non-stop mode. Turning it off.") | 893 | "This version of GDB doesn't support non-stop mode. Turning it off.") |
| 892 | (setq gdb-non-stop nil) | 894 | (setq gdb-non-stop nil) |
| 893 | (setq gdb-version "pre-7.0")) | 895 | (setq gdb-supports-non-stop nil)) |
| 894 | (setq gdb-version "7.0+") | 896 | (setq gdb-supports-non-stop t) |
| 895 | (gdb-input (list "-gdb-set target-async 1" 'ignore)) | 897 | (gdb-input (list "-gdb-set target-async 1" 'ignore)) |
| 896 | (gdb-input (list "-enable-pretty-printing" 'ignore)))) | 898 | (gdb-input (list "-list-target-features" 'gdb-check-target-async)))) |
| 899 | |||
| 900 | (defun gdb-check-target-async () | ||
| 901 | (goto-char (point-min)) | ||
| 902 | (unless (re-search-forward "async" nil t) | ||
| 903 | (message | ||
| 904 | "Target doesn't support non-stop mode. Turning it off.") | ||
| 905 | (setq gdb-non-stop nil) | ||
| 906 | (gdb-input (list "-gdb-set non-stop 0" 'ignore)))) | ||
| 897 | 907 | ||
| 898 | (defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.") | 908 | (defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.") |
| 899 | 909 | ||
| @@ -1071,7 +1081,7 @@ With arg, enter name of variable to be watched in the minibuffer." | |||
| 1071 | (tooltip-identifier-from-point (point))))))) | 1081 | (tooltip-identifier-from-point (point))))))) |
| 1072 | (set-text-properties 0 (length expr) nil expr) | 1082 | (set-text-properties 0 (length expr) nil expr) |
| 1073 | (gdb-input | 1083 | (gdb-input |
| 1074 | (list (concat"-var-create - * " expr "") | 1084 | (list (concat "-var-create - * " expr "") |
| 1075 | `(lambda () (gdb-var-create-handler ,expr))))))) | 1085 | `(lambda () (gdb-var-create-handler ,expr))))))) |
| 1076 | (message "gud-watch is a no-op in this mode.")))) | 1086 | (message "gud-watch is a no-op in this mode.")))) |
| 1077 | 1087 | ||
| @@ -1699,7 +1709,7 @@ static char *magick[] = { | |||
| 1699 | (defun gdb-current-context-command (command) | 1709 | (defun gdb-current-context-command (command) |
| 1700 | "Add --thread to gdb COMMAND when needed." | 1710 | "Add --thread to gdb COMMAND when needed." |
| 1701 | (if (and gdb-thread-number | 1711 | (if (and gdb-thread-number |
| 1702 | (string-equal gdb-version "7.0+")) | 1712 | gdb-supports-non-stop) |
| 1703 | (concat command " --thread " gdb-thread-number) | 1713 | (concat command " --thread " gdb-thread-number) |
| 1704 | command)) | 1714 | command)) |
| 1705 | 1715 | ||
| @@ -1983,8 +1993,8 @@ current thread and update GDB buffers." | |||
| 1983 | (when (not gdb-register-names) | 1993 | (when (not gdb-register-names) |
| 1984 | (gdb-input | 1994 | (gdb-input |
| 1985 | (list (concat "-data-list-register-names" | 1995 | (list (concat "-data-list-register-names" |
| 1986 | (if (string-equal gdb-version "7.0+") | 1996 | (if gdb-supports-non-stop |
| 1987 | (concat" --thread " thread-id))) | 1997 | (concat " --thread " thread-id))) |
| 1988 | 'gdb-register-names-handler))) | 1998 | 'gdb-register-names-handler))) |
| 1989 | 1999 | ||
| 1990 | ;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler | 2000 | ;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler |
| @@ -4133,7 +4143,7 @@ buffers, if required." | |||
| 4133 | (if gdb-many-windows | 4143 | (if gdb-many-windows |
| 4134 | (gdb-setup-windows) | 4144 | (gdb-setup-windows) |
| 4135 | (gdb-get-buffer-create 'gdb-breakpoints-buffer) | 4145 | (gdb-get-buffer-create 'gdb-breakpoints-buffer) |
| 4136 | (if gdb-show-main | 4146 | (if (and gdb-show-main gdb-main-file) |
| 4137 | (let ((pop-up-windows t)) | 4147 | (let ((pop-up-windows t)) |
| 4138 | (display-buffer (gud-find-file gdb-main-file)))))) | 4148 | (display-buffer (gud-find-file gdb-main-file)))))) |
| 4139 | 4149 | ||
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index dbffbc266e7..75d71d2d8a9 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -438,9 +438,9 @@ This variable's value takes effect when `grep-compute-defaults' is called.") | |||
| 438 | 438 | ||
| 439 | ;; History of grep commands. | 439 | ;; History of grep commands. |
| 440 | ;;;###autoload | 440 | ;;;###autoload |
| 441 | (defvar grep-history nil) | 441 | (defvar grep-history nil "History list for grep.") |
| 442 | ;;;###autoload | 442 | ;;;###autoload |
| 443 | (defvar grep-find-history nil) | 443 | (defvar grep-find-history nil "History list for grep-find.") |
| 444 | 444 | ||
| 445 | ;; History of lgrep and rgrep regexp and files args. | 445 | ;; History of lgrep and rgrep regexp and files args. |
| 446 | (defvar grep-regexp-history nil) | 446 | (defvar grep-regexp-history nil) |
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 527bc51eef8..406db76487d 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -103,7 +103,7 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist." | |||
| 103 | 103 | ||
| 104 | (defvar gud-running nil | 104 | (defvar gud-running nil |
| 105 | "Non-nil if debugged program is running. | 105 | "Non-nil if debugged program is running. |
| 106 | Used to grey out relevant toolbar icons.") | 106 | Used to gray out relevant toolbar icons.") |
| 107 | 107 | ||
| 108 | (defvar gud-target-name "--unknown--" | 108 | (defvar gud-target-name "--unknown--" |
| 109 | "The apparent name of the program being debugged in a gud buffer.") | 109 | "The apparent name of the program being debugged in a gud buffer.") |
| @@ -1745,7 +1745,7 @@ and source-file directory for your debugger." | |||
| 1745 | ;; All the .java files in the directories in gud-jdb-directories are | 1745 | ;; All the .java files in the directories in gud-jdb-directories are |
| 1746 | ;; syntactically analyzed each time gud jdb is invoked. It would be | 1746 | ;; syntactically analyzed each time gud jdb is invoked. It would be |
| 1747 | ;; nice to keep as much information as possible between runs. It would | 1747 | ;; nice to keep as much information as possible between runs. It would |
| 1748 | ;; be really nice to analyze the files only as neccessary (when the | 1748 | ;; be really nice to analyze the files only as necessary (when the |
| 1749 | ;; source needs to be displayed.) I'm not sure to what extent the former | 1749 | ;; source needs to be displayed.) I'm not sure to what extent the former |
| 1750 | ;; can be accomplished and I'm not sure the latter can be done at all | 1750 | ;; can be accomplished and I'm not sure the latter can be done at all |
| 1751 | ;; since I don't know of any general way to tell which .class files are | 1751 | ;; since I don't know of any general way to tell which .class files are |
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index ca8be01d4a8..9cbc1dc6d32 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el | |||
| @@ -194,9 +194,9 @@ | |||
| 194 | ;; Unfortunately, these workarounds do not restore hideshow state. | 194 | ;; Unfortunately, these workarounds do not restore hideshow state. |
| 195 | ;; If someone figures out a better way, please let me know. | 195 | ;; If someone figures out a better way, please let me know. |
| 196 | 196 | ||
| 197 | ;; * Correspondance | 197 | ;; * Correspondence |
| 198 | ;; | 198 | ;; |
| 199 | ;; Correspondance welcome; please indicate version number. Send bug | 199 | ;; Correspondence welcome; please indicate version number. Send bug |
| 200 | ;; reports and inquiries to <ttn@gnu.org>. | 200 | ;; reports and inquiries to <ttn@gnu.org>. |
| 201 | 201 | ||
| 202 | ;; * Thanks | 202 | ;; * Thanks |
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index faccbb1f0ca..aa46b54d848 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -1844,7 +1844,7 @@ file name." | |||
| 1844 | (cond | 1844 | (cond |
| 1845 | ((file-regular-p file2) file2) | 1845 | ((file-regular-p file2) file2) |
| 1846 | ((file-regular-p file1) file1) | 1846 | ((file-regular-p file1) file1) |
| 1847 | ;; If we cannot veryfy the existence of the file, we return the shorter | 1847 | ;; If we cannot verify the existence of the file, we return the shorter |
| 1848 | ;; name. The idea behind this is that this may be a relative file name | 1848 | ;; name. The idea behind this is that this may be a relative file name |
| 1849 | ;; and our idea about the current working directory may be wrong. | 1849 | ;; and our idea about the current working directory may be wrong. |
| 1850 | ;; If it is a relative file name, it hopefully is short. | 1850 | ;; If it is a relative file name, it hopefully is short. |
| @@ -2903,7 +2903,7 @@ from `idlwave-shell-examine-alist' via mini-buffer shortcut key." | |||
| 2903 | ;; Move to beginning of current or previous expression | 2903 | ;; Move to beginning of current or previous expression |
| 2904 | (if (looking-at "\\<\\|(") | 2904 | (if (looking-at "\\<\\|(") |
| 2905 | ;; At beginning of expression, don't move backwards unless | 2905 | ;; At beginning of expression, don't move backwards unless |
| 2906 | ;; this is at the end of an indentifier. | 2906 | ;; this is at the end of an identifier. |
| 2907 | (if (looking-at "\\>") | 2907 | (if (looking-at "\\>") |
| 2908 | (backward-sexp)) | 2908 | (backward-sexp)) |
| 2909 | (backward-sexp)) | 2909 | (backward-sexp)) |
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index c49519ed179..c1a87a9d033 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el | |||
| @@ -1278,7 +1278,7 @@ definition and conveniently use this command." | |||
| 1278 | ((or (eq (char-before (line-end-position 1)) ?\\) | 1278 | ((or (eq (char-before (line-end-position 1)) ?\\) |
| 1279 | (eq (char-before (line-end-position 0)) ?\\)) | 1279 | (eq (char-before (line-end-position 0)) ?\\)) |
| 1280 | ;; A backslash region. Find beginning and end, remove | 1280 | ;; A backslash region. Find beginning and end, remove |
| 1281 | ;; backslashes, fill, and then reapply backslahes. | 1281 | ;; backslashes, fill, and then reapply backslashes. |
| 1282 | (end-of-line) | 1282 | (end-of-line) |
| 1283 | (let ((beginning | 1283 | (let ((beginning |
| 1284 | (save-excursion | 1284 | (save-excursion |
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 8b4798e1c14..5b229cc0c24 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el | |||
| @@ -164,7 +164,7 @@ | |||
| 164 | ;; with the original form). My code on the matter was improved | 164 | ;; with the original form). My code on the matter was improved |
| 165 | ;; considerably by Markus Triska. | 165 | ;; considerably by Markus Triska. |
| 166 | ;; o Fixed `prolog-insert-spaces-after-paren' (which used an | 166 | ;; o Fixed `prolog-insert-spaces-after-paren' (which used an |
| 167 | ;; unitialized variable). | 167 | ;; uninitialized variable). |
| 168 | ;; o Minor changes to clean up the code and avoid some implicit | 168 | ;; o Minor changes to clean up the code and avoid some implicit |
| 169 | ;; package requirements. | 169 | ;; package requirements. |
| 170 | ;; Version 1.13: | 170 | ;; Version 1.13: |
| @@ -691,7 +691,7 @@ nil means send actual operating system end of file." | |||
| 691 | (defcustom prolog-use-standard-consult-compile-method-flag t | 691 | (defcustom prolog-use-standard-consult-compile-method-flag t |
| 692 | "*Non-nil means use the standard compilation method. | 692 | "*Non-nil means use the standard compilation method. |
| 693 | Otherwise the new compilation method will be used. This | 693 | Otherwise the new compilation method will be used. This |
| 694 | utilises a special compilation buffer with the associated | 694 | utilizes a special compilation buffer with the associated |
| 695 | features such as parsing of error messages and automatically | 695 | features such as parsing of error messages and automatically |
| 696 | jumping to the source code responsible for the error. | 696 | jumping to the source code responsible for the error. |
| 697 | 697 | ||
| @@ -868,8 +868,9 @@ VERSION is of the format (Major . Minor)" | |||
| 868 | (defun prolog-find-value-by-system (alist) | 868 | (defun prolog-find-value-by-system (alist) |
| 869 | "Get value from ALIST according to `prolog-system'." | 869 | "Get value from ALIST according to `prolog-system'." |
| 870 | (let ((system (or prolog-system | 870 | (let ((system (or prolog-system |
| 871 | (buffer-local-value 'prolog-system | 871 | (let ((infbuf (prolog-inferior-buffer 'dont-run))) |
| 872 | (prolog-inferior-buffer 'dont-run))))) | 872 | (when infbuf |
| 873 | (buffer-local-value 'prolog-system infbuf)))))) | ||
| 873 | (if (listp alist) | 874 | (if (listp alist) |
| 874 | (let (result | 875 | (let (result |
| 875 | id) | 876 | id) |
| @@ -1522,7 +1523,7 @@ This function must be called from the source code buffer." | |||
| 1522 | ;; Emacs-20). | 1523 | ;; Emacs-20). |
| 1523 | (set (make-local-variable 'compilation-parse-errors-function) | 1524 | (set (make-local-variable 'compilation-parse-errors-function) |
| 1524 | 'prolog-parse-sicstus-compilation-errors)) | 1525 | 'prolog-parse-sicstus-compilation-errors)) |
| 1525 | (toggle-read-only 0) | 1526 | (setq buffer-read-only nil) |
| 1526 | (insert command-string "\n")) | 1527 | (insert command-string "\n")) |
| 1527 | (save-selected-window | 1528 | (save-selected-window |
| 1528 | (pop-to-buffer buffer)) | 1529 | (pop-to-buffer buffer)) |
| @@ -1569,7 +1570,7 @@ For use with the `compilation-parse-errors-function' variable." | |||
| 1569 | limit t) | 1570 | limit t) |
| 1570 | (setq filepath (match-string 2))) | 1571 | (setq filepath (match-string 2))) |
| 1571 | 1572 | ||
| 1572 | ;; ###### Does this work with SICStus under Windows (i.e. backslahes and stuff?) | 1573 | ;; ###### Does this work with SICStus under Windows (i.e. backslashes and stuff?) |
| 1573 | (if (string-match "\\(.*/\\)\\([^/]*\\)$" filepath) | 1574 | (if (string-match "\\(.*/\\)\\([^/]*\\)$" filepath) |
| 1574 | (progn | 1575 | (progn |
| 1575 | (setq dir (match-string 1 filepath)) | 1576 | (setq dir (match-string 1 filepath)) |
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index af9ab537893..03e095b6bfc 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el | |||
| @@ -96,7 +96,7 @@ | |||
| 96 | ;; This improves the interaction under Emacs but it still is somewhat | 96 | ;; This improves the interaction under Emacs but it still is somewhat |
| 97 | ;; awkward. | 97 | ;; awkward. |
| 98 | 98 | ||
| 99 | ;; Quoted identifiers are not supported for hilighting. Most | 99 | ;; Quoted identifiers are not supported for highlighting. Most |
| 100 | ;; databases support the use of double quoted strings in place of | 100 | ;; databases support the use of double quoted strings in place of |
| 101 | ;; identifiers; ms (Microsoft SQLServer) also supports identifiers | 101 | ;; identifiers; ms (Microsoft SQLServer) also supports identifiers |
| 102 | ;; enclosed within brackets []. | 102 | ;; enclosed within brackets []. |
| @@ -1329,9 +1329,9 @@ statement. The format of variable should be a valid | |||
| 1329 | ;; are not followed closely, and most vendors offer significant | 1329 | ;; are not followed closely, and most vendors offer significant |
| 1330 | ;; capabilities beyond those defined in the standard specifications. | 1330 | ;; capabilities beyond those defined in the standard specifications. |
| 1331 | 1331 | ||
| 1332 | ;; SQL mode provides support for hilighting based on the product. In | 1332 | ;; SQL mode provides support for highlighting based on the product. In |
| 1333 | ;; addition to hilighting the product keywords, any ANSI keywords not | 1333 | ;; addition to highlighting the product keywords, any ANSI keywords not |
| 1334 | ;; used by the product are also hilighted. This will help identify | 1334 | ;; used by the product are also highlighted. This will help identify |
| 1335 | ;; keywords that could be restricted in future versions of the product | 1335 | ;; keywords that could be restricted in future versions of the product |
| 1336 | ;; or might be a problem if ported to another product. | 1336 | ;; or might be a problem if ported to another product. |
| 1337 | 1337 | ||
| @@ -2506,7 +2506,7 @@ See `sql-product-alist' for a list of products and supported features." | |||
| 2506 | "Configure font-lock and imenu with product-specific settings. | 2506 | "Configure font-lock and imenu with product-specific settings. |
| 2507 | 2507 | ||
| 2508 | The KEYWORDS-ONLY flag is passed to font-lock to specify whether | 2508 | The KEYWORDS-ONLY flag is passed to font-lock to specify whether |
| 2509 | only keywords should be hilighted and syntactic hilighting | 2509 | only keywords should be highlighted and syntactic highlighting |
| 2510 | skipped. The IMENU flag indicates whether `imenu-mode' should | 2510 | skipped. The IMENU flag indicates whether `imenu-mode' should |
| 2511 | also be configured." | 2511 | also be configured." |
| 2512 | 2512 | ||
| @@ -3807,7 +3807,7 @@ you entered, right above the output it created. | |||
| 3807 | 3807 | ||
| 3808 | ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try | 3808 | ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try |
| 3809 | ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the column | 3809 | ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the column |
| 3810 | ;; will have just one quote. Therefore syntactic hilighting is | 3810 | ;; will have just one quote. Therefore syntactic highlighting is |
| 3811 | ;; disabled for interactive buffers. No imenu support. | 3811 | ;; disabled for interactive buffers. No imenu support. |
| 3812 | (sql-product-font-lock t nil) | 3812 | (sql-product-font-lock t nil) |
| 3813 | 3813 | ||
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index 4cc4a133c8e..3ae66a477e8 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el | |||
| @@ -87,7 +87,7 @@ | |||
| 87 | ;; you may add the below lines (the values of the variables presented | 87 | ;; you may add the below lines (the values of the variables presented |
| 88 | ;; here are the defaults). Note also that if you use an Emacs that | 88 | ;; here are the defaults). Note also that if you use an Emacs that |
| 89 | ;; supports custom, it's probably better to use the custom menu to | 89 | ;; supports custom, it's probably better to use the custom menu to |
| 90 | ;; edit these. If working as a member of a large team these settings | 90 | ;; edit these. If working as a member of a large team these settings |
| 91 | ;; should be common across all users (in a site-start file), or set | 91 | ;; should be common across all users (in a site-start file), or set |
| 92 | ;; in Local Variables in every file. Otherwise, different people's | 92 | ;; in Local Variables in every file. Otherwise, different people's |
| 93 | ;; AUTO expansion may result different whitespace changes. | 93 | ;; AUTO expansion may result different whitespace changes. |
| @@ -123,9 +123,9 @@ | |||
| 123 | ;;; Code: | 123 | ;;; Code: |
| 124 | 124 | ||
| 125 | ;; This variable will always hold the version number of the mode | 125 | ;; This variable will always hold the version number of the mode |
| 126 | (defconst verilog-mode-version "650" | 126 | (defconst verilog-mode-version "725" |
| 127 | "Version of this Verilog mode.") | 127 | "Version of this Verilog mode.") |
| 128 | (defconst verilog-mode-release-date "2010-11-05-GNU" | 128 | (defconst verilog-mode-release-date "2011-11-27-GNU" |
| 129 | "Release date of this Verilog mode.") | 129 | "Release date of this Verilog mode.") |
| 130 | (defconst verilog-mode-release-emacs t | 130 | (defconst verilog-mode-release-emacs t |
| 131 | "If non-nil, this version of Verilog mode was released with Emacs itself.") | 131 | "If non-nil, this version of Verilog mode was released with Emacs itself.") |
| @@ -174,6 +174,18 @@ | |||
| 174 | (char-after (1- (point))))) | 174 | (char-after (1- (point))))) |
| 175 | (error nil)) | 175 | (error nil)) |
| 176 | (condition-case nil | 176 | (condition-case nil |
| 177 | (if (fboundp 'when) | ||
| 178 | nil ;; fab | ||
| 179 | (defsubst point-at-bol (&optional N) | ||
| 180 | (save-excursion (beginning-of-line N) (point)))) | ||
| 181 | (error nil)) | ||
| 182 | (condition-case nil | ||
| 183 | (if (fboundp 'when) | ||
| 184 | nil ;; fab | ||
| 185 | (defsubst point-at-eol (&optional N) | ||
| 186 | (save-excursion (end-of-line N) (point)))) | ||
| 187 | (error nil)) | ||
| 188 | (condition-case nil | ||
| 177 | (require 'custom) | 189 | (require 'custom) |
| 178 | (error nil)) | 190 | (error nil)) |
| 179 | (condition-case nil | 191 | (condition-case nil |
| @@ -275,8 +287,19 @@ STRING should be given if the last search was by `string-match' on STRING." | |||
| 275 | (eval-and-compile | 287 | (eval-and-compile |
| 276 | ;; Both xemacs and emacs | 288 | ;; Both xemacs and emacs |
| 277 | (condition-case nil | 289 | (condition-case nil |
| 290 | (require 'diff) ;; diff-command and diff-switches | ||
| 291 | (error nil)) | ||
| 292 | (condition-case nil | ||
| 293 | (require 'compile) ;; compilation-error-regexp-alist-alist | ||
| 294 | (error nil)) | ||
| 295 | (condition-case nil | ||
| 278 | (unless (fboundp 'buffer-chars-modified-tick) ;; Emacs 22 added | 296 | (unless (fboundp 'buffer-chars-modified-tick) ;; Emacs 22 added |
| 279 | (defmacro buffer-chars-modified-tick () (buffer-modified-tick))) | 297 | (defmacro buffer-chars-modified-tick () (buffer-modified-tick))) |
| 298 | (error nil)) | ||
| 299 | ;; Added in Emacs 24.1 | ||
| 300 | (condition-case nil | ||
| 301 | (unless (fboundp 'prog-mode) | ||
| 302 | (define-derived-mode prog-mode fundamental-mode "Prog")) | ||
| 280 | (error nil))) | 303 | (error nil))) |
| 281 | 304 | ||
| 282 | (eval-when-compile | 305 | (eval-when-compile |
| @@ -310,6 +333,14 @@ STRING should be given if the last search was by `string-match' on STRING." | |||
| 310 | ;; `("Verilog" ("MA" ["SAA" nil :help "Help SAA"] ["SAB" nil :help "Help SAA"]) | 333 | ;; `("Verilog" ("MA" ["SAA" nil :help "Help SAA"] ["SAB" nil :help "Help SAA"]) |
| 311 | ;; "----" ["MB" nil :help "Help MB"])) | 334 | ;; "----" ["MB" nil :help "Help MB"])) |
| 312 | 335 | ||
| 336 | (defun verilog-define-abbrev (table name expansion &optional hook) | ||
| 337 | "Filter `define-abbrev' TABLE NAME EXPANSION and call HOOK. | ||
| 338 | Provides SYSTEM-FLAG in newer Emacs." | ||
| 339 | (condition-case nil | ||
| 340 | (define-abbrev table name expansion hook 0 t) | ||
| 341 | (error | ||
| 342 | (define-abbrev table name expansion hook)))) | ||
| 343 | |||
| 313 | (defun verilog-customize () | 344 | (defun verilog-customize () |
| 314 | "Customize variables and other settings used by Verilog-Mode." | 345 | "Customize variables and other settings used by Verilog-Mode." |
| 315 | (interactive) | 346 | (interactive) |
| @@ -335,9 +366,31 @@ This function may be removed when Emacs 21 is no longer supported." | |||
| 335 | ;; And GNU Emacs 22 has obsoleted last-command-char | 366 | ;; And GNU Emacs 22 has obsoleted last-command-char |
| 336 | last-command-event))) | 367 | last-command-event))) |
| 337 | 368 | ||
| 338 | (defalias 'verilog-syntax-ppss | 369 | (defvar verilog-no-change-functions nil |
| 339 | (if (fboundp 'syntax-ppss) 'syntax-ppss | 370 | "True if `after-change-functions' is disabled. |
| 340 | (lambda (&optional pos) (parse-partial-sexp (point-min) (or pos (point)))))) | 371 | Use of `syntax-ppss' may break, as ppss's cache may get corrupted.") |
| 372 | |||
| 373 | (defvar verilog-in-hooks nil | ||
| 374 | "True when within a `verilog-run-hooks' block.") | ||
| 375 | |||
| 376 | (defmacro verilog-run-hooks (&rest hooks) | ||
| 377 | "Run each hook in HOOKS using `run-hooks'. | ||
| 378 | Set `verilog-in-hooks' during this time, to assist AUTO caches." | ||
| 379 | `(let ((verilog-in-hooks t)) | ||
| 380 | (run-hooks ,@hooks))) | ||
| 381 | |||
| 382 | (defun verilog-syntax-ppss (&optional pos) | ||
| 383 | (when verilog-no-change-functions | ||
| 384 | (if verilog-in-hooks | ||
| 385 | (verilog-scan-cache-flush) | ||
| 386 | ;; else don't let the AUTO code itself get away with flushing the cache, | ||
| 387 | ;; as that'll make things very slow | ||
| 388 | (backtrace) | ||
| 389 | (error "%s: Internal problem; use of syntax-ppss when cache may be corrupt" | ||
| 390 | (verilog-point-text)))) | ||
| 391 | (if (fboundp 'syntax-ppss) | ||
| 392 | (syntax-ppss pos) | ||
| 393 | (parse-partial-sexp (point-min) (or pos (point))))) | ||
| 341 | 394 | ||
| 342 | (defgroup verilog-mode nil | 395 | (defgroup verilog-mode nil |
| 343 | "Facilitates easy editing of Verilog source text." | 396 | "Facilitates easy editing of Verilog source text." |
| @@ -631,6 +684,22 @@ file referenced. If false, this is not supported." | |||
| 631 | :type 'boolean) | 684 | :type 'boolean) |
| 632 | (put 'verilog-highlight-includes 'safe-local-variable 'verilog-booleanp) | 685 | (put 'verilog-highlight-includes 'safe-local-variable 'verilog-booleanp) |
| 633 | 686 | ||
| 687 | (defcustom verilog-auto-declare-nettype nil | ||
| 688 | "*Non-nil specifies the data type to use with `verilog-auto-input' etc. | ||
| 689 | Set this to \"wire\" if the Verilog code uses \"`default_nettype | ||
| 690 | none\". Note using `default_nettype none isn't recommended practice; this | ||
| 691 | mode is experimental." | ||
| 692 | :group 'verilog-mode-actions | ||
| 693 | :type 'boolean) | ||
| 694 | (put 'verilog-auto-declare-nettype 'safe-local-variable `stringp) | ||
| 695 | |||
| 696 | (defcustom verilog-auto-wire-type nil | ||
| 697 | "*Non-nil specifies the data type to use with `verilog-auto-wire' etc. | ||
| 698 | Set this to \"logic\" for SystemVerilog code, or use `verilog-auto-logic'." | ||
| 699 | :group 'verilog-mode-actions | ||
| 700 | :type 'boolean) | ||
| 701 | (put 'verilog-auto-wire-type 'safe-local-variable `stringp) | ||
| 702 | |||
| 634 | (defcustom verilog-auto-endcomments t | 703 | (defcustom verilog-auto-endcomments t |
| 635 | "*True means insert a comment /* ... */ after 'end's. | 704 | "*True means insert a comment /* ... */ after 'end's. |
| 636 | The name of the function or case will be set between the braces." | 705 | The name of the function or case will be set between the braces." |
| @@ -638,6 +707,12 @@ The name of the function or case will be set between the braces." | |||
| 638 | :type 'boolean) | 707 | :type 'boolean) |
| 639 | (put 'verilog-auto-endcomments 'safe-local-variable 'verilog-booleanp) | 708 | (put 'verilog-auto-endcomments 'safe-local-variable 'verilog-booleanp) |
| 640 | 709 | ||
| 710 | (defcustom verilog-auto-delete-trailing-whitespace nil | ||
| 711 | "*True means to `delete-trailing-whitespace' in `verilog-auto'." | ||
| 712 | :group 'verilog-mode-actions | ||
| 713 | :type 'boolean) | ||
| 714 | (put 'verilog-auto-delete-trailing-whitespace 'safe-local-variable 'verilog-booleanp) | ||
| 715 | |||
| 641 | (defcustom verilog-auto-ignore-concat nil | 716 | (defcustom verilog-auto-ignore-concat nil |
| 642 | "*True means ignore signals in {...} concatenations for AUTOWIRE etc. | 717 | "*True means ignore signals in {...} concatenations for AUTOWIRE etc. |
| 643 | This will exclude signals referenced as pin connections in {...} | 718 | This will exclude signals referenced as pin connections in {...} |
| @@ -696,6 +771,12 @@ always be saved." | |||
| 696 | (defvar verilog-auto-last-file-locals nil | 771 | (defvar verilog-auto-last-file-locals nil |
| 697 | "Text from file-local-variables during last evaluation.") | 772 | "Text from file-local-variables during last evaluation.") |
| 698 | 773 | ||
| 774 | (defvar verilog-diff-function 'verilog-diff-report | ||
| 775 | "*Function to run when `verilog-diff-auto' detects differences. | ||
| 776 | Function takes three arguments, the original buffer, the | ||
| 777 | difference buffer, and the point in original buffer with the | ||
| 778 | first difference.") | ||
| 779 | |||
| 699 | ;;; Compile support | 780 | ;;; Compile support |
| 700 | (require 'compile) | 781 | (require 'compile) |
| 701 | (defvar verilog-error-regexp-added nil) | 782 | (defvar verilog-error-regexp-added nil) |
| @@ -896,6 +977,19 @@ of each Verilog file that requires it, rather than being set globally." | |||
| 896 | :type 'boolean) | 977 | :type 'boolean) |
| 897 | (put 'verilog-auto-sense-defines-constant 'safe-local-variable 'verilog-booleanp) | 978 | (put 'verilog-auto-sense-defines-constant 'safe-local-variable 'verilog-booleanp) |
| 898 | 979 | ||
| 980 | (defcustom verilog-auto-reset-blocking-in-non t | ||
| 981 | "*If true, AUTORESET will reset those signals which were | ||
| 982 | assigned with blocking assignments (=) even in a block with | ||
| 983 | non-blocking assignments (<=). | ||
| 984 | |||
| 985 | If nil, all blocking assigned signals are ignored when any | ||
| 986 | non-blocking assignment is in the AUTORESET block. This allows | ||
| 987 | blocking assignments to be used for temporary values and not have | ||
| 988 | those temporaries reset. See example in `verilog-auto-reset'." | ||
| 989 | :type 'boolean | ||
| 990 | :group 'verilog-mode-auto) | ||
| 991 | (put 'verilog-auto-reset-blocking-in-non 'safe-local-variable 'verilog-booleanp) | ||
| 992 | |||
| 899 | (defcustom verilog-auto-reset-widths t | 993 | (defcustom verilog-auto-reset-widths t |
| 900 | "*If true, AUTORESET should determine the width of signals. | 994 | "*If true, AUTORESET should determine the width of signals. |
| 901 | This is then used to set the width of the zero (32'h0 for example). This | 995 | This is then used to set the width of the zero (32'h0 for example). This |
| @@ -917,7 +1011,9 @@ the MSB or LSB of a signal inside an AUTORESET." | |||
| 917 | Declaration order is advantageous with order based instantiations | 1011 | Declaration order is advantageous with order based instantiations |
| 918 | and is the default for backward compatibility. Sorted order | 1012 | and is the default for backward compatibility. Sorted order |
| 919 | reduces changes when declarations are moved around in a file, and | 1013 | reduces changes when declarations are moved around in a file, and |
| 920 | it's bad practice to rely on order based instantiations anyhow." | 1014 | it's bad practice to rely on order based instantiations anyhow. |
| 1015 | |||
| 1016 | See also `verilog-auto-inst-sort'." | ||
| 921 | :group 'verilog-mode-auto | 1017 | :group 'verilog-mode-auto |
| 922 | :type 'boolean) | 1018 | :type 'boolean) |
| 923 | (put 'verilog-auto-arg-sort 'safe-local-variable 'verilog-booleanp) | 1019 | (put 'verilog-auto-arg-sort 'safe-local-variable 'verilog-booleanp) |
| @@ -969,6 +1065,18 @@ instead expand to: | |||
| 969 | :type 'boolean) | 1065 | :type 'boolean) |
| 970 | (put 'verilog-auto-inst-param-value 'safe-local-variable 'verilog-booleanp) | 1066 | (put 'verilog-auto-inst-param-value 'safe-local-variable 'verilog-booleanp) |
| 971 | 1067 | ||
| 1068 | (defcustom verilog-auto-inst-sort nil | ||
| 1069 | "*If set, AUTOINST signal names will be sorted, not in declaration order. | ||
| 1070 | Also affects AUTOINSTPARAM. Declaration order is the default for | ||
| 1071 | backward compatibility, and as some teams prefer signals that are | ||
| 1072 | declared together to remain together. Sorted order reduces | ||
| 1073 | changes when declarations are moved around in a file. | ||
| 1074 | |||
| 1075 | See also `verilog-auto-arg-sort'." | ||
| 1076 | :group 'verilog-mode-auto | ||
| 1077 | :type 'boolean) | ||
| 1078 | (put 'verilog-auto-inst-sort 'safe-local-variable 'verilog-booleanp) | ||
| 1079 | |||
| 972 | (defcustom verilog-auto-inst-vector t | 1080 | (defcustom verilog-auto-inst-vector t |
| 973 | "*If true, when creating default ports with AUTOINST, use bus subscripts. | 1081 | "*If true, when creating default ports with AUTOINST, use bus subscripts. |
| 974 | If nil, skip the subscript when it matches the entire bus as declared in | 1082 | If nil, skip the subscript when it matches the entire bus as declared in |
| @@ -981,12 +1089,20 @@ speed up some simulators, but is less general and harder to read, so avoid." | |||
| 981 | 1089 | ||
| 982 | (defcustom verilog-auto-inst-template-numbers nil | 1090 | (defcustom verilog-auto-inst-template-numbers nil |
| 983 | "*If true, when creating templated ports with AUTOINST, add a comment. | 1091 | "*If true, when creating templated ports with AUTOINST, add a comment. |
| 984 | The comment will add the line number of the template that was used for that | 1092 | |
| 985 | port declaration. Setting this aids in debugging, but nil is suggested for | 1093 | If t, the comment will add the line number of the template that |
| 986 | regular use to prevent large numbers of merge conflicts." | 1094 | was used for that port declaration. This setting is suggested |
| 1095 | only for debugging use, as regular use may cause a large numbers | ||
| 1096 | of merge conflicts. | ||
| 1097 | |||
| 1098 | If 'lhs', the comment will show the left hand side of the | ||
| 1099 | AUTO_TEMPLATE rule that is matched. This is less precise than | ||
| 1100 | numbering (t) when multiple rules have the same pin name, but | ||
| 1101 | won't merge conflict." | ||
| 987 | :group 'verilog-mode-auto | 1102 | :group 'verilog-mode-auto |
| 988 | :type 'boolean) | 1103 | :type '(choice (const nil) (const t) (const lhs))) |
| 989 | (put 'verilog-auto-inst-template-numbers 'safe-local-variable 'verilog-booleanp) | 1104 | (put 'verilog-auto-inst-template-numbers 'safe-local-variable |
| 1105 | '(lambda (x) (memq x '(nil t lhs)))) | ||
| 990 | 1106 | ||
| 991 | (defcustom verilog-auto-inst-column 40 | 1107 | (defcustom verilog-auto-inst-column 40 |
| 992 | "*Indent-to column number for net name part of AUTOINST created pin." | 1108 | "*Indent-to column number for net name part of AUTOINST created pin." |
| @@ -1015,6 +1131,14 @@ See the \\[verilog-faq] for examples on using this." | |||
| 1015 | :type 'string) | 1131 | :type 'string) |
| 1016 | (put 'verilog-auto-output-ignore-regexp 'safe-local-variable 'stringp) | 1132 | (put 'verilog-auto-output-ignore-regexp 'safe-local-variable 'stringp) |
| 1017 | 1133 | ||
| 1134 | (defcustom verilog-auto-tieoff-declaration "wire" | ||
| 1135 | "*Data type used for the declaration for AUTOTIEOFF. If \"wire\" then | ||
| 1136 | create a wire, if \"assign\" create an assignment, else the data type for | ||
| 1137 | variable creation." | ||
| 1138 | :group 'verilog-mode-auto | ||
| 1139 | :type 'string) | ||
| 1140 | (put 'verilog-auto-tieoff-declaration 'safe-local-variable 'stringp) | ||
| 1141 | |||
| 1018 | (defcustom verilog-auto-tieoff-ignore-regexp nil | 1142 | (defcustom verilog-auto-tieoff-ignore-regexp nil |
| 1019 | "*If set, when creating AUTOTIEOFF list, ignore signals matching this regexp. | 1143 | "*If set, when creating AUTOTIEOFF list, ignore signals matching this regexp. |
| 1020 | See the \\[verilog-faq] for examples on using this." | 1144 | See the \\[verilog-faq] for examples on using this." |
| @@ -1114,8 +1238,10 @@ If set will become buffer local.") | |||
| 1114 | (define-key map "\M-\r" `electric-verilog-terminate-and-indent) | 1238 | (define-key map "\M-\r" `electric-verilog-terminate-and-indent) |
| 1115 | (define-key map "\M-\t" 'verilog-complete-word) | 1239 | (define-key map "\M-\t" 'verilog-complete-word) |
| 1116 | (define-key map "\M-?" 'verilog-show-completions) | 1240 | (define-key map "\M-?" 'verilog-show-completions) |
| 1241 | ;; Note \C-c and letter are reserved for users | ||
| 1117 | (define-key map "\C-c\`" 'verilog-lint-off) | 1242 | (define-key map "\C-c\`" 'verilog-lint-off) |
| 1118 | (define-key map "\C-c\*" 'verilog-delete-auto-star-implicit) | 1243 | (define-key map "\C-c\*" 'verilog-delete-auto-star-implicit) |
| 1244 | (define-key map "\C-c\?" 'verilog-diff-auto) | ||
| 1119 | (define-key map "\C-c\C-r" 'verilog-label-be) | 1245 | (define-key map "\C-c\C-r" 'verilog-label-be) |
| 1120 | (define-key map "\C-c\C-i" 'verilog-pretty-declarations) | 1246 | (define-key map "\C-c\C-i" 'verilog-pretty-declarations) |
| 1121 | (define-key map "\C-c=" 'verilog-pretty-expr) | 1247 | (define-key map "\C-c=" 'verilog-pretty-expr) |
| @@ -1241,6 +1367,8 @@ If set will become buffer local.") | |||
| 1241 | :help "Expand AUTO meta-comment statements"] | 1367 | :help "Expand AUTO meta-comment statements"] |
| 1242 | ["Kill AUTOs" verilog-delete-auto | 1368 | ["Kill AUTOs" verilog-delete-auto |
| 1243 | :help "Remove AUTO expansions"] | 1369 | :help "Remove AUTO expansions"] |
| 1370 | ["Diff AUTOs" verilog-diff-auto | ||
| 1371 | :help "Show differences in AUTO expansions"] | ||
| 1244 | ["Inject AUTOs" verilog-inject-auto | 1372 | ["Inject AUTOs" verilog-inject-auto |
| 1245 | :help "Inject AUTOs into legacy non-AUTO buffer"] | 1373 | :help "Inject AUTOs into legacy non-AUTO buffer"] |
| 1246 | ("AUTO Help..." | 1374 | ("AUTO Help..." |
| @@ -1264,6 +1392,8 @@ If set will become buffer local.") | |||
| 1264 | :help "Help on AUTOASCIIENUM - creating ASCII for enumerations"] | 1392 | :help "Help on AUTOASCIIENUM - creating ASCII for enumerations"] |
| 1265 | ["AUTOINOUTCOMP" (describe-function 'verilog-auto-inout-comp) | 1393 | ["AUTOINOUTCOMP" (describe-function 'verilog-auto-inout-comp) |
| 1266 | :help "Help on AUTOINOUTCOMP - copying complemented i/o from another file"] | 1394 | :help "Help on AUTOINOUTCOMP - copying complemented i/o from another file"] |
| 1395 | ["AUTOINOUTIN" (describe-function 'verilog-auto-inout-in) | ||
| 1396 | :help "Help on AUTOINOUTCOMP - copying i/o from another file as all inputs"] | ||
| 1267 | ["AUTOINOUTMODULE" (describe-function 'verilog-auto-inout-module) | 1397 | ["AUTOINOUTMODULE" (describe-function 'verilog-auto-inout-module) |
| 1268 | :help "Help on AUTOINOUTMODULE - copying i/o from another file"] | 1398 | :help "Help on AUTOINOUTMODULE - copying i/o from another file"] |
| 1269 | ["AUTOINSERTLISP" (describe-function 'verilog-auto-insert-lisp) | 1399 | ["AUTOINSERTLISP" (describe-function 'verilog-auto-insert-lisp) |
| @@ -1278,6 +1408,8 @@ If set will become buffer local.") | |||
| 1278 | :help "Help on expanding Verilog-2001 .* pins"] | 1408 | :help "Help on expanding Verilog-2001 .* pins"] |
| 1279 | ["AUTOINSTPARAM" (describe-function 'verilog-auto-inst-param) | 1409 | ["AUTOINSTPARAM" (describe-function 'verilog-auto-inst-param) |
| 1280 | :help "Help on AUTOINSTPARAM - adding parameter pins to cells"] | 1410 | :help "Help on AUTOINSTPARAM - adding parameter pins to cells"] |
| 1411 | ["AUTOLOGIC" (describe-function 'verilog-auto-logic) | ||
| 1412 | :help "Help on AUTOLOGIC - declaring logic signals"] | ||
| 1281 | ["AUTOOUTPUT" (describe-function 'verilog-auto-output) | 1413 | ["AUTOOUTPUT" (describe-function 'verilog-auto-output) |
| 1282 | :help "Help on AUTOOUTPUT - adding outputs from cells"] | 1414 | :help "Help on AUTOOUTPUT - adding outputs from cells"] |
| 1283 | ["AUTOOUTPUTEVERY" (describe-function 'verilog-auto-output-every) | 1415 | ["AUTOOUTPUTEVERY" (describe-function 'verilog-auto-output-every) |
| @@ -1318,6 +1450,10 @@ If set will become buffer local.") | |||
| 1318 | "----" | 1450 | "----" |
| 1319 | ["Module" verilog-sk-module | 1451 | ["Module" verilog-sk-module |
| 1320 | :help "Insert a module .. (/*AUTOARG*/);.. endmodule block"] | 1452 | :help "Insert a module .. (/*AUTOARG*/);.. endmodule block"] |
| 1453 | ["OVM Class" verilog-sk-ovm-class | ||
| 1454 | :help "Insert an OVM class block"] | ||
| 1455 | ["UVM Class" verilog-sk-uvm-class | ||
| 1456 | :help "Insert an UVM class block"] | ||
| 1321 | ["Primitive" verilog-sk-primitive | 1457 | ["Primitive" verilog-sk-primitive |
| 1322 | :help "Insert a primitive .. (.. );.. endprimitive block"] | 1458 | :help "Insert a primitive .. (.. );.. endprimitive block"] |
| 1323 | "----" | 1459 | "----" |
| @@ -1372,6 +1508,31 @@ If set will become buffer local.") | |||
| 1372 | "Abbrev table in use in Verilog-mode buffers.") | 1508 | "Abbrev table in use in Verilog-mode buffers.") |
| 1373 | 1509 | ||
| 1374 | (define-abbrev-table 'verilog-mode-abbrev-table ()) | 1510 | (define-abbrev-table 'verilog-mode-abbrev-table ()) |
| 1511 | (verilog-define-abbrev verilog-mode-abbrev-table "class" "" 'verilog-sk-ovm-class) | ||
| 1512 | (verilog-define-abbrev verilog-mode-abbrev-table "always" "" 'verilog-sk-always) | ||
| 1513 | (verilog-define-abbrev verilog-mode-abbrev-table "begin" nil `verilog-sk-begin) | ||
| 1514 | (verilog-define-abbrev verilog-mode-abbrev-table "case" "" `verilog-sk-case) | ||
| 1515 | (verilog-define-abbrev verilog-mode-abbrev-table "for" "" `verilog-sk-for) | ||
| 1516 | (verilog-define-abbrev verilog-mode-abbrev-table "generate" "" `verilog-sk-generate) | ||
| 1517 | (verilog-define-abbrev verilog-mode-abbrev-table "initial" "" `verilog-sk-initial) | ||
| 1518 | (verilog-define-abbrev verilog-mode-abbrev-table "fork" "" `verilog-sk-fork) | ||
| 1519 | (verilog-define-abbrev verilog-mode-abbrev-table "module" "" `verilog-sk-module) | ||
| 1520 | (verilog-define-abbrev verilog-mode-abbrev-table "primitive" "" `verilog-sk-primitive) | ||
| 1521 | (verilog-define-abbrev verilog-mode-abbrev-table "repeat" "" `verilog-sk-repeat) | ||
| 1522 | (verilog-define-abbrev verilog-mode-abbrev-table "specify" "" `verilog-sk-specify) | ||
| 1523 | (verilog-define-abbrev verilog-mode-abbrev-table "task" "" `verilog-sk-task) | ||
| 1524 | (verilog-define-abbrev verilog-mode-abbrev-table "while" "" `verilog-sk-while) | ||
| 1525 | (verilog-define-abbrev verilog-mode-abbrev-table "casex" "" `verilog-sk-casex) | ||
| 1526 | (verilog-define-abbrev verilog-mode-abbrev-table "casez" "" `verilog-sk-casez) | ||
| 1527 | (verilog-define-abbrev verilog-mode-abbrev-table "if" "" `verilog-sk-if) | ||
| 1528 | (verilog-define-abbrev verilog-mode-abbrev-table "else if" "" `verilog-sk-else-if) | ||
| 1529 | (verilog-define-abbrev verilog-mode-abbrev-table "assign" "" `verilog-sk-assign) | ||
| 1530 | (verilog-define-abbrev verilog-mode-abbrev-table "function" "" `verilog-sk-function) | ||
| 1531 | (verilog-define-abbrev verilog-mode-abbrev-table "input" "" `verilog-sk-input) | ||
| 1532 | (verilog-define-abbrev verilog-mode-abbrev-table "output" "" `verilog-sk-output) | ||
| 1533 | (verilog-define-abbrev verilog-mode-abbrev-table "inout" "" `verilog-sk-inout) | ||
| 1534 | (verilog-define-abbrev verilog-mode-abbrev-table "wire" "" `verilog-sk-wire) | ||
| 1535 | (verilog-define-abbrev verilog-mode-abbrev-table "reg" "" `verilog-sk-reg) | ||
| 1375 | 1536 | ||
| 1376 | ;; | 1537 | ;; |
| 1377 | ;; Macros | 1538 | ;; Macros |
| @@ -1386,6 +1547,9 @@ FIXEDCASE and LITERAL as in `replace-match`. STRING is what to replace. | |||
| 1386 | The case (verilog-string-replace-matches \"o\" \"oo\" nil nil \"foobar\") | 1547 | The case (verilog-string-replace-matches \"o\" \"oo\" nil nil \"foobar\") |
| 1387 | will break, as the o's continuously replace. xa -> x works ok though." | 1548 | will break, as the o's continuously replace. xa -> x works ok though." |
| 1388 | ;; Hopefully soon to a emacs built-in | 1549 | ;; Hopefully soon to a emacs built-in |
| 1550 | ;; Also note \ in the replacement prevent multiple replacements; IE | ||
| 1551 | ;; (verilog-string-replace-matches "@" "\\\\([0-9]+\\\\)" nil nil "wire@_@") | ||
| 1552 | ;; Gives "wire\([0-9]+\)_@" not "wire\([0-9]+\)_\([0-9]+\)" | ||
| 1389 | (let ((start 0)) | 1553 | (let ((start 0)) |
| 1390 | (while (string-match from-string string start) | 1554 | (while (string-match from-string string start) |
| 1391 | (setq string (replace-match to-string fixedcase literal string) | 1555 | (setq string (replace-match to-string fixedcase literal string) |
| @@ -1434,26 +1598,28 @@ will break, as the o's continuously replace. xa -> x works ok though." | |||
| 1434 | (defsubst verilog-re-search-forward-quick (regexp bound noerror) | 1598 | (defsubst verilog-re-search-forward-quick (regexp bound noerror) |
| 1435 | "Like `verilog-re-search-forward', including use of REGEXP BOUND and NOERROR, | 1599 | "Like `verilog-re-search-forward', including use of REGEXP BOUND and NOERROR, |
| 1436 | but trashes match data and is faster for REGEXP that doesn't match often. | 1600 | but trashes match data and is faster for REGEXP that doesn't match often. |
| 1437 | This may at some point use text properties to ignore comments, | 1601 | This uses `verilog-scan' and text properties to ignore comments, |
| 1438 | so there may be a large up front penalty for the first search." | 1602 | so there may be a large up front penalty for the first search." |
| 1439 | (let (pt) | 1603 | (let (pt) |
| 1440 | (while (and (not pt) | 1604 | (while (and (not pt) |
| 1441 | (re-search-forward regexp bound noerror)) | 1605 | (re-search-forward regexp bound noerror)) |
| 1442 | (if (not (verilog-inside-comment-p)) | 1606 | (if (verilog-inside-comment-or-string-p) |
| 1443 | (setq pt (match-end 0)))) | 1607 | (re-search-forward "[/\"\n]" nil t) ;; Only way a comment or quote can end |
| 1608 | (setq pt (match-end 0)))) | ||
| 1444 | pt)) | 1609 | pt)) |
| 1445 | 1610 | ||
| 1446 | (defsubst verilog-re-search-backward-quick (regexp bound noerror) | 1611 | (defsubst verilog-re-search-backward-quick (regexp bound noerror) |
| 1447 | ; checkdoc-params: (REGEXP BOUND NOERROR) | 1612 | ; checkdoc-params: (REGEXP BOUND NOERROR) |
| 1448 | "Like `verilog-re-search-backward', including use of REGEXP BOUND and NOERROR, | 1613 | "Like `verilog-re-search-backward', including use of REGEXP BOUND and NOERROR, |
| 1449 | but trashes match data and is faster for REGEXP that doesn't match often. | 1614 | but trashes match data and is faster for REGEXP that doesn't match often. |
| 1450 | This may at some point use text properties to ignore comments, | 1615 | This uses `verilog-scan' and text properties to ignore comments, |
| 1451 | so there may be a large up front penalty for the first search." | 1616 | so there may be a large up front penalty for the first search." |
| 1452 | (let (pt) | 1617 | (let (pt) |
| 1453 | (while (and (not pt) | 1618 | (while (and (not pt) |
| 1454 | (re-search-backward regexp bound noerror)) | 1619 | (re-search-backward regexp bound noerror)) |
| 1455 | (if (not (verilog-inside-comment-p)) | 1620 | (if (verilog-inside-comment-or-string-p) |
| 1456 | (setq pt (match-end 0)))) | 1621 | (re-search-backward "[/\"]" nil t) ;; Only way a comment or quote can begin |
| 1622 | (setq pt (match-beginning 0)))) | ||
| 1457 | pt)) | 1623 | pt)) |
| 1458 | 1624 | ||
| 1459 | (defsubst verilog-re-search-forward-substr (substr regexp bound noerror) | 1625 | (defsubst verilog-re-search-forward-substr (substr regexp bound noerror) |
| @@ -1496,6 +1662,14 @@ This speeds up complicated regexp matches." | |||
| 1496 | done)) | 1662 | done)) |
| 1497 | ;;(verilog-re-search-backward-substr "-end" "get-end-of" nil t) ;;-end (test bait) | 1663 | ;;(verilog-re-search-backward-substr "-end" "get-end-of" nil t) ;;-end (test bait) |
| 1498 | 1664 | ||
| 1665 | (defun verilog-delete-trailing-whitespace () | ||
| 1666 | "Delete trailing spaces or tabs, but not newlines nor linefeeds." | ||
| 1667 | ;; Similar to `delete-trailing-whitespace' but that's not present in XEmacs | ||
| 1668 | (save-excursion | ||
| 1669 | (goto-char (point-min)) | ||
| 1670 | (while (re-search-forward "[ \t]+$" nil t) ;; Not syntatic WS as no formfeed | ||
| 1671 | (replace-match "" nil nil)))) | ||
| 1672 | |||
| 1499 | (defvar compile-command) | 1673 | (defvar compile-command) |
| 1500 | 1674 | ||
| 1501 | ;; compilation program | 1675 | ;; compilation program |
| @@ -1535,11 +1709,11 @@ portion, will be substituted." | |||
| 1535 | (set (make-local-variable 'compile-command) "make ")) | 1709 | (set (make-local-variable 'compile-command) "make ")) |
| 1536 | (t | 1710 | (t |
| 1537 | (set (make-local-variable 'compile-command) | 1711 | (set (make-local-variable 'compile-command) |
| 1538 | (if verilog-tool | 1712 | (if verilog-tool |
| 1539 | (if (string-match "%s" (eval verilog-tool)) | 1713 | (if (string-match "%s" (eval verilog-tool)) |
| 1540 | (format (eval verilog-tool) (or buffer-file-name "")) | 1714 | (format (eval verilog-tool) (or buffer-file-name "")) |
| 1541 | (concat (eval verilog-tool) " " (or buffer-file-name ""))) | 1715 | (concat (eval verilog-tool) " " (or buffer-file-name ""))) |
| 1542 | "")))) | 1716 | "")))) |
| 1543 | (verilog-modify-compile-command)) | 1717 | (verilog-modify-compile-command)) |
| 1544 | 1718 | ||
| 1545 | (defun verilog-expand-command (command) | 1719 | (defun verilog-expand-command (command) |
| @@ -1564,7 +1738,7 @@ be substituted." | |||
| 1564 | (stringp compile-command) | 1738 | (stringp compile-command) |
| 1565 | (string-match "\\b\\(__FLAGS__\\|__FILE__\\)\\b" compile-command)) | 1739 | (string-match "\\b\\(__FLAGS__\\|__FILE__\\)\\b" compile-command)) |
| 1566 | (set (make-local-variable 'compile-command) | 1740 | (set (make-local-variable 'compile-command) |
| 1567 | (verilog-expand-command compile-command)))) | 1741 | (verilog-expand-command compile-command)))) |
| 1568 | 1742 | ||
| 1569 | (if (featurep 'xemacs) | 1743 | (if (featurep 'xemacs) |
| 1570 | ;; Following code only gets called from compilation-mode-hook on XEmacs to add error handling. | 1744 | ;; Following code only gets called from compilation-mode-hook on XEmacs to add error handling. |
| @@ -1585,8 +1759,8 @@ find the errors." | |||
| 1585 | (cdr compilation-error-regexp-alist-alist))))) | 1759 | (cdr compilation-error-regexp-alist-alist))))) |
| 1586 | (if (boundp 'compilation-font-lock-keywords) | 1760 | (if (boundp 'compilation-font-lock-keywords) |
| 1587 | (progn | 1761 | (progn |
| 1588 | (set (make-local-variable 'compilation-font-lock-keywords) | 1762 | (set (make-local-variable 'compilation-font-lock-keywords) |
| 1589 | verilog-error-font-lock-keywords) | 1763 | verilog-error-font-lock-keywords) |
| 1590 | (font-lock-set-defaults))) | 1764 | (font-lock-set-defaults))) |
| 1591 | ;; Need to re-run compilation-error-regexp builder | 1765 | ;; Need to re-run compilation-error-regexp builder |
| 1592 | (if (fboundp 'compilation-build-compilation-error-regexp-alist) | 1766 | (if (fboundp 'compilation-build-compilation-error-regexp-alist) |
| @@ -1657,6 +1831,30 @@ find the errors." | |||
| 1657 | "`ovm_sequencer_utils_end" | 1831 | "`ovm_sequencer_utils_end" |
| 1658 | ) nil ))) | 1832 | ) nil ))) |
| 1659 | 1833 | ||
| 1834 | (defconst verilog-uvm-begin-re | ||
| 1835 | (eval-when-compile | ||
| 1836 | (verilog-regexp-opt | ||
| 1837 | '( | ||
| 1838 | "`uvm_component_utils_begin" | ||
| 1839 | "`uvm_component_param_utils_begin" | ||
| 1840 | "`uvm_field_utils_begin" | ||
| 1841 | "`uvm_object_utils_begin" | ||
| 1842 | "`uvm_object_param_utils_begin" | ||
| 1843 | "`uvm_sequence_utils_begin" | ||
| 1844 | "`uvm_sequencer_utils_begin" | ||
| 1845 | ) nil ))) | ||
| 1846 | |||
| 1847 | (defconst verilog-uvm-end-re | ||
| 1848 | (eval-when-compile | ||
| 1849 | (verilog-regexp-opt | ||
| 1850 | '( | ||
| 1851 | "`uvm_component_utils_end" | ||
| 1852 | "`uvm_field_utils_end" | ||
| 1853 | "`uvm_object_utils_end" | ||
| 1854 | "`uvm_sequence_utils_end" | ||
| 1855 | "`uvm_sequencer_utils_end" | ||
| 1856 | ) nil ))) | ||
| 1857 | |||
| 1660 | (defconst verilog-vmm-begin-re | 1858 | (defconst verilog-vmm-begin-re |
| 1661 | (eval-when-compile | 1859 | (eval-when-compile |
| 1662 | (verilog-regexp-opt | 1860 | (verilog-regexp-opt |
| @@ -1794,6 +1992,145 @@ find the errors." | |||
| 1794 | "`static_dut_error" | 1992 | "`static_dut_error" |
| 1795 | "`static_message") nil ))) | 1993 | "`static_message") nil ))) |
| 1796 | 1994 | ||
| 1995 | (defconst verilog-uvm-statement-re | ||
| 1996 | (eval-when-compile | ||
| 1997 | (verilog-regexp-opt | ||
| 1998 | '( | ||
| 1999 | ;; Statements | ||
| 2000 | "`uvm_analysis_imp_decl" | ||
| 2001 | "`uvm_blocking_get_imp_decl" | ||
| 2002 | "`uvm_blocking_get_peek_imp_decl" | ||
| 2003 | "`uvm_blocking_master_imp_decl" | ||
| 2004 | "`uvm_blocking_peek_imp_decl" | ||
| 2005 | "`uvm_blocking_put_imp_decl" | ||
| 2006 | "`uvm_blocking_slave_imp_decl" | ||
| 2007 | "`uvm_blocking_transport_imp_decl" | ||
| 2008 | "`uvm_component_param_utils" | ||
| 2009 | "`uvm_component_registry" | ||
| 2010 | "`uvm_component_registry_param" | ||
| 2011 | "`uvm_component_utils" | ||
| 2012 | "`uvm_create" | ||
| 2013 | "`uvm_create_on" | ||
| 2014 | "`uvm_create_seq" ;; Undocumented in 1.1 | ||
| 2015 | "`uvm_declare_p_sequencer" | ||
| 2016 | "`uvm_declare_sequence_lib" ;; Deprecated in 1.1 | ||
| 2017 | "`uvm_do" | ||
| 2018 | "`uvm_do_callbacks" | ||
| 2019 | "`uvm_do_callbacks_exit_on" | ||
| 2020 | "`uvm_do_obj_callbacks" | ||
| 2021 | "`uvm_do_obj_callbacks_exit_on" | ||
| 2022 | "`uvm_do_on" | ||
| 2023 | "`uvm_do_on_pri" | ||
| 2024 | "`uvm_do_on_pri_with" | ||
| 2025 | "`uvm_do_on_with" | ||
| 2026 | "`uvm_do_pri" | ||
| 2027 | "`uvm_do_pri_with" | ||
| 2028 | "`uvm_do_seq" ;; Undocumented in 1.1 | ||
| 2029 | "`uvm_do_seq_with" ;; Undocumented in 1.1 | ||
| 2030 | "`uvm_do_with" | ||
| 2031 | "`uvm_error" | ||
| 2032 | "`uvm_error_context" | ||
| 2033 | "`uvm_fatal" | ||
| 2034 | "`uvm_fatal_context" | ||
| 2035 | "`uvm_field_aa_int_byte" | ||
| 2036 | "`uvm_field_aa_int_byte_unsigned" | ||
| 2037 | "`uvm_field_aa_int_enum" | ||
| 2038 | "`uvm_field_aa_int_int" | ||
| 2039 | "`uvm_field_aa_int_int_unsigned" | ||
| 2040 | "`uvm_field_aa_int_integer" | ||
| 2041 | "`uvm_field_aa_int_integer_unsigned" | ||
| 2042 | "`uvm_field_aa_int_key" | ||
| 2043 | "`uvm_field_aa_int_longint" | ||
| 2044 | "`uvm_field_aa_int_longint_unsigned" | ||
| 2045 | "`uvm_field_aa_int_shortint" | ||
| 2046 | "`uvm_field_aa_int_shortint_unsigned" | ||
| 2047 | "`uvm_field_aa_int_string" | ||
| 2048 | "`uvm_field_aa_object_int" | ||
| 2049 | "`uvm_field_aa_object_string" | ||
| 2050 | "`uvm_field_aa_string_int" | ||
| 2051 | "`uvm_field_aa_string_string" | ||
| 2052 | "`uvm_field_array_enum" | ||
| 2053 | "`uvm_field_array_int" | ||
| 2054 | "`uvm_field_array_object" | ||
| 2055 | "`uvm_field_array_string" | ||
| 2056 | "`uvm_field_enum" | ||
| 2057 | "`uvm_field_event" | ||
| 2058 | "`uvm_field_int" | ||
| 2059 | "`uvm_field_object" | ||
| 2060 | "`uvm_field_queue_enum" | ||
| 2061 | "`uvm_field_queue_int" | ||
| 2062 | "`uvm_field_queue_object" | ||
| 2063 | "`uvm_field_queue_string" | ||
| 2064 | "`uvm_field_real" | ||
| 2065 | "`uvm_field_sarray_enum" | ||
| 2066 | "`uvm_field_sarray_int" | ||
| 2067 | "`uvm_field_sarray_object" | ||
| 2068 | "`uvm_field_sarray_string" | ||
| 2069 | "`uvm_field_string" | ||
| 2070 | "`uvm_field_utils" | ||
| 2071 | "`uvm_file" ;; Undocumented in 1.1, use `__FILE__ | ||
| 2072 | "`uvm_get_imp_decl" | ||
| 2073 | "`uvm_get_peek_imp_decl" | ||
| 2074 | "`uvm_info" | ||
| 2075 | "`uvm_info_context" | ||
| 2076 | "`uvm_line" ;; Undocumented in 1.1, use `__LINE__ | ||
| 2077 | "`uvm_master_imp_decl" | ||
| 2078 | "`uvm_non_blocking_transport_imp_decl" ;; Deprecated in 1.1 | ||
| 2079 | "`uvm_nonblocking_get_imp_decl" | ||
| 2080 | "`uvm_nonblocking_get_peek_imp_decl" | ||
| 2081 | "`uvm_nonblocking_master_imp_decl" | ||
| 2082 | "`uvm_nonblocking_peek_imp_decl" | ||
| 2083 | "`uvm_nonblocking_put_imp_decl" | ||
| 2084 | "`uvm_nonblocking_slave_imp_decl" | ||
| 2085 | "`uvm_nonblocking_transport_imp_decl" | ||
| 2086 | "`uvm_object_param_utils" | ||
| 2087 | "`uvm_object_registry" | ||
| 2088 | "`uvm_object_registry_param" ;; Undocumented in 1.1 | ||
| 2089 | "`uvm_object_utils" | ||
| 2090 | "`uvm_pack_array" | ||
| 2091 | "`uvm_pack_arrayN" | ||
| 2092 | "`uvm_pack_enum" | ||
| 2093 | "`uvm_pack_enumN" | ||
| 2094 | "`uvm_pack_int" | ||
| 2095 | "`uvm_pack_intN" | ||
| 2096 | "`uvm_pack_queue" | ||
| 2097 | "`uvm_pack_queueN" | ||
| 2098 | "`uvm_pack_real" | ||
| 2099 | "`uvm_pack_sarray" | ||
| 2100 | "`uvm_pack_sarrayN" | ||
| 2101 | "`uvm_pack_string" | ||
| 2102 | "`uvm_peek_imp_decl" | ||
| 2103 | "`uvm_put_imp_decl" | ||
| 2104 | "`uvm_rand_send" | ||
| 2105 | "`uvm_rand_send_pri" | ||
| 2106 | "`uvm_rand_send_pri_with" | ||
| 2107 | "`uvm_rand_send_with" | ||
| 2108 | "`uvm_record_attribute" | ||
| 2109 | "`uvm_record_field" | ||
| 2110 | "`uvm_register_cb" | ||
| 2111 | "`uvm_send" | ||
| 2112 | "`uvm_send_pri" | ||
| 2113 | "`uvm_sequence_utils" ;; Deprecated in 1.1 | ||
| 2114 | "`uvm_set_super_type" | ||
| 2115 | "`uvm_slave_imp_decl" | ||
| 2116 | "`uvm_transport_imp_decl" | ||
| 2117 | "`uvm_unpack_array" | ||
| 2118 | "`uvm_unpack_arrayN" | ||
| 2119 | "`uvm_unpack_enum" | ||
| 2120 | "`uvm_unpack_enumN" | ||
| 2121 | "`uvm_unpack_int" | ||
| 2122 | "`uvm_unpack_intN" | ||
| 2123 | "`uvm_unpack_queue" | ||
| 2124 | "`uvm_unpack_queueN" | ||
| 2125 | "`uvm_unpack_real" | ||
| 2126 | "`uvm_unpack_sarray" | ||
| 2127 | "`uvm_unpack_sarrayN" | ||
| 2128 | "`uvm_unpack_string" | ||
| 2129 | "`uvm_update_sequence_lib" ;; Deprecated in 1.1 | ||
| 2130 | "`uvm_update_sequence_lib_and_item" ;; Deprecated in 1.1 | ||
| 2131 | "`uvm_warning" | ||
| 2132 | "`uvm_warning_context") nil ))) | ||
| 2133 | |||
| 1797 | 2134 | ||
| 1798 | ;; | 2135 | ;; |
| 1799 | ;; Regular expressions used to calculate indent, etc. | 2136 | ;; Regular expressions used to calculate indent, etc. |
| @@ -1805,6 +2142,29 @@ find the errors." | |||
| 1805 | ;; a[34:32] : | 2142 | ;; a[34:32] : |
| 1806 | ;; a, | 2143 | ;; a, |
| 1807 | ;; b : | 2144 | ;; b : |
| 2145 | (defconst verilog-assignment-operator-re | ||
| 2146 | (eval-when-compile | ||
| 2147 | (verilog-regexp-opt | ||
| 2148 | `( | ||
| 2149 | ;; blocking assignment_operator | ||
| 2150 | "=" "+=" "-=" "*=" "/=" "%=" "&=" "|=" "^=" "<<=" ">>=" "<<<=" ">>>=" | ||
| 2151 | ;; non blocking assignment operator | ||
| 2152 | "<=" | ||
| 2153 | ;; comparison | ||
| 2154 | "==" "!=" "===" "!===" "<=" ">=" "==\?" "!=\?" | ||
| 2155 | ;; event_trigger | ||
| 2156 | "->" "->>" | ||
| 2157 | ;; property_expr | ||
| 2158 | "|->" "|=>" | ||
| 2159 | ;; Is this a legal verilog operator? | ||
| 2160 | ":=" | ||
| 2161 | ) 't | ||
| 2162 | ))) | ||
| 2163 | (defconst verilog-assignment-operation-re | ||
| 2164 | (concat | ||
| 2165 | ; "\\(^\\s-*[A-Za-z0-9_]+\\(\\[\\([A-Za-z0-9_]+\\)\\]\\)*\\s-*\\)" | ||
| 2166 | ; "\\(^\\s-*[^=<>+-*/%&|^:\\s-]+[^=<>+-*/%&|^\n]*?\\)" | ||
| 2167 | "\\(^.*?\\)" "\\B" verilog-assignment-operator-re "\\B" )) | ||
| 1808 | 2168 | ||
| 1809 | (defconst verilog-label-re (concat verilog-symbol-re "\\s-*:\\s-*")) | 2169 | (defconst verilog-label-re (concat verilog-symbol-re "\\s-*:\\s-*")) |
| 1810 | (defconst verilog-property-re | 2170 | (defconst verilog-property-re |
| @@ -1843,7 +2203,12 @@ find the errors." | |||
| 1843 | "\\(\\<`ovm_object_utils_end\\>\\)\\|" | 2203 | "\\(\\<`ovm_object_utils_end\\>\\)\\|" |
| 1844 | "\\(\\<`ovm_sequence_utils_end\\>\\)\\|" | 2204 | "\\(\\<`ovm_sequence_utils_end\\>\\)\\|" |
| 1845 | "\\(\\<`ovm_sequencer_utils_end\\>\\)" | 2205 | "\\(\\<`ovm_sequencer_utils_end\\>\\)" |
| 1846 | 2206 | ;; UVM | |
| 2207 | "\\(\\<`uvm_component_utils_end\\>\\)\\|" | ||
| 2208 | "\\(\\<`uvm_field_utils_end\\>\\)\\|" | ||
| 2209 | "\\(\\<`uvm_object_utils_end\\>\\)\\|" | ||
| 2210 | "\\(\\<`uvm_sequence_utils_end\\>\\)\\|" | ||
| 2211 | "\\(\\<`uvm_sequencer_utils_end\\>\\)" | ||
| 1847 | )) | 2212 | )) |
| 1848 | 2213 | ||
| 1849 | (defconst verilog-auto-end-comment-lines-re | 2214 | (defconst verilog-auto-end-comment-lines-re |
| @@ -1925,6 +2290,12 @@ find the errors." | |||
| 1925 | "`ovm_object_utils_end" | 2290 | "`ovm_object_utils_end" |
| 1926 | "`ovm_sequence_utils_end" | 2291 | "`ovm_sequence_utils_end" |
| 1927 | "`ovm_sequencer_utils_end" | 2292 | "`ovm_sequencer_utils_end" |
| 2293 | ;; UVM | ||
| 2294 | "`uvm_component_utils_end" | ||
| 2295 | "`uvm_field_utils_end" | ||
| 2296 | "`uvm_object_utils_end" | ||
| 2297 | "`uvm_sequence_utils_end" | ||
| 2298 | "`uvm_sequencer_utils_end" | ||
| 1928 | ;; VMM | 2299 | ;; VMM |
| 1929 | "`vmm_data_member_end" | 2300 | "`vmm_data_member_end" |
| 1930 | "`vmm_env_member_end" | 2301 | "`vmm_env_member_end" |
| @@ -1979,7 +2350,7 @@ find the errors." | |||
| 1979 | "specify" | 2350 | "specify" |
| 1980 | "table" | 2351 | "table" |
| 1981 | "task" | 2352 | "task" |
| 1982 | ;;; OVM | 2353 | ;; OVM |
| 1983 | "`ovm_component_utils_begin" | 2354 | "`ovm_component_utils_begin" |
| 1984 | "`ovm_component_param_utils_begin" | 2355 | "`ovm_component_param_utils_begin" |
| 1985 | "`ovm_field_utils_begin" | 2356 | "`ovm_field_utils_begin" |
| @@ -1987,6 +2358,14 @@ find the errors." | |||
| 1987 | "`ovm_object_param_utils_begin" | 2358 | "`ovm_object_param_utils_begin" |
| 1988 | "`ovm_sequence_utils_begin" | 2359 | "`ovm_sequence_utils_begin" |
| 1989 | "`ovm_sequencer_utils_begin" | 2360 | "`ovm_sequencer_utils_begin" |
| 2361 | ;; UVM | ||
| 2362 | "`uvm_component_utils_begin" | ||
| 2363 | "`uvm_component_param_utils_begin" | ||
| 2364 | "`uvm_field_utils_begin" | ||
| 2365 | "`uvm_object_utils_begin" | ||
| 2366 | "`uvm_object_param_utils_begin" | ||
| 2367 | "`uvm_sequence_utils_begin" | ||
| 2368 | "`uvm_sequencer_utils_begin" | ||
| 1990 | ;; VMM | 2369 | ;; VMM |
| 1991 | "`vmm_data_member_begin" | 2370 | "`vmm_data_member_begin" |
| 1992 | "`vmm_env_member_begin" | 2371 | "`vmm_env_member_begin" |
| @@ -2000,7 +2379,7 @@ find the errors." | |||
| 2000 | (defconst verilog-beg-block-re-ordered | 2379 | (defconst verilog-beg-block-re-ordered |
| 2001 | ( concat "\\(\\<begin\\>\\)" ;1 | 2380 | ( concat "\\(\\<begin\\>\\)" ;1 |
| 2002 | "\\|\\(\\<randcase\\>\\|\\(\\<unique\\s-+\\|priority\\s-+\\)?case[xz]?\\>\\)" ; 2,3 | 2381 | "\\|\\(\\<randcase\\>\\|\\(\\<unique\\s-+\\|priority\\s-+\\)?case[xz]?\\>\\)" ; 2,3 |
| 2003 | "\\|\\(\\(\\<disable\\>\\s-+\\)?fork\\>\\)" ;4,5 | 2382 | "\\|\\(\\(\\<disable\\>\\s-+\\|\\<wait\\>\\s-+\\)?fork\\>\\)" ;4,5 |
| 2004 | "\\|\\(\\<class\\>\\)" ;6 | 2383 | "\\|\\(\\<class\\>\\)" ;6 |
| 2005 | "\\|\\(\\<table\\>\\)" ;7 | 2384 | "\\|\\(\\<table\\>\\)" ;7 |
| 2006 | "\\|\\(\\<specify\\>\\)" ;8 | 2385 | "\\|\\(\\<specify\\>\\)" ;8 |
| @@ -2013,7 +2392,7 @@ find the errors." | |||
| 2013 | "\\|\\(\\(\\(\\<cover\\>\\s-+\\)\\|\\(\\<assert\\>\\s-+\\)\\)*\\<property\\>\\)" ;17 21 | 2392 | "\\|\\(\\(\\(\\<cover\\>\\s-+\\)\\|\\(\\<assert\\>\\s-+\\)\\)*\\<property\\>\\)" ;17 21 |
| 2014 | "\\|\\(\\<\\(rand\\)?sequence\\>\\)" ;21 25 | 2393 | "\\|\\(\\<\\(rand\\)?sequence\\>\\)" ;21 25 |
| 2015 | "\\|\\(\\<clocking\\>\\)" ;22 27 | 2394 | "\\|\\(\\<clocking\\>\\)" ;22 27 |
| 2016 | "\\|\\(\\<`ovm_[a-z_]+_begin\\>\\)" ;28 | 2395 | "\\|\\(\\<`[ou]vm_[a-z_]+_begin\\>\\)" ;28 |
| 2017 | "\\|\\(\\<`vmm_[a-z_]+_member_begin\\>\\)" | 2396 | "\\|\\(\\<`vmm_[a-z_]+_member_begin\\>\\)" |
| 2018 | ;; | 2397 | ;; |
| 2019 | 2398 | ||
| @@ -2125,6 +2504,8 @@ find the errors." | |||
| 2125 | (eval-when-compile (verilog-regexp-words `("endmodule" "endclass" "endprogram" "endinterface" "endpackage" "endprimitive" "endconfig")))) | 2504 | (eval-when-compile (verilog-regexp-words `("endmodule" "endclass" "endprogram" "endinterface" "endpackage" "endprimitive" "endconfig")))) |
| 2126 | (defconst verilog-zero-indent-re | 2505 | (defconst verilog-zero-indent-re |
| 2127 | (concat verilog-defun-re "\\|" verilog-end-defun-re)) | 2506 | (concat verilog-defun-re "\\|" verilog-end-defun-re)) |
| 2507 | (defconst verilog-inst-comment-re | ||
| 2508 | (eval-when-compile (verilog-regexp-words `("Outputs" "Inouts" "Inputs" "Interfaces" "Interfaced")))) | ||
| 2128 | 2509 | ||
| 2129 | (defconst verilog-behavioral-block-beg-re | 2510 | (defconst verilog-behavioral-block-beg-re |
| 2130 | (eval-when-compile (verilog-regexp-words `("initial" "final" "always" "always_comb" "always_latch" "always_ff" | 2511 | (eval-when-compile (verilog-regexp-words `("initial" "final" "always" "always_comb" "always_latch" "always_ff" |
| @@ -2186,6 +2567,20 @@ find the errors." | |||
| 2186 | "`ovm_object_utils_end" | 2567 | "`ovm_object_utils_end" |
| 2187 | "`ovm_sequence_utils_end" | 2568 | "`ovm_sequence_utils_end" |
| 2188 | "`ovm_sequencer_utils_end" | 2569 | "`ovm_sequencer_utils_end" |
| 2570 | ;; UVM Begin tokens | ||
| 2571 | "`uvm_component_utils_begin" | ||
| 2572 | "`uvm_component_param_utils_begin" | ||
| 2573 | "`uvm_field_utils_begin" | ||
| 2574 | "`uvm_object_utils_begin" | ||
| 2575 | "`uvm_object_param_utils_begin" | ||
| 2576 | "`uvm_sequence_utils_begin" | ||
| 2577 | "`uvm_sequencer_utils_begin" | ||
| 2578 | ;; UVM End tokens | ||
| 2579 | "`uvm_component_utils_end" ;; Typo in spec, it's not uvm_component_end | ||
| 2580 | "`uvm_field_utils_end" | ||
| 2581 | "`uvm_object_utils_end" | ||
| 2582 | "`uvm_sequence_utils_end" | ||
| 2583 | "`uvm_sequencer_utils_end" | ||
| 2189 | ;; VMM Begin tokens | 2584 | ;; VMM Begin tokens |
| 2190 | "`vmm_data_member_begin" | 2585 | "`vmm_data_member_begin" |
| 2191 | "`vmm_env_member_begin" | 2586 | "`vmm_env_member_begin" |
| @@ -2227,8 +2622,7 @@ find the errors." | |||
| 2227 | `( | 2622 | `( |
| 2228 | "endmodule" "endprimitive" "endinterface" "endpackage" "endprogram" "endclass" | 2623 | "endmodule" "endprimitive" "endinterface" "endpackage" "endprogram" "endclass" |
| 2229 | )))) | 2624 | )))) |
| 2230 | (defconst verilog-disable-fork-re "disable\\s-+fork\\>") | 2625 | (defconst verilog-disable-fork-re "\\(disable\\|wait\\)\\s-+fork\\>") |
| 2231 | (defconst verilog-fork-wait-re "fork\\s-+wait\\>") | ||
| 2232 | (defconst verilog-extended-case-re "\\(unique\\s-+\\|priority\\s-+\\)?case[xz]?") | 2626 | (defconst verilog-extended-case-re "\\(unique\\s-+\\|priority\\s-+\\)?case[xz]?") |
| 2233 | (defconst verilog-extended-complete-re | 2627 | (defconst verilog-extended-complete-re |
| 2234 | (concat "\\(\\<extern\\s-+\\|\\<\\(\\<pure\\>\\s-+\\)?virtual\\s-+\\|\\<protected\\s-+\\)*\\(\\<function\\>\\|\\<task\\>\\)" | 2628 | (concat "\\(\\<extern\\s-+\\|\\<\\(\\<pure\\>\\s-+\\)?virtual\\s-+\\|\\<protected\\s-+\\)*\\(\\<function\\>\\|\\<task\\>\\)" |
| @@ -2609,6 +3003,7 @@ user-visible changes to the buffer must not be within a | |||
| 2609 | (buffer-undo-list t) | 3003 | (buffer-undo-list t) |
| 2610 | (inhibit-read-only t) | 3004 | (inhibit-read-only t) |
| 2611 | (inhibit-point-motion-hooks t) | 3005 | (inhibit-point-motion-hooks t) |
| 3006 | (verilog-no-change-functions t) | ||
| 2612 | before-change-functions | 3007 | before-change-functions |
| 2613 | after-change-functions | 3008 | after-change-functions |
| 2614 | deactivate-mark | 3009 | deactivate-mark |
| @@ -2624,6 +3019,7 @@ user-visible changes to the buffer must not be within a | |||
| 2624 | "Execute BODY forms, disabling all change hooks in BODY. | 3019 | "Execute BODY forms, disabling all change hooks in BODY. |
| 2625 | For insignificant changes, see instead `verilog-save-buffer-state'." | 3020 | For insignificant changes, see instead `verilog-save-buffer-state'." |
| 2626 | `(let* ((inhibit-point-motion-hooks t) | 3021 | `(let* ((inhibit-point-motion-hooks t) |
| 3022 | (verilog-no-change-functions t) | ||
| 2627 | before-change-functions | 3023 | before-change-functions |
| 2628 | after-change-functions) | 3024 | after-change-functions) |
| 2629 | (progn ,@body))) | 3025 | (progn ,@body))) |
| @@ -2633,13 +3029,17 @@ For insignificant changes, see instead `verilog-save-buffer-state'." | |||
| 2633 | 3029 | ||
| 2634 | (defvar verilog-scan-cache-preserving nil | 3030 | (defvar verilog-scan-cache-preserving nil |
| 2635 | "If set, the specified buffer's comment properties are static. | 3031 | "If set, the specified buffer's comment properties are static. |
| 2636 | Buffer changes will be ignored. See `verilog-inside-comment-p' | 3032 | Buffer changes will be ignored. See `verilog-inside-comment-or-string-p' |
| 2637 | and `verilog-scan'.") | 3033 | and `verilog-scan'.") |
| 2638 | 3034 | ||
| 2639 | (defvar verilog-scan-cache-tick nil | 3035 | (defvar verilog-scan-cache-tick nil |
| 2640 | "Modification tick at which `verilog-scan' was last completed.") | 3036 | "Modification tick at which `verilog-scan' was last completed.") |
| 2641 | (make-variable-buffer-local 'verilog-scan-cache-tick) | 3037 | (make-variable-buffer-local 'verilog-scan-cache-tick) |
| 2642 | 3038 | ||
| 3039 | (defun verilog-scan-cache-flush () | ||
| 3040 | "Flush the `verilog-scan' cache." | ||
| 3041 | (setq verilog-scan-cache-tick nil)) | ||
| 3042 | |||
| 2643 | (defun verilog-scan-cache-ok-p () | 3043 | (defun verilog-scan-cache-ok-p () |
| 2644 | "Return t iff the scan cache is up to date." | 3044 | "Return t iff the scan cache is up to date." |
| 2645 | (or (and verilog-scan-cache-preserving | 3045 | (or (and verilog-scan-cache-preserving |
| @@ -2660,8 +3060,8 @@ This requires that insertions must use `verilog-insert'." | |||
| 2660 | (progn ,@body)))) | 3060 | (progn ,@body)))) |
| 2661 | 3061 | ||
| 2662 | (defun verilog-scan-region (beg end) | 3062 | (defun verilog-scan-region (beg end) |
| 2663 | "Parse comments between BEG and END for `verilog-inside-comment-p'. | 3063 | "Parse between BEG and END for `verilog-inside-comment-or-string-p'. |
| 2664 | This creates v-cmt properties where comments are in force." | 3064 | This creates v-cmts properties where comments are in force." |
| 2665 | ;; Why properties and not overlays? Overlays have much slower non O(1) | 3065 | ;; Why properties and not overlays? Overlays have much slower non O(1) |
| 2666 | ;; lookup times. | 3066 | ;; lookup times. |
| 2667 | ;; This function is warm - called on every verilog-insert | 3067 | ;; This function is warm - called on every verilog-insert |
| @@ -2678,8 +3078,9 @@ This creates v-cmt properties where comments are in force." | |||
| 2678 | ;; "1+": The leading // or /* itself isn't considered as | 3078 | ;; "1+": The leading // or /* itself isn't considered as |
| 2679 | ;; being "inside" the comment, so that a (search-backward) | 3079 | ;; being "inside" the comment, so that a (search-backward) |
| 2680 | ;; that lands at the start of the // won't mis-indicate | 3080 | ;; that lands at the start of the // won't mis-indicate |
| 2681 | ;; it's inside a comment | 3081 | ;; it's inside a comment. Also otherwise it would be |
| 2682 | (put-text-property (1+ pt) (point) 'v-cmt t)) | 3082 | ;; hard to find a commented out /*AS*/ vs one that isn't |
| 3083 | (put-text-property (1+ pt) (point) 'v-cmts t)) | ||
| 2683 | ((looking-at "/\\*") | 3084 | ((looking-at "/\\*") |
| 2684 | (setq pt (point)) | 3085 | (setq pt (point)) |
| 2685 | (or (search-forward "*/" end t) | 3086 | (or (search-forward "*/" end t) |
| @@ -2688,17 +3089,24 @@ This creates v-cmt properties where comments are in force." | |||
| 2688 | ;;(error "%s: Unmatched /* */, at char %d" | 3089 | ;;(error "%s: Unmatched /* */, at char %d" |
| 2689 | ;; (verilog-point-text) (point)) | 3090 | ;; (verilog-point-text) (point)) |
| 2690 | (goto-char end)) | 3091 | (goto-char end)) |
| 2691 | (put-text-property (1+ pt) (point) 'v-cmt t)) | 3092 | (put-text-property (1+ pt) (point) 'v-cmts t)) |
| 3093 | ((looking-at "\"") | ||
| 3094 | (setq pt (point)) | ||
| 3095 | (or (re-search-forward "[^\\]\"" end t) ;; don't forward-char first, since we look for a non backslash first | ||
| 3096 | ;; No error - let later code indicate it so we can | ||
| 3097 | (goto-char end)) | ||
| 3098 | (put-text-property (1+ pt) (point) 'v-cmts t)) | ||
| 2692 | (t | 3099 | (t |
| 2693 | (forward-char 1) | 3100 | (forward-char 1) |
| 2694 | (if (re-search-forward "/[/*]" end t) | 3101 | (if (re-search-forward "[/\"]" end t) |
| 2695 | (backward-char 2) | 3102 | (backward-char 1) |
| 2696 | (goto-char end)))))))))) | 3103 | (goto-char end)))))))))) |
| 2697 | 3104 | ||
| 2698 | (defun verilog-scan () | 3105 | (defun verilog-scan () |
| 2699 | "Parse the buffer, marking all comments with properties. | 3106 | "Parse the buffer, marking all comments with properties. |
| 2700 | Also assumes any text inserted since `verilog-scan-cache-tick' | 3107 | Also assumes any text inserted since `verilog-scan-cache-tick' |
| 2701 | either is ok to parse as a non-comment, or `verilog-insert' was used." | 3108 | either is ok to parse as a non-comment, or `verilog-insert' was used." |
| 3109 | ;; See also `verilog-scan-debug' and `verilog-scan-and-debug' | ||
| 2702 | (unless (verilog-scan-cache-ok-p) | 3110 | (unless (verilog-scan-cache-ok-p) |
| 2703 | (save-excursion | 3111 | (save-excursion |
| 2704 | (verilog-save-buffer-state | 3112 | (verilog-save-buffer-state |
| @@ -2706,21 +3114,47 @@ either is ok to parse as a non-comment, or `verilog-insert' was used." | |||
| 2706 | (message "Scanning %s cache=%s cachetick=%S tick=%S" (current-buffer) | 3114 | (message "Scanning %s cache=%s cachetick=%S tick=%S" (current-buffer) |
| 2707 | verilog-scan-cache-preserving verilog-scan-cache-tick | 3115 | verilog-scan-cache-preserving verilog-scan-cache-tick |
| 2708 | (buffer-chars-modified-tick))) | 3116 | (buffer-chars-modified-tick))) |
| 2709 | (remove-text-properties (point-min) (point-max) '(v-cmt nil)) | 3117 | (remove-text-properties (point-min) (point-max) '(v-cmts nil)) |
| 2710 | (verilog-scan-region (point-min) (point-max)) | 3118 | (verilog-scan-region (point-min) (point-max)) |
| 2711 | (setq verilog-scan-cache-tick (buffer-chars-modified-tick)) | 3119 | (setq verilog-scan-cache-tick (buffer-chars-modified-tick)) |
| 2712 | (when verilog-debug (message "Scanning... done")))))) | 3120 | (when verilog-debug (message "Scanning... done")))))) |
| 2713 | 3121 | ||
| 2714 | (defun verilog-inside-comment-p () | 3122 | (defun verilog-scan-debug () |
| 2715 | "Check if point inside a comment. | 3123 | "For debugging, show with display face results of `verilog-scan'." |
| 3124 | (font-lock-mode 0) | ||
| 3125 | ;;(if dbg (setq dbg (concat dbg (format "verilog-scan-debug\n")))) | ||
| 3126 | (save-excursion | ||
| 3127 | (goto-char (point-min)) | ||
| 3128 | (remove-text-properties (point-min) (point-max) '(face nil)) | ||
| 3129 | (while (not (eobp)) | ||
| 3130 | (cond ((get-text-property (point) 'v-cmts) | ||
| 3131 | (put-text-property (point) (1+ (point)) `face 'underline) | ||
| 3132 | ;;(if dbg (setq dbg (concat dbg (format " v-cmts at %S\n" (point))))) | ||
| 3133 | (forward-char 1)) | ||
| 3134 | (t | ||
| 3135 | (goto-char (or (next-property-change (point)) (point-max)))))))) | ||
| 3136 | |||
| 3137 | (defun verilog-scan-and-debug () | ||
| 3138 | "For debugging, run `verilog-scan' and `verilog-scan-debug'." | ||
| 3139 | (let (verilog-scan-cache-preserving | ||
| 3140 | verilog-scan-cache-tick) | ||
| 3141 | (goto-char (point-min)) | ||
| 3142 | (verilog-scan) | ||
| 3143 | (verilog-scan-debug))) | ||
| 3144 | |||
| 3145 | (defun verilog-inside-comment-or-string-p (&optional pos) | ||
| 3146 | "Check if optional point POS is inside a comment. | ||
| 2716 | This may require a slow pre-parse of the buffer with `verilog-scan' | 3147 | This may require a slow pre-parse of the buffer with `verilog-scan' |
| 2717 | to establish comment properties on all text." | 3148 | to establish comment properties on all text." |
| 2718 | ;; This function is very hot | 3149 | ;; This function is very hot |
| 2719 | (verilog-scan) | 3150 | (verilog-scan) |
| 2720 | (get-text-property (point) 'v-cmt)) | 3151 | (if pos |
| 3152 | (and (>= pos (point-min)) | ||
| 3153 | (get-text-property pos 'v-cmts)) | ||
| 3154 | (get-text-property (point) 'v-cmts))) | ||
| 2721 | 3155 | ||
| 2722 | (defun verilog-insert (&rest stuff) | 3156 | (defun verilog-insert (&rest stuff) |
| 2723 | "Insert STUFF arguments, tracking comments for `verilog-inside-comment-p'. | 3157 | "Insert STUFF arguments, tracking for `verilog-inside-comment-or-string-p'. |
| 2724 | Any insert that includes a comment must have the entire commente | 3158 | Any insert that includes a comment must have the entire commente |
| 2725 | inserted using a single call to `verilog-insert'." | 3159 | inserted using a single call to `verilog-insert'." |
| 2726 | (let ((pt (point))) | 3160 | (let ((pt (point))) |
| @@ -2741,7 +3175,7 @@ Use filename, if current buffer being edited shorten to just buffer name." | |||
| 2741 | (buffer-name)) | 3175 | (buffer-name)) |
| 2742 | buffer-file-name | 3176 | buffer-file-name |
| 2743 | (buffer-name)) | 3177 | (buffer-name)) |
| 2744 | ":" (int-to-string (count-lines (point-min) (or pointnum (point)))))) | 3178 | ":" (int-to-string (1+ (count-lines (point-min) (or pointnum (point))))))) |
| 2745 | 3179 | ||
| 2746 | (defun electric-verilog-backward-sexp () | 3180 | (defun electric-verilog-backward-sexp () |
| 2747 | "Move backward over one balanced expression." | 3181 | "Move backward over one balanced expression." |
| @@ -2835,28 +3269,24 @@ Use filename, if current buffer being edited shorten to just buffer name." | |||
| 2835 | (setq md 3) ;; ender is third item in regexp | 3269 | (setq md 3) ;; ender is third item in regexp |
| 2836 | ) | 3270 | ) |
| 2837 | ((match-end 4) | 3271 | ((match-end 4) |
| 2838 | ;; might be "disable fork" or "fork wait" | 3272 | ;; might be "disable fork" or "wait fork" |
| 2839 | (let | 3273 | (let |
| 2840 | (here) | 3274 | (here) |
| 2841 | (if (looking-at verilog-fork-wait-re) | 3275 | (if (or |
| 2842 | (progn ;; it is a fork wait; ignore it | 3276 | (looking-at verilog-disable-fork-re) |
| 3277 | (and (looking-at "fork") | ||
| 3278 | (progn | ||
| 3279 | (setq here (point)) ;; sometimes a fork is just a fork | ||
| 3280 | (forward-word -1) | ||
| 3281 | (looking-at verilog-disable-fork-re)))) | ||
| 3282 | (progn ;; it is a disable fork; ignore it | ||
| 2843 | (goto-char (match-end 0)) | 3283 | (goto-char (match-end 0)) |
| 3284 | (forward-word 1) | ||
| 2844 | (setq reg nil)) | 3285 | (setq reg nil)) |
| 2845 | (if (or | 3286 | (progn ;; it is a nice simple fork |
| 2846 | (looking-at verilog-disable-fork-re) | 3287 | (goto-char here) ;; return from looking for "disable fork" |
| 2847 | (and (looking-at "fork") | 3288 | ;; Search forward for matching join |
| 2848 | (progn | 3289 | (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" ))))) |
| 2849 | (setq here (point)) ;; sometimes a fork is just a fork | ||
| 2850 | (forward-word -1) | ||
| 2851 | (looking-at verilog-disable-fork-re)))) | ||
| 2852 | (progn ;; it is a disable fork; ignore it | ||
| 2853 | (goto-char (match-end 0)) | ||
| 2854 | (forward-word 1) | ||
| 2855 | (setq reg nil)) | ||
| 2856 | (progn ;; it is a nice simple fork | ||
| 2857 | (goto-char here) ;; return from looking for "disable fork" | ||
| 2858 | ;; Search forward for matching join | ||
| 2859 | (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" )))))) | ||
| 2860 | ((match-end 6) | 3290 | ((match-end 6) |
| 2861 | ;; Search forward for matching endclass | 3291 | ;; Search forward for matching endclass |
| 2862 | (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" )) | 3292 | (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" )) |
| @@ -2916,8 +3346,6 @@ Use filename, if current buffer being edited shorten to just buffer name." | |||
| 2916 | (setq here (point)) ; remember where we started | 3346 | (setq here (point)) ; remember where we started |
| 2917 | (goto-char (match-beginning 1)) | 3347 | (goto-char (match-beginning 1)) |
| 2918 | (cond | 3348 | (cond |
| 2919 | ((looking-at verilog-fork-wait-re) | ||
| 2920 | (goto-char (match-end 0))) ; false alarm | ||
| 2921 | ((if (or | 3349 | ((if (or |
| 2922 | (looking-at verilog-disable-fork-re) | 3350 | (looking-at verilog-disable-fork-re) |
| 2923 | (and (looking-at "fork") | 3351 | (and (looking-at "fork") |
| @@ -3076,6 +3504,8 @@ Some other functions are: | |||
| 3076 | \\[verilog-sk-initial] Insert an initial begin .. end block. | 3504 | \\[verilog-sk-initial] Insert an initial begin .. end block. |
| 3077 | \\[verilog-sk-fork] Insert a fork begin .. end .. join block. | 3505 | \\[verilog-sk-fork] Insert a fork begin .. end .. join block. |
| 3078 | \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. | 3506 | \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. |
| 3507 | \\[verilog-sk-ovm-class] Insert an OVM Class block. | ||
| 3508 | \\[verilog-sk-uvm-class] Insert an UVM Class block. | ||
| 3079 | \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. | 3509 | \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. |
| 3080 | \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block. | 3510 | \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block. |
| 3081 | \\[verilog-sk-specify] Insert a specify .. endspecify block. | 3511 | \\[verilog-sk-specify] Insert a specify .. endspecify block. |
| @@ -3110,7 +3540,6 @@ Key bindings specific to `verilog-mode-map' are: | |||
| 3110 | #'verilog-indent-line-relative) | 3540 | #'verilog-indent-line-relative) |
| 3111 | (setq comment-indent-function 'verilog-comment-indent) | 3541 | (setq comment-indent-function 'verilog-comment-indent) |
| 3112 | (set (make-local-variable 'parse-sexp-ignore-comments) nil) | 3542 | (set (make-local-variable 'parse-sexp-ignore-comments) nil) |
| 3113 | |||
| 3114 | (set (make-local-variable 'comment-start) "// ") | 3543 | (set (make-local-variable 'comment-start) "// ") |
| 3115 | (set (make-local-variable 'comment-end) "") | 3544 | (set (make-local-variable 'comment-end) "") |
| 3116 | (set (make-local-variable 'comment-start-skip) "/\\*+ *\\|// *") | 3545 | (set (make-local-variable 'comment-start-skip) "/\\*+ *\\|// *") |
| @@ -3168,7 +3597,9 @@ Key bindings specific to `verilog-mode-map' are: | |||
| 3168 | hs-special-modes-alist)))) | 3597 | hs-special-modes-alist)))) |
| 3169 | 3598 | ||
| 3170 | ;; Stuff for autos | 3599 | ;; Stuff for autos |
| 3171 | (add-hook 'write-contents-hooks 'verilog-auto-save-check nil 'local)) | 3600 | (add-hook 'write-contents-hooks 'verilog-auto-save-check nil 'local) |
| 3601 | ;; verilog-mode-hook call added by define-derived-mode | ||
| 3602 | ) | ||
| 3172 | 3603 | ||
| 3173 | 3604 | ||
| 3174 | ;; | 3605 | ;; |
| @@ -3519,6 +3950,12 @@ area. See also `verilog-comment-region'." | |||
| 3519 | (interactive) | 3950 | (interactive) |
| 3520 | (verilog-re-search-backward verilog-defun-re nil 'move)) | 3951 | (verilog-re-search-backward verilog-defun-re nil 'move)) |
| 3521 | 3952 | ||
| 3953 | (defun verilog-beg-of-defun-quick () | ||
| 3954 | "Move backward to the beginning of the current function or procedure. | ||
| 3955 | Uses `verilog-scan' cache." | ||
| 3956 | (interactive) | ||
| 3957 | (verilog-re-search-backward-quick verilog-defun-re nil 'move)) | ||
| 3958 | |||
| 3522 | (defun verilog-end-of-defun () | 3959 | (defun verilog-end-of-defun () |
| 3523 | "Move forward to the end of the current function or procedure." | 3960 | "Move forward to the end of the current function or procedure." |
| 3524 | (interactive) | 3961 | (interactive) |
| @@ -3741,13 +4178,21 @@ More specifically, point @ in the line foo : @ begin" | |||
| 3741 | (t | 4178 | (t |
| 3742 | (throw 'found (= nest 0))))))) | 4179 | (throw 'found (= nest 0))))))) |
| 3743 | nil))) | 4180 | nil))) |
| 4181 | |||
| 3744 | (defun verilog-backward-up-list (arg) | 4182 | (defun verilog-backward-up-list (arg) |
| 3745 | "Like backward-up-list, but deal with comments." | 4183 | "Like `backward-up-list', but deal with comments." |
| 3746 | (let (saved-psic parse-sexp-ignore-comments) | 4184 | (let ((parse-sexp-ignore-comments t)) |
| 3747 | (setq parse-sexp-ignore-comments 1) | 4185 | (backward-up-list arg))) |
| 3748 | (backward-up-list arg) | 4186 | |
| 3749 | (setq parse-sexp-ignore-comments saved-psic) | 4187 | (defun verilog-forward-sexp-cmt (arg) |
| 3750 | )) | 4188 | "Call `forward-sexp', inside comments." |
| 4189 | (let ((parse-sexp-ignore-comments nil)) | ||
| 4190 | (forward-sexp arg))) | ||
| 4191 | |||
| 4192 | (defun verilog-forward-sexp-ign-cmt (arg) | ||
| 4193 | "Call `forward-sexp', ignoring comments." | ||
| 4194 | (let ((parse-sexp-ignore-comments t)) | ||
| 4195 | (forward-sexp arg))) | ||
| 3751 | 4196 | ||
| 3752 | (defun verilog-in-struct-region-p () | 4197 | (defun verilog-in-struct-region-p () |
| 3753 | "Return true if in a struct region. | 4198 | "Return true if in a struct region. |
| @@ -4449,7 +4894,6 @@ becomes: | |||
| 4449 | next-error-last-buffer | 4894 | next-error-last-buffer |
| 4450 | compilation-last-buffer))) | 4895 | compilation-last-buffer))) |
| 4451 | (when (buffer-live-p buff) | 4896 | (when (buffer-live-p buff) |
| 4452 | ;; FIXME with-current-buffer? | ||
| 4453 | (save-excursion | 4897 | (save-excursion |
| 4454 | (switch-to-buffer buff) | 4898 | (switch-to-buffer buff) |
| 4455 | (beginning-of-line) | 4899 | (beginning-of-line) |
| @@ -4565,8 +5009,9 @@ This lets programs calling batch mode to easily extract error messages." | |||
| 4565 | (error "%%Error: %s%s" (error-message-string err) | 5009 | (error "%%Error: %s%s" (error-message-string err) |
| 4566 | (if (featurep 'xemacs) "\n" ""))))) ;; XEmacs forgets to add a newline | 5010 | (if (featurep 'xemacs) "\n" ""))))) ;; XEmacs forgets to add a newline |
| 4567 | 5011 | ||
| 4568 | (defun verilog-batch-execute-func (funref) | 5012 | (defun verilog-batch-execute-func (funref &optional no-save) |
| 4569 | "Internal processing of a batch command, running FUNREF on all command arguments." | 5013 | "Internal processing of a batch command, running FUNREF on all command arguments. |
| 5014 | Save the result unless optional NO-SAVE is t." | ||
| 4570 | (verilog-batch-error-wrapper | 5015 | (verilog-batch-error-wrapper |
| 4571 | ;; Setting global variables like that is *VERY NASTY* !!! --Stef | 5016 | ;; Setting global variables like that is *VERY NASTY* !!! --Stef |
| 4572 | ;; However, this function is called only when Emacs is being used as | 5017 | ;; However, this function is called only when Emacs is being used as |
| @@ -4587,15 +5032,15 @@ This lets programs calling batch mode to easily extract error messages." | |||
| 4587 | (buffer-list)) | 5032 | (buffer-list)) |
| 4588 | ;; Process the files | 5033 | ;; Process the files |
| 4589 | (mapcar (lambda (buf) | 5034 | (mapcar (lambda (buf) |
| 4590 | (when (buffer-file-name buf) | 5035 | (when (buffer-file-name buf) |
| 4591 | (save-excursion | 5036 | (save-excursion |
| 4592 | (if (not (file-exists-p (buffer-file-name buf))) | 5037 | (if (not (file-exists-p (buffer-file-name buf))) |
| 4593 | (error | 5038 | (error |
| 4594 | (concat "File not found: " (buffer-file-name buf)))) | 5039 | (concat "File not found: " (buffer-file-name buf)))) |
| 4595 | (message (concat "Processing " (buffer-file-name buf))) | 5040 | (message (concat "Processing " (buffer-file-name buf))) |
| 4596 | (set-buffer buf) | 5041 | (set-buffer buf) |
| 4597 | (funcall funref) | 5042 | (funcall funref) |
| 4598 | (save-buffer)))) | 5043 | (unless no-save (save-buffer))))) |
| 4599 | (buffer-list)))) | 5044 | (buffer-list)))) |
| 4600 | 5045 | ||
| 4601 | (defun verilog-batch-auto () | 5046 | (defun verilog-batch-auto () |
| @@ -4616,6 +5061,16 @@ with \\[verilog-delete-auto] on all command-line files, and saves the buffers." | |||
| 4616 | (error "Use verilog-batch-delete-auto only with --batch")) ;; Otherwise we'd mess up buffer modes | 5061 | (error "Use verilog-batch-delete-auto only with --batch")) ;; Otherwise we'd mess up buffer modes |
| 4617 | (verilog-batch-execute-func `verilog-delete-auto)) | 5062 | (verilog-batch-execute-func `verilog-delete-auto)) |
| 4618 | 5063 | ||
| 5064 | (defun verilog-batch-diff-auto () | ||
| 5065 | "For use with --batch, perform automatic differences as a stand-alone tool. | ||
| 5066 | This sets up the appropriate Verilog mode environment, expand automatics | ||
| 5067 | with \\[verilog-diff-auto] on all command-line files, and reports an error | ||
| 5068 | if any differences are observed. This is appropriate for adding to regressions | ||
| 5069 | to insure automatics are always properly maintained." | ||
| 5070 | (unless noninteractive | ||
| 5071 | (error "Use verilog-batch-diff-auto only with --batch")) ;; Otherwise we'd mess up buffer modes | ||
| 5072 | (verilog-batch-execute-func `verilog-diff-auto t)) | ||
| 5073 | |||
| 4619 | (defun verilog-batch-inject-auto () | 5074 | (defun verilog-batch-inject-auto () |
| 4620 | "For use with --batch, perform automatic injection as a stand-alone tool. | 5075 | "For use with --batch, perform automatic injection as a stand-alone tool. |
| 4621 | This sets up the appropriate Verilog mode environment, injects new automatics | 5076 | This sets up the appropriate Verilog mode environment, injects new automatics |
| @@ -4692,123 +5147,123 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)." | |||
| 4692 | ;; if we have a directive, done. | 5147 | ;; if we have a directive, done. |
| 4693 | (if (save-excursion (beginning-of-line) | 5148 | (if (save-excursion (beginning-of-line) |
| 4694 | (and (looking-at verilog-directive-re-1) | 5149 | (and (looking-at verilog-directive-re-1) |
| 4695 | (not (or (looking-at "[ \t]*`ovm_") | 5150 | (not (or (looking-at "[ \t]*`[ou]vm_") |
| 4696 | (looking-at "[ \t]*`vmm_"))))) | 5151 | (looking-at "[ \t]*`vmm_"))))) |
| 4697 | (throw 'nesting 'directive)) | 5152 | (throw 'nesting 'directive)) |
| 4698 | ;; indent structs as if there were module level | 5153 | ;; indent structs as if there were module level |
| 4699 | (if (verilog-in-struct-p) | 5154 | (if (verilog-in-struct-p) |
| 4700 | (throw 'nesting 'block)) | 5155 | (throw 'nesting 'block)) |
| 4701 | 5156 | ||
| 4702 | ;; unless we are in the newfangled coverpoint or constraint blocks | 5157 | ;; if we are in a parenthesized list, and the user likes to indent these, return. |
| 4703 | ;; if we are in a parenthesized list, and the user likes to indent these, return. | 5158 | ;; unless we are in the newfangled coverpoint or constraint blocks |
| 4704 | (if (and | 5159 | (if (and |
| 4705 | verilog-indent-lists | 5160 | verilog-indent-lists |
| 4706 | (verilog-in-paren) | 5161 | (verilog-in-paren) |
| 4707 | (not (verilog-in-coverage-p)) | 5162 | (not (verilog-in-coverage-p)) |
| 4708 | ) | 5163 | ) |
| 4709 | (progn (setq par 1) | 5164 | (progn (setq par 1) |
| 4710 | (throw 'nesting 'block))) | 5165 | (throw 'nesting 'block))) |
| 4711 | 5166 | ||
| 4712 | ;; See if we are continuing a previous line | 5167 | ;; See if we are continuing a previous line |
| 4713 | (while t | 5168 | (while t |
| 4714 | ;; trap out if we crawl off the top of the buffer | 5169 | ;; trap out if we crawl off the top of the buffer |
| 4715 | (if (bobp) (throw 'nesting 'cpp)) | 5170 | (if (bobp) (throw 'nesting 'cpp)) |
| 4716 | 5171 | ||
| 4717 | (if (verilog-continued-line-1 lim) | 5172 | (if (verilog-continued-line-1 lim) |
| 4718 | (let ((sp (point))) | 5173 | (let ((sp (point))) |
| 4719 | (if (and | 5174 | (if (and |
| 4720 | (not (looking-at verilog-complete-reg)) | 5175 | (not (looking-at verilog-complete-reg)) |
| 4721 | (verilog-continued-line-1 lim)) | 5176 | (verilog-continued-line-1 lim)) |
| 4722 | (progn (goto-char sp) | 5177 | (progn (goto-char sp) |
| 4723 | (throw 'nesting 'cexp)) | 5178 | (throw 'nesting 'cexp)) |
| 4724 | 5179 | ||
| 4725 | (goto-char sp)) | 5180 | (goto-char sp)) |
| 4726 | 5181 | ||
| 4727 | (if (and begin | 5182 | (if (and begin |
| 4728 | (not verilog-indent-begin-after-if) | 5183 | (not verilog-indent-begin-after-if) |
| 4729 | (looking-at verilog-no-indent-begin-re)) | 5184 | (looking-at verilog-no-indent-begin-re)) |
| 4730 | (progn | 5185 | (progn |
| 4731 | (beginning-of-line) | 5186 | (beginning-of-line) |
| 4732 | (skip-chars-forward " \t") | 5187 | (skip-chars-forward " \t") |
| 4733 | (throw 'nesting 'statement)) | 5188 | (throw 'nesting 'statement)) |
| 4734 | (progn | 5189 | (progn |
| 4735 | (throw 'nesting 'cexp)))) | 5190 | (throw 'nesting 'cexp)))) |
| 4736 | ;; not a continued line | 5191 | ;; not a continued line |
| 4737 | (goto-char starting_position)) | 5192 | (goto-char starting_position)) |
| 4738 | 5193 | ||
| 4739 | (if (looking-at "\\<else\\>") | 5194 | (if (looking-at "\\<else\\>") |
| 4740 | ;; search back for governing if, striding across begin..end pairs | 5195 | ;; search back for governing if, striding across begin..end pairs |
| 4741 | ;; appropriately | 5196 | ;; appropriately |
| 4742 | (let ((elsec 1)) | 5197 | (let ((elsec 1)) |
| 4743 | (while (verilog-re-search-backward verilog-ends-re nil 'move) | 5198 | (while (verilog-re-search-backward verilog-ends-re nil 'move) |
| 5199 | (cond | ||
| 5200 | ((match-end 1) ; else, we're in deep | ||
| 5201 | (setq elsec (1+ elsec))) | ||
| 5202 | ((match-end 2) ; if | ||
| 5203 | (setq elsec (1- elsec)) | ||
| 5204 | (if (= 0 elsec) | ||
| 5205 | (if verilog-align-ifelse | ||
| 5206 | (throw 'nesting 'statement) | ||
| 5207 | (progn ;; back up to first word on this line | ||
| 5208 | (beginning-of-line) | ||
| 5209 | (verilog-forward-syntactic-ws) | ||
| 5210 | (throw 'nesting 'statement))))) | ||
| 5211 | ((match-end 3) ; assert block | ||
| 5212 | (setq elsec (1- elsec)) | ||
| 5213 | (verilog-beg-of-statement) ;; doesn't get to beginning | ||
| 5214 | (if (looking-at verilog-property-re) | ||
| 5215 | (throw 'nesting 'statement) ; We don't need an endproperty for these | ||
| 5216 | (throw 'nesting 'block) ;We still need a endproperty | ||
| 5217 | )) | ||
| 5218 | (t ; endblock | ||
| 5219 | ; try to leap back to matching outward block by striding across | ||
| 5220 | ; indent level changing tokens then immediately | ||
| 5221 | ; previous line governs indentation. | ||
| 5222 | (let (( reg) (nest 1)) | ||
| 5223 | ;; verilog-ends => else|if|end|join(_any|_none|)|endcase|endclass|endtable|endspecify|endfunction|endtask|endgenerate|endgroup | ||
| 5224 | (cond | ||
| 5225 | ((match-end 4) ; end | ||
| 5226 | ;; Search back for matching begin | ||
| 5227 | (setq reg "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)" )) | ||
| 5228 | ((match-end 5) ; endcase | ||
| 5229 | ;; Search back for matching case | ||
| 5230 | (setq reg "\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" )) | ||
| 5231 | ((match-end 6) ; endfunction | ||
| 5232 | ;; Search back for matching function | ||
| 5233 | (setq reg "\\(\\<function\\>\\)\\|\\(\\<endfunction\\>\\)" )) | ||
| 5234 | ((match-end 7) ; endtask | ||
| 5235 | ;; Search back for matching task | ||
| 5236 | (setq reg "\\(\\<task\\>\\)\\|\\(\\<endtask\\>\\)" )) | ||
| 5237 | ((match-end 8) ; endspecify | ||
| 5238 | ;; Search back for matching specify | ||
| 5239 | (setq reg "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" )) | ||
| 5240 | ((match-end 9) ; endtable | ||
| 5241 | ;; Search back for matching table | ||
| 5242 | (setq reg "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" )) | ||
| 5243 | ((match-end 10) ; endgenerate | ||
| 5244 | ;; Search back for matching generate | ||
| 5245 | (setq reg "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" )) | ||
| 5246 | ((match-end 11) ; joins | ||
| 5247 | ;; Search back for matching fork | ||
| 5248 | (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|none\\)?\\>\\)" )) | ||
| 5249 | ((match-end 12) ; class | ||
| 5250 | ;; Search back for matching class | ||
| 5251 | (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" )) | ||
| 5252 | ((match-end 13) ; covergroup | ||
| 5253 | ;; Search back for matching covergroup | ||
| 5254 | (setq reg "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" ))) | ||
| 5255 | (catch 'skip | ||
| 5256 | (while (verilog-re-search-backward reg nil 'move) | ||
| 4744 | (cond | 5257 | (cond |
| 4745 | ((match-end 1) ; else, we're in deep | 5258 | ((match-end 1) ; begin |
| 4746 | (setq elsec (1+ elsec))) | 5259 | (setq nest (1- nest)) |
| 4747 | ((match-end 2) ; if | 5260 | (if (= 0 nest) |
| 4748 | (setq elsec (1- elsec)) | 5261 | (throw 'skip 1))) |
| 4749 | (if (= 0 elsec) | 5262 | ((match-end 2) ; end |
| 4750 | (if verilog-align-ifelse | 5263 | (setq nest (1+ nest))))) |
| 4751 | (throw 'nesting 'statement) | 5264 | ))))))) |
| 4752 | (progn ;; back up to first word on this line | 5265 | (throw 'nesting (verilog-calc-1))) |
| 4753 | (beginning-of-line) | 5266 | );; catch nesting |
| 4754 | (verilog-forward-syntactic-ws) | ||
| 4755 | (throw 'nesting 'statement))))) | ||
| 4756 | ((match-end 3) ; assert block | ||
| 4757 | (setq elsec (1- elsec)) | ||
| 4758 | (verilog-beg-of-statement) ;; doesn't get to beginning | ||
| 4759 | (if (looking-at verilog-property-re) | ||
| 4760 | (throw 'nesting 'statement) ; We don't need an endproperty for these | ||
| 4761 | (throw 'nesting 'block) ;We still need a endproperty | ||
| 4762 | )) | ||
| 4763 | (t ; endblock | ||
| 4764 | ; try to leap back to matching outward block by striding across | ||
| 4765 | ; indent level changing tokens then immediately | ||
| 4766 | ; previous line governs indentation. | ||
| 4767 | (let (( reg) (nest 1)) | ||
| 4768 | ;; verilog-ends => else|if|end|join(_any|_none|)|endcase|endclass|endtable|endspecify|endfunction|endtask|endgenerate|endgroup | ||
| 4769 | (cond | ||
| 4770 | ((match-end 4) ; end | ||
| 4771 | ;; Search back for matching begin | ||
| 4772 | (setq reg "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)" )) | ||
| 4773 | ((match-end 5) ; endcase | ||
| 4774 | ;; Search back for matching case | ||
| 4775 | (setq reg "\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" )) | ||
| 4776 | ((match-end 6) ; endfunction | ||
| 4777 | ;; Search back for matching function | ||
| 4778 | (setq reg "\\(\\<function\\>\\)\\|\\(\\<endfunction\\>\\)" )) | ||
| 4779 | ((match-end 7) ; endtask | ||
| 4780 | ;; Search back for matching task | ||
| 4781 | (setq reg "\\(\\<task\\>\\)\\|\\(\\<endtask\\>\\)" )) | ||
| 4782 | ((match-end 8) ; endspecify | ||
| 4783 | ;; Search back for matching specify | ||
| 4784 | (setq reg "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" )) | ||
| 4785 | ((match-end 9) ; endtable | ||
| 4786 | ;; Search back for matching table | ||
| 4787 | (setq reg "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" )) | ||
| 4788 | ((match-end 10) ; endgenerate | ||
| 4789 | ;; Search back for matching generate | ||
| 4790 | (setq reg "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" )) | ||
| 4791 | ((match-end 11) ; joins | ||
| 4792 | ;; Search back for matching fork | ||
| 4793 | (setq reg "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|none\\)?\\>\\)" )) | ||
| 4794 | ((match-end 12) ; class | ||
| 4795 | ;; Search back for matching class | ||
| 4796 | (setq reg "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" )) | ||
| 4797 | ((match-end 13) ; covergroup | ||
| 4798 | ;; Search back for matching covergroup | ||
| 4799 | (setq reg "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" ))) | ||
| 4800 | (catch 'skip | ||
| 4801 | (while (verilog-re-search-backward reg nil 'move) | ||
| 4802 | (cond | ||
| 4803 | ((match-end 1) ; begin | ||
| 4804 | (setq nest (1- nest)) | ||
| 4805 | (if (= 0 nest) | ||
| 4806 | (throw 'skip 1))) | ||
| 4807 | ((match-end 2) ; end | ||
| 4808 | (setq nest (1+ nest))))) | ||
| 4809 | ))))))) | ||
| 4810 | (throw 'nesting (verilog-calc-1))) | ||
| 4811 | );; catch nesting | ||
| 4812 | );; type | 5267 | );; type |
| 4813 | ) | 5268 | ) |
| 4814 | ;; Return type of block and indent level. | 5269 | ;; Return type of block and indent level. |
| @@ -4883,8 +5338,7 @@ Return a list of two elements: (INDENT-TYPE INDENT-LEVEL)." | |||
| 4883 | ((match-end 4) ; *sigh* could be "disable fork" | 5338 | ((match-end 4) ; *sigh* could be "disable fork" |
| 4884 | (let ((here (point))) | 5339 | (let ((here (point))) |
| 4885 | (verilog-beg-of-statement) | 5340 | (verilog-beg-of-statement) |
| 4886 | (if (or (looking-at verilog-disable-fork-re) | 5341 | (if (looking-at verilog-disable-fork-re) |
| 4887 | (looking-at verilog-fork-wait-re)) | ||
| 4888 | t ; this is a normal statement | 5342 | t ; this is a normal statement |
| 4889 | (progn ; or is fork, starts a new block | 5343 | (progn ; or is fork, starts a new block |
| 4890 | (goto-char here) | 5344 | (goto-char here) |
| @@ -5050,6 +5504,9 @@ Jump from end to matching begin, from endcase to matching case, and so on." | |||
| 5050 | ((looking-at "\\<endproperty\\>") | 5504 | ((looking-at "\\<endproperty\\>") |
| 5051 | ;; 11: Search back for matching property | 5505 | ;; 11: Search back for matching property |
| 5052 | (setq reg "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" )) | 5506 | (setq reg "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" )) |
| 5507 | ((looking-at verilog-uvm-end-re) | ||
| 5508 | ;; 12: Search back for matching sequence | ||
| 5509 | (setq reg (concat "\\(" verilog-uvm-begin-re "\\|" verilog-uvm-end-re "\\)"))) | ||
| 5053 | ((looking-at verilog-ovm-end-re) | 5510 | ((looking-at verilog-ovm-end-re) |
| 5054 | ;; 12: Search back for matching sequence | 5511 | ;; 12: Search back for matching sequence |
| 5055 | (setq reg (concat "\\(" verilog-ovm-begin-re "\\|" verilog-ovm-end-re "\\)"))) | 5512 | (setq reg (concat "\\(" verilog-ovm-begin-re "\\|" verilog-ovm-end-re "\\)"))) |
| @@ -5177,6 +5634,12 @@ Set point to where line starts." | |||
| 5177 | ;;XX | 5634 | ;;XX |
| 5178 | ((looking-at "\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\|case\\(\\|[xz]\\)\\|for\\(\\|each\\|ever\\)\\|i\\(f\\|nitial\\)\\|repeat\\|while\\)\\>") | 5635 | ((looking-at "\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\|case\\(\\|[xz]\\)\\|for\\(\\|each\\|ever\\)\\|i\\(f\\|nitial\\)\\|repeat\\|while\\)\\>") |
| 5179 | (not (looking-at "\\<randcase\\>\\|\\<case[xz]?\\>[^:]"))) | 5636 | (not (looking-at "\\<randcase\\>\\|\\<case[xz]?\\>[^:]"))) |
| 5637 | ((looking-at verilog-uvm-statement-re) | ||
| 5638 | nil) | ||
| 5639 | ((looking-at verilog-uvm-begin-re) | ||
| 5640 | t) | ||
| 5641 | ((looking-at verilog-uvm-end-re) | ||
| 5642 | t) | ||
| 5180 | ((looking-at verilog-ovm-statement-re) | 5643 | ((looking-at verilog-ovm-statement-re) |
| 5181 | nil) | 5644 | nil) |
| 5182 | ((looking-at verilog-ovm-begin-re) | 5645 | ((looking-at verilog-ovm-begin-re) |
| @@ -5241,9 +5704,24 @@ Set point to where line starts." | |||
| 5241 | t)))))))) | 5704 | t)))))))) |
| 5242 | 5705 | ||
| 5243 | (defun verilog-backward-syntactic-ws () | 5706 | (defun verilog-backward-syntactic-ws () |
| 5707 | "Move backwards putting point after first non-whitespace non-comment." | ||
| 5244 | (verilog-skip-backward-comments) | 5708 | (verilog-skip-backward-comments) |
| 5245 | (forward-comment (- (buffer-size)))) | 5709 | (forward-comment (- (buffer-size)))) |
| 5246 | 5710 | ||
| 5711 | (defun verilog-backward-syntactic-ws-quick () | ||
| 5712 | "As with `verilog-backward-syntactic-ws' but uses `verilog-scan' cache." | ||
| 5713 | (while (cond ((bobp) | ||
| 5714 | nil) ; Done | ||
| 5715 | ((> (skip-syntax-backward " ") 0) | ||
| 5716 | t) | ||
| 5717 | ((eq (preceding-char) ?\n) ;; \n's terminate // so aren't space syntax | ||
| 5718 | (forward-char -1) | ||
| 5719 | t) | ||
| 5720 | ((or (verilog-inside-comment-or-string-p (1- (point))) | ||
| 5721 | (verilog-inside-comment-or-string-p (point))) | ||
| 5722 | (re-search-backward "[/\"]" nil t) ;; Only way a comment or quote can begin | ||
| 5723 | t)))) | ||
| 5724 | |||
| 5247 | (defun verilog-forward-syntactic-ws () | 5725 | (defun verilog-forward-syntactic-ws () |
| 5248 | (verilog-skip-forward-comment-p) | 5726 | (verilog-skip-forward-comment-p) |
| 5249 | (forward-comment (buffer-size))) | 5727 | (forward-comment (buffer-size))) |
| @@ -5339,9 +5817,17 @@ Optional BOUND limits search." | |||
| 5339 | 5817 | ||
| 5340 | (defun verilog-in-attribute-p () | 5818 | (defun verilog-in-attribute-p () |
| 5341 | "Return true if point is in an attribute (* [] attribute *)." | 5819 | "Return true if point is in an attribute (* [] attribute *)." |
| 5342 | (save-excursion | 5820 | (save-match-data |
| 5343 | (verilog-re-search-backward "\\((\\*\\)\\|\\(\\*)\\)" nil 'move) | 5821 | (save-excursion |
| 5344 | (numberp (match-beginning 1)))) | 5822 | (verilog-re-search-backward "\\((\\*\\)\\|\\(\\*)\\)" nil 'move) |
| 5823 | (numberp (match-beginning 1))))) | ||
| 5824 | |||
| 5825 | (defun verilog-in-parameter-p () | ||
| 5826 | "Return true if point is in a parameter assignment #( p1=1, p2=5)." | ||
| 5827 | (save-match-data | ||
| 5828 | (save-excursion | ||
| 5829 | (verilog-re-search-backward "\\(#(\\)\\|\\()\\)" nil 'move) | ||
| 5830 | (numberp (match-beginning 1))))) | ||
| 5345 | 5831 | ||
| 5346 | (defun verilog-in-escaped-name-p () | 5832 | (defun verilog-in-escaped-name-p () |
| 5347 | "Return true if in an escaped name." | 5833 | "Return true if in an escaped name." |
| @@ -5357,11 +5843,27 @@ Optional BOUND limits search." | |||
| 5357 | (beginning-of-line) | 5843 | (beginning-of-line) |
| 5358 | (looking-at verilog-directive-re-1))) | 5844 | (looking-at verilog-directive-re-1))) |
| 5359 | 5845 | ||
| 5846 | (defun verilog-in-parenthesis-p () | ||
| 5847 | "Return true if in a ( ) expression (but not { } or [ ])." | ||
| 5848 | (save-match-data | ||
| 5849 | (save-excursion | ||
| 5850 | (verilog-re-search-backward "\\((\\)\\|\\()\\)" nil 'move) | ||
| 5851 | (numberp (match-beginning 1))))) | ||
| 5852 | |||
| 5360 | (defun verilog-in-paren () | 5853 | (defun verilog-in-paren () |
| 5361 | "Return true if in a parenthetical expression." | 5854 | "Return true if in a parenthetical expression. |
| 5855 | May cache result using `verilog-syntax-ppss'." | ||
| 5362 | (let ((state (save-excursion (verilog-syntax-ppss)))) | 5856 | (let ((state (save-excursion (verilog-syntax-ppss)))) |
| 5363 | (> (nth 0 state) 0 ))) | 5857 | (> (nth 0 state) 0 ))) |
| 5364 | 5858 | ||
| 5859 | (defun verilog-in-paren-quick () | ||
| 5860 | "Return true if in a parenthetical expression. | ||
| 5861 | Always starts from point-min, to allow inserts with hooks disabled." | ||
| 5862 | ;; The -quick refers to its use alongside the other -quick functions, | ||
| 5863 | ;; not that it's likely to be faster than verilog-in-paren. | ||
| 5864 | (let ((state (save-excursion (parse-partial-sexp (point-min) (point))))) | ||
| 5865 | (> (nth 0 state) 0 ))) | ||
| 5866 | |||
| 5365 | (defun verilog-in-struct-p () | 5867 | (defun verilog-in-struct-p () |
| 5366 | "Return true if in a struct declaration." | 5868 | "Return true if in a struct declaration." |
| 5367 | (interactive) | 5869 | (interactive) |
| @@ -5607,7 +6109,11 @@ Only look at a few lines to determine indent level." | |||
| 5607 | (goto-char fst) | 6109 | (goto-char fst) |
| 5608 | (+ (current-column) verilog-cexp-indent)))))) | 6110 | (+ (current-column) verilog-cexp-indent)))))) |
| 5609 | (goto-char here) | 6111 | (goto-char here) |
| 5610 | (indent-line-to val))) | 6112 | (indent-line-to val) |
| 6113 | (if (and (not verilog-indent-lists) | ||
| 6114 | (verilog-in-paren)) | ||
| 6115 | (verilog-pretty-declarations)) | ||
| 6116 | )) | ||
| 5611 | ((= (preceding-char) ?\) ) | 6117 | ((= (preceding-char) ?\) ) |
| 5612 | (goto-char here) | 6118 | (goto-char here) |
| 5613 | (let ((val (eval (cdr (assoc type verilog-indent-alist))))) | 6119 | (let ((val (eval (cdr (assoc type verilog-indent-alist))))) |
| @@ -5915,102 +6421,104 @@ Be verbose about progress unless optional QUIET set." | |||
| 5915 | (unless quiet (message ""))))))) | 6421 | (unless quiet (message ""))))))) |
| 5916 | 6422 | ||
| 5917 | (defun verilog-pretty-expr (&optional quiet myre) | 6423 | (defun verilog-pretty-expr (&optional quiet myre) |
| 5918 | "Line up expressions around point, optionally QUIET with regexp MYRE." | 6424 | "Line up expressions around point, optionally QUIET with regexp MYRE ignored." |
| 5919 | (interactive "i\nsRegular Expression: ((<|:)?=) ") | 6425 | (interactive) |
| 5920 | (save-excursion | 6426 | (if (not (verilog-in-comment-or-string-p)) |
| 5921 | (if (or (eq myre nil) | 6427 | (save-excursion |
| 5922 | (string-equal myre "")) | 6428 | (let ((rexp (concat "^\\s-*" verilog-complete-reg))) |
| 5923 | (setq myre "\\(<\\|:\\)?=")) | 6429 | (beginning-of-line) |
| 5924 | ;; want to match the first <= | := | = | 6430 | (if (and (not (looking-at rexp )) |
| 5925 | (setq myre (concat "\\(^.*?\\)\\(" myre "\\)")) | 6431 | (looking-at verilog-assignment-operation-re) |
| 5926 | (let ((rexp(concat "^\\s-*" verilog-complete-reg))) | 6432 | (save-excursion |
| 5927 | (beginning-of-line) | 6433 | (goto-char (match-end 2)) |
| 5928 | (if (and (not (looking-at rexp )) | 6434 | (and (not (verilog-in-attribute-p)) |
| 5929 | (looking-at myre) | 6435 | (not (verilog-in-parameter-p)) |
| 5930 | (save-excursion | 6436 | (not (verilog-in-comment-or-string-p))))) |
| 5931 | (goto-char (match-beginning 2)) | 6437 | (let* ((here (point)) |
| 5932 | (not (verilog-in-comment-or-string-p)))) | 6438 | (e) (r) |
| 5933 | (let* ((here (point)) | 6439 | (start |
| 5934 | (e) (r) | 6440 | (progn |
| 5935 | (start | 6441 | (beginning-of-line) |
| 5936 | (progn | 6442 | (setq e (point)) |
| 5937 | (beginning-of-line) | 6443 | (verilog-backward-syntactic-ws) |
| 5938 | (setq e (point)) | 6444 | (beginning-of-line) |
| 5939 | (verilog-backward-syntactic-ws) | 6445 | (while (and (not (looking-at rexp )) |
| 5940 | (beginning-of-line) | 6446 | (looking-at verilog-assignment-operation-re) |
| 5941 | (while (and (not (looking-at rexp )) | 6447 | (not (bobp)) |
| 5942 | (looking-at myre) | 6448 | ) |
| 5943 | (not (bobp)) | 6449 | (setq e (point)) |
| 5944 | ) | 6450 | (verilog-backward-syntactic-ws) |
| 5945 | (setq e (point)) | 6451 | (beginning-of-line) |
| 5946 | (verilog-backward-syntactic-ws) | 6452 | ) ;Ack, need to grok `define |
| 5947 | (beginning-of-line) | 6453 | e)) |
| 5948 | ) ;Ack, need to grok `define | 6454 | (end |
| 5949 | e)) | 6455 | (progn |
| 5950 | (end | 6456 | (goto-char here) |
| 5951 | (progn | 6457 | (end-of-line) |
| 5952 | (goto-char here) | 6458 | (setq e (point)) ;Might be on last line |
| 5953 | (end-of-line) | 6459 | (verilog-forward-syntactic-ws) |
| 5954 | (setq e (point)) ;Might be on last line | 6460 | (beginning-of-line) |
| 5955 | (verilog-forward-syntactic-ws) | 6461 | (while (and |
| 5956 | (beginning-of-line) | 6462 | (not (looking-at rexp )) |
| 5957 | (while (and | 6463 | (looking-at verilog-assignment-operation-re) |
| 5958 | (not (looking-at rexp )) | 6464 | (progn |
| 5959 | (looking-at myre) | 6465 | (end-of-line) |
| 5960 | (progn | 6466 | (not (eq e (point))))) |
| 5961 | (end-of-line) | 6467 | (setq e (point)) |
| 5962 | (not (eq e (point))))) | 6468 | (verilog-forward-syntactic-ws) |
| 5963 | (setq e (point)) | 6469 | (beginning-of-line) |
| 5964 | (verilog-forward-syntactic-ws) | 6470 | ) |
| 5965 | (beginning-of-line) | 6471 | e)) |
| 5966 | ) | 6472 | (endpos (set-marker (make-marker) end)) |
| 5967 | e)) | 6473 | (ind) |
| 5968 | (endpos (set-marker (make-marker) end)) | 6474 | ) |
| 5969 | (ind) | 6475 | (goto-char start) |
| 5970 | ) | 6476 | (verilog-do-indent (verilog-calculate-indent)) |
| 5971 | (goto-char start) | 6477 | (if (and (not quiet) |
| 5972 | (verilog-do-indent (verilog-calculate-indent)) | 6478 | (> (- end start) 100)) |
| 5973 | (if (and (not quiet) | 6479 | (message "Lining up expressions..(please stand by)")) |
| 5974 | (> (- end start) 100)) | 6480 | |
| 5975 | (message "Lining up expressions..(please stand by)")) | 6481 | ;; Set indent to minimum throughout region |
| 5976 | 6482 | (while (< (point) (marker-position endpos)) | |
| 5977 | ;; Set indent to minimum throughout region | 6483 | (beginning-of-line) |
| 5978 | (while (< (point) (marker-position endpos)) | 6484 | (verilog-just-one-space verilog-assignment-operation-re) |
| 5979 | (beginning-of-line) | 6485 | (beginning-of-line) |
| 5980 | (verilog-just-one-space myre) | 6486 | (verilog-do-indent (verilog-calculate-indent)) |
| 5981 | (end-of-line) | 6487 | (end-of-line) |
| 5982 | (verilog-forward-syntactic-ws) | 6488 | (verilog-forward-syntactic-ws) |
| 5983 | ) | 6489 | ) |
| 5984 | 6490 | ||
| 5985 | ;; Now find biggest prefix | 6491 | ;; Now find biggest prefix |
| 5986 | (setq ind (verilog-get-lineup-indent-2 myre start endpos)) | 6492 | (setq ind (verilog-get-lineup-indent-2 verilog-assignment-operation-re start endpos)) |
| 5987 | 6493 | ||
| 5988 | ;; Now indent each line. | 6494 | ;; Now indent each line. |
| 5989 | (goto-char start) | 6495 | (goto-char start) |
| 5990 | (while (progn (setq e (marker-position endpos)) | 6496 | (while (progn (setq e (marker-position endpos)) |
| 5991 | (setq r (- e (point))) | 6497 | (setq r (- e (point))) |
| 5992 | (> r 0)) | 6498 | (> r 0)) |
| 5993 | (setq e (point)) | 6499 | (setq e (point)) |
| 5994 | (if (not quiet) (message "%d" r)) | 6500 | (if (not quiet) (message "%d" r)) |
| 5995 | (cond | 6501 | (cond |
| 5996 | ((looking-at myre) | 6502 | ((looking-at verilog-assignment-operation-re) |
| 5997 | (goto-char (match-beginning 2)) | 6503 | (goto-char (match-beginning 2)) |
| 5998 | (if (not (verilog-parenthesis-depth)) ;; ignore parenthesized exprs | 6504 | (if (not (or (verilog-in-parenthesis-p) ;; leave attributes and comparisons alone |
| 5999 | (if (eq (char-after) ?=) | 6505 | (verilog-in-coverage-p))) |
| 6000 | (indent-to (1+ ind)) ; line up the = of the <= with surrounding = | 6506 | (if (eq (char-after) ?=) |
| 6001 | (indent-to ind) | 6507 | (indent-to (1+ ind)) ; line up the = of the <= with surrounding = |
| 6002 | ))) | 6508 | (indent-to ind) |
| 6003 | ((verilog-continued-line-1 start) | 6509 | )) |
| 6004 | (goto-char e) | 6510 | ) |
| 6005 | (indent-line-to ind)) | 6511 | ((verilog-continued-line-1 start) |
| 6006 | (t ; Must be comment or white space | 6512 | (goto-char e) |
| 6007 | (goto-char e) | 6513 | (indent-line-to ind)) |
| 6008 | (verilog-forward-ws&directives) | 6514 | (t ; Must be comment or white space |
| 6009 | (forward-line -1)) | 6515 | (goto-char e) |
| 6010 | ) | 6516 | (verilog-forward-ws&directives) |
| 6011 | (forward-line 1)) | 6517 | (forward-line -1)) |
| 6012 | (unless quiet (message "")) | 6518 | ) |
| 6013 | ))))) | 6519 | (forward-line 1)) |
| 6520 | (unless quiet (message "")) | ||
| 6521 | )))))) | ||
| 6014 | 6522 | ||
| 6015 | (defun verilog-just-one-space (myre) | 6523 | (defun verilog-just-one-space (myre) |
| 6016 | "Remove extra spaces around regular expression MYRE." | 6524 | "Remove extra spaces around regular expression MYRE." |
| @@ -6021,11 +6529,9 @@ Be verbose about progress unless optional QUIET set." | |||
| 6021 | (p2 (match-end 2))) | 6529 | (p2 (match-end 2))) |
| 6022 | (progn | 6530 | (progn |
| 6023 | (goto-char p2) | 6531 | (goto-char p2) |
| 6024 | (if (looking-at "\\s-") (just-one-space)) | 6532 | (just-one-space) |
| 6025 | (goto-char p1) | 6533 | (goto-char p1) |
| 6026 | (forward-char -1) | 6534 | (just-one-space))))) |
| 6027 | (if (looking-at "\\s-") (just-one-space)) | ||
| 6028 | )))) | ||
| 6029 | 6535 | ||
| 6030 | (defun verilog-indent-declaration (baseind) | 6536 | (defun verilog-indent-declaration (baseind) |
| 6031 | "Indent current lines as declaration. | 6537 | "Indent current lines as declaration. |
| @@ -6128,7 +6634,7 @@ Region is defined by B and EDPOS." | |||
| 6128 | (while (progn (setq e (marker-position edpos)) | 6634 | (while (progn (setq e (marker-position edpos)) |
| 6129 | (< (point) e)) | 6635 | (< (point) e)) |
| 6130 | (if (and (verilog-re-search-forward myre e 'move) | 6636 | (if (and (verilog-re-search-forward myre e 'move) |
| 6131 | (not (verilog-parenthesis-depth))) ;; skip parenthesized exprs | 6637 | (not (verilog-in-attribute-p))) ;; skip attribute exprs |
| 6132 | (progn | 6638 | (progn |
| 6133 | (goto-char (match-beginning 2)) | 6639 | (goto-char (match-beginning 2)) |
| 6134 | (verilog-backward-syntactic-ws) | 6640 | (verilog-backward-syntactic-ws) |
| @@ -6374,10 +6880,10 @@ for matches of `str' and adding the occurrence tp `all' through point END." | |||
| 6374 | (defun verilog-keyword-completion (keyword-list) | 6880 | (defun verilog-keyword-completion (keyword-list) |
| 6375 | "Give list of all possible completions of keywords in KEYWORD-LIST." | 6881 | "Give list of all possible completions of keywords in KEYWORD-LIST." |
| 6376 | (mapcar (lambda (s) | 6882 | (mapcar (lambda (s) |
| 6377 | (if (string-match (concat "\\<" verilog-str) s) | 6883 | (if (string-match (concat "\\<" verilog-str) s) |
| 6378 | (if (or (null verilog-pred) | 6884 | (if (or (null verilog-pred) |
| 6379 | (funcall verilog-pred s)) | 6885 | (funcall verilog-pred s)) |
| 6380 | (setq verilog-all (cons s verilog-all))))) | 6886 | (setq verilog-all (cons s verilog-all))))) |
| 6381 | keyword-list)) | 6887 | keyword-list)) |
| 6382 | 6888 | ||
| 6383 | 6889 | ||
| @@ -6883,16 +7389,18 @@ See also `verilog-sk-header' for an alternative format." | |||
| 6883 | (defsubst verilog-sig-width (sig) | 7389 | (defsubst verilog-sig-width (sig) |
| 6884 | (verilog-make-width-expression (verilog-sig-bits sig))) | 7390 | (verilog-make-width-expression (verilog-sig-bits sig))) |
| 6885 | 7391 | ||
| 6886 | (defsubst verilog-alw-new (outputs temps inputs delayed) | 7392 | (defsubst verilog-alw-new (outputs-del outputs-imm temps inputs) |
| 6887 | (list outputs temps inputs delayed)) | 7393 | (list outputs-del outputs-imm temps inputs)) |
| 6888 | (defsubst verilog-alw-get-outputs (sigs) | 7394 | (defsubst verilog-alw-get-outputs-delayed (sigs) |
| 6889 | (nth 0 sigs)) | 7395 | (nth 0 sigs)) |
| 6890 | (defsubst verilog-alw-get-temps (sigs) | 7396 | (defsubst verilog-alw-get-outputs-immediate (sigs) |
| 6891 | (nth 1 sigs)) | 7397 | (nth 1 sigs)) |
| 6892 | (defsubst verilog-alw-get-inputs (sigs) | 7398 | (defsubst verilog-alw-get-temps (sigs) |
| 6893 | (nth 2 sigs)) | 7399 | (nth 2 sigs)) |
| 6894 | (defsubst verilog-alw-get-uses-delayed (sigs) | 7400 | (defsubst verilog-alw-get-inputs (sigs) |
| 6895 | (nth 3 sigs)) | 7401 | (nth 3 sigs)) |
| 7402 | (defsubst verilog-alw-get-uses-delayed (sigs) | ||
| 7403 | (nth 0 sigs)) | ||
| 6896 | 7404 | ||
| 6897 | (defsubst verilog-modi-new (name fob pt type) | 7405 | (defsubst verilog-modi-new (name fob pt type) |
| 6898 | (vector name fob pt type)) | 7406 | (vector name fob pt type)) |
| @@ -6911,18 +7419,18 @@ See also `verilog-sk-header' for an alternative format." | |||
| 6911 | 7419 | ||
| 6912 | ;; Signal reading for given module | 7420 | ;; Signal reading for given module |
| 6913 | ;; Note these all take modi's - as returned from verilog-modi-current | 7421 | ;; Note these all take modi's - as returned from verilog-modi-current |
| 6914 | (defsubst verilog-decls-new (out inout in wires regs assigns consts gparams interfaces) | 7422 | (defsubst verilog-decls-new (out inout in vars unuseds assigns consts gparams interfaces) |
| 6915 | (vector out inout in wires regs assigns consts gparams interfaces)) | 7423 | (vector out inout in vars unuseds assigns consts gparams interfaces)) |
| 6916 | (defsubst verilog-decls-get-outputs (decls) | 7424 | (defsubst verilog-decls-get-outputs (decls) |
| 6917 | (aref decls 0)) | 7425 | (aref decls 0)) |
| 6918 | (defsubst verilog-decls-get-inouts (decls) | 7426 | (defsubst verilog-decls-get-inouts (decls) |
| 6919 | (aref decls 1)) | 7427 | (aref decls 1)) |
| 6920 | (defsubst verilog-decls-get-inputs (decls) | 7428 | (defsubst verilog-decls-get-inputs (decls) |
| 6921 | (aref decls 2)) | 7429 | (aref decls 2)) |
| 6922 | (defsubst verilog-decls-get-wires (decls) | 7430 | (defsubst verilog-decls-get-vars (decls) |
| 6923 | (aref decls 3)) | 7431 | (aref decls 3)) |
| 6924 | (defsubst verilog-decls-get-regs (decls) | 7432 | ;;(defsubst verilog-decls-get-unused (decls) |
| 6925 | (aref decls 4)) | 7433 | ;; (aref decls 4)) |
| 6926 | (defsubst verilog-decls-get-assigns (decls) | 7434 | (defsubst verilog-decls-get-assigns (decls) |
| 6927 | (aref decls 5)) | 7435 | (aref decls 5)) |
| 6928 | (defsubst verilog-decls-get-consts (decls) | 7436 | (defsubst verilog-decls-get-consts (decls) |
| @@ -7026,6 +7534,7 @@ Duplicate signals are also removed. For example A[2] and A[1] become A[2:1]." | |||
| 7026 | buswarn "")) | 7534 | buswarn "")) |
| 7027 | ;; Extract bus details | 7535 | ;; Extract bus details |
| 7028 | (setq bus (verilog-sig-bits sig)) | 7536 | (setq bus (verilog-sig-bits sig)) |
| 7537 | (setq bus (and bus (verilog-simplify-range-expression bus))) | ||
| 7029 | (cond ((and bus | 7538 | (cond ((and bus |
| 7030 | (or (and (string-match "\\[\\([0-9]+\\):\\([0-9]+\\)\\]" bus) | 7539 | (or (and (string-match "\\[\\([0-9]+\\):\\([0-9]+\\)\\]" bus) |
| 7031 | (setq highbit (string-to-number (match-string 1 bus)) | 7540 | (setq highbit (string-to-number (match-string 1 bus)) |
| @@ -7145,9 +7654,10 @@ Ignore width if optional NO-WIDTH is set." | |||
| 7145 | "Return module name when after its ( or ;." | 7654 | "Return module name when after its ( or ;." |
| 7146 | (save-excursion | 7655 | (save-excursion |
| 7147 | (re-search-backward "[(;]") | 7656 | (re-search-backward "[(;]") |
| 7148 | (verilog-re-search-backward-quick "\\b[a-zA-Z0-9`_\$]" nil nil) | 7657 | ;; Due to "module x import y (" we must search for declaration begin |
| 7149 | (skip-chars-backward "a-zA-Z0-9`_$") | 7658 | (verilog-re-search-backward-quick verilog-defun-re nil nil) |
| 7150 | (looking-at "[a-zA-Z0-9`_\$]+") | 7659 | (goto-char (match-end 0)) |
| 7660 | (verilog-re-search-forward-quick "\\b[a-zA-Z0-9`_\$]+" nil nil) | ||
| 7151 | ;; Important: don't use match string, this must work with Emacs 19 font-lock on | 7661 | ;; Important: don't use match string, this must work with Emacs 19 font-lock on |
| 7152 | (verilog-symbol-detick | 7662 | (verilog-symbol-detick |
| 7153 | (buffer-substring-no-properties (match-beginning 0) (match-end 0)) t))) | 7663 | (buffer-substring-no-properties (match-beginning 0) (match-end 0)) t))) |
| @@ -7203,13 +7713,13 @@ Optional NUM-PARAM and MAX-PARAM check for a specific number of parameters." | |||
| 7203 | Return a array of [outputs inouts inputs wire reg assign const]." | 7713 | Return a array of [outputs inouts inputs wire reg assign const]." |
| 7204 | (let ((end-mod-point (or (verilog-get-end-of-defun t) (point-max))) | 7714 | (let ((end-mod-point (or (verilog-get-end-of-defun t) (point-max))) |
| 7205 | (functask 0) (paren 0) (sig-paren 0) (v2kargs-ok t) | 7715 | (functask 0) (paren 0) (sig-paren 0) (v2kargs-ok t) |
| 7206 | in-modport | 7716 | in-modport ign-prop |
| 7207 | sigs-in sigs-out sigs-inout sigs-wire sigs-reg sigs-assign sigs-const | 7717 | sigs-in sigs-out sigs-inout sigs-var sigs-assign sigs-const |
| 7208 | sigs-gparam sigs-intf | 7718 | sigs-gparam sigs-intf |
| 7209 | vec expect-signal keywd newsig rvalue enum io signed typedefed multidim | 7719 | vec expect-signal keywd newsig rvalue enum io signed typedefed multidim |
| 7210 | modport) | 7720 | modport) |
| 7211 | (save-excursion | 7721 | (save-excursion |
| 7212 | (verilog-beg-of-defun) | 7722 | (verilog-beg-of-defun-quick) |
| 7213 | (setq sigs-const (verilog-read-auto-constants (point) end-mod-point)) | 7723 | (setq sigs-const (verilog-read-auto-constants (point) end-mod-point)) |
| 7214 | (while (< (point) end-mod-point) | 7724 | (while (< (point) end-mod-point) |
| 7215 | ;;(if dbg (setq dbg (concat dbg (format "Pt %s Vec %s C%c Kwd'%s'\n" (point) vec (following-char) keywd)))) | 7725 | ;;(if dbg (setq dbg (concat dbg (format "Pt %s Vec %s C%c Kwd'%s'\n" (point) vec (following-char) keywd)))) |
| @@ -7225,16 +7735,16 @@ Return a array of [outputs inouts inputs wire reg assign const]." | |||
| 7225 | (or (search-forward "*/") | 7735 | (or (search-forward "*/") |
| 7226 | (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) | 7736 | (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) |
| 7227 | ((looking-at "(\\*") | 7737 | ((looking-at "(\\*") |
| 7228 | (forward-char 2) | 7738 | ;; To advance past either "(*)" or "(* ... *)" don't forward past first * |
| 7229 | (or (looking-at "\\s-*)") ; It's an "always @ (*)" | 7739 | (forward-char 1) |
| 7230 | (search-forward "*)") | 7740 | (or (search-forward "*)") |
| 7231 | (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) | 7741 | (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) |
| 7232 | ((eq ?\" (following-char)) | 7742 | ((eq ?\" (following-char)) |
| 7233 | (or (re-search-forward "[^\\]\"" nil t) ;; don't forward-char first, since we look for a non backslash first | 7743 | (or (re-search-forward "[^\\]\"" nil t) ;; don't forward-char first, since we look for a non backslash first |
| 7234 | (error "%s: Unmatched quotes, at char %d" (verilog-point-text) (point)))) | 7744 | (error "%s: Unmatched quotes, at char %d" (verilog-point-text) (point)))) |
| 7235 | ((eq ?\; (following-char)) | 7745 | ((eq ?\; (following-char)) |
| 7236 | (setq vec nil io nil expect-signal nil newsig nil paren 0 rvalue nil | 7746 | (setq vec nil io nil expect-signal nil newsig nil paren 0 rvalue nil |
| 7237 | v2kargs-ok nil in-modport nil) | 7747 | v2kargs-ok nil in-modport nil ign-prop nil) |
| 7238 | (forward-char 1)) | 7748 | (forward-char 1)) |
| 7239 | ((eq ?= (following-char)) | 7749 | ((eq ?= (following-char)) |
| 7240 | (setq rvalue t newsig nil) | 7750 | (setq rvalue t newsig nil) |
| @@ -7290,16 +7800,15 @@ Return a array of [outputs inouts inputs wire reg assign const]." | |||
| 7290 | ((equal keywd "parameter") | 7800 | ((equal keywd "parameter") |
| 7291 | (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren | 7801 | (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren |
| 7292 | expect-signal 'sigs-gparam io t modport nil)) | 7802 | expect-signal 'sigs-gparam io t modport nil)) |
| 7293 | ((member keywd '("wire" "tri" "tri0" "tri1" "triand" "trior" "wand" "wor")) | 7803 | ((member keywd '("wire" |
| 7294 | (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren | 7804 | "tri" "tri0" "tri1" "triand" "trior" "wand" "wor" |
| 7295 | expect-signal 'sigs-wire modport nil))) | 7805 | "reg" "trireg" |
| 7296 | ((member keywd '("reg" "trireg" | ||
| 7297 | "byte" "shortint" "int" "longint" "integer" "time" | 7806 | "byte" "shortint" "int" "longint" "integer" "time" |
| 7298 | "bit" "logic" | 7807 | "bit" "logic" |
| 7299 | "shortreal" "real" "realtime" | 7808 | "shortreal" "real" "realtime" |
| 7300 | "string" "event" "chandle")) | 7809 | "string" "event" "chandle")) |
| 7301 | (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren | 7810 | (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren |
| 7302 | expect-signal 'sigs-reg modport nil))) | 7811 | expect-signal 'sigs-var modport nil))) |
| 7303 | ((equal keywd "assign") | 7812 | ((equal keywd "assign") |
| 7304 | (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren | 7813 | (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren |
| 7305 | expect-signal 'sigs-assign modport nil)) | 7814 | expect-signal 'sigs-assign modport nil)) |
| @@ -7307,11 +7816,14 @@ Return a array of [outputs inouts inputs wire reg assign const]." | |||
| 7307 | "localparam" "genvar")) | 7816 | "localparam" "genvar")) |
| 7308 | (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren | 7817 | (unless io (setq vec nil enum nil rvalue nil signed nil typedefed nil multidim nil sig-paren paren |
| 7309 | expect-signal 'sigs-const modport nil))) | 7818 | expect-signal 'sigs-const modport nil))) |
| 7310 | ((equal keywd "signed") | 7819 | ((member keywd '("signed" "unsigned")) |
| 7311 | (setq signed "signed")) | 7820 | (setq signed keywd)) |
| 7821 | ((member keywd '("assert" "assume" "cover" "expect" "restrict")) | ||
| 7822 | (setq ign-prop t)) | ||
| 7312 | ((member keywd '("class" "clocking" "covergroup" "function" | 7823 | ((member keywd '("class" "clocking" "covergroup" "function" |
| 7313 | "property" "randsequence" "sequence" "task")) | 7824 | "property" "randsequence" "sequence" "task")) |
| 7314 | (setq functask (1+ functask))) | 7825 | (unless ign-prop |
| 7826 | (setq functask (1+ functask)))) | ||
| 7315 | ((member keywd '("endclass" "endclocking" "endgroup" "endfunction" | 7827 | ((member keywd '("endclass" "endclocking" "endgroup" "endfunction" |
| 7316 | "endproperty" "endsequence" "endtask")) | 7828 | "endproperty" "endsequence" "endtask")) |
| 7317 | (setq functask (1- functask))) | 7829 | (setq functask (1- functask))) |
| @@ -7354,8 +7866,8 @@ Return a array of [outputs inouts inputs wire reg assign const]." | |||
| 7354 | (verilog-decls-new (nreverse sigs-out) | 7866 | (verilog-decls-new (nreverse sigs-out) |
| 7355 | (nreverse sigs-inout) | 7867 | (nreverse sigs-inout) |
| 7356 | (nreverse sigs-in) | 7868 | (nreverse sigs-in) |
| 7357 | (nreverse sigs-wire) | 7869 | (nreverse sigs-var) |
| 7358 | (nreverse sigs-reg) | 7870 | nil |
| 7359 | (nreverse sigs-assign) | 7871 | (nreverse sigs-assign) |
| 7360 | (nreverse sigs-const) | 7872 | (nreverse sigs-const) |
| 7361 | (nreverse sigs-gparam) | 7873 | (nreverse sigs-gparam) |
| @@ -7442,8 +7954,7 @@ Return a array of [outputs inouts inputs wire reg assign const]." | |||
| 7442 | multidim nil) | 7954 | multidim nil) |
| 7443 | sigs-intf))) | 7955 | sigs-intf))) |
| 7444 | ((setq portdata (and verilog-read-sub-decls-in-interfaced | 7956 | ((setq portdata (and verilog-read-sub-decls-in-interfaced |
| 7445 | (or (assoc port (verilog-decls-get-regs submoddecls)) | 7957 | (assoc port (verilog-decls-get-vars submoddecls)))) |
| 7446 | (assoc port (verilog-decls-get-wires submoddecls))))) | ||
| 7447 | (setq sigs-intfd | 7958 | (setq sigs-intfd |
| 7448 | (cons (verilog-sig-new | 7959 | (cons (verilog-sig-new |
| 7449 | sig | 7960 | sig |
| @@ -7556,7 +8067,8 @@ Inserts the list of signals found, using submodi to look up each port." | |||
| 7556 | submoddecls comment port | 8067 | submoddecls comment port |
| 7557 | (buffer-substring | 8068 | (buffer-substring |
| 7558 | (point) (1- (progn (search-backward "(") ; start at ( | 8069 | (point) (1- (progn (search-backward "(") ; start at ( |
| 7559 | (forward-sexp 1) (point)))))))) ; expr | 8070 | (verilog-forward-sexp-ign-cmt 1) |
| 8071 | (point)))))))) ; expr | ||
| 7560 | ;; | 8072 | ;; |
| 7561 | (forward-line 1))))) | 8073 | (forward-line 1))))) |
| 7562 | 8074 | ||
| @@ -7573,8 +8085,9 @@ Inserts the list of signals found." | |||
| 7573 | (or (search-forward "*/") | 8085 | (or (search-forward "*/") |
| 7574 | (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) | 8086 | (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) |
| 7575 | ((looking-at "(\\*") | 8087 | ((looking-at "(\\*") |
| 7576 | (or (looking-at "(\\*\\s-*)") ; It's a "always @ (*)" | 8088 | ;; To advance past either "(*)" or "(* ... *)" don't forward past first * |
| 7577 | (search-forward "*)") | 8089 | (forward-char 1) |
| 8090 | (or (search-forward "*)") | ||
| 7578 | (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) | 8091 | (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) |
| 7579 | ;; On pins, parse and advance to next pin | 8092 | ;; On pins, parse and advance to next pin |
| 7580 | ;; Looking at pin, but *not* an // Output comment, or ) to end the inst | 8093 | ;; Looking at pin, but *not* an // Output comment, or ) to end the inst |
| @@ -7612,11 +8125,11 @@ Outputs comments above subcell signals, for example: | |||
| 7612 | st-point end-inst-point | 8125 | st-point end-inst-point |
| 7613 | ;; below 3 modified by verilog-read-sub-decls-line | 8126 | ;; below 3 modified by verilog-read-sub-decls-line |
| 7614 | sigs-out sigs-inout sigs-in sigs-intf sigs-intfd) | 8127 | sigs-out sigs-inout sigs-in sigs-intf sigs-intfd) |
| 7615 | (verilog-beg-of-defun) | 8128 | (verilog-beg-of-defun-quick) |
| 7616 | (while (verilog-re-search-forward "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-mod-point t) | 8129 | (while (verilog-re-search-forward-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-mod-point t) |
| 7617 | (save-excursion | 8130 | (save-excursion |
| 7618 | (goto-char (match-beginning 0)) | 8131 | (goto-char (match-beginning 0)) |
| 7619 | (unless (verilog-inside-comment-p) | 8132 | (unless (verilog-inside-comment-or-string-p) |
| 7620 | ;; Attempt to snarf a comment | 8133 | ;; Attempt to snarf a comment |
| 7621 | (let* ((submod (verilog-read-inst-module)) | 8134 | (let* ((submod (verilog-read-inst-module)) |
| 7622 | (inst (verilog-read-inst-name)) | 8135 | (inst (verilog-read-inst-name)) |
| @@ -7629,7 +8142,8 @@ Outputs comments above subcell signals, for example: | |||
| 7629 | submoddecls (verilog-decls-new nil nil nil nil nil nil nil nil nil) | 8142 | submoddecls (verilog-decls-new nil nil nil nil nil nil nil nil nil) |
| 7630 | comment (concat inst " of " submod)) | 8143 | comment (concat inst " of " submod)) |
| 7631 | (verilog-backward-open-paren) | 8144 | (verilog-backward-open-paren) |
| 7632 | (setq end-inst-point (save-excursion (forward-sexp 1) (point)) | 8145 | (setq end-inst-point (save-excursion (verilog-forward-sexp-ign-cmt 1) |
| 8146 | (point)) | ||
| 7633 | st-point (point)) | 8147 | st-point (point)) |
| 7634 | (forward-char 1) | 8148 | (forward-char 1) |
| 7635 | (verilog-read-sub-decls-gate submoddecls comment submod end-inst-point)) | 8149 | (verilog-read-sub-decls-gate submoddecls comment submod end-inst-point)) |
| @@ -7639,7 +8153,8 @@ Outputs comments above subcell signals, for example: | |||
| 7639 | (setq submoddecls (verilog-modi-get-decls submodi) | 8153 | (setq submoddecls (verilog-modi-get-decls submodi) |
| 7640 | verilog-read-sub-decls-gate-ios nil) | 8154 | verilog-read-sub-decls-gate-ios nil) |
| 7641 | (verilog-backward-open-paren) | 8155 | (verilog-backward-open-paren) |
| 7642 | (setq end-inst-point (save-excursion (forward-sexp 1) (point)) | 8156 | (setq end-inst-point (save-excursion (verilog-forward-sexp-ign-cmt 1) |
| 8157 | (point)) | ||
| 7643 | st-point (point)) | 8158 | st-point (point)) |
| 7644 | ;; This could have used a list created by verilog-auto-inst | 8159 | ;; This could have used a list created by verilog-auto-inst |
| 7645 | ;; However I want it to be runnable even on user's manually added signals | 8160 | ;; However I want it to be runnable even on user's manually added signals |
| @@ -7677,10 +8192,10 @@ For example if declare A A (.B(SIG)) then B will be included in the list." | |||
| 7677 | (verilog-backward-open-paren) | 8192 | (verilog-backward-open-paren) |
| 7678 | (while (re-search-forward "\\.\\([^(,) \t\n\f]*\\)\\s-*" end-mod-point t) | 8193 | (while (re-search-forward "\\.\\([^(,) \t\n\f]*\\)\\s-*" end-mod-point t) |
| 7679 | (setq pin (match-string 1)) | 8194 | (setq pin (match-string 1)) |
| 7680 | (unless (verilog-inside-comment-p) | 8195 | (unless (verilog-inside-comment-or-string-p) |
| 7681 | (setq pins (cons (list pin) pins)) | 8196 | (setq pins (cons (list pin) pins)) |
| 7682 | (when (looking-at "(") | 8197 | (when (looking-at "(") |
| 7683 | (forward-sexp 1)))) | 8198 | (verilog-forward-sexp-ign-cmt 1)))) |
| 7684 | (vector pins)))) | 8199 | (vector pins)))) |
| 7685 | 8200 | ||
| 7686 | (defun verilog-read-arg-pins () | 8201 | (defun verilog-read-arg-pins () |
| @@ -7691,7 +8206,7 @@ For example if declare A A (.B(SIG)) then B will be included in the list." | |||
| 7691 | (verilog-backward-open-paren) | 8206 | (verilog-backward-open-paren) |
| 7692 | (while (re-search-forward "\\([a-zA-Z0-9$_.%`]+\\)" end-mod-point t) | 8207 | (while (re-search-forward "\\([a-zA-Z0-9$_.%`]+\\)" end-mod-point t) |
| 7693 | (setq pin (match-string 1)) | 8208 | (setq pin (match-string 1)) |
| 7694 | (unless (verilog-inside-comment-p) | 8209 | (unless (verilog-inside-comment-or-string-p) |
| 7695 | (setq pins (cons (list pin) pins)))) | 8210 | (setq pins (cons (list pin) pins)))) |
| 7696 | (vector pins)))) | 8211 | (vector pins)))) |
| 7697 | 8212 | ||
| @@ -7707,7 +8222,7 @@ For example if declare A A (.B(SIG)) then B will be included in the list." | |||
| 7707 | (search-forward "(" end-mod-point) | 8222 | (search-forward "(" end-mod-point) |
| 7708 | (setq tpl-end-pt (save-excursion | 8223 | (setq tpl-end-pt (save-excursion |
| 7709 | (backward-char 1) | 8224 | (backward-char 1) |
| 7710 | (forward-sexp 1) ;; Moves to paren that closes argdecl's | 8225 | (verilog-forward-sexp-cmt 1) ;; Moves to paren that closes argdecl's |
| 7711 | (backward-char 1) | 8226 | (backward-char 1) |
| 7712 | (point))) | 8227 | (point))) |
| 7713 | (while (re-search-forward "\\s-*\\([\"a-zA-Z0-9$_.%`]+\\)\\s-*,*" tpl-end-pt t) | 8228 | (while (re-search-forward "\\s-*\\([\"a-zA-Z0-9$_.%`]+\\)\\s-*,*" tpl-end-pt t) |
| @@ -7720,6 +8235,7 @@ For example if declare A A (.B(SIG)) then B will be included in the list." | |||
| 7720 | (defun verilog-read-auto-lisp-present () | 8235 | (defun verilog-read-auto-lisp-present () |
| 7721 | "Set `verilog-cache-has-lisp' if any AUTO_LISP in this buffer." | 8236 | "Set `verilog-cache-has-lisp' if any AUTO_LISP in this buffer." |
| 7722 | (save-excursion | 8237 | (save-excursion |
| 8238 | (goto-char (point-min)) | ||
| 7723 | (setq verilog-cache-has-lisp (re-search-forward "\\<AUTO_LISP(" nil t)))) | 8239 | (setq verilog-cache-has-lisp (re-search-forward "\\<AUTO_LISP(" nil t)))) |
| 7724 | 8240 | ||
| 7725 | (defun verilog-read-auto-lisp (start end) | 8241 | (defun verilog-read-auto-lisp (start end) |
| @@ -7732,7 +8248,7 @@ Must call `verilog-read-auto-lisp-present' before this function." | |||
| 7732 | (while (re-search-forward "\\<AUTO_LISP(" end t) | 8248 | (while (re-search-forward "\\<AUTO_LISP(" end t) |
| 7733 | (backward-char) | 8249 | (backward-char) |
| 7734 | (let* ((beg-pt (prog1 (point) | 8250 | (let* ((beg-pt (prog1 (point) |
| 7735 | (forward-sexp 1))) ;; Closing paren | 8251 | (verilog-forward-sexp-cmt 1))) ;; Closing paren |
| 7736 | (end-pt (point))) | 8252 | (end-pt (point))) |
| 7737 | (eval-region beg-pt end-pt nil)))))) | 8253 | (eval-region beg-pt end-pt nil)))))) |
| 7738 | 8254 | ||
| @@ -7741,9 +8257,10 @@ Must call `verilog-read-auto-lisp-present' before this function." | |||
| 7741 | ;; Do not remove the eval-when-compile | 8257 | ;; Do not remove the eval-when-compile |
| 7742 | ;; - we want a error when we are debugging this code if they are refed. | 8258 | ;; - we want a error when we are debugging this code if they are refed. |
| 7743 | (defvar sigs-in) | 8259 | (defvar sigs-in) |
| 7744 | (defvar sigs-out) | 8260 | (defvar sigs-out-d) |
| 8261 | (defvar sigs-out-i) | ||
| 8262 | (defvar sigs-out-unk) | ||
| 7745 | (defvar sigs-temp) | 8263 | (defvar sigs-temp) |
| 7746 | (defvar uses-delayed) | ||
| 7747 | (defvar vector-skip-list)) | 8264 | (defvar vector-skip-list)) |
| 7748 | 8265 | ||
| 7749 | (defun verilog-read-always-signals-recurse | 8266 | (defun verilog-read-always-signals-recurse |
| @@ -7764,8 +8281,9 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement." | |||
| 7764 | (or (search-forward "*/") | 8281 | (or (search-forward "*/") |
| 7765 | (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) | 8282 | (error "%s: Unmatched /* */, at char %d" (verilog-point-text) (point)))) |
| 7766 | ((looking-at "(\\*") | 8283 | ((looking-at "(\\*") |
| 7767 | (or (looking-at "(\\*\\s-*)") ; It's a "always @ (*)" | 8284 | ;; To advance past either "(*)" or "(* ... *)" don't forward past first * |
| 7768 | (search-forward "*)") | 8285 | (forward-char 1) |
| 8286 | (or (search-forward "*)") | ||
| 7769 | (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) | 8287 | (error "%s: Unmatched (* *), at char %d" (verilog-point-text) (point)))) |
| 7770 | (t (setq keywd (buffer-substring-no-properties | 8288 | (t (setq keywd (buffer-substring-no-properties |
| 7771 | (point) | 8289 | (point) |
| @@ -7817,9 +8335,16 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement." | |||
| 7817 | (setq ignore-next t rvalue nil))) | 8335 | (setq ignore-next t rvalue nil))) |
| 7818 | (forward-char 1)) | 8336 | (forward-char 1)) |
| 7819 | ((equal keywd "=") | 8337 | ((equal keywd "=") |
| 7820 | (if (and (eq (char-before) ?< ) | 8338 | (when got-sig |
| 7821 | (not rvalue)) | 8339 | ;;(if dbg (setq dbg (concat dbg (format "\t\tequal got-sig=%S got-list=%s\n" got-sig got-list)))) |
| 7822 | (setq uses-delayed 1)) | 8340 | (set got-list (cons got-sig (symbol-value got-list))) |
| 8341 | (setq got-sig nil)) | ||
| 8342 | (when (not rvalue) | ||
| 8343 | (if (eq (char-before) ?< ) | ||
| 8344 | (setq sigs-out-d (append sigs-out-d sigs-out-unk) | ||
| 8345 | sigs-out-unk nil) | ||
| 8346 | (setq sigs-out-i (append sigs-out-i sigs-out-unk) | ||
| 8347 | sigs-out-unk nil))) | ||
| 7823 | (setq ignore-next nil rvalue t) | 8348 | (setq ignore-next nil rvalue t) |
| 7824 | (forward-char 1)) | 8349 | (forward-char 1)) |
| 7825 | ((equal keywd "?") | 8350 | ((equal keywd "?") |
| @@ -7865,7 +8390,7 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement." | |||
| 7865 | ) | 8390 | ) |
| 7866 | (setq got-list (cond (temp-next 'sigs-temp) | 8391 | (setq got-list (cond (temp-next 'sigs-temp) |
| 7867 | (rvalue 'sigs-in) | 8392 | (rvalue 'sigs-in) |
| 7868 | (t 'sigs-out)) | 8393 | (t 'sigs-out-unk)) |
| 7869 | got-sig (if (or (not keywd) | 8394 | got-sig (if (or (not keywd) |
| 7870 | (assoc keywd (symbol-value got-list))) | 8395 | (assoc keywd (symbol-value got-list))) |
| 7871 | nil (list keywd nil nil)) | 8396 | nil (list keywd nil nil)) |
| @@ -7889,17 +8414,18 @@ IGNORE-NEXT is true to ignore next token, fake from inside case statement." | |||
| 7889 | "Parse always block at point and return list of (outputs inout inputs)." | 8414 | "Parse always block at point and return list of (outputs inout inputs)." |
| 7890 | (save-excursion | 8415 | (save-excursion |
| 7891 | (let* (;;(dbg "") | 8416 | (let* (;;(dbg "") |
| 7892 | sigs-out sigs-temp sigs-in | 8417 | sigs-out-d sigs-out-i sigs-out-unk sigs-temp sigs-in) |
| 7893 | uses-delayed) ;; Found signal/rvalue; push if not function | ||
| 7894 | (search-forward ")") | 8418 | (search-forward ")") |
| 7895 | (verilog-read-always-signals-recurse nil nil nil) | 8419 | (verilog-read-always-signals-recurse nil nil nil) |
| 8420 | (setq sigs-out-i (append sigs-out-i sigs-out-unk) | ||
| 8421 | sigs-out-unk nil) | ||
| 7896 | ;;(if dbg (with-current-buffer (get-buffer-create "*vl-dbg*")) (delete-region (point-min) (point-max)) (insert dbg) (setq dbg "")) | 8422 | ;;(if dbg (with-current-buffer (get-buffer-create "*vl-dbg*")) (delete-region (point-min) (point-max)) (insert dbg) (setq dbg "")) |
| 7897 | ;; Return what was found | 8423 | ;; Return what was found |
| 7898 | (verilog-alw-new sigs-out sigs-temp sigs-in uses-delayed)))) | 8424 | (verilog-alw-new sigs-out-d sigs-out-i sigs-temp sigs-in)))) |
| 7899 | 8425 | ||
| 7900 | (defun verilog-read-instants () | 8426 | (defun verilog-read-instants () |
| 7901 | "Parse module at point and return list of ( ( file instance ) ... )." | 8427 | "Parse module at point and return list of ( ( file instance ) ... )." |
| 7902 | (verilog-beg-of-defun) | 8428 | (verilog-beg-of-defun-quick) |
| 7903 | (let* ((end-mod-point (verilog-get-end-of-defun t)) | 8429 | (let* ((end-mod-point (verilog-get-end-of-defun t)) |
| 7904 | (state nil) | 8430 | (state nil) |
| 7905 | (instants-list nil)) | 8431 | (instants-list nil)) |
| @@ -7930,7 +8456,7 @@ list of ( (signal_name connection_name)... )." | |||
| 7930 | (save-excursion | 8456 | (save-excursion |
| 7931 | ;; Find beginning | 8457 | ;; Find beginning |
| 7932 | (let ((tpl-regexp "\\([0-9]+\\)") | 8458 | (let ((tpl-regexp "\\([0-9]+\\)") |
| 7933 | (lineno 0) | 8459 | (lineno -1) ; -1 to offset for the AUTO_TEMPLATE's newline |
| 7934 | (templateno 0) | 8460 | (templateno 0) |
| 7935 | (pt (point)) | 8461 | (pt (point)) |
| 7936 | tpl-sig-list tpl-wild-list tpl-end-pt rep) | 8462 | tpl-sig-list tpl-wild-list tpl-end-pt rep) |
| @@ -7962,22 +8488,27 @@ list of ( (signal_name connection_name)... )." | |||
| 7962 | ;; Parse lines in the template | 8488 | ;; Parse lines in the template |
| 7963 | (when verilog-auto-inst-template-numbers | 8489 | (when verilog-auto-inst-template-numbers |
| 7964 | (save-excursion | 8490 | (save-excursion |
| 7965 | (goto-char (point-min)) | 8491 | (let ((pre-pt (point))) |
| 7966 | (while (search-forward "AUTO_TEMPLATE" nil t) | 8492 | (goto-char (point-min)) |
| 7967 | (setq templateno (1+ templateno))))) | 8493 | (while (search-forward "AUTO_TEMPLATE" pre-pt t) |
| 8494 | (setq templateno (1+ templateno))) | ||
| 8495 | (while (< (point) pre-pt) | ||
| 8496 | (forward-line 1) | ||
| 8497 | (setq lineno (1+ lineno)))))) | ||
| 7968 | (setq tpl-end-pt (save-excursion | 8498 | (setq tpl-end-pt (save-excursion |
| 7969 | (backward-char 1) | 8499 | (backward-char 1) |
| 7970 | (forward-sexp 1) ;; Moves to paren that closes argdecl's | 8500 | (verilog-forward-sexp-cmt 1) ;; Moves to paren that closes argdecl's |
| 7971 | (backward-char 1) | 8501 | (backward-char 1) |
| 7972 | (point))) | 8502 | (point))) |
| 7973 | ;; | 8503 | ;; |
| 7974 | (while (< (point) tpl-end-pt) | 8504 | (while (< (point) tpl-end-pt) |
| 7975 | (cond ((looking-at "\\s-*\\.\\([a-zA-Z0-9`_$]+\\)\\s-*(\\(.*\\))\\s-*\\(,\\|)\\s-*;\\)") | 8505 | (cond ((looking-at "\\s-*\\.\\([a-zA-Z0-9`_$]+\\)\\s-*(\\(.*\\))\\s-*\\(,\\|)\\s-*;\\)") |
| 7976 | (setq tpl-sig-list (cons (list | 8506 | (setq tpl-sig-list |
| 7977 | (match-string-no-properties 1) | 8507 | (cons (list |
| 7978 | (match-string-no-properties 2) | 8508 | (match-string-no-properties 1) |
| 7979 | templateno lineno) | 8509 | (match-string-no-properties 2) |
| 7980 | tpl-sig-list)) | 8510 | templateno lineno) |
| 8511 | tpl-sig-list)) | ||
| 7981 | (goto-char (match-end 0))) | 8512 | (goto-char (match-end 0))) |
| 7982 | ;; Regexp form?? | 8513 | ;; Regexp form?? |
| 7983 | ((looking-at | 8514 | ((looking-at |
| @@ -8000,7 +8531,8 @@ list of ( (signal_name connection_name)... )." | |||
| 8000 | (setq lineno (1+ lineno)) | 8531 | (setq lineno (1+ lineno)) |
| 8001 | (goto-char (match-end 0))) | 8532 | (goto-char (match-end 0))) |
| 8002 | ((looking-at "//") | 8533 | ((looking-at "//") |
| 8003 | (search-forward "\n")) | 8534 | (search-forward "\n") |
| 8535 | (setq lineno (1+ lineno))) | ||
| 8004 | ((looking-at "/\\*") | 8536 | ((looking-at "/\\*") |
| 8005 | (forward-char 2) | 8537 | (forward-char 2) |
| 8006 | (or (search-forward "*/") | 8538 | (or (search-forward "*/") |
| @@ -8086,7 +8618,7 @@ warning message, you need to add to your .emacs file: | |||
| 8086 | (while (re-search-forward "^\\s-*`include\\s-+\\([^ \t\n\f]+\\)" nil t) | 8618 | (while (re-search-forward "^\\s-*`include\\s-+\\([^ \t\n\f]+\\)" nil t) |
| 8087 | (let ((inc (verilog-string-replace-matches | 8619 | (let ((inc (verilog-string-replace-matches |
| 8088 | "\"" "" nil nil (match-string-no-properties 1)))) | 8620 | "\"" "" nil nil (match-string-no-properties 1)))) |
| 8089 | (unless (verilog-inside-comment-p) | 8621 | (unless (verilog-inside-comment-or-string-p) |
| 8090 | (verilog-read-defines inc recurse t))))) | 8622 | (verilog-read-defines inc recurse t))))) |
| 8091 | ;; Read `defines | 8623 | ;; Read `defines |
| 8092 | ;; note we don't use verilog-re... it's faster this way, and that | 8624 | ;; note we don't use verilog-re... it's faster this way, and that |
| @@ -8100,14 +8632,15 @@ warning message, you need to add to your .emacs file: | |||
| 8100 | ;; Hack: Read parameters | 8632 | ;; Hack: Read parameters |
| 8101 | (goto-char (point-min)) | 8633 | (goto-char (point-min)) |
| 8102 | (while (re-search-forward | 8634 | (while (re-search-forward |
| 8103 | "^\\s-*\\(parameter\\|localparam\\)\\(\\s-*\\[[^]]*\\]\\)?\\s-+" nil t) | 8635 | "^\\s-*\\(parameter\\|localparam\\)\\(\\s-*\\[[^]]*\\]\\)?\\s-*" nil t) |
| 8104 | (let (enumname) | 8636 | (let (enumname) |
| 8105 | ;; The primary way of getting defines is verilog-read-decls | 8637 | ;; The primary way of getting defines is verilog-read-decls |
| 8106 | ;; However, that isn't called yet for included files, so we'll add another scheme | 8638 | ;; However, that isn't called yet for included files, so we'll add another scheme |
| 8107 | (if (looking-at "[^\n]*synopsys\\s +enum\\s +\\([a-zA-Z0-9_]+\\)") | 8639 | (if (looking-at "[^\n]*synopsys\\s +enum\\s +\\([a-zA-Z0-9_]+\\)") |
| 8108 | (setq enumname (match-string-no-properties 1))) | 8640 | (setq enumname (match-string-no-properties 1))) |
| 8109 | (forward-comment 999) | 8641 | (forward-comment 999) |
| 8110 | (while (looking-at "\\s-*,?\\s-*\\([a-zA-Z0-9_$]+\\)\\s-*=\\s-*\\([^;,]*\\),?\\s-*") | 8642 | (while (looking-at (concat "\\s-*,?\\s-*\\(?:/[/*].*?$\\)?\\s-*\\([a-zA-Z0-9_$]+\\)" |
| 8643 | "\\s-*=\\s-*\\([^;,]*\\),?\\s-*\\(/[/*].*?$\\)?\\s-*")) | ||
| 8111 | (verilog-set-define (match-string-no-properties 1) | 8644 | (verilog-set-define (match-string-no-properties 1) |
| 8112 | (match-string-no-properties 2) origbuf enumname) | 8645 | (match-string-no-properties 2) origbuf enumname) |
| 8113 | (goto-char (match-end 0)) | 8646 | (goto-char (match-end 0)) |
| @@ -8278,11 +8811,11 @@ Some macros and such are also found and included. For dinotrace.el." | |||
| 8278 | verilog-library-files | 8811 | verilog-library-files |
| 8279 | verilog-library-flags))) | 8812 | verilog-library-flags))) |
| 8280 | ;; Allow user to customize | 8813 | ;; Allow user to customize |
| 8281 | (run-hooks 'verilog-before-getopt-flags-hook) | 8814 | (verilog-run-hooks 'verilog-before-getopt-flags-hook) |
| 8282 | ;; Process arguments | 8815 | ;; Process arguments |
| 8283 | (verilog-getopt verilog-library-flags) | 8816 | (verilog-getopt verilog-library-flags) |
| 8284 | ;; Allow user to customize | 8817 | ;; Allow user to customize |
| 8285 | (run-hooks 'verilog-getopt-flags-hook)) | 8818 | (verilog-run-hooks 'verilog-getopt-flags-hook)) |
| 8286 | 8819 | ||
| 8287 | (defun verilog-add-list-unique (varref object) | 8820 | (defun verilog-add-list-unique (varref object) |
| 8288 | "Append to VARREF list the given OBJECT, | 8821 | "Append to VARREF list the given OBJECT, |
| @@ -8387,7 +8920,7 @@ Allows version control to check out the file if need be." | |||
| 8387 | (while (and | 8920 | (while (and |
| 8388 | ;; It may be tempting to look for verilog-defun-re, | 8921 | ;; It may be tempting to look for verilog-defun-re, |
| 8389 | ;; don't, it slows things down a lot! | 8922 | ;; don't, it slows things down a lot! |
| 8390 | (verilog-re-search-forward-quick "\\<\\(module\\|interface\\)\\>" nil t) | 8923 | (verilog-re-search-forward-quick "\\<\\(module\\|interface\\|program\\)\\>" nil t) |
| 8391 | (setq type (match-string-no-properties 0)) | 8924 | (setq type (match-string-no-properties 0)) |
| 8392 | (verilog-re-search-forward-quick "[(;]" nil t)) | 8925 | (verilog-re-search-forward-quick "[(;]" nil t)) |
| 8393 | (if (equal module (verilog-read-module-name)) | 8926 | (if (equal module (verilog-read-module-name)) |
| @@ -8804,13 +9337,12 @@ if non-nil." | |||
| 8804 | 9337 | ||
| 8805 | ;; Combined | 9338 | ;; Combined |
| 8806 | (defun verilog-decls-get-signals (decls) | 9339 | (defun verilog-decls-get-signals (decls) |
| 9340 | "Return all declared signals, excluding 'assign' statements." | ||
| 8807 | (append | 9341 | (append |
| 8808 | (verilog-decls-get-outputs decls) | 9342 | (verilog-decls-get-outputs decls) |
| 8809 | (verilog-decls-get-inouts decls) | 9343 | (verilog-decls-get-inouts decls) |
| 8810 | (verilog-decls-get-inputs decls) | 9344 | (verilog-decls-get-inputs decls) |
| 8811 | (verilog-decls-get-wires decls) | 9345 | (verilog-decls-get-vars decls) |
| 8812 | (verilog-decls-get-regs decls) | ||
| 8813 | (verilog-decls-get-assigns decls) | ||
| 8814 | (verilog-decls-get-consts decls) | 9346 | (verilog-decls-get-consts decls) |
| 8815 | (verilog-decls-get-gparams decls))) | 9347 | (verilog-decls-get-gparams decls))) |
| 8816 | 9348 | ||
| @@ -8826,10 +9358,8 @@ if non-nil." | |||
| 8826 | (verilog-modi-cache-add modi 'verilog-read-decls 1 sig-list)) | 9358 | (verilog-modi-cache-add modi 'verilog-read-decls 1 sig-list)) |
| 8827 | (defsubst verilog-modi-cache-add-inputs (modi sig-list) | 9359 | (defsubst verilog-modi-cache-add-inputs (modi sig-list) |
| 8828 | (verilog-modi-cache-add modi 'verilog-read-decls 2 sig-list)) | 9360 | (verilog-modi-cache-add modi 'verilog-read-decls 2 sig-list)) |
| 8829 | (defsubst verilog-modi-cache-add-wires (modi sig-list) | 9361 | (defsubst verilog-modi-cache-add-vars (modi sig-list) |
| 8830 | (verilog-modi-cache-add modi 'verilog-read-decls 3 sig-list)) | 9362 | (verilog-modi-cache-add modi 'verilog-read-decls 3 sig-list)) |
| 8831 | (defsubst verilog-modi-cache-add-regs (modi sig-list) | ||
| 8832 | (verilog-modi-cache-add modi 'verilog-read-decls 4 sig-list)) | ||
| 8833 | 9363 | ||
| 8834 | (defun verilog-signals-from-signame (signame-list) | 9364 | (defun verilog-signals-from-signame (signame-list) |
| 8835 | "Return signals in standard form from SIGNAME-LIST, a simple list of signal names." | 9365 | "Return signals in standard form from SIGNAME-LIST, a simple list of signal names." |
| @@ -8843,7 +9373,7 @@ if non-nil." | |||
| 8843 | (defun verilog-auto-re-search-do (search-for func) | 9373 | (defun verilog-auto-re-search-do (search-for func) |
| 8844 | "Search for the given auto text regexp SEARCH-FOR, and perform FUNC where it occurs." | 9374 | "Search for the given auto text regexp SEARCH-FOR, and perform FUNC where it occurs." |
| 8845 | (goto-char (point-min)) | 9375 | (goto-char (point-min)) |
| 8846 | (while (verilog-re-search-forward search-for nil t) | 9376 | (while (verilog-re-search-forward-quick search-for nil t) |
| 8847 | (funcall func))) | 9377 | (funcall func))) |
| 8848 | 9378 | ||
| 8849 | (defun verilog-insert-one-definition (sig type indent-pt) | 9379 | (defun verilog-insert-one-definition (sig type indent-pt) |
| @@ -8867,10 +9397,31 @@ with appropriate INDENT-PT indentation." | |||
| 8867 | (when (verilog-sig-memory sig) | 9397 | (when (verilog-sig-memory sig) |
| 8868 | (insert " " (verilog-sig-memory sig)))) | 9398 | (insert " " (verilog-sig-memory sig)))) |
| 8869 | 9399 | ||
| 8870 | (defun verilog-insert-definition (sigs direction indent-pt v2k &optional dont-sort) | 9400 | (defun verilog-insert-definition (modi sigs direction indent-pt v2k &optional dont-sort) |
| 8871 | "Print out a definition for a list of SIGS of the given DIRECTION, | 9401 | "Print out a definition for MODI's list of SIGS of the given DIRECTION, |
| 8872 | with appropriate INDENT-PT indentation. If V2K, use Verilog 2001 I/O | 9402 | with appropriate INDENT-PT indentation. If V2K, use Verilog 2001 I/O |
| 8873 | format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output." | 9403 | format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output. |
| 9404 | When MODI is non-null, also add to modi-cache, for tracking." | ||
| 9405 | (when modi | ||
| 9406 | (cond ((equal direction "wire") | ||
| 9407 | (verilog-modi-cache-add-vars modi sigs)) | ||
| 9408 | ((equal direction "reg") | ||
| 9409 | (verilog-modi-cache-add-vars modi sigs)) | ||
| 9410 | ((equal direction "output") | ||
| 9411 | (verilog-modi-cache-add-outputs modi sigs) | ||
| 9412 | (when verilog-auto-declare-nettype | ||
| 9413 | (verilog-modi-cache-add-vars modi sigs))) | ||
| 9414 | ((equal direction "input") | ||
| 9415 | (verilog-modi-cache-add-inputs modi sigs) | ||
| 9416 | (when verilog-auto-declare-nettype | ||
| 9417 | (verilog-modi-cache-add-vars modi sigs))) | ||
| 9418 | ((equal direction "inout") | ||
| 9419 | (verilog-modi-cache-add-inouts modi sigs) | ||
| 9420 | (when verilog-auto-declare-nettype | ||
| 9421 | (verilog-modi-cache-add-vars modi sigs))) | ||
| 9422 | ((equal direction "interface")) | ||
| 9423 | (t | ||
| 9424 | (error "Unsupported verilog-insert-definition direction: %s" direction)))) | ||
| 8874 | (or dont-sort | 9425 | (or dont-sort |
| 8875 | (setq sigs (sort (copy-alist sigs) `verilog-signals-sort-compare))) | 9426 | (setq sigs (sort (copy-alist sigs) `verilog-signals-sort-compare))) |
| 8876 | (while sigs | 9427 | (while sigs |
| @@ -8878,12 +9429,18 @@ format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output." | |||
| 8878 | (verilog-insert-one-definition | 9429 | (verilog-insert-one-definition |
| 8879 | sig | 9430 | sig |
| 8880 | ;; Want "type x" or "output type x", not "wire type x" | 9431 | ;; Want "type x" or "output type x", not "wire type x" |
| 8881 | (cond ((verilog-sig-type sig) | 9432 | (cond ((or (verilog-sig-type sig) |
| 9433 | verilog-auto-wire-type) | ||
| 8882 | (concat | 9434 | (concat |
| 8883 | (if (not (member direction '("wire" "interface"))) | 9435 | (when (member direction '("input" "output" "inout")) |
| 8884 | (concat direction " ")) | 9436 | (concat direction " ")) |
| 8885 | (verilog-sig-type sig))) | 9437 | (or (verilog-sig-type sig) |
| 8886 | (t direction)) | 9438 | verilog-auto-wire-type))) |
| 9439 | ((and verilog-auto-declare-nettype | ||
| 9440 | (member direction '("input" "output" "inout"))) | ||
| 9441 | (concat direction " " verilog-auto-declare-nettype)) | ||
| 9442 | (t | ||
| 9443 | direction)) | ||
| 8887 | indent-pt) | 9444 | indent-pt) |
| 8888 | (insert (if v2k "," ";")) | 9445 | (insert (if v2k "," ";")) |
| 8889 | (if (or (not (verilog-sig-comment sig)) | 9446 | (if (or (not (verilog-sig-comment sig)) |
| @@ -8914,7 +9471,7 @@ Presumes that any newlines end a list element." | |||
| 8914 | ;; We can't just search backward for ) as it might be inside another expression. | 9471 | ;; We can't just search backward for ) as it might be inside another expression. |
| 8915 | ;; Also want "`ifdef X input foo `endif" to just leave things to the human to deal with | 9472 | ;; Also want "`ifdef X input foo `endif" to just leave things to the human to deal with |
| 8916 | (save-excursion | 9473 | (save-excursion |
| 8917 | (verilog-backward-syntactic-ws) | 9474 | (verilog-backward-syntactic-ws-quick) |
| 8918 | (when (and (not (save-excursion ;; Not beginning (, or existing , | 9475 | (when (and (not (save-excursion ;; Not beginning (, or existing , |
| 8919 | (backward-char 1) | 9476 | (backward-char 1) |
| 8920 | (looking-at "[(,]"))) | 9477 | (looking-at "[(,]"))) |
| @@ -8931,7 +9488,7 @@ This repairs those mis-inserted by a AUTOARG." | |||
| 8931 | (save-excursion | 9488 | (save-excursion |
| 8932 | (verilog-forward-close-paren) | 9489 | (verilog-forward-close-paren) |
| 8933 | (backward-char 1) | 9490 | (backward-char 1) |
| 8934 | (verilog-backward-syntactic-ws) | 9491 | (verilog-backward-syntactic-ws-quick) |
| 8935 | (backward-char 1) | 9492 | (backward-char 1) |
| 8936 | (when (looking-at ",") | 9493 | (when (looking-at ",") |
| 8937 | (delete-char 1)))) | 9494 | (delete-char 1)))) |
| @@ -8978,27 +9535,68 @@ This repairs those mis-inserted by a AUTOARG." | |||
| 8978 | (t nil))))) | 9535 | (t nil))))) |
| 8979 | ;;(verilog-make-width-expression "`A:`B") | 9536 | ;;(verilog-make-width-expression "`A:`B") |
| 8980 | 9537 | ||
| 8981 | (defun verilog-simplify-range-expression (range-exp) | 9538 | (defun verilog-simplify-range-expression (expr) |
| 8982 | "Return a simplified range expression with constants eliminated from RANGE-EXP." | 9539 | "Return a simplified range expression with constants eliminated from EXPR." |
| 8983 | (let ((out range-exp) | 9540 | ;; Note this is always called with brackets; ie [z] or [z:z] |
| 8984 | (last-pass "")) | 9541 | (if (not (string-match "[---+*()]" expr)) |
| 8985 | (while (not (equal last-pass out)) | 9542 | expr ;; short-circuit |
| 8986 | (setq last-pass out) | 9543 | (let ((out expr) |
| 8987 | (while (string-match "(\\<\\([0-9A-Z-az_]+\\)\\>)" out) | 9544 | (last-pass "")) |
| 8988 | (setq out (replace-match "\\1" nil nil out))) | 9545 | (while (not (equal last-pass out)) |
| 8989 | (while (string-match "\\<\\([0-9]+\\)\\>\\s *\\+\\s *\\<\\([0-9]+\\)\\>" out) | 9546 | (setq last-pass out) |
| 8990 | (setq out (replace-match | 9547 | ;; Prefix regexp needs beginning of match, or some symbol of |
| 8991 | (int-to-string (+ (string-to-number (match-string 1 out)) | 9548 | ;; lesser or equal precedence. We assume the [:]'s exist in expr. |
| 8992 | (string-to-number (match-string 2 out)))) | 9549 | ;; Ditto the end. |
| 8993 | nil nil out))) | 9550 | (while (string-match |
| 8994 | (while (string-match "\\<\\([0-9]+\\)\\>\\s *\\-\\s *\\<\\([0-9]+\\)\\>" out) | 9551 | (concat "\\([[({:*+-]\\)" ; - must be last |
| 8995 | (setq out (replace-match | 9552 | "(\\<\\([0-9A-Za-z_]+\\))" |
| 8996 | (int-to-string (- (string-to-number (match-string 1 out)) | 9553 | "\\([])}:*+-]\\)") |
| 8997 | (string-to-number (match-string 2 out)))) | 9554 | out) |
| 8998 | nil nil out)))) | 9555 | (setq out (replace-match "\\1\\2\\3" nil nil out))) |
| 8999 | out)) | 9556 | ;; For precedence do * before +/- |
| 9000 | ;;(verilog-simplify-range-expression "1") | 9557 | (while (string-match |
| 9001 | ;;(verilog-simplify-range-expression "(((16)+1)-3)") | 9558 | (concat "\\([[({:*+-]\\)" |
| 9559 | "\\([0-9]+\\)\\s *\\([*]\\)\\s *\\([0-9]+\\)" | ||
| 9560 | "\\([])}:*+-]\\)") | ||
| 9561 | out) | ||
| 9562 | (setq out (replace-match | ||
| 9563 | (concat (match-string 1 out) | ||
| 9564 | (int-to-string (* (string-to-number (match-string 2 out)) | ||
| 9565 | (string-to-number (match-string 4 out)))) | ||
| 9566 | (match-string 5 out)) | ||
| 9567 | nil nil out))) | ||
| 9568 | (while (string-match | ||
| 9569 | (concat "\\([[({:+-]\\)" ; No * here as higher prec | ||
| 9570 | "\\([0-9]+\\)\\s *\\([---+]\\)\\s *\\([0-9]+\\)" | ||
| 9571 | "\\([])}:+-]\\)") | ||
| 9572 | out) | ||
| 9573 | (let ((pre (match-string 1 out)) | ||
| 9574 | (lhs (string-to-number (match-string 2 out))) | ||
| 9575 | (rhs (string-to-number (match-string 4 out))) | ||
| 9576 | (post (match-string 5 out)) | ||
| 9577 | val) | ||
| 9578 | (when (equal pre "-") | ||
| 9579 | (setq lhs (- lhs))) | ||
| 9580 | (setq val (if (equal (match-string 3 out) "-") | ||
| 9581 | (- lhs rhs) | ||
| 9582 | (+ lhs rhs)) | ||
| 9583 | out (replace-match | ||
| 9584 | (concat (if (and (equal pre "-") | ||
| 9585 | (< val 0)) | ||
| 9586 | "" ;; Not "--20" but just "-20" | ||
| 9587 | pre) | ||
| 9588 | (int-to-string val) | ||
| 9589 | post) | ||
| 9590 | nil nil out)) ))) | ||
| 9591 | out))) | ||
| 9592 | ;;(verilog-simplify-range-expression "[1:3]") ;; 1 | ||
| 9593 | ;;(verilog-simplify-range-expression "[(1):3]") ;; 1 | ||
| 9594 | ;;(verilog-simplify-range-expression "[(((16)+1)+1+(1+1))]") ;;20 | ||
| 9595 | ;;(verilog-simplify-range-expression "[(2*3+6*7)]") ;; 48 | ||
| 9596 | ;;(verilog-simplify-range-expression "[(FOO*4-1*2)]") ;; FOO*4-2 | ||
| 9597 | ;;(verilog-simplify-range-expression "[(FOO*4+1-1)]") ;; FOO*4+0 | ||
| 9598 | ;;(verilog-simplify-range-expression "[(func(BAR))]") ;; func(BAR) | ||
| 9599 | ;;(verilog-simplify-range-expression "[FOO-1+1-1+1]") ;; FOO-0 | ||
| 9002 | 9600 | ||
| 9003 | (defun verilog-typedef-name-p (variable-name) | 9601 | (defun verilog-typedef-name-p (variable-name) |
| 9004 | "Return true if the VARIABLE-NAME is a type definition." | 9602 | "Return true if the VARIABLE-NAME is a type definition." |
| @@ -9011,15 +9609,17 @@ This repairs those mis-inserted by a AUTOARG." | |||
| 9011 | 9609 | ||
| 9012 | (defun verilog-delete-autos-lined () | 9610 | (defun verilog-delete-autos-lined () |
| 9013 | "Delete autos that occupy multiple lines, between begin and end comments." | 9611 | "Delete autos that occupy multiple lines, between begin and end comments." |
| 9612 | ;; The newline must not have a comment property, so we must | ||
| 9613 | ;; delete the end auto's newline, not the first newline | ||
| 9614 | (forward-line 1) | ||
| 9014 | (let ((pt (point))) | 9615 | (let ((pt (point))) |
| 9015 | (forward-line 1) | ||
| 9016 | (when (and | 9616 | (when (and |
| 9017 | (looking-at "\\s-*// Beginning") | 9617 | (looking-at "\\s-*// Beginning") |
| 9018 | (search-forward "// End of automatic" nil t)) | 9618 | (search-forward "// End of automatic" nil t)) |
| 9019 | ;; End exists | 9619 | ;; End exists |
| 9020 | (end-of-line) | 9620 | (end-of-line) |
| 9021 | (delete-region pt (point)) | 9621 | (forward-line 1) |
| 9022 | (forward-line 1)))) | 9622 | (delete-region pt (point))))) |
| 9023 | 9623 | ||
| 9024 | (defun verilog-delete-empty-auto-pair () | 9624 | (defun verilog-delete-empty-auto-pair () |
| 9025 | "Delete begin/end auto pair at point, if empty." | 9625 | "Delete begin/end auto pair at point, if empty." |
| @@ -9066,11 +9666,11 @@ Ignore other open bracket with matching close bracket." | |||
| 9066 | 9666 | ||
| 9067 | (defun verilog-delete-to-paren () | 9667 | (defun verilog-delete-to-paren () |
| 9068 | "Delete the automatic inst/sense/arg created by autos. | 9668 | "Delete the automatic inst/sense/arg created by autos. |
| 9069 | Deletion stops at the matching end parenthesis." | 9669 | Deletion stops at the matching end parenthesis, outside comments." |
| 9070 | (delete-region (point) | 9670 | (delete-region (point) |
| 9071 | (save-excursion | 9671 | (save-excursion |
| 9072 | (verilog-backward-open-paren) | 9672 | (verilog-backward-open-paren) |
| 9073 | (forward-sexp 1) ;; Moves to paren that closes argdecl's | 9673 | (verilog-forward-sexp-ign-cmt 1) ;; Moves to paren that closes argdecl's |
| 9074 | (backward-char 1) | 9674 | (backward-char 1) |
| 9075 | (point)))) | 9675 | (point)))) |
| 9076 | 9676 | ||
| @@ -9078,7 +9678,8 @@ Deletion stops at the matching end parenthesis." | |||
| 9078 | "Return if a .* AUTOINST is safe to delete or expand. | 9678 | "Return if a .* AUTOINST is safe to delete or expand. |
| 9079 | It was created by the AUTOS themselves, or by the user." | 9679 | It was created by the AUTOS themselves, or by the user." |
| 9080 | (and verilog-auto-star-expand | 9680 | (and verilog-auto-star-expand |
| 9081 | (looking-at "[ \t\n\f,]*\\([)]\\|// \\(Outputs\\|Inouts\\|Inputs\\|Interfaces\\)\\)"))) | 9681 | (looking-at |
| 9682 | (concat "[ \t\n\f,]*\\([)]\\|// " verilog-inst-comment-re "\\)")))) | ||
| 9082 | 9683 | ||
| 9083 | (defun verilog-delete-auto-star-all () | 9684 | (defun verilog-delete-auto-star-all () |
| 9084 | "Delete a .* AUTOINST, if it is safe." | 9685 | "Delete a .* AUTOINST, if it is safe." |
| @@ -9110,7 +9711,7 @@ removed." | |||
| 9110 | (save-excursion | 9711 | (save-excursion |
| 9111 | (while (progn | 9712 | (while (progn |
| 9112 | (forward-line -1) | 9713 | (forward-line -1) |
| 9113 | (looking-at "\\s *//\\s *\\(Outputs\\|Inouts\\|Inputs\\|Interfaces\\)\n")) | 9714 | (looking-at (concat "\\s *//\\s *" verilog-inst-comment-re "\n"))) |
| 9114 | (delete-region (match-beginning 0) (match-end 0)))) | 9715 | (delete-region (match-beginning 0) (match-end 0)))) |
| 9115 | ;; If it is simple, we can put the ); on the same line as the last text | 9716 | ;; If it is simple, we can put the ); on the same line as the last text |
| 9116 | (let ((rtn-pt (point))) | 9717 | (let ((rtn-pt (point))) |
| @@ -9139,18 +9740,13 @@ called before and after this function, respectively." | |||
| 9139 | (verilog-save-no-change-functions | 9740 | (verilog-save-no-change-functions |
| 9140 | (verilog-save-scan-cache | 9741 | (verilog-save-scan-cache |
| 9141 | ;; Allow user to customize | 9742 | ;; Allow user to customize |
| 9142 | (run-hooks 'verilog-before-delete-auto-hook) | 9743 | (verilog-run-hooks 'verilog-before-delete-auto-hook) |
| 9143 | 9744 | ||
| 9144 | ;; Remove those that have multi-line insertions, possibly with parameters | 9745 | ;; Remove those that have multi-line insertions, possibly with parameters |
| 9746 | ;; We allow anything beginning with AUTO, so that users can add their own | ||
| 9747 | ;; patterns | ||
| 9145 | (verilog-auto-re-search-do | 9748 | (verilog-auto-re-search-do |
| 9146 | (concat "/\\*" | 9749 | (concat "/\\*AUTO[A-Za-z0-9_]+" |
| 9147 | (eval-when-compile | ||
| 9148 | (verilog-regexp-words | ||
| 9149 | `("AUTOASCIIENUM" "AUTOCONCATCOMMENT" "AUTODEFINEVALUE" | ||
| 9150 | "AUTOINOUT" "AUTOINOUTCOMP" "AUTOINOUTMODULE" | ||
| 9151 | "AUTOINPUT" "AUTOINSERTLISP" "AUTOOUTPUT" "AUTOOUTPUTEVERY" | ||
| 9152 | "AUTOREG" "AUTOREGINPUT" "AUTORESET" "AUTOTIEOFF" | ||
| 9153 | "AUTOUNUSED" "AUTOWIRE"))) | ||
| 9154 | ;; Optional parens or quoted parameter or .* for (((...))) | 9750 | ;; Optional parens or quoted parameter or .* for (((...))) |
| 9155 | "\\(\\|([^)]*)\\|(\"[^\"]*\")\\).*?" | 9751 | "\\(\\|([^)]*)\\|(\"[^\"]*\")\\).*?" |
| 9156 | "\\*/") | 9752 | "\\*/") |
| @@ -9169,11 +9765,11 @@ called before and after this function, respectively." | |||
| 9169 | 'verilog-delete-auto-star-all) | 9765 | 'verilog-delete-auto-star-all) |
| 9170 | ;; Remove template comments ... anywhere in case was pasted after AUTOINST removed | 9766 | ;; Remove template comments ... anywhere in case was pasted after AUTOINST removed |
| 9171 | (goto-char (point-min)) | 9767 | (goto-char (point-min)) |
| 9172 | (while (re-search-forward "\\s-*// \\(Templated\\|Implicit \\.\\*\\)[ \tLT0-9]*$" nil t) | 9768 | (while (re-search-forward "\\s-*// \\(Templated\\|Implicit \\.\\*\\)\\([ \tLT0-9]*\\| LHS: .*\\)?$" nil t) |
| 9173 | (replace-match "")) | 9769 | (replace-match "")) |
| 9174 | 9770 | ||
| 9175 | ;; Final customize | 9771 | ;; Final customize |
| 9176 | (run-hooks 'verilog-delete-auto-hook))))) | 9772 | (verilog-run-hooks 'verilog-delete-auto-hook))))) |
| 9177 | 9773 | ||
| 9178 | ;; | 9774 | ;; |
| 9179 | ;; Auto inject | 9775 | ;; Auto inject |
| @@ -9235,7 +9831,7 @@ Typing \\[verilog-inject-auto] will make this into: | |||
| 9235 | (when (not (re-search-forward "/\\*AUTOARG\\*/" endmodp t)) | 9831 | (when (not (re-search-forward "/\\*AUTOARG\\*/" endmodp t)) |
| 9236 | (verilog-re-search-forward-quick ";" nil t) | 9832 | (verilog-re-search-forward-quick ";" nil t) |
| 9237 | (backward-char 1) | 9833 | (backward-char 1) |
| 9238 | (verilog-backward-syntactic-ws) | 9834 | (verilog-backward-syntactic-ws-quick) |
| 9239 | (backward-char 1) ; Moves to paren that closes argdecl's | 9835 | (backward-char 1) ; Moves to paren that closes argdecl's |
| 9240 | (when (looking-at ")") | 9836 | (when (looking-at ")") |
| 9241 | (verilog-insert "/*AUTOARG*/"))))))) | 9837 | (verilog-insert "/*AUTOARG*/"))))))) |
| @@ -9251,9 +9847,9 @@ Typing \\[verilog-inject-auto] will make this into: | |||
| 9251 | pre-sigs | 9847 | pre-sigs |
| 9252 | got-sigs) | 9848 | got-sigs) |
| 9253 | (backward-char 1) | 9849 | (backward-char 1) |
| 9254 | (forward-sexp 1) | 9850 | (verilog-forward-sexp-ign-cmt 1) |
| 9255 | (backward-char 1) ;; End ) | 9851 | (backward-char 1) ;; End ) |
| 9256 | (when (not (verilog-re-search-backward "/\\*\\(AUTOSENSE\\|AS\\)\\*/" start-pt t)) | 9852 | (when (not (verilog-re-search-backward-quick "/\\*\\(AUTOSENSE\\|AS\\)\\*/" start-pt t)) |
| 9257 | (setq pre-sigs (verilog-signals-from-signame | 9853 | (setq pre-sigs (verilog-signals-from-signame |
| 9258 | (verilog-read-signals start-pt (point))) | 9854 | (verilog-read-signals start-pt (point))) |
| 9259 | got-sigs (verilog-auto-sense-sigs moddecls nil)) | 9855 | got-sigs (verilog-auto-sense-sigs moddecls nil)) |
| @@ -9277,12 +9873,12 @@ Typing \\[verilog-inject-auto] will make this into: | |||
| 9277 | (forward-char 1) | 9873 | (forward-char 1) |
| 9278 | (let ((indent-pt (+ (current-column))) | 9874 | (let ((indent-pt (+ (current-column))) |
| 9279 | (end-pt (save-excursion (verilog-forward-close-paren) (point)))) | 9875 | (end-pt (save-excursion (verilog-forward-close-paren) (point)))) |
| 9280 | (cond ((verilog-re-search-forward "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-pt t) | 9876 | (cond ((verilog-re-search-forward-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-pt t) |
| 9281 | (goto-char end-pt)) ;; Already there, continue search with next instance | 9877 | (goto-char end-pt)) ;; Already there, continue search with next instance |
| 9282 | (t | 9878 | (t |
| 9283 | ;; Delete identical interconnect | 9879 | ;; Delete identical interconnect |
| 9284 | (let ((case-fold-search nil)) ;; So we don't convert upper-to-lower, etc | 9880 | (let ((case-fold-search nil)) ;; So we don't convert upper-to-lower, etc |
| 9285 | (while (verilog-re-search-forward "\\.\\s *\\([a-zA-Z0-9`_\$]+\\)*\\s *(\\s *\\1\\s *)\\s *" end-pt t) | 9881 | (while (verilog-re-search-forward-quick "\\.\\s *\\([a-zA-Z0-9`_\$]+\\)*\\s *(\\s *\\1\\s *)\\s *" end-pt t) |
| 9286 | (delete-region (match-beginning 0) (match-end 0)) | 9882 | (delete-region (match-beginning 0) (match-end 0)) |
| 9287 | (setq end-pt (- end-pt (- (match-end 0) (match-beginning 0)))) ;; Keep it correct | 9883 | (setq end-pt (- end-pt (- (match-end 0) (match-beginning 0)))) ;; Keep it correct |
| 9288 | (while (or (looking-at "[ \t\n\f,]+") | 9884 | (while (or (looking-at "[ \t\n\f,]+") |
| @@ -9298,6 +9894,131 @@ Typing \\[verilog-inject-auto] will make this into: | |||
| 9298 | (verilog-insert-indent "/*AUTOINST*/"))))))))) | 9894 | (verilog-insert-indent "/*AUTOINST*/"))))))))) |
| 9299 | 9895 | ||
| 9300 | ;; | 9896 | ;; |
| 9897 | ;; Auto diff | ||
| 9898 | ;; | ||
| 9899 | |||
| 9900 | (defun verilog-diff-buffers-p (b1 b2 &optional whitespace) | ||
| 9901 | "Return nil if buffers B1 and B2 have same contents. | ||
| 9902 | Else, return point in B1 that first mismatches. | ||
| 9903 | If optional WHITESPACE true, ignore whitespace." | ||
| 9904 | (save-excursion | ||
| 9905 | (let* ((case-fold-search nil) ;; compare-buffer-substrings cares | ||
| 9906 | (p1 (with-current-buffer b1 (goto-char (point-min)))) | ||
| 9907 | (p2 (with-current-buffer b2 (goto-char (point-min)))) | ||
| 9908 | (maxp1 (with-current-buffer b1 (point-max))) | ||
| 9909 | (maxp2 (with-current-buffer b2 (point-max))) | ||
| 9910 | (op1 -1) (op2 -1) | ||
| 9911 | progress size) | ||
| 9912 | (while (not (and (eq p1 op1) (eq p2 op2))) | ||
| 9913 | ;; If both windows have whitespace optionally skip over it. | ||
| 9914 | (when whitespace | ||
| 9915 | ;; skip-syntax-* doesn't count \n | ||
| 9916 | (with-current-buffer b1 | ||
| 9917 | (goto-char p1) | ||
| 9918 | (skip-chars-forward " \t\n\r\f\v") | ||
| 9919 | (setq p1 (point))) | ||
| 9920 | (with-current-buffer b2 | ||
| 9921 | (goto-char p2) | ||
| 9922 | (skip-chars-forward " \t\n\r\f\v") | ||
| 9923 | (setq p2 (point)))) | ||
| 9924 | (setq size (min (- maxp1 p1) (- maxp2 p2))) | ||
| 9925 | (setq progress (compare-buffer-substrings b2 p2 (+ size p2) | ||
| 9926 | b1 p1 (+ size p1))) | ||
| 9927 | (setq progress (if (zerop progress) size (1- (abs progress)))) | ||
| 9928 | (setq op1 p1 op2 p2 | ||
| 9929 | p1 (+ p1 progress) | ||
| 9930 | p2 (+ p2 progress))) | ||
| 9931 | ;; Return value | ||
| 9932 | (if (and (eq p1 maxp1) (eq p2 maxp2)) | ||
| 9933 | nil p1)))) | ||
| 9934 | |||
| 9935 | (defun verilog-diff-file-with-buffer (f1 b2 &optional whitespace show) | ||
| 9936 | "View the differences between file F1 and buffer B2. | ||
| 9937 | This requires the external program `diff-command' to be in your `exec-path', | ||
| 9938 | and uses `diff-switches' in which you may want to have \"-u\" flag. | ||
| 9939 | Ignores WHITESPACE if t, and writes output to stdout if SHOW." | ||
| 9940 | ;; Similar to `diff-buffer-with-file' but works on XEmacs, and doesn't | ||
| 9941 | ;; call `diff' as `diff' has different calling semantics on different | ||
| 9942 | ;; versions of Emacs. | ||
| 9943 | (if (not (file-exists-p f1)) | ||
| 9944 | (message "Buffer %s has no associated file on disc" (buffer-name b2)) | ||
| 9945 | (with-temp-buffer "*Verilog-Diff*" | ||
| 9946 | (let ((outbuf (current-buffer)) | ||
| 9947 | (f2 (make-temp-file "vm-diff-auto-"))) | ||
| 9948 | (unwind-protect | ||
| 9949 | (progn | ||
| 9950 | (with-current-buffer b2 | ||
| 9951 | (save-restriction | ||
| 9952 | (widen) | ||
| 9953 | (write-region (point-min) (point-max) f2 nil 'nomessage))) | ||
| 9954 | (call-process diff-command nil outbuf t | ||
| 9955 | diff-switches ;; User may want -u in diff-switches | ||
| 9956 | (if whitespace "-b" "") | ||
| 9957 | f1 f2) | ||
| 9958 | ;; Print out results. Alternatively we could have call-processed | ||
| 9959 | ;; ourself, but this way we can reuse diff switches | ||
| 9960 | (when show | ||
| 9961 | (with-current-buffer outbuf (message "%s" (buffer-string)))))) | ||
| 9962 | (sit-for 0) | ||
| 9963 | (when (file-exists-p f2) | ||
| 9964 | (delete-file f2)))))) | ||
| 9965 | |||
| 9966 | (defun verilog-diff-report (b1 b2 diffpt) | ||
| 9967 | "Report differences detected with `verilog-diff-auto'. | ||
| 9968 | Differences are between buffers B1 and B2, starting at point | ||
| 9969 | DIFFPT. This function is called via `verilog-diff-function'." | ||
| 9970 | (let ((name1 (with-current-buffer b1 (buffer-file-name)))) | ||
| 9971 | (message "%%Warning: %s:%d: Difference in AUTO expansion found" | ||
| 9972 | name1 (with-current-buffer b1 (1+ (count-lines (point-min) (point))))) | ||
| 9973 | (cond (noninteractive | ||
| 9974 | (verilog-diff-file-with-buffer name1 b2 t t)) | ||
| 9975 | (t | ||
| 9976 | (ediff-buffers b1 b2))))) | ||
| 9977 | |||
| 9978 | (defun verilog-diff-auto () | ||
| 9979 | "Expand AUTOs in a temporary buffer and indicate any changes. | ||
| 9980 | Whitespace differences are ignored to determine identicalness, but | ||
| 9981 | once a difference is detected, whitespace differences may be shown. | ||
| 9982 | |||
| 9983 | To call this from the command line, see \\[verilog-batch-diff-auto]. | ||
| 9984 | |||
| 9985 | The action on differences is selected with | ||
| 9986 | `verilog-diff-function'. The default is `verilog-diff-report' | ||
| 9987 | which will report an error and run `ediff' in interactive mode, | ||
| 9988 | or `diff' in batch mode." | ||
| 9989 | (interactive) | ||
| 9990 | (let ((b1 (current-buffer)) b2 diffpt | ||
| 9991 | (name1 (buffer-file-name)) | ||
| 9992 | (newname "*Verilog-Diff*")) | ||
| 9993 | (save-excursion | ||
| 9994 | (when (get-buffer newname) | ||
| 9995 | (kill-buffer newname)) | ||
| 9996 | (setq b2 (let (buffer-file-name) ;; Else clone is upset | ||
| 9997 | (clone-buffer newname))) | ||
| 9998 | (with-current-buffer b2 | ||
| 9999 | ;; auto requires the filename, but can't have same filename in two | ||
| 10000 | ;; buffers; so override both b1 and b2's names | ||
| 10001 | (let ((buffer-file-name name1)) | ||
| 10002 | (unwind-protect | ||
| 10003 | (progn | ||
| 10004 | (with-current-buffer b1 (setq buffer-file-name nil)) | ||
| 10005 | (verilog-auto) | ||
| 10006 | (when (not verilog-auto-star-save) | ||
| 10007 | (verilog-delete-auto-star-implicit))) | ||
| 10008 | ;; Restore name if unwind | ||
| 10009 | (with-current-buffer b1 (setq buffer-file-name name1))))) | ||
| 10010 | ;; | ||
| 10011 | (setq diffpt (verilog-diff-buffers-p b1 b2 t)) | ||
| 10012 | (cond ((not diffpt) | ||
| 10013 | (unless noninteractive (message "AUTO expansion identical")) | ||
| 10014 | (kill-buffer newname)) ;; Nice to cleanup after oneself | ||
| 10015 | (t | ||
| 10016 | (funcall verilog-diff-function b1 b2 diffpt))) | ||
| 10017 | ;; Return result of compare | ||
| 10018 | diffpt))) | ||
| 10019 | |||
| 10020 | |||
| 10021 | ;; | ||
| 9301 | ;; Auto save | 10022 | ;; Auto save |
| 9302 | ;; | 10023 | ;; |
| 9303 | 10024 | ||
| @@ -9483,14 +10204,19 @@ If PAR-VALUES replace final strings with these parameter values." | |||
| 9483 | (concat "\\<" (nth 0 (car check-values)) "\\>") | 10204 | (concat "\\<" (nth 0 (car check-values)) "\\>") |
| 9484 | (concat "(" (nth 1 (car check-values)) ")") | 10205 | (concat "(" (nth 1 (car check-values)) ")") |
| 9485 | t t vl-bits) | 10206 | t t vl-bits) |
| 10207 | vl-mbits (verilog-string-replace-matches | ||
| 10208 | (concat "\\<" (nth 0 (car check-values)) "\\>") | ||
| 10209 | (concat "(" (nth 1 (car check-values)) ")") | ||
| 10210 | t t vl-mbits) | ||
| 9486 | check-values (cdr check-values))) | 10211 | check-values (cdr check-values))) |
| 9487 | (setq vl-bits (verilog-simplify-range-expression vl-bits))) ; Not in the loop for speed | 10212 | (setq vl-bits (verilog-simplify-range-expression vl-bits) |
| 10213 | vl-mbits (verilog-simplify-range-expression vl-mbits) | ||
| 10214 | vl-width (verilog-make-width-expression vl-bits))) ; Not in the loop for speed | ||
| 9488 | ;; Default net value if not found | 10215 | ;; Default net value if not found |
| 9489 | (setq tpl-net (concat port | 10216 | (setq tpl-net (concat port |
| 9490 | (if vl-modport (concat "." vl-modport) "") | 10217 | (if vl-modport (concat "." vl-modport) "") |
| 9491 | (if (verilog-sig-multidim port-st) | 10218 | (if (verilog-sig-multidim port-st) |
| 9492 | (concat "/*" (verilog-sig-multidim-string port-st) | 10219 | (concat "/*" vl-mbits vl-bits "*/") |
| 9493 | vl-bits "*/") | ||
| 9494 | (concat vl-bits)))) | 10220 | (concat vl-bits)))) |
| 9495 | ;; Find template | 10221 | ;; Find template |
| 9496 | (cond (tpl-ass ; Template of exact port name | 10222 | (cond (tpl-ass ; Template of exact port name |
| @@ -9536,20 +10262,37 @@ If PAR-VALUES replace final strings with these parameter values." | |||
| 9536 | (cond (tpl-ass | 10262 | (cond (tpl-ass |
| 9537 | (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16) | 10263 | (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16) |
| 9538 | verilog-auto-inst-column)) | 10264 | verilog-auto-inst-column)) |
| 9539 | (if verilog-auto-inst-template-numbers | 10265 | ;; verilog-insert requires the complete comment in one call - including the newline |
| 9540 | (verilog-insert " // Templated" | 10266 | (cond ((equal verilog-auto-inst-template-numbers `lhs) |
| 9541 | " T" (int-to-string (nth 2 tpl-ass)) | 10267 | (verilog-insert " // Templated" |
| 9542 | " L" (int-to-string (nth 3 tpl-ass))) | 10268 | " LHS: " (nth 0 tpl-ass) |
| 9543 | (verilog-insert " // Templated"))) | 10269 | "\n")) |
| 10270 | (verilog-auto-inst-template-numbers | ||
| 10271 | (verilog-insert " // Templated" | ||
| 10272 | " T" (int-to-string (nth 2 tpl-ass)) | ||
| 10273 | " L" (int-to-string (nth 3 tpl-ass)) | ||
| 10274 | "\n")) | ||
| 10275 | (t | ||
| 10276 | (verilog-insert " // Templated\n")))) | ||
| 9544 | (for-star | 10277 | (for-star |
| 9545 | (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16) | 10278 | (indent-to (+ (if (< verilog-auto-inst-column 48) 24 16) |
| 9546 | verilog-auto-inst-column)) | 10279 | verilog-auto-inst-column)) |
| 9547 | (verilog-insert " // Implicit .\*"))) ;For some reason the . or * must be escaped... | 10280 | (verilog-insert " // Implicit .\*\n")) ;For some reason the . or * must be escaped... |
| 9548 | (insert "\n"))) | 10281 | (t |
| 10282 | (insert "\n"))))) | ||
| 9549 | ;;(verilog-auto-inst-port (list "foo" "[5:0]") 10 (list (list "foo" "a@\"(% (+ @ 1) 4)\"a")) "3") | 10283 | ;;(verilog-auto-inst-port (list "foo" "[5:0]") 10 (list (list "foo" "a@\"(% (+ @ 1) 4)\"a")) "3") |
| 9550 | ;;(x "incom[@\"(+ (* 8 @) 7)\":@\"(* 8 @)\"]") | 10284 | ;;(x "incom[@\"(+ (* 8 @) 7)\":@\"(* 8 @)\"]") |
| 9551 | ;;(x ".out (outgo[@\"(concat (+ (* 8 @) 7) \\\":\\\" ( * 8 @))\"]));") | 10285 | ;;(x ".out (outgo[@\"(concat (+ (* 8 @) 7) \\\":\\\" ( * 8 @))\"]));") |
| 9552 | 10286 | ||
| 10287 | (defun verilog-auto-inst-port-list (sig-list indent-pt tpl-list tpl-num for-star par-values) | ||
| 10288 | "For `verilog-auto-inst' print a list of ports using `verilog-auto-inst-port'." | ||
| 10289 | (when verilog-auto-inst-sort | ||
| 10290 | (setq sig-list (sort (copy-alist sig-list) `verilog-signals-sort-compare))) | ||
| 10291 | (mapc (lambda (port) | ||
| 10292 | (verilog-auto-inst-port port indent-pt | ||
| 10293 | tpl-list tpl-num for-star par-values)) | ||
| 10294 | sig-list)) | ||
| 10295 | |||
| 9553 | (defun verilog-auto-inst-first () | 10296 | (defun verilog-auto-inst-first () |
| 9554 | "Insert , etc before first ever port in this instant, as part of \\[verilog-auto-inst]." | 10297 | "Insert , etc before first ever port in this instant, as part of \\[verilog-auto-inst]." |
| 9555 | ;; Do we need a trailing comma? | 10298 | ;; Do we need a trailing comma? |
| @@ -9558,7 +10301,7 @@ If PAR-VALUES replace final strings with these parameter values." | |||
| 9558 | ;; Insert first port on new line | 10301 | ;; Insert first port on new line |
| 9559 | (insert "\n") ;; Must insert before search, so point will move forward if insert comma | 10302 | (insert "\n") ;; Must insert before search, so point will move forward if insert comma |
| 9560 | (save-excursion | 10303 | (save-excursion |
| 9561 | (verilog-re-search-backward "[^ \t\n\f]" nil nil) | 10304 | (verilog-re-search-backward-quick "[^ \t\n\f]" nil nil) |
| 9562 | (when (looking-at ")\\|\\*") ;; Generally don't insert, unless we are fairly sure | 10305 | (when (looking-at ")\\|\\*") ;; Generally don't insert, unless we are fairly sure |
| 9563 | (forward-char 1) | 10306 | (forward-char 1) |
| 9564 | (insert ",")))) | 10307 | (insert ",")))) |
| @@ -9592,6 +10335,9 @@ If `verilog-auto-star-expand' is set, also expand SystemVerilog .* ports, | |||
| 9592 | and delete them before saving unless `verilog-auto-star-save' is set. | 10335 | and delete them before saving unless `verilog-auto-star-save' is set. |
| 9593 | See `verilog-auto-star' for more information. | 10336 | See `verilog-auto-star' for more information. |
| 9594 | 10337 | ||
| 10338 | The pins are printed in declaration order or alphabetically, | ||
| 10339 | based on the `verilog-auto-inst-sort' variable. | ||
| 10340 | |||
| 9595 | Limitations: | 10341 | Limitations: |
| 9596 | Module names must be resolvable to filenames by adding a | 10342 | Module names must be resolvable to filenames by adding a |
| 9597 | `verilog-library-extensions', and being found in the same directory, or | 10343 | `verilog-library-extensions', and being found in the same directory, or |
| @@ -9719,6 +10465,22 @@ Templates: | |||
| 9719 | .NotInTemplate (NotInTemplate), | 10465 | .NotInTemplate (NotInTemplate), |
| 9720 | .ptl_bus (ptl_busnew[3:0]), // Templated | 10466 | .ptl_bus (ptl_busnew[3:0]), // Templated |
| 9721 | .... | 10467 | .... |
| 10468 | |||
| 10469 | |||
| 10470 | Multiple Module Templates: | ||
| 10471 | |||
| 10472 | The same template lines can be applied to multiple modules with | ||
| 10473 | the syntax as follows: | ||
| 10474 | |||
| 10475 | /* InstModuleA AUTO_TEMPLATE | ||
| 10476 | InstModuleB AUTO_TEMPLATE | ||
| 10477 | InstModuleC AUTO_TEMPLATE | ||
| 10478 | InstModuleD AUTO_TEMPLATE ( | ||
| 10479 | .ptl_bus (ptl_busnew[]), | ||
| 10480 | ); | ||
| 10481 | */ | ||
| 10482 | |||
| 10483 | Note there is only one AUTO_TEMPLATE opening parenthesis. | ||
| 9722 | 10484 | ||
| 9723 | @ Templates: | 10485 | @ Templates: |
| 9724 | 10486 | ||
| @@ -9899,18 +10661,15 @@ For more information see the \\[verilog-faq] and forums at URL | |||
| 9899 | ;; Find submodule's signals and dump | 10661 | ;; Find submodule's signals and dump |
| 9900 | (let ((sig-list (and (equal (verilog-modi-get-type submodi) "interface") | 10662 | (let ((sig-list (and (equal (verilog-modi-get-type submodi) "interface") |
| 9901 | (verilog-signals-not-in | 10663 | (verilog-signals-not-in |
| 9902 | (append (verilog-decls-get-wires submoddecls) | 10664 | (verilog-decls-get-vars submoddecls) |
| 9903 | (verilog-decls-get-regs submoddecls)) | ||
| 9904 | skip-pins))) | 10665 | skip-pins))) |
| 9905 | (vl-dir "interfaced")) | 10666 | (vl-dir "interfaced")) |
| 9906 | (when sig-list | 10667 | (when sig-list |
| 9907 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) | 10668 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) |
| 9908 | ;; Note these are searched for in verilog-read-sub-decls. | 10669 | ;; Note these are searched for in verilog-read-sub-decls. |
| 9909 | (verilog-insert-indent "// Interfaced\n") | 10670 | (verilog-insert-indent "// Interfaced\n") |
| 9910 | (mapc (lambda (port) | 10671 | (verilog-auto-inst-port-list sig-list indent-pt |
| 9911 | (verilog-auto-inst-port port indent-pt | 10672 | tpl-list tpl-num for-star par-values))) |
| 9912 | tpl-list tpl-num for-star par-values)) | ||
| 9913 | sig-list))) | ||
| 9914 | (let ((sig-list (verilog-signals-not-in | 10673 | (let ((sig-list (verilog-signals-not-in |
| 9915 | (verilog-decls-get-interfaces submoddecls) | 10674 | (verilog-decls-get-interfaces submoddecls) |
| 9916 | skip-pins)) | 10675 | skip-pins)) |
| @@ -9919,10 +10678,8 @@ For more information see the \\[verilog-faq] and forums at URL | |||
| 9919 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) | 10678 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) |
| 9920 | ;; Note these are searched for in verilog-read-sub-decls. | 10679 | ;; Note these are searched for in verilog-read-sub-decls. |
| 9921 | (verilog-insert-indent "// Interfaces\n") | 10680 | (verilog-insert-indent "// Interfaces\n") |
| 9922 | (mapc (lambda (port) | 10681 | (verilog-auto-inst-port-list sig-list indent-pt |
| 9923 | (verilog-auto-inst-port port indent-pt | 10682 | tpl-list tpl-num for-star par-values))) |
| 9924 | tpl-list tpl-num for-star par-values)) | ||
| 9925 | sig-list))) | ||
| 9926 | (let ((sig-list (verilog-signals-not-in | 10683 | (let ((sig-list (verilog-signals-not-in |
| 9927 | (verilog-decls-get-outputs submoddecls) | 10684 | (verilog-decls-get-outputs submoddecls) |
| 9928 | skip-pins)) | 10685 | skip-pins)) |
| @@ -9930,10 +10687,8 @@ For more information see the \\[verilog-faq] and forums at URL | |||
| 9930 | (when sig-list | 10687 | (when sig-list |
| 9931 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) | 10688 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) |
| 9932 | (verilog-insert-indent "// Outputs\n") | 10689 | (verilog-insert-indent "// Outputs\n") |
| 9933 | (mapc (lambda (port) | 10690 | (verilog-auto-inst-port-list sig-list indent-pt |
| 9934 | (verilog-auto-inst-port port indent-pt | 10691 | tpl-list tpl-num for-star par-values))) |
| 9935 | tpl-list tpl-num for-star par-values)) | ||
| 9936 | sig-list))) | ||
| 9937 | (let ((sig-list (verilog-signals-not-in | 10692 | (let ((sig-list (verilog-signals-not-in |
| 9938 | (verilog-decls-get-inouts submoddecls) | 10693 | (verilog-decls-get-inouts submoddecls) |
| 9939 | skip-pins)) | 10694 | skip-pins)) |
| @@ -9941,10 +10696,8 @@ For more information see the \\[verilog-faq] and forums at URL | |||
| 9941 | (when sig-list | 10696 | (when sig-list |
| 9942 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) | 10697 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) |
| 9943 | (verilog-insert-indent "// Inouts\n") | 10698 | (verilog-insert-indent "// Inouts\n") |
| 9944 | (mapc (lambda (port) | 10699 | (verilog-auto-inst-port-list sig-list indent-pt |
| 9945 | (verilog-auto-inst-port port indent-pt | 10700 | tpl-list tpl-num for-star par-values))) |
| 9946 | tpl-list tpl-num for-star par-values)) | ||
| 9947 | sig-list))) | ||
| 9948 | (let ((sig-list (verilog-signals-not-in | 10701 | (let ((sig-list (verilog-signals-not-in |
| 9949 | (verilog-decls-get-inputs submoddecls) | 10702 | (verilog-decls-get-inputs submoddecls) |
| 9950 | skip-pins)) | 10703 | skip-pins)) |
| @@ -9952,10 +10705,8 @@ For more information see the \\[verilog-faq] and forums at URL | |||
| 9952 | (when sig-list | 10705 | (when sig-list |
| 9953 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) | 10706 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) |
| 9954 | (verilog-insert-indent "// Inputs\n") | 10707 | (verilog-insert-indent "// Inputs\n") |
| 9955 | (mapc (lambda (port) | 10708 | (verilog-auto-inst-port-list sig-list indent-pt |
| 9956 | (verilog-auto-inst-port port indent-pt | 10709 | tpl-list tpl-num for-star par-values))) |
| 9957 | tpl-list tpl-num for-star par-values)) | ||
| 9958 | sig-list))) | ||
| 9959 | ;; Kill extra semi | 10710 | ;; Kill extra semi |
| 9960 | (save-excursion | 10711 | (save-excursion |
| 9961 | (cond (did-first | 10712 | (cond (did-first |
| @@ -10058,10 +10809,8 @@ Templates: | |||
| 10058 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) | 10809 | (when (not did-first) (verilog-auto-inst-first) (setq did-first t)) |
| 10059 | ;; Note these are searched for in verilog-read-sub-decls. | 10810 | ;; Note these are searched for in verilog-read-sub-decls. |
| 10060 | (verilog-insert-indent "// Parameters\n") | 10811 | (verilog-insert-indent "// Parameters\n") |
| 10061 | (mapc (lambda (port) | 10812 | (verilog-auto-inst-port-list sig-list indent-pt |
| 10062 | (verilog-auto-inst-port port indent-pt | 10813 | tpl-list tpl-num nil nil))) |
| 10063 | tpl-list tpl-num nil nil)) | ||
| 10064 | sig-list))) | ||
| 10065 | ;; Kill extra semi | 10814 | ;; Kill extra semi |
| 10066 | (save-excursion | 10815 | (save-excursion |
| 10067 | (cond (did-first | 10816 | (cond (did-first |
| @@ -10076,7 +10825,8 @@ Templates: | |||
| 10076 | (defun verilog-auto-reg () | 10825 | (defun verilog-auto-reg () |
| 10077 | "Expand AUTOREG statements, as part of \\[verilog-auto]. | 10826 | "Expand AUTOREG statements, as part of \\[verilog-auto]. |
| 10078 | Make reg statements for any output that isn't already declared, | 10827 | Make reg statements for any output that isn't already declared, |
| 10079 | and isn't a wire output from a block. | 10828 | and isn't a wire output from a block. `verilog-auto-wire-type' |
| 10829 | may be used to change the datatype of the declarations. | ||
| 10080 | 10830 | ||
| 10081 | Limitations: | 10831 | Limitations: |
| 10082 | This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). | 10832 | This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). |
| @@ -10111,8 +10861,7 @@ Typing \\[verilog-auto] will make this into: | |||
| 10111 | (modsubdecls (verilog-modi-get-sub-decls modi)) | 10861 | (modsubdecls (verilog-modi-get-sub-decls modi)) |
| 10112 | (sig-list (verilog-signals-not-in | 10862 | (sig-list (verilog-signals-not-in |
| 10113 | (verilog-decls-get-outputs moddecls) | 10863 | (verilog-decls-get-outputs moddecls) |
| 10114 | (append (verilog-decls-get-wires moddecls) | 10864 | (append (verilog-decls-get-vars moddecls) |
| 10115 | (verilog-decls-get-regs moddecls) | ||
| 10116 | (verilog-decls-get-assigns moddecls) | 10865 | (verilog-decls-get-assigns moddecls) |
| 10117 | (verilog-decls-get-consts moddecls) | 10866 | (verilog-decls-get-consts moddecls) |
| 10118 | (verilog-decls-get-gparams moddecls) | 10867 | (verilog-decls-get-gparams moddecls) |
| @@ -10122,8 +10871,7 @@ Typing \\[verilog-auto] will make this into: | |||
| 10122 | (forward-line 1) | 10871 | (forward-line 1) |
| 10123 | (when sig-list | 10872 | (when sig-list |
| 10124 | (verilog-insert-indent "// Beginning of automatic regs (for this module's undeclared outputs)\n") | 10873 | (verilog-insert-indent "// Beginning of automatic regs (for this module's undeclared outputs)\n") |
| 10125 | (verilog-insert-definition sig-list "reg" indent-pt nil) | 10874 | (verilog-insert-definition modi sig-list "reg" indent-pt nil) |
| 10126 | (verilog-modi-cache-add-regs modi sig-list) | ||
| 10127 | (verilog-insert-indent "// End of automatics\n"))))) | 10875 | (verilog-insert-indent "// End of automatics\n"))))) |
| 10128 | 10876 | ||
| 10129 | (defun verilog-auto-reg-input () | 10877 | (defun verilog-auto-reg-input () |
| @@ -10173,18 +10921,40 @@ Typing \\[verilog-auto] will make this into: | |||
| 10173 | (verilog-signals-not-in | 10921 | (verilog-signals-not-in |
| 10174 | (append (verilog-subdecls-get-inputs modsubdecls) | 10922 | (append (verilog-subdecls-get-inputs modsubdecls) |
| 10175 | (verilog-subdecls-get-inouts modsubdecls)) | 10923 | (verilog-subdecls-get-inouts modsubdecls)) |
| 10176 | (verilog-decls-get-signals moddecls))))) | 10924 | (append (verilog-decls-get-signals moddecls) |
| 10925 | (verilog-decls-get-assigns moddecls)))))) | ||
| 10177 | (forward-line 1) | 10926 | (forward-line 1) |
| 10178 | (when sig-list | 10927 | (when sig-list |
| 10179 | (verilog-insert-indent "// Beginning of automatic reg inputs (for undeclared instantiated-module inputs)\n") | 10928 | (verilog-insert-indent "// Beginning of automatic reg inputs (for undeclared instantiated-module inputs)\n") |
| 10180 | (verilog-insert-definition sig-list "reg" indent-pt nil) | 10929 | (verilog-insert-definition modi sig-list "reg" indent-pt nil) |
| 10181 | (verilog-modi-cache-add-regs modi sig-list) | ||
| 10182 | (verilog-insert-indent "// End of automatics\n"))))) | 10930 | (verilog-insert-indent "// End of automatics\n"))))) |
| 10183 | 10931 | ||
| 10932 | (defun verilog-auto-logic () | ||
| 10933 | "Expand AUTOLOGIC statements, as part of \\[verilog-auto]. | ||
| 10934 | Make wire statements using the SystemVerilog logic keyword. | ||
| 10935 | This is currently equivelent to: | ||
| 10936 | |||
| 10937 | /*AUTOWIRE*/ | ||
| 10938 | |||
| 10939 | with the below at the bottom of the file | ||
| 10940 | |||
| 10941 | // Local Variables: | ||
| 10942 | // verilog-auto-logic-type:\"logic\" | ||
| 10943 | // End: | ||
| 10944 | |||
| 10945 | In the future AUTOLOGIC may declare additional identifiers, | ||
| 10946 | while AUTOWIRE will not." | ||
| 10947 | (save-excursion | ||
| 10948 | (unless verilog-auto-wire-type | ||
| 10949 | (set (make-local-variable 'verilog-auto-wire-type) | ||
| 10950 | "logic")) | ||
| 10951 | (verilog-auto-wire))) | ||
| 10952 | |||
| 10184 | (defun verilog-auto-wire () | 10953 | (defun verilog-auto-wire () |
| 10185 | "Expand AUTOWIRE statements, as part of \\[verilog-auto]. | 10954 | "Expand AUTOWIRE statements, as part of \\[verilog-auto]. |
| 10186 | Make wire statements for instantiations outputs that aren't | 10955 | Make wire statements for instantiations outputs that aren't |
| 10187 | already declared. | 10956 | already declared. `verilog-auto-wire-type' may be used to change |
| 10957 | the datatype of the declarations. | ||
| 10188 | 10958 | ||
| 10189 | Limitations: | 10959 | Limitations: |
| 10190 | This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'), | 10960 | This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'), |
| @@ -10240,15 +11010,13 @@ Typing \\[verilog-auto] will make this into: | |||
| 10240 | (forward-line 1) | 11010 | (forward-line 1) |
| 10241 | (when sig-list | 11011 | (when sig-list |
| 10242 | (verilog-insert-indent "// Beginning of automatic wires (for undeclared instantiated-module outputs)\n") | 11012 | (verilog-insert-indent "// Beginning of automatic wires (for undeclared instantiated-module outputs)\n") |
| 10243 | (verilog-insert-definition sig-list "wire" indent-pt nil) | 11013 | (verilog-insert-definition modi sig-list "wire" indent-pt nil) |
| 10244 | (verilog-modi-cache-add-wires modi sig-list) | ||
| 10245 | (verilog-insert-indent "// End of automatics\n") | 11014 | (verilog-insert-indent "// End of automatics\n") |
| 10246 | (when nil ;; Too slow on huge modules, plus makes everyone's module change | 11015 | ;; We used to optionally call verilog-pretty-declarations and |
| 10247 | (beginning-of-line) | 11016 | ;; verilog-pretty-expr here, but it's too slow on huge modules, |
| 10248 | (setq pnt (point)) | 11017 | ;; plus makes everyone's module change. Finally those call |
| 10249 | (verilog-pretty-declarations quiet) | 11018 | ;; syntax-ppss which is broken when change hooks are disabled. |
| 10250 | (goto-char pnt) | 11019 | )))) |
| 10251 | (verilog-pretty-expr t "//")))))) | ||
| 10252 | 11020 | ||
| 10253 | (defun verilog-auto-output (&optional with-params) | 11021 | (defun verilog-auto-output (&optional with-params) |
| 10254 | "Expand AUTOOUTPUT statements, as part of \\[verilog-auto]. | 11022 | "Expand AUTOOUTPUT statements, as part of \\[verilog-auto]. |
| @@ -10304,7 +11072,7 @@ same expansion will result from only extracting outputs starting with ov: | |||
| 10304 | (let* ((indent-pt (current-indentation)) | 11072 | (let* ((indent-pt (current-indentation)) |
| 10305 | (regexp (and with-params | 11073 | (regexp (and with-params |
| 10306 | (nth 0 (verilog-read-auto-params 1)))) | 11074 | (nth 0 (verilog-read-auto-params 1)))) |
| 10307 | (v2k (verilog-in-paren)) | 11075 | (v2k (verilog-in-paren-quick)) |
| 10308 | (modi (verilog-modi-current)) | 11076 | (modi (verilog-modi-current)) |
| 10309 | (moddecls (verilog-modi-get-decls modi)) | 11077 | (moddecls (verilog-modi-get-decls modi)) |
| 10310 | (modsubdecls (verilog-modi-get-sub-decls modi)) | 11078 | (modsubdecls (verilog-modi-get-sub-decls modi)) |
| @@ -10323,8 +11091,7 @@ same expansion will result from only extracting outputs starting with ov: | |||
| 10323 | (when v2k (verilog-repair-open-comma)) | 11091 | (when v2k (verilog-repair-open-comma)) |
| 10324 | (when sig-list | 11092 | (when sig-list |
| 10325 | (verilog-insert-indent "// Beginning of automatic outputs (from unused autoinst outputs)\n") | 11093 | (verilog-insert-indent "// Beginning of automatic outputs (from unused autoinst outputs)\n") |
| 10326 | (verilog-insert-definition sig-list "output" indent-pt v2k) | 11094 | (verilog-insert-definition modi sig-list "output" indent-pt v2k) |
| 10327 | (verilog-modi-cache-add-outputs modi sig-list) | ||
| 10328 | (verilog-insert-indent "// End of automatics\n")) | 11095 | (verilog-insert-indent "// End of automatics\n")) |
| 10329 | (when v2k (verilog-repair-close-comma))))) | 11096 | (when v2k (verilog-repair-close-comma))))) |
| 10330 | 11097 | ||
| @@ -10363,7 +11130,7 @@ Typing \\[verilog-auto] will make this into: | |||
| 10363 | (save-excursion | 11130 | (save-excursion |
| 10364 | ;;Point must be at insertion point | 11131 | ;;Point must be at insertion point |
| 10365 | (let* ((indent-pt (current-indentation)) | 11132 | (let* ((indent-pt (current-indentation)) |
| 10366 | (v2k (verilog-in-paren)) | 11133 | (v2k (verilog-in-paren-quick)) |
| 10367 | (modi (verilog-modi-current)) | 11134 | (modi (verilog-modi-current)) |
| 10368 | (moddecls (verilog-modi-get-decls modi)) | 11135 | (moddecls (verilog-modi-get-decls modi)) |
| 10369 | (sig-list (verilog-signals-combine-bus | 11136 | (sig-list (verilog-signals-combine-bus |
| @@ -10374,8 +11141,7 @@ Typing \\[verilog-auto] will make this into: | |||
| 10374 | (when v2k (verilog-repair-open-comma)) | 11141 | (when v2k (verilog-repair-open-comma)) |
| 10375 | (when sig-list | 11142 | (when sig-list |
| 10376 | (verilog-insert-indent "// Beginning of automatic outputs (every signal)\n") | 11143 | (verilog-insert-indent "// Beginning of automatic outputs (every signal)\n") |
| 10377 | (verilog-insert-definition sig-list "output" indent-pt v2k) | 11144 | (verilog-insert-definition modi sig-list "output" indent-pt v2k) |
| 10378 | (verilog-modi-cache-add-outputs modi sig-list) | ||
| 10379 | (verilog-insert-indent "// End of automatics\n")) | 11145 | (verilog-insert-indent "// End of automatics\n")) |
| 10380 | (when v2k (verilog-repair-close-comma))))) | 11146 | (when v2k (verilog-repair-close-comma))))) |
| 10381 | 11147 | ||
| @@ -10432,7 +11198,7 @@ same expansion will result from only extracting inputs starting with i: | |||
| 10432 | (let* ((indent-pt (current-indentation)) | 11198 | (let* ((indent-pt (current-indentation)) |
| 10433 | (regexp (and with-params | 11199 | (regexp (and with-params |
| 10434 | (nth 0 (verilog-read-auto-params 1)))) | 11200 | (nth 0 (verilog-read-auto-params 1)))) |
| 10435 | (v2k (verilog-in-paren)) | 11201 | (v2k (verilog-in-paren-quick)) |
| 10436 | (modi (verilog-modi-current)) | 11202 | (modi (verilog-modi-current)) |
| 10437 | (moddecls (verilog-modi-get-decls modi)) | 11203 | (moddecls (verilog-modi-get-decls modi)) |
| 10438 | (modsubdecls (verilog-modi-get-sub-decls modi)) | 11204 | (modsubdecls (verilog-modi-get-sub-decls modi)) |
| @@ -10440,8 +11206,7 @@ same expansion will result from only extracting inputs starting with i: | |||
| 10440 | (verilog-subdecls-get-inputs modsubdecls) | 11206 | (verilog-subdecls-get-inputs modsubdecls) |
| 10441 | (append (verilog-decls-get-inputs moddecls) | 11207 | (append (verilog-decls-get-inputs moddecls) |
| 10442 | (verilog-decls-get-inouts moddecls) | 11208 | (verilog-decls-get-inouts moddecls) |
| 10443 | (verilog-decls-get-wires moddecls) | 11209 | (verilog-decls-get-vars moddecls) |
| 10444 | (verilog-decls-get-regs moddecls) | ||
| 10445 | (verilog-decls-get-consts moddecls) | 11210 | (verilog-decls-get-consts moddecls) |
| 10446 | (verilog-decls-get-gparams moddecls) | 11211 | (verilog-decls-get-gparams moddecls) |
| 10447 | (verilog-subdecls-get-interfaced modsubdecls) | 11212 | (verilog-subdecls-get-interfaced modsubdecls) |
| @@ -10456,8 +11221,7 @@ same expansion will result from only extracting inputs starting with i: | |||
| 10456 | (when v2k (verilog-repair-open-comma)) | 11221 | (when v2k (verilog-repair-open-comma)) |
| 10457 | (when sig-list | 11222 | (when sig-list |
| 10458 | (verilog-insert-indent "// Beginning of automatic inputs (from unused autoinst inputs)\n") | 11223 | (verilog-insert-indent "// Beginning of automatic inputs (from unused autoinst inputs)\n") |
| 10459 | (verilog-insert-definition sig-list "input" indent-pt v2k) | 11224 | (verilog-insert-definition modi sig-list "input" indent-pt v2k) |
| 10460 | (verilog-modi-cache-add-inputs modi sig-list) | ||
| 10461 | (verilog-insert-indent "// End of automatics\n")) | 11225 | (verilog-insert-indent "// End of automatics\n")) |
| 10462 | (when v2k (verilog-repair-close-comma))))) | 11226 | (when v2k (verilog-repair-close-comma))))) |
| 10463 | 11227 | ||
| @@ -10514,7 +11278,7 @@ same expansion will result from only extracting inouts starting with i: | |||
| 10514 | (let* ((indent-pt (current-indentation)) | 11278 | (let* ((indent-pt (current-indentation)) |
| 10515 | (regexp (and with-params | 11279 | (regexp (and with-params |
| 10516 | (nth 0 (verilog-read-auto-params 1)))) | 11280 | (nth 0 (verilog-read-auto-params 1)))) |
| 10517 | (v2k (verilog-in-paren)) | 11281 | (v2k (verilog-in-paren-quick)) |
| 10518 | (modi (verilog-modi-current)) | 11282 | (modi (verilog-modi-current)) |
| 10519 | (moddecls (verilog-modi-get-decls modi)) | 11283 | (moddecls (verilog-modi-get-decls modi)) |
| 10520 | (modsubdecls (verilog-modi-get-sub-decls modi)) | 11284 | (modsubdecls (verilog-modi-get-sub-decls modi)) |
| @@ -10534,18 +11298,18 @@ same expansion will result from only extracting inouts starting with i: | |||
| 10534 | (when v2k (verilog-repair-open-comma)) | 11298 | (when v2k (verilog-repair-open-comma)) |
| 10535 | (when sig-list | 11299 | (when sig-list |
| 10536 | (verilog-insert-indent "// Beginning of automatic inouts (from unused autoinst inouts)\n") | 11300 | (verilog-insert-indent "// Beginning of automatic inouts (from unused autoinst inouts)\n") |
| 10537 | (verilog-insert-definition sig-list "inout" indent-pt v2k) | 11301 | (verilog-insert-definition modi sig-list "inout" indent-pt v2k) |
| 10538 | (verilog-modi-cache-add-inouts modi sig-list) | ||
| 10539 | (verilog-insert-indent "// End of automatics\n")) | 11302 | (verilog-insert-indent "// End of automatics\n")) |
| 10540 | (when v2k (verilog-repair-close-comma))))) | 11303 | (when v2k (verilog-repair-close-comma))))) |
| 10541 | 11304 | ||
| 10542 | (defun verilog-auto-inout-module (&optional complement) | 11305 | (defun verilog-auto-inout-module (&optional complement all-in) |
| 10543 | "Expand AUTOINOUTMODULE statements, as part of \\[verilog-auto]. | 11306 | "Expand AUTOINOUTMODULE statements, as part of \\[verilog-auto]. |
| 10544 | Take input/output/inout statements from the specified module and insert | 11307 | Take input/output/inout statements from the specified module and insert |
| 10545 | into the current module. This is useful for making null templates and | 11308 | into the current module. This is useful for making null templates and |
| 10546 | shell modules which need to have identical I/O with another module. | 11309 | shell modules which need to have identical I/O with another module. |
| 10547 | Any I/O which are already defined in this module will not be redefined. | 11310 | Any I/O which are already defined in this module will not be redefined. |
| 10548 | For the complement of this function, see `verilog-auto-inout-comp'. | 11311 | For the complement of this function, see `verilog-auto-inout-comp', |
| 11312 | and to make monitors with all inputs, see `verilog-auto-inout-in'. | ||
| 10549 | 11313 | ||
| 10550 | Limitations: | 11314 | Limitations: |
| 10551 | If placed inside the parenthesis of a module declaration, it creates | 11315 | If placed inside the parenthesis of a module declaration, it creates |
| @@ -10610,22 +11374,29 @@ against the previous example's module: | |||
| 10610 | ;; Note this may raise an error | 11374 | ;; Note this may raise an error |
| 10611 | (when (setq submodi (verilog-modi-lookup submod t)) | 11375 | (when (setq submodi (verilog-modi-lookup submod t)) |
| 10612 | (let* ((indent-pt (current-indentation)) | 11376 | (let* ((indent-pt (current-indentation)) |
| 10613 | (v2k (verilog-in-paren)) | 11377 | (v2k (verilog-in-paren-quick)) |
| 10614 | (modi (verilog-modi-current)) | 11378 | (modi (verilog-modi-current)) |
| 10615 | (moddecls (verilog-modi-get-decls modi)) | 11379 | (moddecls (verilog-modi-get-decls modi)) |
| 10616 | (submoddecls (verilog-modi-get-decls submodi)) | 11380 | (submoddecls (verilog-modi-get-decls submodi)) |
| 10617 | (sig-list-i (verilog-signals-not-in | 11381 | (sig-list-i (verilog-signals-not-in |
| 10618 | (if complement | 11382 | (cond (all-in |
| 10619 | (verilog-decls-get-outputs submoddecls) | 11383 | (append |
| 10620 | (verilog-decls-get-inputs submoddecls)) | 11384 | (verilog-decls-get-inputs submoddecls) |
| 11385 | (verilog-decls-get-inouts submoddecls) | ||
| 11386 | (verilog-decls-get-outputs submoddecls))) | ||
| 11387 | (complement | ||
| 11388 | (verilog-decls-get-outputs submoddecls)) | ||
| 11389 | (t (verilog-decls-get-inputs submoddecls))) | ||
| 10621 | (append (verilog-decls-get-inputs moddecls)))) | 11390 | (append (verilog-decls-get-inputs moddecls)))) |
| 10622 | (sig-list-o (verilog-signals-not-in | 11391 | (sig-list-o (verilog-signals-not-in |
| 10623 | (if complement | 11392 | (cond (all-in nil) |
| 10624 | (verilog-decls-get-inputs submoddecls) | 11393 | (complement |
| 10625 | (verilog-decls-get-outputs submoddecls)) | 11394 | (verilog-decls-get-inputs submoddecls)) |
| 11395 | (t (verilog-decls-get-outputs submoddecls))) | ||
| 10626 | (append (verilog-decls-get-outputs moddecls)))) | 11396 | (append (verilog-decls-get-outputs moddecls)))) |
| 10627 | (sig-list-io (verilog-signals-not-in | 11397 | (sig-list-io (verilog-signals-not-in |
| 10628 | (verilog-decls-get-inouts submoddecls) | 11398 | (cond (all-in nil) |
| 11399 | (t (verilog-decls-get-inouts submoddecls))) | ||
| 10629 | (append (verilog-decls-get-inouts moddecls)))) | 11400 | (append (verilog-decls-get-inouts moddecls)))) |
| 10630 | (sig-list-if (verilog-signals-not-in | 11401 | (sig-list-if (verilog-signals-not-in |
| 10631 | (verilog-decls-get-interfaces submoddecls) | 11402 | (verilog-decls-get-interfaces submoddecls) |
| @@ -10647,13 +11418,10 @@ against the previous example's module: | |||
| 10647 | (when (or sig-list-i sig-list-o sig-list-io) | 11418 | (when (or sig-list-i sig-list-o sig-list-io) |
| 10648 | (verilog-insert-indent "// Beginning of automatic in/out/inouts (from specific module)\n") | 11419 | (verilog-insert-indent "// Beginning of automatic in/out/inouts (from specific module)\n") |
| 10649 | ;; Don't sort them so a upper AUTOINST will match the main module | 11420 | ;; Don't sort them so a upper AUTOINST will match the main module |
| 10650 | (verilog-insert-definition sig-list-o "output" indent-pt v2k t) | 11421 | (verilog-insert-definition modi sig-list-o "output" indent-pt v2k t) |
| 10651 | (verilog-insert-definition sig-list-io "inout" indent-pt v2k t) | 11422 | (verilog-insert-definition modi sig-list-io "inout" indent-pt v2k t) |
| 10652 | (verilog-insert-definition sig-list-i "input" indent-pt v2k t) | 11423 | (verilog-insert-definition modi sig-list-i "input" indent-pt v2k t) |
| 10653 | (verilog-insert-definition sig-list-if "interface" indent-pt v2k t) | 11424 | (verilog-insert-definition modi sig-list-if "interface" indent-pt v2k t) |
| 10654 | (verilog-modi-cache-add-inputs modi sig-list-i) | ||
| 10655 | (verilog-modi-cache-add-outputs modi sig-list-o) | ||
| 10656 | (verilog-modi-cache-add-inouts modi sig-list-io) | ||
| 10657 | (verilog-insert-indent "// End of automatics\n")) | 11425 | (verilog-insert-indent "// End of automatics\n")) |
| 10658 | (when v2k (verilog-repair-close-comma))))))) | 11426 | (when v2k (verilog-repair-close-comma))))))) |
| 10659 | 11427 | ||
| @@ -10707,7 +11475,58 @@ signals matching the regular expression will be included. For example the | |||
| 10707 | same expansion will result from only extracting signals starting with i: | 11475 | same expansion will result from only extracting signals starting with i: |
| 10708 | 11476 | ||
| 10709 | /*AUTOINOUTCOMP(\"ExampMain\",\"^i\")*/" | 11477 | /*AUTOINOUTCOMP(\"ExampMain\",\"^i\")*/" |
| 10710 | (verilog-auto-inout-module t)) | 11478 | (verilog-auto-inout-module t nil)) |
| 11479 | |||
| 11480 | (defun verilog-auto-inout-in () | ||
| 11481 | "Expand AUTOINOUTIN statements, as part of \\[verilog-auto]. | ||
| 11482 | Take input/output/inout statements from the specified module and | ||
| 11483 | insert them as all inputs into the current module. This is | ||
| 11484 | useful for making monitor modules which need to see all signals | ||
| 11485 | as inputs based on another module. Any I/O which are already | ||
| 11486 | defined in this module will not be redefined. See also | ||
| 11487 | `verilog-auto-inout-module'. | ||
| 11488 | |||
| 11489 | Limitations: | ||
| 11490 | If placed inside the parenthesis of a module declaration, it creates | ||
| 11491 | Verilog 2001 style, else uses Verilog 1995 style. | ||
| 11492 | |||
| 11493 | Concatenation and outputting partial busses is not supported. | ||
| 11494 | |||
| 11495 | Module names must be resolvable to filenames. See `verilog-auto-inst'. | ||
| 11496 | |||
| 11497 | Signals are not inserted in the same order as in the original module, | ||
| 11498 | though they will appear to be in the same order to a AUTOINST | ||
| 11499 | instantiating either module. | ||
| 11500 | |||
| 11501 | An example: | ||
| 11502 | |||
| 11503 | module ExampShell (/*AUTOARG*/); | ||
| 11504 | /*AUTOINOUTIN(\"ExampMain\")*/ | ||
| 11505 | endmodule | ||
| 11506 | |||
| 11507 | module ExampMain (i,o,io); | ||
| 11508 | input i; | ||
| 11509 | output o; | ||
| 11510 | inout io; | ||
| 11511 | endmodule | ||
| 11512 | |||
| 11513 | Typing \\[verilog-auto] will make this into: | ||
| 11514 | |||
| 11515 | module ExampShell (/*AUTOARG*/i,o,io); | ||
| 11516 | /*AUTOINOUTIN(\"ExampMain\")*/ | ||
| 11517 | // Beginning of automatic in/out/inouts (from specific module) | ||
| 11518 | input i; | ||
| 11519 | input io; | ||
| 11520 | input o; | ||
| 11521 | // End of automatics | ||
| 11522 | endmodule | ||
| 11523 | |||
| 11524 | You may also provide an optional regular expression, in which case only | ||
| 11525 | signals matching the regular expression will be included. For example the | ||
| 11526 | same expansion will result from only extracting signals starting with i: | ||
| 11527 | |||
| 11528 | /*AUTOINOUTCOMP(\"ExampMain\",\"^i\")*/" | ||
| 11529 | (verilog-auto-inout-module nil t)) | ||
| 10711 | 11530 | ||
| 10712 | (defun verilog-auto-insert-lisp () | 11531 | (defun verilog-auto-insert-lisp () |
| 10713 | "Expand AUTOINSERTLISP statements, as part of \\[verilog-auto]. | 11532 | "Expand AUTOINSERTLISP statements, as part of \\[verilog-auto]. |
| @@ -10756,7 +11575,7 @@ text: | |||
| 10756 | (forward-char) | 11575 | (forward-char) |
| 10757 | (point))) ;; Closing paren | 11576 | (point))) ;; Closing paren |
| 10758 | (cmd-beg-pt (save-excursion (goto-char cmd-end-pt) | 11577 | (cmd-beg-pt (save-excursion (goto-char cmd-end-pt) |
| 10759 | (backward-sexp 1) | 11578 | (backward-sexp 1) ;; Inside comment |
| 10760 | (point))) ;; Beginning paren | 11579 | (point))) ;; Beginning paren |
| 10761 | (cmd (buffer-substring-no-properties cmd-beg-pt cmd-end-pt))) | 11580 | (cmd (buffer-substring-no-properties cmd-beg-pt cmd-end-pt))) |
| 10762 | (forward-line 1) | 11581 | (forward-line 1) |
| @@ -10776,7 +11595,9 @@ text: | |||
| 10776 | (sig-list (verilog-signals-not-params | 11595 | (sig-list (verilog-signals-not-params |
| 10777 | (verilog-signals-not-in (verilog-alw-get-inputs sigss) | 11596 | (verilog-signals-not-in (verilog-alw-get-inputs sigss) |
| 10778 | (append (and (not verilog-auto-sense-include-inputs) | 11597 | (append (and (not verilog-auto-sense-include-inputs) |
| 10779 | (verilog-alw-get-outputs sigss)) | 11598 | (verilog-alw-get-outputs-delayed sigss)) |
| 11599 | (and (not verilog-auto-sense-include-inputs) | ||
| 11600 | (verilog-alw-get-outputs-immediate sigss)) | ||
| 10780 | (verilog-alw-get-temps sigss) | 11601 | (verilog-alw-get-temps sigss) |
| 10781 | (verilog-decls-get-consts moddecls) | 11602 | (verilog-decls-get-consts moddecls) |
| 10782 | (verilog-decls-get-gparams moddecls) | 11603 | (verilog-decls-get-gparams moddecls) |
| @@ -10840,7 +11661,7 @@ operator. (This was added to the language in part due to AUTOSENSE!) | |||
| 10840 | (save-excursion | 11661 | (save-excursion |
| 10841 | ;; Find beginning | 11662 | ;; Find beginning |
| 10842 | (let* ((start-pt (save-excursion | 11663 | (let* ((start-pt (save-excursion |
| 10843 | (verilog-re-search-backward "(" nil t) | 11664 | (verilog-re-search-backward-quick "(" nil t) |
| 10844 | (point))) | 11665 | (point))) |
| 10845 | (indent-pt (save-excursion | 11666 | (indent-pt (save-excursion |
| 10846 | (or (and (goto-char start-pt) (1+ (current-column))) | 11667 | (or (and (goto-char start-pt) (1+ (current-column))) |
| @@ -10848,9 +11669,7 @@ operator. (This was added to the language in part due to AUTOSENSE!) | |||
| 10848 | (modi (verilog-modi-current)) | 11669 | (modi (verilog-modi-current)) |
| 10849 | (moddecls (verilog-modi-get-decls modi)) | 11670 | (moddecls (verilog-modi-get-decls modi)) |
| 10850 | (sig-memories (verilog-signals-memory | 11671 | (sig-memories (verilog-signals-memory |
| 10851 | (append | 11672 | (verilog-decls-get-vars moddecls))) |
| 10852 | (verilog-decls-get-regs moddecls) | ||
| 10853 | (verilog-decls-get-wires moddecls)))) | ||
| 10854 | sig-list not-first presense-sigs) | 11673 | sig-list not-first presense-sigs) |
| 10855 | ;; Read signals in always, eliminate outputs from sense list | 11674 | ;; Read signals in always, eliminate outputs from sense list |
| 10856 | (setq presense-sigs (verilog-signals-from-signame | 11675 | (setq presense-sigs (verilog-signals-from-signame |
| @@ -10863,11 +11682,11 @@ operator. (This was added to the language in part due to AUTOSENSE!) | |||
| 10863 | (if (not (eq tlen (length sig-list))) (verilog-insert " /*memory or*/ ")))) | 11682 | (if (not (eq tlen (length sig-list))) (verilog-insert " /*memory or*/ ")))) |
| 10864 | (if (and presense-sigs ;; Add a "or" if not "(.... or /*AUTOSENSE*/" | 11683 | (if (and presense-sigs ;; Add a "or" if not "(.... or /*AUTOSENSE*/" |
| 10865 | (save-excursion (goto-char (point)) | 11684 | (save-excursion (goto-char (point)) |
| 10866 | (verilog-re-search-backward "[a-zA-Z0-9$_.%`]+" start-pt t) | 11685 | (verilog-re-search-backward-quick "[a-zA-Z0-9$_.%`]+" start-pt t) |
| 10867 | (verilog-re-search-backward "\\s-" start-pt t) | 11686 | (verilog-re-search-backward-quick "\\s-" start-pt t) |
| 10868 | (while (looking-at "\\s-`endif") | 11687 | (while (looking-at "\\s-`endif") |
| 10869 | (verilog-re-search-backward "[a-zA-Z0-9$_.%`]+" start-pt t) | 11688 | (verilog-re-search-backward-quick "[a-zA-Z0-9$_.%`]+" start-pt t) |
| 10870 | (verilog-re-search-backward "\\s-" start-pt t)) | 11689 | (verilog-re-search-backward-quick "\\s-" start-pt t)) |
| 10871 | (not (looking-at "\\s-or\\b")))) | 11690 | (not (looking-at "\\s-or\\b")))) |
| 10872 | (setq not-first t)) | 11691 | (setq not-first t)) |
| 10873 | (setq sig-list (sort sig-list `verilog-signals-sort-compare)) | 11692 | (setq sig-list (sort sig-list `verilog-signals-sort-compare)) |
| @@ -10889,9 +11708,13 @@ registers set elsewhere in the always block. | |||
| 10889 | Limitations: | 11708 | Limitations: |
| 10890 | AUTORESET will not clear memories. | 11709 | AUTORESET will not clear memories. |
| 10891 | 11710 | ||
| 10892 | AUTORESET uses <= if there are any <= assignments in the block, | 11711 | AUTORESET uses <= if the signal has a <= assignment in the block, |
| 10893 | else it uses =. | 11712 | else it uses =. |
| 10894 | 11713 | ||
| 11714 | If <= is used, all = assigned variables are ignored if | ||
| 11715 | `verilog-auto-reset-blocking-in-non' is nil; they are presumed | ||
| 11716 | to be temporaries. | ||
| 11717 | |||
| 10895 | /*AUTORESET*/ presumes that any signals mentioned between the previous | 11718 | /*AUTORESET*/ presumes that any signals mentioned between the previous |
| 10896 | begin/case/if statement and the AUTORESET comment are being reset manually | 11719 | begin/case/if statement and the AUTORESET comment are being reset manually |
| 10897 | and should not be automatically reset. This includes omitting any signals | 11720 | and should not be automatically reset. This includes omitting any signals |
| @@ -10927,12 +11750,12 @@ Typing \\[verilog-auto] will make this into: | |||
| 10927 | /*AUTORESET*/ | 11750 | /*AUTORESET*/ |
| 10928 | // Beginning of autoreset for uninitialized flops | 11751 | // Beginning of autoreset for uninitialized flops |
| 10929 | a <= 0; | 11752 | a <= 0; |
| 10930 | b <= 0; | 11753 | b = 0; // if `verilog-auto-reset-blocking-in-non' true |
| 10931 | // End of automatics | 11754 | // End of automatics |
| 10932 | end | 11755 | end |
| 10933 | else begin | 11756 | else begin |
| 10934 | a <= in_a; | 11757 | a <= in_a; |
| 10935 | b <= in_b; | 11758 | b = in_b; |
| 10936 | c <= in_c; | 11759 | c <= in_c; |
| 10937 | end | 11760 | end |
| 10938 | end" | 11761 | end" |
| @@ -10944,22 +11767,24 @@ Typing \\[verilog-auto] will make this into: | |||
| 10944 | (modi (verilog-modi-current)) | 11767 | (modi (verilog-modi-current)) |
| 10945 | (moddecls (verilog-modi-get-decls modi)) | 11768 | (moddecls (verilog-modi-get-decls modi)) |
| 10946 | (all-list (verilog-decls-get-signals moddecls)) | 11769 | (all-list (verilog-decls-get-signals moddecls)) |
| 10947 | sigss sig-list prereset-sigs assignment-str) | 11770 | sigss sig-list dly-list prereset-sigs) |
| 10948 | ;; Read signals in always, eliminate outputs from reset list | 11771 | ;; Read signals in always, eliminate outputs from reset list |
| 10949 | (setq prereset-sigs (verilog-signals-from-signame | 11772 | (setq prereset-sigs (verilog-signals-from-signame |
| 10950 | (save-excursion | 11773 | (save-excursion |
| 10951 | (verilog-read-signals | 11774 | (verilog-read-signals |
| 10952 | (save-excursion | 11775 | (save-excursion |
| 10953 | (verilog-re-search-backward "\\(@\\|\\<begin\\>\\|\\<if\\>\\|\\<case\\>\\)" nil t) | 11776 | (verilog-re-search-backward-quick "\\(@\\|\\<begin\\>\\|\\<if\\>\\|\\<case\\>\\)" nil t) |
| 10954 | (point)) | 11777 | (point)) |
| 10955 | (point))))) | 11778 | (point))))) |
| 10956 | (save-excursion | 11779 | (save-excursion |
| 10957 | (verilog-re-search-backward "@" nil t) | 11780 | (verilog-re-search-backward-quick "@" nil t) |
| 10958 | (setq sigss (verilog-read-always-signals))) | 11781 | (setq sigss (verilog-read-always-signals))) |
| 10959 | (setq assignment-str (if (verilog-alw-get-uses-delayed sigss) | 11782 | (setq dly-list (verilog-alw-get-outputs-delayed sigss)) |
| 10960 | (concat " <= " verilog-assignment-delay) | 11783 | (setq sig-list (verilog-signals-not-in (append |
| 10961 | " = ")) | 11784 | (verilog-alw-get-outputs-delayed sigss) |
| 10962 | (setq sig-list (verilog-signals-not-in (verilog-alw-get-outputs sigss) | 11785 | (when (or (not (verilog-alw-get-uses-delayed sigss)) |
| 11786 | verilog-auto-reset-blocking-in-non) | ||
| 11787 | (verilog-alw-get-outputs-immediate sigss))) | ||
| 10963 | (append | 11788 | (append |
| 10964 | (verilog-alw-get-temps sigss) | 11789 | (verilog-alw-get-temps sigss) |
| 10965 | prereset-sigs))) | 11790 | prereset-sigs))) |
| @@ -10967,17 +11792,18 @@ Typing \\[verilog-auto] will make this into: | |||
| 10967 | (when sig-list | 11792 | (when sig-list |
| 10968 | (insert "\n"); | 11793 | (insert "\n"); |
| 10969 | (verilog-insert-indent "// Beginning of autoreset for uninitialized flops\n"); | 11794 | (verilog-insert-indent "// Beginning of autoreset for uninitialized flops\n"); |
| 10970 | (indent-to indent-pt) | ||
| 10971 | (while sig-list | 11795 | (while sig-list |
| 10972 | (let ((sig (or (assoc (verilog-sig-name (car sig-list)) all-list) ;; As sig-list has no widths | 11796 | (let ((sig (or (assoc (verilog-sig-name (car sig-list)) all-list) ;; As sig-list has no widths |
| 10973 | (car sig-list)))) | 11797 | (car sig-list)))) |
| 11798 | (indent-to indent-pt) | ||
| 10974 | (insert (verilog-sig-name sig) | 11799 | (insert (verilog-sig-name sig) |
| 10975 | assignment-str | 11800 | (if (assoc (verilog-sig-name sig) dly-list) |
| 11801 | (concat " <= " verilog-assignment-delay) | ||
| 11802 | " = ") | ||
| 10976 | (verilog-sig-tieoff sig (not verilog-auto-reset-widths)) | 11803 | (verilog-sig-tieoff sig (not verilog-auto-reset-widths)) |
| 10977 | ";\n") | 11804 | ";\n") |
| 10978 | (indent-to indent-pt) | ||
| 10979 | (setq sig-list (cdr sig-list)))) | 11805 | (setq sig-list (cdr sig-list)))) |
| 10980 | (verilog-insert "// End of automatics"))))) | 11806 | (verilog-insert-indent "// End of automatics"))))) |
| 10981 | 11807 | ||
| 10982 | (defun verilog-auto-tieoff () | 11808 | (defun verilog-auto-tieoff () |
| 10983 | "Expand AUTOTIEOFF statements, as part of \\[verilog-auto]. | 11809 | "Expand AUTOTIEOFF statements, as part of \\[verilog-auto]. |
| @@ -10996,6 +11822,9 @@ them to a one. | |||
| 10996 | You can add signals you do not want included in AUTOTIEOFF with | 11822 | You can add signals you do not want included in AUTOTIEOFF with |
| 10997 | `verilog-auto-tieoff-ignore-regexp'. | 11823 | `verilog-auto-tieoff-ignore-regexp'. |
| 10998 | 11824 | ||
| 11825 | `verilog-auto-wire-type' may be used to change the datatype of | ||
| 11826 | the declarations. | ||
| 11827 | |||
| 10999 | An example of making a stub for another module: | 11828 | An example of making a stub for another module: |
| 11000 | 11829 | ||
| 11001 | module ExampStub (/*AUTOINST*/); | 11830 | module ExampStub (/*AUTOINST*/); |
| @@ -11031,8 +11860,7 @@ Typing \\[verilog-auto] will make this into: | |||
| 11031 | (modsubdecls (verilog-modi-get-sub-decls modi)) | 11860 | (modsubdecls (verilog-modi-get-sub-decls modi)) |
| 11032 | (sig-list (verilog-signals-not-in | 11861 | (sig-list (verilog-signals-not-in |
| 11033 | (verilog-decls-get-outputs moddecls) | 11862 | (verilog-decls-get-outputs moddecls) |
| 11034 | (append (verilog-decls-get-wires moddecls) | 11863 | (append (verilog-decls-get-vars moddecls) |
| 11035 | (verilog-decls-get-regs moddecls) | ||
| 11036 | (verilog-decls-get-assigns moddecls) | 11864 | (verilog-decls-get-assigns moddecls) |
| 11037 | (verilog-decls-get-consts moddecls) | 11865 | (verilog-decls-get-consts moddecls) |
| 11038 | (verilog-decls-get-gparams moddecls) | 11866 | (verilog-decls-get-gparams moddecls) |
| @@ -11045,10 +11873,14 @@ Typing \\[verilog-auto] will make this into: | |||
| 11045 | (forward-line 1) | 11873 | (forward-line 1) |
| 11046 | (verilog-insert-indent "// Beginning of automatic tieoffs (for this module's unterminated outputs)\n") | 11874 | (verilog-insert-indent "// Beginning of automatic tieoffs (for this module's unterminated outputs)\n") |
| 11047 | (setq sig-list (sort (copy-alist sig-list) `verilog-signals-sort-compare)) | 11875 | (setq sig-list (sort (copy-alist sig-list) `verilog-signals-sort-compare)) |
| 11048 | (verilog-modi-cache-add-wires modi sig-list) ; Before we trash list | 11876 | (verilog-modi-cache-add-vars modi sig-list) ; Before we trash list |
| 11049 | (while sig-list | 11877 | (while sig-list |
| 11050 | (let ((sig (car sig-list))) | 11878 | (let ((sig (car sig-list))) |
| 11051 | (verilog-insert-one-definition sig "wire" indent-pt) | 11879 | (cond ((equal verilog-auto-tieoff-declaration "assign") |
| 11880 | (indent-to indent-pt) | ||
| 11881 | (insert "assign " (verilog-sig-name sig))) | ||
| 11882 | (t | ||
| 11883 | (verilog-insert-one-definition sig verilog-auto-tieoff-declaration indent-pt))) | ||
| 11052 | (indent-to (max 48 (+ indent-pt 40))) | 11884 | (indent-to (max 48 (+ indent-pt 40))) |
| 11053 | (insert "= " (verilog-sig-tieoff sig) | 11885 | (insert "= " (verilog-sig-tieoff sig) |
| 11054 | ";\n") | 11886 | ";\n") |
| @@ -11151,24 +11983,28 @@ comment. The comment must be between the keyword and the symbol. | |||
| 11151 | \(Annoying, but that's what Synopsys's dc_shell FSM reader requires.) | 11983 | \(Annoying, but that's what Synopsys's dc_shell FSM reader requires.) |
| 11152 | 11984 | ||
| 11153 | Next, registers which that enum applies to are also tagged with the same | 11985 | Next, registers which that enum applies to are also tagged with the same |
| 11154 | enum. Synopsys also suggests labeling state vectors, but `verilog-mode' | 11986 | enum. |
| 11155 | doesn't care. | ||
| 11156 | 11987 | ||
| 11157 | Finally, a AUTOASCIIENUM command is used. | 11988 | Finally, a AUTOASCIIENUM command is used. |
| 11158 | 11989 | ||
| 11159 | The first parameter is the name of the signal to be decoded. | 11990 | The first parameter is the name of the signal to be decoded. |
| 11160 | If and only if the first parameter width is 2^(number of states | ||
| 11161 | in enum) and does NOT match the width of the enum, the signal | ||
| 11162 | is assumed to be a one hot decode. Otherwise, it's a normal | ||
| 11163 | encoded state vector. | ||
| 11164 | 11991 | ||
| 11165 | The second parameter is the name to store the ASCII code into. For the | 11992 | The second parameter is the name to store the ASCII code into. For the |
| 11166 | signal foo, I suggest the name _foo__ascii, where the leading _ indicates | 11993 | signal foo, I suggest the name _foo__ascii, where the leading _ indicates |
| 11167 | a signal that is just for simulation, and the magic characters _ascii | 11994 | a signal that is just for simulation, and the magic characters _ascii |
| 11168 | tell viewers like Dinotrace to display in ASCII format. | 11995 | tell viewers like Dinotrace to display in ASCII format. |
| 11169 | 11996 | ||
| 11170 | The final optional parameter is a string which will be removed from the | 11997 | The third optional parameter is a string which will be removed |
| 11171 | state names. | 11998 | from the state names. It defaults to "" which removes nothing. |
| 11999 | |||
| 12000 | The fourth optional parameter is \"onehot\" to force one-hot | ||
| 12001 | decoding. If unspecified, if and only if the first parameter | ||
| 12002 | width is 2^(number of states in enum) and does NOT match the | ||
| 12003 | width of the enum, the signal is assumed to be a one hot | ||
| 12004 | decode. Otherwise, it's a normal encoded state vector. | ||
| 12005 | |||
| 12006 | `verilog-auto-wire-type' may be used to change the datatype of | ||
| 12007 | the declarations. | ||
| 11172 | 12008 | ||
| 11173 | An example: | 12009 | An example: |
| 11174 | 12010 | ||
| @@ -11202,10 +12038,13 @@ Typing \\[verilog-auto] will make this into: | |||
| 11202 | end | 12038 | end |
| 11203 | // End of automatics" | 12039 | // End of automatics" |
| 11204 | (save-excursion | 12040 | (save-excursion |
| 11205 | (let* ((params (verilog-read-auto-params 2 3)) | 12041 | (let* ((params (verilog-read-auto-params 2 4)) |
| 11206 | (undecode-name (nth 0 params)) | 12042 | (undecode-name (nth 0 params)) |
| 11207 | (ascii-name (nth 1 params)) | 12043 | (ascii-name (nth 1 params)) |
| 11208 | (elim-regexp (nth 2 params)) | 12044 | (elim-regexp (and (nth 2 params) |
| 12045 | (not (equal (nth 2 params) "")) | ||
| 12046 | (nth 2 params))) | ||
| 12047 | (one-hot-flag (nth 3 params)) | ||
| 11209 | ;; | 12048 | ;; |
| 11210 | (indent-pt (current-indentation)) | 12049 | (indent-pt (current-indentation)) |
| 11211 | (modi (verilog-modi-current)) | 12050 | (modi (verilog-modi-current)) |
| @@ -11213,11 +12052,10 @@ Typing \\[verilog-auto] will make this into: | |||
| 11213 | ;; | 12052 | ;; |
| 11214 | (sig-list-consts (append (verilog-decls-get-consts moddecls) | 12053 | (sig-list-consts (append (verilog-decls-get-consts moddecls) |
| 11215 | (verilog-decls-get-gparams moddecls))) | 12054 | (verilog-decls-get-gparams moddecls))) |
| 11216 | (sig-list-all (append (verilog-decls-get-regs moddecls) | 12055 | (sig-list-all (append (verilog-decls-get-vars moddecls) |
| 11217 | (verilog-decls-get-outputs moddecls) | 12056 | (verilog-decls-get-outputs moddecls) |
| 11218 | (verilog-decls-get-inouts moddecls) | 12057 | (verilog-decls-get-inouts moddecls) |
| 11219 | (verilog-decls-get-inputs moddecls) | 12058 | (verilog-decls-get-inputs moddecls))) |
| 11220 | (verilog-decls-get-wires moddecls))) | ||
| 11221 | ;; | 12059 | ;; |
| 11222 | (undecode-sig (or (assoc undecode-name sig-list-all) | 12060 | (undecode-sig (or (assoc undecode-name sig-list-all) |
| 11223 | (error "%s: Signal %s not found in design" (verilog-point-text) undecode-name))) | 12061 | (error "%s: Signal %s not found in design" (verilog-point-text) undecode-name))) |
| @@ -11229,13 +12067,15 @@ Typing \\[verilog-auto] will make this into: | |||
| 11229 | (error "%s: No state definitions for %s" (verilog-point-text) undecode-enum)) | 12067 | (error "%s: No state definitions for %s" (verilog-point-text) undecode-enum)) |
| 11230 | nil)) | 12068 | nil)) |
| 11231 | ;; | 12069 | ;; |
| 11232 | (one-hot (and ;; width(enum) != width(sig) | 12070 | (one-hot (or |
| 11233 | (or (not (verilog-sig-bits (car enum-sigs))) | 12071 | (string-match "onehot" (or one-hot-flag "")) |
| 11234 | (not (equal (verilog-sig-width (car enum-sigs)) | 12072 | (and ;; width(enum) != width(sig) |
| 11235 | (verilog-sig-width undecode-sig)))) | 12073 | (or (not (verilog-sig-bits (car enum-sigs))) |
| 11236 | ;; count(enums) == width(sig) | 12074 | (not (equal (verilog-sig-width (car enum-sigs)) |
| 11237 | (equal (number-to-string (length enum-sigs)) | 12075 | (verilog-sig-width undecode-sig)))) |
| 11238 | (verilog-sig-width undecode-sig)))) | 12076 | ;; count(enums) == width(sig) |
| 12077 | (equal (number-to-string (length enum-sigs)) | ||
| 12078 | (verilog-sig-width undecode-sig))))) | ||
| 11239 | (enum-chars 0) | 12079 | (enum-chars 0) |
| 11240 | (ascii-chars 0)) | 12080 | (ascii-chars 0)) |
| 11241 | ;; | 12081 | ;; |
| @@ -11252,13 +12092,11 @@ Typing \\[verilog-auto] will make this into: | |||
| 11252 | (verilog-insert-indent "// Beginning of automatic ASCII enum decoding\n") | 12092 | (verilog-insert-indent "// Beginning of automatic ASCII enum decoding\n") |
| 11253 | (let ((decode-sig-list (list (list ascii-name (format "[%d:0]" (- (* ascii-chars 8) 1)) | 12093 | (let ((decode-sig-list (list (list ascii-name (format "[%d:0]" (- (* ascii-chars 8) 1)) |
| 11254 | (concat "Decode of " undecode-name) nil nil)))) | 12094 | (concat "Decode of " undecode-name) nil nil)))) |
| 11255 | (verilog-insert-definition decode-sig-list "reg" indent-pt nil) | 12095 | (verilog-insert-definition modi decode-sig-list "reg" indent-pt nil)) |
| 11256 | (verilog-modi-cache-add-regs modi decode-sig-list)) | ||
| 11257 | ;; | 12096 | ;; |
| 11258 | (verilog-insert-indent "always @(" undecode-name ") begin\n") | 12097 | (verilog-insert-indent "always @(" undecode-name ") begin\n") |
| 11259 | (setq indent-pt (+ indent-pt verilog-indent-level)) | 12098 | (setq indent-pt (+ indent-pt verilog-indent-level)) |
| 11260 | (indent-to indent-pt) | 12099 | (verilog-insert-indent "case ({" undecode-name "})\n") |
| 11261 | (insert "case ({" undecode-name "})\n") | ||
| 11262 | (setq indent-pt (+ indent-pt verilog-case-indent)) | 12100 | (setq indent-pt (+ indent-pt verilog-case-indent)) |
| 11263 | ;; | 12101 | ;; |
| 11264 | (let ((tmp-sigs enum-sigs) | 12102 | (let ((tmp-sigs enum-sigs) |
| @@ -11271,7 +12109,9 @@ Typing \\[verilog-auto] will make this into: | |||
| 11271 | (concat | 12109 | (concat |
| 11272 | (format chrfmt | 12110 | (format chrfmt |
| 11273 | (concat (if one-hot "(") | 12111 | (concat (if one-hot "(") |
| 11274 | (if one-hot (verilog-sig-width undecode-sig)) | 12112 | ;; Use enum-sigs length as that's numeric |
| 12113 | ;; verilog-sig-width undecode-sig might not be. | ||
| 12114 | (if one-hot (number-to-string (length enum-sigs))) | ||
| 11275 | ;; We use a shift instead of var[index] | 12115 | ;; We use a shift instead of var[index] |
| 11276 | ;; so that a non-one hot value will show as error. | 12116 | ;; so that a non-one hot value will show as error. |
| 11277 | (if one-hot "'b1<<") | 12117 | (if one-hot "'b1<<") |
| @@ -11326,6 +12166,8 @@ following the /*AUTO...*/ command. | |||
| 11326 | 12166 | ||
| 11327 | Use \\[verilog-delete-auto] to remove the AUTOs. | 12167 | Use \\[verilog-delete-auto] to remove the AUTOs. |
| 11328 | 12168 | ||
| 12169 | Use \\[verilog-diff-auto] to see differences in AUTO expansion. | ||
| 12170 | |||
| 11329 | Use \\[verilog-inject-auto] to insert AUTOs for the first time. | 12171 | Use \\[verilog-inject-auto] to insert AUTOs for the first time. |
| 11330 | 12172 | ||
| 11331 | Use \\[verilog-faq] for a pointer to frequently asked questions. | 12173 | Use \\[verilog-faq] for a pointer to frequently asked questions. |
| @@ -11348,11 +12190,14 @@ Or fix indentation with: | |||
| 11348 | Likewise, you can delete or inject AUTOs with: | 12190 | Likewise, you can delete or inject AUTOs with: |
| 11349 | emacs --batch <filenames.v> -f verilog-batch-delete-auto | 12191 | emacs --batch <filenames.v> -f verilog-batch-delete-auto |
| 11350 | emacs --batch <filenames.v> -f verilog-batch-inject-auto | 12192 | emacs --batch <filenames.v> -f verilog-batch-inject-auto |
| 12193 | Or check if AUTOs have the same expansion | ||
| 12194 | emacs --batch <filenames.v> -f verilog-batch-diff-auto | ||
| 11351 | 12195 | ||
| 11352 | Using \\[describe-function], see also: | 12196 | Using \\[describe-function], see also: |
| 11353 | `verilog-auto-arg' for AUTOARG module instantiations | 12197 | `verilog-auto-arg' for AUTOARG module instantiations |
| 11354 | `verilog-auto-ascii-enum' for AUTOASCIIENUM enumeration decoding | 12198 | `verilog-auto-ascii-enum' for AUTOASCIIENUM enumeration decoding |
| 11355 | `verilog-auto-inout-comp' for AUTOINOUTCOMP copy complemented i/o | 12199 | `verilog-auto-inout-comp' for AUTOINOUTCOMP copy complemented i/o |
| 12200 | `verilog-auto-inout-in' for AUTOINOUTIN inputs for all i/o | ||
| 11356 | `verilog-auto-inout-module' for AUTOINOUTMODULE copying i/o from elsewhere | 12201 | `verilog-auto-inout-module' for AUTOINOUTMODULE copying i/o from elsewhere |
| 11357 | `verilog-auto-inout' for AUTOINOUT making hierarchy inouts | 12202 | `verilog-auto-inout' for AUTOINOUT making hierarchy inouts |
| 11358 | `verilog-auto-input' for AUTOINPUT making hierarchy inputs | 12203 | `verilog-auto-input' for AUTOINPUT making hierarchy inputs |
| @@ -11360,6 +12205,7 @@ Using \\[describe-function], see also: | |||
| 11360 | `verilog-auto-inst' for AUTOINST instantiation pins | 12205 | `verilog-auto-inst' for AUTOINST instantiation pins |
| 11361 | `verilog-auto-star' for AUTOINST .* SystemVerilog pins | 12206 | `verilog-auto-star' for AUTOINST .* SystemVerilog pins |
| 11362 | `verilog-auto-inst-param' for AUTOINSTPARAM instantiation params | 12207 | `verilog-auto-inst-param' for AUTOINSTPARAM instantiation params |
| 12208 | `verilog-auto-logic' for AUTOLOGIC declaring logic signals | ||
| 11363 | `verilog-auto-output' for AUTOOUTPUT making hierarchy outputs | 12209 | `verilog-auto-output' for AUTOOUTPUT making hierarchy outputs |
| 11364 | `verilog-auto-output-every' for AUTOOUTPUTEVERY making all outputs | 12210 | `verilog-auto-output-every' for AUTOOUTPUTEVERY making all outputs |
| 11365 | `verilog-auto-reg' for AUTOREG registers | 12211 | `verilog-auto-reg' for AUTOREG registers |
| @@ -11402,10 +12248,13 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11402 | (verilog-save-no-change-functions | 12248 | (verilog-save-no-change-functions |
| 11403 | (verilog-save-scan-cache | 12249 | (verilog-save-scan-cache |
| 11404 | (save-excursion | 12250 | (save-excursion |
| 12251 | ;; Wipe cache; otherwise if we AUTOed a block above this one, | ||
| 12252 | ;; we'll misremember we have generated IOs, confusing AUTOOUTPUT | ||
| 12253 | (setq verilog-modi-cache-list nil) | ||
| 11405 | ;; If we're not in verilog-mode, change syntax table so parsing works right | 12254 | ;; If we're not in verilog-mode, change syntax table so parsing works right |
| 11406 | (unless (eq major-mode `verilog-mode) (verilog-mode)) | 12255 | (unless (eq major-mode `verilog-mode) (verilog-mode)) |
| 11407 | ;; Allow user to customize | 12256 | ;; Allow user to customize |
| 11408 | (run-hooks 'verilog-before-auto-hook) | 12257 | (verilog-run-hooks 'verilog-before-auto-hook) |
| 11409 | ;; Try to save the user from needing to revert-file to reread file local-variables | 12258 | ;; Try to save the user from needing to revert-file to reread file local-variables |
| 11410 | (verilog-auto-reeval-locals) | 12259 | (verilog-auto-reeval-locals) |
| 11411 | (verilog-read-auto-lisp-present) | 12260 | (verilog-read-auto-lisp-present) |
| @@ -11445,6 +12294,7 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11445 | ;; first in/outs from other files | 12294 | ;; first in/outs from other files |
| 11446 | (verilog-auto-re-search-do "/\\*AUTOINOUTMODULE([^)]*)\\*/" 'verilog-auto-inout-module) | 12295 | (verilog-auto-re-search-do "/\\*AUTOINOUTMODULE([^)]*)\\*/" 'verilog-auto-inout-module) |
| 11447 | (verilog-auto-re-search-do "/\\*AUTOINOUTCOMP([^)]*)\\*/" 'verilog-auto-inout-comp) | 12296 | (verilog-auto-re-search-do "/\\*AUTOINOUTCOMP([^)]*)\\*/" 'verilog-auto-inout-comp) |
| 12297 | (verilog-auto-re-search-do "/\\*AUTOINOUTIN([^)]*)\\*/" 'verilog-auto-inout-in) | ||
| 11448 | ;; next in/outs which need previous sucked inputs first | 12298 | ;; next in/outs which need previous sucked inputs first |
| 11449 | (verilog-auto-re-search-do "/\\*AUTOOUTPUT\\((\"[^\"]*\")\\)\\*/" | 12299 | (verilog-auto-re-search-do "/\\*AUTOOUTPUT\\((\"[^\"]*\")\\)\\*/" |
| 11450 | (lambda () (verilog-auto-output t))) | 12300 | (lambda () (verilog-auto-output t))) |
| @@ -11458,6 +12308,7 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11458 | ;; Then tie off those in/outs | 12308 | ;; Then tie off those in/outs |
| 11459 | (verilog-auto-re-search-do "/\\*AUTOTIEOFF\\*/" 'verilog-auto-tieoff) | 12309 | (verilog-auto-re-search-do "/\\*AUTOTIEOFF\\*/" 'verilog-auto-tieoff) |
| 11460 | ;; Wires/regs must be after inputs/outputs | 12310 | ;; Wires/regs must be after inputs/outputs |
| 12311 | (verilog-auto-re-search-do "/\\*AUTOLOGIC\\*/" 'verilog-auto-logic) | ||
| 11461 | (verilog-auto-re-search-do "/\\*AUTOWIRE\\*/" 'verilog-auto-wire) | 12312 | (verilog-auto-re-search-do "/\\*AUTOWIRE\\*/" 'verilog-auto-wire) |
| 11462 | (verilog-auto-re-search-do "/\\*AUTOREG\\*/" 'verilog-auto-reg) | 12313 | (verilog-auto-re-search-do "/\\*AUTOREG\\*/" 'verilog-auto-reg) |
| 11463 | (verilog-auto-re-search-do "/\\*AUTOREGINPUT\\*/" 'verilog-auto-reg-input) | 12314 | (verilog-auto-re-search-do "/\\*AUTOREGINPUT\\*/" 'verilog-auto-reg-input) |
| @@ -11471,7 +12322,10 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11471 | (when verilog-auto-inst-template-numbers | 12322 | (when verilog-auto-inst-template-numbers |
| 11472 | (verilog-auto-templated-rel)))) | 12323 | (verilog-auto-templated-rel)))) |
| 11473 | ;; | 12324 | ;; |
| 11474 | (run-hooks 'verilog-auto-hook) | 12325 | (verilog-run-hooks 'verilog-auto-hook) |
| 12326 | ;; | ||
| 12327 | (when verilog-auto-delete-trailing-whitespace | ||
| 12328 | (verilog-delete-trailing-whitespace)) | ||
| 11475 | ;; | 12329 | ;; |
| 11476 | (set (make-local-variable 'verilog-auto-update-tick) (buffer-chars-modified-tick)) | 12330 | (set (make-local-variable 'verilog-auto-update-tick) (buffer-chars-modified-tick)) |
| 11477 | ;; | 12331 | ;; |
| @@ -11502,10 +12356,12 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11502 | (define-key map "i" 'verilog-sk-initial) | 12356 | (define-key map "i" 'verilog-sk-initial) |
| 11503 | (define-key map "j" 'verilog-sk-fork) | 12357 | (define-key map "j" 'verilog-sk-fork) |
| 11504 | (define-key map "m" 'verilog-sk-module) | 12358 | (define-key map "m" 'verilog-sk-module) |
| 12359 | (define-key map "o" 'verilog-sk-ovm-class) | ||
| 11505 | (define-key map "p" 'verilog-sk-primitive) | 12360 | (define-key map "p" 'verilog-sk-primitive) |
| 11506 | (define-key map "r" 'verilog-sk-repeat) | 12361 | (define-key map "r" 'verilog-sk-repeat) |
| 11507 | (define-key map "s" 'verilog-sk-specify) | 12362 | (define-key map "s" 'verilog-sk-specify) |
| 11508 | (define-key map "t" 'verilog-sk-task) | 12363 | (define-key map "t" 'verilog-sk-task) |
| 12364 | (define-key map "u" 'verilog-sk-uvm-class) | ||
| 11509 | (define-key map "w" 'verilog-sk-while) | 12365 | (define-key map "w" 'verilog-sk-while) |
| 11510 | (define-key map "x" 'verilog-sk-casex) | 12366 | (define-key map "x" 'verilog-sk-casex) |
| 11511 | (define-key map "z" 'verilog-sk-casez) | 12367 | (define-key map "z" 'verilog-sk-casez) |
| @@ -11531,7 +12387,7 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11531 | ;; may want to consider moving the binding to another key in your .emacs | 12387 | ;; may want to consider moving the binding to another key in your .emacs |
| 11532 | ;; file. | 12388 | ;; file. |
| 11533 | ;; | 12389 | ;; |
| 11534 | ;(define-key verilog-mode-map "\C-ct" verilog-template-map) | 12390 | ;; Note \C-c and letter are reserved for users |
| 11535 | (define-key verilog-mode-map "\C-c\C-t" verilog-template-map) | 12391 | (define-key verilog-mode-map "\C-c\C-t" verilog-template-map) |
| 11536 | 12392 | ||
| 11537 | ;;; ---- statement skeletons ------------------------------------------ | 12393 | ;;; ---- statement skeletons ------------------------------------------ |
| @@ -11571,7 +12427,7 @@ Wilson Snyder (wsnyder@wsnyder.org)." | |||
| 11571 | "output: " str) | 12427 | "output: " str) |
| 11572 | 12428 | ||
| 11573 | (define-skeleton verilog-sk-prompt-msb | 12429 | (define-skeleton verilog-sk-prompt-msb |
| 11574 | "Prompt for least significant bit specification." | 12430 | "Prompt for most significant bit specification." |
| 11575 | "msb:" str & ?: & '(verilog-sk-prompt-lsb) | -1 ) | 12431 | "msb:" str & ?: & '(verilog-sk-prompt-lsb) | -1 ) |
| 11576 | 12432 | ||
| 11577 | (define-skeleton verilog-sk-prompt-lsb | 12433 | (define-skeleton verilog-sk-prompt-lsb |
| @@ -11616,6 +12472,38 @@ See also `verilog-header' for an alternative format." | |||
| 11616 | > _ \n | 12472 | > _ \n |
| 11617 | > (- verilog-indent-level-behavioral) "endmodule" (progn (electric-verilog-terminate-line) nil)) | 12473 | > (- verilog-indent-level-behavioral) "endmodule" (progn (electric-verilog-terminate-line) nil)) |
| 11618 | 12474 | ||
| 12475 | ;;; ------------------------------------------------------------------------ | ||
| 12476 | ;;; Define a default OVM class, with macros and new() | ||
| 12477 | ;;; ------------------------------------------------------------------------ | ||
| 12478 | |||
| 12479 | (define-skeleton verilog-sk-ovm-class | ||
| 12480 | "Insert a class definition" | ||
| 12481 | () | ||
| 12482 | > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" \n | ||
| 12483 | > _ \n | ||
| 12484 | > "`ovm_object_utils_begin(" name ")" \n | ||
| 12485 | > (- verilog-indent-level) " `ovm_object_utils_end" \n | ||
| 12486 | > _ \n | ||
| 12487 | > "function new(name=\"" name "\");" \n | ||
| 12488 | > "super.new(name);" \n | ||
| 12489 | > (- verilog-indent-level) "endfunction" \n | ||
| 12490 | > _ \n | ||
| 12491 | > "endclass" (progn (electric-verilog-terminate-line) nil)) | ||
| 12492 | |||
| 12493 | (define-skeleton verilog-sk-uvm-class | ||
| 12494 | "Insert a class definition" | ||
| 12495 | () | ||
| 12496 | > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" \n | ||
| 12497 | > _ \n | ||
| 12498 | > "`uvm_object_utils_begin(" name ")" \n | ||
| 12499 | > (- verilog-indent-level) " `uvm_object_utils_end" \n | ||
| 12500 | > _ \n | ||
| 12501 | > "function new(name=\"" name "\");" \n | ||
| 12502 | > "super.new(name);" \n | ||
| 12503 | > (- verilog-indent-level) "endfunction" \n | ||
| 12504 | > _ \n | ||
| 12505 | > "endclass" (progn (electric-verilog-terminate-line) nil)) | ||
| 12506 | |||
| 11619 | (define-skeleton verilog-sk-primitive | 12507 | (define-skeleton verilog-sk-primitive |
| 11620 | "Insert a task definition." | 12508 | "Insert a task definition." |
| 11621 | () | 12509 | () |
| @@ -11918,10 +12806,10 @@ Clicking on the middle-mouse button loads them in a buffer (as in dired)." | |||
| 11918 | ;; This scanner is syntax-fragile, so don't get bent | 12806 | ;; This scanner is syntax-fragile, so don't get bent |
| 11919 | (when verilog-highlight-modules | 12807 | (when verilog-highlight-modules |
| 11920 | (condition-case nil | 12808 | (condition-case nil |
| 11921 | (while (verilog-re-search-forward "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-point t) | 12809 | (while (verilog-re-search-forward-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" end-point t) |
| 11922 | (save-excursion | 12810 | (save-excursion |
| 11923 | (goto-char (match-beginning 0)) | 12811 | (goto-char (match-beginning 0)) |
| 11924 | (unless (verilog-inside-comment-p) | 12812 | (unless (verilog-inside-comment-or-string-p) |
| 11925 | (verilog-read-inst-module-matcher) ;; sets match 0 | 12813 | (verilog-read-inst-module-matcher) ;; sets match 0 |
| 11926 | (let* ((ov (make-overlay (match-beginning 0) (match-end 0)))) | 12814 | (let* ((ov (make-overlay (match-beginning 0) (match-end 0)))) |
| 11927 | (overlay-put ov 'start-closed 't) | 12815 | (overlay-put ov 'start-closed 't) |
diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 65cdb600d74..c8bdc271f5f 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el | |||
| @@ -366,7 +366,7 @@ See also `ps-mule-font-info-database-bdf'.") | |||
| 366 | ;; character is printed by which FONT-SPEC. It has one extra slot | 366 | ;; character is printed by which FONT-SPEC. It has one extra slot |
| 367 | ;; whose value is an alist of the form: | 367 | ;; whose value is an alist of the form: |
| 368 | ;; (CHARSET . FONT-SPEC) | 368 | ;; (CHARSET . FONT-SPEC) |
| 369 | ;; FONT-SPEC is a vecotr of the form: | 369 | ;; FONT-SPEC is a vector of the form: |
| 370 | ;; (ID FONT-SRC FONT-NAME ENCODING EXTRA) | 370 | ;; (ID FONT-SRC FONT-NAME ENCODING EXTRA) |
| 371 | (defvar ps-mule-font-spec-tables nil) | 371 | (defvar ps-mule-font-spec-tables nil) |
| 372 | 372 | ||
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 6d05e6db586..cb19197d16d 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el | |||
| @@ -6658,7 +6658,7 @@ If FACE is not a valid face name, use default face." | |||
| 6658 | ;; But autoload them here to make the separation invisible. | 6658 | ;; But autoload them here to make the separation invisible. |
| 6659 | 6659 | ||
| 6660 | ;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize | 6660 | ;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize |
| 6661 | ;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "afb9022f2e1e366c51672aa11a3bd76f") | 6661 | ;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "98fcbceecff2ac603ba35672b99b5278") |
| 6662 | ;;; Generated autoloads from ps-mule.el | 6662 | ;;; Generated autoloads from ps-mule.el |
| 6663 | 6663 | ||
| 6664 | (defvar ps-multibyte-buffer nil "\ | 6664 | (defvar ps-multibyte-buffer nil "\ |
diff --git a/lisp/repeat.el b/lisp/repeat.el index 8ddc8d41429..13b6a1d2315 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el | |||
| @@ -363,7 +363,7 @@ recently executed command not bound to an input event\"." | |||
| 363 | 363 | ||
| 364 | ;; OK, there's one situation left where that doesn't work correctly: when the | 364 | ;; OK, there's one situation left where that doesn't work correctly: when the |
| 365 | ;; most recent self-insertion provoked an auto-fill. The problem is that | 365 | ;; most recent self-insertion provoked an auto-fill. The problem is that |
| 366 | ;; unravelling the undo information after an auto-fill is too hard, since all | 366 | ;; unraveling the undo information after an auto-fill is too hard, since all |
| 367 | ;; kinds of stuff can get in there as a result of comment prefixes etc. It'd | 367 | ;; kinds of stuff can get in there as a result of comment prefixes etc. It'd |
| 368 | ;; be possible to advise do-auto-fill to record the most recent | 368 | ;; be possible to advise do-auto-fill to record the most recent |
| 369 | ;; self-insertion before it does its thing, but that's a performance hit on | 369 | ;; self-insertion before it does its thing, but that's a performance hit on |
diff --git a/lisp/replace.el b/lisp/replace.el index 4ea3f747caa..a46f62ae139 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1663,7 +1663,7 @@ with the `noescape' argument set. | |||
| 1663 | t t))) | 1663 | t t))) |
| 1664 | 1664 | ||
| 1665 | (defun replace-loop-through-replacements (data count) | 1665 | (defun replace-loop-through-replacements (data count) |
| 1666 | ;; DATA is a vector contaning the following values: | 1666 | ;; DATA is a vector containing the following values: |
| 1667 | ;; 0 next-rotate-count | 1667 | ;; 0 next-rotate-count |
| 1668 | ;; 1 repeat-count | 1668 | ;; 1 repeat-count |
| 1669 | ;; 2 next-replacement | 1669 | ;; 2 next-replacement |
diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el index 2d8c6e0964d..ded76f9fbcb 100644 --- a/lisp/rfn-eshadow.el +++ b/lisp/rfn-eshadow.el | |||
| @@ -179,7 +179,8 @@ been set up by `rfn-eshadow-setup-minibuffer'." | |||
| 179 | (let ((goal (substitute-in-file-name (minibuffer-contents))) | 179 | (let ((goal (substitute-in-file-name (minibuffer-contents))) |
| 180 | (mid (overlay-end rfn-eshadow-overlay)) | 180 | (mid (overlay-end rfn-eshadow-overlay)) |
| 181 | (start (minibuffer-prompt-end)) | 181 | (start (minibuffer-prompt-end)) |
| 182 | (end (point-max))) | 182 | (end (point-max)) |
| 183 | (non-essential t)) | ||
| 183 | (unless | 184 | (unless |
| 184 | ;; Catch the common case where the shadow does not need to move. | 185 | ;; Catch the common case where the shadow does not need to move. |
| 185 | (and mid | 186 | (and mid |
diff --git a/lisp/server.el b/lisp/server.el index bc989c55ed1..e02f63a8268 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -685,7 +685,14 @@ Server mode runs a process that accepts commands from the | |||
| 685 | 685 | ||
| 686 | (defun server-eval-and-print (expr proc) | 686 | (defun server-eval-and-print (expr proc) |
| 687 | "Eval EXPR and send the result back to client PROC." | 687 | "Eval EXPR and send the result back to client PROC." |
| 688 | (let ((v (eval (car (read-from-string expr))))) | 688 | ;; While we're running asynchronously (from a process filter), it is likely |
| 689 | ;; that the emacsclient command was run in response to a user | ||
| 690 | ;; action, so the user probably knows that Emacs is processing this | ||
| 691 | ;; emacsclient request, so if we get a C-g it's likely that the user | ||
| 692 | ;; intended it to interrupt us rather than interrupt whatever Emacs | ||
| 693 | ;; was doing before it started handling the process filter. | ||
| 694 | ;; Hence `with-local-quit' (bug#6585). | ||
| 695 | (let ((v (with-local-quit (eval (car (read-from-string expr)))))) | ||
| 689 | (when proc | 696 | (when proc |
| 690 | (with-temp-buffer | 697 | (with-temp-buffer |
| 691 | (let ((standard-output (current-buffer))) | 698 | (let ((standard-output (current-buffer))) |
diff --git a/lisp/ses.el b/lisp/ses.el index cdc58e12d00..6c9d0a7a50d 100644 --- a/lisp/ses.el +++ b/lisp/ses.el | |||
| @@ -1143,7 +1143,7 @@ preceding cell has spilled over." | |||
| 1143 | (setq x (concat text (if (< maxcol ses--numcols) " " "\n"))) | 1143 | (setq x (concat text (if (< maxcol ses--numcols) " " "\n"))) |
| 1144 | ;; We use set-text-properties to prevent a wacky print function from | 1144 | ;; We use set-text-properties to prevent a wacky print function from |
| 1145 | ;; inserting rogue properties, and to ensure that the keymap property is | 1145 | ;; inserting rogue properties, and to ensure that the keymap property is |
| 1146 | ;; inherited (is it a bug that only unpropertied strings actually | 1146 | ;; inherited (is it a bug that only unpropertized strings actually |
| 1147 | ;; inherit from surrounding text?) | 1147 | ;; inherit from surrounding text?) |
| 1148 | (set-text-properties 0 (length x) nil x) | 1148 | (set-text-properties 0 (length x) nil x) |
| 1149 | (insert-and-inherit x) | 1149 | (insert-and-inherit x) |
| @@ -1371,7 +1371,7 @@ first reference is found." | |||
| 1371 | result-so-far) | 1371 | result-so-far) |
| 1372 | 1372 | ||
| 1373 | (defsubst ses-relocate-symbol (sym rowcol startrow startcol rowincr colincr) | 1373 | (defsubst ses-relocate-symbol (sym rowcol startrow startcol rowincr colincr) |
| 1374 | "Relocate one symbol SYM, whichs corresponds to ROWCOL (a cons of ROW and | 1374 | "Relocate one symbol SYM, which corresponds to ROWCOL (a cons of ROW and |
| 1375 | COL). Cells starting at (STARTROW,STARTCOL) are being shifted | 1375 | COL). Cells starting at (STARTROW,STARTCOL) are being shifted |
| 1376 | by (ROWINCR,COLINCR)." | 1376 | by (ROWINCR,COLINCR)." |
| 1377 | (let ((row (car rowcol)) | 1377 | (let ((row (car rowcol)) |
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 30642e8f2f7..b8a734784be 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el | |||
| @@ -2101,7 +2101,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )." | |||
| 2101 | ;; If the shown files variable has extra directories, then | 2101 | ;; If the shown files variable has extra directories, then |
| 2102 | ;; it is our responsibility to redraw them all | 2102 | ;; it is our responsibility to redraw them all |
| 2103 | ;; Luckily, the nature of inserting items into this list means | 2103 | ;; Luckily, the nature of inserting items into this list means |
| 2104 | ;; that by reversing it, we can easilly go in the right order | 2104 | ;; that by reversing it, we can easily go in the right order |
| 2105 | (let ((sf (cdr (reverse speedbar-shown-directories)))) | 2105 | (let ((sf (cdr (reverse speedbar-shown-directories)))) |
| 2106 | (setq speedbar-shown-directories | 2106 | (setq speedbar-shown-directories |
| 2107 | (list (expand-file-name default-directory))) | 2107 | (list (expand-file-name default-directory))) |
diff --git a/lisp/subr.el b/lisp/subr.el index 6d652f55b29..36937e8f370 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -3792,7 +3792,7 @@ The properties used on SYMBOL are `composefunc', `sendfunc', | |||
| 3792 | ;; MIN-CHANGE | 3792 | ;; MIN-CHANGE |
| 3793 | ;; MIN-TIME]) | 3793 | ;; MIN-TIME]) |
| 3794 | ;; | 3794 | ;; |
| 3795 | ;; This weirdeness is for optimization reasons: we want | 3795 | ;; This weirdness is for optimization reasons: we want |
| 3796 | ;; `progress-reporter-update' to be as fast as possible, so | 3796 | ;; `progress-reporter-update' to be as fast as possible, so |
| 3797 | ;; `(car reporter)' is better than `(aref reporter 0)'. | 3797 | ;; `(car reporter)' is better than `(aref reporter 0)'. |
| 3798 | ;; | 3798 | ;; |
diff --git a/lisp/term.el b/lisp/term.el index dc5ae29ffd2..484bc36363e 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -40,10 +40,10 @@ | |||
| 40 | ;; overhead this has became so small that IMHO is surely outweighted by | 40 | ;; overhead this has became so small that IMHO is surely outweighted by |
| 41 | ;; the benefits you get but, as usual, YMMV | 41 | ;; the benefits you get but, as usual, YMMV |
| 42 | ;; | 42 | ;; |
| 43 | ;; Important caveat, when deciding the cursor/'grey keys' keycodes I had to | 43 | ;; Important caveat, when deciding the cursor/'gray keys' keycodes I had to |
| 44 | ;; make a choice: on my Linux box this choice allows me to run all the | 44 | ;; make a choice: on my Linux box this choice allows me to run all the |
| 45 | ;; ncurses applications without problems but make these keys | 45 | ;; ncurses applications without problems but make these keys |
| 46 | ;; uncomprehensible to all the cursesX programs. Your mileage may vary so | 46 | ;; incomprehensible to all the cursesX programs. Your mileage may vary so |
| 47 | ;; you may consider changing the default 'emulation'. Just search for this | 47 | ;; you may consider changing the default 'emulation'. Just search for this |
| 48 | ;; piece of code and modify it as you like: | 48 | ;; piece of code and modify it as you like: |
| 49 | ;; | 49 | ;; |
| @@ -910,7 +910,7 @@ is buffer-local." | |||
| 910 | (setq term-raw-escape-map | 910 | (setq term-raw-escape-map |
| 911 | (copy-keymap (lookup-key (current-global-map) "\C-x"))) | 911 | (copy-keymap (lookup-key (current-global-map) "\C-x"))) |
| 912 | 912 | ||
| 913 | ;; Added nearly all the 'grey keys' -mm | 913 | ;; Added nearly all the 'gray keys' -mm |
| 914 | 914 | ||
| 915 | (if (featurep 'xemacs) | 915 | (if (featurep 'xemacs) |
| 916 | (define-key term-raw-map [button2] 'term-mouse-paste) | 916 | (define-key term-raw-map [button2] 'term-mouse-paste) |
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el index c13d22dde71..63c8840621c 100644 --- a/lisp/term/common-win.el +++ b/lisp/term/common-win.el | |||
| @@ -281,11 +281,11 @@ have been processed." | |||
| 281 | ;; The ordering of the colors is chosen for the user's convenience in | 281 | ;; The ordering of the colors is chosen for the user's convenience in |
| 282 | ;; `list-colors-display', which displays the reverse of this list. | 282 | ;; `list-colors-display', which displays the reverse of this list. |
| 283 | ;; Roughly speaking, `list-colors-display' orders by (i) named shades | 283 | ;; Roughly speaking, `list-colors-display' orders by (i) named shades |
| 284 | ;; of grey with hue 0.0, sorted by value (ii) named colors with | 284 | ;; of gray with hue 0.0, sorted by value (ii) named colors with |
| 285 | ;; saturation 1.0, sorted by hue, (iii) named non-white colors with | 285 | ;; saturation 1.0, sorted by hue, (iii) named non-white colors with |
| 286 | ;; saturation less than 1.0, sorted by hue, (iv) other named shades of | 286 | ;; saturation less than 1.0, sorted by hue, (iv) other named shades of |
| 287 | ;; white, (v) numbered colors sorted by hue, and (vi) numbered shades | 287 | ;; white, (v) numbered colors sorted by hue, and (vi) numbered shades |
| 288 | ;; of grey. | 288 | ;; of gray. |
| 289 | 289 | ||
| 290 | (declare-function ns-list-colors "nsfns.m" (&optional frame)) | 290 | (declare-function ns-list-colors "nsfns.m" (&optional frame)) |
| 291 | 291 | ||
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 10c1c19e0c4..b639af7cda0 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el | |||
| @@ -492,7 +492,7 @@ unless the current buffer is a scratch buffer." | |||
| 492 | command-line-default-directory))) | 492 | command-line-default-directory))) |
| 493 | (file (find-file-noselect f)) | 493 | (file (find-file-noselect f)) |
| 494 | (bufwin1 (get-buffer-window file 'visible)) | 494 | (bufwin1 (get-buffer-window file 'visible)) |
| 495 | (bufwin2 (get-buffer-window "*scratch*" 'visibile))) | 495 | (bufwin2 (get-buffer-window "*scratch*" 'visible))) |
| 496 | (cond | 496 | (cond |
| 497 | (bufwin1 | 497 | (bufwin1 |
| 498 | (select-frame (window-frame bufwin1)) | 498 | (select-frame (window-frame bufwin1)) |
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 232d42efc94..0efabc2135a 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el | |||
| @@ -3215,7 +3215,7 @@ X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)." | |||
| 3215 | ;; 2| | | 3215 | ;; 2| | |
| 3216 | ;; 3+-----+ | 3216 | ;; 3+-----+ |
| 3217 | ;; | 3217 | ;; |
| 3218 | ;; We will then pop (0,0) and remove the left-most vertival line while | 3218 | ;; We will then pop (0,0) and remove the left-most vertical line while |
| 3219 | ;; pushing the lower left corner (0,3) on the stack, and so on until | 3219 | ;; pushing the lower left corner (0,3) on the stack, and so on until |
| 3220 | ;; the entire rectangle is vaporized. | 3220 | ;; the entire rectangle is vaporized. |
| 3221 | ;; | 3221 | ;; |
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index c9b1c44eb91..8df2e81c723 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el | |||
| @@ -1451,12 +1451,12 @@ Set this variable before loading BibTeX mode." | |||
| 1451 | (defvar bibtex-field-braces-opt nil | 1451 | (defvar bibtex-field-braces-opt nil |
| 1452 | "Optimized value of `bibtex-field-braces-alist'. | 1452 | "Optimized value of `bibtex-field-braces-alist'. |
| 1453 | Created by `bibtex-field-re-init'. | 1453 | Created by `bibtex-field-re-init'. |
| 1454 | It is a an alist with elements (FIELD . REGEXP).") | 1454 | It is an alist with elements (FIELD . REGEXP).") |
| 1455 | 1455 | ||
| 1456 | (defvar bibtex-field-strings-opt nil | 1456 | (defvar bibtex-field-strings-opt nil |
| 1457 | "Optimized value of `bibtex-field-strings-alist'. | 1457 | "Optimized value of `bibtex-field-strings-alist'. |
| 1458 | Created by `bibtex-field-re-init'. | 1458 | Created by `bibtex-field-re-init'. |
| 1459 | It is a an alist with elements (FIELD RULE1 RULE2 ...), | 1459 | It is an alist with elements (FIELD RULE1 RULE2 ...), |
| 1460 | where each RULE is (REGEXP . TO-STR).") | 1460 | where each RULE is (REGEXP . TO-STR).") |
| 1461 | 1461 | ||
| 1462 | (defvar bibtex-pop-previous-search-point nil | 1462 | (defvar bibtex-pop-previous-search-point nil |
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el index 1127e6a5d20..40d682c3d93 100644 --- a/lisp/textmodes/conf-mode.el +++ b/lisp/textmodes/conf-mode.el | |||
| @@ -185,7 +185,7 @@ not align (only setting space according to `conf-assignment-space')." | |||
| 185 | (2 'font-lock-constant-face nil t)) | 185 | (2 'font-lock-constant-face nil t)) |
| 186 | ;; section { ... } (do this last because some assign ...{...) | 186 | ;; section { ... } (do this last because some assign ...{...) |
| 187 | ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) | 187 | ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) |
| 188 | "Keywords to hilight in Conf mode.") | 188 | "Keywords to highlight in Conf mode.") |
| 189 | 189 | ||
| 190 | (defvar conf-javaprop-font-lock-keywords | 190 | (defvar conf-javaprop-font-lock-keywords |
| 191 | '(;; var=val | 191 | '(;; var=val |
| @@ -197,7 +197,7 @@ not align (only setting space according to `conf-assignment-space')." | |||
| 197 | (5 'font-lock-variable-name-face nil t) | 197 | (5 'font-lock-variable-name-face nil t) |
| 198 | (6 'font-lock-constant-face nil t) | 198 | (6 'font-lock-constant-face nil t) |
| 199 | (7 'font-lock-variable-name-face nil t))) | 199 | (7 'font-lock-variable-name-face nil t))) |
| 200 | "Keywords to hilight in Conf Java Properties mode.") | 200 | "Keywords to highlight in Conf Java Properties mode.") |
| 201 | 201 | ||
| 202 | (defvar conf-space-keywords-alist | 202 | (defvar conf-space-keywords-alist |
| 203 | '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head") | 203 | '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head") |
| @@ -240,7 +240,7 @@ This variable is best set in the file local variables, or through | |||
| 240 | (1 'font-lock-variable-name-face)) | 240 | (1 'font-lock-variable-name-face)) |
| 241 | ;; section { ... } (do this last because some assign ...{...) | 241 | ;; section { ... } (do this last because some assign ...{...) |
| 242 | ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) | 242 | ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) |
| 243 | "Keywords to hilight in Conf Colon mode.") | 243 | "Keywords to highlight in Conf Colon mode.") |
| 244 | 244 | ||
| 245 | (defvar conf-assignment-sign ?= | 245 | (defvar conf-assignment-sign ?= |
| 246 | "Sign used for assignments (char or string).") | 246 | "Sign used for assignments (char or string).") |
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 52f6e5b4889..b8614b16f82 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -469,7 +469,7 @@ Point is moved to just past the fill prefix on the first line." | |||
| 469 | 469 | ||
| 470 | (goto-char from) | 470 | (goto-char from) |
| 471 | (if enable-multibyte-characters | 471 | (if enable-multibyte-characters |
| 472 | ;; Delete unnecessay newlines surrounded by words. The | 472 | ;; Delete unnecessary newlines surrounded by words. The |
| 473 | ;; character category `|' means that we can break a line at the | 473 | ;; character category `|' means that we can break a line at the |
| 474 | ;; character. And, char-table | 474 | ;; character. And, char-table |
| 475 | ;; `fill-nospace-between-words-table' tells how to concatenate | 475 | ;; `fill-nospace-between-words-table' tells how to concatenate |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index d54debcec4c..6b4c1a2940d 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -466,7 +466,7 @@ See also `flyspell-duplicate-distance'." | |||
| 466 | ;;*---------------------------------------------------------------------*/ | 466 | ;;*---------------------------------------------------------------------*/ |
| 467 | ;;* flyspell-mode ... */ | 467 | ;;* flyspell-mode ... */ |
| 468 | ;;*---------------------------------------------------------------------*/ | 468 | ;;*---------------------------------------------------------------------*/ |
| 469 | ;;;###autoload(defvar flyspell-mode nil) | 469 | ;;;###autoload(defvar flyspell-mode nil "Non-nil if Flyspell mode is enabled.") |
| 470 | ;;;###autoload | 470 | ;;;###autoload |
| 471 | (define-minor-mode flyspell-mode | 471 | (define-minor-mode flyspell-mode |
| 472 | "Toggle on-the-fly spell checking (Flyspell mode). | 472 | "Toggle on-the-fly spell checking (Flyspell mode). |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 704fad4fb3b..d0967d63740 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -2399,7 +2399,8 @@ Optional REFRESH will unhighlighted then highlight, using block cursor | |||
| 2399 | (setq start (1+ start)))) ; On block non-refresh, inc start. | 2399 | (setq start (1+ start)))) ; On block non-refresh, inc start. |
| 2400 | (let ((modified (buffer-modified-p)) ; don't allow this fn to modify buffer | 2400 | (let ((modified (buffer-modified-p)) ; don't allow this fn to modify buffer |
| 2401 | (buffer-read-only nil) ; Allow highlighting read-only buffers. | 2401 | (buffer-read-only nil) ; Allow highlighting read-only buffers. |
| 2402 | (text (buffer-substring-no-properties start end)) ; Save hilight region | 2402 | (text (buffer-substring-no-properties start end)) |
| 2403 | ; Save highlight region. | ||
| 2403 | (inhibit-quit t) ; inhibit interrupt processing here. | 2404 | (inhibit-quit t) ; inhibit interrupt processing here. |
| 2404 | (buffer-undo-list t)) ; don't clutter the undo list. | 2405 | (buffer-undo-list t)) ; don't clutter the undo list. |
| 2405 | (goto-char end) | 2406 | (goto-char end) |
| @@ -3977,7 +3978,7 @@ Both should not be used to define a buffer-local dictionary." | |||
| 3977 | ; LocalWords: Francais Nederlands charset autoloaded popup nonmenu regexp num | 3978 | ; LocalWords: Francais Nederlands charset autoloaded popup nonmenu regexp num |
| 3978 | ; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg | 3979 | ; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg |
| 3979 | ; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc | 3980 | ; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc |
| 3980 | ; LocalWords: fn hilight oldot NB AIX msg init read's bufs pt cmd Quinlan eg | 3981 | ; LocalWords: fn oldot NB AIX msg init read's bufs pt cmd Quinlan eg |
| 3981 | ; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict unsplitable | 3982 | ; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict unsplitable |
| 3982 | ; LocalWords: lns XEmacs HTML casechars Multibyte | 3983 | ; LocalWords: lns XEmacs HTML casechars Multibyte |
| 3983 | 3984 | ||
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el index b4e15fd2776..f4f10f1d1e0 100644 --- a/lisp/textmodes/reftex-sel.el +++ b/lisp/textmodes/reftex-sel.el | |||
| @@ -570,13 +570,13 @@ Useful for large TOC's." | |||
| 570 | nil t) | 570 | nil t) |
| 571 | (beginning-of-line)) | 571 | (beginning-of-line)) |
| 572 | (defun reftex-select-next-heading (&optional arg) | 572 | (defun reftex-select-next-heading (&optional arg) |
| 573 | "Move to next table of contentes line." | 573 | "Move to next table of contents line." |
| 574 | (interactive "p") | 574 | (interactive "p") |
| 575 | (end-of-line) | 575 | (end-of-line) |
| 576 | (re-search-forward "^ " nil t arg) | 576 | (re-search-forward "^ " nil t arg) |
| 577 | (beginning-of-line)) | 577 | (beginning-of-line)) |
| 578 | (defun reftex-select-previous-heading (&optional arg) | 578 | (defun reftex-select-previous-heading (&optional arg) |
| 579 | "Move to previous table of contentes line." | 579 | "Move to previous table of contents line." |
| 580 | (interactive "p") | 580 | (interactive "p") |
| 581 | (re-search-backward "^ " nil t arg)) | 581 | (re-search-backward "^ " nil t arg)) |
| 582 | (defun reftex-select-quit () | 582 | (defun reftex-select-quit () |
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index 81e92487eb0..64dffe78d50 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -2716,7 +2716,7 @@ general but you do not like the details." | |||
| 2716 | (rst-define-level-faces))) | 2716 | (rst-define-level-faces))) |
| 2717 | 2717 | ||
| 2718 | ;; Faces for displaying items on several levels; these definitions define | 2718 | ;; Faces for displaying items on several levels; these definitions define |
| 2719 | ;; different shades of grey where the lightest one (i.e. least contrasting) is | 2719 | ;; different shades of gray where the lightest one (i.e. least contrasting) is |
| 2720 | ;; used for level 1 | 2720 | ;; used for level 1 |
| 2721 | (defcustom rst-level-face-max 6 | 2721 | (defcustom rst-level-face-max 6 |
| 2722 | "Maximum depth of levels for which section title faces are defined." | 2722 | "Maximum depth of levels for which section title faces are defined." |
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 08a45b6b302..65f6d98ef79 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el | |||
| @@ -173,19 +173,19 @@ | |||
| 173 | ;; +-------------------------------+----------------------------------+ | 173 | ;; +-------------------------------+----------------------------------+ |
| 174 | ;; |`table-recognize' |Recognize all tables in the | | 174 | ;; |`table-recognize' |Recognize all tables in the | |
| 175 | ;; |`table-unrecognize' |current buffer and | | 175 | ;; |`table-unrecognize' |current buffer and | |
| 176 | ;; | |activate/inactivate them. | | 176 | ;; | |activate/deactivate them. | |
| 177 | ;; +-------------------------------+----------------------------------+ | 177 | ;; +-------------------------------+----------------------------------+ |
| 178 | ;; |`table-recognize-region' |Recognize all the cells in a | | 178 | ;; |`table-recognize-region' |Recognize all the cells in a | |
| 179 | ;; |`table-unrecognize-region' |region and activate/inactivate | | 179 | ;; |`table-unrecognize-region' |region and activate/deactivate | |
| 180 | ;; | |them. | | 180 | ;; | |them. | |
| 181 | ;; +-------------------------------+----------------------------------+ | 181 | ;; +-------------------------------+----------------------------------+ |
| 182 | ;; |`table-recognize-table' |Recognize all the cells in a | | 182 | ;; |`table-recognize-table' |Recognize all the cells in a | |
| 183 | ;; |`table-unrecognize-table' |single table and | | 183 | ;; |`table-unrecognize-table' |single table and | |
| 184 | ;; | |activate/inactivate them. | | 184 | ;; | |activate/deactivate them. | |
| 185 | ;; +-------------------------------+----------------------------------+ | 185 | ;; +-------------------------------+----------------------------------+ |
| 186 | ;; |`table-recognize-cell' |Recognize a cell. Find a cell | | 186 | ;; |`table-recognize-cell' |Recognize a cell. Find a cell | |
| 187 | ;; |`table-unrecognize-cell' |which contains the current point | | 187 | ;; |`table-unrecognize-cell' |which contains the current point | |
| 188 | ;; | |and activate/inactivate that cell.| | 188 | ;; | |and activate/deactivate that cell.| |
| 189 | ;; +-------------------------------+----------------------------------+ | 189 | ;; +-------------------------------+----------------------------------+ |
| 190 | ;; |`table-forward-cell' |Move point to the next Nth cell in| | 190 | ;; |`table-forward-cell' |Move point to the next Nth cell in| |
| 191 | ;; | |a table. | | 191 | ;; | |a table. | |
| @@ -3856,7 +3856,7 @@ companion command to `table-capture' this way. | |||
| 3856 | ;;;###autoload | 3856 | ;;;###autoload |
| 3857 | (defun table-release () | 3857 | (defun table-release () |
| 3858 | "Convert a table into plain text by removing the frame from a table. | 3858 | "Convert a table into plain text by removing the frame from a table. |
| 3859 | Remove the frame from a table and inactivate the table. This command | 3859 | Remove the frame from a table and deactivate the table. This command |
| 3860 | converts a table into plain text without frames. It is a companion to | 3860 | converts a table into plain text without frames. It is a companion to |
| 3861 | `table-capture' which does the opposite process." | 3861 | `table-capture' which does the opposite process." |
| 3862 | (interactive) | 3862 | (interactive) |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index c4892ce572c..34bd24fba3a 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -2254,7 +2254,7 @@ Only applies the FSPEC to the args part of FORMAT." | |||
| 2254 | ;; Remove those commands whose input was considered stable for | 2254 | ;; Remove those commands whose input was considered stable for |
| 2255 | ;; some other command (typically if (t . "%.pdf") is inactive | 2255 | ;; some other command (typically if (t . "%.pdf") is inactive |
| 2256 | ;; then we're using pdflatex and the fact that the dvi file | 2256 | ;; then we're using pdflatex and the fact that the dvi file |
| 2257 | ;; is inexistent doesn't matter). | 2257 | ;; is nonexistent doesn't matter). |
| 2258 | (let ((tmp nil)) | 2258 | (let ((tmp nil)) |
| 2259 | (dolist (cmd cmds) | 2259 | (dolist (cmd cmds) |
| 2260 | (unless (member (nth 1 cmd) unchanged-in) | 2260 | (unless (member (nth 1 cmd) unchanged-in) |
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 094885bb0d0..a337d6f9f40 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el | |||
| @@ -518,7 +518,7 @@ if large. You can use `Info-split' to do this manually." | |||
| 518 | 518 | ||
| 519 | ;;; Handle paragraph filling | 519 | ;;; Handle paragraph filling |
| 520 | 520 | ||
| 521 | ;; Keep as concatinated lists for ease of maintenance | 521 | ;; Keep as concatenated lists for ease of maintenance |
| 522 | 522 | ||
| 523 | (defvar texinfo-no-refill-regexp | 523 | (defvar texinfo-no-refill-regexp |
| 524 | (concat | 524 | (concat |
| @@ -4238,7 +4238,7 @@ the @ifeq command." | |||
| 4238 | Must be used only with -batch, and kills Emacs on completion. | 4238 | Must be used only with -batch, and kills Emacs on completion. |
| 4239 | Each file will be processed even if an error occurred previously. | 4239 | Each file will be processed even if an error occurred previously. |
| 4240 | For example, invoke | 4240 | For example, invoke |
| 4241 | \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." | 4241 | \"emacs -batch -l texinfmt -f batch-texinfo-format $docs/ ~/*.texinfo\"." |
| 4242 | (if (not noninteractive) | 4242 | (if (not noninteractive) |
| 4243 | (error "batch-texinfo-format may only be used -batch")) | 4243 | (error "batch-texinfo-format may only be used -batch")) |
| 4244 | (let ((version-control t) | 4244 | (let ((version-control t) |
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index be1a12b499b..2e651484008 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el | |||
| @@ -182,7 +182,7 @@ LEFT and RIGHT are the elements to compare." | |||
| 182 | (equal (car x) (car y))) | 182 | (equal (car x) (car y))) |
| 183 | (setq x (cdr x)) | 183 | (setq x (cdr x)) |
| 184 | (setq y (cdr y))) | 184 | (setq y (cdr y))) |
| 185 | ;; Try to make a comparision that is useful for presentation (this | 185 | ;; Try to make a comparison that is useful for presentation (this |
| 186 | ;; could be made nicer perhaps): | 186 | ;; could be made nicer perhaps): |
| 187 | (let ((cx (car x)) | 187 | (let ((cx (car x)) |
| 188 | (cy (car y))) | 188 | (cy (car y))) |
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 47f006eebda..48d2caf35f4 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1977,7 +1977,7 @@ | |||
| 1977 | 1977 | ||
| 1978 | * lisp/url-gw.el (url-gw-inhibit-code-conversion): Remove. | 1978 | * lisp/url-gw.el (url-gw-inhibit-code-conversion): Remove. |
| 1979 | (url-open-stream): Bind coding-system-for{read,write} when setting | 1979 | (url-open-stream): Bind coding-system-for{read,write} when setting |
| 1980 | up the connexion. Don't call url-gw-inhibit-code-conversion. | 1980 | up the connection. Don't call url-gw-inhibit-code-conversion. |
| 1981 | 1981 | ||
| 1982 | 2001-05-24 William M. Perry <wmperry@gnu.org> | 1982 | 2001-05-24 William M. Perry <wmperry@gnu.org> |
| 1983 | 1983 | ||
| @@ -2516,4 +2516,3 @@ | |||
| 2516 | 2516 | ||
| 2517 | You should have received a copy of the GNU General Public License | 2517 | You should have received a copy of the GNU General Public License |
| 2518 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 2518 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 2519 | |||
diff --git a/lisp/vc/cvs-status.el b/lisp/vc/cvs-status.el index 063eb414579..3444b230e8d 100644 --- a/lisp/vc/cvs-status.el +++ b/lisp/vc/cvs-status.el | |||
| @@ -257,7 +257,7 @@ The tree will be printed no closer than column COLUMN." | |||
| 257 | 257 | ||
| 258 | (defun cvs-tree-merge (tree1 tree2) | 258 | (defun cvs-tree-merge (tree1 tree2) |
| 259 | "Merge tags trees TREE1 and TREE2 into one. | 259 | "Merge tags trees TREE1 and TREE2 into one. |
| 260 | BEWARE: because of stability issues, this is not a symetric operation." | 260 | BEWARE: because of stability issues, this is not a symmetric operation." |
| 261 | (assert (and (listp tree1) (listp tree2))) | 261 | (assert (and (listp tree1) (listp tree2))) |
| 262 | (cond | 262 | (cond |
| 263 | ((null tree1) tree2) | 263 | ((null tree1) tree2) |
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 9f0fa584b0d..8f4b59f9e53 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -146,7 +146,7 @@ when editing big diffs)." | |||
| 146 | ;; but not all since they may hide useful M-<foo> global | 146 | ;; but not all since they may hide useful M-<foo> global |
| 147 | ;; bindings when editing. | 147 | ;; bindings when editing. |
| 148 | (set-keymap-parent map diff-mode-shared-map) | 148 | (set-keymap-parent map diff-mode-shared-map) |
| 149 | (dolist (key '("A" "r" "R" "g" "q" "W")) | 149 | (dolist (key '("A" "r" "R" "g" "q" "W" "z")) |
| 150 | (define-key map key nil)) | 150 | (define-key map key nil)) |
| 151 | map)) | 151 | map)) |
| 152 | ;; From compilation-minor-mode. | 152 | ;; From compilation-minor-mode. |
| @@ -815,9 +815,11 @@ PREFIX is only used internally: don't use it." | |||
| 815 | (diff-find-file-name old noprompt (match-string 1))) | 815 | (diff-find-file-name old noprompt (match-string 1))) |
| 816 | ;; if all else fails, ask the user | 816 | ;; if all else fails, ask the user |
| 817 | (unless noprompt | 817 | (unless noprompt |
| 818 | (let ((file (read-file-name (format "Use file %s: " | 818 | (let ((file (expand-file-name (or (first fs) "")))) |
| 819 | (or (first fs) "")) | 819 | (setq file |
| 820 | nil (first fs) t (first fs)))) | 820 | (read-file-name (format "Use file %s: " file) |
| 821 | (file-name-directory file) file t | ||
| 822 | (file-name-nondirectory file))) | ||
| 821 | (set (make-local-variable 'diff-remembered-files-alist) | 823 | (set (make-local-variable 'diff-remembered-files-alist) |
| 822 | (cons (cons fs file) diff-remembered-files-alist)) | 824 | (cons (cons fs file) diff-remembered-files-alist)) |
| 823 | file)))))) | 825 | file)))))) |
diff --git a/lisp/vc/ediff-help.el b/lisp/vc/ediff-help.el index ddd9371b060..ee7837b29a3 100644 --- a/lisp/vc/ediff-help.el +++ b/lisp/vc/ediff-help.el | |||
| @@ -50,7 +50,7 @@ For help on a specific command: Click Button 2 over it; or | |||
| 50 | (defconst ediff-long-help-message-compare3 | 50 | (defconst ediff-long-help-message-compare3 |
| 51 | " | 51 | " |
| 52 | p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y | 52 | p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y |
| 53 | n,SPC -next diff | h -hilighting | rx -restore buf X's old diff | 53 | n,SPC -next diff | h -highlighting | rx -restore buf X's old diff |
| 54 | j -jump to diff | @ -auto-refinement | * -refine current region | 54 | j -jump to diff | @ -auto-refinement | * -refine current region |
| 55 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions | 55 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions |
| 56 | C-l -recenter | #c -ignore case | | 56 | C-l -recenter | #c -ignore case | |
| @@ -64,7 +64,7 @@ Normally, not a user option. See `ediff-help-message' for details.") | |||
| 64 | (defconst ediff-long-help-message-compare2 | 64 | (defconst ediff-long-help-message-compare2 |
| 65 | " | 65 | " |
| 66 | p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A | 66 | p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A |
| 67 | n,SPC -next diff | h -hilighting | rx -restore buf X's old diff | 67 | n,SPC -next diff | h -highlighting | rx -restore buf X's old diff |
| 68 | j -jump to diff | @ -auto-refinement | * -refine current region | 68 | j -jump to diff | @ -auto-refinement | * -refine current region |
| 69 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions | 69 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions |
| 70 | C-l -recenter | #c -ignore case | | 70 | C-l -recenter | #c -ignore case | |
| @@ -78,7 +78,7 @@ Normally, not a user option. See `ediff-help-message' for details.") | |||
| 78 | (defconst ediff-long-help-message-narrow2 | 78 | (defconst ediff-long-help-message-narrow2 |
| 79 | " | 79 | " |
| 80 | p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A | 80 | p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A |
| 81 | n,SPC -next diff | h -hilighting | rx -restore buf X's old diff | 81 | n,SPC -next diff | h -highlighting | rx -restore buf X's old diff |
| 82 | j -jump to diff | @ -auto-refinement | * -refine current region | 82 | j -jump to diff | @ -auto-refinement | * -refine current region |
| 83 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions | 83 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions |
| 84 | C-l -recenter | #c -ignore case | % -narrow/widen buffs | 84 | C-l -recenter | #c -ignore case | % -narrow/widen buffs |
| @@ -92,7 +92,7 @@ Normally, not a user option. See `ediff-help-message' for details.") | |||
| 92 | (defconst ediff-long-help-message-word-mode | 92 | (defconst ediff-long-help-message-word-mode |
| 93 | " | 93 | " |
| 94 | p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y | 94 | p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y |
| 95 | n,SPC -next diff | h -hilighting | rx -restore buf X's old diff | 95 | n,SPC -next diff | h -highlighting | rx -restore buf X's old diff |
| 96 | j -jump to diff | | | 96 | j -jump to diff | | |
| 97 | gx -goto X's point| % -narrow/widen buffs | ! -recompute diffs | 97 | gx -goto X's point| % -narrow/widen buffs | ! -recompute diffs |
| 98 | C-l -recenter | #c -ignore case | | 98 | C-l -recenter | #c -ignore case | |
| @@ -106,7 +106,7 @@ Normally, not a user option. See `ediff-help-message' for details.") | |||
| 106 | (defconst ediff-long-help-message-merge | 106 | (defconst ediff-long-help-message-merge |
| 107 | " | 107 | " |
| 108 | p,DEL -previous diff | | -vert/horiz split | x -copy buf X's region to C | 108 | p,DEL -previous diff | | -vert/horiz split | x -copy buf X's region to C |
| 109 | n,SPC -next diff | h -hilighting | r -restore buf C's old diff | 109 | n,SPC -next diff | h -highlighting | r -restore buf C's old diff |
| 110 | j -jump to diff | @ -auto-refinement | * -refine current region | 110 | j -jump to diff | @ -auto-refinement | * -refine current region |
| 111 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions | 111 | gx -goto X's point| ## -ignore whitespace | ! -update diff regions |
| 112 | C-l -recenter | #f/#h -focus/hide regions | + -combine diff regions | 112 | C-l -recenter | #f/#h -focus/hide regions | + -combine diff regions |
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 5d7d2451422..b1c6e367ef7 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el | |||
| @@ -2635,7 +2635,7 @@ delete this buffer in another session as well." | |||
| 2635 | )) | 2635 | )) |
| 2636 | 2636 | ||
| 2637 | ;; Kill the variant buffer, according to user directives (ask, kill | 2637 | ;; Kill the variant buffer, according to user directives (ask, kill |
| 2638 | ;; unconditionaly, keep) | 2638 | ;; unconditionally, keep) |
| 2639 | ;; BUFF is the buffer, BUFF-TYPE is either 'A, or 'B, 'C, 'Ancestor | 2639 | ;; BUFF is the buffer, BUFF-TYPE is either 'A, or 'B, 'C, 'Ancestor |
| 2640 | (defun ediff-dispose-of-variant-according-to-user (buff bufftype ask keep-variants) | 2640 | (defun ediff-dispose-of-variant-according-to-user (buff bufftype ask keep-variants) |
| 2641 | ;; if this is indirect buffer, kill it and substitute with direct buf | 2641 | ;; if this is indirect buffer, kill it and substitute with direct buf |
| @@ -3811,7 +3811,7 @@ Ediff Control Panel to restore highlighting." | |||
| 3811 | ;; later, and nconc above will break it. Either this or use slow | 3811 | ;; later, and nconc above will break it. Either this or use slow |
| 3812 | ;; append instead of nconc | 3812 | ;; append instead of nconc |
| 3813 | (selected-buffers (ediff-get-selected-buffers)) | 3813 | (selected-buffers (ediff-get-selected-buffers)) |
| 3814 | (prefered-buffer (car all-buffers)) | 3814 | (preferred-buffer (car all-buffers)) |
| 3815 | visible-dired-buffers | 3815 | visible-dired-buffers |
| 3816 | (excl-buff-name-list | 3816 | (excl-buff-name-list |
| 3817 | (mapcar | 3817 | (mapcar |
| @@ -3841,7 +3841,7 @@ Ediff Control Panel to restore highlighting." | |||
| 3841 | (cond ((member (buffer-name x) excl-buff-name-list) nil) | 3841 | (cond ((member (buffer-name x) excl-buff-name-list) nil) |
| 3842 | ((memq x selected-buffers) x) | 3842 | ((memq x selected-buffers) x) |
| 3843 | ((not (ediff-get-visible-buffer-window x)) nil) | 3843 | ((not (ediff-get-visible-buffer-window x)) nil) |
| 3844 | ((eq x prefered-buffer) x) | 3844 | ((eq x preferred-buffer) x) |
| 3845 | ;; if prev selected buffer is dired, look only at | 3845 | ;; if prev selected buffer is dired, look only at |
| 3846 | ;; dired. | 3846 | ;; dired. |
| 3847 | ((eq use-dired-major-mode 'yes) | 3847 | ((eq use-dired-major-mode 'yes) |
diff --git a/lisp/vc/pcvs-defs.el b/lisp/vc/pcvs-defs.el index f6340392dc2..477cd472289 100644 --- a/lisp/vc/pcvs-defs.el +++ b/lisp/vc/pcvs-defs.el | |||
| @@ -493,7 +493,8 @@ It is expected to call the function.") | |||
| 493 | (define-key m [examine] | 493 | (define-key m [examine] |
| 494 | `(menu-item ,(purecopy "Examine Directory") cvs-examine | 494 | `(menu-item ,(purecopy "Examine Directory") cvs-examine |
| 495 | :help ,(purecopy "Examine the current state of a workarea"))) | 495 | :help ,(purecopy "Examine the current state of a workarea"))) |
| 496 | (fset 'cvs-global-menu m))) | 496 | (fset 'cvs-global-menu m)) |
| 497 | "Global menu used by PCL-CVS.") | ||
| 497 | 498 | ||
| 498 | 499 | ||
| 499 | ;; cvs-1.10 and above can take file arguments in other directories | 500 | ;; cvs-1.10 and above can take file arguments in other directories |
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index f6b6a56f31c..c5c0ce73b3a 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el | |||
| @@ -124,7 +124,8 @@ Use the current Bzr root directory as the ROOT argument to | |||
| 124 | ;; Used in the autoloaded vc-bzr-registered; see below. | 124 | ;; Used in the autoloaded vc-bzr-registered; see below. |
| 125 | ;;;###autoload | 125 | ;;;###autoload |
| 126 | (defconst vc-bzr-admin-checkout-format-file | 126 | (defconst vc-bzr-admin-checkout-format-file |
| 127 | (concat vc-bzr-admin-dirname "/checkout/format")) | 127 | (concat vc-bzr-admin-dirname "/checkout/format") |
| 128 | "Name of the format file in a .bzr directory.") | ||
| 128 | (defconst vc-bzr-admin-dirstate | 129 | (defconst vc-bzr-admin-dirstate |
| 129 | (concat vc-bzr-admin-dirname "/checkout/dirstate")) | 130 | (concat vc-bzr-admin-dirname "/checkout/dirstate")) |
| 130 | (defconst vc-bzr-admin-branch-format-file | 131 | (defconst vc-bzr-admin-branch-format-file |
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 6a76359b5f7..7d6c3caf7ff 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el | |||
| @@ -189,7 +189,8 @@ See also variable `vc-cvs-sticky-date-format-string'." | |||
| 189 | ;;; State-querying functions | 189 | ;;; State-querying functions |
| 190 | ;;; | 190 | ;;; |
| 191 | 191 | ||
| 192 | ;;;###autoload (defun vc-cvs-registered (f) | 192 | ;;;###autoload(defun vc-cvs-registered (f) |
| 193 | ;;;###autoload "Return non-nil if file F is registered with CVS." | ||
| 193 | ;;;###autoload (when (file-readable-p (expand-file-name | 194 | ;;;###autoload (when (file-readable-p (expand-file-name |
| 194 | ;;;###autoload "CVS/Entries" (file-name-directory f))) | 195 | ;;;###autoload "CVS/Entries" (file-name-directory f))) |
| 195 | ;;;###autoload (load "vc-cvs") | 196 | ;;;###autoload (load "vc-cvs") |
diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index 0fc7ba96fb7..f49ad09b5d7 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el | |||
| @@ -59,9 +59,10 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." | |||
| 59 | (setq vc-handled-backends (delq 'Mtn vc-handled-backends))) | 59 | (setq vc-handled-backends (delq 'Mtn vc-handled-backends))) |
| 60 | 60 | ||
| 61 | ;;;###autoload | 61 | ;;;###autoload |
| 62 | (defconst vc-mtn-admin-dir "_MTN") | 62 | (defconst vc-mtn-admin-dir "_MTN" "Name of the monotone directory.") |
| 63 | ;;;###autoload | 63 | ;;;###autoload |
| 64 | (defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format")) | 64 | (defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format") |
| 65 | "Name of the monotone directory's format file.") | ||
| 65 | 66 | ||
| 66 | ;;;###autoload (defun vc-mtn-registered (file) | 67 | ;;;###autoload (defun vc-mtn-registered (file) |
| 67 | ;;;###autoload (if (vc-find-root file vc-mtn-admin-format) | 68 | ;;;###autoload (if (vc-find-root file vc-mtn-admin-format) |
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index ed2bac17217..eea1a992094 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el | |||
| @@ -181,7 +181,7 @@ | |||
| 181 | ;; * working-revision (file) | 181 | ;; * working-revision (file) |
| 182 | ;; | 182 | ;; |
| 183 | ;; Return the working revision of FILE. This is the revision fetched | 183 | ;; Return the working revision of FILE. This is the revision fetched |
| 184 | ;; by the last checkout or upate, not necessarily the same thing as the | 184 | ;; by the last checkout or update, not necessarily the same thing as the |
| 185 | ;; head or tip revision. Should return "0" for a file added but not yet | 185 | ;; head or tip revision. Should return "0" for a file added but not yet |
| 186 | ;; committed. | 186 | ;; committed. |
| 187 | ;; | 187 | ;; |
diff --git a/lisp/version.el b/lisp/version.el index d28a3004585..aa4e22469c5 100644 --- a/lisp/version.el +++ b/lisp/version.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*- | 1 | ;;; version.el --- record version number of Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1992, 1994-1995, 1999-2011 | 3 | ;; Copyright (C) 1985, 1992, 1994-1995, 1999-2011 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| @@ -40,7 +40,8 @@ This variable first existed in version 19.23.") | |||
| 40 | (defconst emacs-build-time (current-time) "\ | 40 | (defconst emacs-build-time (current-time) "\ |
| 41 | Time at which Emacs was dumped out.") | 41 | Time at which Emacs was dumped out.") |
| 42 | 42 | ||
| 43 | (defconst emacs-build-system (system-name)) | 43 | (defconst emacs-build-system (system-name) "\ |
| 44 | Name of the system on which Emacs was built.") | ||
| 44 | 45 | ||
| 45 | (defun emacs-version (&optional here) "\ | 46 | (defun emacs-version (&optional here) "\ |
| 46 | Return string describing the version of Emacs that is running. | 47 | Return string describing the version of Emacs that is running. |
| @@ -83,8 +84,9 @@ to the system configuration; look at `system-configuration' instead." | |||
| 83 | (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version)) | 84 | (purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version)) |
| 84 | " $\n"))) | 85 | " $\n"))) |
| 85 | 86 | ||
| 86 | ;;Local variables: | 87 | ;; Local Variables: |
| 87 | ;;version-control: never | 88 | ;; version-control: never |
| 88 | ;;End: | 89 | ;; no-byte-compile: t |
| 90 | ;; End: | ||
| 89 | 91 | ||
| 90 | ;;; version.el ends here | 92 | ;;; version.el ends here |
diff --git a/lisp/view.el b/lisp/view.el index 6955fbdfad8..a5349445964 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -311,10 +311,9 @@ file: Users may suspend viewing in order to modify the buffer. | |||
| 311 | Exiting View mode will then discard the user's edits. Setting | 311 | Exiting View mode will then discard the user's edits. Setting |
| 312 | EXIT-ACTION to `kill-buffer-if-not-modified' avoids this." | 312 | EXIT-ACTION to `kill-buffer-if-not-modified' avoids this." |
| 313 | (interactive "bView buffer: ") | 313 | (interactive "bView buffer: ") |
| 314 | (if (with-current-buffer buffer | 314 | (if (eq (with-current-buffer buffer |
| 315 | (and (eq (get major-mode 'mode-class) | 315 | (get major-mode 'mode-class)) |
| 316 | 'special) | 316 | 'special) |
| 317 | (null buffer-file-name))) | ||
| 318 | (progn | 317 | (progn |
| 319 | (switch-to-buffer buffer) | 318 | (switch-to-buffer buffer) |
| 320 | (message "Not using View mode because the major mode is special")) | 319 | (message "Not using View mode because the major mode is special")) |
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 20361d32450..1f54b8577c3 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el | |||
| @@ -384,7 +384,7 @@ bit output with no translation." | |||
| 384 | ;; ;; If Unicode Windows charset is not defined, use ansi fonts. | 384 | ;; ;; If Unicode Windows charset is not defined, use ansi fonts. |
| 385 | ;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)) | 385 | ;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)) |
| 386 | 386 | ||
| 387 | ;; Prefered names | 387 | ;; Preferred names |
| 388 | (w32-add-charset-info "big5-0" 'w32-charset-chinesebig5 950) | 388 | (w32-add-charset-info "big5-0" 'w32-charset-chinesebig5 950) |
| 389 | (w32-add-charset-info "gb2312.1980-0" 'w32-charset-gb2312 936) | 389 | (w32-add-charset-info "gb2312.1980-0" 'w32-charset-gb2312 936) |
| 390 | (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932) | 390 | (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932) |
diff --git a/lisp/wdired.el b/lisp/wdired.el index cc99bd40628..b9c07d15ae8 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el | |||
| @@ -32,7 +32,7 @@ | |||
| 32 | ;; the files in a "dired" buffer? Now you can do this. All the power | 32 | ;; the files in a "dired" buffer? Now you can do this. All the power |
| 33 | ;; of Emacs commands are available to renaming files! | 33 | ;; of Emacs commands are available to renaming files! |
| 34 | ;; | 34 | ;; |
| 35 | ;; This package provides a function that makes the filenames of a a | 35 | ;; This package provides a function that makes the filenames of a |
| 36 | ;; dired buffer editable, by changing the buffer mode (which inhibits | 36 | ;; dired buffer editable, by changing the buffer mode (which inhibits |
| 37 | ;; all of the commands of dired mode). Here you can edit the names of | 37 | ;; all of the commands of dired mode). Here you can edit the names of |
| 38 | ;; one or more files and directories, and when you press C-c C-c, the | 38 | ;; one or more files and directories, and when you press C-c C-c, the |
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 53a35b4f0b3..57f51e21fbb 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el | |||
| @@ -623,8 +623,12 @@ and `newline'." | |||
| 623 | (defface whitespace-newline | 623 | (defface whitespace-newline |
| 624 | '((((class color) (background dark)) | 624 | '((((class color) (background dark)) |
| 625 | (:foreground "darkgray" :bold nil)) | 625 | (:foreground "darkgray" :bold nil)) |
| 626 | (((class color) (background light)) | 626 | (((class color) (min-colors 88) (background light)) |
| 627 | (:foreground "lightgray" :bold nil)) | 627 | (:foreground "lightgray" :bold nil)) |
| 628 | ;; Displays with 16 colors use lightgray as background, so using a | ||
| 629 | ;; lightgray foreground makes the newline mark invisible. | ||
| 630 | (((class color) (background light)) | ||
| 631 | (:foreground "brown" :bold nil)) | ||
| 628 | (t (:underline t :bold nil))) | 632 | (t (:underline t :bold nil))) |
| 629 | "Face used to visualize NEWLINE char mapping. | 633 | "Face used to visualize NEWLINE char mapping. |
| 630 | 634 | ||
diff --git a/lisp/window.el b/lisp/window.el index 2885c3a5c70..69276a839bd 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -170,7 +170,7 @@ Applications should never rebind this variable. To resize a | |||
| 170 | window to a height less than the one specified here, an | 170 | window to a height less than the one specified here, an |
| 171 | application should instead call `window-resize' with a non-nil | 171 | application should instead call `window-resize' with a non-nil |
| 172 | IGNORE argument. In order to have `split-window' make a window | 172 | IGNORE argument. In order to have `split-window' make a window |
| 173 | shorter, explictly specify the SIZE argument of that function." | 173 | shorter, explicitly specify the SIZE argument of that function." |
| 174 | :type 'integer | 174 | :type 'integer |
| 175 | :version "24.1" | 175 | :version "24.1" |
| 176 | :group 'windows) | 176 | :group 'windows) |
| @@ -190,7 +190,7 @@ Applications should never rebind this variable. To resize a | |||
| 190 | window to a width less than the one specified here, an | 190 | window to a width less than the one specified here, an |
| 191 | application should instead call `window-resize' with a non-nil | 191 | application should instead call `window-resize' with a non-nil |
| 192 | IGNORE argument. In order to have `split-window' make a window | 192 | IGNORE argument. In order to have `split-window' make a window |
| 193 | narrower, explictly specify the SIZE argument of that function." | 193 | narrower, explicitly specify the SIZE argument of that function." |
| 194 | :type 'integer | 194 | :type 'integer |
| 195 | :version "24.1" | 195 | :version "24.1" |
| 196 | :group 'windows) | 196 | :group 'windows) |
| @@ -4515,6 +4515,12 @@ Return WINDOW." | |||
| 4515 | (set-window-dedicated-p window dedicated)) | 4515 | (set-window-dedicated-p window dedicated)) |
| 4516 | (window--display-buffer-1 window))) | 4516 | (window--display-buffer-1 window))) |
| 4517 | 4517 | ||
| 4518 | ;; FIXME: Not implemented. | ||
| 4519 | ;; FIXME: By the way, there could be more levels of dedication: | ||
| 4520 | ;; - `barely' dedicated doesn't prevent reuse of the window, only records that | ||
| 4521 | ;; the window hasn't been used for something else yet. | ||
| 4522 | ;; - `softly' dedicated only allows reuse when asked explicitly. | ||
| 4523 | ;; - `strongly' never allows reuse. | ||
| 4518 | (defvar display-buffer-mark-dedicated nil | 4524 | (defvar display-buffer-mark-dedicated nil |
| 4519 | "If non-nil, `display-buffer' marks the windows it creates as dedicated. | 4525 | "If non-nil, `display-buffer' marks the windows it creates as dedicated. |
| 4520 | The actual non-nil value of this variable will be copied to the | 4526 | The actual non-nil value of this variable will be copied to the |
| @@ -4522,7 +4528,7 @@ The actual non-nil value of this variable will be copied to the | |||
| 4522 | 4528 | ||
| 4523 | (defun window-normalize-buffer-to-display (buffer-or-name) | 4529 | (defun window-normalize-buffer-to-display (buffer-or-name) |
| 4524 | "Normalize BUFFER-OR-NAME argument for buffer display functions. | 4530 | "Normalize BUFFER-OR-NAME argument for buffer display functions. |
| 4525 | If BUFFER-OR-NAME is nil, return the curent buffer. Else, if a | 4531 | If BUFFER-OR-NAME is nil, return the current buffer. Else, if a |
| 4526 | buffer specified by BUFFER-OR-NAME exists, return that buffer. | 4532 | buffer specified by BUFFER-OR-NAME exists, return that buffer. |
| 4527 | If no such buffer exists, create a buffer with the name | 4533 | If no such buffer exists, create a buffer with the name |
| 4528 | BUFFER-OR-NAME and return that buffer." | 4534 | BUFFER-OR-NAME and return that buffer." |
| @@ -4786,9 +4792,10 @@ terminal if either of those variables is non-nil." | |||
| 4786 | (window--display-buffer-1 window)))) | 4792 | (window--display-buffer-1 window)))) |
| 4787 | 4793 | ||
| 4788 | (defun display-buffer--special-action (buffer) | 4794 | (defun display-buffer--special-action (buffer) |
| 4789 | "Try to display BUFFER using `special-display-function'. | 4795 | "Return special display action for BUFFER, if any. |
| 4790 | Call `special-display-p' on BUFFER's name, and if that returns | 4796 | If `special-display-p' returns non-nil for BUFFER, return an |
| 4791 | non-nil, call `special-display-function' on BUFFER." | 4797 | appropriate display action involving `special-display-function'. |
| 4798 | See `display-buffer' for the format of display actions." | ||
| 4792 | (and special-display-function | 4799 | (and special-display-function |
| 4793 | ;; `special-display-p' returns either t or a list of frame | 4800 | ;; `special-display-p' returns either t or a list of frame |
| 4794 | ;; parameters to pass to `special-display-function'. | 4801 | ;; parameters to pass to `special-display-function'. |
| @@ -4944,10 +4951,7 @@ the buffer. | |||
| 4944 | 4951 | ||
| 4945 | NORECORD, if non-nil means do not put this buffer at the front of | 4952 | NORECORD, if non-nil means do not put this buffer at the front of |
| 4946 | the list of recently selected ones." | 4953 | the list of recently selected ones." |
| 4947 | (pop-to-buffer buffer | 4954 | (pop-to-buffer buffer display-buffer--same-window-action norecord)) |
| 4948 | '(display-buffer-same-window | ||
| 4949 | (inhibit-same-window . nil)) | ||
| 4950 | norecord)) | ||
| 4951 | 4955 | ||
| 4952 | (defun read-buffer-to-switch (prompt) | 4956 | (defun read-buffer-to-switch (prompt) |
| 4953 | "Read the name of a buffer to switch to, prompting with PROMPT. | 4957 | "Read the name of a buffer to switch to, prompting with PROMPT. |
| @@ -5012,21 +5016,23 @@ Return the buffer switched to." | |||
| 5012 | (interactive | 5016 | (interactive |
| 5013 | (list (read-buffer-to-switch "Switch to buffer: ") nil 'force-same-window)) | 5017 | (list (read-buffer-to-switch "Switch to buffer: ") nil 'force-same-window)) |
| 5014 | (let ((buffer (window-normalize-buffer-to-switch-to buffer-or-name))) | 5018 | (let ((buffer (window-normalize-buffer-to-switch-to buffer-or-name))) |
| 5015 | (if (null force-same-window) | 5019 | (cond |
| 5016 | (pop-to-buffer buffer display-buffer--same-window-action norecord) | 5020 | ;; Don't call set-window-buffer if it's not needed since it |
| 5017 | (cond | 5021 | ;; might signal an error (e.g. if the window is dedicated). |
| 5018 | ;; Don't call set-window-buffer if it's not needed since it | 5022 | ((eq buffer (window-buffer))) |
| 5019 | ;; might signal an error (e.g. if the window is dedicated). | 5023 | ((window-minibuffer-p) |
| 5020 | ((eq buffer (window-buffer))) | 5024 | (if force-same-window |
| 5021 | ((window-minibuffer-p) | 5025 | (error "Cannot switch buffers in minibuffer window") |
| 5022 | (error "Cannot switch buffers in minibuffer window")) | 5026 | (pop-to-buffer buffer norecord))) |
| 5023 | ((eq (window-dedicated-p) t) | 5027 | ((eq (window-dedicated-p) t) |
| 5024 | (error "Cannot switch buffers in a dedicated window")) | 5028 | (if force-same-window |
| 5025 | (t (set-window-buffer nil buffer))) | 5029 | (error "Cannot switch buffers in a dedicated window") |
| 5026 | 5030 | (pop-to-buffer buffer norecord))) | |
| 5027 | (unless norecord | 5031 | (t (set-window-buffer nil buffer))) |
| 5028 | (select-window (selected-window))) | 5032 | |
| 5029 | (set-buffer buffer)))) | 5033 | (unless norecord |
| 5034 | (select-window (selected-window))) | ||
| 5035 | (set-buffer buffer))) | ||
| 5030 | 5036 | ||
| 5031 | (defun switch-to-buffer-other-window (buffer-or-name &optional norecord) | 5037 | (defun switch-to-buffer-other-window (buffer-or-name &optional norecord) |
| 5032 | "Select the buffer specified by BUFFER-OR-NAME in another window. | 5038 | "Select the buffer specified by BUFFER-OR-NAME in another window. |
diff --git a/lwlib/lwlib.c b/lwlib/lwlib.c index 7e3538aec04..b83517ad1f9 100644 --- a/lwlib/lwlib.c +++ b/lwlib/lwlib.c | |||
| @@ -1156,9 +1156,9 @@ lw_get_widget_value_for_widget (widget_instance *instance, Widget w) | |||
| 1156 | /* To forbid recursive calls */ | 1156 | /* To forbid recursive calls */ |
| 1157 | static Boolean lwlib_updating; | 1157 | static Boolean lwlib_updating; |
| 1158 | 1158 | ||
| 1159 | /* This function can be used as a an XtCallback for the widgets that get | 1159 | /* This function can be used as an XtCallback for the widgets that get |
| 1160 | modified to update other instances of the widgets. Closure should be the | 1160 | modified to update other instances of the widgets. Closure should be the |
| 1161 | widget_instance. */ | 1161 | widget_instance. */ |
| 1162 | void | 1162 | void |
| 1163 | lw_internal_update_other_instances (Widget widget, | 1163 | lw_internal_update_other_instances (Widget widget, |
| 1164 | XtPointer closure, | 1164 | XtPointer closure, |
diff --git a/msdos/sed2v2.inp b/msdos/sed2v2.inp index ce00e82cdd4..6cbeadc0bba 100644 --- a/msdos/sed2v2.inp +++ b/msdos/sed2v2.inp | |||
| @@ -59,7 +59,7 @@ | |||
| 59 | /^#undef PACKAGE_STRING/s/^.*$/#define PACKAGE_STRING ""/ | 59 | /^#undef PACKAGE_STRING/s/^.*$/#define PACKAGE_STRING ""/ |
| 60 | /^#undef PACKAGE_TARNAME/s/^.*$/#define PACKAGE_TARNAME ""/ | 60 | /^#undef PACKAGE_TARNAME/s/^.*$/#define PACKAGE_TARNAME ""/ |
| 61 | /^#undef PACKAGE_VERSION/s/^.*$/#define PACKAGE_VERSION ""/ | 61 | /^#undef PACKAGE_VERSION/s/^.*$/#define PACKAGE_VERSION ""/ |
| 62 | /^#undef VERSION/s/^.*$/#define VERSION "24.0.91"/ | 62 | /^#undef VERSION/s/^.*$/#define VERSION "24.0.92"/ |
| 63 | /^#undef HAVE_DECL_GETENV/s/^.*$/#define HAVE_DECL_GETENV 1/ | 63 | /^#undef HAVE_DECL_GETENV/s/^.*$/#define HAVE_DECL_GETENV 1/ |
| 64 | /^#undef SYS_SIGLIST_DECLARED/s/^.*$/#define SYS_SIGLIST_DECLARED 1/ | 64 | /^#undef SYS_SIGLIST_DECLARED/s/^.*$/#define SYS_SIGLIST_DECLARED 1/ |
| 65 | /^#undef HAVE_DIRENT_H/s/^.*$/#define HAVE_DIRENT_H 1/ | 65 | /^#undef HAVE_DIRENT_H/s/^.*$/#define HAVE_DIRENT_H 1/ |
diff --git a/nextstep/Cocoa/Emacs.base/Contents/Info.plist b/nextstep/Cocoa/Emacs.base/Contents/Info.plist index ca5b0671268..61a8a28f3a9 100644 --- a/nextstep/Cocoa/Emacs.base/Contents/Info.plist +++ b/nextstep/Cocoa/Emacs.base/Contents/Info.plist | |||
| @@ -553,7 +553,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |||
| 553 | <key>CFBundleExecutable</key> | 553 | <key>CFBundleExecutable</key> |
| 554 | <string>Emacs</string> | 554 | <string>Emacs</string> |
| 555 | <key>CFBundleGetInfoString</key> | 555 | <key>CFBundleGetInfoString</key> |
| 556 | <string>Emacs 24.0.91 Copyright (C) 2011 Free Software Foundation, Inc.</string> | 556 | <string>Emacs 24.0.92 Copyright (C) 2011 Free Software Foundation, Inc.</string> |
| 557 | <key>CFBundleIconFile</key> | 557 | <key>CFBundleIconFile</key> |
| 558 | <string>Emacs.icns</string> | 558 | <string>Emacs.icns</string> |
| 559 | <key>CFBundleIdentifier</key> | 559 | <key>CFBundleIdentifier</key> |
| @@ -566,7 +566,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |||
| 566 | <string>APPL</string> | 566 | <string>APPL</string> |
| 567 | <!-- This should be the emacs version number. --> | 567 | <!-- This should be the emacs version number. --> |
| 568 | <key>CFBundleShortVersionString</key> | 568 | <key>CFBundleShortVersionString</key> |
| 569 | <string>24.0.91</string> | 569 | <string>24.0.92</string> |
| 570 | <key>CFBundleSignature</key> | 570 | <key>CFBundleSignature</key> |
| 571 | <string>EMAx</string> | 571 | <string>EMAx</string> |
| 572 | <!-- This SHOULD be a build number. --> | 572 | <!-- This SHOULD be a build number. --> |
diff --git a/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings b/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings index 21e4dd977ca..438a6103f5e 100644 --- a/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings +++ b/nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Localized versions of Info.plist keys */ | 1 | /* Localized versions of Info.plist keys */ |
| 2 | 2 | ||
| 3 | CFBundleName = "Emacs"; | 3 | CFBundleName = "Emacs"; |
| 4 | CFBundleShortVersionString = "Version 24.0.91"; | 4 | CFBundleShortVersionString = "Version 24.0.92"; |
| 5 | CFBundleGetInfoString = "Emacs version 24.0.91, NS Windowing"; | 5 | CFBundleGetInfoString = "Emacs version 24.0.92, NS Windowing"; |
| 6 | NSHumanReadableCopyright = "Copyright (C) 2011 Free Software Foundation, Inc."; | 6 | NSHumanReadableCopyright = "Copyright (C) 2011 Free Software Foundation, Inc."; |
diff --git a/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop b/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop index 5ccb7b38a5b..1b8926e9ef6 100644 --- a/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop +++ b/nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | [Desktop Entry] | 1 | [Desktop Entry] |
| 2 | Encoding=UTF-8 | 2 | Encoding=UTF-8 |
| 3 | Type=Application | 3 | Type=Application |
| 4 | Version=24.0.91 | 4 | Version=24.0.92 |
| 5 | Categories=GNUstep | 5 | Categories=GNUstep |
| 6 | Name=Emacs | 6 | Name=Emacs |
| 7 | Comment=GNU Emacs for NeXT/Open/GNUstep and OS X | 7 | Comment=GNU Emacs for NeXT/Open/GNUstep and OS X |
diff --git a/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist b/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist index 7212ef41f41..9747ed25a2a 100644 --- a/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist +++ b/nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | ApplicationDescription = "GNU Emacs for GNUstep / OS X"; | 2 | ApplicationDescription = "GNU Emacs for GNUstep / OS X"; |
| 3 | ApplicationIcon = emacs.tiff; | 3 | ApplicationIcon = emacs.tiff; |
| 4 | ApplicationName = Emacs; | 4 | ApplicationName = Emacs; |
| 5 | ApplicationRelease = "24.0.91"; | 5 | ApplicationRelease = "24.0.92"; |
| 6 | Authors = ( | 6 | Authors = ( |
| 7 | "Adrian Robert (GNUstep)", | 7 | "Adrian Robert (GNUstep)", |
| 8 | "Christophe de Dinechin (MacOS X)", | 8 | "Christophe de Dinechin (MacOS X)", |
| @@ -13,7 +13,7 @@ | |||
| 13 | ); | 13 | ); |
| 14 | Copyright = "Copyright (C) 2011 Free Software Foundation, Inc."; | 14 | Copyright = "Copyright (C) 2011 Free Software Foundation, Inc."; |
| 15 | CopyrightDescription = "Released under the GNU General Public License Version 3 or later"; | 15 | CopyrightDescription = "Released under the GNU General Public License Version 3 or later"; |
| 16 | FullVersionID = "Emacs 24.0.91, NS Windowing"; | 16 | FullVersionID = "Emacs 24.0.92, NS Windowing"; |
| 17 | NSExecutable = Emacs; | 17 | NSExecutable = Emacs; |
| 18 | NSIcon = emacs.tiff; | 18 | NSIcon = emacs.tiff; |
| 19 | NSPrincipalClass = NSApplication; | 19 | NSPrincipalClass = NSApplication; |
diff --git a/nt/ChangeLog b/nt/ChangeLog index 8de94033196..859123c1a86 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog | |||
| @@ -1,3 +1,23 @@ | |||
| 1 | 2011-11-27 Fabrice Popineau <fabrice.popineau@supelec.fr> (tiny change) | ||
| 2 | |||
| 3 | * inc/stdint.h (uint32_t, uint64_t) [_WIN64]: New typedefs. | ||
| 4 | (UINT64_MAX) [_WIN64]: Fix definition. | ||
| 5 | (uintmax_t, intmax_t): Fix definitions. | ||
| 6 | |||
| 7 | * inc/inttypes.h (strtoumax, strtoimax) [!__MINGW32__]: Provide | ||
| 8 | correct definitions. | ||
| 9 | |||
| 10 | * config.nt (HAVE_DECL_STRTOLL): Define. | ||
| 11 | (va_copy) [_WIN64]: Provide a better definition. | ||
| 12 | |||
| 13 | 2011-11-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 14 | |||
| 15 | * configure.bat: Fix typos. | ||
| 16 | |||
| 17 | 2011-11-25 Eli Zaretskii <eliz@gnu.org> | ||
| 18 | |||
| 19 | * INSTALL: Elaborate on debugging fatal errors. | ||
| 20 | |||
| 1 | 2011-11-15 Eli Zaretskii <eliz@gnu.org> | 21 | 2011-11-15 Eli Zaretskii <eliz@gnu.org> |
| 2 | 22 | ||
| 3 | * README.W32: Update the GTK Windows download URL for libpng. | 23 | * README.W32: Update the GTK Windows download URL for libpng. |
| @@ -1784,7 +1804,7 @@ | |||
| 1784 | 1804 | ||
| 1785 | 1998-12-08 Geoff Voelker <voelker@cs.washington.edu> | 1805 | 1998-12-08 Geoff Voelker <voelker@cs.washington.edu> |
| 1786 | 1806 | ||
| 1787 | * makefile.nt: Do string comparision of _NMAKE_VER. | 1807 | * makefile.nt: Do string comparison of _NMAKE_VER. |
| 1788 | 1808 | ||
| 1789 | 1998-12-02 Geoff Voelker <voelker@cs.washington.edu> | 1809 | 1998-12-02 Geoff Voelker <voelker@cs.washington.edu> |
| 1790 | 1810 | ||
diff --git a/nt/INSTALL b/nt/INSTALL index bb621dceb6b..9947cd86a34 100644 --- a/nt/INSTALL +++ b/nt/INSTALL | |||
| @@ -599,6 +599,30 @@ | |||
| 599 | the debugger, and you will be able to debug the cause of the fatal | 599 | the debugger, and you will be able to debug the cause of the fatal |
| 600 | error. | 600 | error. |
| 601 | 601 | ||
| 602 | The single most important thing to find out when Emacs aborts or | ||
| 603 | crashes is where did that happen in the Emacs code. This is called | ||
| 604 | "backtrace". | ||
| 605 | |||
| 606 | Emacs on Windows uses more than one thread. When Emacs aborts due | ||
| 607 | to a fatal error, the current thread may not be the application | ||
| 608 | thread running Emacs code. Therefore, to produce a meaningful | ||
| 609 | backtrace from a debugger, you need to instruct it to show the | ||
| 610 | backtrace for every thread. With GDB, you do it like this: | ||
| 611 | |||
| 612 | (gdb) thread apply all backtrace | ||
| 613 | |||
| 614 | To run Emacs under a debugger to begin with, simply start it from | ||
| 615 | the debugger. With GDB, chdir to the `src' directory (if you have | ||
| 616 | the source tree) or to a directory with the `.gdbinit' file (if you | ||
| 617 | don't have the source tree), and type these commands: | ||
| 618 | |||
| 619 | C:\whatever\src> gdb x:\path\to\emacs.exe | ||
| 620 | (gdb) run <ARGUMENTS TO EMACS> | ||
| 621 | |||
| 622 | Thereafter, use Emacs as usual; you can minimize the debugger | ||
| 623 | window, if you like. The debugger will take control if and when | ||
| 624 | Emacs crashes. | ||
| 625 | |||
| 602 | Emacs functions implemented in C use a naming convention that reflects | 626 | Emacs functions implemented in C use a naming convention that reflects |
| 603 | their names in lisp. The names of the C routines are the lisp names | 627 | their names in lisp. The names of the C routines are the lisp names |
| 604 | prefixed with 'F', and with dashes converted to underscores. For | 628 | prefixed with 'F', and with dashes converted to underscores. For |
diff --git a/nt/config.nt b/nt/config.nt index 3a06a9f5b7a..c77faccb3b4 100644 --- a/nt/config.nt +++ b/nt/config.nt | |||
| @@ -303,6 +303,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 303 | /* Define to 1 if you have the `localtime_r' function. */ | 303 | /* Define to 1 if you have the `localtime_r' function. */ |
| 304 | #undef HAVE_LOCALTIME_R | 304 | #undef HAVE_LOCALTIME_R |
| 305 | 305 | ||
| 306 | /* Define to 1 if you have the declaration of `strtoll', and to 0 if you | ||
| 307 | don't. */ | ||
| 308 | #define HAVE_DECL_STRTOLL 1 | ||
| 309 | |||
| 306 | /* Define to 1 if you have the declaration of `strtoull', and to 0 if you | 310 | /* Define to 1 if you have the declaration of `strtoull', and to 0 if you |
| 307 | don't. */ | 311 | don't. */ |
| 308 | #define HAVE_DECL_STRTOULL 1 | 312 | #define HAVE_DECL_STRTOULL 1 |
| @@ -324,7 +328,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 324 | #define PACKAGE "emacs" | 328 | #define PACKAGE "emacs" |
| 325 | 329 | ||
| 326 | /* Version number of package */ | 330 | /* Version number of package */ |
| 327 | #define VERSION "24.0.91" | 331 | #define VERSION "24.0.92" |
| 328 | 332 | ||
| 329 | /* Define to `__inline__' or `__inline' if that's what the C compiler | 333 | /* Define to `__inline__' or `__inline' if that's what the C compiler |
| 330 | calls it, or to nothing if 'inline' is not supported under any name. */ | 334 | calls it, or to nothing if 'inline' is not supported under any name. */ |
| @@ -353,8 +357,8 @@ typedef unsigned short mode_t; | |||
| 353 | /* A va_copy replacement for MSVC. */ | 357 | /* A va_copy replacement for MSVC. */ |
| 354 | #ifdef _MSC_VER | 358 | #ifdef _MSC_VER |
| 355 | # ifdef _WIN64 | 359 | # ifdef _WIN64 |
| 356 | # ifndef va_copy | 360 | # ifndef va_copy /* Need to be checked (?) */ |
| 357 | # error "va_copy is needed, but not defined!" | 361 | # define va_copy(d,s) ((d) = (s)) |
| 358 | # endif | 362 | # endif |
| 359 | # else /* not _WIN64 */ | 363 | # else /* not _WIN64 */ |
| 360 | # define va_copy(d,s) ((d) = (s)) | 364 | # define va_copy(d,s) ((d) = (s)) |
diff --git a/nt/configure.bat b/nt/configure.bat index 45d966fc34d..c503900274e 100755 --- a/nt/configure.bat +++ b/nt/configure.bat | |||
| @@ -155,7 +155,7 @@ echo. --without-jpeg do not use JPEG library even if it is installed | |||
| 155 | echo. --without-gif do not use GIF library even if it is installed | 155 | echo. --without-gif do not use GIF library even if it is installed |
| 156 | echo. --without-tiff do not use TIFF library even if it is installed | 156 | echo. --without-tiff do not use TIFF library even if it is installed |
| 157 | echo. --without-xpm do not use XPM library even if it is installed | 157 | echo. --without-xpm do not use XPM library even if it is installed |
| 158 | echo. --without-gnutls do not use GNUTLS library even if it is installed | 158 | echo. --without-gnutls do not use GnuTLS library even if it is installed |
| 159 | echo. --with-svg use the RSVG library (experimental) | 159 | echo. --with-svg use the RSVG library (experimental) |
| 160 | echo. --distfiles path to files for make dist, e.g. libXpm.dll | 160 | echo. --distfiles path to files for make dist, e.g. libXpm.dll |
| 161 | if "%use_extensions%" == "0" goto end | 161 | if "%use_extensions%" == "0" goto end |
| @@ -563,7 +563,7 @@ set HAVE_GNUTLS= | |||
| 563 | goto :tlsDone | 563 | goto :tlsDone |
| 564 | 564 | ||
| 565 | :haveTls | 565 | :haveTls |
| 566 | echo ...GNUTLS header available, building with GNUTLS support. | 566 | echo ...GnuTLS header available, building with GnuTLS support. |
| 567 | set HAVE_GNUTLS=1 | 567 | set HAVE_GNUTLS=1 |
| 568 | 568 | ||
| 569 | :tlsDone | 569 | :tlsDone |
diff --git a/nt/emacs.rc b/nt/emacs.rc index 9f7fc6f14aa..479a228bb69 100644 --- a/nt/emacs.rc +++ b/nt/emacs.rc | |||
| @@ -7,8 +7,8 @@ Emacs ICON icons\emacs.ico | |||
| 7 | #endif | 7 | #endif |
| 8 | 8 | ||
| 9 | VS_VERSION_INFO VERSIONINFO | 9 | VS_VERSION_INFO VERSIONINFO |
| 10 | FILEVERSION 24,0,91,0 | 10 | FILEVERSION 24,0,92,0 |
| 11 | PRODUCTVERSION 24,0,91,0 | 11 | PRODUCTVERSION 24,0,92,0 |
| 12 | FILEFLAGSMASK 0x3FL | 12 | FILEFLAGSMASK 0x3FL |
| 13 | #ifdef EMACSDEBUG | 13 | #ifdef EMACSDEBUG |
| 14 | FILEFLAGS 0x1L | 14 | FILEFLAGS 0x1L |
| @@ -25,12 +25,12 @@ BEGIN | |||
| 25 | BEGIN | 25 | BEGIN |
| 26 | VALUE "CompanyName", "Free Software Foundation\0" | 26 | VALUE "CompanyName", "Free Software Foundation\0" |
| 27 | VALUE "FileDescription", "GNU Emacs: The extensible self-documenting text editor\0" | 27 | VALUE "FileDescription", "GNU Emacs: The extensible self-documenting text editor\0" |
| 28 | VALUE "FileVersion", "24, 0, 91, 0\0" | 28 | VALUE "FileVersion", "24, 0, 92, 0\0" |
| 29 | VALUE "InternalName", "Emacs\0" | 29 | VALUE "InternalName", "Emacs\0" |
| 30 | VALUE "LegalCopyright", "Copyright (C) 2001-2011\0" | 30 | VALUE "LegalCopyright", "Copyright (C) 2001-2011\0" |
| 31 | VALUE "OriginalFilename", "emacs.exe" | 31 | VALUE "OriginalFilename", "emacs.exe" |
| 32 | VALUE "ProductName", "Emacs\0" | 32 | VALUE "ProductName", "Emacs\0" |
| 33 | VALUE "ProductVersion", "24, 0, 91, 0\0" | 33 | VALUE "ProductVersion", "24, 0, 92, 0\0" |
| 34 | VALUE "OLESelfRegister", "\0" | 34 | VALUE "OLESelfRegister", "\0" |
| 35 | END | 35 | END |
| 36 | END | 36 | END |
diff --git a/nt/emacsclient.rc b/nt/emacsclient.rc index 6de1daeb959..b653e1fb952 100644 --- a/nt/emacsclient.rc +++ b/nt/emacsclient.rc | |||
| @@ -5,8 +5,8 @@ Emacs ICON icons\emacs.ico | |||
| 5 | #endif | 5 | #endif |
| 6 | 6 | ||
| 7 | VS_VERSION_INFO VERSIONINFO | 7 | VS_VERSION_INFO VERSIONINFO |
| 8 | FILEVERSION 24,0,91,0 | 8 | FILEVERSION 24,0,92,0 |
| 9 | PRODUCTVERSION 24,0,91,0 | 9 | PRODUCTVERSION 24,0,92,0 |
| 10 | FILEFLAGSMASK 0x3FL | 10 | FILEFLAGSMASK 0x3FL |
| 11 | #ifdef EMACSDEBUG | 11 | #ifdef EMACSDEBUG |
| 12 | FILEFLAGS 0x1L | 12 | FILEFLAGS 0x1L |
| @@ -23,12 +23,12 @@ BEGIN | |||
| 23 | BEGIN | 23 | BEGIN |
| 24 | VALUE "CompanyName", "Free Software Foundation\0" | 24 | VALUE "CompanyName", "Free Software Foundation\0" |
| 25 | VALUE "FileDescription", "GNU EmacsClient: Client for the extensible self-documenting text editor\0" | 25 | VALUE "FileDescription", "GNU EmacsClient: Client for the extensible self-documenting text editor\0" |
| 26 | VALUE "FileVersion", "24, 0, 91, 0\0" | 26 | VALUE "FileVersion", "24, 0, 92, 0\0" |
| 27 | VALUE "InternalName", "EmacsClient\0" | 27 | VALUE "InternalName", "EmacsClient\0" |
| 28 | VALUE "LegalCopyright", "Copyright (C) 2001-2011\0" | 28 | VALUE "LegalCopyright", "Copyright (C) 2001-2011\0" |
| 29 | VALUE "OriginalFilename", "emacsclientw.exe" | 29 | VALUE "OriginalFilename", "emacsclientw.exe" |
| 30 | VALUE "ProductName", "EmacsClient\0" | 30 | VALUE "ProductName", "EmacsClient\0" |
| 31 | VALUE "ProductVersion", "24, 0, 91, 0\0" | 31 | VALUE "ProductVersion", "24, 0, 92, 0\0" |
| 32 | VALUE "OLESelfRegister", "\0" | 32 | VALUE "OLESelfRegister", "\0" |
| 33 | END | 33 | END |
| 34 | END | 34 | END |
diff --git a/nt/inc/inttypes.h b/nt/inc/inttypes.h index 3e8b55ab98e..ba26cc1115d 100644 --- a/nt/inc/inttypes.h +++ b/nt/inc/inttypes.h | |||
| @@ -24,7 +24,13 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 24 | #include_next <inttypes.h> | 24 | #include_next <inttypes.h> |
| 25 | #else /* !__MINGW32__ */ | 25 | #else /* !__MINGW32__ */ |
| 26 | #include "stdint.h" | 26 | #include "stdint.h" |
| 27 | #ifdef _WIN64 | ||
| 27 | #define strtoumax _strtoui64 | 28 | #define strtoumax _strtoui64 |
| 29 | #define strtoimax _strtoi64 | ||
| 30 | #else | ||
| 31 | #define strtoumax strtoul | ||
| 32 | #define strtoimax strtol | ||
| 33 | #endif | ||
| 28 | #endif /* !__MINGW32__ */ | 34 | #endif /* !__MINGW32__ */ |
| 29 | 35 | ||
| 30 | #endif | 36 | #endif |
diff --git a/nt/inc/stdint.h b/nt/inc/stdint.h index fa2e06f3da9..4eda1c5a688 100644 --- a/nt/inc/stdint.h +++ b/nt/inc/stdint.h | |||
| @@ -29,7 +29,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 29 | 29 | ||
| 30 | #ifdef _WIN64 | 30 | #ifdef _WIN64 |
| 31 | typedef __int64 intptr_t; | 31 | typedef __int64 intptr_t; |
| 32 | #define UINT64_MAX 18446744073709551615 | 32 | typedef unsigned int uint32_t; |
| 33 | typedef unsigned __int64 uint64_t; | ||
| 34 | #define UINT64_MAX (18446744073709551615i64) | ||
| 33 | #define UINT64_MIN 0 | 35 | #define UINT64_MIN 0 |
| 34 | /* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */ | 36 | /* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */ |
| 35 | #define INT64_MAX 9223372036854775807i64 | 37 | #define INT64_MAX 9223372036854775807i64 |
| @@ -39,6 +41,8 @@ typedef __int64 intptr_t; | |||
| 39 | #define UINTMAX_MIN UINT64_MIN | 41 | #define UINTMAX_MIN UINT64_MIN |
| 40 | #define INTMAX_MAX INT64_MAX | 42 | #define INTMAX_MAX INT64_MAX |
| 41 | #define INTMAX_MIN INT64_MIN | 43 | #define INTMAX_MIN INT64_MIN |
| 44 | #define uintmax_t unsigned __int64 | ||
| 45 | #define intmax_t __int64 | ||
| 42 | #else | 46 | #else |
| 43 | typedef int intptr_t; | 47 | typedef int intptr_t; |
| 44 | typedef unsigned int uint32_t; | 48 | typedef unsigned int uint32_t; |
| @@ -51,10 +55,10 @@ typedef unsigned int uint32_t; | |||
| 51 | #define UINTMAX_MIN UINT32_MIN | 55 | #define UINTMAX_MIN UINT32_MIN |
| 52 | #define INTMAX_MAX INT32_MAX | 56 | #define INTMAX_MAX INT32_MAX |
| 53 | #define INTMAX_MIN INT32_MIN | 57 | #define INTMAX_MIN INT32_MIN |
| 58 | #define uintmax_t unsigned long | ||
| 59 | #define intmax_t long | ||
| 54 | #endif | 60 | #endif |
| 55 | 61 | ||
| 56 | #define uintmax_t unsigned __int64 | ||
| 57 | #define intmax_t __int64 | ||
| 58 | #define PTRDIFF_MAX INTPTR_MAX | 62 | #define PTRDIFF_MAX INTPTR_MAX |
| 59 | 63 | ||
| 60 | #endif /* !__GNUC__ */ | 64 | #endif /* !__GNUC__ */ |
diff --git a/nt/makefile.w32-in b/nt/makefile.w32-in index 194f0759bbf..a474e34eaa5 100644 --- a/nt/makefile.w32-in +++ b/nt/makefile.w32-in | |||
| @@ -22,7 +22,7 @@ | |||
| 22 | # FIXME: This file uses DOS EOLs. Convert to Unix after 22.1 is out | 22 | # FIXME: This file uses DOS EOLs. Convert to Unix after 22.1 is out |
| 23 | # (and remove or replace this comment). | 23 | # (and remove or replace this comment). |
| 24 | 24 | ||
| 25 | VERSION = 24.0.91 | 25 | VERSION = 24.0.92 |
| 26 | 26 | ||
| 27 | TMP_DIST_DIR = emacs-$(VERSION) | 27 | TMP_DIST_DIR = emacs-$(VERSION) |
| 28 | 28 | ||
diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c index fef8a3b6b25..2f1c85aa1a2 100644 --- a/oldXMenu/Activate.c +++ b/oldXMenu/Activate.c | |||
| @@ -78,7 +78,7 @@ along with this program. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 78 | * | 78 | * |
| 79 | * 3) The application has enabled asynchronous event | 79 | * 3) The application has enabled asynchronous event |
| 80 | * queuing mode. In this mode all foreign events | 80 | * queuing mode. In this mode all foreign events |
| 81 | * will be queued up untill XMenuActivate | 81 | * will be queued up until XMenuActivate |
| 82 | * terminates; at which time they will be | 82 | * terminates; at which time they will be |
| 83 | * returned to the X event queue. As long as | 83 | * returned to the X event queue. As long as |
| 84 | * AEQ mode is enabled any asynchronous event | 84 | * AEQ mode is enabled any asynchronous event |
diff --git a/src/.gdbinit b/src/.gdbinit index 80415abe40d..2051475bea0 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -311,9 +311,8 @@ define prowx | |||
| 311 | printf "y=%d x=%d pwid=%d", $row->y, $row->x, $row->pixel_width | 311 | printf "y=%d x=%d pwid=%d", $row->y, $row->x, $row->pixel_width |
| 312 | printf " a+d=%d+%d=%d", $row->ascent, $row->height-$row->ascent, $row->height | 312 | printf " a+d=%d+%d=%d", $row->ascent, $row->height-$row->ascent, $row->height |
| 313 | printf " phys=%d+%d=%d", $row->phys_ascent, $row->phys_height-$row->phys_ascent, $row->phys_height | 313 | printf " phys=%d+%d=%d", $row->phys_ascent, $row->phys_height-$row->phys_ascent, $row->phys_height |
| 314 | printf " vis=%d", $row->visible_height | 314 | printf " vis=%d\n", $row->visible_height |
| 315 | printf " L=%d T=%d R=%d", $row->used[0], $row->used[1], $row->used[2] | 315 | printf "used=(LMargin=%d,Text=%d,RMargin=%d) Hash=%d\n", $row->used[0], $row->used[1], $row->used[2], $row->hash |
| 316 | printf "\n" | ||
| 317 | printf "start=%d end=%d", $row->start.pos.charpos, $row->end.pos.charpos | 316 | printf "start=%d end=%d", $row->start.pos.charpos, $row->end.pos.charpos |
| 318 | if ($row->enabled_p) | 317 | if ($row->enabled_p) |
| 319 | printf " ENA" | 318 | printf " ENA" |
diff --git a/src/ChangeLog b/src/ChangeLog index a0f83560603..6a13bd87264 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,160 @@ | |||
| 1 | 2011-12-03 Jan Djärv <jan.h.d@swipnet.se> | ||
| 2 | |||
| 3 | * widget.c (update_wm_hints): Return if wmshell is null. | ||
| 4 | (widget_update_wm_size_hints): New function. | ||
| 5 | |||
| 6 | * widget.h (widget_update_wm_size_hints): Declare. | ||
| 7 | |||
| 8 | * xterm.c (x_wm_set_size_hint): If USE_X_TOOLKIT, call | ||
| 9 | widget_update_wm_size_hints (Bug#10104). | ||
| 10 | |||
| 11 | 2011-12-03 Eli Zaretskii <eliz@gnu.org> | ||
| 12 | |||
| 13 | * xdisp.c (handle_invisible_prop): If the invisible text ends just | ||
| 14 | before a newline, prepare the bidi iterator for consuming the | ||
| 15 | newline, and keep the current paragraph direction. (Bug#10183) | ||
| 16 | (redisplay_window): Don't let `margin' become negative. (Bug#10192) | ||
| 17 | |||
| 18 | 2011-12-02 Juri Linkov <juri@jurta.org> | ||
| 19 | |||
| 20 | * search.c (Fword_search_regexp): New Lisp function created from | ||
| 21 | `wordify'. Change type of arg `lax' from `int' to `Lisp_Object'. | ||
| 22 | (Fword_search_backward, Fword_search_forward) | ||
| 23 | (Fword_search_backward_lax, Fword_search_forward_lax): | ||
| 24 | Use `Fword_search_regexp' instead of `wordify'. Doc fix. | ||
| 25 | (syms_of_search): Define `Sword_search_regexp'. (Bug#10145) | ||
| 26 | |||
| 27 | 2011-12-01 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 28 | |||
| 29 | * fileio.c (Finsert_file_contents): Move after-change-function call | ||
| 30 | to before the "handled:" label, since all "goto handled" appear in | ||
| 31 | cases where the *-change-functions have already been properly called | ||
| 32 | (bug#10117). | ||
| 33 | |||
| 34 | 2011-12-01 Andreas Schwab <schwab@linux-m68k.org> | ||
| 35 | |||
| 36 | * keyboard.c (interrupt_signal): Don't call kill-emacs when | ||
| 37 | waiting for input. (Bug#10169) | ||
| 38 | |||
| 39 | 2011-11-30 Eli Zaretskii <eliz@gnu.org> | ||
| 40 | |||
| 41 | * dispnew.c (adjust_glyph_matrix): Remove the assertion that | ||
| 42 | verifies glyph row's hash code--we have just reallocated the | ||
| 43 | glyphs, so their contents can be complete garbage. (Bug#10164) | ||
| 44 | |||
| 45 | 2011-11-30 Juanma Barranquero <lekktu@gmail.com> | ||
| 46 | |||
| 47 | * dispnew.c (adjust_glyph_matrix) [XASSERTS]: Add missing check. | ||
| 48 | |||
| 49 | 2011-11-30 Eli Zaretskii <eliz@gnu.org> | ||
| 50 | |||
| 51 | * dispnew.c (adjust_glyph_matrix) [XASSERTS]: Ensure ROW's | ||
| 52 | attributes are tested _before_ calling verify_row_hash, to protect | ||
| 53 | against GCC re-ordering of the tests. (Bug#10164) | ||
| 54 | |||
| 55 | 2011-11-29 Jan Djärv <jan.h.d@swipnet.se> | ||
| 56 | |||
| 57 | * xterm.h (struct x_output): net_wm_state_hidden_seen is new. | ||
| 58 | |||
| 59 | * xterm.c (handle_one_xevent): Only set async_visible and friends | ||
| 60 | if net_wm_state_hidden_seen is non-zero (Bug#10002) | ||
| 61 | (get_current_wm_state): Set net_wm_state_hidden_seen to 1 if | ||
| 62 | _NET_WM_STATE_HIDDEN is in NET_WM_STATE. | ||
| 63 | |||
| 64 | 2011-11-28 Paul Eggert <eggert@cs.ucla.edu> | ||
| 65 | |||
| 66 | Remove GCPRO-related macros that exist only to avoid shadowing locals. | ||
| 67 | * lisp.h (GCPRO1_VAR, GCPRO2_VAR, GCPRO3_VAR, GCPRO4_VAR, GCPRO5_VAR) | ||
| 68 | (GCPRO6_VAR, UNGCPRO_VAR): Remove. See | ||
| 69 | <http://lists.gnu.org/archive/html/emacs-diffs/2011-11/msg00265.html>. | ||
| 70 | All uses changed to use GCPRO1 etc. | ||
| 71 | (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5, GCPRO6, UNGCPRO): | ||
| 72 | Revert to old implementation (i.e., before 2011-03-11). | ||
| 73 | |||
| 74 | 2011-11-28 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | ||
| 75 | |||
| 76 | * dispnew.c (scrolling_window): Truncate overlaps in copy destination | ||
| 77 | of scroll runs so as to avoid assigning disabled bogus rows and | ||
| 78 | unnecessary graphics copy operations. | ||
| 79 | |||
| 80 | 2011-11-27 Eli Zaretskii <eliz@gnu.org> | ||
| 81 | |||
| 82 | * s/ms-w32.h (utimbuf) [_MSC_VER]: Don't define. | ||
| 83 | (snprintf) [_MSC_VER]: Redirect to _snprintf. | ||
| 84 | (strtoll) [_MSC_VER]: Redirect to _strtoi64. | ||
| 85 | (malloc, free, realloc, calloc): Redirect to e_* only when | ||
| 86 | compiling Emacs. | ||
| 87 | |||
| 88 | * lisp.h (GCTYPEBITS): Move before first use. | ||
| 89 | (ALIGN_GCTYPEBITS) [_MSC_VER]: Define. | ||
| 90 | (DECL_ALIGN) [_MSC_VER]: Use it, as MSVC doesn't like bit ops in | ||
| 91 | this macro definition. | ||
| 92 | |||
| 93 | * s/ms-w32.h (tzname): Redirect to _tzname for all values of | ||
| 94 | _MSC_VER. | ||
| 95 | |||
| 96 | 2011-11-27 Jan Djärv <jan.h.d@swipnet.se> | ||
| 97 | |||
| 98 | * gtkutil.c (xg_create_frame_widgets): Call | ||
| 99 | gtk_window_set_has_resize_grip (FALSE) if that function is | ||
| 100 | present with Gtk+ 2.0. | ||
| 101 | |||
| 102 | 2011-11-26 Paul Eggert <eggert@cs.ucla.edu> | ||
| 103 | |||
| 104 | * fileio.c (Finsert_file_contents): Undo previous change; see | ||
| 105 | <http://lists.gnu.org/archive/html/emacs-diffs/2011-11/msg00265.html>. | ||
| 106 | |||
| 107 | 2011-11-26 Paul Eggert <eggert@cs.ucla.edu> | ||
| 108 | |||
| 109 | Rename locals to avoid shadowing. | ||
| 110 | * fileio.c (Finsert_file_contents): | ||
| 111 | Rename inner 'gcpro1' to 'inner_gcpro1' to avoid shadowing. | ||
| 112 | * process.c (wait_reading_process_output): | ||
| 113 | Rename inner 'proc' to 'p' to avoid shadowing. | ||
| 114 | Indent for consistency with usual Emacs style. | ||
| 115 | |||
| 116 | 2011-11-25 Eli Zaretskii <eliz@gnu.org> | ||
| 117 | |||
| 118 | * xdisp.c (redisplay_window): If cursor row is not fully visible | ||
| 119 | after recentering, and scroll-conservatively is set to a large | ||
| 120 | number, scroll window by a few more lines to make the cursor fully | ||
| 121 | visible and out of scroll-margin. (Bug#10105) | ||
| 122 | (start_display): Don't move to the next line if the display should | ||
| 123 | start at a newline that is part of a display vector or an overlay | ||
| 124 | string. (Bug#10119) | ||
| 125 | |||
| 126 | 2011-11-24 Juri Linkov <juri@jurta.org> | ||
| 127 | |||
| 128 | * image.c (imagemagick_load_image): Move `MagickSetResolution' down | ||
| 129 | after the `MagickPingImage' call. (Bug#10112) | ||
| 130 | |||
| 131 | 2011-11-23 Chong Yidong <cyd@gnu.org> | ||
| 132 | |||
| 133 | * window.c (Fcoordinates_in_window_p): Accept only live windows. | ||
| 134 | |||
| 135 | 2011-11-23 Martin Rudalics <rudalics@gmx.at> | ||
| 136 | |||
| 137 | * buffer.c (Fkill_buffer): Run replace_buffer_in_windows before | ||
| 138 | making another buffer current. (Bug#10114) | ||
| 139 | |||
| 140 | 2011-11-23 Glenn Morris <rgm@gnu.org> | ||
| 141 | |||
| 142 | * font.c (font_find_for_lface) [HAVE_NS]: Ignore case. (Bug#2526) | ||
| 143 | |||
| 144 | 2011-11-23 Chong Yidong <cyd@gnu.org> | ||
| 145 | |||
| 146 | * xdisp.c (compute_stop_pos): Check validity of end_charpos before | ||
| 147 | using it (Bug#5984). | ||
| 148 | |||
| 149 | 2011-11-22 Eli Zaretskii <eliz@gnu.org> | ||
| 150 | |||
| 151 | * dispnew.c (adjust_glyph_matrix): Don't verify hash code of mode- | ||
| 152 | and header-lines, as they don't have one computed for them. | ||
| 153 | (Bug#10098) | ||
| 154 | |||
| 155 | * .gdbinit (prow): Make displayed values more self-explaining. | ||
| 156 | Add row's hash code. | ||
| 157 | |||
| 1 | 2011-11-21 Lars Magne Ingebrigtsen <larsi@gnus.org> | 158 | 2011-11-21 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 159 | ||
| 3 | * process.c (wait_reading_process_output): Fix asynchrounous | 160 | * process.c (wait_reading_process_output): Fix asynchrounous |
| @@ -7075,7 +7232,7 @@ | |||
| 7075 | 7232 | ||
| 7076 | 2011-04-08 T.V. Raman <tv.raman.tv@gmail.com> (tiny change) | 7233 | 2011-04-08 T.V. Raman <tv.raman.tv@gmail.com> (tiny change) |
| 7077 | 7234 | ||
| 7078 | * xml.c (parse_region): Avoid creating spurious whiespace nodes. | 7235 | * xml.c (parse_region): Avoid creating spurious whitespace nodes. |
| 7079 | 7236 | ||
| 7080 | 2011-04-08 Chong Yidong <cyd@stupidchicken.com> | 7237 | 2011-04-08 Chong Yidong <cyd@stupidchicken.com> |
| 7081 | 7238 | ||
| @@ -7691,7 +7848,7 @@ | |||
| 7691 | * keyboard.c (Fcommand_execute, Fsuspend_emacs, safe_run_hooks_1): | 7848 | * keyboard.c (Fcommand_execute, Fsuspend_emacs, safe_run_hooks_1): |
| 7692 | Use Frun_hooks. | 7849 | Use Frun_hooks. |
| 7693 | (command_loop_1): Use Frun_hooks. Call safe_run_hooks | 7850 | (command_loop_1): Use Frun_hooks. Call safe_run_hooks |
| 7694 | unconditionnaly since it does the check itself. | 7851 | unconditionally since it does the check itself. |
| 7695 | 7852 | ||
| 7696 | 2011-03-23 Paul Eggert <eggert@cs.ucla.edu> | 7853 | 2011-03-23 Paul Eggert <eggert@cs.ucla.edu> |
| 7697 | 7854 | ||
| @@ -8575,7 +8732,7 @@ | |||
| 8575 | (xg_set_widget_bg): New function. | 8732 | (xg_set_widget_bg): New function. |
| 8576 | (delete_cb): New function. | 8733 | (delete_cb): New function. |
| 8577 | (xg_create_frame_widgets): Connect delete-event to delete_cb. | 8734 | (xg_create_frame_widgets): Connect delete-event to delete_cb. |
| 8578 | Call xg_set_widget_bg. Only set backgrund pixmap for ! HAVE_GTK3 | 8735 | Call xg_set_widget_bg. Only set background pixmap for ! HAVE_GTK3 |
| 8579 | (xg_set_background_color): Call xg_set_widget_bg. | 8736 | (xg_set_background_color): Call xg_set_widget_bg. |
| 8580 | (xg_set_frame_icon): Call xg_get_pixbuf_from_pix_and_mask. | 8737 | (xg_set_frame_icon): Call xg_get_pixbuf_from_pix_and_mask. |
| 8581 | (xg_create_scroll_bar): vadj is a GtkAdjustment for HAVE_GTK3. | 8738 | (xg_create_scroll_bar): vadj is a GtkAdjustment for HAVE_GTK3. |
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10 index 99ab02577d5..7d2f48a03ea 100644 --- a/src/ChangeLog.10 +++ b/src/ChangeLog.10 | |||
| @@ -1003,7 +1003,7 @@ | |||
| 1003 | (syms_of_xdisp): DEFVAR_LISP and initialize it. Update doc string | 1003 | (syms_of_xdisp): DEFVAR_LISP and initialize it. Update doc string |
| 1004 | to describe new value `grow-only', and use of C-l. | 1004 | to describe new value `grow-only', and use of C-l. |
| 1005 | (display_tool_bar_line): Only use default face for border below | 1005 | (display_tool_bar_line): Only use default face for border below |
| 1006 | toolbar if not grow-only (to get acceptable visual appearence). | 1006 | toolbar if not grow-only (to get acceptable visual appearance). |
| 1007 | Explicitly set visible_height for empty toolbar lines. | 1007 | Explicitly set visible_height for empty toolbar lines. |
| 1008 | (redisplay_tool_bar): Handle `grow-only' setting. Check and clear | 1008 | (redisplay_tool_bar): Handle `grow-only' setting. Check and clear |
| 1009 | minimize_tool_bar_window_p flag. | 1009 | minimize_tool_bar_window_p flag. |
| @@ -4346,7 +4346,7 @@ | |||
| 4346 | 4346 | ||
| 4347 | * textprop.c (Fremove_list_of_text_properties): | 4347 | * textprop.c (Fremove_list_of_text_properties): |
| 4348 | Ensure modify_region is called only when buffer is modified and that | 4348 | Ensure modify_region is called only when buffer is modified and that |
| 4349 | signal_after_change is allways called in that case. | 4349 | signal_after_change is always called in that case. |
| 4350 | 4350 | ||
| 4351 | * print.c (PRINTFINISH): Call signal_after_change. | 4351 | * print.c (PRINTFINISH): Call signal_after_change. |
| 4352 | 4352 | ||
| @@ -5084,7 +5084,7 @@ | |||
| 5084 | 5084 | ||
| 5085 | 2006-02-26 Chong Yidong <cyd@stupidchicken.com> | 5085 | 2006-02-26 Chong Yidong <cyd@stupidchicken.com> |
| 5086 | 5086 | ||
| 5087 | * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary argument. | 5087 | * xterm.h, xterm.c (x_uncatch_errors): Delete unnecessary argument. |
| 5088 | 5088 | ||
| 5089 | * xterm.c (x_load_font, x_term_init, XTmouse_position) | 5089 | * xterm.c (x_load_font, x_term_init, XTmouse_position) |
| 5090 | (handle_one_xevent, x_connection_closed, x_list_fonts): | 5090 | (handle_one_xevent, x_connection_closed, x_list_fonts): |
| @@ -12087,7 +12087,7 @@ | |||
| 12087 | (merge_face_heights): Eliminate GCPRO arg. All callers changed. | 12087 | (merge_face_heights): Eliminate GCPRO arg. All callers changed. |
| 12088 | 12088 | ||
| 12089 | * keyboard.c (command_loop_1): Change Vtransient_mark_mode | 12089 | * keyboard.c (command_loop_1): Change Vtransient_mark_mode |
| 12090 | before deciding whether to inactivate mark. | 12090 | before deciding whether to deactivate mark. |
| 12091 | 12091 | ||
| 12092 | 2004-11-06 Lars Brinkhoff <lars@nocrew.org> | 12092 | 2004-11-06 Lars Brinkhoff <lars@nocrew.org> |
| 12093 | 12093 | ||
| @@ -23013,7 +23013,7 @@ | |||
| 23013 | (try_window_id): Likewise. | 23013 | (try_window_id): Likewise. |
| 23014 | (redisplay_window): New local var buffer_unchanged_p. | 23014 | (redisplay_window): New local var buffer_unchanged_p. |
| 23015 | 23015 | ||
| 23016 | * keyboard.c (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass. | 23016 | * keyboard.c (cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_hourglass. |
| 23017 | 23017 | ||
| 23018 | * process.c (create_process): Test USG_SUBTTY_WORKS. | 23018 | * process.c (create_process): Test USG_SUBTTY_WORKS. |
| 23019 | (process_send_signal): Clean up handling of GID. | 23019 | (process_send_signal): Clean up handling of GID. |
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11 index 07d4f4ec116..7c46dea675c 100644 --- a/src/ChangeLog.11 +++ b/src/ChangeLog.11 | |||
| @@ -966,7 +966,7 @@ | |||
| 966 | ($(BLD)/editfns.$(O)): Depend on ../lib/strftime.h. | 966 | ($(BLD)/editfns.$(O)): Depend on ../lib/strftime.h. |
| 967 | ($(BLD)/print.$(O)): Depend on ../lib/ftoastr.h and ../lib/intprops.h. | 967 | ($(BLD)/print.$(O)): Depend on ../lib/ftoastr.h and ../lib/intprops.h. |
| 968 | 968 | ||
| 969 | * deps.mk: Update for recent changes: gnutls support, gnulib | 969 | * deps.mk: Update for recent changes: GnuTLS support, gnulib |
| 970 | imports, addition of globals.h. | 970 | imports, addition of globals.h. |
| 971 | 971 | ||
| 972 | * makefile.w32-in ($(BLD)/sysdep.$(O)): Depend on | 972 | * makefile.w32-in ($(BLD)/sysdep.$(O)): Depend on |
| @@ -2191,7 +2191,7 @@ | |||
| 2191 | 2010-12-16 Jan Djärv <jan.h.d@swipnet.se> | 2191 | 2010-12-16 Jan Djärv <jan.h.d@swipnet.se> |
| 2192 | 2192 | ||
| 2193 | * nsterm.m (ns_draw_window_cursor): If the cursor color is the | 2193 | * nsterm.m (ns_draw_window_cursor): If the cursor color is the |
| 2194 | same as the background, use the face forground as cursor. | 2194 | same as the background, use the face foreground as cursor. |
| 2195 | 2195 | ||
| 2196 | 2010-12-13 Eli Zaretskii <eliz@gnu.org> | 2196 | 2010-12-13 Eli Zaretskii <eliz@gnu.org> |
| 2197 | 2197 | ||
| @@ -3268,7 +3268,7 @@ | |||
| 3268 | 2010-10-10 Lars Magne Ingebrigtsen <larsi@gnus.org> | 3268 | 2010-10-10 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 3269 | 3269 | ||
| 3270 | * gnutls.c (emacs_gnutls_write): If we're trying to write before | 3270 | * gnutls.c (emacs_gnutls_write): If we're trying to write before |
| 3271 | gnutls is ready, return EAGAIN as the errno. | 3271 | GnuTLS is ready, return EAGAIN as the errno. |
| 3272 | 3272 | ||
| 3273 | 2010-10-10 Dan Nicolaescu <dann@ics.uci.edu> | 3273 | 2010-10-10 Dan Nicolaescu <dann@ics.uci.edu> |
| 3274 | 3274 | ||
| @@ -3585,12 +3585,12 @@ | |||
| 3585 | * process.c (make_process): Set the gnutls_p field to zero by | 3585 | * process.c (make_process): Set the gnutls_p field to zero by |
| 3586 | default. | 3586 | default. |
| 3587 | (read_process_output): Always call the gnutls_read function if the | 3587 | (read_process_output): Always call the gnutls_read function if the |
| 3588 | stream is a gnutls stream. | 3588 | stream is a GnuTLS stream. |
| 3589 | (send_process): Ditto for writes. | 3589 | (send_process): Ditto for writes. |
| 3590 | 3590 | ||
| 3591 | * gnutls.c (emacs_gnutls_write, emacs_gnutls_read): Refuse to read | 3591 | * gnutls.c (emacs_gnutls_write, emacs_gnutls_read): Refuse to read |
| 3592 | or write anything until the state is GNUTLS_STAGE_READY. | 3592 | or write anything until the state is GNUTLS_STAGE_READY. |
| 3593 | (Fgnutls_boot): Mark the stream as being a gnutls stream. | 3593 | (Fgnutls_boot): Mark the stream as being a GnuTLS stream. |
| 3594 | 3594 | ||
| 3595 | 2010-09-29 Eli Zaretskii <eliz@gnu.org> | 3595 | 2010-09-29 Eli Zaretskii <eliz@gnu.org> |
| 3596 | 3596 | ||
| @@ -11805,7 +11805,7 @@ | |||
| 11805 | * coding.c (encode_coding_utf_16): Fix checking of a Unicode | 11805 | * coding.c (encode_coding_utf_16): Fix checking of a Unicode |
| 11806 | character. | 11806 | character. |
| 11807 | 11807 | ||
| 11808 | * cmds.c (Fself_insert_command): Avoid unnecessay | 11808 | * cmds.c (Fself_insert_command): Avoid unnecessary |
| 11809 | unibyte->multibyte conversion. (Bug#4240) (Bug#4037) | 11809 | unibyte->multibyte conversion. (Bug#4240) (Bug#4037) |
| 11810 | 11810 | ||
| 11811 | 2009-08-26 Dan Nicolaescu <dann@ics.uci.edu> | 11811 | 2009-08-26 Dan Nicolaescu <dann@ics.uci.edu> |
| @@ -22234,7 +22234,7 @@ | |||
| 22234 | * lisp.h (Fdelete_terminal): Declare. | 22234 | * lisp.h (Fdelete_terminal): Declare. |
| 22235 | 22235 | ||
| 22236 | * charset.h (CHECK_CHARSET, CHECK_CHARSET_GET_ID) | 22236 | * charset.h (CHECK_CHARSET, CHECK_CHARSET_GET_ID) |
| 22237 | (CHECK_CHARSET_GET_ATTR): Don't use the inexistent return value of | 22237 | (CHECK_CHARSET_GET_ATTR): Don't use the nonexistent return value of |
| 22238 | wrong_type_argument. | 22238 | wrong_type_argument. |
| 22239 | 22239 | ||
| 22240 | 2008-02-22 Kenichi Handa <handa@ni.aist.go.jp> | 22240 | 2008-02-22 Kenichi Handa <handa@ni.aist.go.jp> |
| @@ -27366,7 +27366,7 @@ | |||
| 27366 | 27366 | ||
| 27367 | * ccl.c: Include "character.h". | 27367 | * ccl.c: Include "character.h". |
| 27368 | (Qccl, Qcclp): New variables. | 27368 | (Qccl, Qcclp): New variables. |
| 27369 | (CCL_WRITE_CHAR): Alway treat the arg CH as a character even if | 27369 | (CCL_WRITE_CHAR): Always treat the arg CH as a character even if |
| 27370 | it's less than 256. | 27370 | it's less than 256. |
| 27371 | (CCL_WRITE_MULTIBYTE_CHAR): Delete. | 27371 | (CCL_WRITE_MULTIBYTE_CHAR): Delete. |
| 27372 | (CCL_WRITE_STRING, CCL_READ_CHAR): Adjust for the change of SRC | 27372 | (CCL_WRITE_STRING, CCL_READ_CHAR): Adjust for the change of SRC |
| @@ -31330,7 +31330,7 @@ | |||
| 31330 | 31330 | ||
| 31331 | 2007-05-12 Chong Yidong <cyd@stupidchicken.com> | 31331 | 2007-05-12 Chong Yidong <cyd@stupidchicken.com> |
| 31332 | 31332 | ||
| 31333 | * image.c (pbm_load): Correctly check image size for greyscale pbm. | 31333 | * image.c (pbm_load): Correctly check image size for grayscale pbm. |
| 31334 | 31334 | ||
| 31335 | * xterm.c (XTread_socket): Yet Another Uncaught X Error Crash (YAUXEC). | 31335 | * xterm.c (XTread_socket): Yet Another Uncaught X Error Crash (YAUXEC). |
| 31336 | 31336 | ||
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3 index cbf867829c7..34906e505da 100644 --- a/src/ChangeLog.3 +++ b/src/ChangeLog.3 | |||
| @@ -3271,7 +3271,7 @@ | |||
| 3271 | [not HAVE_X11] (x_set_border_pixel): Use gray_width and | 3271 | [not HAVE_X11] (x_set_border_pixel): Use gray_width and |
| 3272 | gray_height, instead of assuming that the bitmap is 16x16. | 3272 | gray_height, instead of assuming that the bitmap is 16x16. |
| 3273 | (x_make_gc): Instead of creating a pixmap and then calling | 3273 | (x_make_gc): Instead of creating a pixmap and then calling |
| 3274 | XPutImage to make it into a grey stipple, just call | 3274 | XPutImage to make it into a gray stipple, just call |
| 3275 | XCreatePixmapFromBitmapData to do it all at once. | 3275 | XCreatePixmapFromBitmapData to do it all at once. |
| 3276 | 3276 | ||
| 3277 | * xterm.c (x_text_icon): Move the request for font information | 3277 | * xterm.c (x_text_icon): Move the request for font information |
| @@ -14880,7 +14880,7 @@ | |||
| 14880 | 14880 | ||
| 14881 | 1989-08-09 Joseph Arceneaux (jla@spiff) | 14881 | 1989-08-09 Joseph Arceneaux (jla@spiff) |
| 14882 | 14882 | ||
| 14883 | * ../oldXMenu/Makefile: Removed all the unneccessary X stuff. | 14883 | * ../oldXMenu/Makefile: Removed all the unnecessary X stuff. |
| 14884 | 14884 | ||
| 14885 | 1989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) | 14885 | 1989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) |
| 14886 | 14886 | ||
diff --git a/src/ChangeLog.6 b/src/ChangeLog.6 index af97d0de7b4..74141f6813a 100644 --- a/src/ChangeLog.6 +++ b/src/ChangeLog.6 | |||
| @@ -718,7 +718,7 @@ | |||
| 718 | (init_ntproc) [HAVE_SOCKETS]: Only load winsock library on startup | 718 | (init_ntproc) [HAVE_SOCKETS]: Only load winsock library on startup |
| 719 | if PRELOAD_WINSOCK is set in environment (or registry). | 719 | if PRELOAD_WINSOCK is set in environment (or registry). |
| 720 | 720 | ||
| 721 | * ntproc.c (Fwin32_has_winsock, Fwin32_unload_winsock) | 721 | * ntproc.c (Fwin32_has_winsock, Fwin32_unload_winsock) |
| 722 | [HAVE_SOCKETS]: New functions. | 722 | [HAVE_SOCKETS]: New functions. |
| 723 | (syms_of_ntproc) [HAVE_SOCKETS]: defsubr them. | 723 | (syms_of_ntproc) [HAVE_SOCKETS]: defsubr them. |
| 724 | 724 | ||
| @@ -845,7 +845,7 @@ | |||
| 845 | (timer_id): Renamed to mouse_button_timer. | 845 | (timer_id): Renamed to mouse_button_timer. |
| 846 | (saved_mouse_move_msg, mouse_move_timer): New variables. | 846 | (saved_mouse_move_msg, mouse_move_timer): New variables. |
| 847 | (win_msg_worker): Delete WM_TIMER code. | 847 | (win_msg_worker): Delete WM_TIMER code. |
| 848 | (win32_wnd_proc): Handle WM_TIMER events here. Use separate timers | 848 | (win32_wnd_proc): Handle WM_TIMER events here. Use separate timers |
| 849 | for mouse down and mouse move (including scroll bar drag) events. | 849 | for mouse down and mouse move (including scroll bar drag) events. |
| 850 | Add new handling code for WM_VSCROLL and WM_MOUSEMOVE events. | 850 | Add new handling code for WM_VSCROLL and WM_MOUSEMOVE events. |
| 851 | Only filter WM_MOUSEMOVE events when a button is held down. | 851 | Only filter WM_MOUSEMOVE events when a button is held down. |
| @@ -1100,17 +1100,17 @@ | |||
| 1100 | 1100 | ||
| 1101 | (nt_sleep): Renamed to sys_sleep. | 1101 | (nt_sleep): Renamed to sys_sleep. |
| 1102 | 1102 | ||
| 1103 | (rename): Renamed to sys_rename. Always rename to a temporary name | 1103 | (rename): Renamed to sys_rename. Always rename to a temporary name |
| 1104 | first on Windows 95. Unlink new name first if necessary. | 1104 | first on Windows 95. Unlink new name first if necessary. |
| 1105 | 1105 | ||
| 1106 | (dir_finding): Variable deleted. | 1106 | (dir_finding): Variable deleted. |
| 1107 | (dir_is_fat, dir_pathname): New variables. | 1107 | (dir_is_fat, dir_pathname): New variables. |
| 1108 | 1108 | ||
| 1109 | (openddir): Fail if dir_find_handle is in use. Save directory name | 1109 | (openddir): Fail if dir_find_handle is in use. Save directory name |
| 1110 | in dir_pathname, and set dir_is_fat appropriately. | 1110 | in dir_pathname, and set dir_is_fat appropriately. |
| 1111 | (closedir, readdir): Use dir_find_handle in place of dir_finding. | 1111 | (closedir, readdir): Use dir_find_handle in place of dir_finding. |
| 1112 | (readdir): Copy directory name from dir_pathname on first | 1112 | (readdir): Copy directory name from dir_pathname on first |
| 1113 | call. Use IS_DIRECTORY_SEP instead of IS_ANY_SEP. Force filename | 1113 | call. Use IS_DIRECTORY_SEP instead of IS_ANY_SEP. Force filename |
| 1114 | to be lower case on FAT volumes. | 1114 | to be lower case on FAT volumes. |
| 1115 | 1115 | ||
| 1116 | (getpwuid): Move struct passwd initialization to init_user_info, | 1116 | (getpwuid): Move struct passwd initialization to init_user_info, |
| @@ -1141,7 +1141,7 @@ | |||
| 1141 | (get_emacs_configuration): Detect Windows flavor (Windows 95 or | 1141 | (get_emacs_configuration): Detect Windows flavor (Windows 95 or |
| 1142 | NT) at run-time. Change OS name for Windows 95 to be "win95". | 1142 | NT) at run-time. Change OS name for Windows 95 to be "win95". |
| 1143 | 1143 | ||
| 1144 | (fd_info): New variable. Array of extra info for file descriptors | 1144 | (fd_info): New variable. Array of extra info for file descriptors |
| 1145 | needed for pipe/socket support. | 1145 | needed for pipe/socket support. |
| 1146 | 1146 | ||
| 1147 | (utc_base_ft, utc_base, init): New internal variables used for | 1147 | (utc_base_ft, utc_base, init): New internal variables used for |
| @@ -1206,7 +1206,7 @@ | |||
| 1206 | * ntinevt.c (win32_kdb_patch_key): Initialize isdead. | 1206 | * ntinevt.c (win32_kdb_patch_key): Initialize isdead. |
| 1207 | (key_event) [HAVE_NTGUI]: Use Windows key code. | 1207 | (key_event) [HAVE_NTGUI]: Use Windows key code. |
| 1208 | 1208 | ||
| 1209 | * ntproc.c: Include config.h after CRT headers. Include fcntl.h. | 1209 | * ntproc.c: Include config.h after CRT headers. Include fcntl.h. |
| 1210 | (child_process, MAX_CHILDREN, CHILD_ACTIVE): Moved to nt.h. | 1210 | (child_process, MAX_CHILDREN, CHILD_ACTIVE): Moved to nt.h. |
| 1211 | (DebugPrint): New macro. | 1211 | (DebugPrint): New macro. |
| 1212 | (new_child): Create input event structures for child processes. | 1212 | (new_child): Create input event structures for child processes. |
| @@ -2580,7 +2580,7 @@ | |||
| 2580 | (win32_fill_rect, dumpglyphs, do_line_dance, x_draw_box): | 2580 | (win32_fill_rect, dumpglyphs, do_line_dance, x_draw_box): |
| 2581 | Use Get/ReleaseFrameDC. | 2581 | Use Get/ReleaseFrameDC. |
| 2582 | (win32_update_begin): Regenerate palette if required. | 2582 | (win32_update_begin): Regenerate palette if required. |
| 2583 | (w32_read_socket): Use FALSE. Handle WM_PALETTECHANGED. | 2583 | (w32_read_socket): Use FALSE. Handle WM_PALETTECHANGED. |
| 2584 | (win32_term_init): Use GetDC directly. | 2584 | (win32_term_init): Use GetDC directly. |
| 2585 | Enable palette in display structure. | 2585 | Enable palette in display structure. |
| 2586 | Predefine white and black. | 2586 | Predefine white and black. |
| @@ -4501,7 +4501,7 @@ | |||
| 4501 | * msdos.c (putchar): Call internal_flush instead of _flsbuf. | 4501 | * msdos.c (putchar): Call internal_flush instead of _flsbuf. |
| 4502 | (DO_TERMSCRIPT): New macro to support open-termscript. | 4502 | (DO_TERMSCRIPT): New macro to support open-termscript. |
| 4503 | (internal_flush): Corrected handling of flush in middle of | 4503 | (internal_flush): Corrected handling of flush in middle of |
| 4504 | escape sequences. Handle screen width > 127. | 4504 | escape sequences. Handle screen width > 127. |
| 4505 | (flush_escape): New function for use by internal_flush. | 4505 | (flush_escape): New function for use by internal_flush. |
| 4506 | (sys_select): New MS-DOS specific version with us timing. | 4506 | (sys_select): New MS-DOS specific version with us timing. |
| 4507 | (EMACSCOLORS): New environment variable. | 4507 | (EMACSCOLORS): New environment variable. |
diff --git a/src/ChangeLog.8 b/src/ChangeLog.8 index e21af17657f..2f3ee45a1ac 100644 --- a/src/ChangeLog.8 +++ b/src/ChangeLog.8 | |||
| @@ -5409,7 +5409,7 @@ | |||
| 5409 | 5409 | ||
| 5410 | 1998-11-10 Gerd Moellmann <gerd@gnu.org> | 5410 | 1998-11-10 Gerd Moellmann <gerd@gnu.org> |
| 5411 | 5411 | ||
| 5412 | * xrdb.c (x_load_resources): Add grey background colors as | 5412 | * xrdb.c (x_load_resources): Add gray background colors as |
| 5413 | defaults for menus, scroll bars, and dialogs. | 5413 | defaults for menus, scroll bars, and dialogs. |
| 5414 | 5414 | ||
| 5415 | * insdel.c (prepare_to_modify_buffer): Move setting | 5415 | * insdel.c (prepare_to_modify_buffer): Move setting |
| @@ -8018,7 +8018,7 @@ | |||
| 8018 | 8018 | ||
| 8019 | * xterm.c (x_scroll_run): Renamed from do_line_dance. | 8019 | * xterm.c (x_scroll_run): Renamed from do_line_dance. |
| 8020 | 8020 | ||
| 8021 | * xdisp.c (redisplay_window): For window-based redisplay, alway | 8021 | * xdisp.c (redisplay_window): For window-based redisplay, always |
| 8022 | try try_window_id. | 8022 | try try_window_id. |
| 8023 | 8023 | ||
| 8024 | * xterm.c (struct glyph_string): New member two_byte_p that is | 8024 | * xterm.c (struct glyph_string): New member two_byte_p that is |
| @@ -12766,7 +12766,7 @@ | |||
| 12766 | 12766 | ||
| 12767 | 1998-12-08 Geoff Voelker <voelker@cs.washington.edu> | 12767 | 1998-12-08 Geoff Voelker <voelker@cs.washington.edu> |
| 12768 | 12768 | ||
| 12769 | * makefile.nt: Do string comparision of _NMAKE_VER. | 12769 | * makefile.nt: Do string comparison of _NMAKE_VER. |
| 12770 | 12770 | ||
| 12771 | 1998-12-06 Eli Zaretskii <eliz@mescaline.gnu.org> | 12771 | 1998-12-06 Eli Zaretskii <eliz@mescaline.gnu.org> |
| 12772 | 12772 | ||
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9 index 6f007992bef..6e3a8d8ab3b 100644 --- a/src/ChangeLog.9 +++ b/src/ChangeLog.9 | |||
| @@ -3479,7 +3479,7 @@ | |||
| 3479 | a workaround for SunOS 4's cc. | 3479 | a workaround for SunOS 4's cc. |
| 3480 | (CCL_CALL_FOR_MAP_INSTRUCTION): Use "if (1)..." not "do {...". | 3480 | (CCL_CALL_FOR_MAP_INSTRUCTION): Use "if (1)..." not "do {...". |
| 3481 | (CCL_SUCCESS, CCL_SUSPEND, CCL_INVALID_CMD): Likewise. | 3481 | (CCL_SUCCESS, CCL_SUSPEND, CCL_INVALID_CMD): Likewise. |
| 3482 | (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessay "do" | 3482 | (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessary "do" |
| 3483 | statement. | 3483 | statement. |
| 3484 | 3484 | ||
| 3485 | 2001-01-23 Gerd Moellmann <gerd@gnu.org> | 3485 | 2001-01-23 Gerd Moellmann <gerd@gnu.org> |
diff --git a/src/buffer.c b/src/buffer.c index a327a1650f1..a482493fac7 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -1526,7 +1526,13 @@ with SIGHUP. */) | |||
| 1526 | UNGCPRO; | 1526 | UNGCPRO; |
| 1527 | } | 1527 | } |
| 1528 | 1528 | ||
| 1529 | /* Make this buffer not be current. | 1529 | /* Run replace_buffer_in_windows before making another buffer current |
| 1530 | since set-window-buffer-start-and-point will refuse to make another | ||
| 1531 | buffer current if the selected window does not show the current | ||
| 1532 | buffer. (Bug#10114) */ | ||
| 1533 | replace_buffer_in_windows (buffer); | ||
| 1534 | |||
| 1535 | /* Make this buffer not be current. | ||
| 1530 | In the process, notice if this is the sole visible buffer | 1536 | In the process, notice if this is the sole visible buffer |
| 1531 | and give up if so. */ | 1537 | and give up if so. */ |
| 1532 | if (b == current_buffer) | 1538 | if (b == current_buffer) |
| @@ -1566,7 +1572,6 @@ with SIGHUP. */) | |||
| 1566 | 1572 | ||
| 1567 | /* These may run Lisp code and into infinite loops (if someone | 1573 | /* These may run Lisp code and into infinite loops (if someone |
| 1568 | insisted on circular lists) so allow quitting here. */ | 1574 | insisted on circular lists) so allow quitting here. */ |
| 1569 | replace_buffer_in_windows (buffer); | ||
| 1570 | frames_discard_buffer (buffer); | 1575 | frames_discard_buffer (buffer); |
| 1571 | 1576 | ||
| 1572 | clear_charpos_cache (b); | 1577 | clear_charpos_cache (b); |
| @@ -1626,7 +1631,7 @@ with SIGHUP. */) | |||
| 1626 | 1631 | ||
| 1627 | /* Reset the local variables, so that this buffer's local values | 1632 | /* Reset the local variables, so that this buffer's local values |
| 1628 | won't be protected from GC. They would be protected | 1633 | won't be protected from GC. They would be protected |
| 1629 | if they happened to remain encached in their symbols. | 1634 | if they happened to remain cached in their symbols. |
| 1630 | This gets rid of them for certain. */ | 1635 | This gets rid of them for certain. */ |
| 1631 | swap_out_buffer_local_variables (b); | 1636 | swap_out_buffer_local_variables (b); |
| 1632 | reset_buffer_local_variables (b, 1); | 1637 | reset_buffer_local_variables (b, 1); |
| @@ -2481,7 +2486,7 @@ swap_out_buffer_local_variables (struct buffer *b) | |||
| 2481 | Lisp_Object sym = XCAR (XCAR (alist)); | 2486 | Lisp_Object sym = XCAR (XCAR (alist)); |
| 2482 | eassert (XSYMBOL (sym)->redirect == SYMBOL_LOCALIZED); | 2487 | eassert (XSYMBOL (sym)->redirect == SYMBOL_LOCALIZED); |
| 2483 | /* Need not do anything if some other buffer's binding is | 2488 | /* Need not do anything if some other buffer's binding is |
| 2484 | now encached. */ | 2489 | now cached. */ |
| 2485 | if (EQ (SYMBOL_BLV (XSYMBOL (sym))->where, buffer)) | 2490 | if (EQ (SYMBOL_BLV (XSYMBOL (sym))->where, buffer)) |
| 2486 | { | 2491 | { |
| 2487 | /* Symbol is set up for this buffer's old local value: | 2492 | /* Symbol is set up for this buffer's old local value: |
diff --git a/src/callint.c b/src/callint.c index 61ab4a3963e..80e24f6c8ee 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -78,7 +78,7 @@ c -- Character (no input method is used). | |||
| 78 | C -- Command name: symbol with interactive function definition. | 78 | C -- Command name: symbol with interactive function definition. |
| 79 | d -- Value of point as number. Does not do I/O. | 79 | d -- Value of point as number. Does not do I/O. |
| 80 | D -- Directory name. | 80 | D -- Directory name. |
| 81 | e -- Parametrized event (i.e., one that's a list) that invoked this command. | 81 | e -- Parameterized event (i.e., one that's a list) that invoked this command. |
| 82 | If used more than once, the Nth `e' returns the Nth parameterized event. | 82 | If used more than once, the Nth `e' returns the Nth parameterized event. |
| 83 | This skips events that are integers or symbols. | 83 | This skips events that are integers or symbols. |
| 84 | f -- Existing file name. | 84 | f -- Existing file name. |
| @@ -561,7 +561,7 @@ static Lisp_Object Vccl_program_table; | |||
| 561 | If VALn is lambda, move to the next map set like reaching to the | 561 | If VALn is lambda, move to the next map set like reaching to the |
| 562 | end of the current map set. | 562 | end of the current map set. |
| 563 | 563 | ||
| 564 | If VALn is a symbol, call the CCL program refered by it. | 564 | If VALn is a symbol, call the CCL program referred by it. |
| 565 | Then, use reg[rrr] as a mapped value except for -1, -2 and -3. | 565 | Then, use reg[rrr] as a mapped value except for -1, -2 and -3. |
| 566 | Such special values are regarded as nil, t, and lambda respectively. | 566 | Such special values are regarded as nil, t, and lambda respectively. |
| 567 | 567 | ||
diff --git a/src/charset.c b/src/charset.c index b6921a762b6..3c15f1bee54 100644 --- a/src/charset.c +++ b/src/charset.c | |||
| @@ -166,9 +166,9 @@ static struct | |||
| 166 | maximum character of the current charset. */ | 166 | maximum character of the current charset. */ |
| 167 | int min_char, max_char; | 167 | int min_char, max_char; |
| 168 | 168 | ||
| 169 | /* A Unicode character correspoinding to the code indice 0 (i.e. the | 169 | /* A Unicode character corresponding to the code index 0 (i.e. the |
| 170 | minimum code-point) of the current charset, or -1 if the code | 170 | minimum code-point) of the current charset, or -1 if the code |
| 171 | indice 0 is not a Unicode character. This is checked when | 171 | index 0 is not a Unicode character. This is checked when |
| 172 | table.encoder[CHAR] is zero. */ | 172 | table.encoder[CHAR] is zero. */ |
| 173 | int zero_index_char; | 173 | int zero_index_char; |
| 174 | 174 | ||
| @@ -66,7 +66,7 @@ struct cm | |||
| 66 | location */ | 66 | location */ |
| 67 | unsigned int cm_autolf:1; /* \r performs a \r\n (rn) */ | 67 | unsigned int cm_autolf:1; /* \r performs a \r\n (rn) */ |
| 68 | 68 | ||
| 69 | /* Parametrized capabilities. This needs to be a struct since | 69 | /* Parameterized capabilities. This needs to be a struct since |
| 70 | the costs are accessed through pointers. */ | 70 | the costs are accessed through pointers. */ |
| 71 | 71 | ||
| 72 | #if 0 | 72 | #if 0 |
diff --git a/src/dired.c b/src/dired.c index acc81a6ed9d..2b5f3b40641 100644 --- a/src/dired.c +++ b/src/dired.c | |||
| @@ -229,11 +229,11 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full, Lisp_Object m | |||
| 229 | int len; | 229 | int len; |
| 230 | int wanted = 0; | 230 | int wanted = 0; |
| 231 | Lisp_Object name, finalname; | 231 | Lisp_Object name, finalname; |
| 232 | struct gcpro inner_gcpro1, inner_gcpro2; | 232 | struct gcpro gcpro1, gcpro2; |
| 233 | 233 | ||
| 234 | len = NAMLEN (dp); | 234 | len = NAMLEN (dp); |
| 235 | name = finalname = make_unibyte_string (dp->d_name, len); | 235 | name = finalname = make_unibyte_string (dp->d_name, len); |
| 236 | GCPRO2_VAR (finalname, name, inner_gcpro); | 236 | GCPRO2 (finalname, name); |
| 237 | 237 | ||
| 238 | /* Note: DECODE_FILE can GC; it should protect its argument, | 238 | /* Note: DECODE_FILE can GC; it should protect its argument, |
| 239 | though. */ | 239 | though. */ |
| @@ -289,23 +289,23 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full, Lisp_Object m | |||
| 289 | /* Construct an expanded filename for the directory entry. | 289 | /* Construct an expanded filename for the directory entry. |
| 290 | Use the decoded names for input to Ffile_attributes. */ | 290 | Use the decoded names for input to Ffile_attributes. */ |
| 291 | Lisp_Object decoded_fullname, fileattrs; | 291 | Lisp_Object decoded_fullname, fileattrs; |
| 292 | struct gcpro innermost_gcpro1, innermost_gcpro2; | 292 | struct gcpro gcpro1, gcpro2; |
| 293 | 293 | ||
| 294 | decoded_fullname = fileattrs = Qnil; | 294 | decoded_fullname = fileattrs = Qnil; |
| 295 | GCPRO2_VAR (decoded_fullname, fileattrs, innermost_gcpro); | 295 | GCPRO2 (decoded_fullname, fileattrs); |
| 296 | 296 | ||
| 297 | /* Both Fexpand_file_name and Ffile_attributes can GC. */ | 297 | /* Both Fexpand_file_name and Ffile_attributes can GC. */ |
| 298 | decoded_fullname = Fexpand_file_name (name, directory); | 298 | decoded_fullname = Fexpand_file_name (name, directory); |
| 299 | fileattrs = Ffile_attributes (decoded_fullname, id_format); | 299 | fileattrs = Ffile_attributes (decoded_fullname, id_format); |
| 300 | 300 | ||
| 301 | list = Fcons (Fcons (finalname, fileattrs), list); | 301 | list = Fcons (Fcons (finalname, fileattrs), list); |
| 302 | UNGCPRO_VAR (innermost_gcpro); | 302 | UNGCPRO; |
| 303 | } | 303 | } |
| 304 | else | 304 | else |
| 305 | list = Fcons (finalname, list); | 305 | list = Fcons (finalname, list); |
| 306 | } | 306 | } |
| 307 | 307 | ||
| 308 | UNGCPRO_VAR (inner_gcpro); | 308 | UNGCPRO; |
| 309 | } | 309 | } |
| 310 | } | 310 | } |
| 311 | 311 | ||
| @@ -673,11 +673,11 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int v | |||
| 673 | if (!NILP (predicate)) | 673 | if (!NILP (predicate)) |
| 674 | { | 674 | { |
| 675 | Lisp_Object val; | 675 | Lisp_Object val; |
| 676 | struct gcpro inner_gcpro1; | 676 | struct gcpro gcpro1; |
| 677 | 677 | ||
| 678 | GCPRO1_VAR (name, inner_gcpro); | 678 | GCPRO1 (name); |
| 679 | val = call1 (predicate, name); | 679 | val = call1 (predicate, name); |
| 680 | UNGCPRO_VAR (inner_gcpro); | 680 | UNGCPRO; |
| 681 | 681 | ||
| 682 | if (NILP (val)) | 682 | if (NILP (val)) |
| 683 | continue; | 683 | continue; |
diff --git a/src/dispextern.h b/src/dispextern.h index a45c5cc138f..ec66dcb4220 100644 --- a/src/dispextern.h +++ b/src/dispextern.h | |||
| @@ -409,7 +409,7 @@ struct glyph | |||
| 409 | { | 409 | { |
| 410 | /* Metrics of a partial glyph of an image (type == IMAGE_GLYPH). */ | 410 | /* Metrics of a partial glyph of an image (type == IMAGE_GLYPH). */ |
| 411 | struct glyph_slice img; | 411 | struct glyph_slice img; |
| 412 | /* Start and end indices of glyphs of a graphme cluster of a | 412 | /* Start and end indices of glyphs of a grapheme cluster of a |
| 413 | composition (type == COMPOSITE_GLYPH). */ | 413 | composition (type == COMPOSITE_GLYPH). */ |
| 414 | struct { int from, to; } cmp; | 414 | struct { int from, to; } cmp; |
| 415 | /* Pixel offsets for upper and lower part of the acronym. */ | 415 | /* Pixel offsets for upper and lower part of the acronym. */ |
diff --git a/src/dispnew.c b/src/dispnew.c index b920693688c..e21f565fb3a 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -612,7 +612,6 @@ adjust_glyph_matrix (struct window *w, struct glyph_matrix *matrix, int x, int y | |||
| 612 | row->glyphs[LAST_AREA] | 612 | row->glyphs[LAST_AREA] |
| 613 | = row->glyphs[LEFT_MARGIN_AREA] + dim.width; | 613 | = row->glyphs[LEFT_MARGIN_AREA] + dim.width; |
| 614 | } | 614 | } |
| 615 | xassert (!row->enabled_p || verify_row_hash (row)); | ||
| 616 | ++row; | 615 | ++row; |
| 617 | } | 616 | } |
| 618 | } | 617 | } |
| @@ -3580,12 +3579,11 @@ update_window (struct window *w, int force_p) | |||
| 3580 | 3579 | ||
| 3581 | rif->update_window_begin_hook (w); | 3580 | rif->update_window_begin_hook (w); |
| 3582 | yb = window_text_bottom_y (w); | 3581 | yb = window_text_bottom_y (w); |
| 3583 | |||
| 3584 | /* If window has a header line, update it before everything else. | ||
| 3585 | Adjust y-positions of other rows by the header line height. */ | ||
| 3586 | row = desired_matrix->rows; | 3582 | row = desired_matrix->rows; |
| 3587 | end = row + desired_matrix->nrows - 1; | 3583 | end = row + desired_matrix->nrows - 1; |
| 3588 | 3584 | ||
| 3585 | /* Take note of the header line, if there is one. We will | ||
| 3586 | update it below, after updating all of the window's lines. */ | ||
| 3589 | if (row->mode_line_p) | 3587 | if (row->mode_line_p) |
| 3590 | { | 3588 | { |
| 3591 | header_line_row = row; | 3589 | header_line_row = row; |
| @@ -3630,6 +3628,8 @@ update_window (struct window *w, int force_p) | |||
| 3630 | 3628 | ||
| 3631 | /* Update the rest of the lines. */ | 3629 | /* Update the rest of the lines. */ |
| 3632 | for (; row < end && (force_p || !input_pending); ++row) | 3630 | for (; row < end && (force_p || !input_pending); ++row) |
| 3631 | /* scrolling_window resets the enabled_p flag of the rows it | ||
| 3632 | reuses from current_matrix. */ | ||
| 3633 | if (row->enabled_p) | 3633 | if (row->enabled_p) |
| 3634 | { | 3634 | { |
| 3635 | int vpos = MATRIX_ROW_VPOS (row, desired_matrix); | 3635 | int vpos = MATRIX_ROW_VPOS (row, desired_matrix); |
| @@ -4564,18 +4564,69 @@ scrolling_window (struct window *w, int header_line_p) | |||
| 4564 | { | 4564 | { |
| 4565 | rif->clear_window_mouse_face (w); | 4565 | rif->clear_window_mouse_face (w); |
| 4566 | rif->scroll_run_hook (w, r); | 4566 | rif->scroll_run_hook (w, r); |
| 4567 | } | ||
| 4568 | |||
| 4569 | /* Truncate runs that copy to where we copied to, and | ||
| 4570 | invalidate runs that copy from where we copied to. */ | ||
| 4571 | for (j = nruns - 1; j > i; --j) | ||
| 4572 | { | ||
| 4573 | struct run *p = runs[j]; | ||
| 4574 | int truncated_p = 0; | ||
| 4567 | 4575 | ||
| 4568 | /* Invalidate runs that copy from where we copied to. */ | 4576 | if (p->nrows > 0 |
| 4569 | for (j = i + 1; j < nruns; ++j) | 4577 | && p->desired_y < r->desired_y + r->height |
| 4578 | && p->desired_y + p->height > r->desired_y) | ||
| 4570 | { | 4579 | { |
| 4571 | struct run *p = runs[j]; | 4580 | if (p->desired_y < r->desired_y) |
| 4581 | { | ||
| 4582 | p->nrows = r->desired_vpos - p->desired_vpos; | ||
| 4583 | p->height = r->desired_y - p->desired_y; | ||
| 4584 | truncated_p = 1; | ||
| 4585 | } | ||
| 4586 | else | ||
| 4587 | { | ||
| 4588 | int nrows_copied = (r->desired_vpos + r->nrows | ||
| 4589 | - p->desired_vpos); | ||
| 4590 | |||
| 4591 | if (p->nrows <= nrows_copied) | ||
| 4592 | p->nrows = 0; | ||
| 4593 | else | ||
| 4594 | { | ||
| 4595 | int height_copied = (r->desired_y + r->height | ||
| 4596 | - p->desired_y); | ||
| 4597 | |||
| 4598 | p->current_vpos += nrows_copied; | ||
| 4599 | p->desired_vpos += nrows_copied; | ||
| 4600 | p->nrows -= nrows_copied; | ||
| 4601 | p->current_y += height_copied; | ||
| 4602 | p->desired_y += height_copied; | ||
| 4603 | p->height -= height_copied; | ||
| 4604 | truncated_p = 1; | ||
| 4605 | } | ||
| 4606 | } | ||
| 4607 | } | ||
| 4572 | 4608 | ||
| 4573 | if ((p->current_y >= r->desired_y | 4609 | if (r->current_y != r->desired_y |
| 4610 | /* The condition below is equivalent to | ||
| 4611 | ((p->current_y >= r->desired_y | ||
| 4574 | && p->current_y < r->desired_y + r->height) | 4612 | && p->current_y < r->desired_y + r->height) |
| 4575 | || (p->current_y + p->height >= r->desired_y | 4613 | || (p->current_y + p->height > r->desired_y |
| 4576 | && (p->current_y + p->height | 4614 | && (p->current_y + p->height |
| 4577 | < r->desired_y + r->height))) | 4615 | <= r->desired_y + r->height))) |
| 4578 | p->nrows = 0; | 4616 | because we have 0 < p->height <= r->height. */ |
| 4617 | && p->current_y < r->desired_y + r->height | ||
| 4618 | && p->current_y + p->height > r->desired_y) | ||
| 4619 | p->nrows = 0; | ||
| 4620 | |||
| 4621 | /* Reorder runs by copied pixel lines if truncated. */ | ||
| 4622 | if (truncated_p && p->nrows > 0) | ||
| 4623 | { | ||
| 4624 | int k = nruns - 1; | ||
| 4625 | |||
| 4626 | while (runs[k]->nrows == 0 || runs[k]->height < p->height) | ||
| 4627 | k--; | ||
| 4628 | memmove (runs + j, runs + j + 1, (k - j) * sizeof (*runs)); | ||
| 4629 | runs[k] = p; | ||
| 4579 | } | 4630 | } |
| 4580 | } | 4631 | } |
| 4581 | 4632 | ||
| @@ -4590,7 +4641,14 @@ scrolling_window (struct window *w, int header_line_p) | |||
| 4590 | to_overlapped_p = to->overlapped_p; | 4641 | to_overlapped_p = to->overlapped_p; |
| 4591 | from->redraw_fringe_bitmaps_p = from->fringe_bitmap_periodic_p; | 4642 | from->redraw_fringe_bitmaps_p = from->fringe_bitmap_periodic_p; |
| 4592 | assign_row (to, from); | 4643 | assign_row (to, from); |
| 4593 | to->enabled_p = 1, from->enabled_p = 0; | 4644 | /* The above `assign_row' actually does swap, so if we had |
| 4645 | an overlap in the copy destination of two runs, then | ||
| 4646 | the second run would assign a previously disabled bogus | ||
| 4647 | row. But thanks to the truncation code in the | ||
| 4648 | preceding for-loop, we no longer have such an overlap, | ||
| 4649 | and thus the assigned row should always be enabled. */ | ||
| 4650 | xassert (to->enabled_p); | ||
| 4651 | from->enabled_p = 0; | ||
| 4594 | to->overlapped_p = to_overlapped_p; | 4652 | to->overlapped_p = to_overlapped_p; |
| 4595 | } | 4653 | } |
| 4596 | } | 4654 | } |
diff --git a/src/fileio.c b/src/fileio.c index 7e75e6285f0..c0f6c1d2e8e 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -1553,7 +1553,7 @@ those `/' is discarded. */) | |||
| 1553 | if (p) | 1553 | if (p) |
| 1554 | /* Start over with the new string, so we check the file-name-handler | 1554 | /* Start over with the new string, so we check the file-name-handler |
| 1555 | again. Important with filenames like "/home/foo//:/hello///there" | 1555 | again. Important with filenames like "/home/foo//:/hello///there" |
| 1556 | which whould substitute to "/:/hello///there" rather than "/there". */ | 1556 | which would substitute to "/:/hello///there" rather than "/there". */ |
| 1557 | return Fsubstitute_in_file_name | 1557 | return Fsubstitute_in_file_name |
| 1558 | (make_specified_string (p, -1, endp - p, multibyte)); | 1558 | (make_specified_string (p, -1, endp - p, multibyte)); |
| 1559 | 1559 | ||
| @@ -4100,6 +4100,16 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4100 | adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, | 4100 | adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, |
| 4101 | inserted); | 4101 | inserted); |
| 4102 | 4102 | ||
| 4103 | /* Call after-change hooks for the inserted text, aside from the case | ||
| 4104 | of normal visiting (not with REPLACE), which is done in a new buffer | ||
| 4105 | "before" the buffer is changed. */ | ||
| 4106 | if (inserted > 0 && total > 0 | ||
| 4107 | && (NILP (visit) || !NILP (replace))) | ||
| 4108 | { | ||
| 4109 | signal_after_change (PT, 0, inserted); | ||
| 4110 | update_compositions (PT, PT, CHECK_BORDER); | ||
| 4111 | } | ||
| 4112 | |||
| 4103 | /* Now INSERTED is measured in characters. */ | 4113 | /* Now INSERTED is measured in characters. */ |
| 4104 | 4114 | ||
| 4105 | handled: | 4115 | handled: |
| @@ -4270,16 +4280,6 @@ variable `last-coding-system-used' to the coding system actually used. */) | |||
| 4270 | unbind_to (count1, Qnil); | 4280 | unbind_to (count1, Qnil); |
| 4271 | } | 4281 | } |
| 4272 | 4282 | ||
| 4273 | /* Call after-change hooks for the inserted text, aside from the case | ||
| 4274 | of normal visiting (not with REPLACE), which is done in a new buffer | ||
| 4275 | "before" the buffer is changed. */ | ||
| 4276 | if (inserted > 0 && total > 0 | ||
| 4277 | && (NILP (visit) || !NILP (replace))) | ||
| 4278 | { | ||
| 4279 | signal_after_change (PT, 0, inserted); | ||
| 4280 | update_compositions (PT, PT, CHECK_BORDER); | ||
| 4281 | } | ||
| 4282 | |||
| 4283 | if (!NILP (visit) | 4283 | if (!NILP (visit) |
| 4284 | && current_buffer->modtime == -1) | 4284 | && current_buffer->modtime == -1) |
| 4285 | { | 4285 | { |
diff --git a/src/font.c b/src/font.c index 9559c65e7ed..35f5703e32e 100644 --- a/src/font.c +++ b/src/font.c | |||
| @@ -3160,14 +3160,7 @@ font_find_for_lface (FRAME_PTR f, Lisp_Object *attrs, Lisp_Object spec, int c) | |||
| 3160 | else | 3160 | else |
| 3161 | { | 3161 | { |
| 3162 | Lisp_Object alters | 3162 | Lisp_Object alters |
| 3163 | = Fassoc_string (val, Vface_alternative_font_family_alist, | 3163 | = Fassoc_string (val, Vface_alternative_font_family_alist, Qt); |
| 3164 | /* Font family names are case-sensitive under NS. */ | ||
| 3165 | #ifndef HAVE_NS | ||
| 3166 | Qt | ||
| 3167 | #else | ||
| 3168 | Qnil | ||
| 3169 | #endif | ||
| 3170 | ); | ||
| 3171 | 3164 | ||
| 3172 | if (! NILP (alters)) | 3165 | if (! NILP (alters)) |
| 3173 | { | 3166 | { |
diff --git a/src/fontset.c b/src/fontset.c index 9697f62ea72..7592521cc7d 100644 --- a/src/fontset.c +++ b/src/fontset.c | |||
| @@ -631,7 +631,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, int id, int fa | |||
| 631 | { | 631 | { |
| 632 | /* Something strange happened, perhaps because of a | 632 | /* Something strange happened, perhaps because of a |
| 633 | Font-backend problem. Too avoid crashing, record | 633 | Font-backend problem. Too avoid crashing, record |
| 634 | that this spec is unsable. It may be better to find | 634 | that this spec is unusable. It may be better to find |
| 635 | another font of the same spec, but currently we don't | 635 | another font of the same spec, but currently we don't |
| 636 | have such an API. */ | 636 | have such an API. */ |
| 637 | RFONT_DEF_SET_FACE (rfont_def, -1); | 637 | RFONT_DEF_SET_FACE (rfont_def, -1); |
diff --git a/src/fringe.c b/src/fringe.c index 25fecca2334..da896e07b76 100644 --- a/src/fringe.c +++ b/src/fringe.c | |||
| @@ -35,7 +35,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 35 | Logical bitmaps are used internally to denote things like | 35 | Logical bitmaps are used internally to denote things like |
| 36 | 'end-of-buffer', 'left-truncation', 'overlay-arrow', etc. | 36 | 'end-of-buffer', 'left-truncation', 'overlay-arrow', etc. |
| 37 | 37 | ||
| 38 | Physical bitmaps specify the visual appearence of the bitmap, | 38 | Physical bitmaps specify the visual appearance of the bitmap, |
| 39 | e.g. 'bottom-left-angle', 'left-arrow', 'left-triangle', etc. | 39 | e.g. 'bottom-left-angle', 'left-arrow', 'left-triangle', etc. |
| 40 | User defined bitmaps are physical bitmaps. | 40 | User defined bitmaps are physical bitmaps. |
| 41 | 41 | ||
| @@ -928,7 +928,7 @@ update_window_fringes (struct window *w, int keep_current_p) | |||
| 928 | int top_ind_rn, bot_ind_rn; | 928 | int top_ind_rn, bot_ind_rn; |
| 929 | int top_ind_min_y, bot_ind_max_y; | 929 | int top_ind_min_y, bot_ind_max_y; |
| 930 | 930 | ||
| 931 | /* top_ind_rn is set to a nonnegative value whenver | 931 | /* top_ind_rn is set to a nonnegative value whenever |
| 932 | row->indicate_bob_p is set, so it's OK that top_row_ends_at_zv_p | 932 | row->indicate_bob_p is set, so it's OK that top_row_ends_at_zv_p |
| 933 | is not initialized here. Similarly for bot_ind_rn, | 933 | is not initialized here. Similarly for bot_ind_rn, |
| 934 | row->indicate_eob_p and bot_row_ends_at_zv_p. */ | 934 | row->indicate_eob_p and bot_row_ends_at_zv_p. */ |
diff --git a/src/ftfont.c b/src/ftfont.c index 5c540f9bf82..c48346b0147 100644 --- a/src/ftfont.c +++ b/src/ftfont.c | |||
| @@ -1462,7 +1462,7 @@ ftfont_get_bitmap (struct font *font, unsigned int code, struct font_bitmap *bit | |||
| 1462 | : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_LCD_V ? 8 | 1462 | : ft_face->glyph->bitmap.pixel_mode == FT_PIXEL_MODE_LCD_V ? 8 |
| 1463 | : -1); | 1463 | : -1); |
| 1464 | if (bitmap->bits_per_pixel < 0) | 1464 | if (bitmap->bits_per_pixel < 0) |
| 1465 | /* We don't suport that kind of pixel mode. */ | 1465 | /* We don't support that kind of pixel mode. */ |
| 1466 | return -1; | 1466 | return -1; |
| 1467 | bitmap->rows = ft_face->glyph->bitmap.rows; | 1467 | bitmap->rows = ft_face->glyph->bitmap.rows; |
| 1468 | bitmap->width = ft_face->glyph->bitmap.width; | 1468 | bitmap->width = ft_face->glyph->bitmap.width; |
diff --git a/src/gtkutil.c b/src/gtkutil.c index 7e6f5c3164d..bc71685819e 100644 --- a/src/gtkutil.c +++ b/src/gtkutil.c | |||
| @@ -1100,6 +1100,14 @@ xg_create_frame_widgets (FRAME_PTR f) | |||
| 1100 | else | 1100 | else |
| 1101 | wtop = gtk_window_new (GTK_WINDOW_TOPLEVEL); | 1101 | wtop = gtk_window_new (GTK_WINDOW_TOPLEVEL); |
| 1102 | 1102 | ||
| 1103 | /* gtk_window_set_has_resize_grip is a Gtk+ 3.0 function but Ubuntu | ||
| 1104 | has backported it to Gtk+ 2.0 and they add the resize grip for | ||
| 1105 | Gtk+ 2.0 applications also. But it has a bug that makes Emacs loop | ||
| 1106 | forever, so disable the grip. */ | ||
| 1107 | #if GTK_MAJOR_VERSION < 3 && defined (HAVE_GTK_WINDOW_SET_HAS_RESIZE_GRIP) | ||
| 1108 | gtk_window_set_has_resize_grip (GTK_WINDOW (wtop), FALSE); | ||
| 1109 | #endif | ||
| 1110 | |||
| 1103 | xg_set_screen (wtop, f); | 1111 | xg_set_screen (wtop, f); |
| 1104 | 1112 | ||
| 1105 | wvbox = gtk_vbox_new (FALSE, 0); | 1113 | wvbox = gtk_vbox_new (FALSE, 0); |
diff --git a/src/gtkutil.h b/src/gtkutil.h index 2dfb3a5ed6c..7cc2d21f9c4 100644 --- a/src/gtkutil.h +++ b/src/gtkutil.h | |||
| @@ -98,7 +98,7 @@ extern GtkWidget *xg_create_widget (const char *type, | |||
| 98 | struct _widget_value *val, | 98 | struct _widget_value *val, |
| 99 | GCallback select_cb, | 99 | GCallback select_cb, |
| 100 | GCallback deactivate_cb, | 100 | GCallback deactivate_cb, |
| 101 | GCallback hightlight_cb); | 101 | GCallback highlight_cb); |
| 102 | 102 | ||
| 103 | extern void xg_modify_menubar_widgets (GtkWidget *menubar, | 103 | extern void xg_modify_menubar_widgets (GtkWidget *menubar, |
| 104 | FRAME_PTR f, | 104 | FRAME_PTR f, |
| @@ -106,7 +106,7 @@ extern void xg_modify_menubar_widgets (GtkWidget *menubar, | |||
| 106 | int deep_p, | 106 | int deep_p, |
| 107 | GCallback select_cb, | 107 | GCallback select_cb, |
| 108 | GCallback deactivate_cb, | 108 | GCallback deactivate_cb, |
| 109 | GCallback hightlight_cb); | 109 | GCallback highlight_cb); |
| 110 | 110 | ||
| 111 | extern int xg_update_frame_menubar (FRAME_PTR f); | 111 | extern int xg_update_frame_menubar (FRAME_PTR f); |
| 112 | 112 | ||
diff --git a/src/image.c b/src/image.c index 8b61c7eefbc..81907d8e580 100644 --- a/src/image.c +++ b/src/image.c | |||
| @@ -7618,7 +7618,7 @@ imagemagick_load_image (struct frame *f, struct image *img, | |||
| 7618 | image = image_spec_value (img->spec, QCindex, NULL); | 7618 | image = image_spec_value (img->spec, QCindex, NULL); |
| 7619 | ino = INTEGERP (image) ? XFASTINT (image) : 0; | 7619 | ino = INTEGERP (image) ? XFASTINT (image) : 0; |
| 7620 | ping_wand = NewMagickWand (); | 7620 | ping_wand = NewMagickWand (); |
| 7621 | MagickSetResolution (ping_wand, 2, 2); | 7621 | |
| 7622 | if (filename != NULL) | 7622 | if (filename != NULL) |
| 7623 | { | 7623 | { |
| 7624 | status = MagickPingImage (ping_wand, filename); | 7624 | status = MagickPingImage (ping_wand, filename); |
| @@ -7628,6 +7628,8 @@ imagemagick_load_image (struct frame *f, struct image *img, | |||
| 7628 | status = MagickPingImageBlob (ping_wand, contents, size); | 7628 | status = MagickPingImageBlob (ping_wand, contents, size); |
| 7629 | } | 7629 | } |
| 7630 | 7630 | ||
| 7631 | MagickSetResolution (ping_wand, 2, 2); | ||
| 7632 | |||
| 7631 | if (! (0 <= ino && ino < MagickGetNumberImages (ping_wand))) | 7633 | if (! (0 <= ino && ino < MagickGetNumberImages (ping_wand))) |
| 7632 | { | 7634 | { |
| 7633 | image_error ("Invalid image number `%s' in image `%s'", | 7635 | image_error ("Invalid image number `%s' in image `%s'", |
diff --git a/src/keyboard.c b/src/keyboard.c index bee91c6b5cf..656634b8d31 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -3001,7 +3001,7 @@ read_char (int commandflag, ptrdiff_t nmaps, Lisp_Object *maps, | |||
| 3001 | { | 3001 | { |
| 3002 | Lisp_Object keys; | 3002 | Lisp_Object keys; |
| 3003 | int key_count, key_count_reset; | 3003 | int key_count, key_count_reset; |
| 3004 | struct gcpro inner_gcpro1; | 3004 | struct gcpro gcpro1; |
| 3005 | int count = SPECPDL_INDEX (); | 3005 | int count = SPECPDL_INDEX (); |
| 3006 | 3006 | ||
| 3007 | /* Save the echo status. */ | 3007 | /* Save the echo status. */ |
| @@ -3029,7 +3029,7 @@ read_char (int commandflag, ptrdiff_t nmaps, Lisp_Object *maps, | |||
| 3029 | keys = Fcopy_sequence (this_command_keys); | 3029 | keys = Fcopy_sequence (this_command_keys); |
| 3030 | else | 3030 | else |
| 3031 | keys = Qnil; | 3031 | keys = Qnil; |
| 3032 | GCPRO1_VAR (keys, inner_gcpro); | 3032 | GCPRO1 (keys); |
| 3033 | 3033 | ||
| 3034 | /* Clear out this_command_keys. */ | 3034 | /* Clear out this_command_keys. */ |
| 3035 | this_command_key_count = 0; | 3035 | this_command_key_count = 0; |
| @@ -3067,7 +3067,7 @@ read_char (int commandflag, ptrdiff_t nmaps, Lisp_Object *maps, | |||
| 3067 | if (saved_immediate_echo) | 3067 | if (saved_immediate_echo) |
| 3068 | echo_now (); | 3068 | echo_now (); |
| 3069 | 3069 | ||
| 3070 | UNGCPRO_VAR (inner_gcpro); | 3070 | UNGCPRO; |
| 3071 | 3071 | ||
| 3072 | /* The input method can return no events. */ | 3072 | /* The input method can return no events. */ |
| 3073 | if (! CONSP (tem)) | 3073 | if (! CONSP (tem)) |
| @@ -9069,9 +9069,9 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt, | |||
| 9069 | int junk; | 9069 | int junk; |
| 9070 | #endif | 9070 | #endif |
| 9071 | 9071 | ||
| 9072 | struct gcpro outer_gcpro1; | 9072 | struct gcpro gcpro1; |
| 9073 | 9073 | ||
| 9074 | GCPRO1_VAR (fake_prefixed_keys, outer_gcpro); | 9074 | GCPRO1 (fake_prefixed_keys); |
| 9075 | raw_keybuf_count = 0; | 9075 | raw_keybuf_count = 0; |
| 9076 | 9076 | ||
| 9077 | last_nonmenu_event = Qnil; | 9077 | last_nonmenu_event = Qnil; |
| @@ -9367,7 +9367,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt, | |||
| 9367 | if (EQ (key, Qt)) | 9367 | if (EQ (key, Qt)) |
| 9368 | { | 9368 | { |
| 9369 | unbind_to (count, Qnil); | 9369 | unbind_to (count, Qnil); |
| 9370 | UNGCPRO_VAR (outer_gcpro); | 9370 | UNGCPRO; |
| 9371 | return -1; | 9371 | return -1; |
| 9372 | } | 9372 | } |
| 9373 | 9373 | ||
| @@ -10065,7 +10065,7 @@ read_key_sequence (Lisp_Object *keybuf, int bufsize, Lisp_Object prompt, | |||
| 10065 | add_command_key (keybuf[t]); | 10065 | add_command_key (keybuf[t]); |
| 10066 | } | 10066 | } |
| 10067 | 10067 | ||
| 10068 | UNGCPRO_VAR (outer_gcpro); | 10068 | UNGCPRO; |
| 10069 | return t; | 10069 | return t; |
| 10070 | } | 10070 | } |
| 10071 | 10071 | ||
| @@ -10874,7 +10874,7 @@ interrupt_signal (int signalnum) /* If we don't have an argument, some */ | |||
| 10874 | /* If there are no frames there, let's pretend that we are a | 10874 | /* If there are no frames there, let's pretend that we are a |
| 10875 | well-behaving UN*X program and quit. We cannot do that while | 10875 | well-behaving UN*X program and quit. We cannot do that while |
| 10876 | GC is in progress, though. */ | 10876 | GC is in progress, though. */ |
| 10877 | if (!gc_in_progress) | 10877 | if (!gc_in_progress && !waiting_for_input) |
| 10878 | Fkill_emacs (Qnil); | 10878 | Fkill_emacs (Qnil); |
| 10879 | else | 10879 | else |
| 10880 | Vquit_flag = Qt; | 10880 | Vquit_flag = Qt; |
diff --git a/src/lisp.h b/src/lisp.h index 2056b7caff8..6b19396111c 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -163,14 +163,23 @@ extern int suppress_checking EXTERNALLY_VISIBLE; | |||
| 163 | /* First, try and define DECL_ALIGN(type,var) which declares a static | 163 | /* First, try and define DECL_ALIGN(type,var) which declares a static |
| 164 | variable VAR of type TYPE with the added requirement that it be | 164 | variable VAR of type TYPE with the added requirement that it be |
| 165 | TYPEBITS-aligned. */ | 165 | TYPEBITS-aligned. */ |
| 166 | |||
| 167 | #ifndef GCTYPEBITS | ||
| 168 | #define GCTYPEBITS 3 | ||
| 169 | #endif | ||
| 170 | |||
| 166 | #ifndef NO_DECL_ALIGN | 171 | #ifndef NO_DECL_ALIGN |
| 167 | # ifndef DECL_ALIGN | 172 | # ifndef DECL_ALIGN |
| 168 | # if HAVE_ATTRIBUTE_ALIGNED | 173 | # if HAVE_ATTRIBUTE_ALIGNED |
| 169 | # define DECL_ALIGN(type, var) \ | 174 | # define DECL_ALIGN(type, var) \ |
| 170 | type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var | 175 | type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var |
| 171 | # elif defined(_MSC_VER) | 176 | # elif defined(_MSC_VER) |
| 177 | # define ALIGN_GCTYPEBITS 8 | ||
| 178 | # if (1 << GCTYPEBITS) != ALIGN_GCTYPEBITS | ||
| 179 | # error ALIGN_GCTYPEBITS is wrong! | ||
| 180 | # endif | ||
| 172 | # define DECL_ALIGN(type, var) \ | 181 | # define DECL_ALIGN(type, var) \ |
| 173 | type __declspec(align(1 << GCTYPEBITS)) var | 182 | type __declspec(align(ALIGN_GCTYPEBITS)) var |
| 174 | # else | 183 | # else |
| 175 | /* What directives do other compilers use? */ | 184 | /* What directives do other compilers use? */ |
| 176 | # endif | 185 | # endif |
| @@ -300,10 +309,6 @@ enum Lisp_Fwd_Type | |||
| 300 | Lisp_Fwd_Kboard_Obj, /* Fwd to a Lisp_Object field of kboards. */ | 309 | Lisp_Fwd_Kboard_Obj, /* Fwd to a Lisp_Object field of kboards. */ |
| 301 | }; | 310 | }; |
| 302 | 311 | ||
| 303 | #ifndef GCTYPEBITS | ||
| 304 | #define GCTYPEBITS 3 | ||
| 305 | #endif | ||
| 306 | |||
| 307 | /* These values are overridden by the m- file on some machines. */ | 312 | /* These values are overridden by the m- file on some machines. */ |
| 308 | #ifndef VALBITS | 313 | #ifndef VALBITS |
| 309 | #define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS) | 314 | #define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS) |
| @@ -324,7 +329,7 @@ union Lisp_Object | |||
| 324 | 329 | ||
| 325 | struct | 330 | struct |
| 326 | { | 331 | { |
| 327 | /* Use explict signed, the signedness of a bit-field of type | 332 | /* Use explicit signed, the signedness of a bit-field of type |
| 328 | int is implementation defined. */ | 333 | int is implementation defined. */ |
| 329 | signed EMACS_INT val : VALBITS; | 334 | signed EMACS_INT val : VALBITS; |
| 330 | ENUM_BF (Lisp_Type) type : GCTYPEBITS; | 335 | ENUM_BF (Lisp_Type) type : GCTYPEBITS; |
| @@ -349,7 +354,7 @@ union Lisp_Object | |||
| 349 | struct | 354 | struct |
| 350 | { | 355 | { |
| 351 | ENUM_BF (Lisp_Type) type : GCTYPEBITS; | 356 | ENUM_BF (Lisp_Type) type : GCTYPEBITS; |
| 352 | /* Use explict signed, the signedness of a bit-field of type | 357 | /* Use explicit signed, the signedness of a bit-field of type |
| 353 | int is implementation defined. */ | 358 | int is implementation defined. */ |
| 354 | signed EMACS_INT val : VALBITS; | 359 | signed EMACS_INT val : VALBITS; |
| 355 | } s; | 360 | } s; |
| @@ -2222,143 +2227,127 @@ struct gcpro | |||
| 2222 | || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) | 2227 | || GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS) |
| 2223 | 2228 | ||
| 2224 | 2229 | ||
| 2225 | #define GCPRO1(var) \ | ||
| 2226 | GCPRO1_VAR (var, gcpro) | ||
| 2227 | #define GCPRO2(var1, var2) \ | ||
| 2228 | GCPRO2_VAR (var1, var2, gcpro) | ||
| 2229 | #define GCPRO3(var1, var2, var3) \ | ||
| 2230 | GCPRO3_VAR (var1, var2, var3, gcpro) | ||
| 2231 | #define GCPRO4(var1, var2, var3, var4) \ | ||
| 2232 | GCPRO4_VAR (var1, var2, var3, var4, gcpro) | ||
| 2233 | #define GCPRO5(var1, var2, var3, var4, var5) \ | ||
| 2234 | GCPRO5_VAR (var1, var2, var3, var4, var5, gcpro) | ||
| 2235 | #define GCPRO6(var1, var2, var3, var4, var5, var6) \ | ||
| 2236 | GCPRO6_VAR (var1, var2, var3, var4, var5, var6, gcpro) | ||
| 2237 | #define UNGCPRO UNGCPRO_VAR (gcpro) | ||
| 2238 | |||
| 2239 | #if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS | 2230 | #if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS |
| 2240 | 2231 | ||
| 2241 | /* Do something silly with gcproN vars just so gcc shuts up. */ | 2232 | /* Do something silly with gcproN vars just so gcc shuts up. */ |
| 2242 | /* You get warnings from MIPSPro... */ | 2233 | /* You get warnings from MIPSPro... */ |
| 2243 | 2234 | ||
| 2244 | #define GCPRO1_VAR(var, gcpro) ((void) gcpro##1) | 2235 | #define GCPRO1(varname) ((void) gcpro1) |
| 2245 | #define GCPRO2_VAR(var1, var2, gcpro) \ | 2236 | #define GCPRO2(varname1, varname2) ((void) gcpro2, (void) gcpro1) |
| 2246 | ((void) gcpro##2, (void) gcpro##1) | 2237 | #define GCPRO3(varname1, varname2, varname3) \ |
| 2247 | #define GCPRO3_VAR(var1, var2, var3, gcpro) \ | 2238 | ((void) gcpro3, (void) gcpro2, (void) gcpro1) |
| 2248 | ((void) gcpro##3, (void) gcpro##2, (void) gcpro##1) | 2239 | #define GCPRO4(varname1, varname2, varname3, varname4) \ |
| 2249 | #define GCPRO4_VAR(var1, var2, var3, var4, gcpro) \ | 2240 | ((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1) |
| 2250 | ((void) gcpro##4, (void) gcpro##3, (void) gcpro##2, (void) gcpro##1) | 2241 | #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ |
| 2251 | #define GCPRO5_VAR(var1, var2, var3, var4, var5, gcpro) \ | 2242 | ((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1) |
| 2252 | ((void) gcpro##5, (void) gcpro##4, (void) gcpro##3, (void) gcpro##2, \ | 2243 | #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \ |
| 2253 | (void) gcpro##1) | 2244 | ((void) gcpro6, (void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, \ |
| 2254 | #define GCPRO6_VAR(var1, var2, var3, var4, var5, var6, gcpro) \ | 2245 | (void) gcpro1) |
| 2255 | ((void) gcpro##6, (void) gcpro##5, (void) gcpro##4, (void) gcpro##3, \ | 2246 | #define UNGCPRO ((void) 0) |
| 2256 | (void) gcpro##2, (void) gcpro##1) | ||
| 2257 | #define UNGCPRO_VAR(gcpro) ((void) 0) | ||
| 2258 | 2247 | ||
| 2259 | #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ | 2248 | #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ |
| 2260 | 2249 | ||
| 2261 | #ifndef DEBUG_GCPRO | 2250 | #ifndef DEBUG_GCPRO |
| 2262 | 2251 | ||
| 2263 | #define GCPRO1_VAR(var1, gcpro) \ | 2252 | #define GCPRO1(varname) \ |
| 2264 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2253 | {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \ |
| 2265 | gcprolist = &gcpro##1; } | 2254 | gcprolist = &gcpro1; } |
| 2266 | 2255 | ||
| 2267 | #define GCPRO2_VAR(var1, var2, gcpro) \ | 2256 | #define GCPRO2(varname1, varname2) \ |
| 2268 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2257 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2269 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2258 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2270 | gcprolist = &gcpro##2; } | 2259 | gcprolist = &gcpro2; } |
| 2271 | 2260 | ||
| 2272 | #define GCPRO3_VAR(var1, var2, var3, gcpro) \ | 2261 | #define GCPRO3(varname1, varname2, varname3) \ |
| 2273 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2262 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2274 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2263 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2275 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2264 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2276 | gcprolist = &gcpro##3; } | 2265 | gcprolist = &gcpro3; } |
| 2277 | 2266 | ||
| 2278 | #define GCPRO4_VAR(var1, var2, var3, var4, gcpro) \ | 2267 | #define GCPRO4(varname1, varname2, varname3, varname4) \ |
| 2279 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2268 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2280 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2269 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2281 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2270 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2282 | gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ | 2271 | gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
| 2283 | gcprolist = &gcpro##4; } | 2272 | gcprolist = &gcpro4; } |
| 2284 | 2273 | ||
| 2285 | #define GCPRO5_VAR(var1, var2, var3, var4, var5, gcpro) \ | 2274 | #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ |
| 2286 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2275 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2287 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2276 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2288 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2277 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2289 | gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ | 2278 | gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
| 2290 | gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ | 2279 | gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ |
| 2291 | gcprolist = &gcpro##5; } | 2280 | gcprolist = &gcpro5; } |
| 2292 | 2281 | ||
| 2293 | #define GCPRO6_VAR(var1, var2, var3, var4, var5, var6, gcpro) \ | 2282 | #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \ |
| 2294 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2283 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2295 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2284 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2296 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2285 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2297 | gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ | 2286 | gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
| 2298 | gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ | 2287 | gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ |
| 2299 | gcpro##6 .next = &gcpro##5; gcpro##6 .var = &var6; gcpro##6 .nvars = 1; \ | 2288 | gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \ |
| 2300 | gcprolist = &gcpro##6; } | 2289 | gcprolist = &gcpro6; } |
| 2301 | 2290 | ||
| 2302 | #define UNGCPRO_VAR(gcpro) (gcprolist = gcpro##1 .next) | 2291 | #define UNGCPRO (gcprolist = gcpro1.next) |
| 2303 | 2292 | ||
| 2304 | #else | 2293 | #else |
| 2305 | 2294 | ||
| 2306 | extern int gcpro_level; | 2295 | extern int gcpro_level; |
| 2307 | 2296 | ||
| 2308 | #define GCPRO1_VAR(var1, gcpro) \ | 2297 | #define GCPRO1(varname) \ |
| 2309 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2298 | {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \ |
| 2310 | gcpro##1 .level = gcpro_level++; \ | 2299 | gcpro1.level = gcpro_level++; \ |
| 2311 | gcprolist = &gcpro##1; } | 2300 | gcprolist = &gcpro1; } |
| 2312 | 2301 | ||
| 2313 | #define GCPRO2_VAR(var1, var2, gcpro) \ | 2302 | #define GCPRO2(varname1, varname2) \ |
| 2314 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2303 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2315 | gcpro##1 .level = gcpro_level; \ | 2304 | gcpro1.level = gcpro_level; \ |
| 2316 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2305 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2317 | gcpro##2 .level = gcpro_level++; \ | 2306 | gcpro2.level = gcpro_level++; \ |
| 2318 | gcprolist = &gcpro##2; } | 2307 | gcprolist = &gcpro2; } |
| 2319 | 2308 | ||
| 2320 | #define GCPRO3_VAR(var1, var2, var3, gcpro) \ | 2309 | #define GCPRO3(varname1, varname2, varname3) \ |
| 2321 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2310 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2322 | gcpro##1 .level = gcpro_level; \ | 2311 | gcpro1.level = gcpro_level; \ |
| 2323 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2312 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2324 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2313 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2325 | gcpro##3 .level = gcpro_level++; \ | 2314 | gcpro3.level = gcpro_level++; \ |
| 2326 | gcprolist = &gcpro##3; } | 2315 | gcprolist = &gcpro3; } |
| 2327 | 2316 | ||
| 2328 | #define GCPRO4_VAR(var1, var2, var3, var4, gcpro) \ | 2317 | #define GCPRO4(varname1, varname2, varname3, varname4) \ |
| 2329 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2318 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2330 | gcpro##1 .level = gcpro_level; \ | 2319 | gcpro1.level = gcpro_level; \ |
| 2331 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2320 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2332 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2321 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2333 | gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ | 2322 | gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
| 2334 | gcpro##4 .level = gcpro_level++; \ | 2323 | gcpro4.level = gcpro_level++; \ |
| 2335 | gcprolist = &gcpro##4; } | 2324 | gcprolist = &gcpro4; } |
| 2336 | 2325 | ||
| 2337 | #define GCPRO5_VAR(var1, var2, var3, var4, var5, gcpro) \ | 2326 | #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ |
| 2338 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2327 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2339 | gcpro##1 .level = gcpro_level; \ | 2328 | gcpro1.level = gcpro_level; \ |
| 2340 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2329 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2341 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2330 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2342 | gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ | 2331 | gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
| 2343 | gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ | 2332 | gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ |
| 2344 | gcpro##5 .level = gcpro_level++; \ | 2333 | gcpro5.level = gcpro_level++; \ |
| 2345 | gcprolist = &gcpro##5; } | 2334 | gcprolist = &gcpro5; } |
| 2346 | 2335 | ||
| 2347 | #define GCPRO6_VAR(var1, var2, var3, var4, var5, var6, gcpro) \ | 2336 | #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \ |
| 2348 | {gcpro##1 .next = gcprolist; gcpro##1 .var = &var1; gcpro##1 .nvars = 1; \ | 2337 | {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
| 2349 | gcpro##1 .level = gcpro_level; \ | 2338 | gcpro1.level = gcpro_level; \ |
| 2350 | gcpro##2 .next = &gcpro##1; gcpro##2 .var = &var2; gcpro##2 .nvars = 1; \ | 2339 | gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
| 2351 | gcpro##3 .next = &gcpro##2; gcpro##3 .var = &var3; gcpro##3 .nvars = 1; \ | 2340 | gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
| 2352 | gcpro##4 .next = &gcpro##3; gcpro##4 .var = &var4; gcpro##4 .nvars = 1; \ | 2341 | gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
| 2353 | gcpro##5 .next = &gcpro##4; gcpro##5 .var = &var5; gcpro##5 .nvars = 1; \ | 2342 | gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ |
| 2354 | gcpro##6 .next = &gcpro##5; gcpro##6 .var = &var6; gcpro##6 .nvars = 1; \ | 2343 | gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \ |
| 2355 | gcpro##6 .level = gcpro_level++; \ | 2344 | gcpro6.level = gcpro_level++; \ |
| 2356 | gcprolist = &gcpro##6; } | 2345 | gcprolist = &gcpro6; } |
| 2357 | 2346 | ||
| 2358 | #define UNGCPRO_VAR(gcpro) \ | 2347 | #define UNGCPRO \ |
| 2359 | ((--gcpro_level != gcpro##1 .level) \ | 2348 | ((--gcpro_level != gcpro1.level) \ |
| 2360 | ? (abort (), 0) \ | 2349 | ? (abort (), 0) \ |
| 2361 | : ((gcprolist = gcpro##1 .next), 0)) | 2350 | : ((gcprolist = gcpro1.next), 0)) |
| 2362 | 2351 | ||
| 2363 | #endif /* DEBUG_GCPRO */ | 2352 | #endif /* DEBUG_GCPRO */ |
| 2364 | #endif /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ | 2353 | #endif /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ |
diff --git a/src/lread.c b/src/lread.c index f1f6f0cbd78..cdbd09d2f89 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1917,7 +1917,7 @@ which is the input stream for reading characters. | |||
| 1917 | This function does not move point. */) | 1917 | This function does not move point. */) |
| 1918 | (Lisp_Object start, Lisp_Object end, Lisp_Object printflag, Lisp_Object read_function) | 1918 | (Lisp_Object start, Lisp_Object end, Lisp_Object printflag, Lisp_Object read_function) |
| 1919 | { | 1919 | { |
| 1920 | /* FIXME: Do the eval-sexp-add-defvars danse! */ | 1920 | /* FIXME: Do the eval-sexp-add-defvars dance! */ |
| 1921 | int count = SPECPDL_INDEX (); | 1921 | int count = SPECPDL_INDEX (); |
| 1922 | Lisp_Object tem, cbuf; | 1922 | Lisp_Object tem, cbuf; |
| 1923 | 1923 | ||
diff --git a/src/msdos.c b/src/msdos.c index 4c08c5b29e0..64e9d72c784 100644 --- a/src/msdos.c +++ b/src/msdos.c | |||
| @@ -1558,7 +1558,7 @@ IT_set_terminal_window (struct frame *f, int foo) | |||
| 1558 | { | 1558 | { |
| 1559 | } | 1559 | } |
| 1560 | 1560 | ||
| 1561 | /* Remember the screen colors of the curent frame, to serve as the | 1561 | /* Remember the screen colors of the current frame, to serve as the |
| 1562 | default colors for newly-created frames. */ | 1562 | default colors for newly-created frames. */ |
| 1563 | DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, | 1563 | DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, |
| 1564 | Smsdos_remember_default_colors, 1, 1, 0, | 1564 | Smsdos_remember_default_colors, 1, 1, 0, |
diff --git a/src/nsgui.h b/src/nsgui.h index 5cc2eee3230..99c64cd4cde 100644 --- a/src/nsgui.h +++ b/src/nsgui.h | |||
| @@ -65,7 +65,7 @@ typedef struct _XCharStruct | |||
| 65 | int descent; | 65 | int descent; |
| 66 | } XCharStruct; | 66 | } XCharStruct; |
| 67 | 67 | ||
| 68 | /* Fake tructure from Xlib.h to represent two-byte characters. */ | 68 | /* Fake structure from Xlib.h to represent two-byte characters. */ |
| 69 | #ifndef __OBJC__ | 69 | #ifndef __OBJC__ |
| 70 | typedef unsigned short unichar; | 70 | typedef unsigned short unichar; |
| 71 | #endif | 71 | #endif |
| @@ -202,4 +202,3 @@ typedef struct _NSRect { NSPoint origin; NSSize size; } NSRect; | |||
| 202 | #define PWinGravity (1L << 9) /* program specified window gravity */ | 202 | #define PWinGravity (1L << 9) /* program specified window gravity */ |
| 203 | 203 | ||
| 204 | #endif /* __NSGUI_H__ */ | 204 | #endif /* __NSGUI_H__ */ |
| 205 | |||
diff --git a/src/nsterm.m b/src/nsterm.m index c5b28d57ac5..5e19a397c34 100644 --- a/src/nsterm.m +++ b/src/nsterm.m | |||
| @@ -559,7 +559,7 @@ ns_constrain_all_frames (void) | |||
| 559 | { | 559 | { |
| 560 | NSView *view = FRAME_NS_VIEW (f); | 560 | NSView *view = FRAME_NS_VIEW (f); |
| 561 | /* This no-op will trigger the default window placing | 561 | /* This no-op will trigger the default window placing |
| 562 | * constriant system. */ | 562 | * constraint system. */ |
| 563 | f->output_data.ns->dont_constrain = 0; | 563 | f->output_data.ns->dont_constrain = 0; |
| 564 | [[view window] setFrameOrigin:[[view window] frame].origin]; | 564 | [[view window] setFrameOrigin:[[view window] frame].origin]; |
| 565 | } | 565 | } |
| @@ -3075,7 +3075,7 @@ ns_dumpglyphs_image (struct glyph_string *s, NSRect r) | |||
| 3075 | 3075 | ||
| 3076 | /* If there is no mask, the background won't be seen, | 3076 | /* If there is no mask, the background won't be seen, |
| 3077 | so draw a rectangle on the image for the cursor. | 3077 | so draw a rectangle on the image for the cursor. |
| 3078 | Do this for all images, getting trancparency right is not reliable. */ | 3078 | Do this for all images, getting transparency right is not reliable. */ |
| 3079 | if (s->hl == DRAW_CURSOR) | 3079 | if (s->hl == DRAW_CURSOR) |
| 3080 | { | 3080 | { |
| 3081 | int thickness = abs (s->img->relief); | 3081 | int thickness = abs (s->img->relief); |
diff --git a/src/process.c b/src/process.c index a02ba44ae71..05c4be27550 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -3474,7 +3474,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3474 | 3474 | ||
| 3475 | { | 3475 | { |
| 3476 | /* Setup coding systems for communicating with the network stream. */ | 3476 | /* Setup coding systems for communicating with the network stream. */ |
| 3477 | struct gcpro inner_gcpro1; | 3477 | struct gcpro gcpro1; |
| 3478 | /* Qt denotes we have not yet called Ffind_operation_coding_system. */ | 3478 | /* Qt denotes we have not yet called Ffind_operation_coding_system. */ |
| 3479 | Lisp_Object coding_systems = Qt; | 3479 | Lisp_Object coding_systems = Qt; |
| 3480 | Lisp_Object fargs[5], val; | 3480 | Lisp_Object fargs[5], val; |
| @@ -3502,9 +3502,9 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3502 | { | 3502 | { |
| 3503 | fargs[0] = Qopen_network_stream, fargs[1] = name, | 3503 | fargs[0] = Qopen_network_stream, fargs[1] = name, |
| 3504 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; | 3504 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; |
| 3505 | GCPRO1_VAR (proc, inner_gcpro); | 3505 | GCPRO1 (proc); |
| 3506 | coding_systems = Ffind_operation_coding_system (5, fargs); | 3506 | coding_systems = Ffind_operation_coding_system (5, fargs); |
| 3507 | UNGCPRO_VAR (inner_gcpro); | 3507 | UNGCPRO; |
| 3508 | } | 3508 | } |
| 3509 | if (CONSP (coding_systems)) | 3509 | if (CONSP (coding_systems)) |
| 3510 | val = XCAR (coding_systems); | 3510 | val = XCAR (coding_systems); |
| @@ -3535,9 +3535,9 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3535 | { | 3535 | { |
| 3536 | fargs[0] = Qopen_network_stream, fargs[1] = name, | 3536 | fargs[0] = Qopen_network_stream, fargs[1] = name, |
| 3537 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; | 3537 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; |
| 3538 | GCPRO1_VAR (proc, inner_gcpro); | 3538 | GCPRO1 (proc); |
| 3539 | coding_systems = Ffind_operation_coding_system (5, fargs); | 3539 | coding_systems = Ffind_operation_coding_system (5, fargs); |
| 3540 | UNGCPRO_VAR (inner_gcpro); | 3540 | UNGCPRO; |
| 3541 | } | 3541 | } |
| 3542 | } | 3542 | } |
| 3543 | if (CONSP (coding_systems)) | 3543 | if (CONSP (coding_systems)) |
| @@ -3717,7 +3717,7 @@ DEFUN ("network-interface-info", Fnetwork_interface_info, Snetwork_interface_inf | |||
| 3717 | doc: /* Return information about network interface named IFNAME. | 3717 | doc: /* Return information about network interface named IFNAME. |
| 3718 | The return value is a list (ADDR BCAST NETMASK HWADDR FLAGS), | 3718 | The return value is a list (ADDR BCAST NETMASK HWADDR FLAGS), |
| 3719 | where ADDR is the layer 3 address, BCAST is the layer 3 broadcast address, | 3719 | where ADDR is the layer 3 address, BCAST is the layer 3 broadcast address, |
| 3720 | NETMASK is the layer 3 network mask, HWADDR is the layer 2 addres, and | 3720 | NETMASK is the layer 3 network mask, HWADDR is the layer 2 address, and |
| 3721 | FLAGS is the current flags of the interface. */) | 3721 | FLAGS is the current flags of the interface. */) |
| 3722 | (Lisp_Object ifname) | 3722 | (Lisp_Object ifname) |
| 3723 | { | 3723 | { |
| @@ -4630,26 +4630,29 @@ wait_reading_process_output (int time_limit, int microsecs, int read_kbd, | |||
| 4630 | the gnutls library -- 2.12.14 has been confirmed | 4630 | the gnutls library -- 2.12.14 has been confirmed |
| 4631 | to need it. See | 4631 | to need it. See |
| 4632 | http://comments.gmane.org/gmane.emacs.devel/145074 */ | 4632 | http://comments.gmane.org/gmane.emacs.devel/145074 */ |
| 4633 | struct Lisp_Process *proc; | ||
| 4634 | for (channel = 0; channel < MAXDESC; ++channel) | 4633 | for (channel = 0; channel < MAXDESC; ++channel) |
| 4635 | { | 4634 | if (! NILP (chan_process[channel])) |
| 4636 | if (! NILP (chan_process[channel]) && | 4635 | { |
| 4637 | (proc = XPROCESS (chan_process[channel])) != NULL && | 4636 | struct Lisp_Process *p = |
| 4638 | proc->gnutls_p && | 4637 | XPROCESS (chan_process[channel]); |
| 4639 | proc->infd && | 4638 | if (p && p->gnutls_p && p->infd |
| 4640 | emacs_gnutls_record_check_pending (proc->gnutls_state) > 0) | 4639 | && ((emacs_gnutls_record_check_pending |
| 4641 | { | 4640 | (p->gnutls_state)) |
| 4642 | nfds++; | 4641 | > 0)) |
| 4643 | FD_SET (proc->infd, &Available); | 4642 | { |
| 4644 | } | 4643 | nfds++; |
| 4645 | } | 4644 | FD_SET (p->infd, &Available); |
| 4645 | } | ||
| 4646 | } | ||
| 4646 | } | 4647 | } |
| 4647 | else | 4648 | else |
| 4648 | { | 4649 | { |
| 4649 | /* Check this specific channel. */ | 4650 | /* Check this specific channel. */ |
| 4650 | if (wait_proc->gnutls_p && /* Check for valid process. */ | 4651 | if (wait_proc->gnutls_p /* Check for valid process. */ |
| 4651 | /* Do we have pending data? */ | 4652 | /* Do we have pending data? */ |
| 4652 | emacs_gnutls_record_check_pending (wait_proc->gnutls_state) > 0) | 4653 | && ((emacs_gnutls_record_check_pending |
| 4654 | (wait_proc->gnutls_state)) | ||
| 4655 | > 0)) | ||
| 4653 | { | 4656 | { |
| 4654 | nfds = 1; | 4657 | nfds = 1; |
| 4655 | /* Set to Available. */ | 4658 | /* Set to Available. */ |
diff --git a/src/s/ms-w32.h b/src/s/ms-w32.h index fb0882860d1..cc19765aba6 100644 --- a/src/s/ms-w32.h +++ b/src/s/ms-w32.h | |||
| @@ -267,6 +267,8 @@ struct sigaction { | |||
| 267 | #define getpid _getpid | 267 | #define getpid _getpid |
| 268 | #ifdef _MSC_VER | 268 | #ifdef _MSC_VER |
| 269 | typedef int pid_t; | 269 | typedef int pid_t; |
| 270 | #define snprintf _snprintf | ||
| 271 | #define strtoll _strtoi64 | ||
| 270 | #endif | 272 | #endif |
| 271 | #define isatty _isatty | 273 | #define isatty _isatty |
| 272 | #define logb _logb | 274 | #define logb _logb |
| @@ -275,15 +277,17 @@ typedef int pid_t; | |||
| 275 | #define popen _popen | 277 | #define popen _popen |
| 276 | #define pclose _pclose | 278 | #define pclose _pclose |
| 277 | #define umask _umask | 279 | #define umask _umask |
| 280 | #ifndef _MSC_VER | ||
| 278 | #define utimbuf _utimbuf | 281 | #define utimbuf _utimbuf |
| 282 | #endif | ||
| 279 | #define strdup _strdup | 283 | #define strdup _strdup |
| 280 | #define strupr _strupr | 284 | #define strupr _strupr |
| 281 | #define strnicmp _strnicmp | 285 | #define strnicmp _strnicmp |
| 282 | #define stricmp _stricmp | 286 | #define stricmp _stricmp |
| 283 | #define tzset _tzset | 287 | #define tzset _tzset |
| 284 | 288 | ||
| 285 | #if !defined (_MSC_VER) || (_MSC_VER < 1400) | ||
| 286 | #define tzname _tzname | 289 | #define tzname _tzname |
| 290 | #if !defined (_MSC_VER) || (_MSC_VER < 1400) | ||
| 287 | #undef utime | 291 | #undef utime |
| 288 | #define utime _utime | 292 | #define utime _utime |
| 289 | #endif | 293 | #endif |
| @@ -335,7 +339,7 @@ extern char *get_emacs_configuration_options (void); | |||
| 335 | #define _WINSOCK_H | 339 | #define _WINSOCK_H |
| 336 | 340 | ||
| 337 | /* Defines size_t and alloca (). */ | 341 | /* Defines size_t and alloca (). */ |
| 338 | #if (defined(_MSC_VER) && defined(emacs)) || defined(USE_CRT_DLL) | 342 | #ifdef emacs |
| 339 | #define malloc e_malloc | 343 | #define malloc e_malloc |
| 340 | #define free e_free | 344 | #define free e_free |
| 341 | #define realloc e_realloc | 345 | #define realloc e_realloc |
diff --git a/src/search.c b/src/search.c index a6a0fddb137..811ac74e194 100644 --- a/src/search.c +++ b/src/search.c | |||
| @@ -83,11 +83,10 @@ static struct re_registers search_regs; | |||
| 83 | Qnil if no searching has been done yet. */ | 83 | Qnil if no searching has been done yet. */ |
| 84 | static Lisp_Object last_thing_searched; | 84 | static Lisp_Object last_thing_searched; |
| 85 | 85 | ||
| 86 | /* error condition signaled when regexp compile_pattern fails */ | 86 | /* Error condition signaled when regexp compile_pattern fails. */ |
| 87 | |||
| 88 | static Lisp_Object Qinvalid_regexp; | 87 | static Lisp_Object Qinvalid_regexp; |
| 89 | 88 | ||
| 90 | /* Error condition used for failing searches */ | 89 | /* Error condition used for failing searches. */ |
| 91 | static Lisp_Object Qsearch_failed; | 90 | static Lisp_Object Qsearch_failed; |
| 92 | 91 | ||
| 93 | static void set_search_regs (EMACS_INT, EMACS_INT); | 92 | static void set_search_regs (EMACS_INT, EMACS_INT); |
| @@ -2078,13 +2077,16 @@ set_search_regs (EMACS_INT beg_byte, EMACS_INT nbytes) | |||
| 2078 | XSETBUFFER (last_thing_searched, current_buffer); | 2077 | XSETBUFFER (last_thing_searched, current_buffer); |
| 2079 | } | 2078 | } |
| 2080 | 2079 | ||
| 2081 | /* Given STRING, a string of words separated by word delimiters, | 2080 | DEFUN ("word-search-regexp", Fword_search_regexp, Sword_search_regexp, 1, 2, 0, |
| 2082 | compute a regexp that matches those exact words separated by | 2081 | doc: /* Return a regexp which matches words, ignoring punctuation. |
| 2083 | arbitrary punctuation. If LAX is nonzero, the end of the string | 2082 | Given STRING, a string of words separated by word delimiters, |
| 2084 | need not match a word boundary unless it ends in whitespace. */ | 2083 | compute a regexp that matches those exact words separated by |
| 2085 | 2084 | arbitrary punctuation. If LAX is non-nil, the end of the string | |
| 2086 | static Lisp_Object | 2085 | need not match a word boundary unless it ends in whitespace. |
| 2087 | wordify (Lisp_Object string, int lax) | 2086 | |
| 2087 | Used in `word-search-forward', `word-search-backward', | ||
| 2088 | `word-search-forward-lax', `word-search-backward-lax'. */) | ||
| 2089 | (Lisp_Object string, Lisp_Object lax) | ||
| 2088 | { | 2090 | { |
| 2089 | register unsigned char *o; | 2091 | register unsigned char *o; |
| 2090 | register EMACS_INT i, i_byte, len, punct_count = 0, word_count = 0; | 2092 | register EMACS_INT i, i_byte, len, punct_count = 0, word_count = 0; |
| @@ -2125,7 +2127,7 @@ wordify (Lisp_Object string, int lax) | |||
| 2125 | } | 2127 | } |
| 2126 | 2128 | ||
| 2127 | adjust = - punct_count + 5 * (word_count - 1) | 2129 | adjust = - punct_count + 5 * (word_count - 1) |
| 2128 | + ((lax && !whitespace_at_end) ? 2 : 4); | 2130 | + ((!NILP (lax) && !whitespace_at_end) ? 2 : 4); |
| 2129 | if (STRING_MULTIBYTE (string)) | 2131 | if (STRING_MULTIBYTE (string)) |
| 2130 | val = make_uninit_multibyte_string (len + adjust, | 2132 | val = make_uninit_multibyte_string (len + adjust, |
| 2131 | SBYTES (string) | 2133 | SBYTES (string) |
| @@ -2162,7 +2164,7 @@ wordify (Lisp_Object string, int lax) | |||
| 2162 | prev_c = c; | 2164 | prev_c = c; |
| 2163 | } | 2165 | } |
| 2164 | 2166 | ||
| 2165 | if (!lax || whitespace_at_end) | 2167 | if (NILP (lax) || whitespace_at_end) |
| 2166 | { | 2168 | { |
| 2167 | *o++ = '\\'; | 2169 | *o++ = '\\'; |
| 2168 | *o++ = 'b'; | 2170 | *o++ = 'b'; |
| @@ -2217,10 +2219,14 @@ An optional second argument bounds the search; it is a buffer position. | |||
| 2217 | The match found must not extend before that position. | 2219 | The match found must not extend before that position. |
| 2218 | Optional third argument, if t, means if fail just return nil (no error). | 2220 | Optional third argument, if t, means if fail just return nil (no error). |
| 2219 | If not nil and not t, move to limit of search and return nil. | 2221 | If not nil and not t, move to limit of search and return nil. |
| 2220 | Optional fourth argument is repeat count--search for successive occurrences. */) | 2222 | Optional fourth argument is repeat count--search for successive occurrences. |
| 2223 | |||
| 2224 | Relies on the function `word-search-regexp' to convert a sequence | ||
| 2225 | of words in STRING to a regexp used to search words without regard | ||
| 2226 | to punctuation. */) | ||
| 2221 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) | 2227 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) |
| 2222 | { | 2228 | { |
| 2223 | return search_command (wordify (string, 0), bound, noerror, count, -1, 1, 0); | 2229 | return search_command (Fword_search_regexp (string, Qnil), bound, noerror, count, -1, 1, 0); |
| 2224 | } | 2230 | } |
| 2225 | 2231 | ||
| 2226 | DEFUN ("word-search-forward", Fword_search_forward, Sword_search_forward, 1, 4, | 2232 | DEFUN ("word-search-forward", Fword_search_forward, Sword_search_forward, 1, 4, |
| @@ -2231,10 +2237,14 @@ An optional second argument bounds the search; it is a buffer position. | |||
| 2231 | The match found must not extend after that position. | 2237 | The match found must not extend after that position. |
| 2232 | Optional third argument, if t, means if fail just return nil (no error). | 2238 | Optional third argument, if t, means if fail just return nil (no error). |
| 2233 | If not nil and not t, move to limit of search and return nil. | 2239 | If not nil and not t, move to limit of search and return nil. |
| 2234 | Optional fourth argument is repeat count--search for successive occurrences. */) | 2240 | Optional fourth argument is repeat count--search for successive occurrences. |
| 2241 | |||
| 2242 | Relies on the function `word-search-regexp' to convert a sequence | ||
| 2243 | of words in STRING to a regexp used to search words without regard | ||
| 2244 | to punctuation. */) | ||
| 2235 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) | 2245 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) |
| 2236 | { | 2246 | { |
| 2237 | return search_command (wordify (string, 0), bound, noerror, count, 1, 1, 0); | 2247 | return search_command (Fword_search_regexp (string, Qnil), bound, noerror, count, 1, 1, 0); |
| 2238 | } | 2248 | } |
| 2239 | 2249 | ||
| 2240 | DEFUN ("word-search-backward-lax", Fword_search_backward_lax, Sword_search_backward_lax, 1, 4, | 2250 | DEFUN ("word-search-backward-lax", Fword_search_backward_lax, Sword_search_backward_lax, 1, 4, |
| @@ -2249,10 +2259,14 @@ An optional second argument bounds the search; it is a buffer position. | |||
| 2249 | The match found must not extend before that position. | 2259 | The match found must not extend before that position. |
| 2250 | Optional third argument, if t, means if fail just return nil (no error). | 2260 | Optional third argument, if t, means if fail just return nil (no error). |
| 2251 | If not nil and not t, move to limit of search and return nil. | 2261 | If not nil and not t, move to limit of search and return nil. |
| 2252 | Optional fourth argument is repeat count--search for successive occurrences. */) | 2262 | Optional fourth argument is repeat count--search for successive occurrences. |
| 2263 | |||
| 2264 | Relies on the function `word-search-regexp' to convert a sequence | ||
| 2265 | of words in STRING to a regexp used to search words without regard | ||
| 2266 | to punctuation. */) | ||
| 2253 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) | 2267 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) |
| 2254 | { | 2268 | { |
| 2255 | return search_command (wordify (string, 1), bound, noerror, count, -1, 1, 0); | 2269 | return search_command (Fword_search_regexp (string, Qt), bound, noerror, count, -1, 1, 0); |
| 2256 | } | 2270 | } |
| 2257 | 2271 | ||
| 2258 | DEFUN ("word-search-forward-lax", Fword_search_forward_lax, Sword_search_forward_lax, 1, 4, | 2272 | DEFUN ("word-search-forward-lax", Fword_search_forward_lax, Sword_search_forward_lax, 1, 4, |
| @@ -2267,10 +2281,14 @@ An optional second argument bounds the search; it is a buffer position. | |||
| 2267 | The match found must not extend after that position. | 2281 | The match found must not extend after that position. |
| 2268 | Optional third argument, if t, means if fail just return nil (no error). | 2282 | Optional third argument, if t, means if fail just return nil (no error). |
| 2269 | If not nil and not t, move to limit of search and return nil. | 2283 | If not nil and not t, move to limit of search and return nil. |
| 2270 | Optional fourth argument is repeat count--search for successive occurrences. */) | 2284 | Optional fourth argument is repeat count--search for successive occurrences. |
| 2285 | |||
| 2286 | Relies on the function `word-search-regexp' to convert a sequence | ||
| 2287 | of words in STRING to a regexp used to search words without regard | ||
| 2288 | to punctuation. */) | ||
| 2271 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) | 2289 | (Lisp_Object string, Lisp_Object bound, Lisp_Object noerror, Lisp_Object count) |
| 2272 | { | 2290 | { |
| 2273 | return search_command (wordify (string, 1), bound, noerror, count, 1, 1, 0); | 2291 | return search_command (Fword_search_regexp (string, Qt), bound, noerror, count, 1, 1, 0); |
| 2274 | } | 2292 | } |
| 2275 | 2293 | ||
| 2276 | DEFUN ("re-search-backward", Fre_search_backward, Sre_search_backward, 1, 4, | 2294 | DEFUN ("re-search-backward", Fre_search_backward, Sre_search_backward, 1, 4, |
| @@ -3132,7 +3150,7 @@ record_unwind_save_match_data (void) | |||
| 3132 | Fmatch_data (Qnil, Qnil, Qnil)); | 3150 | Fmatch_data (Qnil, Qnil, Qnil)); |
| 3133 | } | 3151 | } |
| 3134 | 3152 | ||
| 3135 | /* Quote a string to inactivate reg-expr chars */ | 3153 | /* Quote a string to deactivate reg-expr chars */ |
| 3136 | 3154 | ||
| 3137 | DEFUN ("regexp-quote", Fregexp_quote, Sregexp_quote, 1, 1, 0, | 3155 | DEFUN ("regexp-quote", Fregexp_quote, Sregexp_quote, 1, 1, 0, |
| 3138 | doc: /* Return a regexp string which matches exactly STRING and nothing else. */) | 3156 | doc: /* Return a regexp string which matches exactly STRING and nothing else. */) |
| @@ -3229,6 +3247,7 @@ is to bind it with `let' around a small expression. */); | |||
| 3229 | defsubr (&Sposix_string_match); | 3247 | defsubr (&Sposix_string_match); |
| 3230 | defsubr (&Ssearch_forward); | 3248 | defsubr (&Ssearch_forward); |
| 3231 | defsubr (&Ssearch_backward); | 3249 | defsubr (&Ssearch_backward); |
| 3250 | defsubr (&Sword_search_regexp); | ||
| 3232 | defsubr (&Sword_search_forward); | 3251 | defsubr (&Sword_search_forward); |
| 3233 | defsubr (&Sword_search_backward); | 3252 | defsubr (&Sword_search_backward); |
| 3234 | defsubr (&Sword_search_forward_lax); | 3253 | defsubr (&Sword_search_forward_lax); |
diff --git a/src/term.c b/src/term.c index 4a671d048c4..ae505f020f2 100644 --- a/src/term.c +++ b/src/term.c | |||
| @@ -3236,7 +3236,7 @@ use the Bourne shell command `TERM=... export TERM' (C-shell:\n\ | |||
| 3236 | MultiLeft (tty) = tgetstr ("LE", address); | 3236 | MultiLeft (tty) = tgetstr ("LE", address); |
| 3237 | MultiRight (tty) = tgetstr ("RI", address); | 3237 | MultiRight (tty) = tgetstr ("RI", address); |
| 3238 | 3238 | ||
| 3239 | /* SVr4/ANSI color suppert. If "op" isn't available, don't support | 3239 | /* SVr4/ANSI color support. If "op" isn't available, don't support |
| 3240 | color because we can't switch back to the default foreground and | 3240 | color because we can't switch back to the default foreground and |
| 3241 | background. */ | 3241 | background. */ |
| 3242 | tty->TS_orig_pair = tgetstr ("op", address); | 3242 | tty->TS_orig_pair = tgetstr ("op", address); |
diff --git a/src/w32fns.c b/src/w32fns.c index 434861320a5..7a17c108d4d 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -3711,7 +3711,7 @@ w32_wnd_proc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) | |||
| 3711 | if (w32_system_caret_hwnd == NULL) | 3711 | if (w32_system_caret_hwnd == NULL) |
| 3712 | { | 3712 | { |
| 3713 | /* Use the default caret width, and avoid changing it | 3713 | /* Use the default caret width, and avoid changing it |
| 3714 | unneccesarily, as it confuses screen reader software. */ | 3714 | unnecessarily, as it confuses screen reader software. */ |
| 3715 | w32_system_caret_hwnd = hwnd; | 3715 | w32_system_caret_hwnd = hwnd; |
| 3716 | CreateCaret (hwnd, NULL, 0, | 3716 | CreateCaret (hwnd, NULL, 0, |
| 3717 | w32_system_caret_height); | 3717 | w32_system_caret_height); |
| @@ -5011,7 +5011,8 @@ no value of TYPE (always string in the MS Windows case). */) | |||
| 5011 | cursor. Duplicated from xdisp.c, but cannot use the version there | 5011 | cursor. Duplicated from xdisp.c, but cannot use the version there |
| 5012 | due to lack of atimers on w32. */ | 5012 | due to lack of atimers on w32. */ |
| 5013 | #define DEFAULT_HOURGLASS_DELAY 1 | 5013 | #define DEFAULT_HOURGLASS_DELAY 1 |
| 5014 | /* Return non-zero if houglass timer has been started or hourglass is shown. */ | 5014 | /* Return non-zero if hourglass timer has been started or hourglass is |
| 5015 | shown. */ | ||
| 5015 | /* PENDING: if W32 can use atimers (atimer.[hc]) then the common impl in | 5016 | /* PENDING: if W32 can use atimers (atimer.[hc]) then the common impl in |
| 5016 | xdisp.c could be used. */ | 5017 | xdisp.c could be used. */ |
| 5017 | 5018 | ||
diff --git a/src/w32term.h b/src/w32term.h index 02392133837..6c73daba601 100644 --- a/src/w32term.h +++ b/src/w32term.h | |||
| @@ -209,7 +209,7 @@ extern int x_display_pixel_width (struct w32_display_info *); | |||
| 209 | the information that is specific to W32 windows. */ | 209 | the information that is specific to W32 windows. */ |
| 210 | 210 | ||
| 211 | /* Put some things in x_output for compatibility. | 211 | /* Put some things in x_output for compatibility. |
| 212 | NTEMACS_TODO: Move all common things here to eliminate unneccesary | 212 | NTEMACS_TODO: Move all common things here to eliminate unnecessary |
| 213 | diffs between X and w32 code. */ | 213 | diffs between X and w32 code. */ |
| 214 | struct x_output | 214 | struct x_output |
| 215 | { | 215 | { |
diff --git a/src/widget.c b/src/widget.c index 0582718948d..96bfd4787e9 100644 --- a/src/widget.c +++ b/src/widget.c | |||
| @@ -476,6 +476,9 @@ update_wm_hints (EmacsFrame ew) | |||
| 476 | int base_height; | 476 | int base_height; |
| 477 | int min_rows = 0, min_cols = 0; | 477 | int min_rows = 0, min_cols = 0; |
| 478 | 478 | ||
| 479 | /* This happens when the frame is just created. */ | ||
| 480 | if (! wmshell) return; | ||
| 481 | |||
| 479 | #if 0 | 482 | #if 0 |
| 480 | check_frame_size (ew->emacs_frame.frame, &min_rows, &min_cols); | 483 | check_frame_size (ew->emacs_frame.frame, &min_rows, &min_cols); |
| 481 | #endif | 484 | #endif |
| @@ -506,6 +509,14 @@ update_wm_hints (EmacsFrame ew) | |||
| 506 | NULL); | 509 | NULL); |
| 507 | } | 510 | } |
| 508 | 511 | ||
| 512 | void | ||
| 513 | widget_update_wm_size_hints (Widget widget) | ||
| 514 | { | ||
| 515 | EmacsFrame ew = (EmacsFrame)widget; | ||
| 516 | update_wm_hints (ew); | ||
| 517 | } | ||
| 518 | |||
| 519 | |||
| 509 | #if 0 | 520 | #if 0 |
| 510 | 521 | ||
| 511 | static void | 522 | static void |
| @@ -808,7 +819,7 @@ EmacsFrameQueryGeometry (Widget widget, XtWidgetGeometry *request, XtWidgetGeome | |||
| 808 | return result->request_mode ? XtGeometryAlmost : XtGeometryYes; | 819 | return result->request_mode ? XtGeometryAlmost : XtGeometryYes; |
| 809 | } | 820 | } |
| 810 | 821 | ||
| 811 | /* Special entrypoints */ | 822 | /* Special entry points */ |
| 812 | void | 823 | void |
| 813 | EmacsFrameSetCharSize (Widget widget, int columns, int rows) | 824 | EmacsFrameSetCharSize (Widget widget, int columns, int rows) |
| 814 | { | 825 | { |
diff --git a/src/widget.h b/src/widget.h index f64f188e158..11041d54ad0 100644 --- a/src/widget.h +++ b/src/widget.h | |||
| @@ -92,9 +92,9 @@ extern WidgetClass emacsFrameClass; | |||
| 92 | 92 | ||
| 93 | extern struct _DisplayContext* display_context; | 93 | extern struct _DisplayContext* display_context; |
| 94 | 94 | ||
| 95 | /* Special entrypoints */ | 95 | /* Special entry points */ |
| 96 | void EmacsFrameSetCharSize (Widget, int, int); | 96 | void EmacsFrameSetCharSize (Widget, int, int); |
| 97 | void widget_store_internal_border (Widget widget); | 97 | void widget_store_internal_border (Widget widget); |
| 98 | void widget_update_wm_size_hints (Widget widget); | ||
| 98 | 99 | ||
| 99 | #endif /* _EmacsFrame_h */ | 100 | #endif /* _EmacsFrame_h */ |
| 100 | |||
diff --git a/src/window.c b/src/window.c index 728e811f304..86fcca25f2e 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -1054,6 +1054,7 @@ window_relative_x_coord (struct window *w, enum window_part part, int x) | |||
| 1054 | DEFUN ("coordinates-in-window-p", Fcoordinates_in_window_p, | 1054 | DEFUN ("coordinates-in-window-p", Fcoordinates_in_window_p, |
| 1055 | Scoordinates_in_window_p, 2, 2, 0, | 1055 | Scoordinates_in_window_p, 2, 2, 0, |
| 1056 | doc: /* Return non-nil if COORDINATES are in WINDOW. | 1056 | doc: /* Return non-nil if COORDINATES are in WINDOW. |
| 1057 | WINDOW must be a live window. | ||
| 1057 | COORDINATES is a cons of the form (X . Y), X and Y being distances | 1058 | COORDINATES is a cons of the form (X . Y), X and Y being distances |
| 1058 | measured in characters from the upper-left corner of the frame. | 1059 | measured in characters from the upper-left corner of the frame. |
| 1059 | \(0 . 0) denotes the character in the upper left corner of the | 1060 | \(0 . 0) denotes the character in the upper left corner of the |
| @@ -1075,7 +1076,7 @@ If they are in the windows's left or right marginal areas, `left-margin'\n\ | |||
| 1075 | int x, y; | 1076 | int x, y; |
| 1076 | Lisp_Object lx, ly; | 1077 | Lisp_Object lx, ly; |
| 1077 | 1078 | ||
| 1078 | CHECK_WINDOW (window); | 1079 | CHECK_LIVE_WINDOW (window); |
| 1079 | w = XWINDOW (window); | 1080 | w = XWINDOW (window); |
| 1080 | f = XFRAME (w->frame); | 1081 | f = XFRAME (w->frame); |
| 1081 | CHECK_CONS (coordinates); | 1082 | CHECK_CONS (coordinates); |
| @@ -3089,7 +3090,7 @@ This function runs `window-scroll-functions' before running | |||
| 3089 | error ("Window is dedicated to `%s'", SDATA (BVAR (XBUFFER (tem), name))); | 3090 | error ("Window is dedicated to `%s'", SDATA (BVAR (XBUFFER (tem), name))); |
| 3090 | else | 3091 | else |
| 3091 | /* WINDOW is weakly dedicated to its buffer, reset | 3092 | /* WINDOW is weakly dedicated to its buffer, reset |
| 3092 | dedicatedness. */ | 3093 | dedication. */ |
| 3093 | w->dedicated = Qnil; | 3094 | w->dedicated = Qnil; |
| 3094 | 3095 | ||
| 3095 | call1 (Qrecord_window_buffer, window); | 3096 | call1 (Qrecord_window_buffer, window); |
| @@ -6303,7 +6304,7 @@ freeze_window_starts (struct frame *f, int freeze_p) | |||
| 6303 | ignore_positions non-zero means ignore non-matching scroll positions | 6304 | ignore_positions non-zero means ignore non-matching scroll positions |
| 6304 | and the like. | 6305 | and the like. |
| 6305 | 6306 | ||
| 6306 | This ignores a couple of things like the dedicatedness status of | 6307 | This ignores a couple of things like the dedication status of |
| 6307 | window, combination_limit and the like. This might have to be | 6308 | window, combination_limit and the like. This might have to be |
| 6308 | fixed. */ | 6309 | fixed. */ |
| 6309 | 6310 | ||
diff --git a/src/xdisp.c b/src/xdisp.c index 7c415e485b5..530373a4436 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -2851,8 +2851,14 @@ start_display (struct it *it, struct window *w, struct text_pos pos) | |||
| 2851 | || (new_x == it->last_visible_x | 2851 | || (new_x == it->last_visible_x |
| 2852 | && FRAME_WINDOW_P (it->f)))) | 2852 | && FRAME_WINDOW_P (it->f)))) |
| 2853 | { | 2853 | { |
| 2854 | if (it->current.dpvec_index >= 0 | 2854 | if ((it->current.dpvec_index >= 0 |
| 2855 | || it->current.overlay_string_index >= 0) | 2855 | || it->current.overlay_string_index >= 0) |
| 2856 | /* If we are on a newline from a display vector or | ||
| 2857 | overlay string, then we are already at the end of | ||
| 2858 | a screen line; no need to go to the next line in | ||
| 2859 | that case, as this line is not really continued. | ||
| 2860 | (If we do go to the next line, C-e will not DTRT.) */ | ||
| 2861 | && it->c != '\n') | ||
| 2856 | { | 2862 | { |
| 2857 | set_iterator_to_next (it, 1); | 2863 | set_iterator_to_next (it, 1); |
| 2858 | move_it_in_display_line_to (it, -1, -1, 0); | 2864 | move_it_in_display_line_to (it, -1, -1, 0); |
| @@ -3171,13 +3177,11 @@ compute_stop_pos (struct it *it) | |||
| 3171 | Lisp_Object object, limit, position; | 3177 | Lisp_Object object, limit, position; |
| 3172 | EMACS_INT charpos, bytepos; | 3178 | EMACS_INT charpos, bytepos; |
| 3173 | 3179 | ||
| 3174 | /* If nowhere else, stop at the end. */ | ||
| 3175 | it->stop_charpos = it->end_charpos; | ||
| 3176 | |||
| 3177 | if (STRINGP (it->string)) | 3180 | if (STRINGP (it->string)) |
| 3178 | { | 3181 | { |
| 3179 | /* Strings are usually short, so don't limit the search for | 3182 | /* Strings are usually short, so don't limit the search for |
| 3180 | properties. */ | 3183 | properties. */ |
| 3184 | it->stop_charpos = it->end_charpos; | ||
| 3181 | object = it->string; | 3185 | object = it->string; |
| 3182 | limit = Qnil; | 3186 | limit = Qnil; |
| 3183 | charpos = IT_STRING_CHARPOS (*it); | 3187 | charpos = IT_STRING_CHARPOS (*it); |
| @@ -3187,6 +3191,12 @@ compute_stop_pos (struct it *it) | |||
| 3187 | { | 3191 | { |
| 3188 | EMACS_INT pos; | 3192 | EMACS_INT pos; |
| 3189 | 3193 | ||
| 3194 | /* If end_charpos is out of range for some reason, such as a | ||
| 3195 | misbehaving display function, rationalize it (Bug#5984). */ | ||
| 3196 | if (it->end_charpos > ZV) | ||
| 3197 | it->end_charpos = ZV; | ||
| 3198 | it->stop_charpos = it->end_charpos; | ||
| 3199 | |||
| 3190 | /* If next overlay change is in front of the current stop pos | 3200 | /* If next overlay change is in front of the current stop pos |
| 3191 | (which is IT->end_charpos), stop there. Note: value of | 3201 | (which is IT->end_charpos), stop there. Note: value of |
| 3192 | next_overlay_change is point-max if no overlay change | 3202 | next_overlay_change is point-max if no overlay change |
| @@ -4088,26 +4098,37 @@ handle_invisible_prop (struct it *it) | |||
| 4088 | if (it->bidi_p && newpos < ZV) | 4098 | if (it->bidi_p && newpos < ZV) |
| 4089 | { | 4099 | { |
| 4090 | EMACS_INT bpos = CHAR_TO_BYTE (newpos); | 4100 | EMACS_INT bpos = CHAR_TO_BYTE (newpos); |
| 4091 | 4101 | int on_newline = FETCH_BYTE (bpos) == '\n'; | |
| 4092 | if (FETCH_BYTE (bpos) == '\n' | 4102 | int after_newline = |
| 4093 | || (newpos > BEGV && FETCH_BYTE (bpos - 1) == '\n')) | 4103 | newpos <= BEGV || FETCH_BYTE (bpos - 1) == '\n'; |
| 4104 | |||
| 4105 | /* If the invisible text ends on a newline or on a | ||
| 4106 | character after a newline, we can avoid the costly, | ||
| 4107 | character by character, bidi iteration to NEWPOS, and | ||
| 4108 | instead simply reseat the iterator there. That's | ||
| 4109 | because all bidi reordering information is tossed at | ||
| 4110 | the newline. This is a big win for modes that hide | ||
| 4111 | complete lines, like Outline, Org, etc. */ | ||
| 4112 | if (on_newline || after_newline) | ||
| 4094 | { | 4113 | { |
| 4095 | /* If the invisible text ends on a newline or the | ||
| 4096 | character after a newline, we can avoid the | ||
| 4097 | costly, character by character, bidi iteration to | ||
| 4098 | newpos, and instead simply reseat the iterator | ||
| 4099 | there. That's because all bidi reordering | ||
| 4100 | information is tossed at the newline. This is a | ||
| 4101 | big win for modes that hide complete lines, like | ||
| 4102 | Outline, Org, etc. (Implementation note: the | ||
| 4103 | call to reseat_1 is necessary, because it signals | ||
| 4104 | to the bidi iterator that it needs to reinit its | ||
| 4105 | internal information when the next element for | ||
| 4106 | display is requested. */ | ||
| 4107 | struct text_pos tpos; | 4114 | struct text_pos tpos; |
| 4115 | bidi_dir_t pdir = it->bidi_it.paragraph_dir; | ||
| 4108 | 4116 | ||
| 4109 | SET_TEXT_POS (tpos, newpos, bpos); | 4117 | SET_TEXT_POS (tpos, newpos, bpos); |
| 4110 | reseat_1 (it, tpos, 0); | 4118 | reseat_1 (it, tpos, 0); |
| 4119 | /* If we reseat on a newline, we need to prep the | ||
| 4120 | bidi iterator for advancing to the next character | ||
| 4121 | after the newline, keeping the current paragraph | ||
| 4122 | direction (so that PRODUCE_GLYPHS does TRT wrt | ||
| 4123 | prepending/appending glyphs to a glyph row). */ | ||
| 4124 | if (on_newline) | ||
| 4125 | { | ||
| 4126 | it->bidi_it.first_elt = 0; | ||
| 4127 | it->bidi_it.paragraph_dir = pdir; | ||
| 4128 | it->bidi_it.ch = '\n'; | ||
| 4129 | it->bidi_it.nchars = 1; | ||
| 4130 | it->bidi_it.ch_len = 1; | ||
| 4131 | } | ||
| 4111 | } | 4132 | } |
| 4112 | else /* Must use the slow method. */ | 4133 | else /* Must use the slow method. */ |
| 4113 | { | 4134 | { |
| @@ -4116,11 +4137,11 @@ handle_invisible_prop (struct it *it) | |||
| 4116 | non-base embedding level. Therefore, we need to | 4137 | non-base embedding level. Therefore, we need to |
| 4117 | skip invisible text using the bidi iterator, | 4138 | skip invisible text using the bidi iterator, |
| 4118 | starting at IT's current position, until we find | 4139 | starting at IT's current position, until we find |
| 4119 | ourselves outside the invisible text. Skipping | 4140 | ourselves outside of the invisible text. |
| 4120 | invisible text _after_ bidi iteration avoids | 4141 | Skipping invisible text _after_ bidi iteration |
| 4121 | affecting the visual order of the displayed text | 4142 | avoids affecting the visual order of the |
| 4122 | when invisible properties are added or | 4143 | displayed text when invisible properties are |
| 4123 | removed. */ | 4144 | added or removed. */ |
| 4124 | if (it->bidi_it.first_elt && it->bidi_it.charpos < ZV) | 4145 | if (it->bidi_it.first_elt && it->bidi_it.charpos < ZV) |
| 4125 | { | 4146 | { |
| 4126 | /* If we were `reseat'ed to a new paragraph, | 4147 | /* If we were `reseat'ed to a new paragraph, |
| @@ -15614,8 +15635,8 @@ redisplay_window (Lisp_Object window, int just_this_one_p) | |||
| 15614 | ? min (scroll_margin, WINDOW_TOTAL_LINES (w) / 4) | 15635 | ? min (scroll_margin, WINDOW_TOTAL_LINES (w) / 4) |
| 15615 | : 0; | 15636 | : 0; |
| 15616 | EMACS_INT margin_pos = CHARPOS (startp); | 15637 | EMACS_INT margin_pos = CHARPOS (startp); |
| 15617 | int scrolling_up; | ||
| 15618 | Lisp_Object aggressive; | 15638 | Lisp_Object aggressive; |
| 15639 | int scrolling_up; | ||
| 15619 | 15640 | ||
| 15620 | /* If there is a scroll margin at the top of the window, find | 15641 | /* If there is a scroll margin at the top of the window, find |
| 15621 | its character position. */ | 15642 | its character position. */ |
| @@ -15657,7 +15678,7 @@ redisplay_window (Lisp_Object window, int just_this_one_p) | |||
| 15657 | pt_offset = float_amount * WINDOW_BOX_TEXT_HEIGHT (w); | 15678 | pt_offset = float_amount * WINDOW_BOX_TEXT_HEIGHT (w); |
| 15658 | if (pt_offset == 0 && float_amount > 0) | 15679 | if (pt_offset == 0 && float_amount > 0) |
| 15659 | pt_offset = 1; | 15680 | pt_offset = 1; |
| 15660 | if (pt_offset) | 15681 | if (pt_offset && margin > 0) |
| 15661 | margin -= 1; | 15682 | margin -= 1; |
| 15662 | } | 15683 | } |
| 15663 | /* Compute how much to move the window start backward from | 15684 | /* Compute how much to move the window start backward from |
| @@ -15777,6 +15798,25 @@ redisplay_window (Lisp_Object window, int just_this_one_p) | |||
| 15777 | goto recenter; | 15798 | goto recenter; |
| 15778 | } | 15799 | } |
| 15779 | 15800 | ||
| 15801 | /* Users who set scroll-conservatively to a large number want | ||
| 15802 | point just above/below the scroll margin. If we ended up | ||
| 15803 | with point's row partially visible, move the window start to | ||
| 15804 | make that row fully visible and out of the margin. */ | ||
| 15805 | if (scroll_conservatively > SCROLL_LIMIT) | ||
| 15806 | { | ||
| 15807 | int margin = | ||
| 15808 | scroll_margin > 0 | ||
| 15809 | ? min (scroll_margin, WINDOW_TOTAL_LINES (w) / 4) | ||
| 15810 | : 0; | ||
| 15811 | int move_down = w->cursor.vpos >= WINDOW_TOTAL_LINES (w) / 2; | ||
| 15812 | |||
| 15813 | move_it_by_lines (&it, move_down ? margin + 1 : -(margin + 1)); | ||
| 15814 | clear_glyph_matrix (w->desired_matrix); | ||
| 15815 | if (1 == try_window (window, it.current.pos, | ||
| 15816 | TRY_WINDOW_CHECK_MARGINS)) | ||
| 15817 | goto done; | ||
| 15818 | } | ||
| 15819 | |||
| 15780 | /* If centering point failed to make the whole line visible, | 15820 | /* If centering point failed to make the whole line visible, |
| 15781 | put point at the top instead. That has to make the whole line | 15821 | put point at the top instead. That has to make the whole line |
| 15782 | visible, if it can be done. */ | 15822 | visible, if it can be done. */ |
| @@ -28871,7 +28911,8 @@ init_xdisp (void) | |||
| 28871 | 28911 | ||
| 28872 | /* Platform-independent portion of hourglass implementation. */ | 28912 | /* Platform-independent portion of hourglass implementation. */ |
| 28873 | 28913 | ||
| 28874 | /* Return non-zero if houglass timer has been started or hourglass is shown. */ | 28914 | /* Return non-zero if hourglass timer has been started or hourglass is |
| 28915 | shown. */ | ||
| 28875 | int | 28916 | int |
| 28876 | hourglass_started (void) | 28917 | hourglass_started (void) |
| 28877 | { | 28918 | { |
diff --git a/src/xfaces.c b/src/xfaces.c index 849ad6bbdf4..7e3ce4103d9 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -66,7 +66,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 66 | attributes (1st thru 5th) are updated from the spec. | 66 | attributes (1st thru 5th) are updated from the spec. |
| 67 | 67 | ||
| 68 | On the other hand, if one of the other font-related attributes are | 68 | On the other hand, if one of the other font-related attributes are |
| 69 | specified, the correspoinding specs in this attribute is set to nil. | 69 | specified, the corresponding specs in this attribute is set to nil. |
| 70 | 70 | ||
| 71 | 15. A face name or list of face names from which to inherit attributes. | 71 | 15. A face name or list of face names from which to inherit attributes. |
| 72 | 72 | ||
| @@ -1223,7 +1223,7 @@ face_color_gray_p (struct frame *f, const char *color_name) | |||
| 1223 | int gray_p; | 1223 | int gray_p; |
| 1224 | 1224 | ||
| 1225 | if (defined_color (f, color_name, &color, 0)) | 1225 | if (defined_color (f, color_name, &color, 0)) |
| 1226 | gray_p = (/* Any color sufficiently close to black counts as grey. */ | 1226 | gray_p = (/* Any color sufficiently close to black counts as gray. */ |
| 1227 | (color.red < 5000 && color.green < 5000 && color.blue < 5000) | 1227 | (color.red < 5000 && color.green < 5000 && color.blue < 5000) |
| 1228 | || | 1228 | || |
| 1229 | ((eabs (color.red - color.green) | 1229 | ((eabs (color.red - color.green) |
diff --git a/src/xfns.c b/src/xfns.c index c68149cce11..323b272e9f0 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -3166,7 +3166,7 @@ This function is an internal primitive--use `make-frame' instead. */) | |||
| 3166 | to get the color reference counts right, so initialize them! */ | 3166 | to get the color reference counts right, so initialize them! */ |
| 3167 | { | 3167 | { |
| 3168 | Lisp_Object black; | 3168 | Lisp_Object black; |
| 3169 | struct gcpro inner_gcpro1; | 3169 | struct gcpro gcpro1; |
| 3170 | 3170 | ||
| 3171 | /* Function x_decode_color can signal an error. Make | 3171 | /* Function x_decode_color can signal an error. Make |
| 3172 | sure to initialize color slots so that we won't try | 3172 | sure to initialize color slots so that we won't try |
| @@ -3179,7 +3179,7 @@ This function is an internal primitive--use `make-frame' instead. */) | |||
| 3179 | f->output_data.x->mouse_pixel = -1; | 3179 | f->output_data.x->mouse_pixel = -1; |
| 3180 | 3180 | ||
| 3181 | black = build_string ("black"); | 3181 | black = build_string ("black"); |
| 3182 | GCPRO1_VAR (black, inner_gcpro); | 3182 | GCPRO1 (black); |
| 3183 | FRAME_FOREGROUND_PIXEL (f) | 3183 | FRAME_FOREGROUND_PIXEL (f) |
| 3184 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); | 3184 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); |
| 3185 | FRAME_BACKGROUND_PIXEL (f) | 3185 | FRAME_BACKGROUND_PIXEL (f) |
| @@ -3192,7 +3192,7 @@ This function is an internal primitive--use `make-frame' instead. */) | |||
| 3192 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); | 3192 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); |
| 3193 | f->output_data.x->mouse_pixel | 3193 | f->output_data.x->mouse_pixel |
| 3194 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); | 3194 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); |
| 3195 | UNGCPRO_VAR (inner_gcpro); | 3195 | UNGCPRO; |
| 3196 | } | 3196 | } |
| 3197 | 3197 | ||
| 3198 | /* Specify the parent under which to make this X window. */ | 3198 | /* Specify the parent under which to make this X window. */ |
| @@ -4620,7 +4620,7 @@ x_create_tip_frame (struct x_display_info *dpyinfo, | |||
| 4620 | to get the color reference counts right, so initialize them! */ | 4620 | to get the color reference counts right, so initialize them! */ |
| 4621 | { | 4621 | { |
| 4622 | Lisp_Object black; | 4622 | Lisp_Object black; |
| 4623 | struct gcpro inner_gcpro1; | 4623 | struct gcpro gcpro1; |
| 4624 | 4624 | ||
| 4625 | /* Function x_decode_color can signal an error. Make | 4625 | /* Function x_decode_color can signal an error. Make |
| 4626 | sure to initialize color slots so that we won't try | 4626 | sure to initialize color slots so that we won't try |
| @@ -4633,7 +4633,7 @@ x_create_tip_frame (struct x_display_info *dpyinfo, | |||
| 4633 | f->output_data.x->mouse_pixel = -1; | 4633 | f->output_data.x->mouse_pixel = -1; |
| 4634 | 4634 | ||
| 4635 | black = build_string ("black"); | 4635 | black = build_string ("black"); |
| 4636 | GCPRO1_VAR (black, inner_gcpro); | 4636 | GCPRO1 (black); |
| 4637 | FRAME_FOREGROUND_PIXEL (f) | 4637 | FRAME_FOREGROUND_PIXEL (f) |
| 4638 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); | 4638 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); |
| 4639 | FRAME_BACKGROUND_PIXEL (f) | 4639 | FRAME_BACKGROUND_PIXEL (f) |
| @@ -4646,7 +4646,7 @@ x_create_tip_frame (struct x_display_info *dpyinfo, | |||
| 4646 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); | 4646 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); |
| 4647 | f->output_data.x->mouse_pixel | 4647 | f->output_data.x->mouse_pixel |
| 4648 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); | 4648 | = x_decode_color (f, black, BLACK_PIX_DEFAULT (f)); |
| 4649 | UNGCPRO_VAR (inner_gcpro); | 4649 | UNGCPRO; |
| 4650 | } | 4650 | } |
| 4651 | 4651 | ||
| 4652 | /* Set the name; the functions to which we pass f expect the name to | 4652 | /* Set the name; the functions to which we pass f expect the name to |
diff --git a/src/xterm.c b/src/xterm.c index f750c00cea0..8171fe7738e 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -6123,7 +6123,8 @@ handle_one_xevent (struct x_display_info *dpyinfo, XEvent *eventptr, | |||
| 6123 | last_user_time = event.xproperty.time; | 6123 | last_user_time = event.xproperty.time; |
| 6124 | f = x_top_window_to_frame (dpyinfo, event.xproperty.window); | 6124 | f = x_top_window_to_frame (dpyinfo, event.xproperty.window); |
| 6125 | if (f && event.xproperty.atom == dpyinfo->Xatom_net_wm_state) | 6125 | if (f && event.xproperty.atom == dpyinfo->Xatom_net_wm_state) |
| 6126 | if (x_handle_net_wm_state (f, &event.xproperty) && f->iconified) | 6126 | if (x_handle_net_wm_state (f, &event.xproperty) && f->iconified |
| 6127 | && f->output_data.x->net_wm_state_hidden_seen) | ||
| 6127 | { | 6128 | { |
| 6128 | /* Gnome shell does not iconify us when C-z is pressed. It hides | 6129 | /* Gnome shell does not iconify us when C-z is pressed. It hides |
| 6129 | the frame. So if our state says we aren't hidden anymore, | 6130 | the frame. So if our state says we aren't hidden anymore, |
| @@ -6133,6 +6134,7 @@ handle_one_xevent (struct x_display_info *dpyinfo, XEvent *eventptr, | |||
| 6133 | f->async_visible = 1; | 6134 | f->async_visible = 1; |
| 6134 | f->async_iconified = 0; | 6135 | f->async_iconified = 0; |
| 6135 | f->output_data.x->has_been_visible = 1; | 6136 | f->output_data.x->has_been_visible = 1; |
| 6137 | f->output_data.x->net_wm_state_hidden_seen = 0; | ||
| 6136 | inev.ie.kind = DEICONIFY_EVENT; | 6138 | inev.ie.kind = DEICONIFY_EVENT; |
| 6137 | XSETFRAME (inev.ie.frame_or_window, f); | 6139 | XSETFRAME (inev.ie.frame_or_window, f); |
| 6138 | } | 6140 | } |
| @@ -8494,7 +8496,10 @@ get_current_wm_state (struct frame *f, | |||
| 8494 | { | 8496 | { |
| 8495 | Atom a = ((Atom*)tmp_data)[i]; | 8497 | Atom a = ((Atom*)tmp_data)[i]; |
| 8496 | if (a == dpyinfo->Xatom_net_wm_state_hidden) | 8498 | if (a == dpyinfo->Xatom_net_wm_state_hidden) |
| 8497 | is_hidden = 1; | 8499 | { |
| 8500 | is_hidden = 1; | ||
| 8501 | f->output_data.x->net_wm_state_hidden_seen = 1; | ||
| 8502 | } | ||
| 8498 | else if (a == dpyinfo->Xatom_net_wm_state_maximized_horz) | 8503 | else if (a == dpyinfo->Xatom_net_wm_state_maximized_horz) |
| 8499 | { | 8504 | { |
| 8500 | if (*size_state == FULLSCREEN_HEIGHT) | 8505 | if (*size_state == FULLSCREEN_HEIGHT) |
| @@ -9570,6 +9575,14 @@ x_wm_set_size_hint (struct frame *f, long flags, int user_position) | |||
| 9570 | XSizeHints size_hints; | 9575 | XSizeHints size_hints; |
| 9571 | Window window = FRAME_OUTER_WINDOW (f); | 9576 | Window window = FRAME_OUTER_WINDOW (f); |
| 9572 | 9577 | ||
| 9578 | #ifdef USE_X_TOOLKIT | ||
| 9579 | if (f->output_data.x->widget) | ||
| 9580 | { | ||
| 9581 | widget_update_wm_size_hints (f->output_data.x->widget); | ||
| 9582 | return; | ||
| 9583 | } | ||
| 9584 | #endif | ||
| 9585 | |||
| 9573 | /* Setting PMaxSize caused various problems. */ | 9586 | /* Setting PMaxSize caused various problems. */ |
| 9574 | size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */; | 9587 | size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */; |
| 9575 | 9588 | ||
diff --git a/src/xterm.h b/src/xterm.h index 1d2ce9a2d3c..4385b1a467d 100644 --- a/src/xterm.h +++ b/src/xterm.h | |||
| @@ -632,6 +632,9 @@ struct x_output | |||
| 632 | x_check_expected_move. */ | 632 | x_check_expected_move. */ |
| 633 | int left_before_move; | 633 | int left_before_move; |
| 634 | int top_before_move; | 634 | int top_before_move; |
| 635 | |||
| 636 | /* Non-zero if _NET_WM_STATE_HIDDEN is set for this frame. */ | ||
| 637 | int net_wm_state_hidden_seen; | ||
| 635 | }; | 638 | }; |
| 636 | 639 | ||
| 637 | #define No_Cursor (None) | 640 | #define No_Cursor (None) |
diff --git a/test/ChangeLog b/test/ChangeLog index 04a70737d61..964238ae45b 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2011-12-03 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * automated/compile-tests.el (compile-tests--test-regexps-data): | ||
| 4 | Increase column numbers by one to reflect change in how | ||
| 5 | compilation-message is recorded (Bug#10172). | ||
| 6 | |||
| 1 | 2011-11-22 Glenn Morris <rgm@gnu.org> | 7 | 2011-11-22 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * rmailmm.el: New file, split from lisp/mail/rmailmm.el. | 9 | * rmailmm.el: New file, split from lisp/mail/rmailmm.el. |
diff --git a/test/automated/compile-tests.el b/test/automated/compile-tests.el index 419cc0e9116..0203084bf38 100644 --- a/test/automated/compile-tests.el +++ b/test/automated/compile-tests.el | |||
| @@ -41,7 +41,7 @@ | |||
| 41 | 1 nil 17 "fplot.f") | 41 | 1 nil 17 "fplot.f") |
| 42 | ;; Ada & Mpatrol | 42 | ;; Ada & Mpatrol |
| 43 | ("foo.adb:61:11: [...] in call to size declared at foo.ads:11" | 43 | ("foo.adb:61:11: [...] in call to size declared at foo.ads:11" |
| 44 | 1 10 61 "foo.adb") | 44 | 1 11 61 "foo.adb") |
| 45 | ("foo.adb:61:11: [...] in call to size declared at foo.ads:11" | 45 | ("foo.adb:61:11: [...] in call to size declared at foo.ads:11" |
| 46 | 52 nil 11 "foo.ads") | 46 | 52 nil 11 "foo.ads") |
| 47 | (" 0x8008621 main+16 at error.c:17" | 47 | (" 0x8008621 main+16 at error.c:17" |
| @@ -55,7 +55,7 @@ | |||
| 55 | ("[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally" | 55 | ("[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally" |
| 56 | 13 nil 49 "/src/DataBaseTestCase.java") | 56 | 13 nil 49 "/src/DataBaseTestCase.java") |
| 57 | ("[jikes] foo.java:3:5:7:9: blah blah" | 57 | ("[jikes] foo.java:3:5:7:9: blah blah" |
| 58 | 14 (4 . 9) (3 . 7) "foo.java") | 58 | 14 (5 . 10) (3 . 7) "foo.java") |
| 59 | ;; bash | 59 | ;; bash |
| 60 | ("a.sh: line 1: ls-l: command not found" | 60 | ("a.sh: line 1: ls-l: command not found" |
| 61 | 1 nil 1 "a.sh") | 61 | 1 nil 1 "a.sh") |
| @@ -70,9 +70,9 @@ | |||
| 70 | 1 nil 68 "pong.c") | 70 | 1 nil 68 "pong.c") |
| 71 | ;; caml | 71 | ;; caml |
| 72 | ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah" | 72 | ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah" |
| 73 | 1 (19 . 155) (5 . 8) "foobar.ml") | 73 | 1 (20 . 156) (5 . 8) "foobar.ml") |
| 74 | ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:\nWarning 26: unused variable equ." | 74 | ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:\nWarning 26: unused variable equ." |
| 75 | 1 (1 . 145) 65 "F:\\ocaml\\sorting.ml") | 75 | 1 (2 . 146) 65 "F:\\ocaml\\sorting.ml") |
| 76 | ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children" | 76 | ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children" |
| 77 | 1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py") | 77 | 1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py") |
| 78 | ("File \\lib\\python\\Products\\PythonScripts\\PythonScript.py, line 302, in _exec" | 78 | ("File \\lib\\python\\Products\\PythonScripts\\PythonScript.py, line 302, in _exec" |
| @@ -83,13 +83,13 @@ | |||
| 83 | ("\"foo.f\", line 3: Error: syntax error near end of statement" | 83 | ("\"foo.f\", line 3: Error: syntax error near end of statement" |
| 84 | 1 nil 3 "foo.f") | 84 | 1 nil 3 "foo.f") |
| 85 | ("\"vvouch.c\", line 19.5: 1506-046 (S) Syntax error." | 85 | ("\"vvouch.c\", line 19.5: 1506-046 (S) Syntax error." |
| 86 | 1 4 19 "vvouch.c") | 86 | 1 5 19 "vvouch.c") |
| 87 | ("\"foo.c\", line 32 pos 1; (E) syntax error; unexpected symbol: \"lossage\"" | 87 | ("\"foo.c\", line 32 pos 1; (E) syntax error; unexpected symbol: \"lossage\"" |
| 88 | 1 0 32 "foo.c") | 88 | 1 1 32 "foo.c") |
| 89 | ("\"foo.adb\", line 2(11): warning: file name does not match ..." | 89 | ("\"foo.adb\", line 2(11): warning: file name does not match ..." |
| 90 | 1 10 2 "foo.adb") | 90 | 1 11 2 "foo.adb") |
| 91 | ("\"src/swapping.c\", line 30.34: 1506-342 (W) \"/*\" detected in comment." | 91 | ("\"src/swapping.c\", line 30.34: 1506-342 (W) \"/*\" detected in comment." |
| 92 | 1 33 30 "src/swapping.c") | 92 | 1 34 30 "src/swapping.c") |
| 93 | ;; cucumber | 93 | ;; cucumber |
| 94 | ("Scenario: undefined step # features/cucumber.feature:3" | 94 | ("Scenario: undefined step # features/cucumber.feature:3" |
| 95 | 29 nil 3 "features/cucumber.feature") | 95 | 29 nil 3 "features/cucumber.feature") |
| @@ -115,7 +115,7 @@ | |||
| 115 | ("Warning near line 10 file arrayclash.f: Module contains no executable" | 115 | ("Warning near line 10 file arrayclash.f: Module contains no executable" |
| 116 | 1 nil 10 "arrayclash.f") | 116 | 1 nil 10 "arrayclash.f") |
| 117 | ("Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit" | 117 | ("Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit" |
| 118 | 24 8 31 "assign.f") | 118 | 24 9 31 "assign.f") |
| 119 | ;; iar | 119 | ;; iar |
| 120 | ("\"foo.c\",3 Error[32]: Error message" | 120 | ("\"foo.c\",3 Error[32]: Error message" |
| 121 | 1 nil 3 "foo.c") | 121 | 1 nil 3 "foo.c") |
| @@ -123,11 +123,11 @@ | |||
| 123 | 1 nil 3 "foo.c") | 123 | 1 nil 3 "foo.c") |
| 124 | ;; ibm | 124 | ;; ibm |
| 125 | ("foo.c(2:0) : informational EDC0804: Function foo is not referenced." | 125 | ("foo.c(2:0) : informational EDC0804: Function foo is not referenced." |
| 126 | 1 -1 2 "foo.c") | 126 | 1 0 2 "foo.c") |
| 127 | ("foo.c(3:8) : warning EDC0833: Implicit return statement encountered." | 127 | ("foo.c(3:8) : warning EDC0833: Implicit return statement encountered." |
| 128 | 1 7 3 "foo.c") | 128 | 1 8 3 "foo.c") |
| 129 | ("foo.c(5:5) : error EDC0350: Syntax error." | 129 | ("foo.c(5:5) : error EDC0350: Syntax error." |
| 130 | 1 4 5 "foo.c") | 130 | 1 5 5 "foo.c") |
| 131 | ;; irix | 131 | ;; irix |
| 132 | ("ccom: Error: foo.c, line 2: syntax error" | 132 | ("ccom: Error: foo.c, line 2: syntax error" |
| 133 | 1 nil 2 "foo.c") | 133 | 1 nil 2 "foo.c") |
| @@ -163,7 +163,7 @@ | |||
| 163 | ("In file included from /usr/include/c++/3.3/backward/warn.h:4," | 163 | ("In file included from /usr/include/c++/3.3/backward/warn.h:4," |
| 164 | 1 nil 4 "/usr/include/c++/3.3/backward/warn.h") | 164 | 1 nil 4 "/usr/include/c++/3.3/backward/warn.h") |
| 165 | (" from /usr/include/c++/3.3/backward/iostream.h:31:0," | 165 | (" from /usr/include/c++/3.3/backward/iostream.h:31:0," |
| 166 | 1 -1 31 "/usr/include/c++/3.3/backward/iostream.h") | 166 | 1 0 31 "/usr/include/c++/3.3/backward/iostream.h") |
| 167 | (" from test_clt.cc:1:" | 167 | (" from test_clt.cc:1:" |
| 168 | 1 nil 1 "test_clt.cc") | 168 | 1 nil 1 "test_clt.cc") |
| 169 | ;; gnu | 169 | ;; gnu |
| @@ -173,15 +173,15 @@ | |||
| 173 | ("foo/bar.py:8: FutureWarning message" 1 nil 8 "foo/bar.py") | 173 | ("foo/bar.py:8: FutureWarning message" 1 nil 8 "foo/bar.py") |
| 174 | ("foo.py:8: RuntimeWarning message" 1 nil 8 "foo.py") | 174 | ("foo.py:8: RuntimeWarning message" 1 nil 8 "foo.py") |
| 175 | ("foo.c:8:I: message" 1 nil 8 "foo.c") | 175 | ("foo.c:8:I: message" 1 nil 8 "foo.c") |
| 176 | ("foo.c:8.23: note: message" 1 22 8 "foo.c") | 176 | ("foo.c:8.23: note: message" 1 23 8 "foo.c") |
| 177 | ("foo.c:8.23: info: message" 1 22 8 "foo.c") | 177 | ("foo.c:8.23: info: message" 1 23 8 "foo.c") |
| 178 | ("foo.c:8:23:information: message" 1 22 8 "foo.c") | 178 | ("foo.c:8:23:information: message" 1 23 8 "foo.c") |
| 179 | ("foo.c:8.23-45: Informational: message" 1 (22 . nil) (8 . 45) "foo.c") | 179 | ("foo.c:8.23-45: Informational: message" 1 (23 . nil) (8 . 45) "foo.c") |
| 180 | ("foo.c:8-23: message" 1 nil (8 . 23) "foo.c") | 180 | ("foo.c:8-23: message" 1 nil (8 . 23) "foo.c") |
| 181 | ("foo.c:8-45.3: message" 1 (nil . 3) (8 . 45) "foo.c") | 181 | ("foo.c:8-45.3: message" 1 (nil . 4) (8 . 45) "foo.c") |
| 182 | ("foo.c:8.23-9.1: message" 1 (22 . 1) (8 . 9) "foo.c") | 182 | ("foo.c:8.23-9.1: message" 1 (23 . 2) (8 . 9) "foo.c") |
| 183 | ("jade:dbcommon.dsl:133:17:E: missing argument for function call" | 183 | ("jade:dbcommon.dsl:133:17:E: missing argument for function call" |
| 184 | 1 16 133 "dbcommon.dsl") | 184 | 1 17 133 "dbcommon.dsl") |
| 185 | ("G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found." | 185 | ("G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found." |
| 186 | 1 nil 54 "G:/cygwin/dev/build-myproj.xml") | 186 | 1 nil 54 "G:/cygwin/dev/build-myproj.xml") |
| 187 | ("file:G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found." | 187 | ("file:G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found." |
| @@ -189,8 +189,8 @@ | |||
| 189 | ("{standard input}:27041: Warning: end of file not at end of a line; newline inserted" | 189 | ("{standard input}:27041: Warning: end of file not at end of a line; newline inserted" |
| 190 | 1 nil 27041 "{standard input}") | 190 | 1 nil 27041 "{standard input}") |
| 191 | ;; lcc | 191 | ;; lcc |
| 192 | ("E, file.cc(35,52) Illegal operation on pointers" 1 51 35 "file.cc") | 192 | ("E, file.cc(35,52) Illegal operation on pointers" 1 52 35 "file.cc") |
| 193 | ("W, file.cc(36,52) blah blah" 1 51 36 "file.cc") | 193 | ("W, file.cc(36,52) blah blah" 1 52 36 "file.cc") |
| 194 | ;; makepp | 194 | ;; makepp |
| 195 | ("makepp: Scanning `/foo/bar.c'" 19 nil nil "/foo/bar.c") | 195 | ("makepp: Scanning `/foo/bar.c'" 19 nil nil "/foo/bar.c") |
| 196 | ("makepp: warning: bla bla `/foo/bar.c' and `/foo/bar.h'" 27 nil nil "/foo/bar.c") | 196 | ("makepp: warning: bla bla `/foo/bar.c' and `/foo/bar.h'" 27 nil nil "/foo/bar.c") |
| @@ -198,7 +198,7 @@ | |||
| 198 | ("makepp: bla bla `/foo/bar.c' and `/foo/bar.h'" 35 nil nil "/foo/bar.h") | 198 | ("makepp: bla bla `/foo/bar.c' and `/foo/bar.h'" 35 nil nil "/foo/bar.h") |
| 199 | ;; maven | 199 | ;; maven |
| 200 | ("FooBar.java:[111,53] no interface expected here" | 200 | ("FooBar.java:[111,53] no interface expected here" |
| 201 | 1 52 111 "FooBar.java") | 201 | 1 53 111 "FooBar.java") |
| 202 | ;; mips-1 mips-2 | 202 | ;; mips-1 mips-2 |
| 203 | ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation" | 203 | ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation" |
| 204 | 11 nil 255 "solomon.c") | 204 | 11 nil 255 "solomon.c") |
| @@ -220,17 +220,17 @@ | |||
| 220 | 1 nil 120 "..\src\ctrl\lister.c") | 220 | 1 nil 120 "..\src\ctrl\lister.c") |
| 221 | ;; oracle | 221 | ;; oracle |
| 222 | ("Semantic error at line 528, column 5, file erosacqdb.pc:" | 222 | ("Semantic error at line 528, column 5, file erosacqdb.pc:" |
| 223 | 1 4 528 "erosacqdb.pc") | 223 | 1 5 528 "erosacqdb.pc") |
| 224 | ("Error at line 41, column 10 in file /usr/src/sb/ODBI_BHP.hpp" | 224 | ("Error at line 41, column 10 in file /usr/src/sb/ODBI_BHP.hpp" |
| 225 | 1 9 41 "/usr/src/sb/ODBI_BHP.hpp") | 225 | 1 10 41 "/usr/src/sb/ODBI_BHP.hpp") |
| 226 | ("PCC-02150: error at line 49, column 27 in file /usr/src/sb/ODBI_dxfgh.pc" | 226 | ("PCC-02150: error at line 49, column 27 in file /usr/src/sb/ODBI_dxfgh.pc" |
| 227 | 1 26 49 "/usr/src/sb/ODBI_dxfgh.pc") | 227 | 1 27 49 "/usr/src/sb/ODBI_dxfgh.pc") |
| 228 | ("PCC-00003: invalid SQL Identifier at column name in line 12 of file /usr/src/sb/ODBI_BHP.hpp" | 228 | ("PCC-00003: invalid SQL Identifier at column name in line 12 of file /usr/src/sb/ODBI_BHP.hpp" |
| 229 | 1 nil 12 "/usr/src/sb/ODBI_BHP.hpp") | 229 | 1 nil 12 "/usr/src/sb/ODBI_BHP.hpp") |
| 230 | ("PCC-00004: mismatched IF/ELSE/ENDIF block at line 27 in file /usr/src/sb/ODBI_BHP.hpp" | 230 | ("PCC-00004: mismatched IF/ELSE/ENDIF block at line 27 in file /usr/src/sb/ODBI_BHP.hpp" |
| 231 | 1 nil 27 "/usr/src/sb/ODBI_BHP.hpp") | 231 | 1 nil 27 "/usr/src/sb/ODBI_BHP.hpp") |
| 232 | ("PCC-02151: line 21 column 40 file /usr/src/sb/ODBI_BHP.hpp:" | 232 | ("PCC-02151: line 21 column 40 file /usr/src/sb/ODBI_BHP.hpp:" |
| 233 | 1 39 21 "/usr/src/sb/ODBI_BHP.hpp") | 233 | 1 40 21 "/usr/src/sb/ODBI_BHP.hpp") |
| 234 | ;; perl | 234 | ;; perl |
| 235 | ("syntax error at automake line 922, near \"':'\"" | 235 | ("syntax error at automake line 922, near \"':'\"" |
| 236 | 14 nil 922 "automake") | 236 | 14 nil 922 "automake") |
| @@ -262,9 +262,9 @@ | |||
| 262 | 1 nil 10 "examples/test-unit.rb") | 262 | 1 nil 10 "examples/test-unit.rb") |
| 263 | ;; rxp | 263 | ;; rxp |
| 264 | ("Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml" | 264 | ("Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml" |
| 265 | 1 7 71 "/home/reto/test/group.xml") | 265 | 1 8 71 "/home/reto/test/group.xml") |
| 266 | ("Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml" | 266 | ("Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml" |
| 267 | 1 7 4 "/home/reto/test/group.xml") | 267 | 1 8 4 "/home/reto/test/group.xml") |
| 268 | ;; sparc-pascal-file sparc-pascal-line sparc-pascal-example | 268 | ;; sparc-pascal-file sparc-pascal-line sparc-pascal-example |
| 269 | ("Thu May 14 10:46:12 1992 mom3.p:" | 269 | ("Thu May 14 10:46:12 1992 mom3.p:" |
| 270 | 1 nil nil "mom3.p") | 270 | 1 nil nil "mom3.p") |
| @@ -274,10 +274,10 @@ | |||
| 274 | ("cc-1070 cc: WARNING File = linkl.c, Line = 38" | 274 | ("cc-1070 cc: WARNING File = linkl.c, Line = 38" |
| 275 | 13 nil 38 "linkl.c") | 275 | 13 nil 38 "linkl.c") |
| 276 | ("cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3" | 276 | ("cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3" |
| 277 | 18 2 16 "Hoved.f90") | 277 | 18 3 16 "Hoved.f90") |
| 278 | ;; sun-ada | 278 | ;; sun-ada |
| 279 | ("/home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: \",\" inserted" | 279 | ("/home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: \",\" inserted" |
| 280 | 1 5 361 "/home3/xdhar/rcds_rc/main.a") | 280 | 1 6 361 "/home3/xdhar/rcds_rc/main.a") |
| 281 | ;; 4bsd | 281 | ;; 4bsd |
| 282 | ("/usr/src/foo/foo.c(8): warning: w may be used before set" | 282 | ("/usr/src/foo/foo.c(8): warning: w may be used before set" |
| 283 | 1 nil 8 "/usr/src/foo/foo.c") | 283 | 1 nil 8 "/usr/src/foo/foo.c") |
| @@ -300,7 +300,7 @@ | |||
| 300 | 1 nil 46 "t/foo.t") | 300 | 1 nil 46 "t/foo.t") |
| 301 | ;; weblint | 301 | ;; weblint |
| 302 | ("index.html (13:1) Unknown element <fdjsk>" | 302 | ("index.html (13:1) Unknown element <fdjsk>" |
| 303 | 1 0 13 "index.html")) | 303 | 1 1 13 "index.html")) |
| 304 | "List of tests for `compilation-error-regexp-alist'. | 304 | "List of tests for `compilation-error-regexp-alist'. |
| 305 | Each element has the form (STR POS COLUMN LINE FILENAME), where | 305 | Each element has the form (STR POS COLUMN LINE FILENAME), where |
| 306 | STR is an error string, POS is the position of the error in STR, | 306 | STR is an error string, POS is the position of the error in STR, |
diff --git a/test/cedet/cedet-utests.el b/test/cedet/cedet-utests.el index d161ae68fcb..f7eef05dd99 100644 --- a/test/cedet/cedet-utests.el +++ b/test/cedet/cedet-utests.el | |||
| @@ -96,7 +96,7 @@ | |||
| 96 | "Non-nil when CEDET-utest is running all the tests.") | 96 | "Non-nil when CEDET-utest is running all the tests.") |
| 97 | 97 | ||
| 98 | (defun cedet-utest (&optional exit-on-error) | 98 | (defun cedet-utest (&optional exit-on-error) |
| 99 | "Run the CEDET unittests. | 99 | "Run the CEDET unit tests. |
| 100 | EXIT-ON-ERROR causes the test suite to exit on an error, instead | 100 | EXIT-ON-ERROR causes the test suite to exit on an error, instead |
| 101 | of just logging the error." | 101 | of just logging the error." |
| 102 | (interactive) | 102 | (interactive) |
diff --git a/test/cedet/semantic-utest.el b/test/cedet/semantic-utest.el index ff62040129d..12fbc37a112 100644 --- a/test/cedet/semantic-utest.el +++ b/test/cedet/semantic-utest.el | |||
| @@ -536,7 +536,7 @@ Pre-fill the buffer with CONTENTS." | |||
| 536 | 536 | ||
| 537 | (defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme) | 537 | (defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme) |
| 538 | "Generic unit test according to template. | 538 | "Generic unit test according to template. |
| 539 | Should work for languages withouth .h files, python javascript java. | 539 | Should work for languages without .h files, python javascript java. |
| 540 | TESTNAME is the name of the test. | 540 | TESTNAME is the name of the test. |
| 541 | FILENAME is the name of the file to create. | 541 | FILENAME is the name of the file to create. |
| 542 | CONTENTS is the contents of the file to test. | 542 | CONTENTS is the contents of the file to test. |
diff --git a/test/indent/octave.m b/test/indent/octave.m index 5ce52ad7a19..4c2fa6c8435 100644 --- a/test/indent/octave.m +++ b/test/indent/octave.m | |||
| @@ -19,7 +19,7 @@ function res = tcomp (fn) | |||
| 19 | pop = x(:,1:10)(:); | 19 | pop = x(:,1:10)(:); |
| 20 | ## Here and below, we test if the indentation aligns with a previous | 20 | ## Here and below, we test if the indentation aligns with a previous |
| 21 | ## fixindented line. This is important so as to make it easier for the | 21 | ## fixindented line. This is important so as to make it easier for the |
| 22 | ## user to verride some indentation somewhere, and also because it | 22 | ## user to override some indentation somewhere, and also because it |
| 23 | ## reflects the fact that the indentation decision is taken with a minimum | 23 | ## reflects the fact that the indentation decision is taken with a minimum |
| 24 | ## amount of work (i.e. in the present case, without having to walk back | 24 | ## amount of work (i.e. in the present case, without having to walk back |
| 25 | ## until the `function' line). | 25 | ## until the `function' line). |