From adc06ec41d247f7460ebda0a10993855ded4204c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 30 May 2007 04:57:21 +0000 Subject: [PATCH 001/276] Ulrich Mueller (tiny change) (XMakeAssoc): Use malloc rather than xmalloc. --- oldXMenu/ChangeLog | 4 ++++ oldXMenu/XMakeAssoc.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog index c92563d3bc2..9a7f01ed901 100644 --- a/oldXMenu/ChangeLog +++ b/oldXMenu/ChangeLog @@ -1,3 +1,7 @@ +2007-05-30 Ulrich Mueller (tiny change) + + * XMakeAssoc.c (XMakeAssoc): Use malloc rather than xmalloc. + 2007-02-27 Glenn Morris * Imakefile: Remove unused file with no explicit legal info. diff --git a/oldXMenu/XMakeAssoc.c b/oldXMenu/XMakeAssoc.c index d443084ac13..cf039c8f3c1 100644 --- a/oldXMenu/XMakeAssoc.c +++ b/oldXMenu/XMakeAssoc.c @@ -81,7 +81,7 @@ XMakeAssoc(dpy, table, x_id, data) /* If we are here then the new entry should be inserted just */ /* before the current value of "Entry". */ /* Create a new XAssoc and load it with new provided data. */ - new_entry = (XAssoc *) xmalloc(sizeof(XAssoc)); + new_entry = (XAssoc *) malloc(sizeof(XAssoc)); new_entry->display = dpy; new_entry->x_id = x_id; new_entry->data = data; From d85f09f046a63ac4f2b320159749bc3430e2dba5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 30 May 2007 18:43:43 +0000 Subject: [PATCH 002/276] (Special Properties): Add link to Adjusting Point. --- lispref/ChangeLog | 4 ++++ lispref/text.texi | 9 +++++++++ 2 files changed, 13 insertions(+) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 5f5c0cfe054..9f1441d273a 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,7 @@ +2007-05-30 Richard Stallman + + * text.texi (Special Properties): Add link to Adjusting Point. + 2007-05-12 Richard Stallman * text.texi (Margins): indent-to-left-margin is not the default. diff --git a/lispref/text.texi b/lispref/text.texi index cfd9f644d5a..9a6415f375c 100644 --- a/lispref/text.texi +++ b/lispref/text.texi @@ -2953,6 +2953,11 @@ meanings. The following sections list a few additional special property names that control filling and property inheritance. All other names have no standard meaning, and you can use them as you like. + Note: the properties @code{composition}, @code{display}, +@code{invisible} and @code{intangible} can also cause point to move to +an acceptable place, after each Emacs command. @xref{Adjusting +Point}. + @table @code @cindex property category of text character @kindex category @r{(text property)} @@ -3140,6 +3145,10 @@ If you try to move point forward into the group, point actually moves to the end of the group. If you try to move point backward into the group, point actually moves to the start of the group. +If consecutive characters have unequal non-@code{nil} +@code{intangible} properties, they belong to separate groups; each +group is separately treated as described above. + When the variable @code{inhibit-point-motion-hooks} is non-@code{nil}, the @code{intangible} property is ignored. From 5faa03baf49e340f7df3aea960aa54bfaef7a5c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 30 May 2007 19:28:11 +0000 Subject: [PATCH 003/276] Whitespace fix. --- src/term.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/term.c b/src/term.c index 6a39544c00c..7abb5d2e049 100644 --- a/src/term.c +++ b/src/term.c @@ -2382,7 +2382,8 @@ set_tty_color_mode (f, val) ***********************************************************************/ #ifdef HAVE_GPM -void term_mouse_moveto (int x, int y) +void +term_mouse_moveto (int x, int y) { const char *name; int fd; From d500a09264ee5f33f73d9af010cf9aca80549f13 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 31 May 2007 00:52:35 +0000 Subject: [PATCH 004/276] css-mode.el: New file. --- etc/NEWS | 1 + lisp/ChangeLog | 19 +- lisp/textmodes/css-mode.el | 469 +++++++++++++++++++++++++++++++++++++ 3 files changed, 481 insertions(+), 8 deletions(-) create mode 100644 lisp/textmodes/css-mode.el diff --git a/etc/NEWS b/etc/NEWS index 780dea787f9..50f4daf796c 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -31,6 +31,7 @@ with a prefix argument or by typing C-u C-h C-n. * New Modes and Packages in Emacs 23.1 +** css-mode to edit Cascading Style Sheets. * Changes in Specialized Modes and Packages in Emacs 23.1 diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9a79d4a0b55..07778c2f734 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-05-31 Stefan Monnier + + * textmodes/css-mode.el: New file. + 2007-05-30 Michael Olson * emacs-lisp/tq.el (tq-queue-pop): Stifle error when a process has @@ -9,8 +13,8 @@ 2007-05-29 Martin Rudalics * textmodes/table.el (table--point-entered-cell-function) - (table--point-left-cell-function): Bind - `inhibit-point-motion-hooks' to t. + (table--point-left-cell-function): + Bind `inhibit-point-motion-hooks' to t. 2007-05-29 Nikolaj Schumacher (tiny change) @@ -35,18 +39,17 @@ * net/tramp.el (top): Make `set-buffer-multibyte' an alias if it doesn't exist. - (with-parsed-tramp-file-name): Protect debug spec during - compilation. + (with-parsed-tramp-file-name): Protect debug spec during compilation. (tramp-handle-insert-directory): Check (featurep 'ls-lisp). (tramp-file-name-p, tramp-file-name-multi-method) (tramp-file-name-method, tramp-file-name-user) (tramp-file-name-host, tramp-file-name-localname): New defuns, replacing defstruct `tramp-file-name'. (tramp-handle-file-remote-p, tramp-completion-dissect-file-name1) - (tramp-dissect-file-name, tramp-dissect-multi-file-name): Apply - `vector' instead of `make-tramp-file-name'. - (tramp-handle-make-auto-save-file-name): Apply - `tramp-temporary-file-directory' for compatibility reasons. + (tramp-dissect-file-name, tramp-dissect-multi-file-name): + Apply `vector' instead of `make-tramp-file-name'. + (tramp-handle-make-auto-save-file-name): + Apply `tramp-temporary-file-directory' for compatibility reasons. (tramp-completion-mode): Use `natnump' instead of `wholenump' because of XEmacs. (tramp-completion-mode): `last-input-event' is nil when XEmacs is diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el new file mode 100644 index 00000000000..8bf9ac2ee96 --- /dev/null +++ b/lisp/textmodes/css-mode.el @@ -0,0 +1,469 @@ +;;; css-mode.el --- Major mode to edit CSS files + +;; Copyright (C) 2006, 2007 Free Software Foundation, Inc. + +;; Author: Stefan Monnier +;; Keywords: hypermedia + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; Yet another CSS mode. + +;;; Todo: + +;; - electric ; and } +;; - filling code with auto-fill-mode +;; - completion +;; - fix font-lock errors with multi-line selectors + +;;; Code: + +(defun css-extract-keyword-list (res) + (with-temp-buffer + (url-insert-file-contents "http://www.w3.org/TR/REC-CSS2/css2.txt") + (goto-char (point-max)) + (search-backward "Appendix H. Index") + (forward-line) + (delete-region (point-min) (point)) + (let ((result nil) + keys) + (dolist (re res) + (goto-char (point-min)) + (setq keys nil) + (while (re-search-forward (cdr re) nil t) + (push (match-string 1) keys)) + (push (cons (car re) (sort keys 'string-lessp)) result)) + (nreverse result)))) + +(defun css-extract-parse-val-grammar (string env) + (let ((start 0) + (elems ()) + name) + (while (string-match + (concat "\\(?:" + (concat "]+>]+>\\(?:" + "<\\([^&]+\\)>\\|'\\([^']+\\)'" + "\\)") + "\\|" "\\(\\[\\)" + "\\|" "\\(]\\)" + "\\|" "\\(||\\)" + "\\|" "\\(|\\)" + "\\|" "\\([*+?]\\)" + "\\|" "\\({[^}]+}\\)" + "\\|" "\\(\\w+\\(?:-\\w+\\)*\\)" + "\\)[ \t\n]*") + string start) + ;; (assert (eq start (match-beginning 0))) + (setq start (match-end 0)) + (cond + ;; Reference to a type of value. + ((setq name (match-string-no-properties 1 string)) + (push (intern name) elems)) + ;; Reference to another property's values. + ((setq name (match-string-no-properties 2 string)) + (setq elems (delete-dups (append (cdr (assoc name env)) elems)))) + ;; A literal + ((setq name (match-string-no-properties 9 string)) + (push name elems)) + ;; We just ignore the rest. I.e. we ignore the structure because + ;; it's too difficult to exploit anyway (it would allow us to only + ;; complete top/center/bottom after one of left/center/right and + ;; vice-versa). + (t nil))) + elems)) + + +(defun css-extract-props-and-vals () + (with-temp-buffer + (url-insert-file-contents "http://www.w3.org/TR/CSS21/propidx.html") + (goto-char (point-min)) + (let ((props ())) + (while (re-search-forward "#propdef-\\([^\"]+\\)\">'\\1'" nil t) + (let ((prop (match-string-no-properties 1))) + (save-excursion + (goto-char (match-end 0)) + (search-forward "") + (let ((vals-string (buffer-substring (point) + (progn + (re-search-forward "[ \t\n]+|[ \t\n]+inherit") + (match-beginning 0))))) + ;; + (push (cons prop (css-extract-parse-val-grammar vals-string props)) + props))))) + props))) + +;; Extraction was done with: +;; (css-extract-keyword-list +;; '((pseudo . "^ +\\* :\\([^ \n,]+\\)") +;; (at . "^ +\\* @\\([^ \n,]+\\)") +;; (descriptor . "^ +\\* '\\([^ '\n]+\\)' (descriptor)") +;; (media . "^ +\\* '\\([^ '\n]+\\)' media group") +;; (property . "^ +\\* '\\([^ '\n]+\\)',"))) + +(defconst css-pseudo-ids + '("active" "after" "before" "first" "first-child" "first-letter" "first-line" + "focus" "hover" "lang" "left" "link" "right" "visited") + "Identifiers for pseudo-elements and pseudo-classes.") + +(defconst css-at-ids + '("charset" "font-face" "import" "media" "page") + "Identifiers that appear in the form @foo.") + +(defconst css-descriptor-ids + '("ascent" "baseline" "bbox" "cap-height" "centerline" "definition-src" + "descent" "font-family" "font-size" "font-stretch" "font-style" + "font-variant" "font-weight" "mathline" "panose-1" "slope" "src" "stemh" + "stemv" "topline" "unicode-range" "units-per-em" "widths" "x-height") + "Identifiers for font descriptors.") + +(defconst css-media-ids + '("all" "aural" "bitmap" "continuous" "grid" "paged" "static" "tactile" + "visual") + "Identifiers for types of media.") + +(defconst css-property-ids + '("azimuth" "background" "background-attachment" "background-color" + "background-image" "background-position" "background-repeat" "block" + "border" "border-bottom" "border-bottom-color" "border-bottom-style" + "border-bottom-width" "border-collapse" "border-color" "border-left" + "border-left-color" "border-left-style" "border-left-width" "border-right" + "border-right-color" "border-right-style" "border-right-width" + "border-spacing" "border-style" "border-top" "border-top-color" + "border-top-style" "border-top-width" "border-width" "bottom" + "caption-side" "clear" "clip" "color" "compact" "content" + "counter-increment" "counter-reset" "cue" "cue-after" "cue-before" + "cursor" "dashed" "direction" "display" "dotted" "double" "elevation" + "empty-cells" "float" "font" "font-family" "font-size" "font-size-adjust" + "font-stretch" "font-style" "font-variant" "font-weight" "groove" "height" + "hidden" "inline" "inline-table" "inset" "left" "letter-spacing" + "line-height" "list-item" "list-style" "list-style-image" + "list-style-position" "list-style-type" "margin" "margin-bottom" + "margin-left" "margin-right" "margin-top" "marker-offset" "marks" + "max-height" "max-width" "min-height" "min-width" "orphans" "outline" + "outline-color" "outline-style" "outline-width" "outset" "overflow" + "padding" "padding-bottom" "padding-left" "padding-right" "padding-top" + "page" "page-break-after" "page-break-before" "page-break-inside" "pause" + "pause-after" "pause-before" "pitch" "pitch-range" "play-during" "position" + "quotes" "richness" "ridge" "right" "run-in" "size" "solid" "speak" + "speak-header" "speak-numeral" "speak-punctuation" "speech-rate" "stress" + "table" "table-caption" "table-cell" "table-column" "table-column-group" + "table-footer-group" "table-header-group" "table-layout" "table-row" + "table-row-group" "text-align" "text-decoration" "text-indent" + "text-shadow" "text-transform" "top" "unicode-bidi" "vertical-align" + "visibility" "voice-family" "volume" "white-space" "widows" "width" + "word-spacing" "z-index") + "Identifiers for properties.") + +(defcustom css-electrick-keys '(?\} ?\;) ;; '() + "Self inserting keys which should trigger re-indentation." + :type '(repeat character) + :options '((?\} ?\;))) + +(defvar css-mode-syntax-table + (let ((st (make-syntax-table))) + ;; C-style comments. + (modify-syntax-entry ?/ ". 14" st) + (modify-syntax-entry ?* ". 23" st) + ;; Strings. + (modify-syntax-entry ?\" "\"" st) + (modify-syntax-entry ?\' "\"" st) + ;; Blocks. + (modify-syntax-entry ?\{ "(}" st) + (modify-syntax-entry ?\} "){" st) + ;; Args in url(...) thingies and other "function calls". + (modify-syntax-entry ?\( "()" st) + (modify-syntax-entry ?\) ")(" st) + ;; To match attributes in selectors. + (modify-syntax-entry ?\[ "(]" st) + (modify-syntax-entry ?\] ")[" st) + ;; Special chars that sometimes come at the beginning of words. + (modify-syntax-entry ?@ "'" st) + ;; (modify-syntax-entry ?: "'" st) + (modify-syntax-entry ?# "'" st) + ;; Distinction between words and symbols. + (modify-syntax-entry ?- "_" st) + st)) + +(defconst css-escapes-re + "\\\\\\(?:[^\000-\037\177]\\|[0-9a-fA-F]+[ \n\t\r\f]?\\)") +(defconst css-nmchar-re (concat "\\(?:[-[:alnum:]]\\|" css-escapes-re "\\)")) +(defconst css-nmstart-re (concat "\\(?:[[:alpha:]]\\|" css-escapes-re "\\)")) +(defconst css-ident-re (concat css-nmstart-re css-nmchar-re "*")) +(defconst css-name-re (concat css-nmchar-re "+")) + +(defface css-selector '((t :inherit font-lock-function-name-face)) + "Face to use for selectors.") +(defface css-property '((t :inherit font-lock-variable-name-face)) + "Face to use for properties.") + +(defvar css-font-lock-keywords + `(("!\\s-*important" . font-lock-builtin-face) + ;; Atrules keywords. IDs not in css-at-ids are valid (ignored). + ;; In fact the regexp should probably be + ;; (,(concat "\\(@" css-ident-re "\\)\\([ \t\n][^;{]*\\)[;{]") + ;; (1 font-lock-builtin-face)) + ;; Since "An at-rule consists of everything up to and including the next + ;; semicolon (;) or the next block, whichever comes first." + (,(concat "@" css-ident-re) . font-lock-builtin-face) + ;; Selectors. + ;; FIXME: attribute selectors don't work well because they may contain + ;; strings which have already been highlighted as f-l-string-face and + ;; thus prevent this highlighting from being applied (actually now that + ;; I use `append' this should work better). But really the part of hte + ;; selector between [...] should simply not be highlighted. + (,(concat "^\\([ \t]*[^@:{\n][^:{\n]+\\(?::" (regexp-opt css-pseudo-ids t) + "\\(?:([^)]+)\\)?[^:{\n]*\\)*\\)\\(?:\n[ \t]*\\)*{") + (1 'css-selector append)) + ;; In the above rule, we allow the open-brace to be on some subsequent + ;; line. This will only work if we properly mark the intervening text + ;; as being part of a multiline element (and even then, this only + ;; ensures proper refontification, but not proper discovery). + ("^[ \t]*{" (0 (save-excursion + (goto-char (match-beginning 0)) + (skip-chars-backward " \n\t") + (put-text-property (point) (match-end 0) + 'font-lock-multiline t) + ;; No face. + nil))) + ;; Properties. Again, we don't limit ourselves to css-property-ids. + (,(concat "\\(?:[{;]\\|^\\)[ \t]*\\(" css-ident-re "\\)\\s-*:") + (1 'css-property)))) + +(defvar css-font-lock-defaults + '(css-font-lock-keywords nil t)) + +(unless (fboundp 'prog-mode) (defalias 'prog-mode 'fundamental-mode)) + +;;;###autoload (add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode)) +;;;###autoload +(define-derived-mode css-mode prog-mode "CSS" + "Major mode to edit Cascading Style Sheets." + (set (make-local-variable 'font-lock-defaults) css-font-lock-defaults) + (set (make-local-variable 'comment-start) "/*") + (set (make-local-variable 'comment-start-skip) "/\\*+[ \t]*") + (set (make-local-variable 'comment-end) "*/") + (set (make-local-variable 'comment-end-skip) "[ \t]*\\*+/") + (set (make-local-variable 'forward-sexp-function) 'css-forward-sexp) + (set (make-local-variable 'parse-sexp-ignore-comments) t) + (set (make-local-variable 'indent-line-function) 'css-indent-line) + (set (make-local-variable 'fill-paragraph-function) + 'css-fill-paragraph) + (when css-electrick-keys + (let ((fc (make-char-table 'auto-fill-chars))) + (set-char-table-parent fc auto-fill-chars) + (dolist (c css-electrick-keys) + (aset fc c 'indent-according-to-mode)) + (set (make-local-variable 'auto-fill-chars) fc)))) + +(defun css-fill-paragraph (&optional justify) + (save-excursion + (let ((ppss (syntax-ppss)) + (eol (line-end-position))) + (cond + ((and (nth 4 ppss) + (save-excursion + (goto-char (nth 8 ppss)) + (forward-comment 1) + (prog1 (not (bolp)) + (setq eol (point))))) + ;; Filling inside a comment whose comment-end marker is not \n. + ;; This code is meant to be generic, so that it works not only for + ;; css-mode but for all modes. + (save-restriction + (narrow-to-region (nth 8 ppss) eol) + (comment-normalize-vars) + (let ((fill-paragraph-function nil) + (paragraph-separate + (if (and comment-continue + (string-match "[^ \t]" comment-continue)) + (concat "\\(?:[ \t]*" (regexp-quote comment-continue) + "\\)?\\(?:" paragraph-separate "\\)") + paragraph-separate)) + (paragraph-start + (if (and comment-continue + (string-match "[^ \t]" comment-continue)) + (concat "\\(?:[ \t]*" (regexp-quote comment-continue) + "\\)?\\(?:" paragraph-start "\\)") + paragraph-start))) + (fill-paragraph justify) + ;; Don't try filling again. + t))) + + ((and (null (nth 8 ppss)) + (or (nth 1 ppss) + (and (ignore-errors + (down-list 1) + (when (<= (point) eol) + (setq ppss (syntax-ppss))))))) + (goto-char (nth 1 ppss)) + (let ((end (save-excursion + (ignore-errors (forward-sexp 1) (copy-marker (point) t))))) + (when end + (while (re-search-forward "[{;}]" end t) + (cond + ;; This is a false positive inside a string or comment. + ((nth 8 (syntax-ppss)) nil) + ((eq (char-before) ?\}) + (save-excursion + (forward-char -1) + (skip-chars-backward " \t") + (unless (bolp) (newline)))) + (t + (while + (progn + (setq eol (line-end-position)) + (and (forward-comment 1) + (> (point) eol) + ;; A multi-line comment should be on its own line. + (save-excursion (forward-comment -1) + (when (< (point) eol) + (newline) + t))))) + (if (< (point) eol) (newline))))) + (goto-char (nth 1 ppss)) + (indent-region (line-beginning-position 2) end) + ;; Don't use the default filling code. + t))))))) + +;;; Navigation and indentation. + +(defconst css-navigation-syntax-table + (let ((st (make-syntax-table css-mode-syntax-table))) + (map-char-table (lambda (c v) + ;; Turn punctuation (code = 1) into symbol (code = 1). + (if (eq (car-safe v) 1) + (aset st c (cons 3 (cdr v))))) + st) + st)) + +(defun css-backward-sexp (n) + (let ((forward-sexp-function nil)) + (if (< n 0) (css-forward-sexp (- n)) + (while (> n 0) + (setq n (1- n)) + (forward-comment (- (point-max))) + (if (not (eq (char-before) ?\;)) + (backward-sexp 1) + (while (progn (backward-sexp 1) + (save-excursion + (forward-comment (- (point-max))) + ;; FIXME: We should also skip punctuation. + (not (memq (char-before) '(?\; ?\{))))))))))) + +(defun css-forward-sexp (n) + (let ((forward-sexp-function nil)) + (if (< n 0) (css-backward-sexp (- n)) + (while (> n 0) + (setq n (1- n)) + (forward-comment (point-max)) + (if (not (eq (char-after) ?\;)) + (forward-sexp 1) + (while (progn (forward-sexp 1) + (save-excursion + (forward-comment (point-max)) + ;; FIXME: We should also skip punctuation. + (not (memq (char-after) '(?\; ?\}))))))))))) + +(defun css-indent-calculate-virtual () + (if (or (save-excursion (skip-chars-backward " \t") (bolp)) + (if (looking-at "\\s(") + (save-excursion + (forward-char 1) (skip-chars-forward " \t") + (not (or (eolp) (looking-at comment-start-skip)))))) + (current-column) + (css-indent-calculate))) + +(defcustom css-indent-offset 4 + "Basic size of one indentation step." + :type 'integer) + +(defun css-indent-calculate () + (let ((ppss (syntax-ppss)) + pos) + (with-syntax-table css-navigation-syntax-table + (save-excursion + (cond + ;; Inside a string. + ((nth 3 ppss) 'noindent) + ;; Inside a comment. + ((nth 4 ppss) + (setq pos (point)) + (forward-line -1) + (skip-chars-forward " \t") + (if (>= (nth 8 ppss) (point)) + (progn + (goto-char (nth 8 ppss)) + (if (eq (char-after pos) ?*) + (forward-char 1) + (if (not (looking-at comment-start-skip)) + (error "Internal css-mode error") + (goto-char (match-end 0)))) + (current-column)) + (if (and (eq (char-after pos) ?*) (eq (char-after) ?*)) + (current-column) + ;; 'noindent + (current-column) + ))) + ;; In normal code. + (t + (or + (when (looking-at "\\s)") + (forward-char 1) + (backward-sexp 1) + (css-indent-calculate-virtual)) + (when (looking-at comment-start-skip) + (forward-comment (point-max)) + (css-indent-calculate)) + (when (save-excursion (forward-comment (- (point-max))) + (setq pos (point)) + (eq (char-syntax (preceding-char)) ?\()) + (goto-char (1- pos)) + (if (not (looking-at "\\s([ \t]*")) + (error "Internal css-mode error") + (if (or (memq (char-after (match-end 0)) '(?\n nil)) + (save-excursion (goto-char (match-end 0)) + (looking-at comment-start-skip))) + (+ (css-indent-calculate-virtual) css-indent-offset) + (progn (goto-char (match-end 0)) (current-column))))) + (progn + (css-backward-sexp 1) + (if (looking-at "\\s(") + (css-indent-calculate) + (css-indent-calculate-virtual)))))))))) + + +(defun css-indent-line () + "Indent current line according to CSS indentation rules." + (interactive) + (let* ((savep (point)) + (forward-sexp-function nil) + (indent (condition-case nil + (save-excursion + (forward-line 0) + (skip-chars-forward " \t") + (if (>= (point) savep) (setq savep nil)) + (css-indent-calculate)) + (error nil)))) + (if (not (numberp indent)) 'noindent + (if savep + (save-excursion (indent-line-to indent)) + (indent-line-to indent))))) + +(provide 'css-mode) +;; arch-tag: b4d8b8e2-b130-4e74-b3aa-cd8f1ab659d0 +;;; css-mode.el ends here From bce1acc35747aae549ac75d4ef236391389013da Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 31 May 2007 21:10:49 +0000 Subject: [PATCH 005/276] (dired-do-flagged-delete, dired-do-delete): Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/dired.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07778c2f734..ecb858b4617 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-05-31 Richard Stallman + + * dired.el (dired-do-flagged-delete, dired-do-delete): Doc fix. + 2007-05-31 Stefan Monnier * textmodes/css-mode.el: New file. diff --git a/lisp/dired.el b/lisp/dired.el index 4244954d467..7f6e919a109 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2410,7 +2410,9 @@ Anything else, ask for each sub-directory." (defun dired-do-flagged-delete (&optional nomessage) "In Dired, delete the files flagged for deletion. If NOMESSAGE is non-nil, we don't display any message -if there are no flagged files." +if there are no flagged files. +`dired-recursive-deletes' controls whether +deletion of non-empty directories is allowed." (interactive) (let* ((dired-marker-char dired-del-marker) (regexp (dired-marker-regexp)) @@ -2426,7 +2428,9 @@ if there are no flagged files." (message "(No deletions requested)"))))) (defun dired-do-delete (&optional arg) - "Delete all marked (or next ARG) files." + "Delete all marked (or next ARG) files. +`dired-recursive-deletes' controls whether +deletion of non-empty directories is allowed." ;; This is more consistent with the file marking feature than ;; dired-do-flagged-delete. (interactive "P") From df00c3c58e7ba0c33b30840d4ea41af7252916b8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 31 May 2007 21:11:47 +0000 Subject: [PATCH 006/276] (dired-do-delete, dired-do-flagged-delete): Doc fixes. --- lisp/ChangeLog | 4 ++++ lisp/dired.el | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8f8423ea74..387f04058bf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-05-31 Richard Stallman + + * dired.el (dired-do-delete, dired-do-flagged-delete): Doc fixes. + 2007-05-29 Martin Rudalics * textmodes/table.el (table--point-entered-cell-function) diff --git a/lisp/dired.el b/lisp/dired.el index 4244954d467..7f6e919a109 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2410,7 +2410,9 @@ Anything else, ask for each sub-directory." (defun dired-do-flagged-delete (&optional nomessage) "In Dired, delete the files flagged for deletion. If NOMESSAGE is non-nil, we don't display any message -if there are no flagged files." +if there are no flagged files. +`dired-recursive-deletes' controls whether +deletion of non-empty directories is allowed." (interactive) (let* ((dired-marker-char dired-del-marker) (regexp (dired-marker-regexp)) @@ -2426,7 +2428,9 @@ if there are no flagged files." (message "(No deletions requested)"))))) (defun dired-do-delete (&optional arg) - "Delete all marked (or next ARG) files." + "Delete all marked (or next ARG) files. +`dired-recursive-deletes' controls whether +deletion of non-empty directories is allowed." ;; This is more consistent with the file marking feature than ;; dired-do-flagged-delete. (interactive "P") From b49dd850ddd36be2d5bf966f98da2d005353799b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 31 May 2007 23:47:25 +0000 Subject: [PATCH 007/276] (syms_of_buffer): Doc fix. --- src/ChangeLog | 4 ++++ src/buffer.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index dc8d4a38845..b86faf17b8b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-05-31 Richard Stallman + + * buffer.c (syms_of_buffer): Doc fix. + 2007-05-28 YAMAMOTO Mitsuharu * xdisp.c (redisplay_internal): Bind inhibit-point-motion-hooks to t diff --git a/src/buffer.c b/src/buffer.c index ba23cc6ae33..94955ed7c24 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -5986,7 +5986,7 @@ same format as a regular save would use. */); The default is t, which means that text is invisible if it has a non-nil `invisible' property. If the value is a list, a text character is invisible if its `invisible' -property is an element in that list. +property is an element in that list (or is a list with members in common). If an element is a cons cell of the form (PROP . ELLIPSIS), then characters with property value PROP are invisible, and they have an ellipsis as well if ELLIPSIS is non-nil. */); From 5d3e6dc246d9ef2bcd19b876f2e37a139692775d Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 1 Jun 2007 00:17:08 +0000 Subject: [PATCH 008/276] *** empty log message *** --- src/ChangeLog | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 1ffb57b761a..806895bf4bc 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,22 @@ +2007-05-30 Nick Roberts + + * sysdep.c (init_sys_modes): Add rather than replace with + O_NONBLOCK. + + * frame.c [HAVE_GPM] (Fset_mouse_pixel_position): Add call to + term_mouse_moveto. + + * termhooks.h (term_mouse_moveto): New extern. + + * term.c (mouse_face_window): Rename... + (Qmouse_face_window): ...to this. + (term_show_mouse_face, term_clear_mouse_face) + (term_mouse_highlight): Use Qmouse_face_window. + (term_mouse_moveto): New function. + (term_mouse_position): Make it work. + (syms_of_term): Uncomment assignment to mouse_position_hook. + Staticpro Qmouse_face_window. + 2007-05-28 YAMAMOTO Mitsuharu * xdisp.c (redisplay_internal): Bind inhibit-point-motion-hooks to t From e71c2787ab9c4a71cb510ee8d4be1d30577475ef Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 02:04:52 +0000 Subject: [PATCH 009/276] * text.texi (Special Properties): Correct meaning of fontified face. Suggested by Stefan Monnier. --- lispref/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 9f1441d273a..a79e22d0570 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,8 @@ +2007-06-01 Chong Yidong + + * text.texi (Special Properties): Correct meaning of fontified + face. Text suggested by Stefan Monnier. + 2007-05-30 Richard Stallman * text.texi (Special Properties): Add link to Adjusting Point. From 5f73717041a8c548df856d4cdee4037ec6a50bb9 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 02:05:39 +0000 Subject: [PATCH 010/276] (Special Properties): Correct meaning of fontified face. Text suggested by Stefan Monnier. --- lispref/text.texi | 23 +++++------------------ 1 file changed, 5 insertions(+), 18 deletions(-) diff --git a/lispref/text.texi b/lispref/text.texi index 9a6415f375c..4448e1cc402 100644 --- a/lispref/text.texi +++ b/lispref/text.texi @@ -3026,24 +3026,11 @@ that all text between the character and where the mouse is have the same @item fontified @kindex fontified @r{(text property)} -This property says whether the character has a face assigned to it by font -locking. The display engine tests it to decide whether a buffer -portion needs refontifying before display. @xref{Auto Faces}. It -takes one of three values: - -@table @asis -@item @code{nil} -Font locking is disabled, or the character's @code{face} property, if -any, is invalid. - -@item @code{defer} -This value is only used when ``just in time'' font locking is enabled -and it means that the character's @code{face} property is invalid and -needs deferred fontification. - -@item @code{t} -The character's @code{face} property, or absence of one, is valid. -@end table +This property says whether the text is ready for display. If +@code{nil}, Emacs's redisplay routine calls the functions in +@code{fontification-functions} (@pxref{Auto Faces}) to prepare this +part of the buffer before it is displayed. It is used internally by +the ``just in time'' font locking code. @item display This property activates various features that change the From 8e45f1757d66593210a2a04f27ea43ea32f4127e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 03:57:53 +0000 Subject: [PATCH 011/276] * xfns.c (x_set_name_internal): Save encoded name before x_encode_text in case string data is relocated. --- src/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index b86faf17b8b..14d6ae9af1d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2007-06-01 YAMAMOTO Mitsuharu + + * xfns.c (x_set_name_internal): Save encoded name before + x_encode_text in case string data is relocated. + 2007-05-31 Richard Stallman * buffer.c (syms_of_buffer): Doc fix. From 67cae4883e8850079fa642c9b2387c8786e3140b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 03:58:05 +0000 Subject: [PATCH 012/276] (x_set_name_internal): Save encoded name before x_encode_text in case string data is relocated. --- src/xfns.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/xfns.c b/src/xfns.c index 03cbaaec8e2..73a88dfc058 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1605,6 +1605,16 @@ x_set_name_internal (f, name) int bytes, stringp; int do_free_icon_value = 0, do_free_text_value = 0; Lisp_Object coding_system; +#ifdef USE_GTK + Lisp_Object encoded_name; + struct gcpro gcpro1; + + /* As ENCODE_UTF_8 may cause GC and relocation of string data, + we use it before x_encode_text that may return string data. */ + GCPRO1 (name); + encoded_name = ENCODE_UTF_8 (name); + UNGCPRO; +#endif coding_system = Qcompound_text; /* Note: Encoding strategy @@ -1645,7 +1655,7 @@ x_set_name_internal (f, name) #ifdef USE_GTK gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), - (char *) SDATA (ENCODE_UTF_8 (name))); + (char *) SDATA (encoded_name)); #else /* not USE_GTK */ XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text); #endif /* not USE_GTK */ From 3d512e46b5cece3df6f7ba27d4bbcb97f1a0b3e9 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 04:00:14 +0000 Subject: [PATCH 013/276] * xfns.c (x_set_name_internal): Save encoded name before x_encode_text in case string data is relocated. --- src/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 806895bf4bc..a267461ad64 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2007-06-01 YAMAMOTO Mitsuharu + + * xfns.c (x_set_name_internal): Save encoded name before + x_encode_text in case string data is relocated. + 2007-05-30 Nick Roberts * sysdep.c (init_sys_modes): Add rather than replace with From c2915ced359f105603ea8e627bd322febc9ca832 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 04:00:27 +0000 Subject: [PATCH 014/276] (x_set_name_internal): Save encoded name before x_encode_text in case string data is relocated. --- src/xfns.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/xfns.c b/src/xfns.c index 03cbaaec8e2..73a88dfc058 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1605,6 +1605,16 @@ x_set_name_internal (f, name) int bytes, stringp; int do_free_icon_value = 0, do_free_text_value = 0; Lisp_Object coding_system; +#ifdef USE_GTK + Lisp_Object encoded_name; + struct gcpro gcpro1; + + /* As ENCODE_UTF_8 may cause GC and relocation of string data, + we use it before x_encode_text that may return string data. */ + GCPRO1 (name); + encoded_name = ENCODE_UTF_8 (name); + UNGCPRO; +#endif coding_system = Qcompound_text; /* Note: Encoding strategy @@ -1645,7 +1655,7 @@ x_set_name_internal (f, name) #ifdef USE_GTK gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), - (char *) SDATA (ENCODE_UTF_8 (name))); + (char *) SDATA (encoded_name)); #else /* not USE_GTK */ XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text); #endif /* not USE_GTK */ From 773933d371315e101ad9d9ff5388df52bc3efeb3 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 1 Jun 2007 05:01:56 +0000 Subject: [PATCH 015/276] (dired-recursive-deletes, dired-recursive-copies): Change default to `top'. --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ecb858b4617..baf1400232d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-01 David Kastrup + + * dired.el (dired-recursive-deletes, dired-recursive-copies): + Change default to `top'. + 2007-05-31 Richard Stallman * dired.el (dired-do-flagged-delete, dired-do-delete): Doc fix. diff --git a/lisp/dired.el b/lisp/dired.el index 7f6e919a109..7dafd47c6e0 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2362,7 +2362,7 @@ Optional argument means return a file name relative to `default-directory'." ;; Deleting files -(defcustom dired-recursive-deletes nil ; Default only delete empty directories. +(defcustom dired-recursive-deletes 'top ; Default only delete empty directories. "*Decide whether recursive deletes are allowed. A value of nil means no recursive deletes. `always' means delete recursively without asking. This is DANGEROUS! @@ -3210,7 +3210,7 @@ To be called first in body of `dired-sort-other', etc." ;;;; Drag and drop support -(defcustom dired-recursive-copies nil +(defcustom dired-recursive-copies 'top "*Decide whether recursive copies are allowed. A value of nil means no recursive copies. `always' means copy recursively without asking. From 4797b6d98ab74536b6651aad7cbbbe8ef78be600 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 1 Jun 2007 11:00:57 +0000 Subject: [PATCH 016/276] (Fshrink_window): Reflow docstring. --- src/ChangeLog | 22 +++++++++++++--------- src/window.c | 4 ++-- 2 files changed, 15 insertions(+), 11 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index a267461ad64..aee80035f9d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-01 Juanma Barranquero + + * window.c (Fshrink_window): Reflow docstring. + 2007-06-01 YAMAMOTO Mitsuharu * xfns.c (x_set_name_internal): Save encoded name before @@ -30,14 +34,14 @@ 2007-05-26 Dan Nicolaescu * xfaces.c (syms_of_xfaces): Delete stray semicolon. - * xdisp.c (next_element_from_buffer): - * window.c (delete_window): - * term.c (term_mouse_highlight): - * msdos.c (getdefdir): + * xdisp.c (next_element_from_buffer): + * window.c (delete_window): + * term.c (term_mouse_highlight): + * msdos.c (getdefdir): * macterm.c (mac_create_bitmap_from_bitmap_data) - (init_font_name_table): - * fns.c (Fsxhash): - * data.c (Fmake_local_variable): + (init_font_name_table): + * fns.c (Fsxhash): + * data.c (Fmake_local_variable): * ccl.c (ccl_driver): Likewise. 2007-05-24 YAMAMOTO Mitsuharu @@ -49,7 +53,7 @@ * image.c (uncache_image): Fix typo. -2007-05-23 Johannes Weiner (tiny change) +2007-05-23 Johannes Weiner (tiny change) * keyboard.c (make_lispy_movement): Condition on HAVE_GPM too. @@ -172,7 +176,7 @@ 2007-05-07 Andreas Schwab - * keymap.c (Flookup_key): Fix typo in last change. + * keymap.c (Flookup_key): Fix typo in last change. 2007-05-07 Stefan Monnier diff --git a/src/window.c b/src/window.c index d6194565253..8a5137f2044 100644 --- a/src/window.c +++ b/src/window.c @@ -4110,8 +4110,8 @@ too small. */) DEFUN ("shrink-window", Fshrink_window, Sshrink_window, 1, 2, "p", doc: /* Make current window ARG lines smaller. From program, optional second arg non-nil means shrink sideways arg columns. -Interactively, if an argument is not given, make the window one line smaller. Only -siblings to the right or below are changed. */) +Interactively, if an argument is not given, make the window one line smaller. +Only siblings to the right or below are changed. */) (arg, side) Lisp_Object arg, side; { From 59d8a9dcfbdc53753ce04747bb96155a607b64cd Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 1 Jun 2007 11:16:03 +0000 Subject: [PATCH 017/276] *** empty log message *** --- src/ChangeLog | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index aee80035f9d..1798c1f4999 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -106,7 +106,7 @@ * termhooks.h [HAVE_GPM_H] (enum event_kind): Add GPM_CLICK_EVENT. Include gpm.h. - (handle_one_term_event, term_gpm) New externs. + (handle_one_term_event, term_gpm): New externs. * sysdep.c [HAVE_GPM_H] (init_sys_modes): Make gpm_fd nonblocking and allow it to be interrupted by SIGIO. @@ -6408,7 +6408,7 @@ * macterm.c (Qmac_ready_for_drag_n_drop, Qapplication, Qabout) (Qpreferences): Remove variables. - (syms_of_macterm) : Don't initialize them. + (syms_of_macterm): Don't initialize them. (Qhicommand) [USE_CARBON_EVENTS]: New variable. (syms_of_macterm) [USE_CARBON_EVENTS]: Initialize it. (init_required_apple_events, do_ae_open_application) @@ -7090,7 +7090,7 @@ * mac.c [TARGET_API_MAC_CARBON] (get_cfstring_encoding_from_lisp): Allow nil as argument. - [TARGET_API_MAC_CARBON] (Fmac_code_convert_string): Regard nil + [TARGET_API_MAC_CARBON] (Fmac_code_convert_string): Regard nil for encoding arguments as UTF-16 in native byte order, no BOM. * macfns.c (Fx_create_frame): Add debugging code. @@ -10563,7 +10563,7 @@ 2005-02-03 Kim F. Storm * dispnew.c (build_frame_matrix_from_leaf_window) - [!GLYPH_DEBUG]: Fix xassert. + [!GLYPH_DEBUG]: Fix xassert. * xfaces.c (x_free_gc) [!GLYPH_DEBUG]: Fix xassert. @@ -12571,7 +12571,7 @@ (SAFE_ALLOCA, SAFE_ALLOCA_LISP): Increment it when malloc is used. (SAFE_FREE): Test it to determine if we need to unwind to free. Remove size arg. All users changed. - (SAFE_FREE_LISP) Remove. All users changed to use SAFE_FREE. + (SAFE_FREE_LISP): Remove. All users changed to use SAFE_FREE. 2004-10-26 Jan Dj,Ad(Brv @@ -23759,8 +23759,8 @@ * fns.c (Fstring_make_unibyte): Doc fix. * xselect.c (lisp_data_to_selection_data): If the requested type - is STRING, call string_make_unibyte to encode the selected text - as a string. + is STRING, call string_make_unibyte to encode the selected text + as a string. * window.c (Fset_window_hscroll): Doc fix. From 1ae8d75965d66333bd5a71bb74c685232371b75e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 1 Jun 2007 11:49:54 +0000 Subject: [PATCH 018/276] *** empty log message *** --- src/ChangeLog | 38 ++++++++++++++++++++------------------ 1 file changed, 20 insertions(+), 18 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 1798c1f4999..c57fd74db02 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -172,7 +172,8 @@ 2007-05-07 Stefan Monnier - * editfns.c (Ftranspose_regions): Yet another int/Lisp_Object mixup (YAILOM) + * editfns.c (Ftranspose_regions): Yet another int/Lisp_Object + mixup (YAILOM). 2007-05-07 Andreas Schwab @@ -2627,7 +2628,7 @@ for writing files. Call gtk_file_chooser_set_current_name to keep default filename. - * minibuf.c (Finternal_complete_buffer): Move after DEFUN:s it calls + * minibuf.c (Finternal_complete_buffer): Move after DEFUN:s it calls. 2006-09-02 Jindrich Makovicka (tiny change) @@ -2884,7 +2885,7 @@ * xterm.h (struct x_display_info): Add x_dnd_atoms* to keep track of drag and drop Atoms. - * xterm.c (x_term_init): Initialize dpyinfo->x_dnd_atoms* + * xterm.c (x_term_init): Initialize dpyinfo->x_dnd_atoms*. 2006-08-10 Jan Dj,Ad(Brv @@ -4050,7 +4051,7 @@ 2006-05-23 Jan Dj,Ad(Brv - * xterm.c: Remove declarations already in xterm.h + * xterm.c: Remove declarations already in xterm.h. * xterm.h: Add extern declarations for x_clear_errors, x_fully_uncatch_errors, x_catching_errors and @@ -4791,7 +4792,8 @@ * puresize.h (pure_write_error): Mark as NO_RETURN. - * lisp.h (args_out_of_range, args_out_of_range_3) + * lisp.h (args_out_of_range, args_out_of_range_3, Fkill_emacs): + Likewise. 2006-04-08 Eli Zaretskii @@ -10026,7 +10028,7 @@ (cfobject_desc_to_lisp, cfproperty_list_to_lisp): Likewise. * process.c (init_process): Change `#ifdef DARWIN' to `#if - defined (DARWIN) || defined (MAC_OSX)' + defined (DARWIN) || defined (MAC_OSX)'. * s/darwin.h (DARWIN): Don't define. @@ -11453,7 +11455,7 @@ 2004-12-20 YAMAMOTO Mitsuharu - * macterm.c (mac_do_list_fonts): Fix memory leak + * macterm.c (mac_do_list_fonts): Fix memory leak. 2004-12-20 Richard M. Stallman @@ -12233,7 +12235,7 @@ * Makefile.in (SOME_MACHINE_OBJECTS): Add fringe.o, image.o and w32*.o. (temacs${EXEEXT}): Generate buildobj.lst when temacs is linked. - (mostlyclean): Rm buildobj.lst + (mostlyclean): Rm buildobj.lst. * makefile.w32-in ($(TEMACS)): Generate buildobj.lst when temacs is linked. @@ -13233,7 +13235,7 @@ (single_submenu): Use ENCODE_MENU_STRING (mac_menu_show): Use ENCODE_MENU_STRING. Reset grabbed because button release isn't passed to event loop - (add_menu_item): Use SetMenuItemWithCFString + (add_menu_item): Use SetMenuItemWithCFString. 2004-08-26 Steven Tamm @@ -13502,7 +13504,7 @@ blocking on event queue only by calling ReceiveNextEvent instead of select (since GUI events aren't on an fd). (sys_read): Remove function - * sysdep.c: Remove redefine of read to sys_read if HAVE_CARBON + * sysdep.c: Remove redefine of read to sys_read if HAVE_CARBON. 2004-07-18 YAMAMOTO Mitsuharu @@ -13512,12 +13514,12 @@ * macterm.c (x_make_frame_visible): Comment in polling on frame creation. - * keyboard.c: Undef SIGIO on Carbon + * keyboard.c: Undef SIGIO on Carbon. * atimer.c (alarm_signal_handler): Call alarm handlers after scheduling. - * eval.c (Feval): Remove quit_char test + * eval.c (Feval): Remove quit_char test. * process.c (wait_reading_process_input): Remove clearing stdin for select call on process input. @@ -14469,7 +14471,7 @@ 2004-05-11 YAMAMOTO Mitsuharu * macterm.c (x_flush, XTframe_up_to_date): Use FRAME_MAC_P - instead of FRAME_X_P + instead of FRAME_X_P. 2004-05-11 Kim F. Storm @@ -14639,7 +14641,7 @@ 2004-05-01 Jason Rumney - * w32term.c (x_draw_hollow_cursor): Sync with xterm.c + * w32term.c (x_draw_hollow_cursor): Sync with xterm.c. 2004-04-30 Kim F. Storm @@ -17432,7 +17434,7 @@ * makefile.w32-in (alloca.o): Remove. (coding.o): Depend on intervals.h - (emacs.o, bytecode.o): Depend on window.h + (emacs.o, bytecode.o): Depend on window.h. 2003-09-01 Dave Love @@ -18213,7 +18215,7 @@ * gtkutil.c: Include keyboard.h, charset.h, coding.h. (xg_create_frame_widgets): Use ENCODE_UTF_8. - * xterm.c (Qutf_8): Move to coding.c + * xterm.c (Qutf_8): Move to coding.c. * xmenu.c (ENCODE_MENU_STRING): New. (list_of_panes, list_of_items, digest_single_submenu, xmenu_show): @@ -20942,7 +20944,7 @@ (redisplay_internal): Add check for USE_GTK and popup_activated. (redisplay_window): Add check for USE_GTK and FRAME_EXTERNAL_MENU_BAR. (redisplay_window): Add check for USE_GTK and FRAME_EXTERNAL_TOOL_BAR. - (display_menu_bar): Add check for USE_GTK + (display_menu_bar): Add check for USE_GTK. * lisp.h (Vx_resource_name): Declare extern. @@ -22060,7 +22062,7 @@ * buffer.c (assoc_ignore_text_properties, Fother_buffer, Fkill_buffer) (call_overlay_mod_hooks): Use CONSP and XCAR/XCDR. - (Fget_buffer_create, advance_to_char_boundary): Use BEG and BEG_BYTE; + (Fget_buffer_create, advance_to_char_boundary): Use BEG and BEG_BYTE. 2002-10-21 Stefan Monnier From 6f1031326e60eae1a3db7dbb394fa5438f908b83 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 Jun 2007 12:14:34 +0000 Subject: [PATCH 019/276] (x_encode_text): Add GCPRO. (x_set_name_internal): Separate USE_GTK and non-USE_GTK cases. --- src/xfns.c | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/src/xfns.c b/src/xfns.c index 73a88dfc058..ae8ef659728 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1516,6 +1516,8 @@ x_set_scroll_bar_background (f, value, oldval) /* Encode Lisp string STRING as a text in a format appropriate for XICCC (X Inter Client Communication Conventions). + This can call Lisp code, so callers must GCPRO. + If STRING contains only ASCII characters, do no conversion and return the string data of STRING. Otherwise, encode the text by CODING_SYSTEM, and return a newly allocated memory area which @@ -1563,7 +1565,11 @@ x_encode_text (string, coding_system, selectionp, text_bytes, stringp, freep) && SYMBOLP (coding.pre_write_conversion) && !NILP (Ffboundp (coding.pre_write_conversion))) { + struct gcpro gcpro1; + /* We don't need to GCPRO string. */ + GCPRO1 (coding_system); string = run_pre_post_conversion_on_str (string, &coding, 1); + UNGCPRO; str = SDATA (string); chars = SCHARS (string); bytes = SBYTES (string); @@ -1601,22 +1607,20 @@ x_set_name_internal (f, name) BLOCK_INPUT; #ifdef HAVE_X11R4 { +#ifdef USE_GTK + Lisp_Object encoded_name; + + encoded_name = ENCODE_UTF_8 (name); + + gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), + (char *) SDATA (encoded_name)); +#else /* not USE_GTK */ XTextProperty text, icon; int bytes, stringp; int do_free_icon_value = 0, do_free_text_value = 0; Lisp_Object coding_system; -#ifdef USE_GTK - Lisp_Object encoded_name; - struct gcpro gcpro1; - - /* As ENCODE_UTF_8 may cause GC and relocation of string data, - we use it before x_encode_text that may return string data. */ - GCPRO1 (name); - encoded_name = ENCODE_UTF_8 (name); - UNGCPRO; -#endif - coding_system = Qcompound_text; + /* Note: Encoding strategy We encode NAME by compound-text and use "COMPOUND-TEXT" in @@ -1653,12 +1657,7 @@ x_set_name_internal (f, name) icon.nitems = bytes; } -#ifdef USE_GTK - gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), - (char *) SDATA (encoded_name)); -#else /* not USE_GTK */ XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text); -#endif /* not USE_GTK */ XSetWMIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &icon); @@ -1666,6 +1665,7 @@ x_set_name_internal (f, name) xfree (icon.value); if (do_free_text_value) xfree (text.value); +#endif /* not USE_GTK */ } #else /* not HAVE_X11R4 */ XSetIconName (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), From 37f55d5a2d256c4c4b35d357635ebdf446b5001a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 1 Jun 2007 12:17:40 +0000 Subject: [PATCH 020/276] *** empty log message *** --- lisp/ChangeLog.12 | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12 index 52cd55f87b5..f3bac53ca8a 100644 --- a/lisp/ChangeLog.12 +++ b/lisp/ChangeLog.12 @@ -271,7 +271,7 @@ 2007-04-14 Nick Roberts * tmm.el (tmm-get-keybind): Use copy-sequence to ensure that the - global map isn't modified + global map isn't modified. 2007-04-14 Glenn Morris @@ -1413,7 +1413,7 @@ * progmodes/python.el (python-quote-syntax): Don't bother with syntax-ppss-context. (python-fill-paragraph): Make sure that fenced-string delimiters that - stand on their own line stay there + stand on their own line stay there. 2007-03-01 Lennart Borgman @@ -2549,7 +2549,7 @@ * type-break.el (type-break-demo-hanoi, type-break-demo-life) (type-break-demo-boring): Call read-event instead of read-char. -2007-01-19 Daniel Pfeiffer (small change) +2007-01-19 Daniel Pfeiffer (tiny change) * progmodes/compile.el: Add handling for makepplog. @@ -5797,7 +5797,7 @@ * wid-edit.el (widget-button-click-moves-point): New variable. (widget-button-click): If widget-button-click-moves-point is - non-nil, set point after performing the button action + non-nil, set point after performing the button action. * cus-edit.el (custom-mode): Set widget-button-click-moves-point. @@ -6121,7 +6121,7 @@ * cus-start.el (all): Rename x-gtk-show-chooser-help-text to x-gtk-file-dialog-help-text. Rename x-use-old-gtk-file-dialog - to x-gtk-use-old-file-dialog + to x-gtk-use-old-file-dialog. 2006-09-18 Richard Stallman @@ -9203,7 +9203,7 @@ (ewoc--wrap): New func. (ewoc-create): Take additional arg NOSEP. If nil, wrap node and header/footer pretty-printers. Save header/footer pretty-printer. - (ewoc-set-hf): Use ewoc's header/footer pretty-printer. * + (ewoc-set-hf): Use ewoc's header/footer pretty-printer. * pcvs.el (cvs-make-cvs-buffer): Specify NOSEP to `ewoc-create'. @@ -10152,7 +10152,7 @@ 2006-05-05 Eli Zaretskii * startup.el (command-line): On MS-Windows, probe "~", not - "~USER", for warning about non-existent home directory + "~USER", for warning about non-existent home directory. * arc-mode.el (archive-l-e): New optional argument `float' means generate a float value. @@ -15747,10 +15747,10 @@ 2005-12-08 Alan Mackenzie * progmodes/cc-fix.el: Add definitions of the macros push and pop - (for GNU Emacs 20.4) + (for GNU Emacs 20.4). * progmodes/cc-defs.el: - (i): Load cc-fix.elc for `push' and `pop' (for GNU Emacs 20.4) + (i): Load cc-fix.elc for `push' and `pop' (for GNU Emacs 20.4). * progmodes/cc-cmds.el (c-show-syntactic-information): Change the highlighting mechanism so it will work in XEmacs too. @@ -16051,7 +16051,7 @@ Introduce an "awk" style, mainly for auto-newline and clean-ups. - * progmodes/cc-align.el: New function c-snug-1line-defun-close + * progmodes/cc-align.el: New function c-snug-1line-defun-close. * progmodes/cc-cmds.el: In c-electric-brace, add code for new clean-up one-liner-defun. @@ -20402,7 +20402,7 @@ 2005-10-12 Jan Dj,Ad(Brv - * startup.el (command-line-x-option-alist): -nb => -nbi + * startup.el (command-line-x-option-alist): -nb => -nbi. 2005-10-12 Kim F. Storm @@ -20580,7 +20580,7 @@ * term/x-win.el: Remove -i, --icon-type from comment. * startup.el (command-line-x-option-alist): Remove options -i, - -itype, --icon-type, added -nb, --no-bitmap-icon + -itype, --icon-type, added -nb, --no-bitmap-icon. 2005-10-09 Nick Roberts @@ -20866,7 +20866,7 @@ * textmodes/ispell.el (ispell-word, ispell-region): Call ispell-maybe-find-aspell-dictionaries. (ispell-accept-buffer-local-defs): - Don't call ispell-maybe-find-aspell-dictionaries + Don't call ispell-maybe-find-aspell-dictionaries. 2005-10-04 Richard M. Stallman @@ -22474,7 +22474,7 @@ * calendar/diary-lib.el (diary-modify-entry-list-string-function): New hook. - (add-to-diary-list): Call `diary-modify-entry-list-string-function' + (add-to-diary-list): Call `diary-modify-entry-list-string-function'. 2005-08-24 Stefan Monnier @@ -24379,7 +24379,7 @@ * viper-init.el: Get rid of -face in face names. * ediff-diff.el (ediff-extract-diffs, ediff-extract-diffs3): - Make it work with longlines mode + Make it work with longlines mode. * ediff-mult.el (ediff-meta-mode-hook): New variable. @@ -27822,7 +27822,7 @@ (reftex-unhighlight): Use `reftex-delete-overlay'. (reftex-uniq): Function removed. Use `reftex-uniquify' instead. (reftex-access-search-path): Use `reftex-uniquify' instead of - `reftex-uniq' + `reftex-uniq'. * textmodes/reftex-sel.el (reftex-select-unmark): Overlay `before-string' property modification enables for Emacs as well. @@ -29461,7 +29461,7 @@ `org-insert-mode-line-in-empty-file' has been set. (org-agenda-todo, org-agenda-priority): Modify to use `org-agenda-change-all-lines'. - (org-warning-face): Change color on dark background + (org-warning-face): Change color on dark background. 2005-04-14 YAMAMOTO Mitsuharu @@ -29585,7 +29585,7 @@ 2005-04-11 Rajesh Vaidheeswarran - * whitespace.el (whitespace-version): Bump to 3.5 + * whitespace.el (whitespace-version): Bump to 3.5. (whitespace-buffer-leading, whitespace-buffer-trailing): Invert sense of the test to highlight the whitespace. @@ -29613,7 +29613,7 @@ * dired.el (dired-mode): Use dnd-* instead of x-dnd-* (dired-dnd-handle-local-file): Call dnd-get-local-file-name. - (dired-dnd-handle-file): Call dnd-get-local-file-uri + (dired-dnd-handle-file): Call dnd-get-local-file-uri. * cus-edit.el (dnd): New group. @@ -32604,7 +32604,7 @@ 2005-01-21 Ren,Ai(B Kyllingstad * pcomplete.el: Define pcomplete-read-event instead of read-event, - since it's not a complete read-event implementation + since it's not a complete read-event implementation. 2005-01-20 Jay Belanger From c26953683cd59a6b21d03df908362b211dec07a2 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 13:47:33 +0000 Subject: [PATCH 021/276] * paren.el (show-paren-function): Undo 2007-04-19 and 2007-04-20 changes. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 387f04058bf..bc122fdb5f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-01 Chong Yidong + + * paren.el (show-paren-function): Undo 2007-04-19 and 2007-04-20 + changes. + 2007-05-31 Richard Stallman * dired.el (dired-do-delete, dired-do-flagged-delete): Doc fixes. From f7e5609497aa37b9068f7edf5c9b6b892bcc56ca Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 13:47:44 +0000 Subject: [PATCH 022/276] (show-paren-function): Undo 2007-04-19 and 2007-04-20 changes. --- lisp/paren.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/lisp/paren.el b/lisp/paren.el index 38ac150b402..95f718d5683 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -143,7 +143,6 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (let ((oldpos (point)) (dir (cond ((eq (syntax-class (syntax-after (1- (point)))) 5) -1) ((eq (syntax-class (syntax-after (point))) 4) 1))) - (window-start (window-start)) pos mismatch face) ;; ;; Find the other end of the sexp. @@ -248,13 +247,7 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." ;; ;; Always set the overlay face, since it varies. (overlay-put show-paren-overlay 'priority show-paren-priority) - (overlay-put show-paren-overlay 'face face)) - ;; If there are continued lines, the above operations can - ;; force redisplay to recenter the window (since there is no - ;; way for it to know that the overlay changes to the buffer - ;; are harmless). So reset the window-start. - (unless (window-minibuffer-p) - (set-window-start (selected-window) window-start))) + (overlay-put show-paren-overlay 'face face))) ;; show-paren-mode is nil in this buffer. (and show-paren-overlay (delete-overlay show-paren-overlay)) From f2c2bef23dcb27a21a66bda5a7c62e30ef99098c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 1 Jun 2007 21:34:11 +0000 Subject: [PATCH 023/276] Attribute to Stefan Monnier. --- lispref/ChangeLog | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index a79e22d0570..d8c3c30e72c 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,7 +1,7 @@ -2007-06-01 Chong Yidong +2007-06-01 Stefan Monnier * text.texi (Special Properties): Correct meaning of fontified - face. Text suggested by Stefan Monnier. + face. 2007-05-30 Richard Stallman From 2c5e0a1041e0748205ae833411457f37f2c5eaaf Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 04:01:35 +0000 Subject: [PATCH 024/276] * xfns.c (x_set_name_internal): Undo last change. --- src/ChangeLog | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 14d6ae9af1d..417685140ba 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,12 @@ +2007-06-02 Chong Yidong + + * xfns.c (x_set_name_internal): Undo last change. + +2007-06-01 Richard Stallman + + * xfns.c (x_encode_text): Add GCPRO. + (x_set_name_internal): Separate USE_GTK and non-USE_GTK cases. + 2007-06-01 YAMAMOTO Mitsuharu * xfns.c (x_set_name_internal): Save encoded name before From a3dcc98fea1a386b8fe337cf97b8f08562c9950a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 04:01:51 +0000 Subject: [PATCH 025/276] (x_set_name_internal): Undo last change. --- src/xfns.c | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) diff --git a/src/xfns.c b/src/xfns.c index ae8ef659728..d269dfbd37f 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1607,20 +1607,22 @@ x_set_name_internal (f, name) BLOCK_INPUT; #ifdef HAVE_X11R4 { -#ifdef USE_GTK - Lisp_Object encoded_name; - - encoded_name = ENCODE_UTF_8 (name); - - gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), - (char *) SDATA (encoded_name)); -#else /* not USE_GTK */ XTextProperty text, icon; int bytes, stringp; int do_free_icon_value = 0, do_free_text_value = 0; Lisp_Object coding_system; - coding_system = Qcompound_text; +#ifdef USE_GTK + Lisp_Object encoded_name; + struct gcpro gcpro1; + /* As ENCODE_UTF_8 may cause GC and relocation of string data, + we use it before x_encode_text that may return string data. */ + GCPRO1 (name); + encoded_name = ENCODE_UTF_8 (name); + UNGCPRO; +#endif + + coding_system = Qcompound_text; /* Note: Encoding strategy We encode NAME by compound-text and use "COMPOUND-TEXT" in @@ -1657,7 +1659,12 @@ x_set_name_internal (f, name) icon.nitems = bytes; } +#ifdef USE_GTK + gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), + (char *) SDATA (encoded_name)); +#else /* not USE_GTK */ XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text); +#endif /* not USE_GTK */ XSetWMIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &icon); @@ -1665,7 +1672,6 @@ x_set_name_internal (f, name) xfree (icon.value); if (do_free_text_value) xfree (text.value); -#endif /* not USE_GTK */ } #else /* not HAVE_X11R4 */ XSetIconName (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), From ddcb507b8d85f0bf072164324dfa14bcfe83c47b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 04:18:10 +0000 Subject: [PATCH 026/276] Regenerate. --- AUTHORS | 34 ++++++++++++++++++---------------- 1 file changed, 18 insertions(+), 16 deletions(-) diff --git a/AUTHORS b/AUTHORS index 733b76b8a94..b88c0b69bda 100644 --- a/AUTHORS +++ b/AUTHORS @@ -333,10 +333,10 @@ Cheng Gao: changed MORE.STUFF flymake.el tips.texi url-dired.el url-file.el url-handlers.el url-http.el url-nfs.el Chong Yidong: changed cus-edit.el simple.el files.el custom.el - display.texi longlines.el xdisp.c files.texi info.el keyboard.c + display.texi xdisp.c longlines.el files.texi info.el keyboard.c compile.el custom.texi text.texi xterm.c frames.texi image-mode.el mouse.el misc.texi startup.el wid-edit.el cus-theme.el - and 296 other files + and 297 other files Chris Hanson: changed xscheme.el scheme.el xterm.c hpux.h x11term.c hp9000s300.h keyboard.c process.c texinfmt.el emacsclient.c sort.el @@ -652,8 +652,8 @@ Eli Tziperman: wrote rmail-spam-filter.el Eli Zaretskii: wrote codepage.el rxvt.el tty-colors.el and changed msdos.c Makefile.in makefile.w32-in files.el info.el fileio.c startup.el mainmake.v2 config.bat rmail.el menu-bar.el pc-win.el - simple.el msdos.h internal.el xfaces.c emacs.c frame.c dosfns.c - faces.el frame.el and 532 other files + simple.el msdos.h internal.el xfaces.c emacs.c frame.c INSTALL dosfns.c + faces.el and 532 other files Emanuele Giaquinta: changed rxvt.el configure.in etags.c frame.el sh-script.el text.texi @@ -1699,8 +1699,8 @@ Martin Neitzel: changed sc.el Martin Rudalics: changed cus-edit.el wid-edit.el cus-start.el files.el flyspell.el font-lock.el complete.el insdel.c ispell.el macmenu.c - syntax.c w32menu.c wdired.el whitespace.el window.el xdisp.c xmenu.c - backups.texi buffer.c buffer.h casefiddle.c and 36 other files + syntax.c table.el w32menu.c wdired.el whitespace.el window.el xdisp.c + xmenu.c backups.texi buffer.c buffer.h and 36 other files Martin Stjernholm: wrote cc-bytecomp.el and changed cc-engine.el cc-cmds.el cc-langs.el cc-defs.el cc-mode.el @@ -1877,7 +1877,7 @@ Miles Bader: wrote button.el image-file.el macroexp.el minibuf-eldef.el and changed comint.el faces.el simple.el editfns.c xfaces.c info.el xdisp.c minibuf.c wid-edit.el xterm.c subr.el window.el cus-edit.el diff-mode.el dispextern.h quick-install-emacs xfns.c help.el lisp.h - textprop.c bytecomp.el and 241 other files + textprop.c bytecomp.el and 242 other files Miyashita Hisashi: changed ccl.c coding.c coding.h mule-cmds.el mule-conf.el mule.el pop3.el @@ -1942,7 +1942,7 @@ Niimi Satoshi: changed pp.el search.c Niklas Morberg: changed nnweb.el gnus-art.el nnimap.el spam.el -Nikolaj Schumacher: changed compile.el +Nikolaj Schumacher: changed compile.el rx.el Noah Friedman: wrote eldoc.el rlogin.el rsz-mini.el type-break.el and changed comint.el emacs-buffer.gdb files.el mailabbrev.el sendmail.el @@ -2291,7 +2291,7 @@ Rune Kleveland: changed xfns.c Russ Allbery: changed message.el Ryan Yeske: wrote rcirc.el -and changed ffap.el rmailsum.el simple.el testcover.el +and changed ffap.el ispell.el rmailsum.el simple.el testcover.el Ryszard Kubiak: changed ogonek.el @@ -2416,9 +2416,9 @@ Stefan Monnier: wrote bibtex.el cvs-status.el diff-mode.el log-edit.el log-view.el pcvs-defs.el pcvs-info.el pcvs-parse.el pcvs-util.el reveal.el smerge-mode.el and changed vc.el font-lock.el pcvs.el newcomment.el subr.el lisp.h - keyboard.c keymap.c tex-mode.el fill.el alloc.c compile.el files.el - regex.c simple.el easy-mmode.el vc-hooks.el info.el syntax.c xdisp.c - sh-script.el and 518 other files + keyboard.c fill.el keymap.c tex-mode.el alloc.c compile.el files.el + regex.c simple.el easy-mmode.el syntax.c vc-hooks.el info.el xdisp.c + sh-script.el and 519 other files Steinar Bang: changed imap.el @@ -2533,7 +2533,7 @@ Terrence Brannon: wrote landmark.el Terry Jones: wrote shadow.el -Tetsurou Okazaki: changed xterm.c +Tetsurou Okazaki: changed log-edit.el xterm.c Theodore Jump: changed w32-win.el w32faces.c @@ -2614,6 +2614,8 @@ Toru Tomabechi: wrote tibet-util.el tibetan.el Toshiaki Nomura: changed uxpds.h +Trent Buck: changed rcirc.el + Trey Jackson: changed spam-stat.el Triet Hoai Lai: changed vntelex.el viet-util.el vietnamese.el @@ -2636,8 +2638,8 @@ and changed calendar.texi newsticker.texi Makefile.in Ulrich Leodolter: changed w32proc.c -Ulrich Mueller: changed gud.el Makefile.in case-table.el fortran.el - iso-acc.el sysdep.c +Ulrich Mueller: changed gud.el Makefile.in XMakeAssoc.c case-table.el + fortran.el iso-acc.el sysdep.c Ulrik Vieth: wrote meta-mode.el and changed files.el @@ -2734,7 +2736,7 @@ Yagi Tatsuya: changed gnus-art.el gnus-start.el Yamamoto Mitsuharu: changed macterm.c macfns.c mac-win.el mac.c macterm.h macmenu.c macgui.h image.c macselect.c keyboard.c xdisp.c makefile.MPW - config.h emacs.c Makefile.in macos.texi INSTALL darwin.h xfaces.c + config.h emacs.c INSTALL Makefile.in macos.texi darwin.h xfaces.c dispnew.c alloc.c and 77 other files Yann Dirson: changed imenu.el From 9e38fa7e7dbdef6d968400977e0745af2eeba401 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:02:07 +0000 Subject: [PATCH 027/276] * MORE.STUFF: Remove dead URL for Fortune, and update URLs for Hideshow, Org, EDB, and Remember. --- etc/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/etc/ChangeLog b/etc/ChangeLog index edc4d44c876..e404a830858 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,8 @@ +2007-06-02 CHENG Gao + + * MORE.STUFF: Remove dead URL for Fortune, and update URLs for + Hideshow, Org, EDB, and Remember. + 2007-05-29 Robert J. Chassell * NEWS: Fix instances of `allow' without object. From ff2d371b125c439c6c4bac753885ecf0bad2dd7a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:02:32 +0000 Subject: [PATCH 028/276] Remove dead URL for Fortune, and update URLs for Hideshow, Org, EDB, and Remember. --- etc/MORE.STUFF | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/etc/MORE.STUFF b/etc/MORE.STUFF index d91d22c6d52..8582cbc0a1c 100644 --- a/etc/MORE.STUFF +++ b/etc/MORE.STUFF @@ -69,19 +69,19 @@ You might find bug-fixes or enhancements in these places. * Expand: - * Fortune: - * Gnus: * Ffap: (And some addons for it.) - * Hideshow: + * Hideshow: * Ispell: * MH-E: + * Org mode: + * PS mode: * PS-print: @@ -148,7 +148,7 @@ Several are for Debian GNU/Linux in particular. * ECB: Emacs Code Browser: - * EDB: database: + * EDB: database: * Ee: categorizing information manager: @@ -235,10 +235,10 @@ Several are for Debian GNU/Linux in particular. DTD-aware serious SGML/XML editing. * Quack: - Quack enhances Emacs support for Scheme + Quack enhances Emacs support for Scheme. - * Remember: - + * Remember: + A Personal Information Manager (PIM) for Emacs. * Session: Session Management for Emacs. From 7dfc4cda5df5732cc79ad4739bac13b55baae873 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:07:00 +0000 Subject: [PATCH 029/276] Version 22.1 released. --- ChangeLog | 4 ++++ etc/ChangeLog | 4 ++++ leim/ChangeLog | 4 ++++ lib-src/ChangeLog | 4 ++++ lisp/ChangeLog | 4 ++++ lispintro/ChangeLog | 4 ++++ lispref/ChangeLog | 4 ++++ lwlib/ChangeLog | 4 ++++ mac/ChangeLog | 4 ++++ man/ChangeLog | 4 ++++ nt/ChangeLog | 4 ++++ oldXMenu/ChangeLog | 4 ++++ src/ChangeLog | 2 ++ 13 files changed, 50 insertions(+) diff --git a/ChangeLog b/ChangeLog index 18f888486f5..c53ed83f067 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-05-03 Glenn Morris * configure: Tweak message about the absence of shell functions. diff --git a/etc/ChangeLog b/etc/ChangeLog index e404a830858..c65d6a73425 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-06-02 CHENG Gao * MORE.STUFF: Remove dead URL for Fortune, and update URLs for diff --git a/leim/ChangeLog b/leim/ChangeLog index 9bf18f4e6da..f4bfce06bb3 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-01-30 Kenichi Handa * CXTERM-DIC/CCDOSPY.tit, CXTERM-DIC/PY-b5.tit, CXTERM-DIC/SW.tit, diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 04657225ab0..262baf252a4 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-02-26 Francesco Potort,Al(B * Makefile.in (etags, ctags): Define EMACS_NAME as "GNU Emacs". diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bc122fdb5f0..07c16489fe7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-06-01 Chong Yidong * paren.el (show-paren-function): Undo 2007-04-19 and 2007-04-20 diff --git a/lispintro/ChangeLog b/lispintro/ChangeLog index 7000f1fca19..2e08725df69 100644 --- a/lispintro/ChangeLog +++ b/lispintro/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-01-30 Robert J. Chassell * emacs-lisp-intro.texi (else): Rephrase message of first diff --git a/lispref/ChangeLog b/lispref/ChangeLog index d8c3c30e72c..99e7c621598 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-06-01 Stefan Monnier * text.texi (Special Properties): Correct meaning of fontified diff --git a/lwlib/ChangeLog b/lwlib/ChangeLog index 5396754d142..f6764e87e17 100644 --- a/lwlib/ChangeLog +++ b/lwlib/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-02-28 Glenn Morris * Makefile.in (distclean): Delete Makefile. diff --git a/mac/ChangeLog b/mac/ChangeLog index 0f030751475..5eb769f3a74 100644 --- a/mac/ChangeLog +++ b/mac/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-05-24 YAMAMOTO Mitsuharu * INSTALL: Add note about moving self-contained application bundle diff --git a/man/ChangeLog b/man/ChangeLog index 72f34fb92b8..640b4894726 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-05-26 Michael Olson * erc.texi (Modules): Fix references to completion modules. diff --git a/nt/ChangeLog b/nt/ChangeLog index c694dbe0695..11b974e10ab 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-05-22 Eli Zaretskii * INSTALL: Add information about where to find GDB, and warn diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog index 9a7f01ed901..9d7129e82fe 100644 --- a/oldXMenu/ChangeLog +++ b/oldXMenu/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-05-30 Ulrich Mueller (tiny change) * XMakeAssoc.c (XMakeAssoc): Use malloc rather than xmalloc. diff --git a/src/ChangeLog b/src/ChangeLog index 417685140ba..a6b4c8a59b6 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2007-06-02 Chong Yidong + * Version 22.1 released. + * xfns.c (x_set_name_internal): Undo last change. 2007-06-01 Richard Stallman From 0d9acfe90fa6092cef3797a44558a6d9da0c1615 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:09:25 +0000 Subject: [PATCH 030/276] Increment version to 22.1. --- README | 2 +- lisp/version.el | 2 +- lispref/elisp.texi | 2 +- .../Contents/Resources/English.lproj/InfoPlist.strings | 4 ++-- mac/src/Emacs.r | 10 +++++----- man/emacs.texi | 2 +- nt/emacs.rc | 8 ++++---- 7 files changed, 15 insertions(+), 15 deletions(-) diff --git a/README b/README index 1effe4f61c5..80cc1a50326 100644 --- a/README +++ b/README @@ -3,7 +3,7 @@ Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 See the end of the file for license conditions. -This directory tree holds version 22.0.990 of GNU Emacs, the extensible, +This directory tree holds version 22.1 of GNU Emacs, the extensible, customizable, self-documenting real-time display editor. The file INSTALL in this directory says how to build and install GNU diff --git a/lisp/version.el b/lisp/version.el index de2cfccf7cf..9e5ec6544d4 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -27,7 +27,7 @@ ;;; Code: -(defconst emacs-version "22.0.990" "\ +(defconst emacs-version "22.1" "\ Version numbers of this version of Emacs.") (defconst emacs-major-version diff --git a/lispref/elisp.texi b/lispref/elisp.texi index 2a3a0eb1a7e..f6e91bb187a 100644 --- a/lispref/elisp.texi +++ b/lispref/elisp.texi @@ -7,7 +7,7 @@ @c Version of the manual and of Emacs. @c Please remember to update the edition number in README as well. @set VERSION 2.9 -@set EMACSVER 22.0.990 +@set EMACSVER 22.1 @dircategory Emacs @direntry diff --git a/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings b/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings index 231d088e802..9718e10da68 100644 --- a/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings +++ b/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings @@ -1,5 +1,5 @@ /* Localized versions of Info.plist keys */ CFBundleName = "Emacs"; -CFBundleShortVersionString = "22.0.990"; -CFBundleGetInfoString = "22.0.990, Copyright (C) 2007 Free Software Foundation, Inc."; +CFBundleShortVersionString = "22.1"; +CFBundleGetInfoString = "22.1, Copyright (C) 2007 Free Software Foundation, Inc."; diff --git a/mac/src/Emacs.r b/mac/src/Emacs.r index efdb6e757f1..e35a898ae28 100644 --- a/mac/src/Emacs.r +++ b/mac/src/Emacs.r @@ -219,12 +219,12 @@ resource 'FREF' (129) { resource 'vers' (1) { 0x22, /* Major revision in BCD */ - 0x0, /* Minor revision in BCD */ - alpha, /* development, alpha, beta, or final (release) */ - 990, /* Non-final release # */ + 0x1, /* Minor revision in BCD */ + final, /* development, alpha, beta, or final (release) */ + 0, /* Non-final release # */ 0, /* Region code */ - "22.0.990", /* Short version number */ - "22.0.990, Copyright \0xa9 2007 " + "22.1", /* Short version number */ + "22.1, Copyright \0xa9 2007 " "Free Software Foundation, Inc." /* Long version number */ }; diff --git a/man/emacs.texi b/man/emacs.texi index fc055adfd6f..c54808e3417 100644 --- a/man/emacs.texi +++ b/man/emacs.texi @@ -5,7 +5,7 @@ @c The edition number appears in several places in this file @set EDITION Sixteenth -@set EMACSVER 22.0.990 +@set EMACSVER 22.1 @copying This is the @value{EDITION} edition of the @cite{GNU Emacs Manual},@* diff --git a/nt/emacs.rc b/nt/emacs.rc index 55220b16b2e..053ce2d0e41 100644 --- a/nt/emacs.rc +++ b/nt/emacs.rc @@ -6,8 +6,8 @@ Emacs ICON icons\emacs.ico #endif VS_VERSION_INFO VERSIONINFO - FILEVERSION 22,0,990,0 - PRODUCTVERSION 22,0,990,0 + FILEVERSION 22,1,0,0 + PRODUCTVERSION 22,1,0,0 FILEFLAGSMASK 0x3FL #ifdef EMACSDEBUG FILEFLAGS 0x1L @@ -24,12 +24,12 @@ BEGIN BEGIN VALUE "CompanyName", "Free Software Foundation\0" VALUE "FileDescription", "GNU Emacs for Windows NT/95/98/2000/ME/XP\0" - VALUE "FileVersion", "22, 0, 990, 0\0" + VALUE "FileVersion", "22, 1, 0, 0\0" VALUE "InternalName", "Emacs\0" VALUE "LegalCopyright", "Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007\0" VALUE "OriginalFilename", "emacs.exe" VALUE "ProductName", "Emacs: The extensible self-documenting text editor\0" - VALUE "ProductVersion", "22, 0, 990, 0\0" + VALUE "ProductVersion", "22, 1, 0, 0\0" VALUE "OLESelfRegister", "\0" END END From c3a108dfcb41ed7cfb392379710818a853f2dbef Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:09:52 +0000 Subject: [PATCH 031/276] Regenerate. --- lisp/ldefs-boot.el | 1347 ++++++++++++++++++++++---------------------- 1 file changed, 677 insertions(+), 670 deletions(-) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 13d5e3e5e4f..25df6135e3e 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -4,7 +4,7 @@ ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" -;;;;;; "play/5x5.el" (17941 5494)) +;;;;;; "play/5x5.el" (17941 38806)) ;;; Generated autoloads from play/5x5.el (autoload (quote 5x5) "5x5" "\ @@ -63,14 +63,14 @@ should return a grid vector array that is the new solution. ;;;*** -;;;### (autoloads nil "abbrev" "abbrev.el" (17939 56016)) +;;;### (autoloads nil "abbrev" "abbrev.el" (17905 55681)) ;;; Generated autoloads from abbrev.el (put 'abbrev-mode 'safe-local-variable 'booleanp) ;;;*** ;;;### (autoloads (list-one-abbrev-table) "abbrevlist" "abbrevlist.el" -;;;;;; (17843 45609)) +;;;;;; (17842 58280)) ;;; Generated autoloads from abbrevlist.el (autoload (quote list-one-abbrev-table) "abbrevlist" "\ @@ -81,7 +81,7 @@ Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER. ;;;*** ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" -;;;;;; (17843 45626)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/ada-mode.el (autoload (quote ada-add-extensions) "ada-mode" "\ @@ -142,7 +142,7 @@ If you use ada-xref.el: ;;;*** ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" -;;;;;; (17843 45626)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/ada-stmt.el (autoload (quote ada-header) "ada-stmt" "\ @@ -153,7 +153,7 @@ Insert a descriptive header at the top of the file. ;;;*** ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" -;;;;;; (17843 45626)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/ada-xref.el (autoload (quote ada-find-file) "ada-xref" "\ @@ -168,7 +168,7 @@ Completion is available. ;;;;;; change-log-mode add-change-log-entry-other-window add-change-log-entry ;;;;;; find-change-log prompt-for-change-log-name add-log-mailing-address ;;;;;; add-log-full-name add-log-current-defun-function) "add-log" -;;;;;; "add-log.el" (17939 56016)) +;;;;;; "add-log.el" (17851 44469)) ;;; Generated autoloads from add-log.el (defvar add-log-current-defun-function nil "\ @@ -306,7 +306,7 @@ Fix any old-style date entries in the current log file to default format. ;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice ;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action) -;;;;;; "advice" "emacs-lisp/advice.el" (17843 45615)) +;;;;;; "advice" "emacs-lisp/advice.el" (17992 30878)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action (quote warn) "\ @@ -434,7 +434,7 @@ See Info node `(elisp)Advising Functions' for comprehensive documentation. ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule ;;;;;; align-highlight-rule align-current align-entire align-regexp -;;;;;; align) "align" "align.el" (17843 45609)) +;;;;;; align) "align" "align.el" (17842 58280)) ;;; Generated autoloads from align.el (autoload (quote align) "align" "\ @@ -524,7 +524,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;*** ;;;### (autoloads (outlineify-sticky allout-mode) "allout" "allout.el" -;;;;;; (17939 56016)) +;;;;;; (17892 52945)) ;;; Generated autoloads from allout.el (put (quote allout-show-bodies) (quote safe-local-variable) (if (fboundp (quote booleanp)) (quote booleanp) (quote (lambda (x) (member x (quote (t nil))))))) @@ -830,7 +830,7 @@ setup for auto-startup. ;;;*** ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" -;;;;;; "net/ange-ftp.el" (17939 56022)) +;;;;;; "net/ange-ftp.el" (17905 9579)) ;;; Generated autoloads from net/ange-ftp.el (defalias (quote ange-ftp-re-read-dir) (quote ange-ftp-reread-dir)) @@ -852,7 +852,7 @@ Not documented ;;;*** ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) -;;;;;; "animate" "play/animate.el" (17941 5494)) +;;;;;; "animate" "play/animate.el" (17941 38806)) ;;; Generated autoloads from play/animate.el (autoload (quote animate-string) "animate" "\ @@ -880,7 +880,7 @@ You can specify the one's name by NAME; the default value is \"Sarah\". ;;;*** ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) -;;;;;; "ansi-color" "ansi-color.el" (17843 45609)) +;;;;;; "ansi-color" "ansi-color.el" (17842 58280)) ;;; Generated autoloads from ansi-color.el (autoload (quote ansi-color-for-comint-mode-on) "ansi-color" "\ @@ -906,7 +906,7 @@ This is a good function to put in `comint-output-filter-functions'. ;;;*** ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) -;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17838 18033)) +;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17833 42928)) ;;; Generated autoloads from progmodes/antlr-mode.el (autoload (quote antlr-show-makefile-rules) "antlr-mode" "\ @@ -945,7 +945,7 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. ;;;### (autoloads (appt-activate appt-make-list appt-delete appt-add ;;;;;; appt-display-diary appt-display-duration appt-display-mode-line ;;;;;; appt-msg-window appt-visible appt-audible appt-message-warning-time -;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17953 11485)) +;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17952 17513)) ;;; Generated autoloads from calendar/appt.el (defvar appt-issue-message t "\ @@ -1033,7 +1033,7 @@ ARG is positive, otherwise off. ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-documentation-property ;;;;;; apropos-command apropos-variable apropos-read-pattern) "apropos" -;;;;;; "apropos.el" (17843 45609)) +;;;;;; "apropos.el" (17842 58280)) ;;; Generated autoloads from apropos.el (autoload (quote apropos-read-pattern) "apropos" "\ @@ -1130,7 +1130,7 @@ Returns list of symbols and documentation found. ;;;*** ;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17960 -;;;;;; 114)) +;;;;;; 49045)) ;;; Generated autoloads from arc-mode.el (autoload (quote archive-mode) "arc-mode" "\ @@ -1150,7 +1150,7 @@ archive. ;;;*** -;;;### (autoloads (array-mode) "array" "array.el" (17843 45609)) +;;;### (autoloads (array-mode) "array" "array.el" (17842 58280)) ;;; Generated autoloads from array.el (autoload (quote array-mode) "array" "\ @@ -1221,8 +1221,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17843 -;;;;;; 45629)) +;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17842 +;;;;;; 58277)) ;;; Generated autoloads from textmodes/artist.el (autoload (quote artist-mode) "artist" "\ @@ -1427,8 +1427,8 @@ Keymap summary ;;;*** -;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17843 -;;;;;; 45626)) +;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17842 +;;;;;; 56333)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload (quote asm-mode) "asm-mode" "\ @@ -1456,12 +1456,12 @@ Special commands: ;;;*** ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" -;;;;;; (17843 45609)) +;;;;;; (17842 58280)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ Non-nil if Autoarg mode is enabled. -See the command `autoarg-mode' for a description of this minor-mode.") +See the command `autoarg-mode' for a description of this minor mode.") (custom-autoload (quote autoarg-mode) "autoarg" nil) @@ -1489,7 +1489,7 @@ then invokes the normal binding of \\[autoarg-terminate]. (defvar autoarg-kp-mode nil "\ Non-nil if Autoarg-Kp mode is enabled. -See the command `autoarg-kp-mode' for a description of this minor-mode. +See the command `autoarg-kp-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `autoarg-kp-mode'.") @@ -1510,7 +1510,7 @@ etc. to supply digit arguments. ;;;*** ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" -;;;;;; (17843 45626)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/autoconf.el (autoload (quote autoconf-mode) "autoconf" "\ @@ -1521,7 +1521,7 @@ Major mode for editing Autoconf configure.in files. ;;;*** ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) -;;;;;; "autoinsert" "autoinsert.el" (17843 45609)) +;;;;;; "autoinsert" "autoinsert.el" (17842 58280)) ;;; Generated autoloads from autoinsert.el (autoload (quote auto-insert) "autoinsert" "\ @@ -1539,7 +1539,7 @@ or if CONDITION had no actions, after all other CONDITIONs. (defvar auto-insert-mode nil "\ Non-nil if Auto-Insert mode is enabled. -See the command `auto-insert-mode' for a description of this minor-mode. +See the command `auto-insert-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `auto-insert-mode'.") @@ -1560,7 +1560,7 @@ insert a template for the file depending on the mode of the buffer. ;;;### (autoloads (batch-update-autoloads update-directory-autoloads ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" -;;;;;; (17939 56021)) +;;;;;; (17860 50557)) ;;; Generated autoloads from emacs-lisp/autoload.el (autoload (quote update-file-autoloads) "autoload" "\ @@ -1595,7 +1595,7 @@ Calls `update-directory-autoloads' on the command line arguments. ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode ;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) -;;;;;; "autorevert" "autorevert.el" (17939 56016)) +;;;;;; "autorevert" "autorevert.el" (17925 15265)) ;;; Generated autoloads from autorevert.el (autoload (quote auto-revert-mode) "autorevert" "\ @@ -1645,7 +1645,7 @@ This function is designed to be added to hooks, for example: (defvar global-auto-revert-mode nil "\ Non-nil if Global-Auto-Revert mode is enabled. -See the command `global-auto-revert-mode' for a description of this minor-mode. +See the command `global-auto-revert-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-auto-revert-mode'.") @@ -1664,7 +1664,7 @@ Use `auto-revert-mode' to revert a particular buffer. ;;;*** ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" -;;;;;; "avoid.el" (17843 45609)) +;;;;;; "avoid.el" (17842 58280)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1705,7 +1705,7 @@ definition of \"random distance\".) ;;;*** ;;;### (autoloads (backquote) "backquote" "emacs-lisp/backquote.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/backquote.el (autoload (quote backquote) "backquote" "\ @@ -1730,7 +1730,7 @@ Vectors work just like lists. Nested backquotes are permitted. ;;;*** ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" -;;;;;; (17843 45609)) +;;;;;; (17842 58280)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1743,7 +1743,7 @@ The text being displayed in the echo area is controlled by the variables (defvar display-battery-mode nil "\ Non-nil if Display-Battery mode is enabled. -See the command `display-battery-mode' for a description of this minor-mode. +See the command `display-battery-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `display-battery-mode'.") @@ -1762,7 +1762,7 @@ seconds. ;;;*** ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) -;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17843 45615)) +;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload (quote benchmark-run) "benchmark" "\ @@ -1795,7 +1795,7 @@ non-interactive use see also `benchmark-run' and ;;;*** ;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17956 -;;;;;; 60684)) +;;;;;; 21270)) ;;; Generated autoloads from textmodes/bibtex.el (autoload (quote bibtex-mode) "bibtex" "\ @@ -1857,7 +1857,7 @@ if that value is non-nil. ;;;### (autoloads (binhex-decode-region binhex-decode-region-external ;;;;;; binhex-decode-region-internal) "binhex" "gnus/binhex.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/binhex.el (defconst binhex-begin-line "^:...............................................................$") @@ -1880,8 +1880,8 @@ Binhex decode region between START and END. ;;;*** -;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17843 -;;;;;; 45625)) +;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17842 +;;;;;; 55395)) ;;; Generated autoloads from play/blackbox.el (autoload (quote blackbox) "blackbox" "\ @@ -2003,7 +2003,7 @@ a reflection. ;;;### (autoloads (bookmark-bmenu-list bookmark-load bookmark-save ;;;;;; bookmark-write bookmark-delete bookmark-insert bookmark-rename ;;;;;; bookmark-insert-location bookmark-relocate bookmark-jump -;;;;;; bookmark-set) "bookmark" "bookmark.el" (17843 45609)) +;;;;;; bookmark-set) "bookmark" "bookmark.el" (17842 58280)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-map "rb" 'bookmark-jump) (define-key ctl-x-map "rm" 'bookmark-set) @@ -2193,7 +2193,7 @@ deletion, or > if it is flagged for displaying. ;;;;;; browse-url browse-url-of-region browse-url-of-dired-file ;;;;;; browse-url-of-buffer browse-url-of-file browse-url-url-at-point ;;;;;; browse-url-galeon-program browse-url-firefox-program browse-url-browser-function) -;;;;;; "browse-url" "net/browse-url.el" (17843 45624)) +;;;;;; "browse-url" "net/browse-url.el" (17842 55218)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function (cond ((memq system-type (quote (windows-nt ms-dos cygwin))) (quote browse-url-default-windows-browser)) ((memq system-type (quote (darwin))) (quote browse-url-default-macosx-browser)) (t (quote browse-url-default-browser))) "\ @@ -2524,8 +2524,8 @@ Default to the URL around or before point. ;;;*** -;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17843 -;;;;;; 45625)) +;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17842 +;;;;;; 55395)) ;;; Generated autoloads from play/bruce.el (autoload (quote bruce) "bruce" "\ @@ -2541,7 +2541,7 @@ Return a vector containing the lines from `bruce-phrases-file'. ;;;*** ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) -;;;;;; "bs" "bs.el" (17843 45609)) +;;;;;; "bs" "bs.el" (17842 58280)) ;;; Generated autoloads from bs.el (autoload (quote bs-cycle-next) "bs" "\ @@ -2582,8 +2582,8 @@ name of buffer configuration. ;;;*** ;;;### (autoloads (insert-text-button make-text-button insert-button -;;;;;; make-button define-button-type) "button" "button.el" (17970 -;;;;;; 17147)) +;;;;;; make-button define-button-type) "button" "button.el" (17992 +;;;;;; 30877)) ;;; Generated autoloads from button.el (defvar button-map (let ((map (make-sparse-keymap))) (define-key map " " (quote push-button)) (define-key map [mouse-2] (quote push-button)) map) "\ @@ -2671,7 +2671,7 @@ Also see `make-text-button'. ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile ;;;;;; compile-defun byte-compile-file byte-recompile-directory ;;;;;; byte-force-recompile byte-compile-warnings-safe-p) "bytecomp" -;;;;;; "emacs-lisp/bytecomp.el" (17949 5807)) +;;;;;; "emacs-lisp/bytecomp.el" (17949 41467)) ;;; Generated autoloads from emacs-lisp/bytecomp.el (put 'byte-compile-dynamic 'safe-local-variable 'booleanp) (put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) @@ -2777,7 +2777,7 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17956 60684)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17956 13479)) ;;; Generated autoloads from calendar/cal-dst.el (put (quote calendar-daylight-savings-starts) (quote risky-local-variable) t) @@ -2787,7 +2787,7 @@ and corresponding effects. ;;;*** ;;;### (autoloads (list-yahrzeit-dates) "cal-hebrew" "calendar/cal-hebrew.el" -;;;;;; (17956 60684)) +;;;;;; (17956 13479)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload (quote list-yahrzeit-dates) "cal-hebrew" "\ @@ -2802,7 +2802,7 @@ from the cursor position. ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle ;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc ;;;;;; full-calc calc calc-dispatch calc-settings-file) "calc" "calc/calc.el" -;;;;;; (17966 9916)) +;;;;;; (17965 11665)) ;;; Generated autoloads from calc/calc.el (defvar calc-settings-file (convert-standard-filename "~/.calc.el") "\ @@ -2880,8 +2880,8 @@ Not documented ;;;*** -;;;### (autoloads (calculator) "calculator" "calculator.el" (17939 -;;;;;; 56016)) +;;;### (autoloads (calculator) "calculator" "calculator.el" (17870 +;;;;;; 28179)) ;;; Generated autoloads from calculator.el (autoload (quote calculator) "calculator" "\ @@ -2909,7 +2909,7 @@ See the documentation for `calculator-mode' for more information. ;;;;;; mark-holidays-in-calendar view-calendar-holidays-initially ;;;;;; calendar-remove-frame-by-deleting mark-diary-entries-in-calendar ;;;;;; view-diary-entries-initially calendar-offset) "calendar" -;;;;;; "calendar/calendar.el" (17956 60684)) +;;;;;; "calendar/calendar.el" (17956 13479)) ;;; Generated autoloads from calendar/calendar.el (defvar calendar-offset 0 "\ @@ -3482,7 +3482,7 @@ movement commands will not work correctly.") ;;;*** ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" -;;;;;; "gnus/canlock.el" (17843 45616)) +;;;;;; "gnus/canlock.el" (17842 54741)) ;;; Generated autoloads from gnus/canlock.el (autoload (quote canlock-insert-header) "canlock" "\ @@ -3499,15 +3499,15 @@ it fails. ;;;*** -;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (17958 -;;;;;; 39758)) +;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (17842 +;;;;;; 56333)) ;;; Generated autoloads from progmodes/cc-compat.el (put 'c-indent-level 'safe-local-variable 'integerp) ;;;*** ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" -;;;;;; (17958 39759)) +;;;;;; (17942 63381)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload (quote c-guess-basic-syntax) "cc-engine" "\ @@ -3519,7 +3519,7 @@ Return the syntactic context of the current line. ;;;### (autoloads (pike-mode idl-mode java-mode objc-mode c++-mode ;;;;;; c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" -;;;;;; (17988 52353)) +;;;;;; (17992 30878)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload (quote c-initialize-cc-mode) "cc-mode" "\ @@ -3677,7 +3677,7 @@ Key bindings: ;;;*** ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" -;;;;;; "progmodes/cc-styles.el" (17958 39759)) +;;;;;; "progmodes/cc-styles.el" (17842 56333)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload (quote c-set-style) "cc-styles" "\ @@ -3728,14 +3728,14 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "cc-subword" "progmodes/cc-subword.el" (17958 -;;;;;; 39759)) +;;;### (autoloads nil "cc-subword" "progmodes/cc-subword.el" (17949 +;;;;;; 41467)) ;;; Generated autoloads from progmodes/cc-subword.el (autoload 'c-subword-mode "cc-subword" "Mode enabling subword movement and editing keys." t) ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (17958 39759)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (17941 38806)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -3745,7 +3745,7 @@ and exists only for compatibility reasons. ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" -;;;;;; (17843 45618)) +;;;;;; (17842 54888)) ;;; Generated autoloads from international/ccl.el (autoload (quote ccl-compile) "ccl" "\ @@ -4004,7 +4004,7 @@ See the documentation of `define-ccl-program' for the detail of CCL program. ;;;*** ;;;### (autoloads (cfengine-mode) "cfengine" "progmodes/cfengine.el" -;;;;;; (17843 45627)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/cfengine.el (autoload (quote cfengine-mode) "cfengine" "\ @@ -4026,7 +4026,7 @@ to the action header. ;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer ;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive ;;;;;; checkdoc-interactive checkdoc) "checkdoc" "emacs-lisp/checkdoc.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/checkdoc.el (autoload (quote checkdoc) "checkdoc" "\ @@ -4209,8 +4209,8 @@ checking of documentation strings. ;;;*** ;;;### (autoloads (encode-hz-buffer encode-hz-region decode-hz-buffer -;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17843 -;;;;;; 45620)) +;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from language/china-util.el (autoload (quote decode-hz-region) "china-util" "\ @@ -4238,7 +4238,7 @@ Encode the text in the current buffer to HZ. ;;;*** ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) -;;;;;; "chistory" "chistory.el" (17843 45609)) +;;;;;; "chistory" "chistory.el" (17842 58280)) ;;; Generated autoloads from chistory.el (autoload (quote repeat-matching-complex-command) "chistory" "\ @@ -4277,7 +4277,7 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17843 45615)) +;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/cl.el (defvar custom-print-functions nil "\ @@ -4293,7 +4293,7 @@ a future Emacs interpreter will be able to use it.") ;;;*** ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload (quote common-lisp-indent-function) "cl-indent" "\ @@ -4304,7 +4304,7 @@ Not documented ;;;*** ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" -;;;;;; (17843 45627)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload (quote c-macro-expand) "cmacexp" "\ @@ -4324,8 +4324,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17843 -;;;;;; 45609)) +;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17842 +;;;;;; 58280)) ;;; Generated autoloads from cmuscheme.el (autoload (quote run-scheme) "cmuscheme" "\ @@ -4347,7 +4347,7 @@ is run). ;;;*** ;;;### (autoloads (cp-make-coding-system) "code-pages" "international/code-pages.el" -;;;;;; (17843 45618)) +;;;;;; (17842 54888)) ;;; Generated autoloads from international/code-pages.el (autoload (quote cp-make-coding-system) "code-pages" "\ @@ -4408,7 +4408,7 @@ Return an updated `non-iso-charset-alist'. ;;;### (autoloads (codepage-setup cp-supported-codepages cp-offset-for-codepage ;;;;;; cp-language-for-codepage cp-charset-for-codepage cp-make-coding-systems-for-codepage) -;;;;;; "codepage" "international/codepage.el" (17843 45618)) +;;;;;; "codepage" "international/codepage.el" (17842 54888)) ;;; Generated autoloads from international/codepage.el (autoload (quote cp-make-coding-systems-for-codepage) "codepage" "\ @@ -4467,7 +4467,7 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal. ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list ;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command ;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" -;;;;;; (17939 56016)) +;;;;;; (17937 3189)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions (quote (comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)) "\ @@ -4557,8 +4557,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17939 -;;;;;; 56016)) +;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17926 +;;;;;; 45410)) ;;; Generated autoloads from compare-w.el (autoload (quote compare-windows) "compare-w" "\ @@ -4595,7 +4595,7 @@ on third call it again advances points to the next difference and so on. ;;;;;; compilation-shell-minor-mode compilation-mode compilation-start ;;;;;; compile compilation-disable-input compile-command compilation-search-path ;;;;;; compilation-ask-about-save compilation-window-height compilation-mode-hook) -;;;;;; "compile" "progmodes/compile.el" (17996 37926)) +;;;;;; "compile" "progmodes/compile.el" (18006 55797)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4758,12 +4758,12 @@ This is the value of `next-error-function' in Compilation buffers. ;;;*** ;;;### (autoloads (partial-completion-mode) "complete" "complete.el" -;;;;;; (17953 25415)) +;;;;;; (17954 15344)) ;;; Generated autoloads from complete.el (defvar partial-completion-mode nil "\ Non-nil if Partial-Completion mode is enabled. -See the command `partial-completion-mode' for a description of this minor-mode. +See the command `partial-completion-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `partial-completion-mode'.") @@ -4800,12 +4800,12 @@ second TAB brings up the `*Completions*' buffer. ;;;*** ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" -;;;;;; (17843 45609)) +;;;;;; (17842 58280)) ;;; Generated autoloads from completion.el (defvar dynamic-completion-mode nil "\ Non-nil if Dynamic-Completion mode is enabled. -See the command `dynamic-completion-mode' for a description of this minor-mode. +See the command `dynamic-completion-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `dynamic-completion-mode'.") @@ -4822,7 +4822,7 @@ Enable dynamic word-completion. ;;;### (autoloads (decompose-composite-char compose-last-chars compose-chars-after ;;;;;; find-composition compose-chars decompose-string compose-string ;;;;;; decompose-region compose-region encode-composition-rule) -;;;;;; "composite" "composite.el" (17843 45609)) +;;;;;; "composite" "composite.el" (17842 58280)) ;;; Generated autoloads from composite.el (defconst reference-point-alist (quote ((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5))) "\ @@ -5044,7 +5044,7 @@ Optional 3rd arg WITH-COMPOSITION-RULE is ignored. ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode ;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode ;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el" -;;;;;; (17843 45630)) +;;;;;; (17842 58277)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload (quote conf-mode) "conf-mode" "\ @@ -5200,7 +5200,7 @@ For details see `conf-mode'. Example: ;;;*** ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) -;;;;;; "cookie1" "play/cookie1.el" (17843 45625)) +;;;;;; "cookie1" "play/cookie1.el" (17842 55395)) ;;; Generated autoloads from play/cookie1.el (autoload (quote cookie) "cookie1" "\ @@ -5232,7 +5232,7 @@ Randomly permute the elements of VECTOR (all permutations equally likely). ;;;*** ;;;### (autoloads (copyright copyright-fix-years copyright-update) -;;;;;; "copyright" "emacs-lisp/copyright.el" (17843 45615)) +;;;;;; "copyright" "emacs-lisp/copyright.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/copyright.el (autoload (quote copyright-update) "copyright" "\ @@ -5260,7 +5260,7 @@ Insert a copyright by $ORGANIZATION notice at cursor. ;;;*** ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) -;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (17955 48757)) +;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (17955 36604)) ;;; Generated autoloads from progmodes/cperl-mode.el (autoload (quote cperl-mode) "cperl-mode" "\ @@ -5451,7 +5451,7 @@ Run a `perldoc' on the word around point. ;;;*** ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" -;;;;;; (17843 45627)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/cpp.el (autoload (quote cpp-highlight-buffer) "cpp" "\ @@ -5470,7 +5470,7 @@ Edit display information for cpp conditionals. ;;;*** ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54264)) ;;; Generated autoloads from emulation/crisp.el (defvar crisp-mode nil "\ @@ -5494,7 +5494,7 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise. ;;;*** ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload (quote completing-read-multiple) "crm" "\ @@ -5530,12 +5530,12 @@ INHERIT-INPUT-METHOD. ;;;*** ;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" -;;;;;; (17939 56021)) +;;;;;; (17888 45995)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ Non-nil if Cua mode is enabled. -See the command `cua-mode' for a description of this minor-mode. +See the command `cua-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `cua-mode'.") @@ -5598,7 +5598,7 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. ;;;;;; customize-mode customize customize-save-variable customize-set-variable ;;;;;; customize-set-value custom-menu-sort-alphabetically custom-buffer-sort-alphabetically ;;;;;; custom-browse-sort-alphabetically) "cus-edit" "cus-edit.el" -;;;;;; (17951 39252)) +;;;;;; (17952 11093)) ;;; Generated autoloads from cus-edit.el (defvar custom-browse-sort-alphabetically nil "\ @@ -5896,7 +5896,7 @@ The format is suitable for use with `easy-menu-define'. ;;;*** ;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-set-faces -;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17843 45609)) +;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17842 58280)) ;;; Generated autoloads from cus-face.el (autoload (quote custom-declare-face) "cus-face" "\ @@ -5966,7 +5966,7 @@ This means reset FACE to its value in FROM-THEME. ;;;*** ;;;### (autoloads (customize-create-theme) "cus-theme" "cus-theme.el" -;;;;;; (17843 45609)) +;;;;;; (17842 58280)) ;;; Generated autoloads from cus-theme.el (autoload (quote customize-create-theme) "cus-theme" "\ @@ -5977,7 +5977,7 @@ Create a custom theme. ;;;*** ;;;### (autoloads (cvs-status-mode) "cvs-status" "cvs-status.el" -;;;;;; (17843 45609)) +;;;;;; (17842 58280)) ;;; Generated autoloads from cvs-status.el (autoload (quote cvs-status-mode) "cvs-status" "\ @@ -5988,7 +5988,7 @@ Mode used for cvs status output. ;;;*** ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) -;;;;;; "cwarn" "progmodes/cwarn.el" (17939 56022)) +;;;;;; "cwarn" "progmodes/cwarn.el" (17860 50532)) ;;; Generated autoloads from progmodes/cwarn.el (autoload (quote cwarn-mode) "cwarn" "\ @@ -6012,7 +6012,7 @@ This function is designed to be added to hooks, for example: (defvar global-cwarn-mode nil "\ Non-nil if Global-Cwarn mode is enabled. -See the command `global-cwarn-mode' for a description of this minor-mode. +See the command `global-cwarn-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-cwarn-mode'.") @@ -6020,10 +6020,10 @@ or call the function `global-cwarn-mode'.") (custom-autoload (quote global-cwarn-mode) "cwarn" nil) (autoload (quote global-cwarn-mode) "cwarn" "\ -Toggle Cwarn mode in every buffer. +Toggle Cwarn mode in every possible buffer. With prefix ARG, turn Global-Cwarn mode on if and only if ARG is positive. -Cwarn mode is actually not turned on in every buffer but only in those -in which `turn-on-cwarn-mode-if-enabled' turns it on. +Cwarn mode is enabled in all buffers where `turn-on-cwarn-mode-if-enabled' would do it. +See `cwarn-mode' for more information on Cwarn mode. \(fn &optional ARG)" t nil) @@ -6031,7 +6031,7 @@ in which `turn-on-cwarn-mode-if-enabled' turns it on. ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char ;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" -;;;;;; (17843 45620)) +;;;;;; (17842 58278)) ;;; Generated autoloads from language/cyril-util.el (autoload (quote cyrillic-encode-koi8-r-char) "cyril-util" "\ @@ -6060,7 +6060,7 @@ If the argument is nil, we return the display table to its standard state. ;;;*** ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" -;;;;;; (17995 6542)) +;;;;;; (18006 55794)) ;;; Generated autoloads from dabbrev.el (define-key esc-map "/" 'dabbrev-expand) (define-key esc-map [?\C-/] 'dabbrev-completion) @@ -6104,8 +6104,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. ;;;*** -;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17947 -;;;;;; 44454)) +;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17949 +;;;;;; 41468)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload (quote dcl-mode) "dcl-mode" "\ @@ -6232,7 +6232,7 @@ There is some minimal font-lock support (see vars ;;;*** ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" -;;;;;; "emacs-lisp/debug.el" (17843 45615)) +;;;;;; "emacs-lisp/debug.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger (quote debug)) @@ -6276,7 +6276,7 @@ To specify a nil argument interactively, exit with an empty minibuffer. ;;;*** ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" -;;;;;; (17843 45625)) +;;;;;; (17842 55395)) ;;; Generated autoloads from play/decipher.el (autoload (quote decipher) "decipher" "\ @@ -6305,8 +6305,8 @@ The most useful commands are: ;;;*** ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region -;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17843 -;;;;;; 45609)) +;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17842 +;;;;;; 58280)) ;;; Generated autoloads from delim-col.el (autoload (quote delimit-columns-customize) "delim-col" "\ @@ -6330,8 +6330,8 @@ START and END delimits the corners of text rectangle. ;;;*** -;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17843 -;;;;;; 45627)) +;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17842 +;;;;;; 56333)) ;;; Generated autoloads from progmodes/delphi.el (autoload (quote delphi-mode) "delphi" "\ @@ -6381,15 +6381,15 @@ no args, if that value is non-nil. ;;;*** -;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17843 -;;;;;; 45609)) +;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17842 +;;;;;; 58280)) ;;; Generated autoloads from delsel.el (defalias (quote pending-delete-mode) (quote delete-selection-mode)) (defvar delete-selection-mode nil "\ Non-nil if Delete-Selection mode is enabled. -See the command `delete-selection-mode' for a description of this minor-mode. +See the command `delete-selection-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `delete-selection-mode'.") @@ -6411,7 +6411,7 @@ any selection. ;;;*** ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) -;;;;;; "derived" "emacs-lisp/derived.el" (17843 45615)) +;;;;;; "derived" "emacs-lisp/derived.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload (quote define-derived-mode) "derived" "\ @@ -6476,7 +6476,7 @@ the first time the mode is used. ;;;*** ;;;### (autoloads (describe-char describe-text-properties) "descr-text" -;;;;;; "descr-text.el" (17939 56016)) +;;;;;; "descr-text.el" (17874 62047)) ;;; Generated autoloads from descr-text.el (autoload (quote describe-text-properties) "descr-text" "\ @@ -6502,12 +6502,12 @@ as well as widgets, buttons, overlays, and text properties. ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir ;;;;;; desktop-load-default desktop-read desktop-remove desktop-save ;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop" -;;;;;; "desktop.el" (17949 5807)) +;;;;;; "desktop.el" (17949 41467)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ Non-nil if Desktop-Save mode is enabled. -See the command `desktop-save-mode' for a description of this minor-mode.") +See the command `desktop-save-mode' for a description of this minor mode.") (custom-autoload (quote desktop-save-mode) "desktop" nil) @@ -6685,7 +6685,7 @@ Revert to the last loaded desktop. ;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article ;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines) -;;;;;; "deuglify" "gnus/deuglify.el" (17843 45616)) +;;;;;; "deuglify" "gnus/deuglify.el" (17842 54741)) ;;; Generated autoloads from gnus/deuglify.el (autoload (quote gnus-article-outlook-unwrap-lines) "deuglify" "\ @@ -6718,7 +6718,7 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** ;;;### (autoloads (devanagari-post-read-conversion devanagari-compose-region) -;;;;;; "devan-util" "language/devan-util.el" (17843 45620)) +;;;;;; "devan-util" "language/devan-util.el" (17842 58278)) ;;; Generated autoloads from language/devan-util.el (defconst devanagari-consonant "[\x51ad5-\x51af9\x51b38-\x51b3f]") @@ -6736,7 +6736,7 @@ Not documented ;;;*** ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" -;;;;;; "calendar/diary-lib.el" (17958 15315)) +;;;;;; "calendar/diary-lib.el" (17958 11887)) ;;; Generated autoloads from calendar/diary-lib.el (autoload (quote diary) "diary-lib" "\ @@ -6782,7 +6782,7 @@ Major mode for editing the diary file. ;;;*** ;;;### (autoloads (diff-backup diff diff-command diff-switches) "diff" -;;;;;; "diff.el" (17843 45609)) +;;;;;; "diff.el" (17992 30877)) ;;; Generated autoloads from diff.el (defvar diff-switches "-c" "\ @@ -6816,7 +6816,7 @@ With prefix arg, prompt for diff switches. ;;;*** ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "diff-mode.el" -;;;;;; (17942 38318)) +;;;;;; (17992 30877)) ;;; Generated autoloads from diff-mode.el (autoload (quote diff-mode) "diff-mode" "\ @@ -6848,7 +6848,7 @@ Minor mode for viewing/editing context diffs. ;;;;;; dired dired-copy-preserve-time dired-dwim-target dired-keep-marker-symlink ;;;;;; dired-keep-marker-hardlink dired-keep-marker-copy dired-keep-marker-rename ;;;;;; dired-trivial-filenames dired-ls-F-marks-symlinks dired-listing-switches) -;;;;;; "dired" "dired.el" (17995 6542)) +;;;;;; "dired" "dired.el" (18015 32019)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches "-al" "\ @@ -7053,7 +7053,7 @@ Keybindings: ;;;;;; dired-run-shell-command dired-do-shell-command dired-clean-directory ;;;;;; dired-do-print dired-do-touch dired-do-chown dired-do-chgrp ;;;;;; dired-do-chmod dired-compare-directories dired-backup-diff -;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17939 56016)) +;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17859 20444)) ;;; Generated autoloads from dired-aux.el (autoload (quote dired-diff) "dired-aux" "\ @@ -7468,7 +7468,7 @@ true then the type of the file linked to by FILE is printed instead. ;;;*** ;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el" -;;;;;; (17988 52353)) +;;;;;; (17992 30877)) ;;; Generated autoloads from dired-x.el (autoload (quote dired-jump) "dired-x" "\ @@ -7497,7 +7497,7 @@ For absolute symlinks, use \\[dired-do-symlink]. ;;;*** -;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17843 45609)) +;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17842 58280)) ;;; Generated autoloads from dirtrack.el (autoload (quote dirtrack) "dirtrack" "\ @@ -7516,8 +7516,8 @@ You can enable directory tracking by adding this function to ;;;*** -;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17843 -;;;;;; 45615)) +;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17842 +;;;;;; 54152)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload (quote disassemble) "disass" "\ @@ -7536,7 +7536,7 @@ redefine OBJECT if it is a symbol. ;;;;;; standard-display-g1 standard-display-ascii standard-display-default ;;;;;; standard-display-8bit describe-current-display-table describe-display-table ;;;;;; set-display-table-slot display-table-slot make-display-table) -;;;;;; "disp-table" "disp-table.el" (17939 56016)) +;;;;;; "disp-table" "disp-table.el" (17874 62056)) ;;; Generated autoloads from disp-table.el (autoload (quote make-display-table) "disp-table" "\ @@ -7652,7 +7652,7 @@ for users who call this function in `.emacs'. ;;;*** ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" -;;;;;; (17941 5494)) +;;;;;; (17941 38806)) ;;; Generated autoloads from play/dissociate.el (autoload (quote dissociated-press) "dissociate" "\ @@ -7668,7 +7668,7 @@ Default is 2. ;;;*** -;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17950 27944)) +;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17949 41467)) ;;; Generated autoloads from dnd.el (defvar dnd-protocol-alist (quote (("^file:///" . dnd-open-local-file) ("^file://" . dnd-open-file) ("^file:" . dnd-open-local-file) ("^\\(https?\\|ftp\\|file\\|nfs\\)://" . dnd-open-file))) "\ @@ -7689,7 +7689,7 @@ if some action was made, or nil if the URL is ignored.") ;;;*** ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" -;;;;;; "textmodes/dns-mode.el" (17843 45630)) +;;;;;; "textmodes/dns-mode.el" (17842 58277)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload (quote dns-mode) "dns-mode" "\ @@ -7713,7 +7713,7 @@ Locate SOA record and increment the serial field. ;;;*** -;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17941 5494)) +;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17941 38806)) ;;; Generated autoloads from play/doctor.el (autoload (quote doctor) "doctor" "\ @@ -7724,7 +7724,7 @@ Switch to *doctor* buffer and start giving psychotherapy. ;;;*** ;;;### (autoloads (double-mode double-mode) "double" "double.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58280)) ;;; Generated autoloads from double.el (defvar double-mode nil "\ @@ -7745,7 +7745,7 @@ when pressed twice. See variable `double-map' for details. ;;;*** -;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17843 45625)) +;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17842 55395)) ;;; Generated autoloads from play/dunnet.el (autoload (quote dunnet) "dunnet" "\ @@ -7756,7 +7756,7 @@ Switch to *dungeon* buffer and start game. ;;;*** ;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/earcon.el (autoload (quote gnus-earcon-display) "earcon" "\ @@ -7768,7 +7768,7 @@ Play sounds in message buffers. ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap ;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode" -;;;;;; "emacs-lisp/easy-mmode.el" (17988 52353)) +;;;;;; "emacs-lisp/easy-mmode.el" (17992 30878)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode)) @@ -7862,8 +7862,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). ;;;*** ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define -;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17843 -;;;;;; 45615)) +;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17842 +;;;;;; 54152)) ;;; Generated autoloads from emacs-lisp/easymenu.el (put (quote easy-menu-define) (quote lisp-indent-function) (quote defun)) @@ -8012,7 +8012,7 @@ To implement dynamic menus, either call this from ;;;;;; ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer ebnf-spool-file ;;;;;; ebnf-spool-directory ebnf-print-region ebnf-print-buffer ;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" -;;;;;; "progmodes/ebnf2ps.el" (17951 39252)) +;;;;;; "progmodes/ebnf2ps.el" (17952 11093)) ;;; Generated autoloads from progmodes/ebnf2ps.el (autoload (quote ebnf-customize) "ebnf2ps" "\ @@ -8279,8 +8279,8 @@ See `ebnf-style-database' documentation. ;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition ;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration ;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree -;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17827 -;;;;;; 37447)) +;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17821 +;;;;;; 5918)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload (quote ebrowse-tree-mode) "ebrowse" "\ @@ -8431,7 +8431,7 @@ Display statistics for a class tree. ;;;*** ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58280)) ;;; Generated autoloads from ebuff-menu.el (autoload (quote electric-buffer-list) "ebuff-menu" "\ @@ -8456,7 +8456,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. ;;;*** ;;;### (autoloads (Electric-command-history-redo-expression) "echistory" -;;;;;; "echistory.el" (17843 45610)) +;;;;;; "echistory.el" (17842 58280)) ;;; Generated autoloads from echistory.el (autoload (quote Electric-command-history-redo-expression) "echistory" "\ @@ -8469,7 +8469,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form ;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug" -;;;;;; "emacs-lisp/edebug.el" (17951 39252)) +;;;;;; "emacs-lisp/edebug.el" (17952 11093)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ @@ -8542,7 +8542,7 @@ Toggle edebugging of all forms. ;;;;;; ediff-merge-directory-revisions ediff-merge-directories-with-ancestor ;;;;;; ediff-merge-directories ediff-directories3 ediff-directory-revisions ;;;;;; ediff-directories ediff-buffers3 ediff-buffers ediff-backup -;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17939 56017)) +;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17846 30361)) ;;; Generated autoloads from ediff.el (autoload (quote ediff-files) "ediff" "\ @@ -8774,7 +8774,7 @@ With optional NODE, goes to that node. ;;;*** ;;;### (autoloads (ediff-customize) "ediff-help" "ediff-help.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58280)) ;;; Generated autoloads from ediff-help.el (autoload (quote ediff-customize) "ediff-help" "\ @@ -8784,7 +8784,7 @@ Not documented ;;;*** -;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17843 45610)) +;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17842 58280)) ;;; Generated autoloads from ediff-hook.el (defvar ediff-window-setup-function) @@ -8797,7 +8797,7 @@ Not documented ;;;*** ;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff-mult.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from ediff-mult.el (autoload (quote ediff-show-registry) "ediff-mult" "\ @@ -8810,7 +8810,7 @@ Display Ediff's registry. ;;;*** ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) -;;;;;; "ediff-util" "ediff-util.el" (17939 56016)) +;;;;;; "ediff-util" "ediff-util.el" (17846 30361)) ;;; Generated autoloads from ediff-util.el (autoload (quote ediff-toggle-multiframe) "ediff-util" "\ @@ -8831,7 +8831,7 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro ;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from edmacro.el (defvar edmacro-eight-bits nil "\ @@ -8884,7 +8884,7 @@ or nil, use a compact 80-column format. ;;;*** ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" -;;;;;; "emulation/edt.el" (17843 45615)) +;;;;;; "emulation/edt.el" (17842 54264)) ;;; Generated autoloads from emulation/edt.el (autoload (quote edt-set-scroll-margins) "edt" "\ @@ -8902,7 +8902,7 @@ Turn on EDT Emulation. ;;;*** ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" -;;;;;; (17939 56017)) +;;;;;; (17873 45892)) ;;; Generated autoloads from ehelp.el (autoload (quote with-electric-help) "ehelp" "\ @@ -8939,7 +8939,7 @@ Not documented ;;;*** ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) -;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17988 52353)) +;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17992 30878)) ;;; Generated autoloads from emacs-lisp/eldoc.el (defvar eldoc-minor-mode-string " ElDoc" "\ @@ -8977,8 +8977,8 @@ Emacs Lisp mode) that support Eldoc.") ;;;*** -;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17843 -;;;;;; 45610)) +;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from elide-head.el (autoload (quote elide-head) "elide-head" "\ @@ -8994,7 +8994,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. ;;;*** ;;;### (autoloads (elint-initialize) "elint" "emacs-lisp/elint.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload (quote elint-initialize) "elint" "\ @@ -9005,8 +9005,8 @@ Initialize elint. ;;;*** ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list -;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17843 -;;;;;; 45615)) +;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17842 +;;;;;; 54152)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload (quote elp-instrument-function) "elp" "\ @@ -9040,7 +9040,7 @@ displayed. ;;;*** ;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el" -;;;;;; (17939 56022)) +;;;;;; (17907 23437)) ;;; Generated autoloads from mail/emacsbug.el (autoload (quote report-emacs-bug) "emacsbug" "\ @@ -9133,12 +9133,12 @@ Not documented ;;;*** ;;;### (autoloads (encoded-kbd-mode) "encoded-kb" "international/encoded-kb.el" -;;;;;; (17843 45618)) +;;;;;; (17842 54888)) ;;; Generated autoloads from international/encoded-kb.el (defvar encoded-kbd-mode nil "\ Non-nil if Encoded-Kbd mode is enabled. -See the command `encoded-kbd-mode' for a description of this minor-mode. +See the command `encoded-kbd-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `encoded-kbd-mode'.") @@ -9162,7 +9162,7 @@ as a multilingual text encoded in a coding system set by ;;;*** ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) -;;;;;; "enriched" "textmodes/enriched.el" (17843 45630)) +;;;;;; "enriched" "textmodes/enriched.el" (17842 58277)) ;;; Generated autoloads from textmodes/enriched.el (autoload (quote enriched-mode) "enriched" "\ @@ -9193,7 +9193,7 @@ Not documented ;;;*** ;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" -;;;;;; "erc/erc.el" (17939 56021)) +;;;;;; "erc/erc.el" (17935 53318)) ;;; Generated autoloads from erc/erc.el (autoload (quote erc-select-read-args) "erc" "\ @@ -9235,33 +9235,33 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL. ;;;*** -;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (17939 -;;;;;; 56021)) +;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (17935 +;;;;;; 53318)) ;;; Generated autoloads from erc/erc-autoaway.el (autoload 'erc-autoaway-mode "erc-autoaway") ;;;*** -;;;### (autoloads nil "erc-button" "erc/erc-button.el" (17939 56021)) +;;;### (autoloads nil "erc-button" "erc/erc-button.el" (17935 53318)) ;;; Generated autoloads from erc/erc-button.el (autoload 'erc-button-mode "erc-button" nil t) ;;;*** -;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (17939 56021)) +;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (17935 53318)) ;;; Generated autoloads from erc/erc-capab.el (autoload 'erc-capab-identify-mode "erc-capab" nil t) ;;;*** -;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (17939 56021)) +;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (17935 53318)) ;;; Generated autoloads from erc/erc-compat.el (autoload 'erc-define-minor-mode "erc-compat") ;;;*** ;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC) -;;;;;; "erc-dcc" "erc/erc-dcc.el" (17843 45616)) +;;;;;; "erc-dcc" "erc/erc-dcc.el" (17842 54344)) ;;; Generated autoloads from erc/erc-dcc.el (autoload (quote erc-cmd-DCC) "erc-dcc" "\ @@ -9293,7 +9293,7 @@ that subcommand. ;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list ;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action ;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54344)) ;;; Generated autoloads from erc/erc-ezbounce.el (autoload (quote erc-cmd-ezb) "erc-ezbounce" "\ @@ -9355,8 +9355,8 @@ Add EZBouncer convenience functions to ERC. ;;;*** -;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (17939 -;;;;;; 56021)) +;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (17935 +;;;;;; 53318)) ;;; Generated autoloads from erc/erc-fill.el (autoload 'erc-fill-mode "erc-fill" nil t) @@ -9368,15 +9368,15 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'. ;;;*** -;;;### (autoloads nil "erc-hecomplete" "erc/erc-hecomplete.el" (17843 -;;;;;; 45616)) +;;;### (autoloads nil "erc-hecomplete" "erc/erc-hecomplete.el" (17842 +;;;;;; 54344)) ;;; Generated autoloads from erc/erc-hecomplete.el (autoload 'erc-hecomplete-mode "erc-hecomplete" nil t) ;;;*** ;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd" -;;;;;; "erc/erc-identd.el" (17939 56021)) +;;;;;; "erc/erc-identd.el" (17935 53318)) ;;; Generated autoloads from erc/erc-identd.el (autoload 'erc-identd-mode "erc-identd") @@ -9398,7 +9398,7 @@ Not documented ;;;*** ;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54344)) ;;; Generated autoloads from erc/erc-imenu.el (autoload (quote erc-create-imenu-index) "erc-imenu" "\ @@ -9408,14 +9408,14 @@ Not documented ;;;*** -;;;### (autoloads nil "erc-join" "erc/erc-join.el" (17843 45616)) +;;;### (autoloads nil "erc-join" "erc/erc-join.el" (17842 54344)) ;;; Generated autoloads from erc/erc-join.el (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;*** ;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log" -;;;;;; "erc/erc-log.el" (17939 56021)) +;;;;;; "erc/erc-log.el" (17935 53318)) ;;; Generated autoloads from erc/erc-log.el (autoload 'erc-log-mode "erc-log" nil t) @@ -9447,7 +9447,7 @@ You can save every individual message by putting this function on ;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host ;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool ;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el" -;;;;;; (17939 56021)) +;;;;;; (17935 53318)) ;;; Generated autoloads from erc/erc-match.el (autoload 'erc-match-mode "erc-match") @@ -9493,14 +9493,14 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'. ;;;*** -;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (17939 56021)) +;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (17935 53318)) ;;; Generated autoloads from erc/erc-menu.el (autoload 'erc-menu-mode "erc-menu" nil t) ;;;*** ;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el" -;;;;;; (17939 56021)) +;;;;;; (17935 53318)) ;;; Generated autoloads from erc/erc-netsplit.el (autoload 'erc-netsplit-mode "erc-netsplit") @@ -9512,7 +9512,7 @@ Show who's gone. ;;;*** ;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks" -;;;;;; "erc/erc-networks.el" (17939 56021)) +;;;;;; "erc/erc-networks.el" (17935 53318)) ;;; Generated autoloads from erc/erc-networks.el (autoload (quote erc-determine-network) "erc-networks" "\ @@ -9530,7 +9530,7 @@ Interactively select a server to connect to using `erc-server-alist'. ;;;*** ;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify" -;;;;;; "erc/erc-notify.el" (17939 56021)) +;;;;;; "erc/erc-notify.el" (17935 53318)) ;;; Generated autoloads from erc/erc-notify.el (autoload 'erc-notify-mode "erc-notify" nil t) @@ -9548,33 +9548,33 @@ Not documented ;;;*** -;;;### (autoloads nil "erc-page" "erc/erc-page.el" (17843 45616)) +;;;### (autoloads nil "erc-page" "erc/erc-page.el" (17842 54344)) ;;; Generated autoloads from erc/erc-page.el (autoload 'erc-page-mode "erc-page") ;;;*** -;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (17939 -;;;;;; 56021)) +;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (17935 +;;;;;; 53318)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;*** -;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (17843 45616)) +;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (17842 54344)) ;;; Generated autoloads from erc/erc-replace.el (autoload 'erc-replace-mode "erc-replace") ;;;*** -;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (17939 56021)) +;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (17935 53318)) ;;; Generated autoloads from erc/erc-ring.el (autoload 'erc-ring-mode "erc-ring" nil t) ;;;*** ;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode) -;;;;;; "erc-services" "erc/erc-services.el" (17939 56021)) +;;;;;; "erc-services" "erc/erc-services.el" (17935 53318)) ;;; Generated autoloads from erc/erc-services.el (autoload 'erc-services-mode "erc-services" nil t) @@ -9591,14 +9591,14 @@ When called interactively, read the password using `read-passwd'. ;;;*** -;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (17843 45616)) +;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (17842 54344)) ;;; Generated autoloads from erc/erc-sound.el (autoload 'erc-sound-mode "erc-sound") ;;;*** ;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el" -;;;;;; (17939 56021)) +;;;;;; (17935 53318)) ;;; Generated autoloads from erc/erc-speedbar.el (autoload (quote erc-speedbar-browser) "erc-speedbar" "\ @@ -9609,26 +9609,26 @@ This will add a speedbar major display mode. ;;;*** -;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (17939 -;;;;;; 56021)) +;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (17935 +;;;;;; 53318)) ;;; Generated autoloads from erc/erc-spelling.el (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;*** -;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (17939 56021)) +;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (17935 53318)) ;;; Generated autoloads from erc/erc-stamp.el (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;*** ;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el" -;;;;;; (17939 56021)) +;;;;;; (17935 53318)) ;;; Generated autoloads from erc/erc-track.el (defvar erc-track-minor-mode nil "\ Non-nil if Erc-Track minor mode is enabled. -See the command `erc-track-minor-mode' for a description of this minor-mode.") +See the command `erc-track-minor-mode' for a description of this minor mode.") (custom-autoload (quote erc-track-minor-mode) "erc-track" nil) @@ -9646,7 +9646,7 @@ module, otherwise the keybindings will not do anything useful. ;;;*** ;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size) -;;;;;; "erc-truncate" "erc/erc-truncate.el" (17843 45616)) +;;;;;; "erc-truncate" "erc/erc-truncate.el" (17842 54344)) ;;; Generated autoloads from erc/erc-truncate.el (autoload 'erc-truncate-mode "erc-truncate" nil t) @@ -9666,7 +9666,7 @@ Meant to be used in hooks, like `erc-insert-post-hook'. ;;;*** ;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54344)) ;;; Generated autoloads from erc/erc-xdcc.el (autoload (quote erc-xdcc-add-file) "erc-xdcc" "\ @@ -9676,8 +9676,8 @@ Add a file to `erc-xdcc-files'. ;;;*** -;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17939 -;;;;;; 56021)) +;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17914 +;;;;;; 52082)) ;;; Generated autoloads from eshell/esh-mode.el (autoload (quote eshell-mode) "esh-mode" "\ @@ -9689,8 +9689,8 @@ Emacs shell interactive mode. ;;;*** -;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17843 -;;;;;; 45616)) +;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17842 +;;;;;; 54411)) ;;; Generated autoloads from eshell/esh-test.el (autoload (quote eshell-test) "esh-test" "\ @@ -9701,7 +9701,7 @@ Test Eshell to verify that it works as expected. ;;;*** ;;;### (autoloads (eshell-report-bug eshell-command-result eshell-command -;;;;;; eshell) "eshell" "eshell/eshell.el" (17843 45616)) +;;;;;; eshell) "eshell" "eshell/eshell.el" (17842 54411)) ;;; Generated autoloads from eshell/eshell.el (autoload (quote eshell) "eshell" "\ @@ -9747,7 +9747,7 @@ Please include any configuration details that might be involved. ;;;;;; visit-tags-table tags-table-mode find-tag-default-function ;;;;;; find-tag-hook tags-add-tables tags-compression-info-list ;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" -;;;;;; (17843 45627)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -10049,7 +10049,7 @@ for \\[find-tag] (which see). ;;;;;; ethio-fidel-to-sera-buffer ethio-fidel-to-sera-region ethio-sera-to-fidel-marker ;;;;;; ethio-sera-to-fidel-mail ethio-sera-to-fidel-mail-or-marker ;;;;;; ethio-sera-to-fidel-buffer ethio-sera-to-fidel-region setup-ethiopic-environment-internal) -;;;;;; "ethio-util" "language/ethio-util.el" (17843 45620)) +;;;;;; "ethio-util" "language/ethio-util.el" (17842 58278)) ;;; Generated autoloads from language/ethio-util.el (autoload (quote setup-ethiopic-environment-internal) "ethio-util" "\ @@ -10244,7 +10244,7 @@ Transcribe Ethiopic characters in ASCII depending on the file extension. ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" -;;;;;; (17843 45624)) +;;;;;; (17842 55218)) ;;; Generated autoloads from net/eudc.el (autoload (quote eudc-set-server) "eudc" "\ @@ -10300,7 +10300,7 @@ This does nothing except loading eudc by autoload side-effect. ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline ;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) -;;;;;; "eudc-bob" "net/eudc-bob.el" (17843 45624)) +;;;;;; "eudc-bob" "net/eudc-bob.el" (17842 55218)) ;;; Generated autoloads from net/eudc-bob.el (autoload (quote eudc-display-generic-binary) "eudc-bob" "\ @@ -10336,7 +10336,7 @@ Display a button for the JPEG DATA. ;;;*** ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) -;;;;;; "eudc-export" "net/eudc-export.el" (17843 45624)) +;;;;;; "eudc-export" "net/eudc-export.el" (17842 55218)) ;;; Generated autoloads from net/eudc-export.el (autoload (quote eudc-insert-record-at-point-into-bbdb) "eudc-export" "\ @@ -10353,7 +10353,7 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. ;;;*** ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" -;;;;;; (17843 45624)) +;;;;;; (17842 55218)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload (quote eudc-edit-hotlist) "eudc-hotlist" "\ @@ -10363,8 +10363,8 @@ Edit the hotlist of directory servers in a specialized buffer. ;;;*** -;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (17939 -;;;;;; 56021)) +;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (17933 +;;;;;; 14283)) ;;; Generated autoloads from emacs-lisp/ewoc.el (autoload (quote ewoc-create) "ewoc" "\ @@ -10393,7 +10393,7 @@ fourth arg NOSEP non-nil inhibits this. ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p ;;;;;; executable-self-display executable-set-magic executable-interpret ;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" -;;;;;; (17843 45627)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/executable.el (autoload (quote executable-command-find-posix-p) "executable" "\ @@ -10436,7 +10436,7 @@ file modes. ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot ;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el" -;;;;;; (17939 56017)) +;;;;;; (17925 52793)) ;;; Generated autoloads from expand.el (autoload (quote expand-add-abbrevs) "expand" "\ @@ -10485,7 +10485,7 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17843 45627)) +;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17842 56333)) ;;; Generated autoloads from progmodes/f90.el (autoload (quote f90-mode) "f90" "\ @@ -10552,7 +10552,7 @@ with no args, if that value is non-nil. ;;;;;; facemenu-remove-all facemenu-remove-face-props facemenu-set-read-only ;;;;;; facemenu-set-intangible facemenu-set-invisible facemenu-set-face-from-menu ;;;;;; facemenu-set-background facemenu-set-foreground facemenu-set-face) -;;;;;; "facemenu" "facemenu.el" (17843 45610)) +;;;;;; "facemenu" "facemenu.el" (17842 58279)) ;;; Generated autoloads from facemenu.el (define-key global-map "\M-o" 'facemenu-keymap) (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap) @@ -10721,7 +10721,7 @@ argument BUFFER-NAME is nil, it defaults to *Colors*. ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts -;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17939 56022)) +;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17888 29839)) ;;; Generated autoloads from mail/feedmail.el (autoload (quote feedmail-send-it) "feedmail" "\ @@ -10775,7 +10775,7 @@ you can set `feedmail-queue-reminder-alist' to nil. ;;;*** ;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu -;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17943 51387)) +;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17943 4602)) ;;; Generated autoloads from ffap.el (autoload (quote ffap-next) "ffap" "\ @@ -10834,7 +10834,7 @@ Evaluate the forms in variable `ffap-bindings'. ;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively ;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find ;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory) -;;;;;; "filecache" "filecache.el" (17843 45610)) +;;;;;; "filecache" "filecache.el" (17842 58279)) ;;; Generated autoloads from filecache.el (autoload (quote file-cache-add-directory) "filecache" "\ @@ -10893,8 +10893,8 @@ the name is considered already unique; only the second substitution ;;;*** -;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17843 -;;;;;; 45610)) +;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from filesets.el (autoload (quote filesets-init) "filesets" "\ @@ -10905,7 +10905,7 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;*** -;;;### (autoloads nil "fill" "textmodes/fill.el" (17988 52354)) +;;;### (autoloads nil "fill" "textmodes/fill.el" (18007 39658)) ;;; Generated autoloads from textmodes/fill.el (put 'colon-double-space 'safe-local-variable 'booleanp) @@ -10913,7 +10913,7 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;### (autoloads (find-grep-dired find-name-dired find-dired find-grep-options ;;;;;; find-ls-subdir-switches find-ls-option) "find-dired" "find-dired.el" -;;;;;; (17988 52353)) +;;;;;; (17992 30877)) ;;; Generated autoloads from find-dired.el (defvar find-ls-option (if (eq system-type (quote berkeley-unix)) (quote ("-ls" . "-gilsb")) (quote ("-exec ls -ld {} \\;" . "-ld"))) "\ @@ -10974,7 +10974,7 @@ Thus ARG can also contain additional grep options. ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file ;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from find-file.el (defvar ff-special-constructs (quote (("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" lambda nil (buffer-substring (match-beginning 2) (match-end 2))))) "\ @@ -11068,7 +11068,7 @@ Visit the file you click on in another window. ;;;;;; find-variable find-variable-noselect find-function-other-frame ;;;;;; find-function-other-window find-function find-function-noselect ;;;;;; find-function-search-for-symbol find-library) "find-func" -;;;;;; "emacs-lisp/find-func.el" (17843 45615)) +;;;;;; "emacs-lisp/find-func.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload (quote find-library) "find-func" "\ @@ -11222,7 +11222,7 @@ Define some key bindings for the find-function family of functions. ;;;*** ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories -;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17939 56017)) +;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17893 23802)) ;;; Generated autoloads from find-lisp.el (autoload (quote find-lisp-find-dired) "find-lisp" "\ @@ -11243,7 +11243,7 @@ Change the filter on a find-lisp-find-dired buffer to REGEXP. ;;;*** ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) -;;;;;; "finder" "finder.el" (17843 45610)) +;;;;;; "finder" "finder.el" (17842 58279)) ;;; Generated autoloads from finder.el (autoload (quote finder-list-keywords) "finder" "\ @@ -11265,7 +11265,7 @@ Find packages matching a given keyword. ;;;*** ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" -;;;;;; "flow-ctrl.el" (17843 45610)) +;;;;;; "flow-ctrl.el" (17842 58279)) ;;; Generated autoloads from flow-ctrl.el (autoload (quote enable-flow-control) "flow-ctrl" "\ @@ -11287,7 +11287,7 @@ to get the effect of a C-q. ;;;*** ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/flow-fill.el (autoload (quote fill-flowed-encode) "flow-fill" "\ @@ -11303,7 +11303,7 @@ Not documented ;;;*** ;;;### (autoloads (flymake-mode-off flymake-mode-on flymake-mode) -;;;;;; "flymake" "progmodes/flymake.el" (17939 56022)) +;;;;;; "flymake" "progmodes/flymake.el" (17934 27588)) ;;; Generated autoloads from progmodes/flymake.el (autoload (quote flymake-mode) "flymake" "\ @@ -11327,7 +11327,7 @@ Turn flymake mode off. ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) -;;;;;; "flyspell" "textmodes/flyspell.el" (17970 18176)) +;;;;;; "flyspell" "textmodes/flyspell.el" (18006 55797)) ;;; Generated autoloads from textmodes/flyspell.el (autoload (quote flyspell-prog-mode) "flyspell" "\ @@ -11396,7 +11396,7 @@ Flyspell whole buffer. ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from follow.el (autoload (quote turn-on-follow-mode) "follow" "\ @@ -11470,8 +11470,8 @@ in your `~/.emacs' file, replacing [f7] by your favourite key: ;;;*** -;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17955 -;;;;;; 48757)) +;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17954 +;;;;;; 24686)) ;;; Generated autoloads from mail/footnote.el (autoload (quote footnote-mode) "footnote" "\ @@ -11492,7 +11492,7 @@ key binding ;;;*** ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) -;;;;;; "forms" "forms.el" (17843 45610)) +;;;;;; "forms" "forms.el" (17842 58279)) ;;; Generated autoloads from forms.el (autoload (quote forms-mode) "forms" "\ @@ -11529,7 +11529,7 @@ Visit a file in Forms mode in other window. ;;;*** ;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran" -;;;;;; "progmodes/fortran.el" (17843 45628)) +;;;;;; "progmodes/fortran.el" (17842 56333)) ;;; Generated autoloads from progmodes/fortran.el (defvar fortran-tab-mode-default nil "\ @@ -11615,7 +11615,7 @@ with no args, if that value is non-nil. ;;;*** ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region -;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17843 45625)) +;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17842 55395)) ;;; Generated autoloads from play/fortune.el (autoload (quote fortune-add-fortune) "fortune" "\ @@ -11665,7 +11665,7 @@ and choose the directory as the fortune-file. ;;;*** ;;;### (autoloads (gdb-enable-debug gdba) "gdb-ui" "progmodes/gdb-ui.el" -;;;;;; (17941 5494)) +;;;;;; (17941 38806)) ;;; Generated autoloads from progmodes/gdb-ui.el (autoload (quote gdba) "gdb-ui" "\ @@ -11728,8 +11728,8 @@ Non-nil means record the process input and output in `gdb-debug-log'.") ;;;*** ;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal -;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17843 -;;;;;; 45615)) +;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17842 +;;;;;; 54152)) ;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ @@ -11804,7 +11804,7 @@ regular expression that can be used as an element of ;;;*** ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" -;;;;;; (17843 45628)) +;;;;;; (17842 56333)) ;;; Generated autoloads from progmodes/glasses.el (autoload (quote glasses-mode) "glasses" "\ @@ -11817,7 +11817,7 @@ at places they belong to. ;;;*** ;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error -;;;;;; gmm-message) "gmm-utils" "gnus/gmm-utils.el" (17939 56021)) +;;;;;; gmm-message) "gmm-utils" "gnus/gmm-utils.el" (17934 27588)) ;;; Generated autoloads from gnus/gmm-utils.el (autoload (quote gmm-message) "gmm-utils" "\ @@ -11864,7 +11864,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server -;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17843 45617)) +;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17842 54741)) ;;; Generated autoloads from gnus/gnus.el (when (fboundp 'custom-autoload) (custom-autoload 'gnus-select-method "gnus")) @@ -11917,7 +11917,7 @@ prompt the user for the name of an NNTP server to use. ;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group ;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize ;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" -;;;;;; "gnus/gnus-agent.el" (17843 45616)) +;;;;;; "gnus/gnus-agent.el" (17842 54741)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload (quote gnus-unplugged) "gnus-agent" "\ @@ -12008,7 +12008,7 @@ If CLEAN, obsolete (ignore). ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" -;;;;;; (17959 36648)) +;;;;;; (17960 49045)) ;;; Generated autoloads from gnus/gnus-art.el (autoload (quote gnus-article-prepare-display) "gnus-art" "\ @@ -12019,7 +12019,7 @@ Make the current buffer look like a nice article. ;;;*** ;;;### (autoloads (gnus-audio-play) "gnus-audio" "gnus/gnus-audio.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-audio.el (autoload (quote gnus-audio-play) "gnus-audio" "\ @@ -12031,8 +12031,8 @@ Play a sound FILE through the speaker. ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group ;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active -;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17843 -;;;;;; 45616)) +;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload (quote gnus-jog-cache) "gnus-cache" "\ @@ -12074,7 +12074,7 @@ supported. ;;;*** ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) -;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17843 45616)) +;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17842 54741)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload (quote gnus-delay-article) "gnus-delay" "\ @@ -12110,7 +12110,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** ;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d) -;;;;;; "gnus-diary" "gnus/gnus-diary.el" (17988 52353)) +;;;;;; "gnus-diary" "gnus/gnus-diary.el" (17992 30878)) ;;; Generated autoloads from gnus/gnus-diary.el (autoload (quote gnus-user-format-function-d) "gnus-diary" "\ @@ -12126,7 +12126,7 @@ Not documented ;;;*** ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload (quote turn-on-gnus-dired-mode) "gnus-dired" "\ @@ -12137,7 +12137,7 @@ Convenience method to turn on gnus-dired-mode. ;;;*** ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload (quote gnus-draft-reminder) "gnus-draft" "\ @@ -12149,8 +12149,8 @@ Reminder user if there are unsent drafts. ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png ;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header -;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17843 -;;;;;; 45616)) +;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload (quote gnus-random-x-face) "gnus-fun" "\ @@ -12189,7 +12189,7 @@ FILE should be a PNG file that's 48x48 and smaller than or equal to ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) -;;;;;; "gnus-group" "gnus/gnus-group.el" (17843 45617)) +;;;;;; "gnus-group" "gnus/gnus-group.el" (17842 54741)) ;;; Generated autoloads from gnus/gnus-group.el (autoload (quote gnus-fetch-group) "gnus-group" "\ @@ -12206,7 +12206,7 @@ Pop up a frame and enter GROUP. ;;;*** ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias (quote gnus-batch-kill) (quote gnus-batch-score)) @@ -12221,7 +12221,7 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate ;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload (quote turn-on-gnus-mailing-list-mode) "gnus-ml" "\ @@ -12246,7 +12246,7 @@ Minor mode for providing mailing-list commands. ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update ;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload (quote gnus-group-split-setup) "gnus-mlspl" "\ @@ -12347,7 +12347,7 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** ;;;### (autoloads (gnus-change-server) "gnus-move" "gnus/gnus-move.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-move.el (autoload (quote gnus-change-server) "gnus-move" "\ @@ -12359,7 +12359,7 @@ Update the .newsrc.eld file to reflect the change of nntp server. ;;;*** ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) -;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17949 5807)) +;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17949 41467)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload (quote gnus-msg-mail) "gnus-msg" "\ @@ -12384,7 +12384,7 @@ Like `message-reply'. ;;;*** ;;;### (autoloads (gnus-nocem-load-cache gnus-nocem-scan-groups) -;;;;;; "gnus-nocem" "gnus/gnus-nocem.el" (17843 45617)) +;;;;;; "gnus-nocem" "gnus/gnus-nocem.el" (17842 54741)) ;;; Generated autoloads from gnus/gnus-nocem.el (autoload (quote gnus-nocem-scan-groups) "gnus-nocem" "\ @@ -12401,7 +12401,7 @@ Load the NoCeM cache. ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon ;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload (quote gnus-treat-from-picon) "gnus-picon" "\ @@ -12428,7 +12428,7 @@ If picons are already displayed, remove them. ;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection ;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement ;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" -;;;;;; "gnus/gnus-range.el" (17843 45617)) +;;;;;; "gnus/gnus-range.el" (17842 54741)) ;;; Generated autoloads from gnus/gnus-range.el (autoload (quote gnus-sorted-difference) "gnus-range" "\ @@ -12496,7 +12496,7 @@ Add NUM into sorted LIST by side effect. ;;;*** ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) -;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17939 56021)) +;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17934 27588)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload (quote gnus-registry-initialize) "gnus-registry" "\ @@ -12512,8 +12512,8 @@ Install the registry hooks. ;;;*** ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate -;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17843 -;;;;;; 45617)) +;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload (quote gnus-sieve-update) "gnus-sieve" "\ @@ -12541,7 +12541,7 @@ Not documented ;;;*** ;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-soup.el (autoload (quote gnus-batch-brew-soup) "gnus-soup" "\ @@ -12561,7 +12561,7 @@ Note -- this function hasn't been implemented yet. ;;;*** ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload (quote gnus-update-format) "gnus-spec" "\ @@ -12572,8 +12572,8 @@ Update the format specification near point. ;;;*** ;;;### (autoloads (gnus-fixup-nnimap-unread-after-getting-new-news -;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17843 -;;;;;; 45617)) +;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/gnus-start.el (autoload (quote gnus-declare-backend) "gnus-start" "\ @@ -12589,7 +12589,7 @@ Not documented ;;;*** ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/gnus-win.el (autoload (quote gnus-add-configuration) "gnus-win" "\ @@ -12599,7 +12599,7 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** -;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17941 5494)) +;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17941 38806)) ;;; Generated autoloads from play/gomoku.el (autoload (quote gomoku) "gomoku" "\ @@ -12626,7 +12626,7 @@ Use \\[describe-mode] for more info. ;;;*** ;;;### (autoloads (goto-address goto-address-at-point) "goto-addr" -;;;;;; "net/goto-addr.el" (17843 45624)) +;;;;;; "net/goto-addr.el" (17842 55218)) ;;; Generated autoloads from net/goto-addr.el (define-obsolete-function-alias (quote goto-address-at-mouse) (quote goto-address-at-point) "22.1") @@ -12656,7 +12656,7 @@ Also fontifies the buffer appropriately (see `goto-address-fontify-p' and ;;;### (autoloads (rgrep lgrep grep-find grep grep-mode grep-compute-defaults ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command -;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17943 52506)) +;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17944 20144)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12796,7 +12796,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]. ;;;*** -;;;### (autoloads (gs-load-image) "gs" "gs.el" (17843 45610)) +;;;### (autoloads (gs-load-image) "gs" "gs.el" (17842 58279)) ;;; Generated autoloads from gs.el (autoload (quote gs-load-image) "gs" "\ @@ -12810,7 +12810,7 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** ;;;### (autoloads (gdb-script-mode jdb pdb perldb xdb dbx sdb gdb) -;;;;;; "gud" "progmodes/gud.el" (17988 52353)) +;;;;;; "gud" "progmodes/gud.el" (17992 30878)) ;;; Generated autoloads from progmodes/gud.el (autoload (quote gdb) "gud" "\ @@ -12893,8 +12893,8 @@ Major mode for editing GDB scripts ;;;*** -;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17843 -;;;;;; 45626)) +;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17842 +;;;;;; 55395)) ;;; Generated autoloads from play/handwrite.el (autoload (quote handwrite) "handwrite" "\ @@ -12912,7 +12912,7 @@ Variables: handwrite-linespace (default 12) ;;;*** ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" -;;;;;; (17743 18144)) +;;;;;; (17742 40275)) ;;; Generated autoloads from play/hanoi.el (autoload (quote hanoi) "hanoi" "\ @@ -12942,7 +12942,7 @@ to be updated. ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region ;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer ;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string -;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17843 45610)) +;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17842 58279)) ;;; Generated autoloads from help-at-pt.el (autoload (quote help-at-pt-string) "help-at-pt" "\ @@ -13072,7 +13072,7 @@ different regions. With numeric argument ARG, behaves like ;;;### (autoloads (describe-categories describe-syntax describe-variable ;;;;;; variable-at-point describe-function-1 describe-simplify-lib-file-name ;;;;;; help-C-file-name describe-function) "help-fns" "help-fns.el" -;;;;;; (17939 56017)) +;;;;;; (17845 46651)) ;;; Generated autoloads from help-fns.el (autoload (quote describe-function) "help-fns" "\ @@ -13129,7 +13129,7 @@ BUFFER should be a buffer or a buffer name. ;;;*** ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -13145,7 +13145,7 @@ A value of nil means skip the middle step, so that ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button ;;;;;; help-make-xrefs help-setup-xref help-mode-finish help-mode-setup -;;;;;; help-mode) "help-mode" "help-mode.el" (17843 45610)) +;;;;;; help-mode) "help-mode" "help-mode.el" (17842 58279)) ;;; Generated autoloads from help-mode.el (autoload (quote help-mode) "help-mode" "\ @@ -13228,7 +13228,7 @@ Add xrefs for symbols in `pp's output between FROM and TO. ;;;*** ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" -;;;;;; "emacs-lisp/helper.el" (17843 45615)) +;;;;;; "emacs-lisp/helper.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload (quote Helper-describe-bindings) "helper" "\ @@ -13244,7 +13244,7 @@ Provide help for current mode. ;;;*** ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" -;;;;;; "hexl.el" (17844 62922)) +;;;;;; "hexl.el" (17844 53657)) ;;; Generated autoloads from hexl.el (autoload (quote hexl-mode) "hexl" "\ @@ -13341,7 +13341,7 @@ This discards the buffer's undo information. ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer ;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer ;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" -;;;;;; (17970 17147)) +;;;;;; (17992 30877)) ;;; Generated autoloads from hi-lock.el (autoload (quote hi-lock-mode) "hi-lock" "\ @@ -13471,7 +13471,7 @@ be found in variable `hi-lock-interactive-patterns'. ;;;*** ;;;### (autoloads (hide-ifdef-lines hide-ifdef-read-only hide-ifdef-initially -;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17843 45628)) +;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17842 56333)) ;;; Generated autoloads from progmodes/hideif.el (autoload (quote hide-ifdef-mode) "hideif" "\ @@ -13526,7 +13526,7 @@ how the hiding is done: ;;;*** ;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el" -;;;;;; (17939 56022)) +;;;;;; (17934 43341)) ;;; Generated autoloads from progmodes/hideshow.el (defvar hs-special-modes-alist (quote ((c-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (c++-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (bibtex-mode ("^@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning))) "\ @@ -13589,7 +13589,7 @@ Unconditionally turn off `hs-minor-mode'. ;;;;;; highlight-compare-buffers highlight-changes-rotate-faces ;;;;;; highlight-changes-previous-change highlight-changes-next-change ;;;;;; highlight-changes-mode highlight-changes-remove-highlight) -;;;;;; "hilit-chg" "hilit-chg.el" (17843 45610)) +;;;;;; "hilit-chg" "hilit-chg.el" (17842 58279)) ;;; Generated autoloads from hilit-chg.el (autoload (quote highlight-changes-remove-highlight) "hilit-chg" "\ @@ -13719,7 +13719,7 @@ variable `highlight-changes-global-changes-existing-buffers' is non-nil). ;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction ;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space ;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" -;;;;;; "hippie-exp.el" (17843 45610)) +;;;;;; "hippie-exp.el" (17842 58279)) ;;; Generated autoloads from hippie-exp.el (defvar hippie-expand-try-functions-list (quote (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)) "\ @@ -13792,7 +13792,7 @@ argument VERBOSE non-nil makes the function verbose. ;;;*** ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from hl-line.el (autoload (quote hl-line-mode) "hl-line" "\ @@ -13814,7 +13814,7 @@ addition to `hl-line-highlight' on `post-command-hook'. (defvar global-hl-line-mode nil "\ Non-nil if Global-Hl-Line mode is enabled. -See the command `global-hl-line-mode' for a description of this minor-mode. +See the command `global-hl-line-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-hl-line-mode'.") @@ -13833,7 +13833,7 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and ;;;*** ;;;### (autoloads (list-holidays holidays) "holidays" "calendar/holidays.el" -;;;;;; (17956 60684)) +;;;;;; (17956 13479)) ;;; Generated autoloads from calendar/holidays.el (autoload (quote holidays) "holidays" "\ @@ -13869,8 +13869,8 @@ The optional LABEL is used to label the buffer created. ;;;*** -;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17843 -;;;;;; 45617)) +;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/html2text.el (autoload (quote html2text) "html2text" "\ @@ -13902,7 +13902,7 @@ Convert HTML to plain text in the current buffer. ;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group ;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group ;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode -;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17843 45610)) +;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17842 58279)) ;;; Generated autoloads from ibuf-ext.el (autoload (quote ibuffer-auto-mode) "ibuf-ext" "\ @@ -14268,8 +14268,8 @@ defaults to one. ;;;*** ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter -;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17843 -;;;;;; 45610)) +;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from ibuf-macs.el (autoload (quote define-ibuffer-column) "ibuf-macs" "\ @@ -14358,7 +14358,7 @@ bound to the current value of the filter. ;;;*** ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) -;;;;;; "ibuffer" "ibuffer.el" (17843 45610)) +;;;;;; "ibuffer" "ibuffer.el" (17842 58279)) ;;; Generated autoloads from ibuffer.el (autoload (quote ibuffer-list-buffers) "ibuffer" "\ @@ -14399,7 +14399,7 @@ FORMATS is the value to use for `ibuffer-formats'. ;;;### (autoloads (icalendar-import-buffer icalendar-import-file ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" -;;;;;; "calendar/icalendar.el" (17939 56021)) +;;;;;; "calendar/icalendar.el" (17921 16827)) ;;; Generated autoloads from calendar/icalendar.el (autoload (quote icalendar-export-file) "icalendar" "\ @@ -14451,13 +14451,13 @@ buffer `*icalendar-errors*'. ;;;*** -;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17939 -;;;;;; 56017)) +;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17907 +;;;;;; 1407)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ Non-nil if Icomplete mode is enabled. -See the command `icomplete-mode' for a description of this minor-mode. +See the command `icomplete-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `icomplete-mode'.") @@ -14472,7 +14472,7 @@ With a numeric argument, turn Icomplete mode on iff ARG is positive. ;;;*** -;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17843 45628)) +;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17842 56333)) ;;; Generated autoloads from progmodes/icon.el (autoload (quote icon-mode) "icon" "\ @@ -14513,7 +14513,7 @@ with no args, if that value is non-nil. ;;;*** ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" -;;;;;; (17966 9916)) +;;;;;; (17965 23638)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload (quote idlwave-shell) "idlw-shell" "\ @@ -14539,7 +14539,7 @@ See also the variable `idlwave-shell-prompt-pattern'. ;;;*** ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" -;;;;;; (17970 17147)) +;;;;;; (17992 30878)) ;;; Generated autoloads from progmodes/idlwave.el (autoload (quote idlwave-mode) "idlwave" "\ @@ -14674,8 +14674,8 @@ The main features of this mode are ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window -;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17966 -;;;;;; 9915)) +;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17963 +;;;;;; 25911)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -14936,7 +14936,7 @@ DEF, if non-nil, is the default value. ;;;*** -;;;### (autoloads (ielm) "ielm" "ielm.el" (17843 45610)) +;;;### (autoloads (ielm) "ielm" "ielm.el" (17842 58279)) ;;; Generated autoloads from ielm.el (add-hook 'same-window-buffer-names "*ielm*") @@ -14949,7 +14949,7 @@ Switches to the buffer `*ielm*', or creates it if it does not exist. ;;;*** ;;;### (autoloads (iimage-mode turn-on-iimage-mode) "iimage" "iimage.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from iimage.el (autoload (quote turn-on-iimage-mode) "iimage" "\ @@ -14968,7 +14968,7 @@ Toggle inline image minor mode. ;;;;;; insert-image put-image create-image image-type-auto-detected-p ;;;;;; image-type-available-p image-type image-type-from-file-name ;;;;;; image-type-from-file-header image-type-from-buffer image-type-from-data) -;;;;;; "image" "image.el" (17939 56017)) +;;;;;; "image" "image.el" (17868 42568)) ;;; Generated autoloads from image.el (autoload (quote image-type-from-data) "image" "\ @@ -15149,7 +15149,7 @@ Example: ;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag ;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs ;;;;;; image-dired-dired-with-window-configuration image-dired-dired-insert-marked-thumbs) -;;;;;; "image-dired" "image-dired.el" (17988 52353)) +;;;;;; "image-dired" "image-dired.el" (17992 30877)) ;;; Generated autoloads from image-dired.el (autoload (quote image-dired-dired-insert-marked-thumbs) "image-dired" "\ @@ -15283,7 +15283,7 @@ easy-to-use form. ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp ;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" -;;;;;; "image-file.el" (17843 45610)) +;;;;;; "image-file.el" (17842 58279)) ;;; Generated autoloads from image-file.el (defvar image-file-name-extensions (quote ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm")) "\ @@ -15324,7 +15324,7 @@ the command `insert-file-contents'. (defvar auto-image-file-mode nil "\ Non-nil if Auto-Image-File mode is enabled. -See the command `auto-image-file-mode' for a description of this minor-mode. +See the command `auto-image-file-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `auto-image-file-mode'.") @@ -15345,7 +15345,7 @@ Image files are those whose name has an extension in ;;;*** ;;;### (autoloads (image-mode-maybe image-minor-mode image-mode) -;;;;;; "image-mode" "image-mode.el" (17943 53704)) +;;;;;; "image-mode" "image-mode.el" (17868 42581)) ;;; Generated autoloads from image-mode.el (push '("\\.jpe?g\\'" . image-mode) auto-mode-alist) (push '("\\.png\\'" . image-mode) auto-mode-alist) @@ -15383,7 +15383,7 @@ information on these modes. ;;;*** ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar -;;;;;; imenu-sort-function) "imenu" "imenu.el" (17843 45610)) +;;;;;; imenu-sort-function) "imenu" "imenu.el" (17842 58279)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -15498,7 +15498,7 @@ for more information. ;;;### (autoloads (indian-char-glyph indian-glyph-char in-is13194-pre-write-conversion ;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) -;;;;;; "ind-util" "language/ind-util.el" (17843 45620)) +;;;;;; "ind-util" "language/ind-util.el" (17842 58278)) ;;; Generated autoloads from language/ind-util.el (autoload (quote indian-compose-region) "ind-util" "\ @@ -15541,7 +15541,7 @@ See also the function `indian-glyph-char'. ;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command ;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" -;;;;;; "progmodes/inf-lisp.el" (17843 45628)) +;;;;;; "progmodes/inf-lisp.el" (17842 56332)) ;;; Generated autoloads from progmodes/inf-lisp.el (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "\ @@ -15608,7 +15608,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;### (autoloads (Info-speedbar-browser Info-goto-emacs-key-command-node ;;;;;; Info-goto-emacs-command-node Info-mode info-apropos Info-index ;;;;;; Info-directory Info-on-current-buffer info-standalone info-emacs-manual -;;;;;; info info-other-window) "info" "info.el" (17995 6542)) +;;;;;; info info-other-window) "info" "info.el" (18006 55795)) ;;; Generated autoloads from info.el (autoload (quote info-other-window) "info" "\ @@ -15774,7 +15774,7 @@ This will add a speedbar major display mode. ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (17939 56017)) +;;;;;; (17878 61008)) ;;; Generated autoloads from info-look.el (autoload (quote info-lookup-reset) "info-look" "\ @@ -15822,7 +15822,7 @@ Perform completion on file preceding point. ;;;*** ;;;### (autoloads (info-xref-check-all-custom info-xref-check-all -;;;;;; info-xref-check) "info-xref" "info-xref.el" (17843 45610)) +;;;;;; info-xref-check) "info-xref" "info-xref.el" (17842 58279)) ;;; Generated autoloads from info-xref.el (autoload (quote info-xref-check) "info-xref" "\ @@ -15849,7 +15849,7 @@ quite a while. ;;;*** ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify) -;;;;;; "informat" "informat.el" (17843 45610)) +;;;;;; "informat" "informat.el" (17842 58279)) ;;; Generated autoloads from informat.el (autoload (quote Info-tagify) "informat" "\ @@ -15890,7 +15890,7 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method ;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" -;;;;;; (17939 56022)) +;;;;;; (17903 2305)) ;;; Generated autoloads from international/isearch-x.el (autoload (quote isearch-toggle-specified-input-method) "isearch-x" "\ @@ -15910,8 +15910,8 @@ Not documented ;;;*** -;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17939 -;;;;;; 56017)) +;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17918 +;;;;;; 44913)) ;;; Generated autoloads from isearchb.el (autoload (quote isearchb-activate) "isearchb" "\ @@ -15927,7 +15927,7 @@ accessed via isearchb. ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only ;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso ;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" -;;;;;; "international/iso-cvt.el" (17988 52353)) +;;;;;; "international/iso-cvt.el" (17992 30878)) ;;; Generated autoloads from international/iso-cvt.el (autoload (quote iso-spanish) "iso-cvt" "\ @@ -16011,7 +16011,7 @@ Add submenus to the File menu, to convert to and from various formats. ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (17843 45618)) +;;;;;; (17842 54888)) ;;; Generated autoloads from international/iso-transl.el (or key-translation-map (setq key-translation-map (make-sparse-keymap))) (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) @@ -16024,7 +16024,7 @@ Add submenus to the File menu, to convert to and from various formats. ;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell ;;;;;; ispell-help ispell-pdict-save ispell-word ispell-local-dictionary-alist ;;;;;; ispell-personal-dictionary) "ispell" "textmodes/ispell.el" -;;;;;; (17996 37926)) +;;;;;; (18006 55797)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -16311,13 +16311,13 @@ You can bind this to the key C-c i in GNUS or mail by adding to ;;;*** -;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17827 -;;;;;; 37446)) +;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17819 +;;;;;; 9451)) ;;; Generated autoloads from iswitchb.el (defvar iswitchb-mode nil "\ Non-nil if Iswitchb mode is enabled. -See the command `iswitchb-mode' for a description of this minor-mode. +See the command `iswitchb-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `iswitchb-mode'.") @@ -16337,7 +16337,7 @@ This mode enables switching between buffers using substrings. See ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region ;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku ;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) -;;;;;; "japan-util" "language/japan-util.el" (17843 45620)) +;;;;;; "japan-util" "language/japan-util.el" (17842 58278)) ;;; Generated autoloads from language/japan-util.el (autoload (quote setup-japanese-environment-internal) "japan-util" "\ @@ -16415,7 +16415,7 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" -;;;;;; "jka-compr.el" (17939 56017)) +;;;;;; "jka-compr.el" (17853 24893)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16440,7 +16440,7 @@ by `jka-compr-installed'. ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup ;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" -;;;;;; (17838 18033)) +;;;;;; (17833 41203)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -16496,7 +16496,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.' ;;;*** ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" -;;;;;; (17843 45618)) +;;;;;; (17842 54888)) ;;; Generated autoloads from international/kinsoku.el (autoload (quote kinsoku) "kinsoku" "\ @@ -16517,8 +16517,8 @@ the context of text formatting. ;;;*** -;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17843 -;;;;;; 45618)) +;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17842 +;;;;;; 54888)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -16543,7 +16543,7 @@ and the return value is the length of the conversion. ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro ;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter ;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro) "kmacro" -;;;;;; "kmacro.el" (17838 18033)) +;;;;;; "kmacro.el" (17833 41350)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -16650,7 +16650,7 @@ If kbd macro currently being defined end it before activating it. ;;;### (autoloads (kannada-post-read-conversion kannada-compose-string ;;;;;; kannada-compose-region) "knd-util" "language/knd-util.el" -;;;;;; (17843 45620)) +;;;;;; (17842 58278)) ;;; Generated autoloads from language/knd-util.el (defconst kannada-consonant "[\x51f75-\x51fb9]") @@ -16673,7 +16673,7 @@ Not documented ;;;*** ;;;### (autoloads (setup-korean-environment-internal) "korea-util" -;;;;;; "language/korea-util.el" (17843 45620)) +;;;;;; "language/korea-util.el" (17842 58278)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "") "\ @@ -16688,7 +16688,7 @@ Not documented ;;;*** ;;;### (autoloads (lm lm-test-run) "landmark" "play/landmark.el" -;;;;;; (17941 5494)) +;;;;;; (17941 38806)) ;;; Generated autoloads from play/landmark.el (defalias (quote landmark-repeat) (quote lm-test-run)) @@ -16722,8 +16722,8 @@ Use \\[describe-mode] for more info. ;;;### (autoloads (lao-compose-region lao-composition-function lao-post-read-conversion ;;;;;; lao-transcribe-roman-to-lao-string lao-transcribe-single-roman-syllable-to-lao -;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17843 -;;;;;; 45620)) +;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from language/lao-util.el (autoload (quote lao-compose-string) "lao-util" "\ @@ -16772,7 +16772,7 @@ Not documented ;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc ;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) -;;;;;; "latexenc" "international/latexenc.el" (17843 45618)) +;;;;;; "latexenc" "international/latexenc.el" (17842 54888)) ;;; Generated autoloads from international/latexenc.el (defvar latex-inputenc-coding-alist (quote (("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))) "\ @@ -16804,7 +16804,7 @@ coding system names is determined from `latex-inputenc-coding-alist'. ;;;*** ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) -;;;;;; "latin1-disp" "international/latin1-disp.el" (17939 56022)) +;;;;;; "latin1-disp" "international/latin1-disp.el" (17874 62081)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -16848,7 +16848,7 @@ use either \\[customize] or the function `latin1-display'.") ;;;*** ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" -;;;;;; (17843 45628)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/ld-script.el (add-to-list (quote auto-mode-alist) (quote ("\\.ld[si]?\\>" . ld-script-mode))) @@ -16863,7 +16863,7 @@ A major mode to edit GNU ld script files ;;;*** ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" -;;;;;; (17843 45610)) +;;;;;; (17842 58279)) ;;; Generated autoloads from ledit.el (defconst ledit-save-files t "\ @@ -16898,7 +16898,7 @@ Not documented ;;;*** -;;;### (autoloads (life) "life" "play/life.el" (17843 45626)) +;;;### (autoloads (life) "life" "play/life.el" (17842 55395)) ;;; Generated autoloads from play/life.el (autoload (quote life) "life" "\ @@ -16912,7 +16912,7 @@ generations (this defaults to 1). ;;;*** ;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17942 -;;;;;; 34668)) +;;;;;; 63381)) ;;; Generated autoloads from loadhist.el (autoload (quote unload-feature) "loadhist" "\ @@ -16935,7 +16935,7 @@ such as redefining an Emacs function. ;;;*** ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) -;;;;;; "locate" "locate.el" (17988 52353)) +;;;;;; "locate" "locate.el" (17992 30877)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches "-al" "\ @@ -16986,7 +16986,7 @@ except that FILTER is not optional. ;;;*** -;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17843 45610)) +;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (18010 5298)) ;;; Generated autoloads from log-edit.el (autoload (quote log-edit) "log-edit" "\ @@ -17007,8 +17007,8 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the ;;;*** -;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17843 -;;;;;; 45610)) +;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from log-view.el (autoload (quote log-view-mode) "log-view" "\ @@ -17018,8 +17018,8 @@ Major mode for browsing CVS log output. ;;;*** -;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17843 -;;;;;; 45610)) +;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17992 +;;;;;; 30877)) ;;; Generated autoloads from longlines.el (autoload (quote longlines-mode) "longlines" "\ @@ -17040,8 +17040,8 @@ are indicated with a symbol. ;;;*** ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer -;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17843 -;;;;;; 45610)) +;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type (quote (emx win32 w32 mswindows ms-dos windows-nt)))) @@ -17135,7 +17135,7 @@ for further customization of the printer command. ;;;*** ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" -;;;;;; (17995 6542)) +;;;;;; (18006 55796)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -17147,7 +17147,7 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") ;;;*** ;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17956 -;;;;;; 60684)) +;;;;;; 13479)) ;;; Generated autoloads from calendar/lunar.el (autoload (quote phases-of-moon) "lunar" "\ @@ -17160,8 +17160,8 @@ This function is suitable for execution in a .emacs file. ;;;*** -;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17939 -;;;;;; 56023)) +;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17923 +;;;;;; 63540)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload (quote m4-mode) "m4-mode" "\ @@ -17173,7 +17173,7 @@ A major mode to edit m4 macro files. ;;;*** ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/macroexp.el (autoload (quote macroexpand-all) "macroexp" "\ @@ -17187,7 +17187,7 @@ definitions to shadow the loaded ones for use in file byte-compilation. ;;;*** ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro -;;;;;; name-last-kbd-macro) "macros" "macros.el" (17843 45611)) +;;;;;; name-last-kbd-macro) "macros" "macros.el" (17842 58279)) ;;; Generated autoloads from macros.el (autoload (quote name-last-kbd-macro) "macros" "\ @@ -17276,7 +17276,7 @@ and then select the region of un-tablified names and use ;;;*** ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" -;;;;;; "mail/mail-extr.el" (17843 45621)) +;;;;;; "mail/mail-extr.el" (17842 55035)) ;;; Generated autoloads from mail/mail-extr.el (autoload (quote mail-extract-address-components) "mail-extr" "\ @@ -17308,7 +17308,7 @@ Convert mail domain DOMAIN to the country it corresponds to. ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history ;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" -;;;;;; (17843 45621)) +;;;;;; (17842 55035)) ;;; Generated autoloads from mail/mail-hist.el (autoload (quote mail-hist-define-keys) "mail-hist" "\ @@ -17339,8 +17339,8 @@ This function normally would be called when the message is sent. ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region ;;;;;; mail-unquote-printable mail-quote-printable mail-file-babyl-p -;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17843 -;;;;;; 45621)) +;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17842 +;;;;;; 55035)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -17392,7 +17392,7 @@ If 4th arg LIST is non-nil, return a list of all such fields. ;;;*** ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup) -;;;;;; "mailabbrev" "mail/mailabbrev.el" (17988 52353)) +;;;;;; "mailabbrev" "mail/mailabbrev.el" (17992 30878)) ;;; Generated autoloads from mail/mailabbrev.el (autoload (quote mail-abbrevs-setup) "mailabbrev" "\ @@ -17415,8 +17415,8 @@ If DEFINITION contains multiple addresses, separate them with commas. ;;;*** ;;;### (autoloads (mail-complete define-mail-alias expand-mail-aliases -;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17843 -;;;;;; 45621)) +;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17842 +;;;;;; 55035)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style (quote angles) "\ @@ -17462,7 +17462,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any. ;;;*** ;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el" -;;;;;; (17843 45621)) +;;;;;; (17842 55035)) ;;; Generated autoloads from mail/mailclient.el (autoload (quote mailclient-send-it) "mailclient" "\ @@ -17476,7 +17476,7 @@ The mail client is taken to be the handler of mailto URLs. ;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode ;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode) -;;;;;; "make-mode" "progmodes/make-mode.el" (17843 45628)) +;;;;;; "make-mode" "progmodes/make-mode.el" (17842 56332)) ;;; Generated autoloads from progmodes/make-mode.el (autoload (quote makefile-mode) "make-mode" "\ @@ -17593,8 +17593,8 @@ An adapted `makefile-mode' that knows about imake. ;;;*** -;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17843 -;;;;;; 45611)) +;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from makesum.el (autoload (quote make-command-summary) "makesum" "\ @@ -17605,7 +17605,7 @@ Previous contents of that buffer are killed first. ;;;*** -;;;### (autoloads (man-follow man) "man" "man.el" (17939 56017)) +;;;### (autoloads (man-follow man) "man" "man.el" (17992 30877)) ;;; Generated autoloads from man.el (defalias (quote manual-entry) (quote man)) @@ -17632,7 +17632,7 @@ Get a Un*x manual page of the item under point and put it in a buffer. ;;;*** -;;;### (autoloads (master-mode) "master" "master.el" (17843 45611)) +;;;### (autoloads (master-mode) "master" "master.el" (17842 58279)) ;;; Generated autoloads from master.el (autoload (quote master-mode) "master" "\ @@ -17655,14 +17655,14 @@ yourself the value of `master-of' by calling `master-show-slave'. ;;;*** ;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17942 -;;;;;; 37801)) +;;;;;; 63381)) ;;; Generated autoloads from menu-bar.el (put (quote menu-bar-mode) (quote standard-value) (quote (t))) (defvar menu-bar-mode nil "\ Non-nil if Menu-Bar mode is enabled. -See the command `menu-bar-mode' for a description of this minor-mode. +See the command `menu-bar-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `menu-bar-mode'.") @@ -17690,7 +17690,7 @@ turn on menu bars; otherwise, turn off menu bars. ;;;;;; message-cite-function message-yank-prefix message-citation-line-function ;;;;;; message-send-mail-function message-user-organization-file ;;;;;; message-signature-separator message-from-style) "message" -;;;;;; "gnus/message.el" (17949 5807)) +;;;;;; "gnus/message.el" (18010 19867)) ;;; Generated autoloads from gnus/message.el (defvar message-from-style (quote default) "\ @@ -17946,7 +17946,7 @@ which specify the range to operate on. ;;;*** ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/meta-mode.el (autoload (quote metafont-mode) "meta-mode" "\ @@ -17973,7 +17973,7 @@ Turning on MetaPost mode calls the value of the variable ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body ;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" -;;;;;; (17843 45621)) +;;;;;; (17842 55035)) ;;; Generated autoloads from mail/metamail.el (autoload (quote metamail-interpret-header) "metamail" "\ @@ -18018,7 +18018,7 @@ redisplayed as output is inserted. ;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose ;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" -;;;;;; "mh-e/mh-comp.el" (17843 45622)) +;;;;;; "mh-e/mh-comp.el" (17842 55144)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload (quote mh-smail) "mh-comp" "\ @@ -18105,7 +18105,7 @@ delete the draft message. ;;;*** -;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17843 45622)) +;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17842 55144)) ;;; Generated autoloads from mh-e/mh-e.el (put (quote mh-progs) (quote risky-local-variable) t) @@ -18122,7 +18122,7 @@ Display version information about MH-E and the MH mail handling system. ;;;*** ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" -;;;;;; "mh-e/mh-folder.el" (17843 45622)) +;;;;;; "mh-e/mh-folder.el" (17842 55144)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload (quote mh-rmail) "mh-folder" "\ @@ -18204,7 +18204,7 @@ perform the operation on all messages in that region. ;;;*** ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" -;;;;;; "midnight.el" (17843 45611)) +;;;;;; "midnight.el" (17842 58279)) ;;; Generated autoloads from midnight.el (autoload (quote clean-buffer-list) "midnight" "\ @@ -18231,12 +18231,12 @@ to its second argument TM. ;;;*** ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" -;;;;;; "minibuf-eldef.el" (17843 45611)) +;;;;;; "minibuf-eldef.el" (17842 58279)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ Non-nil if Minibuffer-Electric-Default mode is enabled. -See the command `minibuffer-electric-default-mode' for a description of this minor-mode. +See the command `minibuffer-electric-default-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `minibuffer-electric-default-mode'.") @@ -18259,7 +18259,7 @@ Returns non-nil if the new state is enabled. ;;;*** ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/mixal-mode.el (autoload (quote mixal-mode) "mixal-mode" "\ @@ -18274,7 +18274,7 @@ Major mode for the mixal asm language. ;;;### (autoloads (malayalam-composition-function malayalam-post-read-conversion ;;;;;; malayalam-compose-region) "mlm-util" "language/mlm-util.el" -;;;;;; (17843 45620)) +;;;;;; (17842 58278)) ;;; Generated autoloads from language/mlm-util.el (autoload (quote malayalam-compose-region) "mlm-util" "\ @@ -18297,7 +18297,7 @@ PATTERN regexp. ;;;*** ;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents) -;;;;;; "mm-extern" "gnus/mm-extern.el" (17843 45617)) +;;;;;; "mm-extern" "gnus/mm-extern.el" (17842 54741)) ;;; Generated autoloads from gnus/mm-extern.el (autoload (quote mm-extern-cache-contents) "mm-extern" "\ @@ -18316,7 +18316,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/mm-partial.el (autoload (quote mm-inline-partial) "mm-partial" "\ @@ -18330,7 +18330,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) -;;;;;; "mm-url" "gnus/mm-url.el" (17843 45617)) +;;;;;; "mm-url" "gnus/mm-url.el" (17842 54741)) ;;; Generated autoloads from gnus/mm-url.el (autoload (quote mm-url-insert-file-contents) "mm-url" "\ @@ -18347,7 +18347,7 @@ Insert file contents of URL using `mm-url-program'. ;;;*** ;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu" -;;;;;; "gnus/mm-uu.el" (17843 45617)) +;;;;;; "gnus/mm-uu.el" (17842 54741)) ;;; Generated autoloads from gnus/mm-uu.el (autoload (quote mm-uu-dissect) "mm-uu" "\ @@ -18367,7 +18367,7 @@ Assume text has been decoded if DECODED is non-nil. ;;;*** ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/mml1991.el (autoload (quote mml1991-encrypt) "mml1991" "\ @@ -18384,7 +18384,7 @@ Not documented ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt ;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) -;;;;;; "mml2015" "gnus/mml2015.el" (17843 45617)) +;;;;;; "mml2015" "gnus/mml2015.el" (17842 54741)) ;;; Generated autoloads from gnus/mml2015.el (autoload (quote mml2015-decrypt) "mml2015" "\ @@ -18425,7 +18425,7 @@ Not documented ;;;*** ;;;### (autoloads (modula-2-mode) "modula2" "progmodes/modula2.el" -;;;;;; (17276 54295)) +;;;;;; (17276 13069)) ;;; Generated autoloads from progmodes/modula2.el (autoload (quote modula-2-mode) "modula2" "\ @@ -18457,7 +18457,7 @@ followed by the first character of the construct. ;;;*** ;;;### (autoloads (unmorse-region morse-region) "morse" "play/morse.el" -;;;;;; (17843 45626)) +;;;;;; (17842 55395)) ;;; Generated autoloads from play/morse.el (autoload (quote morse-region) "morse" "\ @@ -18472,13 +18472,13 @@ Convert morse coded text in region to ordinary ASCII text. ;;;*** -;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17843 -;;;;;; 45611)) +;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from mouse-sel.el (defvar mouse-sel-mode nil "\ Non-nil if Mouse-Sel mode is enabled. -See the command `mouse-sel-mode' for a description of this minor-mode. +See the command `mouse-sel-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `mouse-sel-mode'.") @@ -18525,7 +18525,7 @@ primary selection and region. ;;;*** -;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17939 56022)) +;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17862 6157)) ;;; Generated autoloads from play/mpuz.el (autoload (quote mpuz) "mpuz" "\ @@ -18535,7 +18535,7 @@ Multiplication puzzle with GNU Emacs. ;;;*** -;;;### (autoloads (msb-mode) "msb" "msb.el" (17995 6542)) +;;;### (autoloads (msb-mode) "msb" "msb.el" (18006 55796)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ @@ -18562,7 +18562,7 @@ different buffer menu using the function `msb'. ;;;;;; describe-current-coding-system describe-current-coding-system-briefly ;;;;;; describe-coding-system describe-character-set list-charset-chars ;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" -;;;;;; (17843 45619)) +;;;;;; (17842 54888)) ;;; Generated autoloads from international/mule-diag.el (defvar non-iso-charset-alist (\` ((mac-roman (ascii latin-iso8859-1 mule-unicode-2500-33ff mule-unicode-0100-24ff mule-unicode-e000-ffff) mac-roman-decoder ((0 255))) (viscii (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-viscii-nonascii-translation-table ((0 255))) (vietnamese-tcvn (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-tcvn-nonascii-translation-table ((0 255))) (koi8-r (ascii cyrillic-iso8859-5) cyrillic-koi8-r-nonascii-translation-table ((32 255))) (alternativnyj (ascii cyrillic-iso8859-5) cyrillic-alternativnyj-nonascii-translation-table ((32 255))) (koi8-u (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) cyrillic-koi8-u-nonascii-translation-table ((32 255))) (big5 (ascii chinese-big5-1 chinese-big5-2) decode-big5-char ((32 127) ((161 254) 64 126 161 254))) (sjis (ascii katakana-jisx0201 japanese-jisx0208) decode-sjis-char ((32 127 161 223) ((129 159 224 239) 64 126 128 252))))) "\ @@ -18736,7 +18736,7 @@ system which uses fontsets). ;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion ;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist ;;;;;; truncate-string-to-width store-substring string-to-sequence) -;;;;;; "mule-util" "international/mule-util.el" (17843 45619)) +;;;;;; "mule-util" "international/mule-util.el" (17842 54888)) ;;; Generated autoloads from international/mule-util.el (autoload (quote string-to-sequence) "mule-util" "\ @@ -18865,12 +18865,12 @@ basis, this may not be accurate. ;;;*** ;;;### (autoloads (mwheel-install mouse-wheel-mode) "mwheel" "mwheel.el" -;;;;;; (17843 45611)) +;;;;;; (17842 58279)) ;;; Generated autoloads from mwheel.el (defvar mouse-wheel-mode nil "\ Non-nil if Mouse-Wheel mode is enabled. -See the command `mouse-wheel-mode' for a description of this minor-mode. +See the command `mouse-wheel-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `mouse-wheel-mode'.") @@ -18894,7 +18894,7 @@ Enable mouse wheel support. ;;;### (autoloads (network-connection network-connection-to-service ;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host ;;;;;; nslookup nslookup-host route arp netstat ipconfig ping traceroute) -;;;;;; "net-utils" "net/net-utils.el" (17939 56022)) +;;;;;; "net-utils" "net/net-utils.el" (17891 7215)) ;;; Generated autoloads from net/net-utils.el (autoload (quote traceroute) "net-utils" "\ @@ -18990,7 +18990,7 @@ Open a network connection to HOST on PORT. ;;;;;; uncomment-region comment-kill comment-set-column comment-indent ;;;;;; comment-indent-default comment-normalize-vars comment-multi-line ;;;;;; comment-padding comment-style comment-column) "newcomment" -;;;;;; "newcomment.el" (17939 56017)) +;;;;;; "newcomment.el" (17992 30877)) ;;; Generated autoloads from newcomment.el (defalias (quote indent-for-comment) (quote comment-indent)) @@ -19186,7 +19186,7 @@ unless optional argument SOFT is non-nil. ;;;### (autoloads (newsticker-show-news newsticker-start-ticker newsticker-start ;;;;;; newsticker-ticker-running-p newsticker-running-p) "newsticker" -;;;;;; "net/newsticker.el" (17939 56022)) +;;;;;; "net/newsticker.el" (17873 44590)) ;;; Generated autoloads from net/newsticker.el (autoload (quote newsticker-running-p) "newsticker" "\ @@ -19228,7 +19228,7 @@ Switch to newsticker buffer. You may want to bind this to a key. ;;;*** ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" -;;;;;; (17988 52353)) +;;;;;; (17992 30878)) ;;; Generated autoloads from gnus/nndiary.el (autoload (quote nndiary-generate-nov-databases) "nndiary" "\ @@ -19238,8 +19238,8 @@ Generate NOV databases in all nndiary directories. ;;;*** -;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17843 -;;;;;; 45617)) +;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/nndoc.el (autoload (quote nndoc-add-type) "nndoc" "\ @@ -19254,7 +19254,7 @@ symbol in the alist. ;;;*** ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/nnfolder.el (autoload (quote nnfolder-generate-active-file) "nnfolder" "\ @@ -19266,7 +19266,7 @@ This command does not work if you use short group names. ;;;*** ;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/nnkiboze.el (autoload (quote nnkiboze-generate-groups) "nnkiboze" "\ @@ -19278,7 +19278,7 @@ Finds out what articles are to be part of the nnkiboze groups. ;;;*** ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/nnml.el (autoload (quote nnml-generate-nov-databases) "nnml" "\ @@ -19289,7 +19289,7 @@ Generate NOV databases in all nnml directories. ;;;*** ;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies) -;;;;;; "nnsoup" "gnus/nnsoup.el" (17843 45617)) +;;;;;; "nnsoup" "gnus/nnsoup.el" (17842 54741)) ;;; Generated autoloads from gnus/nnsoup.el (autoload (quote nnsoup-pack-replies) "nnsoup" "\ @@ -19310,7 +19310,7 @@ Revert posting and mailing methods to the standard Emacs methods. ;;;*** ;;;### (autoloads (disable-command enable-command disabled-command-function) -;;;;;; "novice" "novice.el" (17843 45611)) +;;;;;; "novice" "novice.el" (17842 58279)) ;;; Generated autoloads from novice.el (defvar disabled-command-function (quote disabled-command-function) "\ @@ -19343,7 +19343,7 @@ to future sessions. ;;;*** ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" -;;;;;; (17843 45630)) +;;;;;; (17842 58277)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload (quote nroff-mode) "nroff-mode" "\ @@ -19358,7 +19358,7 @@ closing requests for requests that are used in matched pairs. ;;;*** ;;;### (autoloads (octave-help) "octave-hlp" "progmodes/octave-hlp.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/octave-hlp.el (autoload (quote octave-help) "octave-hlp" "\ @@ -19372,7 +19372,7 @@ If KEY is not a string, prompt for it with completion. ;;;*** ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/octave-inf.el (autoload (quote inferior-octave) "octave-inf" "\ @@ -19395,7 +19395,7 @@ startup file, `~/.emacs-octave'. ;;;*** ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/octave-mod.el (autoload (quote octave-mode) "octave-mod" "\ @@ -19499,7 +19499,7 @@ including a reproducible test case and send the message. ;;;;;; org-remember-handler org-remember org-remember-apply-template ;;;;;; org-remember-annotation org-store-link orgtbl-mode turn-on-orgtbl ;;;;;; org-global-cycle org-cycle org-mode) "org" "textmodes/org.el" -;;;;;; (17939 56024)) +;;;;;; (17922 37459)) ;;; Generated autoloads from textmodes/org.el (autoload (quote org-mode) "org" "\ @@ -19774,7 +19774,7 @@ The file is stored under the name `org-combined-agenda-icalendar-file'. ;;;*** ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" -;;;;;; (17950 55946)) +;;;;;; (17952 11093)) ;;; Generated autoloads from outline.el (put 'outline-regexp 'safe-local-variable 'string-or-null-p) @@ -19830,8 +19830,8 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "paragraphs" "textmodes/paragraphs.el" (17843 -;;;;;; 45630)) +;;;### (autoloads nil "paragraphs" "textmodes/paragraphs.el" (17842 +;;;;;; 58277)) ;;; Generated autoloads from textmodes/paragraphs.el (put 'paragraph-start 'safe-local-variable 'stringp) (put 'paragraph-separate 'safe-local-variable 'stringp) @@ -19845,7 +19845,7 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17960 56195)) +;;;### (autoloads (show-paren-mode) "paren" "paren.el" (18016 8765)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ @@ -19870,7 +19870,7 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time. ;;;*** ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" -;;;;;; (17958 15315)) +;;;;;; (17957 43164)) ;;; Generated autoloads from calendar/parse-time.el (autoload (quote parse-time-string) "parse-time" "\ @@ -19882,8 +19882,8 @@ unknown are returned as nil. ;;;*** -;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17843 -;;;;;; 45629)) +;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17842 +;;;;;; 56332)) ;;; Generated autoloads from progmodes/pascal.el (autoload (quote pascal-mode) "pascal" "\ @@ -19936,7 +19936,7 @@ no args, if that value is non-nil. ;;;*** ;;;### (autoloads (pc-bindings-mode) "pc-mode" "emulation/pc-mode.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54264)) ;;; Generated autoloads from emulation/pc-mode.el (autoload (quote pc-bindings-mode) "pc-mode" "\ @@ -19954,12 +19954,12 @@ C-Escape does list-buffers. ;;;*** ;;;### (autoloads (pc-selection-mode pc-selection-mode) "pc-select" -;;;;;; "emulation/pc-select.el" (17843 45615)) +;;;;;; "emulation/pc-select.el" (17842 54264)) ;;; Generated autoloads from emulation/pc-select.el (defvar pc-selection-mode nil "\ Non-nil if Pc-Selection mode is enabled. -See the command `pc-selection-mode' for a description of this minor-mode. +See the command `pc-selection-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `pc-selection-mode'.") @@ -20030,8 +20030,8 @@ you must modify it using \\[customize] or \\[pc-selection-mode].") ;;;*** -;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17843 -;;;;;; 45611)) +;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from pcmpl-cvs.el (autoload (quote pcomplete/cvs) "pcmpl-cvs" "\ @@ -20042,7 +20042,7 @@ Completion rules for the `cvs' command. ;;;*** ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) -;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17843 45611)) +;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17842 58279)) ;;; Generated autoloads from pcmpl-gnu.el (autoload (quote pcomplete/gzip) "pcmpl-gnu" "\ @@ -20070,7 +20070,7 @@ Completion for the GNU tar utility. ;;;*** ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) -;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17843 45611)) +;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17842 58279)) ;;; Generated autoloads from pcmpl-linux.el (autoload (quote pcomplete/kill) "pcmpl-linux" "\ @@ -20090,8 +20090,8 @@ Completion for GNU/Linux `mount'. ;;;*** -;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17843 -;;;;;; 45611)) +;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from pcmpl-rpm.el (autoload (quote pcomplete/rpm) "pcmpl-rpm" "\ @@ -20107,7 +20107,7 @@ You can use \\[eshell-report-bug] to do so. ;;;### (autoloads (pcomplete/chgrp pcomplete/chown pcomplete/which ;;;;;; pcomplete/xargs pcomplete/rm pcomplete/rmdir pcomplete/cd) -;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17843 45611)) +;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17842 58279)) ;;; Generated autoloads from pcmpl-unix.el (autoload (quote pcomplete/cd) "pcmpl-unix" "\ @@ -20153,8 +20153,8 @@ Completion for the `chgrp' command. ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list ;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete -;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17946 -;;;;;; 23918)) +;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17944 +;;;;;; 62194)) ;;; Generated autoloads from pcomplete.el (autoload (quote pcomplete) "pcomplete" "\ @@ -20213,7 +20213,7 @@ Setup shell-mode to use pcomplete. ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status ;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" -;;;;;; "pcvs.el" (17995 6542)) +;;;;;; "pcvs.el" (18006 55796)) ;;; Generated autoloads from pcvs.el (autoload (quote cvs-checkout) "pcvs" "\ @@ -20290,7 +20290,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** -;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17843 45611)) +;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17842 58279)) ;;; Generated autoloads from pcvs-defs.el (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] (quote (menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea"))) (define-key m [checkout] (quote (menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository"))) (define-key m [update] (quote (menu-item "Update Directory" cvs-update :help "Fetch updates from the repository"))) (define-key m [examine] (quote (menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea"))) (fset (quote cvs-global-menu) m))) @@ -20298,7 +20298,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" -;;;;;; (17966 9916)) +;;;;;; (17962 28280)) ;;; Generated autoloads from progmodes/perl-mode.el (autoload (quote perl-mode) "perl-mode" "\ @@ -20356,7 +20356,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. ;;;### (autoloads (pgg-snarf-keys pgg-snarf-keys-region pgg-insert-key ;;;;;; pgg-verify pgg-verify-region pgg-sign pgg-sign-region pgg-decrypt ;;;;;; pgg-decrypt-region pgg-encrypt pgg-encrypt-symmetric pgg-encrypt-symmetric-region -;;;;;; pgg-encrypt-region) "pgg" "pgg.el" (17843 45612)) +;;;;;; pgg-encrypt-region) "pgg" "pgg.el" (17842 58279)) ;;; Generated autoloads from pgg.el (autoload (quote pgg-encrypt-region) "pgg" "\ @@ -20490,7 +20490,7 @@ Import public keys in the current buffer. ;;;*** ;;;### (autoloads (pgg-gpg-symmetric-key-p) "pgg-gpg" "pgg-gpg.el" -;;;;;; (17939 56017)) +;;;;;; (17887 33207)) ;;; Generated autoloads from pgg-gpg.el (autoload (quote pgg-gpg-symmetric-key-p) "pgg-gpg" "\ @@ -20501,7 +20501,7 @@ True if decoded armor MESSAGE-KEYS has symmetric encryption indicator. ;;;*** ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" -;;;;;; (17843 45630)) +;;;;;; (17842 58277)) ;;; Generated autoloads from textmodes/picture.el (autoload (quote picture-mode) "picture" "\ @@ -20582,7 +20582,7 @@ they are not defaultly assigned to keys. ;;;*** ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" -;;;;;; (17843 45630)) +;;;;;; (17842 58277)) ;;; Generated autoloads from textmodes/po.el (autoload (quote po-find-file-coding-system) "po" "\ @@ -20593,7 +20593,7 @@ Called through `file-coding-system-alist', before the file is visited for real. ;;;*** -;;;### (autoloads (pong) "pong" "play/pong.el" (17843 45626)) +;;;### (autoloads (pong) "pong" "play/pong.el" (17842 55395)) ;;; Generated autoloads from play/pong.el (autoload (quote pong) "pong" "\ @@ -20610,7 +20610,7 @@ pong-mode keybindings:\\ ;;;*** ;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp pp-buffer -;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17939 56021)) +;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17852 19612)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload (quote pp-to-string) "pp" "\ @@ -20666,7 +20666,7 @@ Ignores leading comment characters. ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" -;;;;;; (17995 6542)) +;;;;;; (18006 55796)) ;;; Generated autoloads from printing.el (autoload (quote pr-interface) "printing" "\ @@ -21254,7 +21254,7 @@ are both set to t. ;;;*** ;;;### (autoloads (switch-to-prolog prolog-mode) "prolog" "progmodes/prolog.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/prolog.el (autoload (quote prolog-mode) "prolog" "\ @@ -21277,7 +21277,7 @@ With prefix argument \\[universal-prefix], prompt for the program to use. ;;;*** -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17843 45612)) +;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17842 58279)) ;;; Generated autoloads from ps-bdf.el (defvar bdf-directory-list (if (memq system-type (quote (ms-dos windows-nt))) (list (expand-file-name "fonts/bdf" installation-directory)) (quote ("/usr/local/share/emacs/fonts/bdf"))) "\ @@ -21286,8 +21286,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") ;;;*** -;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17843 -;;;;;; 45629)) +;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17842 +;;;;;; 56332)) ;;; Generated autoloads from progmodes/ps-mode.el (autoload (quote ps-mode) "ps-mode" "\ @@ -21336,7 +21336,7 @@ Typing \\\\[ps-run-goto-error] when the cursor is at the number ;;;### (autoloads (ps-mule-begin-page ps-mule-begin-job ps-mule-encode-header-string ;;;;;; ps-mule-initialize ps-mule-plot-composition ps-mule-plot-string ;;;;;; ps-mule-set-ascii-font ps-mule-prepare-ascii-font ps-multibyte-buffer) -;;;;;; "ps-mule" "ps-mule.el" (17843 45612)) +;;;;;; "ps-mule" "ps-mule.el" (17842 58279)) ;;; Generated autoloads from ps-mule.el (defvar ps-multibyte-buffer nil "\ @@ -21457,8 +21457,8 @@ Not documented ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type -;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (17939 -;;;;;; 56017)) +;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (18006 +;;;;;; 55796)) ;;; Generated autoloads from ps-print.el (defvar ps-page-dimensions-database (list (list (quote a4) (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list (quote a3) (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list (quote letter) (* 72 8.5) (* 72 11.0) "Letter") (list (quote legal) (* 72 8.5) (* 72 14.0) "Legal") (list (quote letter-small) (* 72 7.68) (* 72 10.16) "LetterSmall") (list (quote tabloid) (* 72 11.0) (* 72 17.0) "Tabloid") (list (quote ledger) (* 72 17.0) (* 72 11.0) "Ledger") (list (quote statement) (* 72 5.5) (* 72 8.5) "Statement") (list (quote executive) (* 72 7.5) (* 72 10.0) "Executive") (list (quote a4small) (* 72 7.47) (* 72 10.85) "A4Small") (list (quote b4) (* 72 10.125) (* 72 14.33) "B4") (list (quote b5) (* 72 7.16) (* 72 10.125) "B5")) "\ @@ -21655,7 +21655,7 @@ If EXTENSION is any other symbol, it is ignored. ;;;*** ;;;### (autoloads (jython-mode python-mode run-python) "python" "progmodes/python.el" -;;;;;; (17988 52600)) +;;;;;; (17992 30878)) ;;; Generated autoloads from progmodes/python.el (add-to-list (quote interpreter-mode-alist) (quote ("jython" . jython-mode))) @@ -21730,7 +21730,7 @@ Runs `jython-mode-hook' after `python-mode-hook'. ;;;*** ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/qp.el (autoload (quote quoted-printable-decode-region) "qp" "\ @@ -21753,7 +21753,7 @@ them into characters should be done separately. ;;;;;; quail-defrule quail-install-decode-map quail-install-map ;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout ;;;;;; quail-define-package quail-use-package quail-title) "quail" -;;;;;; "international/quail.el" (17939 56022)) +;;;;;; "international/quail.el" (17921 16827)) ;;; Generated autoloads from international/quail.el (autoload (quote quail-title) "quail" "\ @@ -21984,8 +21984,8 @@ of each directory. ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls ;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url -;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17843 -;;;;;; 45624)) +;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17842 +;;;;;; 55218)) ;;; Generated autoloads from net/quickurl.el (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" "\ @@ -22057,7 +22057,7 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" -;;;;;; "net/rcirc.el" (17988 52353)) +;;;;;; "net/rcirc.el" (18006 55797)) ;;; Generated autoloads from net/rcirc.el (autoload (quote rcirc) "rcirc" "\ @@ -22089,8 +22089,8 @@ Global minor mode for tracking activity in rcirc buffers. ;;;*** -;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17843 -;;;;;; 45624)) +;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17842 +;;;;;; 55218)) ;;; Generated autoloads from net/rcompile.el (autoload (quote remote-compile) "rcompile" "\ @@ -22102,7 +22102,7 @@ See \\[compile]. ;;;*** ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" -;;;;;; (17939 56021)) +;;;;;; (17917 37732)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias (quote regexp-builder) (quote re-builder)) @@ -22114,12 +22114,12 @@ Construct a regexp interactively. ;;;*** -;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17939 56017)) +;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17930 34071)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ Non-nil if Recentf mode is enabled. -See the command `recentf-mode' for a description of this minor-mode. +See the command `recentf-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `recentf-mode'.") @@ -22141,8 +22141,8 @@ that were operated on recently. ;;;### (autoloads (clear-rectangle string-insert-rectangle string-rectangle ;;;;;; delete-whitespace-rectangle open-rectangle insert-rectangle ;;;;;; yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle -;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17843 -;;;;;; 45612)) +;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from rect.el (autoload (quote move-to-column-force) "rect" "\ @@ -22270,8 +22270,8 @@ rectangle which were empty. ;;;*** -;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17843 -;;;;;; 45630)) +;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17842 +;;;;;; 58277)) ;;; Generated autoloads from textmodes/refill.el (autoload (quote refill-mode) "refill" "\ @@ -22287,7 +22287,7 @@ refilling if they would cause auto-filling. ;;;*** ;;;### (autoloads (reftex-reset-scanning-information reftex-mode -;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17939 56024)) +;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17923 8784)) ;;; Generated autoloads from textmodes/reftex.el (autoload (quote turn-on-reftex) "reftex" "\ @@ -22337,7 +22337,7 @@ This enforces rescanning the buffer on next use. ;;;*** ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" -;;;;;; (17939 56024)) +;;;;;; (17923 8784)) ;;; Generated autoloads from textmodes/reftex-cite.el (autoload (quote reftex-citation) "reftex-cite" "\ @@ -22367,7 +22367,7 @@ While entering the regexp, completion on knows citation keys is possible. ;;;*** ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" -;;;;;; (17939 56024)) +;;;;;; (17923 8784)) ;;; Generated autoloads from textmodes/reftex-global.el (autoload (quote reftex-isearch-minor-mode) "reftex-global" "\ @@ -22384,7 +22384,7 @@ With no argument, this command toggles ;;;*** ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" -;;;;;; (17939 56024)) +;;;;;; (17923 8784)) ;;; Generated autoloads from textmodes/reftex-index.el (autoload (quote reftex-index-phrases-mode) "reftex-index" "\ @@ -22417,7 +22417,7 @@ Here are all local bindings. ;;;*** ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" -;;;;;; (17939 56024)) +;;;;;; (17923 8784)) ;;; Generated autoloads from textmodes/reftex-parse.el (autoload (quote reftex-all-document-files) "reftex-parse" "\ @@ -22429,8 +22429,8 @@ of master file. ;;;*** -;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (17939 -;;;;;; 56024)) +;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (17923 +;;;;;; 8784)) ;;; Generated autoloads from textmodes/reftex-vars.el (put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) (put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) @@ -22440,7 +22440,7 @@ of master file. ;;;*** ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload (quote regexp-opt) "regexp-opt" "\ @@ -22467,7 +22467,7 @@ This means the number of non-shy regexp grouping constructs ;;;*** -;;;### (autoloads (repeat) "repeat" "repeat.el" (17843 45612)) +;;;### (autoloads (repeat) "repeat" "repeat.el" (17842 58279)) ;;; Generated autoloads from repeat.el (autoload (quote repeat) "repeat" "\ @@ -22485,7 +22485,7 @@ can be modified by the global variable `repeat-on-final-keystroke'. ;;;*** ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" -;;;;;; (17843 45622)) +;;;;;; (17842 55035)) ;;; Generated autoloads from mail/reporter.el (autoload (quote reporter-submit-bug-report) "reporter" "\ @@ -22517,7 +22517,7 @@ mail-sending package is used for editing and sending the message. ;;;*** ;;;### (autoloads (reposition-window) "reposition" "reposition.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58279)) ;;; Generated autoloads from reposition.el (autoload (quote reposition-window) "reposition" "\ @@ -22544,8 +22544,8 @@ first comment line visible (if point is in a comment). ;;;*** -;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17843 -;;;;;; 45612)) +;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17842 +;;;;;; 58279)) ;;; Generated autoloads from resume.el (autoload (quote resume-suspend-hook) "resume" "\ @@ -22556,7 +22556,7 @@ Clear out the file used for transmitting args when Emacs resumes. ;;;*** ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58279)) ;;; Generated autoloads from reveal.el (autoload (quote reveal-mode) "reveal" "\ @@ -22571,7 +22571,7 @@ With zero or negative ARG turn mode off. (defvar global-reveal-mode nil "\ Non-nil if Global-Reveal mode is enabled. -See the command `global-reveal-mode' for a description of this minor-mode. +See the command `global-reveal-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-reveal-mode'.") @@ -22591,7 +22591,7 @@ With zero or negative ARG turn mode off. ;;;*** ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" -;;;;;; (17843 45615)) +;;;;;; (17842 54152)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload (quote ring-p) "ring" "\ @@ -22606,7 +22606,7 @@ Make a ring that can contain SIZE elements. ;;;*** -;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17843 45624)) +;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17842 55218)) ;;; Generated autoloads from net/rlogin.el (add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)") @@ -22657,8 +22657,8 @@ variable. ;;;;;; rmail-mail-new-frame rmail-primary-inbox-list rmail-delete-after-output ;;;;;; rmail-highlight-face rmail-highlighted-headers rmail-retry-ignored-headers ;;;;;; rmail-displayed-headers rmail-ignored-headers rmail-dont-reply-to-names -;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17995 -;;;;;; 6542)) +;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (18006 +;;;;;; 55797)) ;;; Generated autoloads from mail/rmail.el (autoload (quote rmail-movemail-variant-p) "rmail" "\ @@ -22923,7 +22923,7 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. ;;;*** ;;;### (autoloads (rmail-edit-current-message) "rmailedit" "mail/rmailedit.el" -;;;;;; (17939 56022)) +;;;;;; (17887 18399)) ;;; Generated autoloads from mail/rmailedit.el (autoload (quote rmail-edit-current-message) "rmailedit" "\ @@ -22935,7 +22935,7 @@ Edit the contents of this message. ;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message ;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd" -;;;;;; "mail/rmailkwd.el" (17843 45622)) +;;;;;; "mail/rmailkwd.el" (17842 55035)) ;;; Generated autoloads from mail/rmailkwd.el (autoload (quote rmail-add-label) "rmailkwd" "\ @@ -22974,7 +22974,7 @@ With prefix argument N moves forward N messages with these labels. ;;;*** ;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "mail/rmailmsc.el" -;;;;;; (17843 45622)) +;;;;;; (17842 55035)) ;;; Generated autoloads from mail/rmailmsc.el (autoload (quote set-rmail-inbox-list) "rmailmsc" "\ @@ -22988,7 +22988,7 @@ If FILE-NAME is empty, remove any existing inbox list. ;;;### (autoloads (rmail-output-body-to-file rmail-output rmail-fields-not-to-output ;;;;;; rmail-output-to-rmail-file rmail-output-file-alist) "rmailout" -;;;;;; "mail/rmailout.el" (17843 45622)) +;;;;;; "mail/rmailout.el" (17842 55035)) ;;; Generated autoloads from mail/rmailout.el (defvar rmail-output-file-alist nil "\ @@ -23055,8 +23055,8 @@ FILE-NAME defaults, interactively, from the Subject field of the message. ;;;### (autoloads (rmail-sort-by-labels rmail-sort-by-lines rmail-sort-by-correspondent ;;;;;; rmail-sort-by-recipient rmail-sort-by-author rmail-sort-by-subject -;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17843 -;;;;;; 45622)) +;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17842 +;;;;;; 55035)) ;;; Generated autoloads from mail/rmailsort.el (autoload (quote rmail-sort-by-date) "rmailsort" "\ @@ -23108,7 +23108,7 @@ KEYWORDS is a comma-separated list of labels. ;;;;;; rmail-summary-by-senders rmail-summary-by-topic rmail-summary-by-regexp ;;;;;; rmail-summary-by-recipients rmail-summary-by-labels rmail-summary ;;;;;; rmail-summary-line-count-flag rmail-summary-scroll-between-messages) -;;;;;; "rmailsum" "mail/rmailsum.el" (17843 45622)) +;;;;;; "rmailsum" "mail/rmailsum.el" (17842 55035)) ;;; Generated autoloads from mail/rmailsum.el (defvar rmail-summary-scroll-between-messages t "\ @@ -23190,7 +23190,7 @@ Setting this variable has an effect only before reading a mail.") ;;;*** ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region -;;;;;; rot13-string rot13) "rot13" "rot13.el" (17843 45612)) +;;;;;; rot13-string rot13) "rot13" "rot13.el" (17842 58279)) ;;; Generated autoloads from rot13.el (autoload (quote rot13) "rot13" "\ @@ -23227,8 +23227,8 @@ Toggle the use of ROT13 encoding for the current window. ;;;*** -;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17838 -;;;;;; 18033)) +;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17833 +;;;;;; 43069)) ;;; Generated autoloads from ruler-mode.el (autoload (quote ruler-mode) "ruler-mode" "\ @@ -23238,8 +23238,8 @@ Display a ruler in the header line if ARG > 0. ;;;*** -;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17843 -;;;;;; 45615)) +;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (18011 +;;;;;; 44080)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload (quote rx-to-string) "rx" "\ @@ -23311,8 +23311,7 @@ CHAR matches the empty string, but only at point. `word-start', `bow' - matches the empty string, but only at the beginning or end of a - word. + matches the empty string, but only at the beginning of a word. `word-end', `eow' matches the empty string, but only at the end of a word. @@ -23326,6 +23325,12 @@ CHAR matches the empty string, but not at the beginning or end of a word. +`symbol-start' + matches the empty string, but only at the beginning of a symbol. + +`symbol-end' + matches the empty string, but only at the end of a symbol. + `digit', `numeric', `num' matches 0 through 9. @@ -23547,7 +23552,7 @@ enclosed in `(and ...)'. ;;;*** ;;;### (autoloads (savehist-mode savehist-mode) "savehist" "savehist.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58279)) ;;; Generated autoloads from savehist.el (defvar savehist-mode nil "\ @@ -23573,7 +23578,7 @@ which is probably undesirable. ;;;*** ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/scheme.el (autoload (quote scheme-mode) "scheme" "\ @@ -23615,7 +23620,7 @@ that variable's value is a string. ;;;*** ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/score-mode.el (autoload (quote gnus-score-mode) "score-mode" "\ @@ -23629,12 +23634,12 @@ This mode is an extended emacs-lisp mode. ;;;*** ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58278)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ Non-nil if Scroll-All mode is enabled. -See the command `scroll-all-mode' for a description of this minor-mode. +See the command `scroll-all-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `scroll-all-mode'.") @@ -23652,7 +23657,7 @@ apply to all visible windows in the same frame. ;;;*** ;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58278)) ;;; Generated autoloads from scroll-lock.el (autoload (quote scroll-lock-mode) "scroll-lock" "\ @@ -23674,7 +23679,7 @@ during scrolling. ;;;;;; mail-alias-file mail-default-reply-to mail-archive-file-name ;;;;;; mail-header-separator send-mail-function mail-interactive ;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style) -;;;;;; "sendmail" "mail/sendmail.el" (17942 35726)) +;;;;;; "sendmail" "mail/sendmail.el" (17942 63381)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style (quote angles) "\ @@ -23975,7 +23980,7 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** ;;;### (autoloads (server-mode server-start) "server" "server.el" -;;;;;; (17939 56017)) +;;;;;; (17921 16827)) ;;; Generated autoloads from server.el (autoload (quote server-start) "server" "\ @@ -23992,7 +23997,7 @@ kill any existing server communications subprocess. (defvar server-mode nil "\ Non-nil if Server mode is enabled. -See the command `server-mode' for a description of this minor-mode. +See the command `server-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `server-mode'.") @@ -24009,7 +24014,7 @@ Server mode runs a process that accepts commands from the ;;;*** -;;;### (autoloads (ses-mode) "ses" "ses.el" (17939 56017)) +;;;### (autoloads (ses-mode) "ses" "ses.el" (17902 31690)) ;;; Generated autoloads from ses.el (autoload (quote ses-mode) "ses" "\ @@ -24028,7 +24033,7 @@ These are active only in the minibuffer, when entering or editing a formula: ;;;*** ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" -;;;;;; (17939 56024)) +;;;;;; (18010 58080)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload (quote sgml-mode) "sgml-mode" "\ @@ -24096,7 +24101,7 @@ To work around that, do: ;;;*** ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" -;;;;;; (17988 52354)) +;;;;;; (17992 30878)) ;;; Generated autoloads from progmodes/sh-script.el (put 'sh-shell 'safe-local-variable 'symbolp) @@ -24160,7 +24165,7 @@ with your script for an edit-interpret-debug cycle. ;;;*** -;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17843 45617)) +;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17842 54741)) ;;; Generated autoloads from gnus/sha1.el (autoload (quote sha1) "sha1" "\ @@ -24175,7 +24180,7 @@ If BINARY is non-nil, return a string in binary form. ;;;*** ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" -;;;;;; (17939 56021)) +;;;;;; (17853 57352)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload (quote list-load-path-shadows) "shadow" "\ @@ -24222,8 +24227,8 @@ buffer called `*Shadows*'. Shadowings are located by calling the ;;;*** ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group -;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17843 -;;;;;; 45612)) +;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from shadowfile.el (autoload (quote shadow-define-cluster) "shadowfile" "\ @@ -24262,7 +24267,7 @@ Set up file shadowing. ;;;*** ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" -;;;;;; (17939 56017)) +;;;;;; (17899 1575)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp "cmd\\(proxy\\)?\\.exe" "\ @@ -24309,7 +24314,7 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) -;;;;;; "sieve" "gnus/sieve.el" (17843 45617)) +;;;;;; "sieve" "gnus/sieve.el" (17842 54741)) ;;; Generated autoloads from gnus/sieve.el (autoload (quote sieve-manage) "sieve" "\ @@ -24330,7 +24335,7 @@ Not documented ;;;*** ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" -;;;;;; (17843 45617)) +;;;;;; (17842 54741)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload (quote sieve-mode) "sieve-mode" "\ @@ -24345,14 +24350,14 @@ Turning on Sieve mode runs `sieve-mode-hook'. ;;;*** -;;;### (autoloads nil "simple" "simple.el" (17995 6542)) +;;;### (autoloads nil "simple" "simple.el" (18009 38727)) ;;; Generated autoloads from simple.el (put 'fill-prefix 'safe-local-variable 'string-or-null-p) ;;;*** -;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17843 -;;;;;; 45629)) +;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17842 +;;;;;; 56332)) ;;; Generated autoloads from progmodes/simula.el (autoload (quote simula-mode) "simula" "\ @@ -24401,7 +24406,7 @@ with no arguments, if that value is non-nil. ;;;*** ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new -;;;;;; define-skeleton) "skeleton" "skeleton.el" (17843 45612)) +;;;;;; define-skeleton) "skeleton" "skeleton.el" (17842 58278)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter-function (quote identity) "\ @@ -24511,7 +24516,7 @@ symmetrical ones, and the same character twice for the others. ;;;*** ;;;### (autoloads (smerge-mode smerge-ediff) "smerge-mode" "smerge-mode.el" -;;;;;; (17939 56017)) +;;;;;; (17904 28230)) ;;; Generated autoloads from smerge-mode.el (autoload (quote smerge-ediff) "smerge-mode" "\ @@ -24530,7 +24535,7 @@ Minor mode to simplify editing output from the diff3 program. ;;;*** ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" -;;;;;; (17939 56021)) +;;;;;; (17875 18370)) ;;; Generated autoloads from gnus/smiley.el (autoload (quote smiley-region) "smiley" "\ @@ -24548,7 +24553,7 @@ interactively. If there's no argument, do it at the current buffer ;;;*** ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" -;;;;;; "mail/smtpmail.el" (17939 56022)) +;;;;;; "mail/smtpmail.el" (17939 50716)) ;;; Generated autoloads from mail/smtpmail.el (autoload (quote smtpmail-send-it) "smtpmail" "\ @@ -24563,7 +24568,7 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. ;;;*** -;;;### (autoloads (snake) "snake" "play/snake.el" (17843 45626)) +;;;### (autoloads (snake) "snake" "play/snake.el" (17842 55395)) ;;; Generated autoloads from play/snake.el (autoload (quote snake) "snake" "\ @@ -24587,7 +24592,7 @@ Snake mode keybindings: ;;;*** ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" -;;;;;; (17843 45624)) +;;;;;; (17842 55218)) ;;; Generated autoloads from net/snmp-mode.el (autoload (quote snmp-mode) "snmp-mode" "\ @@ -24618,7 +24623,7 @@ then `snmpv2-mode-hook'. ;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset calendar-location-name ;;;;;; calendar-longitude calendar-latitude calendar-time-display-form) -;;;;;; "solar" "calendar/solar.el" (17956 60684)) +;;;;;; "solar" "calendar/solar.el" (17956 13479)) ;;; Generated autoloads from calendar/solar.el (defvar calendar-time-display-form (quote (12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")"))) "\ @@ -24689,8 +24694,8 @@ Requires floating point. ;;;*** -;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17843 -;;;;;; 45626)) +;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17842 +;;;;;; 55395)) ;;; Generated autoloads from play/solitaire.el (autoload (quote solitaire) "solitaire" "\ @@ -24767,7 +24772,7 @@ Pick your favourite shortcuts: ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields ;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs -;;;;;; sort-lines sort-subr) "sort" "sort.el" (17843 45612)) +;;;;;; sort-lines sort-subr) "sort" "sort.el" (17842 58278)) ;;; Generated autoloads from sort.el (autoload (quote sort-subr) "sort" "\ @@ -24909,8 +24914,8 @@ From a program takes two point or marker arguments, BEG and END. ;;;*** -;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17843 -;;;;;; 45617)) +;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17842 +;;;;;; 54741)) ;;; Generated autoloads from gnus/spam.el (autoload (quote spam-initialize) "spam" "\ @@ -24922,7 +24927,7 @@ Install the spam.el hooks and do other initialization ;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file ;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" -;;;;;; "gnus/spam-report.el" (17843 45617)) +;;;;;; "gnus/spam-report.el" (17842 54741)) ;;; Generated autoloads from gnus/spam-report.el (autoload (quote spam-report-process-queue) "spam-report" "\ @@ -24965,7 +24970,7 @@ Spam reports will be queued with the method used when ;;;*** ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" -;;;;;; "speedbar.el" (17939 56017)) +;;;;;; "speedbar.el" (17881 43027)) ;;; Generated autoloads from speedbar.el (defalias (quote speedbar) (quote speedbar-frame-mode)) @@ -24990,7 +24995,7 @@ selected. If the speedbar frame is active, then select the attached frame. ;;;*** ;;;### (autoloads (spell-string spell-region spell-word spell-buffer) -;;;;;; "spell" "textmodes/spell.el" (17843 45630)) +;;;;;; "spell" "textmodes/spell.el" (17842 58276)) ;;; Generated autoloads from textmodes/spell.el (put (quote spell-filter) (quote risky-local-variable) t) @@ -25026,8 +25031,8 @@ Check spelling of string supplied as argument. ;;;*** -;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17843 -;;;;;; 45626)) +;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17842 +;;;;;; 55395)) ;;; Generated autoloads from play/spook.el (autoload (quote spook) "spook" "\ @@ -25045,8 +25050,8 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;### (autoloads (sql-linter sql-db2 sql-interbase sql-postgres ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-mode sql-help -;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17843 -;;;;;; 45629)) +;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17842 +;;;;;; 56332)) ;;; Generated autoloads from progmodes/sql.el (autoload (quote sql-add-product-keywords) "sql" "\ @@ -25477,8 +25482,8 @@ input. See `sql-interactive-mode'. ;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes ;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke ;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke -;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17843 -;;;;;; 45612)) +;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from strokes.el (autoload (quote strokes-global-set-stroke) "strokes" "\ @@ -25549,7 +25554,7 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead. (defvar strokes-mode nil "\ Non-nil if Strokes mode is enabled. -See the command `strokes-mode' for a description of this minor-mode. +See the command `strokes-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `strokes-mode'.") @@ -25608,7 +25613,7 @@ Studlify-case the current buffer. ;;;*** -;;;### (autoloads (locate-library) "subr" "subr.el" (17966 9915)) +;;;### (autoloads (locate-library) "subr" "subr.el" (17964 48351)) ;;; Generated autoloads from subr.el (autoload (quote locate-library) "subr" "\ @@ -25630,7 +25635,7 @@ and the file name is displayed in the echo area. ;;;*** ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" -;;;;;; (17939 56022)) +;;;;;; (17854 7564)) ;;; Generated autoloads from mail/supercite.el (autoload (quote sc-cite-original) "supercite" "\ @@ -25662,7 +25667,7 @@ before, and `sc-post-hook' is run after the guts of this function. ;;;*** -;;;### (autoloads (t-mouse-mode) "t-mouse" "t-mouse.el" (17966 9915)) +;;;### (autoloads (t-mouse-mode) "t-mouse" "t-mouse.el" (18006 55796)) ;;; Generated autoloads from t-mouse.el (defvar t-mouse-mode nil "\ @@ -25675,16 +25680,18 @@ or call the function `t-mouse-mode'.") (custom-autoload (quote t-mouse-mode) "t-mouse" nil) (autoload (quote t-mouse-mode) "t-mouse" "\ -Toggle t-mouse mode. +Toggle t-mouse mode to use the mouse in Linux consoles. With prefix arg, turn t-mouse mode on iff arg is positive. -Turn it on to use Emacs mouse commands, and off to use t-mouse commands. +This allows the use of the mouse when operating on a Linux console, in the +same way as you can use the mouse under X11. +It requires the `mev' program, part of the `gpm' utilities. \(fn &optional ARG)" t nil) ;;;*** -;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17843 45612)) +;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17842 58278)) ;;; Generated autoloads from tabify.el (autoload (quote untabify) "tabify" "\ @@ -25719,7 +25726,7 @@ The variable `tab-width' controls the spacing of tab stops. ;;;;;; table-recognize table-insert-row-column table-insert-column ;;;;;; table-insert-row table-insert table-point-left-cell-hook ;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) -;;;;;; "table" "textmodes/table.el" (17843 45630)) +;;;;;; "table" "textmodes/table.el" (18012 17784)) ;;; Generated autoloads from textmodes/table.el (defvar table-cell-map-hook nil "\ @@ -26307,7 +26314,7 @@ converts a table into plain text without frames. It is a companion to ;;;*** -;;;### (autoloads (talk-connect) "talk" "talk.el" (17843 45612)) +;;;### (autoloads (talk-connect) "talk" "talk.el" (17842 58278)) ;;; Generated autoloads from talk.el (autoload (quote talk-connect) "talk" "\ @@ -26317,7 +26324,7 @@ Connect to display DISPLAY for the Emacs talk group. ;;;*** -;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17843 45612)) +;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (18010 5426)) ;;; Generated autoloads from tar-mode.el (autoload (quote tar-mode) "tar-mode" "\ @@ -26341,7 +26348,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. ;;;*** ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" -;;;;;; "progmodes/tcl.el" (17843 45629)) +;;;;;; "progmodes/tcl.el" (17842 56332)) ;;; Generated autoloads from progmodes/tcl.el (autoload (quote tcl-mode) "tcl" "\ @@ -26392,7 +26399,7 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. ;;;*** -;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17843 45624)) +;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17842 55218)) ;;; Generated autoloads from net/telnet.el (add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)") @@ -26419,8 +26426,8 @@ Normally input is edited in Emacs and sent a line at a time. ;;;*** -;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17951 -;;;;;; 39252)) +;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17952 +;;;;;; 11093)) ;;; Generated autoloads from term.el (autoload (quote make-term) "term" "\ @@ -26448,8 +26455,8 @@ Start a terminal-emulator in a new buffer. ;;;*** -;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17843 -;;;;;; 45612)) +;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from terminal.el (autoload (quote terminal-emulator) "terminal" "\ @@ -26486,7 +26493,7 @@ subprocess started. ;;;*** ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" -;;;;;; (17939 56021)) +;;;;;; (17925 52793)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload (quote testcover-this-defun) "testcover" "\ @@ -26496,7 +26503,7 @@ Start coverage on function under point. ;;;*** -;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17941 5494)) +;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17941 38806)) ;;; Generated autoloads from play/tetris.el (autoload (quote tetris) "tetris" "\ @@ -26527,7 +26534,7 @@ tetris-mode keybindings: ;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command ;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp ;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" -;;;;;; (17843 45630)) +;;;;;; (17992 30878)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -26829,7 +26836,7 @@ Major mode to edit DocTeX files. ;;;*** ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) -;;;;;; "texinfmt" "textmodes/texinfmt.el" (17843 45630)) +;;;;;; "texinfmt" "textmodes/texinfmt.el" (17842 58276)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload (quote texinfo-format-buffer) "texinfmt" "\ @@ -26869,7 +26876,7 @@ if large. You can use Info-split to do this manually. ;;;*** ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) -;;;;;; "texinfo" "textmodes/texinfo.el" (17843 45630)) +;;;;;; "texinfo" "textmodes/texinfo.el" (17842 58276)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote "``" "\ @@ -26956,7 +26963,7 @@ value of `texinfo-mode-hook'. ;;;### (autoloads (thai-auto-composition-mode thai-composition-function ;;;;;; thai-post-read-conversion thai-compose-buffer thai-compose-string ;;;;;; thai-compose-region) "thai-util" "language/thai-util.el" -;;;;;; (17843 45621)) +;;;;;; (17842 58278)) ;;; Generated autoloads from language/thai-util.el (autoload (quote thai-compose-region) "thai-util" "\ @@ -27000,7 +27007,7 @@ Minor mode for automatically correct Thai character composition. ;;;### (autoloads (list-at-point number-at-point symbol-at-point ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) -;;;;;; "thingatpt" "thingatpt.el" (17843 45612)) +;;;;;; "thingatpt" "thingatpt.el" (17842 58278)) ;;; Generated autoloads from thingatpt.el (autoload (quote forward-thing) "thingatpt" "\ @@ -27057,7 +27064,7 @@ Not documented ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked ;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" -;;;;;; (17966 9916)) +;;;;;; (17963 26308)) ;;; Generated autoloads from thumbs.el (autoload (quote thumbs-find-thumb) "thumbs" "\ @@ -27096,7 +27103,7 @@ In dired, call the setroot program on the image at point. ;;;;;; tibetan-composition-function tibetan-decompose-string tibetan-decompose-region ;;;;;; tibetan-compose-region tibetan-compose-string tibetan-transcription-to-tibetan ;;;;;; tibetan-tibetan-to-transcription tibetan-char-p) "tibet-util" -;;;;;; "language/tibet-util.el" (17843 45621)) +;;;;;; "language/tibet-util.el" (17842 58278)) ;;; Generated autoloads from language/tibet-util.el (autoload (quote tibetan-char-p) "tibet-util" "\ @@ -27175,7 +27182,7 @@ Not documented ;;;*** ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" -;;;;;; (17843 45630)) +;;;;;; (17842 58276)) ;;; Generated autoloads from textmodes/tildify.el (autoload (quote tildify-region) "tildify" "\ @@ -27199,7 +27206,7 @@ This function performs no refilling of the changed text. ;;;*** ;;;### (autoloads (display-time-mode display-time display-time-day-and-date) -;;;;;; "time" "time.el" (17995 6542)) +;;;;;; "time" "time.el" (18006 55796)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -27241,8 +27248,8 @@ This runs the normal hook `display-time-hook' after each update. ;;;### (autoloads (safe-date-to-time time-to-days time-to-day-in-year ;;;;;; date-leap-year-p days-between date-to-day time-add time-subtract ;;;;;; time-since days-to-time time-less-p seconds-to-time time-to-seconds -;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17843 -;;;;;; 45615)) +;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17842 +;;;;;; 53792)) ;;; Generated autoloads from calendar/time-date.el (autoload (quote date-to-time) "time-date" "\ @@ -27328,7 +27335,7 @@ If DATE is malformed, return a time value of zeros. ;;;*** ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" -;;;;;; "time-stamp.el" (17843 45612)) +;;;;;; "time-stamp.el" (17842 58278)) ;;; Generated autoloads from time-stamp.el (put 'time-stamp-format 'safe-local-variable 'stringp) (put 'time-stamp-line-limit 'safe-local-variable 'integerp) @@ -27371,7 +27378,7 @@ With ARG, turn time stamping on if and only if arg is positive. ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" -;;;;;; (17988 52353)) +;;;;;; (17992 30878)) ;;; Generated autoloads from calendar/timeclock.el (autoload (quote timeclock-modeline-display) "timeclock" "\ @@ -27472,7 +27479,7 @@ relative only to the time worked today, and not to past time. ;;;### (autoloads (with-timeout run-with-idle-timer add-timeout run-with-timer ;;;;;; run-at-time cancel-function-timers cancel-timer) "timer" -;;;;;; "emacs-lisp/timer.el" (17939 56021)) +;;;;;; "emacs-lisp/timer.el" (17935 13348)) ;;; Generated autoloads from emacs-lisp/timer.el (defalias (quote disable-timeout) (quote cancel-timer)) @@ -27553,7 +27560,7 @@ be detected. ;;;*** ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" -;;;;;; "international/titdic-cnv.el" (17939 56022)) +;;;;;; "international/titdic-cnv.el" (17870 32853)) ;;; Generated autoloads from international/titdic-cnv.el (autoload (quote titdic-convert) "titdic-cnv" "\ @@ -27576,8 +27583,8 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** ;;;### (autoloads (tamil-composition-function tamil-post-read-conversion -;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17843 -;;;;;; 45621)) +;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from language/tml-util.el (autoload (quote tamil-compose-region) "tml-util" "\ @@ -27600,7 +27607,7 @@ PATTERN regexp. ;;;*** ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" -;;;;;; "tmm.el" (17953 11485)) +;;;;;; "tmm.el" (17952 58711)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [f10] 'tmm-menubar) @@ -27641,7 +27648,7 @@ Its value should be an event that has a binding in MENU. ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities ;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) -;;;;;; "todo-mode" "calendar/todo-mode.el" (17966 9916)) +;;;;;; "todo-mode" "calendar/todo-mode.el" (17962 52848)) ;;; Generated autoloads from calendar/todo-mode.el (autoload (quote todo-add-category) "todo-mode" "\ @@ -27702,7 +27709,7 @@ Show TODO list. ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu ;;;;;; tool-bar-local-item tool-bar-add-item) "tool-bar" "tool-bar.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58278)) ;;; Generated autoloads from tool-bar.el (put (quote tool-bar-mode) (quote standard-value) (quote (t))) @@ -27769,12 +27776,12 @@ holds a keymap. ;;;*** ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" -;;;;;; (17843 45615)) +;;;;;; (18006 55796)) ;;; Generated autoloads from emulation/tpu-edt.el (defvar tpu-edt-mode nil "\ Non-nil if Tpu-Edt mode is enabled. -See the command `tpu-edt-mode' for a description of this minor-mode. +See the command `tpu-edt-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `tpu-edt-mode'.") @@ -27796,7 +27803,7 @@ Turn on TPU/edt emulation. ;;;*** ;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins) -;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17843 45615)) +;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17842 54264)) ;;; Generated autoloads from emulation/tpu-extras.el (autoload (quote tpu-set-scroll-margins) "tpu-extras" "\ @@ -27816,7 +27823,7 @@ Constrain the cursor to the flow of the text. ;;;*** -;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17843 45615)) +;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload (quote tq-create) "tq" "\ @@ -27830,7 +27837,7 @@ to a tcp server on another machine. ;;;*** ;;;### (autoloads (trace-function-background trace-function trace-buffer) -;;;;;; "trace" "emacs-lisp/trace.el" (17843 45615)) +;;;;;; "trace" "emacs-lisp/trace.el" (17842 54152)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer "*trace-output*" "\ @@ -27867,7 +27874,7 @@ BUFFER defaults to `trace-buffer'. ;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion ;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers ;;;;;; tramp-file-name-handler tramp-completion-file-name-regexp -;;;;;; tramp-file-name-regexp) "tramp" "net/tramp.el" (17939 56022)) +;;;;;; tramp-file-name-regexp) "tramp" "net/tramp.el" (17934 45069)) ;;; Generated autoloads from net/tramp.el (defvar tramp-unified-filenames (not (featurep (quote xemacs))) "\ @@ -27984,7 +27991,7 @@ Discard Tramp from loading remote files. ;;;*** ;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" -;;;;;; (17843 45624)) +;;;;;; (17842 55218)) ;;; Generated autoloads from net/tramp-ftp.el (autoload (quote tramp-ftp-enable-ange-ftp) "tramp-ftp" "\ @@ -27994,8 +28001,8 @@ Not documented ;;;*** -;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (17995 -;;;;;; 6542)) +;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (18006 +;;;;;; 55796)) ;;; Generated autoloads from tutorial.el (autoload (quote help-with-tutorial) "tutorial" "\ @@ -28020,7 +28027,7 @@ resumed later. ;;;*** ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" -;;;;;; "textmodes/two-column.el" (17843 45630)) +;;;;;; "textmodes/two-column.el" (17842 58276)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -28071,7 +28078,7 @@ First column's text sSs Second column's text ;;;;;; type-break type-break-mode type-break-keystroke-threshold ;;;;;; type-break-good-break-interval type-break-good-rest-interval ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" -;;;;;; (17939 56017)) +;;;;;; (17908 29123)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -28254,7 +28261,7 @@ FRAC should be the inverse of the fractional value; for example, a value of ;;;*** ;;;### (autoloads (ununderline-region underline-region) "underline" -;;;;;; "textmodes/underline.el" (17843 45630)) +;;;;;; "textmodes/underline.el" (17842 58276)) ;;; Generated autoloads from textmodes/underline.el (autoload (quote underline-region) "underline" "\ @@ -28275,7 +28282,7 @@ which specify the range to operate on. ;;;*** ;;;### (autoloads (unforward-rmail-message undigestify-rmail-message) -;;;;;; "undigest" "mail/undigest.el" (17843 45622)) +;;;;;; "undigest" "mail/undigest.el" (17842 55035)) ;;; Generated autoloads from mail/undigest.el (autoload (quote undigestify-rmail-message) "undigest" "\ @@ -28294,7 +28301,7 @@ following the containing message. ;;;*** ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" -;;;;;; (17843 45622)) +;;;;;; (17842 55035)) ;;; Generated autoloads from mail/unrmail.el (autoload (quote batch-unrmail) "unrmail" "\ @@ -28313,8 +28320,8 @@ Convert Rmail file FILE to system inbox format file TO-FILE. ;;;*** -;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17843 -;;;;;; 45615)) +;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17842 +;;;;;; 54152)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload (quote unsafep) "unsafep" "\ @@ -28327,7 +28334,7 @@ of symbols with local bindings. ;;;*** ;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url" -;;;;;; "url/url.el" (17843 45630)) +;;;;;; "url/url.el" (17842 56569)) ;;; Generated autoloads from url/url.el (autoload (quote url-retrieve) "url" "\ @@ -28367,7 +28374,7 @@ no further processing). URL is either a string or a parsed URL. ;;;*** ;;;### (autoloads (url-register-auth-scheme url-get-authentication) -;;;;;; "url-auth" "url/url-auth.el" (17939 56024)) +;;;;;; "url-auth" "url/url-auth.el" (17854 10173)) ;;; Generated autoloads from url/url-auth.el (autoload (quote url-get-authentication) "url-auth" "\ @@ -28409,8 +28416,8 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** ;;;### (autoloads (url-cache-expired url-cache-extract url-is-cached -;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17843 -;;;;;; 45630)) +;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17842 +;;;;;; 56569)) ;;; Generated autoloads from url/url-cache.el (autoload (quote url-store-in-cache) "url-cache" "\ @@ -28435,7 +28442,7 @@ Return t iff a cached file has expired. ;;;*** -;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17843 45630)) +;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17842 56569)) ;;; Generated autoloads from url/url-cid.el (autoload (quote url-cid) "url-cid" "\ @@ -28446,7 +28453,7 @@ Not documented ;;;*** ;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" -;;;;;; "url/url-dav.el" (17843 45630)) +;;;;;; "url/url-dav.el" (17842 56569)) ;;; Generated autoloads from url/url-dav.el (autoload (quote url-dav-supported-p) "url-dav" "\ @@ -28461,8 +28468,8 @@ Not documented ;;;*** -;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17843 -;;;;;; 45630)) +;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17842 +;;;;;; 56569)) ;;; Generated autoloads from url/url-file.el (autoload (quote url-file) "url-file" "\ @@ -28473,7 +28480,7 @@ Handle file: and ftp: URLs. ;;;*** ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" -;;;;;; "url/url-gw.el" (17843 45630)) +;;;;;; "url/url-gw.el" (17842 56569)) ;;; Generated autoloads from url/url-gw.el (autoload (quote url-gateway-nslookup-host) "url-gw" "\ @@ -28492,13 +28499,13 @@ Might do a non-blocking connection; use `process-status' to check. ;;;*** ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file -;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17843 -;;;;;; 45630)) +;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17842 +;;;;;; 56569)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ Non-nil if Url-Handler mode is enabled. -See the command `url-handler-mode' for a description of this minor-mode. +See the command `url-handler-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `url-handler-mode'.") @@ -28537,7 +28544,7 @@ Not documented ;;;*** ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p -;;;;;; url-http) "url-http" "url/url-http.el" (17951 39666)) +;;;;;; url-http) "url-http" "url/url-http.el" (17952 11683)) ;;; Generated autoloads from url/url-http.el (autoload (quote url-http) "url-http" "\ @@ -28602,7 +28609,7 @@ HTTPS retrievals are asynchronous.") ;;;*** -;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17843 45630)) +;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17842 56569)) ;;; Generated autoloads from url/url-irc.el (autoload (quote url-irc) "url-irc" "\ @@ -28612,8 +28619,8 @@ Not documented ;;;*** -;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17843 -;;;;;; 45630)) +;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17842 +;;;;;; 56569)) ;;; Generated autoloads from url/url-ldap.el (autoload (quote url-ldap) "url-ldap" "\ @@ -28627,7 +28634,7 @@ URL can be a URL string, or a URL vector of the type returned by ;;;*** ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" -;;;;;; (17843 45630)) +;;;;;; (18012 18089)) ;;; Generated autoloads from url/url-mailto.el (autoload (quote url-mail) "url-mailto" "\ @@ -28643,7 +28650,7 @@ Handle the mailto: URL syntax. ;;;*** ;;;### (autoloads (url-data url-generic-emulator-loader url-info -;;;;;; url-man) "url-misc" "url/url-misc.el" (17843 45630)) +;;;;;; url-man) "url-misc" "url/url-misc.el" (17842 56569)) ;;; Generated autoloads from url/url-misc.el (autoload (quote url-man) "url-misc" "\ @@ -28675,7 +28682,7 @@ Fetch a data URL (RFC 2397). ;;;*** ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" -;;;;;; (17843 45630)) +;;;;;; (17842 56569)) ;;; Generated autoloads from url/url-news.el (autoload (quote url-news) "url-news" "\ @@ -28692,7 +28699,7 @@ Not documented ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable ;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" -;;;;;; (17843 45630)) +;;;;;; (17842 56569)) ;;; Generated autoloads from url/url-ns.el (autoload (quote isPlainHostName) "url-ns" "\ @@ -28733,7 +28740,7 @@ Not documented ;;;*** ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" -;;;;;; "url/url-parse.el" (17955 48758)) +;;;;;; "url/url-parse.el" (17954 22157)) ;;; Generated autoloads from url/url-parse.el (autoload (quote url-recreate-url) "url-parse" "\ @@ -28751,7 +28758,7 @@ Format is: ;;;*** ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" -;;;;;; (17843 45630)) +;;;;;; (17842 56569)) ;;; Generated autoloads from url/url-privacy.el (autoload (quote url-setup-privacy-info) "url-privacy" "\ @@ -28767,7 +28774,7 @@ Setup variables that expose info about you and your system. ;;;;;; url-strip-leading-spaces url-eat-trailing-space url-get-normalized-date ;;;;;; url-lazy-message url-normalize-url url-insert-entities-in-string ;;;;;; url-parse-args url-debug url-debug) "url-util" "url/url-util.el" -;;;;;; (17843 45630)) +;;;;;; (17842 56569)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -28896,7 +28903,7 @@ This uses `url-current-object', set locally to the buffer. ;;;*** ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) -;;;;;; "userlock" "userlock.el" (17843 45612)) +;;;;;; "userlock" "userlock.el" (17842 58278)) ;;; Generated autoloads from userlock.el (autoload (quote ask-user-about-lock) "userlock" "\ @@ -28924,7 +28931,7 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf-7" "international/utf-7.el" (17843 45620)) +;;;### (autoloads nil "utf-7" "international/utf-7.el" (17842 54888)) ;;; Generated autoloads from international/utf-7.el (autoload-coding-system 'utf-7 '(require 'utf-7)) @@ -28932,7 +28939,7 @@ The buffer in question is current when this function is called. ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal ;;;;;; uudecode-decode-region-external) "uudecode" "gnus/uudecode.el" -;;;;;; (17939 56022)) +;;;;;; (17855 50203)) ;;; Generated autoloads from gnus/uudecode.el (autoload (quote uudecode-decode-region-external) "uudecode" "\ @@ -28962,7 +28969,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;;;; vc-directory vc-merge vc-insert-headers vc-version-other-window ;;;;;; vc-diff vc-register vc-next-action vc-do-command edit-vc-file ;;;;;; with-vc-file vc-branch-part vc-trunk-p vc-before-checkin-hook -;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17843 45612)) +;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17992 30877)) ;;; Generated autoloads from vc.el (defvar vc-checkout-hook nil "\ @@ -29250,7 +29257,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-arch" "vc-arch.el" (17939 56017)) +;;;### (autoloads nil "vc-arch" "vc-arch.el" (17930 34221)) ;;; Generated autoloads from vc-arch.el (defun vc-arch-registered (file) (if (vc-find-root file "{arch}/=tagging-method") @@ -29260,7 +29267,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17843 45612)) +;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17842 58278)) ;;; Generated autoloads from vc-cvs.el (defun vc-cvs-registered (f) (when (file-readable-p (expand-file-name @@ -29270,7 +29277,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17843 45612)) +;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17842 58278)) ;;; Generated autoloads from vc-mcvs.el (defun vc-mcvs-registered (file) (if (vc-find-root file "MCVS/CVS") @@ -29281,7 +29288,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc-rcs.el" -;;;;;; (17939 56017)) +;;;;;; (17925 15266)) ;;; Generated autoloads from vc-rcs.el (defvar vc-rcs-master-templates (quote ("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -29294,7 +29301,7 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc-sccs.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58278)) ;;; Generated autoloads from vc-sccs.el (defvar vc-sccs-master-templates (quote ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ @@ -29311,7 +29318,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** -;;;### (autoloads nil "vc-svn" "vc-svn.el" (17939 56018)) +;;;### (autoloads nil "vc-svn" "vc-svn.el" (17881 64914)) ;;; Generated autoloads from vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -29329,7 +29336,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" -;;;;;; (17966 9917)) +;;;;;; (17962 27361)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload (quote vhdl-mode) "vhdl-mode" "\ @@ -29870,7 +29877,7 @@ Key bindings: ;;;*** -;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17789 35159)) +;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17788 40208)) ;;; Generated autoloads from emulation/vi.el (autoload (quote vi-mode) "vi" "\ @@ -29925,7 +29932,7 @@ Syntax table and abbrevs while in vi mode remain as they were in Emacs. ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion ;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer ;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" -;;;;;; "language/viet-util.el" (17843 45621)) +;;;;;; "language/viet-util.el" (17842 58278)) ;;; Generated autoloads from language/viet-util.el (autoload (quote viet-encode-viscii-char) "viet-util" "\ @@ -29971,8 +29978,8 @@ Not documented ;;;### (autoloads (View-exit-and-edit view-mode-enter view-mode view-buffer-other-frame ;;;;;; view-buffer-other-window view-buffer view-file-other-frame -;;;;;; view-file-other-window view-file) "view" "view.el" (17995 -;;;;;; 6542)) +;;;;;; view-file-other-window view-file) "view" "view.el" (18006 +;;;;;; 55796)) ;;; Generated autoloads from view.el (defvar view-mode nil "\ @@ -30181,8 +30188,8 @@ Exit View mode and make the current buffer editable. ;;;*** -;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17843 -;;;;;; 45615)) +;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17842 +;;;;;; 54264)) ;;; Generated autoloads from emulation/vip.el (autoload (quote vip-setup) "vip" "\ @@ -30198,7 +30205,7 @@ Turn on VIP emulation of VI. ;;;*** ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" -;;;;;; (17939 56021)) +;;;;;; (17921 23052)) ;;; Generated autoloads from emulation/viper.el (autoload (quote toggle-viper-mode) "viper" "\ @@ -30215,7 +30222,7 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. ;;;*** ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" -;;;;;; (17939 56021)) +;;;;;; (17935 13348)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -30305,7 +30312,7 @@ this is equivalent to `display-warning', using ;;;*** ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" -;;;;;; (17843 45612)) +;;;;;; (17842 58278)) ;;; Generated autoloads from wdired.el (autoload (quote wdired-change-to-wdired-mode) "wdired" "\ @@ -30321,7 +30328,7 @@ See `wdired-mode'. ;;;*** -;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17843 45625)) +;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17842 55218)) ;;; Generated autoloads from net/webjump.el (autoload (quote webjump) "webjump" "\ @@ -30338,7 +30345,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" -;;;;;; (17843 45629)) +;;;;;; (17842 56332)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -30347,7 +30354,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke (defvar which-function-mode nil "\ Non-nil if Which-Function mode is enabled. -See the command `which-function-mode' for a description of this minor-mode. +See the command `which-function-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `which-function-mode'.") @@ -30371,7 +30378,7 @@ and off otherwise. ;;;;;; whitespace-buffer whitespace-toggle-ateol-check whitespace-toggle-spacetab-check ;;;;;; whitespace-toggle-indent-check whitespace-toggle-trailing-check ;;;;;; whitespace-toggle-leading-check) "whitespace" "whitespace.el" -;;;;;; (17939 56018)) +;;;;;; (17925 15266)) ;;; Generated autoloads from whitespace.el (autoload (quote whitespace-toggle-leading-check) "whitespace" "\ @@ -30437,7 +30444,7 @@ Whitespace cleanup on the region. (defvar whitespace-global-mode nil "\ Non-nil if Whitespace-Global mode is enabled. -See the command `whitespace-global-mode' for a description of this minor-mode. +See the command `whitespace-global-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `whitespace-global-mode'.") @@ -30462,7 +30469,7 @@ This is meant to be added buffer-locally to `write-file-functions'. ;;;*** ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse -;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17843 45612)) +;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17842 58278)) ;;; Generated autoloads from wid-browse.el (autoload (quote widget-browse-at) "wid-browse" "\ @@ -30489,8 +30496,8 @@ With arg, turn widget mode on if and only if arg is positive. ;;;*** ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create -;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17951 -;;;;;; 39252)) +;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17952 +;;;;;; 11093)) ;;; Generated autoloads from wid-edit.el (autoload (quote widgetp) "wid-edit" "\ @@ -30534,8 +30541,8 @@ Setup current buffer so editing string widgets works. ;;;*** ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right -;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17843 -;;;;;; 45612)) +;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17842 +;;;;;; 58278)) ;;; Generated autoloads from windmove.el (autoload (quote windmove-left) "windmove" "\ @@ -30588,7 +30595,7 @@ Default MODIFIER is 'shift. ;;;*** ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" -;;;;;; (17843 45613)) +;;;;;; (17842 58278)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ @@ -30607,7 +30614,7 @@ With arg, turn Winner mode on if and only if arg is positive. ;;;*** ;;;### (autoloads (woman-find-file woman-dired-find-file woman) "woman" -;;;;;; "woman.el" (17947 59257)) +;;;;;; "woman.el" (17949 41467)) ;;; Generated autoloads from woman.el (autoload (quote woman) "woman" "\ @@ -30643,7 +30650,7 @@ decompress the file if appropriate. See the documentation for the ;;;*** ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" -;;;;;; (17843 45616)) +;;;;;; (17842 54264)) ;;; Generated autoloads from emulation/ws-mode.el (autoload (quote wordstar-mode) "ws-mode" "\ @@ -30756,7 +30763,7 @@ The key bindings are: ;;;*** ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" -;;;;;; (17939 56018)) +;;;;;; (17916 14776)) ;;; Generated autoloads from xml.el (autoload (quote xml-parse-file) "xml" "\ @@ -30781,13 +30788,13 @@ If PARSE-NS is non-nil, then QNAMES are expanded. ;;;*** -;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17939 -;;;;;; 56019)) +;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (18007 +;;;;;; 39657)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ Non-nil if Xterm-Mouse mode is enabled. -See the command `xterm-mouse-mode' for a description of this minor-mode. +See the command `xterm-mouse-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `xterm-mouse-mode'.") @@ -30810,7 +30817,7 @@ down the SHIFT key while pressing the mouse button. ;;;*** ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" -;;;;;; "gnus/yenc.el" (17843 45618)) +;;;;;; "gnus/yenc.el" (17842 54741)) ;;; Generated autoloads from gnus/yenc.el (autoload (quote yenc-decode-region) "yenc" "\ @@ -30826,7 +30833,7 @@ Extract file name from an yenc header. ;;;*** ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism -;;;;;; yow) "yow" "play/yow.el" (17843 45626)) +;;;;;; yow) "yow" "play/yow.el" (17842 55395)) ;;; Generated autoloads from play/yow.el (autoload (quote yow) "yow" "\ @@ -30852,7 +30859,7 @@ Zippy goes to the analyst. ;;;*** -;;;### (autoloads (zone) "zone" "play/zone.el" (17941 5494)) +;;;### (autoloads (zone) "zone" "play/zone.el" (17941 38806)) ;;; Generated autoloads from play/zone.el (autoload (quote zone) "zone" "\ @@ -30992,7 +30999,7 @@ Zone out, completely. ;;;;;; "url/url-vars.el" "url/vc-dav.el" "vc-hooks.el" "vcursor.el" ;;;;;; "version.el" "vms-patch.el" "vmsproc.el" "vt-control.el" ;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "widget.el" "window.el" -;;;;;; "x-dnd.el") (17996 40125 700465)) +;;;;;; "x-dnd.el") (18016 62249 573562)) ;;;*** From 537a062fd717b3375dbef29bf6ce3c0fa79749fd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:11:31 +0000 Subject: [PATCH 032/276] Version 22.1 released. --- admin/ChangeLog | 4 ++++ msdos/ChangeLog | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/admin/ChangeLog b/admin/ChangeLog index 3de9ca32484..0b316a83649 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-02-03 Eli Zaretskii * nt/makedist.bat: Change EOL format to DOS. Don't use diff --git a/msdos/ChangeLog b/msdos/ChangeLog index 24f83276b92..4c7c136c187 100644 --- a/msdos/ChangeLog +++ b/msdos/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Chong Yidong + + * Version 22.1 released. + 2007-02-10 Glenn Morris * COPYING.DJ: Remove file since it is no longer needed (see README From 3d5724d8f126a8ed6d3300008616694d84317745 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2007 11:11:48 +0000 Subject: [PATCH 033/276] Increment version number to 22.1. --- lib-src/makefile.w32-in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in index c1e7b70e5bf..5face04b081 100644 --- a/lib-src/makefile.w32-in +++ b/lib-src/makefile.w32-in @@ -24,7 +24,7 @@ ALL = make-docfile hexl ctags etags movemail ebrowse sorted-doc digest-doc emacs .PHONY: $(ALL) -VERSION = 22.0.990 +VERSION = 22.1 LOCAL_FLAGS = -DWINDOWSNT -DDOS_NT -DSTDC_HEADERS=1 -DNO_LDAV=1 \ -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../nt/inc \ From 6ee20a68d8e156428ffad02c304134da527ce01c Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 2 Jun 2007 12:23:08 +0000 Subject: [PATCH 034/276] (Hideshow): Delete. (EDB, Go in a buffer): Update urls. --- etc/ChangeLog | 6 ++++++ etc/MORE.STUFF | 6 ++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 425b0dc353a..98567074f76 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,9 @@ +2007-06-02 Thien-Thi Nguyen + + * MORE.STUFF (Hideshow): Delete. + (EDB, Go in a buffer): Update urls. + Suggested by CHENG Gao . + 2007-05-29 Robert J. Chassell * NEWS: Fix instances of `allow' without object. diff --git a/etc/MORE.STUFF b/etc/MORE.STUFF index d91d22c6d52..01f639cdab0 100644 --- a/etc/MORE.STUFF +++ b/etc/MORE.STUFF @@ -76,8 +76,6 @@ You might find bug-fixes or enhancements in these places. * Ffap: (And some addons for it.) - * Hideshow: - * Ispell: * MH-E: @@ -148,7 +146,7 @@ Several are for Debian GNU/Linux in particular. * ECB: Emacs Code Browser: - * EDB: database: + * EDB: database: * Ee: categorizing information manager: @@ -185,7 +183,7 @@ Several are for Debian GNU/Linux in particular. page: eiffel-mode.el. * Go in a buffer: Go Text Protocol client: - + A modified version is also bundled with GNU Go: From 43ec3b5809462c4be2be00b74b19cca7f3bbfea5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 2 Jun 2007 13:14:17 +0000 Subject: [PATCH 035/276] (Color Parameters): Add xref to (emacs)Standard Faces. --- lispref/ChangeLog | 4 ++++ lispref/frames.texi | 1 + 2 files changed, 5 insertions(+) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 99e7c621598..0e446feb711 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,7 @@ +2007-06-02 Richard Stallman + + * frames.texi (Color Parameters): Add xref to (emacs)Standard Faces. + 2007-06-02 Chong Yidong * Version 22.1 released. diff --git a/lispref/frames.texi b/lispref/frames.texi index 527f27385f3..b8a0d4749e2 100644 --- a/lispref/frames.texi +++ b/lispref/frames.texi @@ -706,6 +706,7 @@ results for LCD color displays. These frame parameters are semi-obsolete in that they are automatically equivalent to particular face attributes of particular faces. +@xref{Standard Faces,,, emacs, The Emacs Manual}. @table @code @item font From 0de301ed8cb14190d50e49d92d4e25694e6a0e40 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 3 Jun 2007 00:19:11 +0000 Subject: [PATCH 036/276] Remove two finished items: ** Display images with alpha channels with the current background color ** describe-face should show an example of text in the face. --- etc/TODO | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/etc/TODO b/etc/TODO index 85ce494c601..da9eef0e61e 100644 --- a/etc/TODO +++ b/etc/TODO @@ -32,8 +32,6 @@ a window doesn't select it. but if you type M-n you should get the visited file name of the current buffer. -** describe-face should show an example of text in the face. - ** Distribute a bar cursor of width > 1 evenly between the two glyphs on each side of the bar (what to do at the edges?). @@ -179,6 +177,7 @@ specified filters, specified timers, and specified hooks. ** Remove the default toggling behavior of minor modes when called from elisp rather than interactively. This a trivial one-liner in easy-mode.el. + ** Create a category of errors called `user-error' for errors which are typically due to pilot errors and should thus be in debug-ignored-errors. @@ -381,15 +380,6 @@ typically due to pilot errors and should thus be in debug-ignored-errors. ** Allow unknown image types to be rendered via an external program converting them to, say, PBM (in the same way as PostScript?). -** Display images with alpha channels, such as png, with the current -background color of whatever frame it is displayed in. Currently, we -use the default background color if specified in the png file, or, if -that is unspecified, the background color of the frame in which the -image was first created. Ideally, the image should display the -background color of whichever frame it is being displayed in. The -main complication is that this will require the loading of a new image -object for each different background color. - ** Allow displaying an X window from an external program in a buffer, e.g. to render graphics from Java applets. [gerd and/or wmperry thought this was feasible.] From d94df25b2d0193b1a0130e160d8fe19cb4e0645c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 3 Jun 2007 00:21:56 +0000 Subject: [PATCH 037/276] * image.c (search_image_cache): New function. Require background color match if background color is unspecified in the image spec. (uncache_image, lookup_image): Use it. --- src/ChangeLog | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index c57fd74db02..a2e0e54001e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2007-06-03 Chong Yidong + + * image.c (search_image_cache): New function. Require background + color match if background color is unspecified in the image spec. + (uncache_image, lookup_image): Use it. + 2007-06-01 Juanma Barranquero * window.c (Fshrink_window): Reflow docstring. From d3c35d17036e0b9f409e26a0491989a336849a4f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 3 Jun 2007 00:23:33 +0000 Subject: [PATCH 038/276] (search_image_cache): New function. Require background color match if background color is unspecified in the image spec. (uncache_image, lookup_image): Use it. --- src/image.c | 57 ++++++++++++++++++++++++++++++++++------------------- 1 file changed, 37 insertions(+), 20 deletions(-) diff --git a/src/image.c b/src/image.c index 11f4425136c..789de0223be 100644 --- a/src/image.c +++ b/src/image.c @@ -1609,6 +1609,7 @@ x_alloc_image_color (f, img, color_name, dflt) Image Cache ***********************************************************************/ +static struct image *search_image_cache P_ ((struct frame *, Lisp_Object, unsigned)); static void cache_image P_ ((struct frame *f, struct image *img)); static void postprocess_image P_ ((struct frame *, struct image *)); @@ -1631,24 +1632,47 @@ make_image_cache () } -/* Search frame F for an images with spec SPEC, and free it. */ +/* Find an image matching SPEC in the cache, and return it. If no + image is found, return NULL. */ +static struct image * +search_image_cache (f, spec, hash) + struct frame *f; + Lisp_Object spec; + unsigned hash; +{ + struct image *img; + struct image_cache *c = FRAME_X_IMAGE_CACHE (f); + Lisp_Object specified_bg = image_spec_value (spec, QCbackground, NULL); + int i = hash % IMAGE_CACHE_BUCKETS_SIZE; + + /* If the image spec does not specify a background color, the cached + image must have the same background color as the current frame. + The following code be improved. For example, jpeg does not + support transparency, but currently a jpeg image spec won't match + a cached spec created with a different frame background. The + extra memory usage is probably negligible in practice. */ + if (!c) return NULL; + + for (img = c->buckets[i]; img; img = img->next) + if (img->hash == hash + && !NILP (Fequal (img->spec, spec)) + && (STRINGP (specified_bg) + || img->background == FRAME_BACKGROUND_PIXEL (f))) + break; + return img; +} + + +/* Search frame F for an image with spec SPEC, and free it. */ static void uncache_image (f, spec) struct frame *f; Lisp_Object spec; { - struct image_cache *c = FRAME_X_IMAGE_CACHE (f); - struct image *img; - unsigned hash = sxhash (spec, 0); - int i = hash % IMAGE_CACHE_BUCKETS_SIZE; - - for (img = c->buckets[i]; img; img = img->next) - if (img->hash == hash && !NILP (Fequal (img->spec, spec))) - { - free_image (f, img); - break; - } + struct image *img = search_image_cache (f, spec, sxhash (spec, 0)); + if (img) + free_image (f, img); } @@ -1875,9 +1899,7 @@ lookup_image (f, spec) struct frame *f; Lisp_Object spec; { - struct image_cache *c = FRAME_X_IMAGE_CACHE (f); struct image *img; - int i; unsigned hash; struct gcpro gcpro1; EMACS_TIME now; @@ -1891,12 +1913,7 @@ lookup_image (f, spec) /* Look up SPEC in the hash table of the image cache. */ hash = sxhash (spec, 0); - i = hash % IMAGE_CACHE_BUCKETS_SIZE; - - for (img = c->buckets[i]; img; img = img->next) - if (img->hash == hash && !NILP (Fequal (img->spec, spec))) - break; - + img = search_image_cache (f, spec, hash); if (img && img->load_failed_p) { free_image (f, img); From dd7c59638b1dce6894fc7dcb098f97d526ca2caf Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 3 Jun 2007 00:41:36 +0000 Subject: [PATCH 039/276] (MOUSE_SUPPORT): Define for HAVE_GPM. --- src/Makefile.in | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Makefile.in b/src/Makefile.in index 65a604bf78c..a19cf3969fe 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -673,8 +673,12 @@ otherobj= $(termcapobj) lastfile.o $(mallocobj) $(allocaobj) $(widgetobj) $(LIBO #define MOUSE_SUPPORT ${lispsource}mouse.elc \ ${lispsource}select.elc ${lispsource}scroll-bar.elc #else +#ifdef HAVE_GPM +#define MOUSE_SUPPORT ${lispsource}mouse.elc +#else #define MOUSE_SUPPORT #endif +#endif #ifdef VMS #define VMS_SUPPORT ${lispsource}vmsproc.elc ${lispsource}vms-patch.elc From db1213a9935c8b417f55197f65f23b02ebcdd323 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 3 Jun 2007 00:54:02 +0000 Subject: [PATCH 040/276] *** empty log message *** --- src/ChangeLog | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index a2e0e54001e..ecfbb087c45 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,18 @@ +2007-06-03 Nick Roberts + + * keyboard.c (discard_mouse_events): Add GPM_CLICK_EVENT case. + + * frame.c (Fmouse_position, Fmouse_pixel_position): + Condition on HAVE_GPM too. + + * term.c (term_mouse_highlight): Remove unused variables. + (Fterm_open_connection): Set gpm_zerobased to 1. + (term_mouse_movement, term_mouse_click, handle_one_term_event): + Use zero based co-ordinates. + (handle_one_term_event): Report a drag as mouse movement too. + + * Makefile.in (MOUSE_SUPPORT): Define for HAVE_GPM. + 2007-06-03 Chong Yidong * image.c (search_image_cache): New function. Require background From 80fb2ce07c307b39d012d25f30393ac7da255887 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 3 Jun 2007 00:55:34 +0000 Subject: [PATCH 041/276] (term_mouse_highlight): Remove unused variables. (Fterm_open_connection): Set gpm_zerobased to 1. (term_mouse_movement, term_mouse_click, handle_one_term_event): Use zero based co-ordinates. (handle_one_term_event): Report a drag as mouse movement too. --- src/term.c | 44 +++++++++++++++----------------------------- 1 file changed, 15 insertions(+), 29 deletions(-) diff --git a/src/term.c b/src/term.c index 7abb5d2e049..88bb181fb81 100644 --- a/src/term.c +++ b/src/term.c @@ -428,11 +428,6 @@ static int mouse_face_past_end; static Lisp_Object Qmouse_face_window; static int mouse_face_face_id; -/* FRAME and X, Y position of mouse when last checked for - highlighting. X and Y can be negative or out of range for the frame. */ -struct frame *mouse_face_mouse_frame; -int mouse_face_mouse_x, mouse_face_mouse_y; - static int pos_x, pos_y; static int last_mouse_x, last_mouse_y; #endif /* HAVE_GPM */ @@ -2387,13 +2382,13 @@ term_mouse_moveto (int x, int y) { const char *name; int fd; + /* TODO: how to set mouse position? name = (const char *) ttyname (0); fd = open (name, O_WRONLY); - /* TODO: how to set mouse position? - SOME_FUNCTION (x, y, fd); */ + SOME_FUNCTION (x, y, fd); close (fd); last_mouse_x = x; - last_mouse_y = y; + last_mouse_y = y; */ } static void @@ -2570,10 +2565,6 @@ term_mouse_highlight (struct frame *f, int x, int y) || !f->glyphs_initialized_p) return; - mouse_face_mouse_x = x; - mouse_face_mouse_y = y; - mouse_face_mouse_frame = f; - /* Which window is that in? */ window = window_from_coordinates (f, x, y, &part, &x, &y, 0); @@ -2815,7 +2806,7 @@ term_mouse_movement (FRAME_PTR frame, Gpm_Event *event) if (event->x != last_mouse_x || event->y != last_mouse_y) { frame->mouse_moved = 1; - term_mouse_highlight (frame, event->x - 1, event->y - 1); + term_mouse_highlight (frame, event->x, event->y); /* Remember which glyph we're now on. */ last_mouse_x = event->x; last_mouse_y = event->y; @@ -2835,7 +2826,7 @@ term_mouse_movement (FRAME_PTR frame, Gpm_Event *event) Set *time to the time the mouse was at the returned position. - This should clear mouse_moved until the next motion + This clears mouse_moved until the next motion event arrives. */ static void term_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window, @@ -2843,8 +2834,6 @@ term_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window, Lisp_Object *y, unsigned long *time) { struct timeval now; - Lisp_Object frame, window; - struct window *w; *fp = SELECTED_FRAME (); (*fp)->mouse_moved = 0; @@ -2852,13 +2841,8 @@ term_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window, *bar_window = Qnil; *part = 0; - XSETINT (*x, last_mouse_x); + XSETINT (*x, last_mouse_x); XSETINT (*y, last_mouse_y); - XSETFRAME (frame, *fp); - window = Fwindow_at (*x, *y, frame); - - XSETINT (*x, last_mouse_x - WINDOW_LEFT_EDGE_COL (XWINDOW (window))); - XSETINT (*y, last_mouse_y - WINDOW_TOP_EDGE_LINE (XWINDOW (window))); gettimeofday(&now, 0); *time = (now.tv_sec * 1000) + (now.tv_usec / 1000); } @@ -2905,7 +2889,7 @@ term_mouse_click (struct input_event *result, Gpm_Event *event, if (event->type & GPM_DRAG) result->modifiers |= drag_modifier; - if (!(event->type & (GPM_MOVE|GPM_DRAG))) { + if (!(event->type & (GPM_MOVE | GPM_DRAG))) { /* 1 << KG_SHIFT */ if (event->modifiers & (1 << 0)) @@ -2921,8 +2905,8 @@ term_mouse_click (struct input_event *result, Gpm_Event *event, result->modifiers |= meta_modifier; } - XSETINT (result->x, event->x - 1); - XSETINT (result->y, event->y - 1); + XSETINT (result->x, event->x); + XSETINT (result->y, event->y); XSETFRAME (result->frame_or_window, f); result->arg = Qnil; return Qnil; @@ -2941,7 +2925,7 @@ handle_one_term_event (Gpm_Event *event, struct input_event* hold_quit) ie.kind = NO_EVENT; ie.arg = Qnil; - if (event->type & GPM_MOVE) { + if (event->type & (GPM_MOVE | GPM_DRAG)) { unsigned char buf[6 * sizeof (short)]; unsigned short *arg = (unsigned short *) buf + 1; const char *name; @@ -2952,8 +2936,8 @@ handle_one_term_event (Gpm_Event *event, struct input_event* hold_quit) /* Display mouse pointer */ buf[sizeof(short) - 1] = 2; /* set selection */ - arg[0] = arg[2] = (unsigned short) event->x; - arg[1] = arg[3] = (unsigned short) event->y; + arg[0] = arg[2] = (unsigned short) event->x + gpm_zerobased; + arg[1] = arg[3] = (unsigned short) event->y + gpm_zerobased; arg[4] = (unsigned short) 3; name = (const char *) ttyname (0); @@ -2961,7 +2945,8 @@ handle_one_term_event (Gpm_Event *event, struct input_event* hold_quit) ioctl (fd, TIOCLINUX, buf + sizeof (short) - 1); close (fd); - term_mouse_movement (f, event); + if (!term_mouse_movement (f, event)) + help_echo_string = previous_help_echo_string; /* If the contents of the global variable help_echo_string has changed, generate a HELP_EVENT. */ @@ -3012,6 +2997,7 @@ DEFUN ("term-open-connection", Fterm_open_connection, Sterm_open_connection, connection.defaultMask = ~GPM_HARD; connection.maxMod = ~0; connection.minMod = 0; + gpm_zerobased = 1; if (Gpm_Open (&connection, 0) < 0) return Qnil; From e416374c96c398f9e77363ea06f26d0fd86b75bc Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 3 Jun 2007 00:57:11 +0000 Subject: [PATCH 042/276] (discard_mouse_events): Add GPM_CLICK_EVENT case. --- src/keyboard.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/keyboard.c b/src/keyboard.c index 420b422c518..ab2d50ad0ea 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -3917,6 +3917,9 @@ discard_mouse_events () || sp->kind == WHEEL_EVENT #ifdef WINDOWSNT || sp->kind == W32_SCROLL_BAR_CLICK_EVENT +#endif +#ifdef HAVE_GPM + || sp->kind == GPM_CLICK_EVENT #endif || sp->kind == SCROLL_BAR_CLICK_EVENT) { From 67f6e31c6e692b1246057994c25c2957a2898493 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 3 Jun 2007 01:03:22 +0000 Subject: [PATCH 043/276] (Fmouse_position, Fmouse_pixel_position): Condition on HAVE_GPM too. --- lispref/ChangeLog | 5 +++++ src/frame.c | 11 +++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lispref/ChangeLog b/lispref/ChangeLog index a9d931d3140..d5b76f26239 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,8 @@ +2007-06-03 Nick Roberts + + * commands.texi (Click Events): Describe width and height when + object is nil. + 2007-05-30 Nick Roberts * commands.texi (Click Events): Layout more logically. Describe diff --git a/src/frame.c b/src/frame.c index ab91af264dc..0e24ad59627 100644 --- a/src/frame.c +++ b/src/frame.c @@ -1450,7 +1450,7 @@ and returns whatever that function returns. */) f = SELECTED_FRAME (); x = y = Qnil; -#ifdef HAVE_MOUSE +#if defined (HAVE_MOUSE) || defined (HAVE_GPM) /* It's okay for the hook to refrain from storing anything. */ if (mouse_position_hook) (*mouse_position_hook) (&f, -1, @@ -1494,7 +1494,7 @@ and nil for X and Y. */) f = SELECTED_FRAME (); x = y = Qnil; -#ifdef HAVE_MOUSE +#if defined (HAVE_MOUSE) || defined (HAVE_GPM) /* It's okay for the hook to refrain from storing anything. */ if (mouse_position_hook) (*mouse_position_hook) (&f, -1, @@ -1581,6 +1581,13 @@ before calling this function on it, like this. Fselect_frame (frame); mouse_moveto (XINT (x), XINT (y)); } +#else +#ifdef HAVE_GPM + { + Fselect_frame (frame); + term_mouse_moveto (XINT (x), XINT (y)); + } +#endif #endif #endif From b5d0f8f6d289e63c5f85a0f3a4b422c1f13ddc58 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 3 Jun 2007 01:05:49 +0000 Subject: [PATCH 044/276] (Click Events): Describe width and height when object is nil. --- lispref/commands.texi | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lispref/commands.texi b/lispref/commands.texi index 10f4555e1f0..fabe38f9428 100644 --- a/lispref/commands.texi +++ b/lispref/commands.texi @@ -1225,7 +1225,7 @@ input stream. @xref{Key Sequence Input}. @item @var{x}, @var{y} -These are the pixel-denominated coordinates of the click, relative to +These are the pixel coordinates of the click, relative to the top left corner of @var{window}, which is @code{(0 . 0)}. For the mode or header line, @var{y} does not have meaningful data. For the vertical line, @var{x} does not have meaningful data. @@ -1266,13 +1266,14 @@ This is the image object on which the click occurred. It is either an image object as returned by @code{find-image} if click was in an image. @item @var{dx}, @var{dy} -These are the pixel-denominated coordinates of the click, relative to +These are the pixel coordinates of the click, relative to the top left corner of @var{object}, which is @code{(0 . 0)}. If @var{object} is @code{nil}, the coordinates are relative to the top left corner of the character glyph clicked on. @item @var{width}, @var{height} -These are the pixel-denominated width and height of @var{object}. +These are the pixel width and height of @var{object} or, if this is +@code{nil}, those of the character glyph clicked on. @end table @sp 1 From 72a698741eab8cbcef1ecfd72fcdd1add654abfd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 3 Jun 2007 08:51:30 +0000 Subject: [PATCH 045/276] *** empty log message *** --- lispref/display.texi | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lispref/display.texi b/lispref/display.texi index acf927b449f..f644a02c2eb 100644 --- a/lispref/display.texi +++ b/lispref/display.texi @@ -2505,8 +2505,9 @@ makes @code{modeline} an alias for the @code{mode-line} face. @cindex automatic face assignment @cindex faces, automatic choice - This hook is used for automatically assigning faces to text in the -buffer. It is part of the implementation of Font-Lock mode. + This hook is used for automatically assigning facesto text in the +buffer. It is part of the implementation of Jit-Lock mode, used by +Font-Lock. @defvar fontification-functions This variable holds a list of functions that are called by Emacs From a151f82c4396c7ad8de905ff97c52ff0405d2f8b Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Sun, 3 Jun 2007 18:51:42 +0000 Subject: [PATCH 046/276] New command kill-matching-buffers kills buffers whose name matches a regexp. --- etc/NEWS | 2 ++ lisp/ChangeLog | 6 ++++++ lisp/files.el | 27 +++++++++++++++++++++------ 3 files changed, 29 insertions(+), 6 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 50f4daf796c..0c2846bf5b9 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -28,6 +28,8 @@ with a prefix argument or by typing C-u C-h C-n. * Editing Changes in Emacs 23.1 +** New command kill-matching-buffers kills buffers whose name matches a regexp. + * New Modes and Packages in Emacs 23.1 diff --git a/lisp/ChangeLog b/lisp/ChangeLog index baf1400232d..3d3bf598a78 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-06-03 Sam Steingold + + * files.el (kill-buffer-ask): New function. + (kill-some-buffers): Use it. + (kill-matching-buffers): New user command. + 2007-06-01 David Kastrup * dired.el (dired-recursive-deletes, dired-recursive-copies): diff --git a/lisp/files.el b/lisp/files.el index 9ce1f0a0471..fc8256ba36e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4389,6 +4389,14 @@ This command is used in the special Dired buffer created by (message "No files can be recovered from this session now"))) (kill-buffer buffer)))) +(defun kill-buffer-ask (buffer) + "Kill buffer if confirmed." + (when (yes-or-no-p + (format "Buffer %s %s. Kill? " (buffer-name buffer) + (if (buffer-modified-p buffer) + "HAS BEEN EDITED" "is unmodified"))) + (kill-buffer buffer))) + (defun kill-some-buffers (&optional list) "Kill some buffers. Asks the user whether to kill each one of them. Non-interactively, if optional argument LIST is non-nil, it @@ -4403,13 +4411,20 @@ specifies the list of buffers to kill, asking for approval for each one." ; if we killed the base buffer. (not (string-equal name "")) (/= (aref name 0) ?\s) - (yes-or-no-p - (format "Buffer %s %s. Kill? " - name - (if (buffer-modified-p buffer) - "HAS BEEN EDITED" "is unmodified"))) - (kill-buffer buffer))) + (kill-buffer-ask buffer))) (setq list (cdr list)))) + +(defun kill-matching-buffers (regexp &optional internal-too) + "Kill buffers whose name matches the specified regexp. +The optional second argument indicates whether to kill internal buffers too." + (interactive "sKill buffers matching this regular expression: \nP") + (dolist (buffer (buffer-list)) + (let ((name (buffer-name buffer))) + (when (and name (not (string-equal name "")) + (or internal-too (/= (aref name 0) ?\s)) + (string-match regexp name)) + (kill-buffer-ask buffer))))) + (defun auto-save-mode (arg) "Toggle auto-saving of contents of current buffer. From b84acff63cd7d71318fd8d0d17316db390e81dc4 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Sun, 3 Jun 2007 18:56:15 +0000 Subject: [PATCH 047/276] Add TIMESTAMP to LOC to handle "incremental compilation", e.g., with `omake -P': the compilation process never terminates and automatically recompiles modified files. --- lisp/ChangeLog | 10 +++++++++- lisp/progmodes/compile.el | 29 ++++++++++++++++++++--------- 2 files changed, 29 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d3bf598a78..6dd872e1482 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,12 @@ -2007-06-03 Sam Steingold +2007-05-01 Sam Steingold + + Add TIMESTAMP to LOC to handle "incremental compilation", e.g., + with `omake -P': the compilation process never terminates and + automatically recompiles modified files. + * progmodes/compile.el (compilation-loop): VISITED is not 5th CDR. + (compilation-next-error-function): Set TIMESTAMP. + +2007-05-15 Sam Steingold * files.el (kill-buffer-ask): New function. (kill-some-buffers): Use it. diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 7701809463d..b3a7da069d2 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -38,11 +38,14 @@ ;; LINE will be nil for a message that doesn't contain them. Then the ;; location refers to a indented beginning of line or beginning of file. ;; Once any location in some file has been jumped to, the list is extended to -;; (COLUMN LINE FILE-STRUCTURE MARKER . VISITED) for all LOCs pertaining to -;; that file. +;; (COLUMN LINE FILE-STRUCTURE MARKER TIMESTAMP . VISITED) +;; for all LOCs pertaining to that file. ;; MARKER initially points to LINE and COLUMN in a buffer visiting that file. ;; Being a marker it sticks to some text, when the buffer grows or shrinks ;; before that point. VISITED is t if we have jumped there, else nil. +;; TIMESTAMP is necessary because of "incremental compilation": `omake -P' +;; polls filesystem for changes and recompiles when a file is modified +;; using the same *compilation* buffer. this necessitates re-parsing markers. ;; FILE-STRUCTURE is a list of ;; ((FILENAME . DIRECTORY) FORMATS (LINE LOC ...) ...) @@ -1516,7 +1519,7 @@ Just inserts the text, but uses `insert-before-markers'." (eq (prog1 last (setq last (nth 2 (car msg)))) last)) (if compilation-skip-visited - (nthcdr 4 (car msg))) + (nthcdr 5 (car msg))) (if compilation-skip-to-next-location (eq (car msg) loc)) ;; count this message only if none of the above are true @@ -1619,7 +1622,7 @@ This is the value of `next-error-function' in Compilation buffers." (when reset (setq compilation-current-error nil)) (let* ((columns compilation-error-screen-columns) ; buffer's local value - (last 1) + (last 1) timestamp (loc (compilation-next-error (or n 1) nil (or compilation-current-error compilation-messages-start @@ -1632,10 +1635,17 @@ This is the value of `next-error-function' in Compilation buffers." compilation-current-error (copy-marker (line-beginning-position))) loc (car loc)) - ;; If loc contains no marker, no error in that file has been visited. If - ;; the marker is invalid the buffer has been killed. So, recalculate all - ;; markers for that file. - (unless (and (nth 3 loc) (marker-buffer (nth 3 loc))) + ;; If loc contains no marker, no error in that file has been visited. + ;; If the marker is invalid the buffer has been killed. + ;; If the file is newer than the timestamp, it has been modified + ;; (`omake -P' polls filesystem for changes and recompiles when needed + ;; in the same process and buffer). + ;; So, recalculate all markers for that file. + (unless (and (nth 3 loc) (marker-buffer (nth 3 loc)) + (equal (nth 4 loc) + (setq timestamp + (with-current-buffer (marker-buffer (nth 3 loc)) + (visited-file-modtime))))) (with-current-buffer (compilation-find-file marker (caar (nth 2 loc)) (cadr (car (nth 2 loc)))) (save-restriction @@ -1658,7 +1668,8 @@ This is the value of `next-error-function' in Compilation buffers." (set-marker (nth 3 col) (point)) (setcdr (nthcdr 2 col) `(,(point-marker))))))))) (compilation-goto-locus marker (nth 3 loc) (nth 3 end-loc)) - (setcdr (nthcdr 3 loc) t))) ; Set this one as visited. + (setcdr (nthcdr 3 loc) (list timestamp)) + (setcdr (nthcdr 4 loc) t))) ; Set this one as visited. (defvar compilation-gcpro nil "Internal variable used to keep some values from being GC'd.") From a7ebea8baf1b3b592479d6cb0dbca3b2c295d083 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 3 Jun 2007 20:19:14 +0000 Subject: [PATCH 048/276] Changes suggested by Eli to clarify the purpose of the various files, including 21.3. Add notes on obtaining image support. --- admin/nt/README-ftp-server | 90 ++++++++++++++++++++++++++++++-------- 1 file changed, 71 insertions(+), 19 deletions(-) diff --git a/admin/nt/README-ftp-server b/admin/nt/README-ftp-server index 53a06c3d80a..6b437eb2f1e 100644 --- a/admin/nt/README-ftp-server +++ b/admin/nt/README-ftp-server @@ -35,6 +35,72 @@ old binaries. +* Files in this directory + + + emacs-22.1-bin-i386.zip + Windows binaries of Emacs-22.1, with all lisp code and documentation + included. + + Download this file if you want a single installation package, and + are not interested in the C source code for Emacs. After + unpacking, you can optionally run the file bin/addpm.exe to have + Emacs add icons to the Start Menu. + + If you need the C source code at a later date, it will be safe to + unpack the source distribution on top of this installation. + + + emacs-22.1-barebin-i386.zip + Windows binaries of Emacs-22.1, without lisp code or documentation. + + Download this file if you already have the source distribution, or + if you need to redump the emacs.exe executable. + + Unpack this over the top of either the source distribution or the + bin distribution above. It contains the bin subdirectory and etc/DOC + file, plus temacs.exe and dump.bat, which are required if you want to + redump emacs without recompiling it. + + + emacs-21.3-bin-i386.tar.gz + Windows binaries of Emacs 21.3, with compiled lisp code and some + documentation included. + + This is provided for users who require the older version. + + + emacs-21.3-leim.tar.gz + Compiled lisp input methods. This optional addition to Emacs-21.3 + is required if you want to enter languages that are not directly + supported by your keyboard. + +* Image support + + Emacs 22.1 contains support for images, however for most image formats + supporting libraries are required. This distribution has been tested + with the libraries that are distributed with GTK for Windows, and the + libraries found at http://gnuwin32.sourceforge.net/. The following image + formats are supported: + + PBM/PGM/PPM: Supported natively by Emacs. This format is used for + the black and white versions of the toolbar icons. + + XPM: requires a Windows port of the XPM library 3.4 or later, + which will be named xpm4.dll, libxpm-nox4.dll or + libxpm.dll. This format is used for the color versions of the + toolbar icons, and other images in Emacs. + + PNG: requires the PNG reference library 1.2 or later, which will + be named libpng13d.dll, libpng13.dll, libpng12d.dll, libpng12.dll + or libpng.dll. LibPNG requires zlib, which should come from the same + source as you got libpng. + + JPEG: requires the Independant JPEG Group's libjpeg 6b or later, + which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll. + + TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll + or libtiff.dll. + + GIF: requires libungif or giflib 4.1 or later, which will be + called giflib4.dll, libungif4.dll or libungif.dll. + * Distributions in .tar.gz and .zip format Emacs is distributed primarily as source code in a large gzipped tar file @@ -46,23 +112,6 @@ but since there are no longer legal problems with .zip files, and the latest versions of Windows support these natively, the Windows binaries of Emacs are now distributed as .zip files. - Here are the combinations (i386 in the name indicates a zipfile contains - executables compiled for Intel-compatible x86 systems): - - + Primary precompiled distribution, including lisp source: - - emacs-22.1-bin-i386.zip - - NB. If you just want to run Emacs, get one of the distributions above. - - + Bare executables, useful if you want to get the complete source - release, but can't compile Emacs yourself: - - emacs-22.1-barebin-i386.zip (requires ../emacs-22.1.tar.gz) - - + The complete official source for Emacs: - - ../emacs-22.1.tar.gz * Distributions for non-x86 platforms @@ -108,7 +157,7 @@ You may be prompted to rename or overwrite directories when using djtarnt: simply type return to continue (this is harmless). - The precompiled binaries can be unpacked using unzip.exe from info-zip.org + Zip files can be unpacked using unzip.exe from info-zip.org if you do not already have other tools to do this. % unzip some.zip @@ -165,7 +214,10 @@ http://www.gnu.org/software/emacs/windows/ntemacs.html This document serves as an FAQ and a source for further information - about the Windows port and related software packages. + about the Windows port and related software packages. Note that as + of writing, most of the information in that FAQ was for Emacs-21.3 + and earlier versions, so some information may not be relevant to + Emacs-22.1. In addition to the FAQ, there is a mailing list for discussing issues related to the Windows port of Emacs. For information about the From 553010d88bd143bb7152617ab7e7f161dfed713c Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 3 Jun 2007 20:20:15 +0000 Subject: [PATCH 049/276] Include site-lisp directory in bin-i386 distribution. --- admin/nt/makedist.bat | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/admin/nt/makedist.bat b/admin/nt/makedist.bat index 56fca7949fa..484ab88004c 100755 --- a/admin/nt/makedist.bat +++ b/admin/nt/makedist.bat @@ -36,7 +36,7 @@ rem Info-ZIP zip seems to be broken on Windows. rem It always writes to zip.zip and treats the zipfile argument as one rem of the files to go in it. rem zip -9 -r %2-bin-i386 emacs-%1/BUGS emacs-%1/README emacs-%1/README.W32 emacs-%1/bin emacs-%1/etc emacs-%1/info emacs-%1/lisp emacs-%1/leim -x emacs.mdp *.pdb *.opt *~ CVS -7z a -tZIP -mx=9 -xr!emacs.mdp -xr!*.pdb -xr!*.opt -xr!*~ -xr!CVS -xr!.arch-inventory %2-bin-i386.zip emacs-%1/BUGS emacs-%1/README emacs-%1/README.W32 emacs-%1/bin emacs-%1/etc emacs-%1/info emacs-%1/lisp emacs-%1/leim +7z a -tZIP -mx=9 -xr!emacs.mdp -xr!*.pdb -xr!*.opt -xr!*~ -xr!CVS -xr!.arch-inventory %2-bin-i386.zip emacs-%1/BUGS emacs-%1/README emacs-%1/README.W32 emacs-%1/bin emacs-%1/etc emacs-%1/info emacs-%1/lisp emacs-%1/leim emacs-%1/site-lisp del emacs-%1\README.W32 if not (%4) == () goto end From b1b15f7667ca725211dcb73fa6b169c470fc7a88 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 01:03:14 +0000 Subject: [PATCH 050/276] *** empty log message *** --- lisp/ChangeLog | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6dd872e1482..89311b6a579 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,12 +1,13 @@ -2007-05-01 Sam Steingold +2007-06-03 Sam Steingold Add TIMESTAMP to LOC to handle "incremental compilation", e.g., with `omake -P': the compilation process never terminates and automatically recompiles modified files. + * progmodes/compile.el (compilation-loop): VISITED is not 5th CDR. (compilation-next-error-function): Set TIMESTAMP. -2007-05-15 Sam Steingold +2007-06-03 Sam Steingold * files.el (kill-buffer-ask): New function. (kill-some-buffers): Use it. From f441be5b5975de9195c9d5d1e826bf4eb4db6d3c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 01:36:30 +0000 Subject: [PATCH 051/276] (compilation-find-file, compilation-handle-exit): Fix typos in docstrings. (compilation-search-path, compilation-buffer-name-function): Doc fixes. (compilation-finish-function): Fix typo in obsolescence declaration. --- lisp/ChangeLog | 7 +++++++ lisp/progmodes/compile.el | 14 +++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 89311b6a579..9784429922b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-06-04 Juanma Barranquero + + * progmodes/compile.el (compilation-find-file, compilation-handle-exit): + Fix typos in docstrings. + (compilation-search-path, compilation-buffer-name-function): Doc fixes. + (compilation-finish-function): Fix typo in obsolescence declaration. + 2007-06-03 Sam Steingold Add TIMESTAMP to LOC to handle "incremental compilation", e.g., diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index b3a7da069d2..a9f5f77c126 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -120,7 +120,7 @@ bound to the compilation buffer and window, respectively.") "Function to compute the name of a compilation buffer. The function receives one argument, the name of the major mode of the compilation buffer. It should return a string. -nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") +If nil, compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") ;;;###autoload (defvar compilation-finish-function nil @@ -129,7 +129,7 @@ It is called with two arguments: the compilation buffer, and a string describing how the process finished.") (make-obsolete-variable 'compilation-finish-function - "Use `compilation-finish-functions', but it works a little differently." + "use `compilation-finish-functions', but it works a little differently." "22.1") ;;;###autoload @@ -469,7 +469,7 @@ Otherwise, it saves all modified buffers without asking." (defcustom compilation-search-path '(nil) "*List of directories to search for source files named in error messages. Elements should be directory names, not file names of directories. -nil as an element means to try the default directory." +The value nil as an element means to try the default directory." :type '(repeat (choice (const :tag "Default" nil) (string :tag "Directory"))) :group 'compilation) @@ -1422,7 +1422,7 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'." (font-lock-fontify-buffer))) (defun compilation-handle-exit (process-status exit-status msg) - "Write MSG in the current buffer and hack its mode-line-process." + "Write MSG in the current buffer and hack its `mode-line-process'." (let ((inhibit-read-only t) (status (if compilation-exit-message-function (funcall compilation-exit-message-function @@ -1836,8 +1836,8 @@ and overlay is highlighted between MK and END-MK." Search the directories in `compilation-search-path'. A nil in `compilation-search-path' means to try the \"current\" directory, which is passed in DIRECTORY. -If DIRECTORY. is relative, it is combined with `default-directory'. -If DIRECTORY. is nil, that means use `default-directory'. +If DIRECTORY is relative, it is combined with `default-directory'. +If DIRECTORY is nil, that means use `default-directory'. If FILENAME is not found at all, ask the user where to find it. Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." (or formats (setq formats '("%s"))) @@ -1878,7 +1878,7 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." ;; restrictive otherwise, since it also prevents the ;; user from completing "fo" to "foo/" when she ;; wants to enter "foo/bar". - ;; + ;; ;; Try to make sure the user can only select ;; a valid answer. This predicate may be ignored, ;; tho, so we still have to double-check afterwards. From d2030e8cab4a04d8f9782df9ba8aba9ca15a7a7e Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 4 Jun 2007 07:50:42 +0000 Subject: [PATCH 052/276] Quiet --with-x-toolkit=no compilation warnings: #include . --- oldXMenu/ChangeLog | 5 +++++ oldXMenu/ChgPane.c | 1 + oldXMenu/ChgSel.c | 1 + 3 files changed, 7 insertions(+) diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog index 9a7f01ed901..d96d7837875 100644 --- a/oldXMenu/ChangeLog +++ b/oldXMenu/ChangeLog @@ -1,3 +1,8 @@ +2007-06-04 Ulrich Mueller (tiny change) + + * ChgPane.c, ChgSel.c: Quiet --with-x-toolkit=no + compilation warnings: #include . + 2007-05-30 Ulrich Mueller (tiny change) * XMakeAssoc.c (XMakeAssoc): Use malloc rather than xmalloc. diff --git a/oldXMenu/ChgPane.c b/oldXMenu/ChgPane.c index 35caf0917c9..06b2faa4451 100644 --- a/oldXMenu/ChgPane.c +++ b/oldXMenu/ChgPane.c @@ -13,6 +13,7 @@ * */ +#include #include "XMenuInt.h" int diff --git a/oldXMenu/ChgSel.c b/oldXMenu/ChgSel.c index 4d246f7bdbc..9a1230bd39b 100644 --- a/oldXMenu/ChgSel.c +++ b/oldXMenu/ChgSel.c @@ -13,6 +13,7 @@ * */ +#include #include "XMenuInt.h" int From b3e1883cde6bf1cc8bc8748ab0f528dca9eab986 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 4 Jun 2007 07:59:45 +0000 Subject: [PATCH 053/276] Quiet --with-x-toolkit=no compilation warnings: #include . --- oldXMenu/ChangeLog | 5 +++++ oldXMenu/ChgPane.c | 1 + oldXMenu/ChgSel.c | 1 + 3 files changed, 7 insertions(+) diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog index 9d7129e82fe..95fe90f5e64 100644 --- a/oldXMenu/ChangeLog +++ b/oldXMenu/ChangeLog @@ -1,3 +1,8 @@ +2007-06-04 Ulrich Mueller (tiny change) + + * ChgPane.c, ChgSel.c: Quiet --with-x-toolkit=no + compilation warnings: #include . + 2007-06-02 Chong Yidong * Version 22.1 released. diff --git a/oldXMenu/ChgPane.c b/oldXMenu/ChgPane.c index 35caf0917c9..06b2faa4451 100644 --- a/oldXMenu/ChgPane.c +++ b/oldXMenu/ChgPane.c @@ -13,6 +13,7 @@ * */ +#include #include "XMenuInt.h" int diff --git a/oldXMenu/ChgSel.c b/oldXMenu/ChgSel.c index 4d246f7bdbc..9a1230bd39b 100644 --- a/oldXMenu/ChgSel.c +++ b/oldXMenu/ChgSel.c @@ -13,6 +13,7 @@ * */ +#include #include "XMenuInt.h" int From bc0c5eb8aab101d215537d3f5d6c9e6ca6459d51 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 12:56:41 +0000 Subject: [PATCH 054/276] *** empty log message *** --- lisp/ChangeLog.12 | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12 index f3bac53ca8a..e76a93d5882 100644 --- a/lisp/ChangeLog.12 +++ b/lisp/ChangeLog.12 @@ -3414,7 +3414,7 @@ (wdired-search-and-rename): Simplify code. (wdired-preprocess-files, wdired-preprocess-perms): Make read-only property of preceding character rear-nonsticky to - avoid that it can be modified. Put old-name and old-link + avoid that it can be modified. Put old-name and old-link properties on character preceding name and replace put-text-property by add-text-properties. (wdired-get-filename, wdired-get-previous-link): Get old-name @@ -3605,7 +3605,7 @@ allout-mode-map. Call it on file load, so the mode docstring substitutions work even if allout mode has not yet been invoked. (allout-mode): Use new allout-setup-mode-map to track any keybinding - customizations since the map was last processed. Also, refine the + customizations since the map was last processed. Also, refine the docstring so it's ship-shape for release. (allout-default-layout, allout-beginning-of-line-cycles) (allout-distinctive-bullets-string, allout-use-mode-specific-leader) @@ -5281,7 +5281,7 @@ New C-c key bindings: for `cperl-find-bad-style', `cperl-pod-spell', `cperl-here-doc-spell', `cperl-narrow-to-here-doc', `cperl-perdoc', and `cperl-perldoc-at-point'. - CPerl Mode menu changes: "Fix style by spaces", "Imenu on Perl Info" + CPerl Mode menu changes: "Fix style by spaces", "Imenu on Perl Info" moved, new submenu of Tools with Ispell entries and narrowing. (cperl-after-sub-regexp): New defsubst. (cperl-imenu--function-name-regexp-perl): Use `cperl-after-sub-regexp'. @@ -5304,7 +5304,7 @@ (cperl-calculate-indent): Try to allow '_' be non-word char Support subs with attributes. (cperl-where-am-i): Quiet (?) a warning. - (cperl-cached-syntax-table) New function. + (cperl-cached-syntax-table): New function. (cperl-forward-re): Use `cperl-cached-syntax-table'. (cperl-unwind-to-safe): Recognize `syntax-type' property changing in a middle of line. @@ -5551,7 +5551,7 @@ (cperl-next-interpolated-REx): New function. (cperl-next-interpolated-REx-0): Likewise. (cperl-next-interpolated-REx-1): Likewise. - "\C-c\C-x", "\C-c\C-y", "\C-c\C-v": New keybinding for these functions. + "\C-c\C-x", "\C-c\C-y", "\C-c\C-v": New keybinding for these functions. Perl/Regexp menu: 3 new entries for `cperl-next-interpolated-REx'. (cperl-praise): Mention finded interpolated RExen. @@ -6069,8 +6069,8 @@ buffer-read-only isn't set. (allout-annotate-hidden): Enable topic annotation during copies even when the buffer is read-only, eg for topic copies. Ensure that the loop - advances, even when the span extends beyond the deletion region. - (allout-toggle-subtree-encryption): Use allout-structure-added-hook + advances, even when the span extends beyond the deletion region. + (allout-toggle-subtree-encryption): Use allout-structure-added-hook rather than allout-exposure-changed-hook, as a stronger assertion. (allout-keybindings-list): Add bindings for allout-copy-line-as-kill and allout-copy-topic-as-kill. @@ -8116,7 +8116,7 @@ * tumme.el (tumme-create-thumb, tumme-thumbnail-display-external) (tumme-display-image, tumme-rotate-thumbnail, tumme-rotate-original) - (tumme-set-exif-data, tumme-get-exif-data): Use shell-command-switch. + (tumme-set-exif-data, tumme-get-exif-data): Use shell-command-switch. * thumbs.el (thumbs-call-convert): Use shell-command-switch. @@ -8652,7 +8652,7 @@ (viper-next-line-at-bol): If point is on a widget or a button, simulate clicking on that widget/button. - * viper.el (viper-mode): Allow a separate cursor color in Emacs state. + * viper.el (viper-mode): Allow a separate cursor color in Emacs state. * ediff-diff (ediff-test-patch-utility): Catch errors. (ediff-actual-diff-options, ediff-actual-diff3-options): New variables. @@ -12103,7 +12103,7 @@ preserve window-start. (speedbar-update-directory-contents): Try to preserve window-start and window-point. - (speedbar-update-special-contents): Don't move back to start of window. + (speedbar-update-special-contents): Don't move back to start of window. * progmodes/gdb-ui.el (gdb-speedbar-refresh): Rename from gdb-speedbar-timer-fn. Use speedbar-refresh instead of @@ -12729,7 +12729,7 @@ (allout-mode): Explicitly specify the mode map in the docstring. Clarify provision for various write-file hook var names. - Adjusted for invisible-text overlays instead of selective-display. + Adjusted for invisible-text overlays instead of selective-display. (allout-depth): Really return 0 if not within any topic. This rectifies `allout-beginning-of-level' and sequence numbering @@ -16185,7 +16185,7 @@ * progmodes/cc-awk.el: Move regexps for analysing AWK code to near the start of the file. ^L now separate sections of the file. - (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) + (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) (c-awk-one-line-possibly-open-string-re) (c-awk-regexp-one-line-possibly-open-char-class-re) (c-awk-one-line-possibly-open-regexp-re) @@ -17298,7 +17298,7 @@ 2005-11-30 Kim F. Storm - * emulation/cua-rect.el (cua--rectangle-overlays): Make permanent-local. + * emulation/cua-rect.el (cua--rectangle-overlays): Make permanent-local. (cua--rectangle-post-command): Cleanup overlays and deactivate mark after revert-buffer (or anything else which kills all local variables). @@ -18540,7 +18540,7 @@ (pgg-pgp5-sign-region, pgg-pgp5-sign): Add optional PASSPHRASE argument to all these routines, so the passphrase can be managed externally and passed in to the system. - (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache + (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache function. 2005-11-04 Dan Nicolaescu @@ -18762,7 +18762,7 @@ (pgg-pgp5-sign-region, pgg-pgp5-sign): Add optional PASSPHRASE argument to all these routines, so the passphrase can be managed externally and passed in to the system. - (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache + (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache function. 2005-11-04 Edward O'Connor (tiny change) @@ -19923,7 +19923,7 @@ (outlineify-sticky): Use the file vars mechanism. (allout-inhibit-protection, allout-during-write-cue) (allout-override-protect, allout-before-change-protect): Remove. - (allout-flag-region, allout-open-topic): Adjust read-only text. + (allout-flag-region, allout-open-topic): Adjust read-only text. (allout-open-line-not-read-only): Add to facilitate read-only text based protection. (allout-kill-line): Revise to adjust read-only text, clue the @@ -29301,7 +29301,7 @@ * isearch.el (isearch-edit-string): Make the search-ring available for minibuffer history commands. - (minibuffer-local-isearch-map): Remove bindings for M-p and M-n, + (minibuffer-local-isearch-map): Remove bindings for M-p and M-n, the default history commands now work just as well. (isearch-ring-retreat-edit, isearch-ring-advance-edit): Remove. @@ -32029,7 +32029,7 @@ (calcFunc-sech, calcFunc-csch, calcFunc-coth, math-sec-raw) (math-csc-raw, math-cot-raw): New functions. - * calc/calc-rules.el (calc-DistribRules, calc-NegateRules): Add rules. + * calc/calc-rules.el (calc-DistribRules, calc-NegateRules): Add rules. * calc/calc-undo.el (calc-handle-undo): Remove prefix from the variable name in a message. From c50982cc9ca816c51984969978e39f0c047b3e27 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 4 Jun 2007 20:24:09 +0000 Subject: [PATCH 055/276] * net/socks.el: New file, taken from w3 repository. (top): Update Copyright. Don't load cl.el. (all): Replace `case' by `cond', `string-to-int' by `string-to-number', and `process-kill-without-query' by `set-process-query-on-exit-flag'. (socks-char-int): Remove defalias and all occurencies. --- lisp/ChangeLog | 9 + lisp/net/socks.el | 650 ++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 659 insertions(+) create mode 100644 lisp/net/socks.el diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9784429922b..0520747bb7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2007-06-04 Michael Albinus + + * net/socks.el: New file, taken from w3 repository. + (top): Update Copyright. Don't load cl.el. + (all): Replace `case' by `cond', `string-to-int' by + `string-to-number', and `process-kill-without-query' by + `set-process-query-on-exit-flag'. + (socks-char-int): Remove defalias and all occurencies. + 2007-06-04 Juanma Barranquero * progmodes/compile.el (compilation-find-file, compilation-handle-exit): diff --git a/lisp/net/socks.el b/lisp/net/socks.el new file mode 100644 index 00000000000..8290d0592f8 --- /dev/null +++ b/lisp/net/socks.el @@ -0,0 +1,650 @@ +;;; socks.el --- A Socks v5 Client for Emacs + +;; Copyright (C) 1996 - 1998 by William M. Perry +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, +;; 2007 Free Software Foundation, Inc. + +;; Author: William M. Perry +;; Dave Love +;; Keywords: comm, firewalls + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This is an implementation of the SOCKS v5 protocol as defined in +;; RFC 1928. + +;; TODO +;; - Finish the redirection rules stuff +;; - Implement composition of servers. Recursively evaluate the +;; redirection rules and do SOCKS-over-HTTP and SOCKS-in-SOCKS + +(eval-when-compile + (require 'wid-edit)) +(require 'custom) + +(if (not (fboundp 'split-string)) + (defun split-string (string &optional pattern) + "Return a list of substrings of STRING which are separated by PATTERN. +If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." + (or pattern + (setq pattern "[ \f\t\n\r\v]+")) + (let (parts (start 0)) + (while (string-match pattern string start) + (setq parts (cons (substring string start (match-beginning 0)) parts) + start (match-end 0))) + (nreverse (cons (substring string start) parts))))) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Custom widgets +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(define-widget 'dynamic-choice 'menu-choice + "A pretty simple dynamic dropdown list" + :format "%[%t%]: %v" + :tag "Network" + :case-fold t + :void '(item :format "invalid (%t)\n") + :value-create 's5-widget-value-create + :value-delete 'widget-children-value-delete + :value-get 'widget-choice-value-get + :value-inline 'widget-choice-value-inline + :mouse-down-action 'widget-choice-mouse-down-action + :action 'widget-choice-action + :error "Make a choice" + :validate 'widget-choice-validate + :match 's5-dynamic-choice-match + :match-inline 's5-dynamic-choice-match-inline) + +(defun s5-dynamic-choice-match (widget value) + (let ((choices (funcall (widget-get widget :choice-function))) + current found) + (while (and choices (not found)) + (setq current (car choices) + choices (cdr choices) + found (widget-apply current :match value))) + found)) + +(defun s5-dynamic-choice-match-inline (widget value) + (let ((choices (funcall (widget-get widget :choice-function))) + current found) + (while (and choices (not found)) + (setq current (car choices) + choices (cdr choices) + found (widget-match-inline current value))) + found)) + +(defun s5-widget-value-create (widget) + (let ((choices (funcall (widget-get widget :choice-function))) + (value (widget-get widget :value))) + (if (not value) + (widget-put widget :value (widget-value (car choices)))) + (widget-put widget :args choices) + (widget-choice-value-create widget))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Customization support +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defgroup socks nil + "SOCKS Support" + :prefix "socks-" + :group 'processes) + +'(defcustom socks-server-aliases nil + "A list of server aliases for use in access control and filtering rules." + :group 'socks + :type '(repeat (list :format "%v" + :value ("" "" 1080 5) + (string :tag "Alias") + (string :tag "Hostname/IP Address") + (integer :tag "Port #") + (choice :tag "SOCKS Version" + (integer :tag "SOCKS v4" :value 4) + (integer :tag "SOCKS v5" :value 5))))) + +'(defcustom socks-network-aliases + '(("Anywhere" (netmask "0.0.0.0" "0.0.0.0"))) + "A list of network aliases for use in subsequent rules." + :group 'socks + :type '(repeat (list :format "%v" + :value (netmask "" "255.255.255.0") + (string :tag "Alias") + (radio-button-choice + :format "%v" + (list :tag "IP address range" + (const :format "" :value range) + (string :tag "From") + (string :tag "To")) + (list :tag "IP address/netmask" + (const :format "" :value netmask) + (string :tag "IP Address") + (string :tag "Netmask")) + (list :tag "Domain Name" + (const :format "" :value domain) + (string :tag "Domain name")) + (list :tag "Unique hostname/IP address" + (const :format "" :value exact) + (string :tag "Hostname/IP Address")))))) + +'(defun s5-servers-filter () + (if socks-server-aliases + (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) s5-server-aliases) + '((const :tag "No aliases defined" :value nil)))) + +'(defun s5-network-aliases-filter () + (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) + socks-network-aliases)) + +'(defcustom socks-redirection-rules + nil + "A list of redirection rules." + :group 'socks + :type '(repeat (list :format "%v" + :value ("Anywhere" nil) + (dynamic-choice :choice-function s5-network-aliases-filter + :tag "Destination network") + (radio-button-choice + :tag "Connection type" + (const :tag "Direct connection" :value nil) + (dynamic-choice :format "%t: %[%v%]" + :choice-function s5-servers-filter + :tag "Proxy chain via"))))) + +(defcustom socks-server + (list "Default server" "socks" 1080 5) + "" + :group 'socks + :type '(list + (string :format "" :value "Default server") + (string :tag "Server") + (integer :tag "Port") + (radio-button-choice :tag "SOCKS Version" + :format "%t: %v" + (const :tag "SOCKS v4 " :format "%t" :value 4) + (const :tag "SOCKS v5" :format "%t" :value 5)))) + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Get down to the nitty gritty +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defconst socks-version 5) +(defvar socks-debug nil) + +;; Common socks v5 commands +(defconst socks-connect-command 1) +(defconst socks-bind-command 2) +(defconst socks-udp-associate-command 3) + +;; Miscellaneous other socks constants +(defconst socks-authentication-null 0) +(defconst socks-authentication-failure 255) + +;; Response codes +(defconst socks-response-success 0) +(defconst socks-response-general-failure 1) +(defconst socks-response-access-denied 2) +(defconst socks-response-network-unreachable 3) +(defconst socks-response-host-unreachable 4) +(defconst socks-response-connection-refused 5) +(defconst socks-response-ttl-expired 6) +(defconst socks-response-cmd-not-supported 7) +(defconst socks-response-address-not-supported 8) + +(defvar socks-errors + '("Succeeded" + "General SOCKS server failure" + "Connection not allowed by ruleset" + "Network unreachable" + "Host unreachable" + "Connection refused" + "Time-to-live expired" + "Command not supported" + "Address type not supported")) + +;; The socks v5 address types +(defconst socks-address-type-v4 1) +(defconst socks-address-type-name 3) +(defconst socks-address-type-v6 4) + +;; Base variables +(defvar socks-timeout 5) +(defvar socks-connections (make-hash-table :size 13)) + +;; Miscellaneous stuff for authentication +(defvar socks-authentication-methods nil) +(defvar socks-username (user-login-name)) +(defvar socks-password nil) + +(defun socks-register-authentication-method (id desc callback) + (let ((old (assq id socks-authentication-methods))) + (if old + (setcdr old (cons desc callback)) + (setq socks-authentication-methods + (cons (cons id (cons desc callback)) + socks-authentication-methods))))) + +(defun socks-unregister-authentication-method (id) + (let ((old (assq id socks-authentication-methods))) + (if old + (setq socks-authentication-methods + (delq old socks-authentication-methods))))) + +(socks-register-authentication-method 0 "No authentication" 'identity) + +(defun socks-build-auth-list () + (let ((num 0) + (retval "")) + (mapcar + (function + (lambda (x) + (if (fboundp (cdr (cdr x))) + (setq retval (format "%s%c" retval (car x)) + num (1+ num))))) + (reverse socks-authentication-methods)) + (format "%c%s" num retval))) + +(defconst socks-state-waiting-for-auth 0) +(defconst socks-state-submethod-negotiation 1) +(defconst socks-state-authenticated 2) +(defconst socks-state-waiting 3) +(defconst socks-state-connected 4) + +(defmacro socks-wait-for-state-change (proc htable cur-state) + (` + (while (and (= (gethash 'state (, htable)) (, cur-state)) + (memq (process-status (, proc)) '(run open))) + (accept-process-output (, proc) socks-timeout)))) + +(defun socks-filter (proc string) + (let ((info (gethash proc socks-connections)) + state version desired-len) + (or info (error "socks-filter called on non-SOCKS connection %S" proc)) + (setq state (gethash 'state info)) + (cond + ((= state socks-state-waiting-for-auth) + (puthash 'scratch (concat string (gethash 'scratch info)) info) + (setq string (gethash 'scratch info)) + (if (< (length string) 2) + nil ; We need to spin some more + (puthash 'authtype (aref string 1) info) + (puthash 'scratch (substring string 2 nil) info) + (puthash 'state socks-state-submethod-negotiation info))) + ((= state socks-state-submethod-negotiation) + ) + ((= state socks-state-authenticated) + ) + ((= state socks-state-waiting) + (puthash 'scratch (concat string (gethash 'scratch info)) info) + (setq string (gethash 'scratch info)) + (setq version (gethash 'server-protocol info)) + (cond + ((equal version 'http) + (if (not (string-match "\r\n\r\n" string)) + nil ; Need to spin some more + (puthash 'state socks-state-connected info) + (puthash 'reply 0 info) + (puthash 'response string info))) + ((equal version 4) + (if (< (length string) 2) + nil ; Can't know how much to read yet + (setq desired-len + (+ 4 ; address length + 2 ; port + 2 ; initial data + )) + (if (< (length string) desired-len) + nil ; need to spin some more + (let ((response (aref string 1))) + (if (= response 90) + (setq response 0)) + (puthash 'state socks-state-connected info) + (puthash 'reply response info) + (puthash 'response string info))))) + ((equal version 5) + (if (< (length string) 4) + nil + (setq desired-len + (+ 6 ; Standard socks header + (cond + ((= (aref string 3) socks-address-type-v4) 4) + ((= (aref string 3) socks-address-type-v6) 16) + ((= (aref string 3) socks-address-type-name) + (if (< (length string) 5) + 255 + (+ 1 (aref string 4))))))) + (if (< (length string) desired-len) + nil ; Need to spin some more + (puthash 'state socks-state-connected info) + (puthash 'reply (aref string 1) info) + (puthash 'response string info)))))) + ((= state socks-state-connected) + ) + ) + ) + ) + +(defun socks-open-connection (server-info) + (interactive) + (save-excursion + (let ((proc (socks-original-open-network-stream "socks" + nil + (nth 1 server-info) + (nth 2 server-info))) + (info (make-hash-table :size 13)) + (authtype nil) + version) + + ;; Initialize process and info about the process + (set-process-filter proc 'socks-filter) + (set-process-query-on-exit-flag proc nil) + (puthash proc info socks-connections) + (puthash 'state socks-state-waiting-for-auth info) + (puthash 'authtype socks-authentication-failure info) + (puthash 'server-protocol (nth 3 server-info) info) + (puthash 'server-name (nth 1 server-info) info) + (setq version (nth 3 server-info)) + (cond + ((equal version 'http) + ;; Don't really have to do any connection setup under http + nil) + ((equal version 4) + ;; Don't really have to do any connection setup under v4 + nil) + ((equal version 5) + ;; Need to handle all the authentication crap under v5 + ;; Send what we think we can handle for authentication types + (process-send-string proc (format "%c%s" socks-version + (socks-build-auth-list))) + + ;; Basically just do a select() until we change states. + (socks-wait-for-state-change proc info socks-state-waiting-for-auth) + (setq authtype (gethash 'authtype info)) + (cond + ((= authtype socks-authentication-null) + (and socks-debug (message "No authentication necessary"))) + ((= authtype socks-authentication-failure) + (error "No acceptable authentication methods found.")) + (t + (let* ((auth-type (gethash 'authtype info)) + (auth-handler (assoc auth-type socks-authentication-methods)) + (auth-func (and auth-handler (cdr (cdr auth-handler)))) + (auth-desc (and auth-handler (car (cdr auth-handler))))) + (set-process-filter proc nil) + (if (and auth-func (fboundp auth-func) + (funcall auth-func proc)) + nil ; We succeeded! + (delete-process proc) + (error "Failed to use auth method: %s (%d)" + (or auth-desc "Unknown") auth-type)) + ) + ) + ) + (puthash 'state socks-state-authenticated info) + (set-process-filter proc 'socks-filter))) + proc))) + +(defun socks-send-command (proc command atype address port) + (let ((addr (cond + ((or (= atype socks-address-type-v4) + (= atype socks-address-type-v6)) + address) + ((= atype socks-address-type-name) + (format "%c%s" (length address) address)) + (t + (error "Unkown address type: %d" atype)))) + (info (gethash proc socks-connections)) + request version) + (or info (error "socks-send-command called on non-SOCKS connection %S" + proc)) + (puthash 'state socks-state-waiting info) + (setq version (gethash 'server-protocol info)) + (cond + ((equal version 'http) + (setq request (format (eval-when-compile + (concat + "CONNECT %s:%d HTTP/1.0\r\n" + "User-Agent: Emacs/SOCKS v1.0\r\n" + "\r\n")) + (cond + ((equal atype socks-address-type-name) address) + (t + (error "Unsupported address type for HTTP: %d" atype))) + port))) + ((equal version 4) + (setq request (format + "%c%c%c%c%s%s%c" + version ; version + command ; command + (lsh port -8) ; port, high byte + (- port (lsh (lsh port -8) 8)) ; port, low byte + addr ; address + (user-full-name) ; username + 0 ; terminate username + ))) + ((equal version 5) + (setq request (format + "%c%c%c%c%s%c%c" + version ; version + command ; command + 0 ; reserved + atype ; address type + addr ; address + (lsh port -8) ; port, high byte + (- port (lsh (lsh port -8) 8)) ; port, low byte + ))) + (t + (error "Unknown protocol version: %d" version))) + (process-send-string proc request) + (socks-wait-for-state-change proc info socks-state-waiting) + (process-status proc) + (if (= (or (gethash 'reply info) 1) socks-response-success) + nil ; Sweet sweet success! + (delete-process proc) + (error "SOCKS: %s" (nth (or (gethash 'reply info) 1) socks-errors))) + proc)) + + +;; Replacement functions for open-network-stream, etc. +(defvar socks-noproxy nil + "*List of regexps matching hosts that we should not socksify connections to") + +(defun socks-find-route (host service) + (let ((route socks-server) + (noproxy socks-noproxy)) + (while noproxy + (if (eq ?! (aref (car noproxy) 0)) + (if (string-match (substring (car noproxy) 1) host) + (setq noproxy nil)) + (if (string-match (car noproxy) host) + (setq route nil + noproxy nil))) + (setq noproxy (cdr noproxy))) + route)) + +(defvar socks-override-functions nil + "*Whether to overwrite the open-network-stream function with the SOCKSified +version.") + +(if (fboundp 'socks-original-open-network-stream) + nil ; Do nothing, we've been here already + (defalias 'socks-original-open-network-stream + (symbol-function 'open-network-stream)) + (if socks-override-functions + (defalias 'open-network-stream 'socks-open-network-stream))) + +(defvar socks-services-file "/etc/services") +(defvar socks-tcp-services (make-hash-table :size 13 :test 'equal)) +(defvar socks-udp-services (make-hash-table :size 13 :test 'equal)) + +(defun socks-parse-services () + (if (not (and (file-exists-p socks-services-file) + (file-readable-p socks-services-file))) + (error "Could not find services file: %s" socks-services-file)) + (save-excursion + (clrhash socks-tcp-services) + (clrhash socks-udp-services) + (set-buffer (get-buffer-create " *socks-tmp*")) + (erase-buffer) + (insert-file-contents socks-services-file) + ;; Nuke comments + (goto-char (point-min)) + (while (re-search-forward "#.*" nil t) + (replace-match "")) + ;; Nuke empty lines + (goto-char (point-min)) + (while (re-search-forward "^[ \t\n]+" nil t) + (replace-match "")) + ;; Now find all the lines + (goto-char (point-min)) + (let (name port type) + (while (re-search-forward "^\\([^ \t]+\\)[ \t]+\\([0-9]+\\)/\\([a-z]+\\)" + nil t) + (setq name (downcase (match-string 1)) + port (string-to-number (match-string 2)) + type (downcase (match-string 3))) + (puthash name port (if (equal type "udp") + socks-udp-services + socks-tcp-services)))))) + +(defun socks-find-services-entry (service &optional udp) + "Return the port # associated with SERVICE" + (if (= (hash-table-count socks-tcp-services) 0) + (socks-parse-services)) + (gethash (downcase service) + (if udp socks-udp-services socks-tcp-services))) + +(defun socks-open-network-stream (name buffer host service) + (let* ((route (socks-find-route host service)) + proc info version atype) + (if (not route) + (socks-original-open-network-stream name buffer host service) + (setq proc (socks-open-connection route) + info (gethash proc socks-connections) + version (gethash 'server-protocol info)) + (cond + ((equal version 4) + (setq host (socks-nslookup-host host)) + (if (not (listp host)) + (error "Could not get IP address for: %s" host)) + (setq host (apply 'format "%c%c%c%c" host)) + (setq atype socks-address-type-v4)) + (t + (setq atype socks-address-type-name))) + (socks-send-command proc + socks-connect-command + atype + host + (if (stringp service) + (socks-find-services-entry service) + service)) + (puthash 'buffer buffer info) + (puthash 'host host info) + (puthash 'service host info) + (set-process-filter proc nil) + (set-process-buffer proc (if buffer (get-buffer-create buffer))) + proc))) + +;; Authentication modules go here + +;; Basic username/password authentication, ala RFC 1929 +(socks-register-authentication-method 2 "Username/Password" + 'socks-username/password-auth) + +(defconst socks-username/password-auth-version 1) + +(defun socks-username/password-auth-filter (proc str) + (let ((info (gethash proc socks-connections)) + state desired-len) + (or info (error "socks-filter called on non-SOCKS connection %S" proc)) + (setq state (gethash 'state info)) + (puthash 'scratch (concat (gethash 'scratch info) str) info) + (if (< (length (gethash 'scratch info)) 2) + nil + (puthash 'password-auth-status (aref (gethash 'scratch info) 1) info) + (puthash 'state socks-state-authenticated info)))) + +(defun socks-username/password-auth (proc) + (let* ((info (gethash proc socks-connections)) + (state (gethash 'state info))) + (if (not socks-password) + (setq socks-password (read-passwd + (format "Password for %s@%s: " + socks-username + (gethash 'server-name info))))) + (puthash 'scratch "" info) + (set-process-filter proc 'socks-username/password-auth-filter) + (process-send-string proc + (format "%c%c%s%c%s" + socks-username/password-auth-version + (length socks-username) + socks-username + (length socks-password) + socks-password)) + (socks-wait-for-state-change proc info state) + (= (gethash 'password-auth-status info) 0))) + + +;; More advanced GSS/API stuff, not yet implemented - volunteers? +;; (socks-register-authentication-method 1 "GSS/API" 'socks-gssapi-auth) + +(defun socks-gssapi-auth (proc) + nil) + + +;; CHAP stuff +;; (socks-register-authentication-method 3 "CHAP" 'socks-chap-auth) +(defun socks-chap-auth (proc) + nil) + + +;; CRAM stuff +;; (socks-register-authentication-method 5 "CRAM" 'socks-cram-auth) +(defun socks-cram-auth (proc) + nil) + + +(defcustom socks-nslookup-program "nslookup" + "*If non-NIL then a string naming the nslookup program." + :type '(choice (const :tag "None" :value nil) string) + :group 'socks) + +(defun socks-nslookup-host (host) + "Attempt to resolve the given HOSTNAME using nslookup if possible." + (interactive "sHost: ") + (if socks-nslookup-program + (let ((proc (start-process " *nslookup*" " *nslookup*" + socks-nslookup-program host)) + (res host)) + (set-process-query-on-exit-flag proc nil) + (save-excursion + (set-buffer (process-buffer proc)) + (while (progn + (accept-process-output proc) + (memq (process-status proc) '(run open)))) + (goto-char (point-min)) + (if (re-search-forward "Name:.*\nAddress\\(es\\)?: *\\([0-9.]+\\)$" nil t) + (progn + (setq res (buffer-substring (match-beginning 2) + (match-end 2)) + res (mapcar 'string-to-int (split-string res "\\."))))) + (kill-buffer (current-buffer))) + res) + host)) + +(provide 'socks) + +;;; socks.el ends here From 1adf71a48e71e155b20779fb366b7e91b5dd24d5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:32:47 +0000 Subject: [PATCH 056/276] * longlines.el (longlines-auto-wrap): Handle argument correctly. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0520747bb7d..77772d9a60d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-04 Chong Yidong + + * longlines.el (longlines-auto-wrap): Handle argument correctly. + 2007-06-04 Michael Albinus * net/socks.el: New file, taken from w3 repository. From cf738203dce94f905406f9def4a2213c462229b7 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:33:00 +0000 Subject: [PATCH 057/276] (longlines-auto-wrap): Handle argument correctly. --- lisp/longlines.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/longlines.el b/lisp/longlines.el index f39d31e69f0..149f69c9f26 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -368,10 +368,10 @@ Hard newlines are left intact." With optional argument ARG, turn on line wrapping if and only if ARG is positive. If automatic line wrapping is turned on, wrap the entire buffer." (interactive "P") - (and (null arg) - (null longlines-auto-wrap) - (setq arg 1)) - (if (> (prefix-numeric-value arg) 0) + (setq arg (if arg + (> (prefix-numeric-value arg) 0) + (not longlines-auto-wrap))) + (if arg (let ((mod (buffer-modified-p))) (setq longlines-auto-wrap t) (longlines-wrap-region (point-min) (point-max)) From c6b98d9f2ec86cdc242692e5b777a3935745f8b6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:33:30 +0000 Subject: [PATCH 058/276] * longlines.el (longlines-mode): Make longlines-auto-wrap buffer-local. Add hooks unconditionally. (longlines-auto-wrap): Toggle wrapping. (longlines-after-change-function) (longlines-post-command-function): Check longlines-auto-wrap. --- lisp/ChangeLog | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07c16489fe7..d95f037661d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2007-06-04 Chong Yidong + + * longlines.el (longlines-mode): Make longlines-auto-wrap + buffer-local. Add hooks unconditionally. + (longlines-auto-wrap): Toggle wrapping. + (longlines-after-change-function) + (longlines-post-command-function): Check longlines-auto-wrap. + 2007-06-02 Chong Yidong * Version 22.1 released. From a1d155a4c1e041bbb80ee92acbf93a7bb34694e5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:33:46 +0000 Subject: [PATCH 059/276] (longlines-mode): Make longlines-auto-wrap buffer-local. Add hooks unconditionally. (longlines-auto-wrap): Toggle wrapping. (longlines-after-change-function) (longlines-post-command-function): Check longlines-auto-wrap. --- lisp/longlines.el | 41 +++++++++++++++++++---------------------- 1 file changed, 19 insertions(+), 22 deletions(-) diff --git a/lisp/longlines.el b/lisp/longlines.el index e8ab4fbdd88..149f69c9f26 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -110,6 +110,7 @@ are indicated with a symbol." (add-hook 'change-major-mode-hook 'longlines-mode-off nil t) (add-hook 'before-revert-hook 'longlines-before-revert-hook nil t) (make-local-variable 'buffer-substring-filters) + (make-local-variable 'longlines-auto-wrap) (set (make-local-variable 'isearch-search-fun-function) 'longlines-search-function) (add-to-list 'buffer-substring-filters 'longlines-encode-string) @@ -149,12 +150,10 @@ are indicated with a symbol." (add-to-list 'message-indent-citation-function 'longlines-decode-region t))) + (add-hook 'after-change-functions 'longlines-after-change-function nil t) + (add-hook 'post-command-hook 'longlines-post-command-function nil t) (when longlines-auto-wrap - (auto-fill-mode 0) - (add-hook 'after-change-functions - 'longlines-after-change-function nil t) - (add-hook 'post-command-hook - 'longlines-post-command-function nil t))) + (auto-fill-mode 0))) ;; Turn off longlines mode (setq buffer-file-format (delete 'longlines buffer-file-format)) (if longlines-showing @@ -365,29 +364,27 @@ Hard newlines are left intact." ;; Auto wrap (defun longlines-auto-wrap (&optional arg) - "Turn on automatic line wrapping, and wrap the entire buffer. -With optional argument ARG, turn off line wrapping." + "Toggle automatic line wrapping. +With optional argument ARG, turn on line wrapping if and only if ARG is positive. +If automatic line wrapping is turned on, wrap the entire buffer." (interactive "P") - (remove-hook 'after-change-functions 'longlines-after-change-function t) - (remove-hook 'post-command-hook 'longlines-post-command-function t) + (setq arg (if arg + (> (prefix-numeric-value arg) 0) + (not longlines-auto-wrap))) (if arg - (progn (setq longlines-auto-wrap nil) - (message "Auto wrap disabled.")) - (setq longlines-auto-wrap t) - (add-hook 'after-change-functions - 'longlines-after-change-function nil t) - (add-hook 'post-command-hook - 'longlines-post-command-function nil t) - (let ((mod (buffer-modified-p))) - (longlines-wrap-region (point-min) (point-max)) - (set-buffer-modified-p mod)) - (message "Auto wrap enabled."))) + (let ((mod (buffer-modified-p))) + (setq longlines-auto-wrap t) + (longlines-wrap-region (point-min) (point-max)) + (set-buffer-modified-p mod) + (message "Auto wrap enabled.")) + (setq longlines-auto-wrap nil) + (message "Auto wrap disabled."))) (defun longlines-after-change-function (beg end len) "Update `longlines-wrap-beg' and `longlines-wrap-end'. This is called by `after-change-functions' to keep track of the region that has changed." - (unless undo-in-progress + (when (and longlines-auto-wrap (not undo-in-progress)) (setq longlines-wrap-beg (if longlines-wrap-beg (min longlines-wrap-beg beg) beg)) (setq longlines-wrap-end @@ -396,7 +393,7 @@ that has changed." (defun longlines-post-command-function () "Perform line wrapping on the parts of the buffer that have changed. This is called by `post-command-hook' after each command." - (when longlines-wrap-beg + (when (and longlines-auto-wrap longlines-wrap-beg) (if (or (eq this-command 'yank) (eq this-command 'yank-pop)) (longlines-decode-region (point) (mark t))) From b647fc0734847b9e2b8f6c78e09c090482dec3fb Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:40:26 +0000 Subject: [PATCH 060/276] * files.el (magic-mode-alist): Remove image-type-auto-detected-p. (magic-fallback-mode-alist): Add image-type-auto-detected-p. * image.el (image-type-auto-detected-p): Don't scan auto-mode-alist. --- lisp/ChangeLog | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d95f037661d..b4e28068ed0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2007-06-04 Chong Yidong + * files.el (magic-mode-alist): Remove image-type-auto-detected-p. + (magic-fallback-mode-alist): Add image-type-auto-detected-p. + + * image.el (image-type-auto-detected-p): Don't scan + auto-mode-alist. + * longlines.el (longlines-mode): Make longlines-auto-wrap buffer-local. Add hooks unconditionally. (longlines-auto-wrap): Toggle wrapping. From ada9718d0fac370e92650e914f43f099f07a0753 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:40:53 +0000 Subject: [PATCH 061/276] (image-type-auto-detected-p): Don't scan auto-mode-alist. --- lisp/image.el | 25 +++++-------------------- 1 file changed, 5 insertions(+), 20 deletions(-) diff --git a/lisp/image.el b/lisp/image.el index c9269abce3e..60d9c4db39c 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -343,30 +343,15 @@ Image types are symbols like `xbm' or `jpeg'." ;;;###autoload (defun image-type-auto-detected-p () "Return t iff the current buffer contains an auto-detectable image. -This function is intended to be used from `magic-mode-alist' (which see). +This function is intended to be used from `magic-fallback-mode-alist'. -First, compare the beginning of the buffer with `image-type-header-regexps'. -If an appropriate image type is found, check if that image type can be -autodetected using the variable `image-type-auto-detectable'. Finally, -if `buffer-file-name' is non-nil, check if it matches another major mode -in `auto-mode-alist' apart from `image-mode'; if there is another match, -the autodetection is considered to have failed. Return t if all the above -steps succeed." +The buffer is considered to contain an auto-detectable image if +its beginning matches an image type in `image-type-header-regexps', +and that image type is present in `image-type-auto-detectable'." (let* ((type (image-type-from-buffer)) (auto (and type (cdr (assq type image-type-auto-detectable))))) (and auto - (or (eq auto t) (image-type-available-p type)) - (or (null buffer-file-name) - (not (assoc-default - buffer-file-name - (delq nil (mapcar - (lambda (elt) - (unless (memq (or (car-safe (cdr elt)) - (cdr elt)) - '(image-mode image-mode-maybe)) - elt)) - auto-mode-alist)) - 'string-match)))))) + (or (eq auto t) (image-type-available-p type))))) ;;;###autoload From 407876dad2cfe64b3d93bbc64f2e0e60dac4861e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 20:41:15 +0000 Subject: [PATCH 062/276] (magic-mode-alist): Remove image-type-auto-detected-p. (magic-fallback-mode-alist): Add image-type-auto-detected-p. --- lisp/files.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 2dbc0c2791a..5693e40ced5 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2119,8 +2119,7 @@ is assumed to be interpreted by the interpreter matched by the second group of the regular expression. The mode is then determined as the mode associated with that interpreter in `interpreter-mode-alist'.") -(defvar magic-mode-alist - `((image-type-auto-detected-p . image-mode)) +(defvar magic-mode-alist nil "Alist of buffer beginnings vs. corresponding major mode functions. Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION). After visiting a file, if REGEXP matches the text at the beginning of the @@ -2133,7 +2132,8 @@ If FUNCTION is nil, then it is not called. (That is a way of saying (put 'magic-mode-alist 'risky-local-variable t) (defvar magic-fallback-mode-alist - `(;; The < comes before the groups (but the first) to reduce backtracking. + `((image-type-auto-detected-p . image-mode) + ;; The < comes before the groups (but the first) to reduce backtracking. ;; TODO: UTF-16 Date: Mon, 4 Jun 2007 20:42:53 +0000 Subject: [PATCH 063/276] Bump version number to 22.1.50. --- README | 2 +- lib-src/makefile.w32-in | 2 +- lisp/version.el | 2 +- lispref/elisp.texi | 2 +- .../Contents/Resources/English.lproj/InfoPlist.strings | 4 ++-- mac/src/Emacs.r | 8 ++++---- man/emacs.texi | 2 +- nt/emacs.rc | 8 ++++---- 8 files changed, 15 insertions(+), 15 deletions(-) diff --git a/README b/README index 80cc1a50326..a0bc92d58d2 100644 --- a/README +++ b/README @@ -3,7 +3,7 @@ Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 See the end of the file for license conditions. -This directory tree holds version 22.1 of GNU Emacs, the extensible, +This directory tree holds version 22.1.50 of GNU Emacs, the extensible, customizable, self-documenting real-time display editor. The file INSTALL in this directory says how to build and install GNU diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in index 5face04b081..953fa7ae6be 100644 --- a/lib-src/makefile.w32-in +++ b/lib-src/makefile.w32-in @@ -24,7 +24,7 @@ ALL = make-docfile hexl ctags etags movemail ebrowse sorted-doc digest-doc emacs .PHONY: $(ALL) -VERSION = 22.1 +VERSION = 22.1.50 LOCAL_FLAGS = -DWINDOWSNT -DDOS_NT -DSTDC_HEADERS=1 -DNO_LDAV=1 \ -DNO_ARCHIVES=1 -DHAVE_CONFIG_H=1 -I../nt/inc \ diff --git a/lisp/version.el b/lisp/version.el index 9e5ec6544d4..0ed3927d0fc 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -27,7 +27,7 @@ ;;; Code: -(defconst emacs-version "22.1" "\ +(defconst emacs-version "22.1.50" "\ Version numbers of this version of Emacs.") (defconst emacs-major-version diff --git a/lispref/elisp.texi b/lispref/elisp.texi index f6e91bb187a..4fbd46b4564 100644 --- a/lispref/elisp.texi +++ b/lispref/elisp.texi @@ -7,7 +7,7 @@ @c Version of the manual and of Emacs. @c Please remember to update the edition number in README as well. @set VERSION 2.9 -@set EMACSVER 22.1 +@set EMACSVER 22.1.50 @dircategory Emacs @direntry diff --git a/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings b/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings index 9718e10da68..fc069b9bb47 100644 --- a/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings +++ b/mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings @@ -1,5 +1,5 @@ /* Localized versions of Info.plist keys */ CFBundleName = "Emacs"; -CFBundleShortVersionString = "22.1"; -CFBundleGetInfoString = "22.1, Copyright (C) 2007 Free Software Foundation, Inc."; +CFBundleShortVersionString = "22.1.50"; +CFBundleGetInfoString = "22.1.50, Copyright (C) 2007 Free Software Foundation, Inc."; diff --git a/mac/src/Emacs.r b/mac/src/Emacs.r index e35a898ae28..27d91b59ea0 100644 --- a/mac/src/Emacs.r +++ b/mac/src/Emacs.r @@ -220,11 +220,11 @@ resource 'FREF' (129) { resource 'vers' (1) { 0x22, /* Major revision in BCD */ 0x1, /* Minor revision in BCD */ - final, /* development, alpha, beta, or final (release) */ - 0, /* Non-final release # */ + development, /* development, alpha, beta, or final (release) */ + 50, /* Non-final release # */ 0, /* Region code */ - "22.1", /* Short version number */ - "22.1, Copyright \0xa9 2007 " + "22.1.50", /* Short version number */ + "22.1.50, Copyright \0xa9 2007 " "Free Software Foundation, Inc." /* Long version number */ }; diff --git a/man/emacs.texi b/man/emacs.texi index c54808e3417..9086745ba66 100644 --- a/man/emacs.texi +++ b/man/emacs.texi @@ -5,7 +5,7 @@ @c The edition number appears in several places in this file @set EDITION Sixteenth -@set EMACSVER 22.1 +@set EMACSVER 22.1.50 @copying This is the @value{EDITION} edition of the @cite{GNU Emacs Manual},@* diff --git a/nt/emacs.rc b/nt/emacs.rc index 053ce2d0e41..cf72b88a8ea 100644 --- a/nt/emacs.rc +++ b/nt/emacs.rc @@ -6,8 +6,8 @@ Emacs ICON icons\emacs.ico #endif VS_VERSION_INFO VERSIONINFO - FILEVERSION 22,1,0,0 - PRODUCTVERSION 22,1,0,0 + FILEVERSION 22,1,50,0 + PRODUCTVERSION 22,1,50,0 FILEFLAGSMASK 0x3FL #ifdef EMACSDEBUG FILEFLAGS 0x1L @@ -24,12 +24,12 @@ BEGIN BEGIN VALUE "CompanyName", "Free Software Foundation\0" VALUE "FileDescription", "GNU Emacs for Windows NT/95/98/2000/ME/XP\0" - VALUE "FileVersion", "22, 1, 0, 0\0" + VALUE "FileVersion", "22, 1, 50, 0\0" VALUE "InternalName", "Emacs\0" VALUE "LegalCopyright", "Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007\0" VALUE "OriginalFilename", "emacs.exe" VALUE "ProductName", "Emacs: The extensible self-documenting text editor\0" - VALUE "ProductVersion", "22, 1, 0, 0\0" + VALUE "ProductVersion", "22, 1, 50, 0\0" VALUE "OLESelfRegister", "\0" END END From 56a94c1e3780d4b85aa4754698ccc8edf9c8a823 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 22:50:02 +0000 Subject: [PATCH 064/276] (Fshrink_window): Reflow docstring. --- src/ChangeLog | 4 ++++ src/window.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index a6b4c8a59b6..d0d52031f4f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-04 Juanma Barranquero + + * window.c (Fshrink_window): Reflow docstring. + 2007-06-02 Chong Yidong * Version 22.1 released. diff --git a/src/window.c b/src/window.c index 562f471de36..54c70bb569d 100644 --- a/src/window.c +++ b/src/window.c @@ -4110,8 +4110,8 @@ too small. */) DEFUN ("shrink-window", Fshrink_window, Sshrink_window, 1, 2, "p", doc: /* Make current window ARG lines smaller. From program, optional second arg non-nil means shrink sideways arg columns. -Interactively, if an argument is not given, make the window one line smaller. Only -siblings to the right or below are changed. */) +Interactively, if an argument is not given, make the window one line smaller. +Only siblings to the right or below are changed. */) (arg, side) Lisp_Object arg, side; { From 9605302019b7b4235c82246c62c9444fe368d8ae Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 22:51:47 +0000 Subject: [PATCH 065/276] (define-minor-mode, easy-mmode-define-navigation): Fix typos in docstrings. --- lisp/emacs-lisp/easy-mmode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 19ed39a2b42..79ecf52dfbc 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -103,7 +103,7 @@ used (see below). BODY contains code to execute each time the mode is activated or deactivated. It is executed after toggling the mode, - and before running the hook variable `mode-HOOK'. + and before running the hook variable `MODE-hook'. Before the actual body code, you can write keyword arguments (alternating keywords and values). These following keyword arguments are supported (other keywords will be passed to `defcustom' if the minor mode is global): @@ -486,7 +486,7 @@ BASE-next also tries to make sure that the whole entry is visible by the next entry) and recentering if necessary. ENDFUN should return the end position (with or without moving point). NARROWFUN non-nil means to check for narrowing before moving, and if -found, do widen first and then call NARROWFUN with no args after moving." +found, do `widen' first and then call NARROWFUN with no args after moving." (let* ((base-name (symbol-name base)) (prev-sym (intern (concat base-name "-prev"))) (next-sym (intern (concat base-name "-next"))) From 071d2f097ccce13caf0facb39a90868322a1330f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 22:53:06 +0000 Subject: [PATCH 066/276] (compilation-find-file, compilation-handle-exit): Fix typos in docstrings. (compilation-search-path, compilation-buffer-name-function): Doc fixes. (compilation-finish-function): Fix typo in obsolescence declaration. --- lisp/progmodes/compile.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 9a630ace9aa..651bcddc8ab 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -117,7 +117,7 @@ bound to the compilation buffer and window, respectively.") "Function to compute the name of a compilation buffer. The function receives one argument, the name of the major mode of the compilation buffer. It should return a string. -nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") +If nil, compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.") ;;;###autoload (defvar compilation-finish-function nil @@ -126,7 +126,7 @@ It is called with two arguments: the compilation buffer, and a string describing how the process finished.") (make-obsolete-variable 'compilation-finish-function - "Use `compilation-finish-functions', but it works a little differently." + "use `compilation-finish-functions', but it works a little differently." "22.1") ;;;###autoload @@ -466,7 +466,7 @@ Otherwise, it saves all modified buffers without asking." (defcustom compilation-search-path '(nil) "*List of directories to search for source files named in error messages. Elements should be directory names, not file names of directories. -nil as an element means to try the default directory." +The value nil as an element means to try the default directory." :type '(repeat (choice (const :tag "Default" nil) (string :tag "Directory"))) :group 'compilation) @@ -1419,7 +1419,7 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'." (font-lock-fontify-buffer))) (defun compilation-handle-exit (process-status exit-status msg) - "Write MSG in the current buffer and hack its mode-line-process." + "Write MSG in the current buffer and hack its `mode-line-process'." (let ((inhibit-read-only t) (status (if compilation-exit-message-function (funcall compilation-exit-message-function @@ -1825,8 +1825,8 @@ and overlay is highlighted between MK and END-MK." Search the directories in `compilation-search-path'. A nil in `compilation-search-path' means to try the \"current\" directory, which is passed in DIRECTORY. -If DIRECTORY. is relative, it is combined with `default-directory'. -If DIRECTORY. is nil, that means use `default-directory'. +If DIRECTORY is relative, it is combined with `default-directory'. +If DIRECTORY is nil, that means use `default-directory'. If FILENAME is not found at all, ask the user where to find it. Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." (or formats (setq formats '("%s"))) From b9e4fbd34b889899e9dcdba63ddb7a53315cda93 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 22:54:46 +0000 Subject: [PATCH 067/276] (idlwave-routines): Fix typo in docstring. --- lisp/progmodes/idlwave.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 0556c87b43d..cf518b17d94 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -4342,7 +4342,7 @@ catalog \('lib).") (defvar idlwave-true-path-alist nil "Like `idlwave-path-alist', but with true filenames.") (defvar idlwave-routines nil - "Holds the combinded procedure/function/method routine-info.") + "Holds the combined procedure/function/method routine-info.") (defvar idlwave-class-alist nil "Holds the class names known to IDLWAVE.") (defvar idlwave-class-history nil @@ -4846,7 +4846,7 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.") ;; Create a sysvar list entry from the xml parsed list. (let* ((nameblock (nth 1 xml-entry)) (name (cdr (assq 'name nameblock))) - (sysvar (substring name (progn (string-match "^ *!" name) + (sysvar (substring name (progn (string-match "^ *!" name) (match-end 0)))) (link (cdr (assq 'link nameblock))) (params (cddr xml-entry)) From 1a408ced09363c86ebcc19830b8c8e757b159e23 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 4 Jun 2007 22:59:48 +0000 Subject: [PATCH 068/276] *** empty log message *** --- lisp/ChangeLog | 116 +++++++++++++++++++++++++++---------------------- 1 file changed, 64 insertions(+), 52 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b4e28068ed0..33e6e9496d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2007-06-04 Juanma Barranquero + + * emacs-lisp/easy-mmode.el (define-minor-mode) + (easy-mmode-define-navigation): Fix typos in docstrings. + + * progmodes/compile.el (compilation-find-file, compilation-handle-exit): + Fix typos in docstrings. + (compilation-search-path, compilation-buffer-name-function): Doc fixes. + (compilation-finish-function): Fix typo in obsolescence declaration. + + * progmodes/idlwave.el (idlwave-routines): Fix typo in docstring. + 2007-06-04 Chong Yidong * files.el (magic-mode-alist): Remove image-type-auto-detected-p. @@ -597,7 +609,7 @@ 2007-04-14 Nick Roberts * tmm.el (tmm-get-keybind): Use copy-sequence to ensure that the - global map isn't modified + global map isn't modified. 2007-04-14 Glenn Morris @@ -1739,7 +1751,7 @@ * progmodes/python.el (python-quote-syntax): Don't bother with syntax-ppss-context. (python-fill-paragraph): Make sure that fenced-string delimiters that - stand on their own line stay there + stand on their own line stay there. 2007-03-01 Lennart Borgman @@ -2875,7 +2887,7 @@ * type-break.el (type-break-demo-hanoi, type-break-demo-life) (type-break-demo-boring): Call read-event instead of read-char. -2007-01-19 Daniel Pfeiffer (small change) +2007-01-19 Daniel Pfeiffer (tiny change) * progmodes/compile.el: Add handling for makepplog. @@ -3740,7 +3752,7 @@ (wdired-search-and-rename): Simplify code. (wdired-preprocess-files, wdired-preprocess-perms): Make read-only property of preceding character rear-nonsticky to - avoid that it can be modified. Put old-name and old-link + avoid that it can be modified. Put old-name and old-link properties on character preceding name and replace put-text-property by add-text-properties. (wdired-get-filename, wdired-get-previous-link): Get old-name @@ -3931,7 +3943,7 @@ allout-mode-map. Call it on file load, so the mode docstring substitutions work even if allout mode has not yet been invoked. (allout-mode): Use new allout-setup-mode-map to track any keybinding - customizations since the map was last processed. Also, refine the + customizations since the map was last processed. Also, refine the docstring so it's ship-shape for release. (allout-default-layout, allout-beginning-of-line-cycles) (allout-distinctive-bullets-string, allout-use-mode-specific-leader) @@ -5607,7 +5619,7 @@ New C-c key bindings: for `cperl-find-bad-style', `cperl-pod-spell', `cperl-here-doc-spell', `cperl-narrow-to-here-doc', `cperl-perdoc', and `cperl-perldoc-at-point'. - CPerl Mode menu changes: "Fix style by spaces", "Imenu on Perl Info" + CPerl Mode menu changes: "Fix style by spaces", "Imenu on Perl Info" moved, new submenu of Tools with Ispell entries and narrowing. (cperl-after-sub-regexp): New defsubst. (cperl-imenu--function-name-regexp-perl): Use `cperl-after-sub-regexp'. @@ -5629,8 +5641,8 @@ (cperl-block-p): Move, updatedfor attributes. (cperl-calculate-indent): Try to allow '_' be non-word char Support subs with attributes. - (cperl-where-am-i): Queit (?) a warning. - (cperl-cached-syntax-table) New function. + (cperl-where-am-i): Quiet (?) a warning. + (cperl-cached-syntax-table): New function. (cperl-forward-re): Use `cperl-cached-syntax-table'. (cperl-unwind-to-safe): Recognize `syntax-type' property changing in a middle of line. @@ -5877,7 +5889,7 @@ (cperl-next-interpolated-REx): New function. (cperl-next-interpolated-REx-0): Likewise. (cperl-next-interpolated-REx-1): Likewise. - "\C-c\C-x", "\C-c\C-y", "\C-c\C-v": New keybinding for these functions. + "\C-c\C-x", "\C-c\C-y", "\C-c\C-v": New keybinding for these functions. Perl/Regexp menu: 3 new entries for `cperl-next-interpolated-REx'. (cperl-praise): Mention finded interpolated RExen. @@ -6123,7 +6135,7 @@ * wid-edit.el (widget-button-click-moves-point): New variable. (widget-button-click): If widget-button-click-moves-point is - non-nil, set point after performing the button action + non-nil, set point after performing the button action. * cus-edit.el (custom-mode): Set widget-button-click-moves-point. @@ -6395,8 +6407,8 @@ buffer-read-only isn't set. (allout-annotate-hidden): Enable topic annotation during copies even when the buffer is read-only, eg for topic copies. Ensure that the loop - advances, even when the span extends beyond the deletion region. - (allout-toggle-subtree-encryption): Use allout-structure-added-hook + advances, even when the span extends beyond the deletion region. + (allout-toggle-subtree-encryption): Use allout-structure-added-hook rather than allout-exposure-changed-hook, as a stronger assertion. (allout-keybindings-list): Add bindings for allout-copy-line-as-kill and allout-copy-topic-as-kill. @@ -6447,7 +6459,7 @@ * cus-start.el (all): Rename x-gtk-show-chooser-help-text to x-gtk-file-dialog-help-text. Rename x-use-old-gtk-file-dialog - to x-gtk-use-old-file-dialog + to x-gtk-use-old-file-dialog. 2006-09-18 Richard Stallman @@ -8442,7 +8454,7 @@ * tumme.el (tumme-create-thumb, tumme-thumbnail-display-external) (tumme-display-image, tumme-rotate-thumbnail, tumme-rotate-original) - (tumme-set-exif-data, tumme-get-exif-data): Use shell-command-switch. + (tumme-set-exif-data, tumme-get-exif-data): Use shell-command-switch. * thumbs.el (thumbs-call-convert): Use shell-command-switch. @@ -8978,7 +8990,7 @@ (viper-next-line-at-bol): If point is on a widget or a button, simulate clicking on that widget/button. - * viper.el (viper-mode): Allow a separate cursor color in Emacs state. + * viper.el (viper-mode): Allow a separate cursor color in Emacs state. * ediff-diff (ediff-test-patch-utility): Catch errors. (ediff-actual-diff-options, ediff-actual-diff3-options): New variables. @@ -9529,7 +9541,7 @@ (ewoc--wrap): New func. (ewoc-create): Take additional arg NOSEP. If nil, wrap node and header/footer pretty-printers. Save header/footer pretty-printer. - (ewoc-set-hf): Use ewoc's header/footer pretty-printer. * + (ewoc-set-hf): Use ewoc's header/footer pretty-printer. * pcvs.el (cvs-make-cvs-buffer): Specify NOSEP to `ewoc-create'. @@ -10478,7 +10490,7 @@ 2006-05-05 Eli Zaretskii * startup.el (command-line): On MS-Windows, probe "~", not - "~USER", for warning about non-existent home directory + "~USER", for warning about non-existent home directory. * arc-mode.el (archive-l-e): New optional argument `float' means generate a float value. @@ -12429,7 +12441,7 @@ preserve window-start. (speedbar-update-directory-contents): Try to preserve window-start and window-point. - (speedbar-update-special-contents): Don't move back to start of window. + (speedbar-update-special-contents): Don't move back to start of window. * progmodes/gdb-ui.el (gdb-speedbar-refresh): Rename from gdb-speedbar-timer-fn. Use speedbar-refresh instead of @@ -13031,7 +13043,7 @@ selective display for concealed text. Also, lots of general cleanup, and improved compatibility code. - (allout-version) Incremented, corrected, revised, and refined + (allout-version): Incremented, corrected, revised, and refined module commentary. (provide 'allout): Moved to the bottom, added a require of overlay. @@ -13055,7 +13067,7 @@ (allout-mode): Explicitly specify the mode map in the docstring. Clarify provision for various write-file hook var names. - Adjusted for invisible-text overlays instead of selective-display. + Adjusted for invisible-text overlays instead of selective-display. (allout-depth): Really return 0 if not within any topic. This rectifies `allout-beginning-of-level' and sequence numbering @@ -13867,8 +13879,8 @@ 2006-01-29 Edward O'Connor - * emulation/viper.el (viper-major-mode-modifier-list): Add - insert-state and vi-state entries for erc-mode. + * emulation/viper.el (viper-major-mode-modifier-list): + Add insert-state and vi-state entries for erc-mode. (viper-go-away, viper-set-hooks): Add and remove viper-comint-mode-hook from erc-mode-hook as appropriate. @@ -14117,7 +14129,7 @@ (tramp-unload-file-name-handler-alist) (tramp-unload-tramp): New defuns. (tramp-advice-PC-expand-many-files): New defadvice. - (tramp-save-PC-expand-many-files, tramp-setup-complete) Defuns + (tramp-save-PC-expand-many-files, tramp-setup-complete): Defuns removed. (tramp-handle-expand-file-name): Remove double slash. (tramp-handle-file-attributes-with-ls): Return t as 9th attribute. @@ -15338,7 +15350,7 @@ text properties). (hi-lock-string-serialize-hash, hi-lock-string-serialize-serial): New variables. - (hi-lock-string-serialize) New function. + (hi-lock-string-serialize): New function. 2005-12-23 Jan Dj,Ad(Brv @@ -15900,7 +15912,7 @@ * hi-lock.el (hi-lock-mode): Rename from hi-lock-buffer-mode; react if global-hi-lock-mode seems intended. - (global-hi-lock-mode) Renamed from hi-lock-mode. + (global-hi-lock-mode): Renamed from hi-lock-mode. (hi-lock-archaic-interface-message-used) (hi-lock-archaic-interface-deduce): New variables. (turn-on-hi-lock-if-enabled, hi-lock-line-face-buffer) @@ -16001,7 +16013,7 @@ (recentf-menu-open-all-flag, recentf-menu-append-commands-flag) (recentf-arrange-by-rule-others) (recentf-arrange-by-rules-min-items) - (recentf-arrange-by-rule-subfilter) : Don't use + (recentf-arrange-by-rule-subfilter): Don't use `recentf-menu-customization-changed'. (recentf-arrange-rules): Likewise. Accept functions to compute sub-menu titles. @@ -16073,10 +16085,10 @@ 2005-12-08 Alan Mackenzie * progmodes/cc-fix.el: Add definitions of the macros push and pop - (for GNU Emacs 20.4) + (for GNU Emacs 20.4). * progmodes/cc-defs.el: - (i) Load cc-fix.elc for `push' and `pop' (for GNU Emacs 20.4) + (i): Load cc-fix.elc for `push' and `pop' (for GNU Emacs 20.4). * progmodes/cc-cmds.el (c-show-syntactic-information): Change the highlighting mechanism so it will work in XEmacs too. @@ -16121,9 +16133,9 @@ 2005-12-08 Alan Mackenzie * progmodes/cc-mode.el: - (i) Insert a binding for C-c C-backspace into + (i): Insert a binding for C-c C-backspace into c-bind-special-erase-keys which works in TTYs. - (ii) Make sure that when file styles are used, any explicitly + (ii): Make sure that when file styles are used, any explicitly given style variables take priority over those in the style. Do this by calling `hack-local-variables' a second time. @@ -16377,7 +16389,7 @@ Introduce an "awk" style, mainly for auto-newline and clean-ups. - * progmodes/cc-align.el: New function c-snug-1line-defun-close + * progmodes/cc-align.el: New function c-snug-1line-defun-close. * progmodes/cc-cmds.el: In c-electric-brace, add code for new clean-up one-liner-defun. @@ -16511,7 +16523,7 @@ * progmodes/cc-awk.el: Move regexps for analysing AWK code to near the start of the file. ^L now separate sections of the file. - (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) + (c-awk-non-eol-esc-pair-re, c-awk-blank-or-comment-line-re) (c-awk-one-line-possibly-open-string-re) (c-awk-regexp-one-line-possibly-open-char-class-re) (c-awk-one-line-possibly-open-regexp-re) @@ -17624,7 +17636,7 @@ 2005-11-30 Kim F. Storm - * emulation/cua-rect.el (cua--rectangle-overlays): Make permanent-local. + * emulation/cua-rect.el (cua--rectangle-overlays): Make permanent-local. (cua--rectangle-post-command): Cleanup overlays and deactivate mark after revert-buffer (or anything else which kills all local variables). @@ -18866,7 +18878,7 @@ (pgg-pgp5-sign-region, pgg-pgp5-sign): Add optional PASSPHRASE argument to all these routines, so the passphrase can be managed externally and passed in to the system. - (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache + (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache function. 2005-11-04 Dan Nicolaescu @@ -19088,7 +19100,7 @@ (pgg-pgp5-sign-region, pgg-pgp5-sign): Add optional PASSPHRASE argument to all these routines, so the passphrase can be managed externally and passed in to the system. - (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache + (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache function. 2005-11-04 Edward O'Connor (tiny change) @@ -20249,7 +20261,7 @@ (outlineify-sticky): Use the file vars mechanism. (allout-inhibit-protection, allout-during-write-cue) (allout-override-protect, allout-before-change-protect): Remove. - (allout-flag-region, allout-open-topic): Adjust read-only text. + (allout-flag-region, allout-open-topic): Adjust read-only text. (allout-open-line-not-read-only): Add to facilitate read-only text based protection. (allout-kill-line): Revise to adjust read-only text, clue the @@ -20728,7 +20740,7 @@ 2005-10-12 Jan Dj,Ad(Brv - * startup.el (command-line-x-option-alist): -nb => -nbi + * startup.el (command-line-x-option-alist): -nb => -nbi. 2005-10-12 Kim F. Storm @@ -20906,7 +20918,7 @@ * term/x-win.el: Remove -i, --icon-type from comment. * startup.el (command-line-x-option-alist): Remove options -i, - -itype, --icon-type, added -nb, --no-bitmap-icon + -itype, --icon-type, added -nb, --no-bitmap-icon. 2005-10-09 Nick Roberts @@ -21192,7 +21204,7 @@ * textmodes/ispell.el (ispell-word, ispell-region): Call ispell-maybe-find-aspell-dictionaries. (ispell-accept-buffer-local-defs): - Don't call ispell-maybe-find-aspell-dictionaries + Don't call ispell-maybe-find-aspell-dictionaries. 2005-10-04 Richard M. Stallman @@ -22291,7 +22303,7 @@ * custom.el (custom-known-themes): Clarify meaning of "standard". (custom-push-theme): Save old values in the standard theme. (disable-theme): Correct typo. - (custom-face-theme-value) Deleted unused function. + (custom-face-theme-value): Deleted unused function. (custom-theme-recalc-face): Rewritten to treat enable/disable properly. 2005-09-05 Stefan Monnier @@ -22800,7 +22812,7 @@ * calendar/diary-lib.el (diary-modify-entry-list-string-function): New hook. - (add-to-diary-list): Call `diary-modify-entry-list-string-function' + (add-to-diary-list): Call `diary-modify-entry-list-string-function'. 2005-08-24 Stefan Monnier @@ -24705,7 +24717,7 @@ * viper-init.el: Get rid of -face in face names. * ediff-diff.el (ediff-extract-diffs, ediff-extract-diffs3): - Make it work with longlines mode + Make it work with longlines mode. * ediff-mult.el (ediff-meta-mode-hook): New variable. @@ -24798,7 +24810,7 @@ (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. - (calc-embedded-make-info) Set calc-embedded-firsttime-buf and + (calc-embedded-make-info): Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode. @@ -28148,7 +28160,7 @@ (reftex-unhighlight): Use `reftex-delete-overlay'. (reftex-uniq): Function removed. Use `reftex-uniquify' instead. (reftex-access-search-path): Use `reftex-uniquify' instead of - `reftex-uniq' + `reftex-uniq'. * textmodes/reftex-sel.el (reftex-select-unmark): Overlay `before-string' property modification enables for Emacs as well. @@ -29627,7 +29639,7 @@ * isearch.el (isearch-edit-string): Make the search-ring available for minibuffer history commands. - (minibuffer-local-isearch-map): Remove bindings for M-p and M-n, + (minibuffer-local-isearch-map): Remove bindings for M-p and M-n, the default history commands now work just as well. (isearch-ring-retreat-edit, isearch-ring-advance-edit): Remove. @@ -29787,7 +29799,7 @@ `org-insert-mode-line-in-empty-file' has been set. (org-agenda-todo, org-agenda-priority): Modify to use `org-agenda-change-all-lines'. - (org-warning-face): Change color on dark background + (org-warning-face): Change color on dark background. 2005-04-14 YAMAMOTO Mitsuharu @@ -29911,7 +29923,7 @@ 2005-04-11 Rajesh Vaidheeswarran - * whitespace.el (whitespace-version): Bump to 3.5 + * whitespace.el (whitespace-version): Bump to 3.5. (whitespace-buffer-leading, whitespace-buffer-trailing): Invert sense of the test to highlight the whitespace. @@ -29939,7 +29951,7 @@ * dired.el (dired-mode): Use dnd-* instead of x-dnd-* (dired-dnd-handle-local-file): Call dnd-get-local-file-name. - (dired-dnd-handle-file): Call dnd-get-local-file-uri + (dired-dnd-handle-file): Call dnd-get-local-file-uri. * cus-edit.el (dnd): New group. @@ -30533,7 +30545,7 @@ 2005-03-31 Olive Lin (tiny change) - * textmodes/tex-mode.el (tex-start-tex) Use shell-quote-argument, + * textmodes/tex-mode.el (tex-start-tex): Use shell-quote-argument, not comint-quote-filename. 2005-03-31 Thien-Thi Nguyen @@ -32355,7 +32367,7 @@ (calcFunc-sech, calcFunc-csch, calcFunc-coth, math-sec-raw) (math-csc-raw, math-cot-raw): New functions. - * calc/calc-rules.el (calc-DistribRules, calc-NegateRules): Add rules. + * calc/calc-rules.el (calc-DistribRules, calc-NegateRules): Add rules. * calc/calc-undo.el (calc-handle-undo): Remove prefix from the variable name in a message. @@ -32930,7 +32942,7 @@ 2005-01-21 Ren,Ai(B Kyllingstad * pcomplete.el: Define pcomplete-read-event instead of read-event, - since it's not a complete read-event implementation + since it's not a complete read-event implementation. 2005-01-20 Jay Belanger @@ -33048,7 +33060,7 @@ Sync with Tramp 2.0.47. - * net/tramp.el (tramp-operation-not-permitted-regexp) New defcustom, + * net/tramp.el (tramp-operation-not-permitted-regexp): New defcustom, catching keep-date problems in cp/scp operations. (tramp-handle-copy-file): Don't call `set-file-modes' unconditionally. Specialized functions should know better what is From 7bbb629a9761f72def89dc4cc18e5a57596d1291 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:14:56 +0000 Subject: [PATCH 069/276] * emacs-lisp/tq.el (tq-queue-pop): Stifle error when a process has died and we are trying to send a signal to it. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 33e6e9496d7..185f1616c0b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-04 Michael Olson + + * emacs-lisp/tq.el (tq-queue-pop): Stifle error when a process has + died and we are trying to send a signal to it. + 2007-06-04 Juanma Barranquero * emacs-lisp/easy-mmode.el (define-minor-mode) From 5fbd207936f9d2d00aec9504af9b3da3a82764c5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:15:08 +0000 Subject: [PATCH 070/276] (tq-queue-pop): Stifle error when a process has died and we are trying to send a signal to it. --- lisp/emacs-lisp/tq.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index b12c21b6730..f20015fd720 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el @@ -100,8 +100,9 @@ to a tcp server on another machine." (defun tq-queue-pop (tq) (setcar tq (cdr (car tq))) (let ((question (tq-queue-head-question tq))) - (when question - (process-send-string (tq-process tq) question))) + (condition-case nil + (process-send-string (tq-process tq) question) + (error nil))) (null (car tq))) (defun tq-enqueue (tq question regexp closure fn &optional delay-question) From 30bb65024dfb4b4038822940811eceb490272a1c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:16:55 +0000 Subject: [PATCH 071/276] * net/webjump.el (webjump-sample-sites): Add Wikipedia query. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 185f1616c0b..9ce62d76e78 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-04 Ryan Yeske + + * net/webjump.el (webjump-sample-sites): Add Wikipedia query. + 2007-06-04 Michael Olson * emacs-lisp/tq.el (tq-queue-pop): Stifle error when a process has From bbdca3d82903455925166b82fa4a2370f2eb3c00 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:17:04 +0000 Subject: [PATCH 072/276] (webjump-sample-sites): Add Wikipedia query. --- lisp/net/webjump.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el index 7f4fce16bce..d6747ca322d 100644 --- a/lisp/net/webjump.el +++ b/lisp/net/webjump.el @@ -230,6 +230,9 @@ [simple-query "www.yahoo.com" "search.yahoo.com/search?p=" ""]) ("Yahoo: Reference" . "www.yahoo.com/Reference/") + ("Wikipedia" . + [simple-query "wikipedia.org" "wikipedia.org/wiki/" ""]) + ;; Misc. general interest. ("Interactive Weather Information Network" . webjump-to-iwin) ("Usenet FAQs" . From 24cbc407de53ec3d29f356a977651d8203b3679e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:20:54 +0000 Subject: [PATCH 073/276] * mail/mail-extr.el (mail-extract-address-components): Recognize non-ASCII characters except for NBSP as words. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ce62d76e78..54ef42ee13e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-04 Katsumi Yamaoka (tiny change) + + * mail/mail-extr.el (mail-extract-address-components): Recognize + non-ASCII characters except for NBSP as words. + 2007-06-04 Ryan Yeske * net/webjump.el (webjump-sample-sites): Add Wikipedia query. From 0330231b3c22e3dbb4cea2891cfae6c3156c18cd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:21:07 +0000 Subject: [PATCH 074/276] (mail-extract-address-components): Recognize non-ASCII characters except for NBSP as words. --- lisp/mail/mail-extr.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 9e1b94d8b7a..5029ca23343 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -873,7 +873,17 @@ consing a string.)" (mail-extr-nuke-char-at (point)) (forward-char 1)) (t - (forward-word 1))) + ;; Do `(forward-word 1)', recognizing non-ASCII characters + ;; except Latin-1 nbsp as words. + (while (progn + (skip-chars-forward "^\000-\177 ") + (and (not (eobp)) + (eq ?w (char-syntax (char-after))) + (progn + (forward-word 1) + (and (not (eobp)) + (> (char-after) ?\177) + (not (eq (char-after) ? ))))))))) (or (eq char ?\() ;; At the end of first address of a multiple address header. (and (eq char ?,) From 7cfe53dc955a5de88e417819eb4f6588ce22a667 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:38:37 +0000 Subject: [PATCH 075/276] * hilit-chg.el (highlight-changes-rotate-faces): Don't set modified flag of buffer. Use `inhibit-modification-hooks'. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 54ef42ee13e..03020617750 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-04 Martin Rudalics + + * hilit-chg.el (highlight-changes-rotate-faces): Don't set + modified flag of buffer. Use `inhibit-modification-hooks'. + 2007-06-04 Katsumi Yamaoka (tiny change) * mail/mail-extr.el (mail-extract-address-components): Recognize From 05d6ece7a354f2e2ddaee032713c96144f9a29fe Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:39:06 +0000 Subject: [PATCH 076/276] (highlight-changes-rotate-faces): Don't set modified flag of buffer. Use `inhibit-modification-hooks'. --- lisp/hilit-chg.el | 42 +++++++++++++++++++++++++++++++----------- 1 file changed, 31 insertions(+), 11 deletions(-) diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index c867bcfaf08..19cecb1c8be 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -790,17 +790,37 @@ this, eval the following in the buffer to be saved: (interactive) ;; If not in active mode do nothing but don't complain because this ;; may be bound to a hook. - (if (eq highlight-changes-mode 'active) - (let ((after-change-functions nil)) - ;; ensure hilit-chg-list is made and up to date - (hilit-chg-make-list) - ;; remove our existing overlays - (hilit-chg-hide-changes) - ;; for each change text property, increment it - (hilit-chg-map-changes 'hilit-chg-bump-change) - ;; and display them all if active - (if (eq highlight-changes-mode 'active) - (hilit-chg-display-changes)))) + (when (eq highlight-changes-mode 'active) + (let ((modified (buffer-modified-p)) + (inhibit-modification-hooks t)) + ;; The `modified' related code tries to combine two goals: (1) Record the + ;; rotation in `buffer-undo-list' and (2) avoid setting the modified flag + ;; of the current buffer due to the rotation. We do this by inserting (in + ;; `buffer-undo-list') entries restoring buffer-modified-p to nil before + ;; and after the entry for the rotation. + (unless modified + ;; Install the "before" entry. + (setq buffer-undo-list + (cons '(apply restore-buffer-modified-p nil) + buffer-undo-list))) + (unwind-protect + (progn + ;; ensure hilit-chg-list is made and up to date + (hilit-chg-make-list) + ;; remove our existing overlays + (hilit-chg-hide-changes) + ;; for each change text property, increment it + (hilit-chg-map-changes 'hilit-chg-bump-change) + ;; and display them all if active + (if (eq highlight-changes-mode 'active) + (hilit-chg-display-changes))) + (unless modified + ;; Install the "after" entry. + (setq buffer-undo-list + (cons '(apply restore-buffer-modified-p nil) + buffer-undo-list)) + + (restore-buffer-modified-p nil))))) ;; This always returns nil so it is safe to use in write-file-functions nil) From 65e076827adb6c9c371b3a6f3ccddc47460a0dd9 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:42:10 +0000 Subject: [PATCH 077/276] (Man-next-section): Don't consider the last line of the page as being part of any section. --- lisp/man.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/man.el b/lisp/man.el index 0484c032e34..e74f9734e51 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1296,7 +1296,9 @@ The following key bindings are currently in effect in the buffer: (forward-line 1)) (if (re-search-forward Man-heading-regexp (point-max) t n) (beginning-of-line) - (goto-char (point-max))))) + (goto-char (point-max)) + ;; The last line doesn't belong to any section. + (forward-line -1)))) (defun Man-previous-section (n) "Move point to Nth previous section (default 1)." From 8f52d3fc6756d9935240740f7f3471e9be6c958b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:42:48 +0000 Subject: [PATCH 078/276] * man.el (Man-next-section): Don't consider the last line of the page as being part of any section. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 03020617750..2ce17ce0449 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-04 Micha,Ak(Bl Cadilhac + + * man.el (Man-next-section): Don't consider the last line of the + page as being part of any section. + 2007-06-04 Martin Rudalics * hilit-chg.el (highlight-changes-rotate-faces): Don't set From 89cd203073dc3196199ebd914d607795d469d44f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:48:48 +0000 Subject: [PATCH 079/276] * calendar/timeclock.el: Update version number. (timeclock-modeline-display): Mention timeclock-use-display-time in explanatory message. (timeclock-log): Suppress warnings when finding the log. Don't check for a nil project twice. Run hooks after killing the buffer (if applicable). (timeclock-geometric-mean): Rename to `timeclock-mean' (it never was geometric). All uses changed. (timeclock-generate-report): Support prefix argument. --- lisp/ChangeLog | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ce17ce0449..901ae8d8ee7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2007-06-04 Davis Herring + + * calendar/timeclock.el: Update version number. + (timeclock-modeline-display): Mention timeclock-use-display-time + in explanatory message. + (timeclock-log): Suppress warnings when finding the log. Don't + check for a nil project twice. Run hooks after killing the + buffer (if applicable). + (timeclock-geometric-mean): Rename to `timeclock-mean' (it never + was geometric). All uses changed. + (timeclock-generate-report): Support prefix argument. + 2007-06-04 Micha,Ak(Bl Cadilhac * man.el (Man-next-section): Don't consider the last line of the From 7e285b363fa39b4ec1bd649429a178384542d428 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:49:26 +0000 Subject: [PATCH 080/276] Update version number. (timeclock-modeline-display): Mention timeclock-use-display-time in explanatory message. (timeclock-log): Suppress warnings when finding the log. Don't check for a nil project twice. Run hooks after killing the buffer (if applicable). (timeclock-geometric-mean): Rename to `timeclock-mean' (it never was geometric). All uses changed. (timeclock-generate-report): Support prefix argument. --- lisp/calendar/timeclock.el | 65 +++++++++++++++++++++++++++----------- 1 file changed, 46 insertions(+), 19 deletions(-) diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 4e6e4120404..edadd2ceaea 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el @@ -5,7 +5,7 @@ ;; Author: John Wiegley ;; Created: 25 Mar 1999 -;; Version: 2.6 +;; Version: 2.6.1 ;; Keywords: calendar data ;; This file is part of GNU Emacs. @@ -304,8 +304,8 @@ display (non-nil means on)." ;; Update immediately so there is a visible change ;; on calling this function. (if display-time-mode (timeclock-update-modeline) - (message "Activate `display-time-mode' to see \ -timeclock information")) + (message "Activate `display-time-mode' or turn off \ +`timeclock-use-display-time' to see timeclock information")) (add-hook 'display-time-hook 'timeclock-update-modeline)) (setq timeclock-update-timer (run-at-time nil 60 'timeclock-update-modeline)))) @@ -589,6 +589,38 @@ relative only to the time worked today, and not to past time." (message "%s" string) string))) +(defun timeclock-make-hours-explicit (old-default) + "Specify all workday lengths in `timeclock-file'. +OLD-DEFAULT hours are set for every day that has no number indicated." + (interactive "P") + (if old-default (setq old-default (prefix-numeric-value old-default)) + (error "timelog-make-hours-explicit requires an explicit argument")) + (let ((extant-timelog (find-buffer-visiting timeclock-file)) + current-date) + (with-current-buffer (find-file-noselect timeclock-file t) + (unwind-protect + (save-excursion + (save-restriction + (widen) + (goto-char (point-min)) + (while (progn (skip-chars-forward "\n") (not (eobp))) + ;; This is just a variant of `timeclock-moment-regexp'. + (unless (looking-at + (concat "^\\([bhioO]\\) \\([0-9]+/[0-9]+/[0-9]+\\) " + "\\([0-9]+:[0-9]+:[0-9]+\\)")) + (error "Can't parse `%s'" timeclock-file)) + (let ((this-date (match-string 2))) + (unless (or (and current-date + (string= this-date current-date)) + (string= (match-string 1) "h")) + (insert (format "h %s %s %s\n" (match-string 2) + (match-string 3) old-default))) + (if (string-match "^[ih]" (match-string 1)) ; ignore logouts + (setq current-date this-date))) + (forward-line)) + (save-buffer))) + (unless extant-timelog (kill-buffer (current-buffer))))))) + ;;; Internal Functions: (defvar timeclock-project-list nil) @@ -653,7 +685,7 @@ that variable's documentation." If PROJECT is a string, it represents the project which the event is being logged for. Normally only \"in\" events specify a project." (let ((extant-timelog (find-buffer-visiting timeclock-file))) - (with-current-buffer (find-file-noselect timeclock-file) + (with-current-buffer (find-file-noselect timeclock-file t) (save-excursion (save-restriction (widen) @@ -663,8 +695,7 @@ being logged for. Normally only \"in\" events specify a project." (let ((now (current-time))) (insert code " " (format-time-string "%Y/%m/%d %H:%M:%S" now) - (or (and project - (stringp project) + (or (and (stringp project) (> (length project) 0) (concat " " project)) "") @@ -679,8 +710,8 @@ being logged for. Normally only \"in\" events specify a project." timeclock-last-period))) (setq timeclock-last-event (list code now project))))) (save-buffer) - (run-hooks 'timeclock-event-hook) - (unless extant-timelog (kill-buffer (current-buffer)))))) + (unless extant-timelog (kill-buffer (current-buffer))))) + (run-hooks 'timeclock-event-hook)) (defvar timeclock-moment-regexp (concat "\\([bhioO]\\)\\s-+" @@ -1152,8 +1183,8 @@ If optional argument TIME is non-nil, use that instead of the current time." (setcar (nthcdr 2 decoded) 0) (apply 'encode-time decoded))) -(defun timeclock-geometric-mean (l) - "Compute the geometric mean of the values in the list L." +(defun timeclock-mean (l) + "Compute the arithmetic mean of the values in the list L." (let ((total 0) (count 0)) (while l @@ -1168,7 +1199,7 @@ If optional argument TIME is non-nil, use that instead of the current time." "Generate a summary report based on the current timelog file. By default, the report is in plain text, but if the optional argument HTML-P is non-nil, HTML markup is added." - (interactive) + (interactive "P") (let ((log (timeclock-log-data)) (today (timeclock-day-base))) (if html-p (insert "

")) @@ -1300,14 +1331,10 @@ HTML-P is non-nil, HTML markup is added." ;; average statistics (let ((i 0) (l 5)) (while (< i l) - (aset time-in i (timeclock-geometric-mean - (cdr (aref time-in i)))) - (aset time-out i (timeclock-geometric-mean - (cdr (aref time-out i)))) - (aset breaks i (timeclock-geometric-mean - (cdr (aref breaks i)))) - (aset workday i (timeclock-geometric-mean - (cdr (aref workday i)))) + (aset time-in i (timeclock-mean (cdr (aref time-in i)))) + (aset time-out i (timeclock-mean (cdr (aref time-out i)))) + (aset breaks i (timeclock-mean (cdr (aref breaks i)))) + (aset workday i (timeclock-mean (cdr (aref workday i)))) (setq i (1+ i)))) ;; Output the HTML table (insert "\n") From 67e2f487255c8d8cb274548a5613524ddad75836 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:51:01 +0000 Subject: [PATCH 081/276] (sregexq): Fix doc string quoting. --- lisp/emacs-lisp/sregex.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el index 8041aefc077..67824c40632 100644 --- a/lisp/emacs-lisp/sregex.el +++ b/lisp/emacs-lisp/sregex.el @@ -436,11 +436,11 @@ Here are the clauses allowed in an `sregex' or `sregexq' expression: or end of a word. - the symbol `bow' - Stands for \"\\\\\\=<\", matching the empty string at the beginning of a + Stands for \"\\\\=\\<\", matching the empty string at the beginning of a word. - the symbol `eow' - Stands for \"\\\\\\=>\", matching the empty string at the end of a word. + Stands for \"\\\\=\\>\", matching the empty string at the end of a word. - the symbol `wordchar' Stands for the regex \"\\\\w\", matching a word-constituent character From ba3a66f4b8b32b3b4587d96edf874126a13630e7 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:51:29 +0000 Subject: [PATCH 082/276] * emacs-lisp/sregex.el (sregexq): Fix doc string quoting. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 901ae8d8ee7..b928081b9c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-04 Andreas Schwab + + * emacs-lisp/sregex.el (sregexq): Fix doc string quoting. + 2007-06-04 Davis Herring * calendar/timeclock.el: Update version number. From 543d144825241e3b2dabae57b1fe87ba554f9c51 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:19:05 +0000 Subject: [PATCH 083/276] (syms_of_xfaces): Delete stray semicolon. --- src/xfaces.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xfaces.c b/src/xfaces.c index b98d10764ce..07ea34bf736 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -7987,7 +7987,7 @@ syms_of_xfaces () staticpro (&QCforeground); QCbackground = intern (":background"); staticpro (&QCbackground); - QCstipple = intern (":stipple");; + QCstipple = intern (":stipple"); staticpro (&QCstipple); QCwidth = intern (":width"); staticpro (&QCwidth); From 8efbeeab9d01c983a10c6dc17761c5b77dfa1278 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:20:05 +0000 Subject: [PATCH 084/276] (next_element_from_buffer): Delete stray semicolon. --- src/xdisp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xdisp.c b/src/xdisp.c index 156dc1aec6c..f2c6b1b6b12 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -6269,7 +6269,7 @@ next_element_from_buffer (it) it->c = *p, it->len = 1; /* Record what we have and where it came from. */ - it->what = IT_CHARACTER;; + it->what = IT_CHARACTER; it->object = it->w->buffer; it->position = it->current.pos; From ba9798ab50178c7b44fde2bc238184c4a5ec6ba3 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:21:21 +0000 Subject: [PATCH 085/276] (delete_window): Delete stray semicolon. --- src/window.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/window.c b/src/window.c index 54c70bb569d..8a5137f2044 100644 --- a/src/window.c +++ b/src/window.c @@ -1532,7 +1532,7 @@ delete_window (window) if (!EQ (window, pwindow)) break; /* Otherwise, try another window for SWINDOW. */ - swindow = Fnext_window (swindow, Qlambda, Qnil);; + swindow = Fnext_window (swindow, Qlambda, Qnil); /* If we get back to the frame's selected window, it means there was no acceptable alternative, From 67fc123f8abc7127bf4231bd6b8618cfac9f6900 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:23:14 +0000 Subject: [PATCH 086/276] (getdefdir): Delete stray semicolon. --- src/msdos.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/msdos.c b/src/msdos.c index 8e920745f3f..6420d16686f 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -1584,7 +1584,7 @@ IT_note_mouse_highlight (struct frame *f, int x, int y) { extern Lisp_Object Qmouse_face; Lisp_Object mouse_face, overlay, position, *overlay_vec; - int noverlays, obegv, ozv;; + int noverlays, obegv, ozv; struct buffer *obuf; /* If we get an out-of-range value, return now; avoid an error. */ @@ -4071,7 +4071,7 @@ getdefdir (drive, dst) int drive; char *dst; { - char in_path[4], *p = in_path, e = errno;; + char in_path[4], *p = in_path, e = errno; /* Generate "X:." (when drive is X) or "." (when drive is 0). */ if (drive != 0) From 685cdf3a51b91f163c7856aadedd732cd2fbf7b8 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:24:08 +0000 Subject: [PATCH 087/276] (mac_create_bitmap_from_bitmap_data) (init_font_name_table): Delete stray semicolon. --- src/macterm.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/macterm.c b/src/macterm.c index 91522eeda7a..32abee0bc10 100644 --- a/src/macterm.c +++ b/src/macterm.c @@ -734,7 +734,7 @@ mac_create_bitmap_from_bitmap_data (bitmap, bits, w, h) /* Bitswap XBM bytes to match how Mac does things. */ unsigned char c = *bits++; *p++ = (unsigned char)((swap_nibble[c & 0xf] << 4) - | (swap_nibble[(c>>4) & 0xf]));; + | (swap_nibble[(c>>4) & 0xf])); } } @@ -7558,7 +7558,7 @@ init_font_name_table () make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE), make_float (DEFAULT_REHASH_SIZE), make_float (DEFAULT_REHASH_THRESHOLD), - Qnil, Qnil, Qnil);; + Qnil, Qnil, Qnil); h = XHASH_TABLE (atsu_font_id_hash); err = ATSUFontCount (&nfonts); From 44f015d2a4d6dc0401561d2f04bd56dc49ab45e4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:24:47 +0000 Subject: [PATCH 088/276] (Fsxhash): Delete stray semicolon. --- src/fns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fns.c b/src/fns.c index 345aa0a35e0..661a3ea1887 100644 --- a/src/fns.c +++ b/src/fns.c @@ -5212,7 +5212,7 @@ DEFUN ("sxhash", Fsxhash, Ssxhash, 1, 1, 0, (obj) Lisp_Object obj; { - unsigned hash = sxhash (obj, 0);; + unsigned hash = sxhash (obj, 0); return make_number (hash); } From 9dff2aaa5e058fbc6280ad22375153a05db71bb5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:25:19 +0000 Subject: [PATCH 089/276] (Fmake_local_variable): Delete stray semicolon. --- src/data.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/data.c b/src/data.c index 49e1570c4c2..471df20cd48 100644 --- a/src/data.c +++ b/src/data.c @@ -1575,7 +1575,7 @@ Instead, use `add-hook' and specify t for the LOCAL argument. */) XBUFFER_LOCAL_VALUE (newval)->found_for_frame = 0; XBUFFER_LOCAL_VALUE (newval)->check_frame = 0; XBUFFER_LOCAL_VALUE (newval)->cdr = tem; - SET_SYMBOL_VALUE (variable, newval);; + SET_SYMBOL_VALUE (variable, newval); } /* Make sure this buffer has its own value of symbol. */ tem = Fassq (variable, current_buffer->local_var_alist); From fc494adb943fe23d57d27c6e79cf4ffe5ecd5d0d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:26:01 +0000 Subject: [PATCH 090/276] (ccl_driver): Delete stray semicolon. --- src/ccl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ccl.c b/src/ccl.c index ded74fb6296..ee0250f6c2c 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1261,7 +1261,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed) case CCL_MOD: reg[rrr] = i % j; break; case CCL_AND: reg[rrr] = i & j; break; case CCL_OR: reg[rrr] = i | j; break; - case CCL_XOR: reg[rrr] = i ^ j;; break; + case CCL_XOR: reg[rrr] = i ^ j; break; case CCL_LSH: reg[rrr] = i << j; break; case CCL_RSH: reg[rrr] = i >> j; break; case CCL_LSH8: reg[rrr] = (i << 8) | j; break; From a021e026ea40e3e0914410c61a9363af01181bdd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 00:26:46 +0000 Subject: [PATCH 091/276] * xfaces.c (syms_of_xfaces): Delete stray semicolon. * xdisp.c (next_element_from_buffer): * window.c (delete_window): * term.c (term_mouse_highlight): * msdos.c (getdefdir): * macterm.c (mac_create_bitmap_from_bitmap_data) (init_font_name_table): * fns.c (Fsxhash): * data.c (Fmake_local_variable): * ccl.c (ccl_driver): Likewise. --- src/ChangeLog | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index d0d52031f4f..0c66e60bfbf 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,16 @@ +2007-06-05 Dan Nicolaescu + + * xfaces.c (syms_of_xfaces): Delete stray semicolon. + * xdisp.c (next_element_from_buffer): + * window.c (delete_window): + * term.c (term_mouse_highlight): + * msdos.c (getdefdir): + * macterm.c (mac_create_bitmap_from_bitmap_data) + (init_font_name_table): + * fns.c (Fsxhash): + * data.c (Fmake_local_variable): + * ccl.c (ccl_driver): Likewise. + 2007-06-04 Juanma Barranquero * window.c (Fshrink_window): Reflow docstring. From a4eaecfc97f0177e74f52fded5b9cdc4b8c8acce Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 5 Jun 2007 01:58:04 +0000 Subject: [PATCH 092/276] Add arch tagline --- lisp/net/socks.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/net/socks.el b/lisp/net/socks.el index 8290d0592f8..c85e3fd3cc3 100644 --- a/lisp/net/socks.el +++ b/lisp/net/socks.el @@ -647,4 +647,5 @@ version.") (provide 'socks) +;; arch-tag: 67aef0d9-f4f7-4056-89c3-b4c9bf93ce7f ;;; socks.el ends here From 1634f0e39b201636a3c82fda2eb9138bbeda260a Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 5 Jun 2007 05:00:23 +0000 Subject: [PATCH 093/276] * net/socks.el (top): Remove unnecessary copyright line. --- lisp/ChangeLog | 4 ++++ lisp/net/socks.el | 1 - 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 77772d9a60d..3b4b72e31cc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-05 Michael Albinus + + * net/socks.el (top): Remove unnecessary copyright line. + 2007-06-04 Chong Yidong * longlines.el (longlines-auto-wrap): Handle argument correctly. diff --git a/lisp/net/socks.el b/lisp/net/socks.el index c85e3fd3cc3..ee2bc0c1d2d 100644 --- a/lisp/net/socks.el +++ b/lisp/net/socks.el @@ -1,6 +1,5 @@ ;;; socks.el --- A Socks v5 Client for Emacs -;; Copyright (C) 1996 - 1998 by William M. Perry ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, ;; 2007 Free Software Foundation, Inc. From 7253ac496df851ff502652ba2b1b94323e575206 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 5 Jun 2007 05:09:16 +0000 Subject: [PATCH 094/276] * NEWS: Add socks.el as new package. --- etc/ChangeLog | 6 +++++- etc/NEWS | 3 +++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 98567074f76..8a184d5f5e9 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-05 Michael Albinus + + * NEWS: Add socks.el as new package. + 2007-06-02 Thien-Thi Nguyen * MORE.STUFF (Hideshow): Delete. @@ -260,7 +264,7 @@ 2007-02-19 Kenichi Handa - * NEWS (New language environmets): Add "Esperanto". + * NEWS (New language environments): Add "Esperanto". 2007-02-16 Dale Gulledge diff --git a/etc/NEWS b/etc/NEWS index 0c2846bf5b9..e128db6cd25 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -34,6 +34,9 @@ with a prefix argument or by typing C-u C-h C-n. * New Modes and Packages in Emacs 23.1 ** css-mode to edit Cascading Style Sheets. + +** socks.el (which had been part of W3) is now part of Emacs. + * Changes in Specialized Modes and Packages in Emacs 23.1 From 65fddb7472842a1de3be0e8b0fdba849b6555bcc Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Jun 2007 10:06:19 +0000 Subject: [PATCH 095/276] (Finternal_lisp_face_p): Signal error for face alias loops. --- src/ChangeLog | 6 +++++- src/xfaces.c | 2 ++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index ecfbb087c45..e1e8867e882 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,8 +1,12 @@ +2007-06-05 Juanma Barranquero + + * xfaces.c (Finternal_lisp_face_p): Signal error for face alias loops. + 2007-06-03 Nick Roberts * keyboard.c (discard_mouse_events): Add GPM_CLICK_EVENT case. - * frame.c (Fmouse_position, Fmouse_pixel_position): + * frame.c (Fmouse_position, Fmouse_pixel_position): Condition on HAVE_GPM too. * term.c (term_mouse_highlight): Remove unused variables. diff --git a/src/xfaces.c b/src/xfaces.c index 07ea34bf736..b30d673241f 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -3935,6 +3935,8 @@ Otherwise check for the existence of a global face. */) { Lisp_Object lface; + face = resolve_face_name (face, 1); + if (!NILP (frame)) { CHECK_LIVE_FRAME (frame); From b2d5aa4656a43a2e2f28f4d53b53e07258dccf66 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 5 Jun 2007 10:13:03 +0000 Subject: [PATCH 096/276] (face-id): If the argument is a face alias, return the ID of the target face. --- lisp/ChangeLog | 5 +++++ lisp/faces.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b4b72e31cc..d3ae809deda 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-05 Juanma Barranquero + + * faces.el (face-id): If the argument is a face alias, + return the ID of the target face. + 2007-06-05 Michael Albinus * net/socks.el (top): Remove unnecessary copyright line. diff --git a/lisp/faces.el b/lisp/faces.el index a8c92ab9a75..048dae039ad 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -222,11 +222,12 @@ Value is FACE." (defun face-id (face &optional frame) "Return the internal ID of face with name FACE. +If FACE is a face-alias, return the ID of the target face. The optional argument FRAME is ignored, since the internal face ID of a face name is the same for all frames." (check-face face) - (get face 'face)) - + (or (get face 'face) + (face-id (get face 'face-alias)))) (defun face-equal (face1 face2 &optional frame) "Non-nil if faces FACE1 and FACE2 are equal. From 2216ee11f8206ebf3ece763d885de2116fb1745c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 5 Jun 2007 14:43:46 +0000 Subject: [PATCH 097/276] *** empty log message *** --- lisp/ChangeLog | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d3ae809deda..55d63670169 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -29,11 +29,9 @@ 2007-06-03 Sam Steingold - Add TIMESTAMP to LOC to handle "incremental compilation", e.g., - with `omake -P': the compilation process never terminates and - automatically recompiles modified files. - - * progmodes/compile.el (compilation-loop): VISITED is not 5th CDR. + * progmodes/compile.el: Add TIMESTAMP to the LOC data structure, to + handle unending automatic recompilation of changed files (`omake -P'). + (compilation-loop): VISITED is not 5th CDR. (compilation-next-error-function): Set TIMESTAMP. 2007-06-03 Sam Steingold From f608df3db6721faf759647b1234dfaa6d5674b5e Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:46:35 +0000 Subject: [PATCH 098/276] * files.el (auto-mode-alist): Separate "ChangeLog.1" and "ChangeLog.a" entries, giving the latter lower priority. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 55d63670169..bfae839ae7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-05 Chong Yidong + + * files.el (auto-mode-alist): Separate "ChangeLog.1" and + "ChangeLog.a" entries, giving the latter lower priority. + 2007-06-05 Juanma Barranquero * faces.el (face-id): If the argument is a face alias, From 406568498c230e4276806d71f83da585d1a2b8cb Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:46:43 +0000 Subject: [PATCH 099/276] (auto-mode-alist): Separate "ChangeLog.1" and "ChangeLog.a" entries, giving the latter lower priority. --- lisp/files.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index fc8256ba36e..952736f06d7 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1924,7 +1924,7 @@ since only a single case-insensitive search through the alist is made." ("\\.[sS]\\'" . asm-mode) ("\\.asm\\'" . asm-mode) ("[cC]hange\\.?[lL]og?\\'" . change-log-mode) - ("[cC]hange[lL]og[-.][-0-9a-z]+\\'" . change-log-mode) + ("[cC]hange[lL]og[-.][0-9]+\\'" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) ("\\.scm\\.[0-9]*\\'" . scheme-mode) ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode) @@ -2012,6 +2012,9 @@ since only a single case-insensitive search through the alist is made." ("[/.]c\\(?:on\\)?f\\(?:i?g\\)?\\(?:\\.[a-zA-Z0-9._-]+\\)?\\'" . conf-mode) ("\\`/etc/\\(?:DIR_COLORS\\|ethers\\|.?fstab\\|.*hosts\\|lesskey\\|login\\.?de\\(?:fs\\|vperm\\)\\|magic\\|mtab\\|pam\\.d/.*\\|permissions\\(?:\\.d/.+\\)?\\|protocols\\|rpc\\|services\\)\\'" . conf-space-mode) ("\\`/etc/\\(?:acpid?/.+\\|aliases\\(?:\\.d/.+\\)?\\|default/.+\\|group-?\\|hosts\\..+\\|inittab\\|ksysguarddrc\\|opera6rc\\|passwd-?\\|shadow-?\\|sysconfig/.+\\)\\'" . conf-mode) + ;; ChangeLog.old etc. Other change-log-mode entries are above; + ;; this has lower priority to avoid matching changelog.sgml etc. + ("[cC]hange[lL]og[-.][-0-9a-z]+\\'" . change-log-mode) ;; either user's dot-files or under /etc or some such ("/\\.?\\(?:gnokiirc\\|kde.*rc\\|mime\\.types\\|wgetrc\\)\\'" . conf-mode) ;; alas not all ~/.*rc files are like this From 076285fd86c494e3ddd90e17e755a0354c6c12b1 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:48:33 +0000 Subject: [PATCH 100/276] * files.el (auto-mode-alist): Add lower-priority match for names like ChangeLog.old. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b928081b9c3..c0ac742ceb0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-05 Chong Yidong + + * files.el (auto-mode-alist): Add lower-priority match for names + like ChangeLog.old. + 2007-06-04 Andreas Schwab * emacs-lisp/sregex.el (sregexq): Fix doc string quoting. From 9ff10f61650860a7e62677ea208f2d1b45667840 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:48:44 +0000 Subject: [PATCH 101/276] (auto-mode-alist): Add lower-priority match for names like ChangeLog.old. --- lisp/files.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 5693e40ced5..90451882945 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2010,6 +2010,9 @@ since only a single case-insensitive search through the alist is made." ("[/.]c\\(?:on\\)?f\\(?:i?g\\)?\\(?:\\.[a-zA-Z0-9._-]+\\)?\\'" . conf-mode) ("\\`/etc/\\(?:DIR_COLORS\\|ethers\\|.?fstab\\|.*hosts\\|lesskey\\|login\\.?de\\(?:fs\\|vperm\\)\\|magic\\|mtab\\|pam\\.d/.*\\|permissions\\(?:\\.d/.+\\)?\\|protocols\\|rpc\\|services\\)\\'" . conf-space-mode) ("\\`/etc/\\(?:acpid?/.+\\|aliases\\(?:\\.d/.+\\)?\\|default/.+\\|group-?\\|hosts\\..+\\|inittab\\|ksysguarddrc\\|opera6rc\\|passwd-?\\|shadow-?\\|sysconfig/.+\\)\\'" . conf-mode) + ;; ChangeLog.old etc. Other change-log-mode entries are above; + ;; this has lower priority to avoid matching changelog.sgml etc. + ("[cC]hange[lL]og[-.][-0-9a-z]+\\'" . change-log-mode) ;; either user's dot-files or under /etc or some such ("/\\.?\\(?:gnokiirc\\|kde.*rc\\|mime\\.types\\|wgetrc\\)\\'" . conf-mode) ;; alas not all ~/.*rc files are like this From f7f78f125f29447fb3c912eee5c4d7c6bb6e59ec Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:50:12 +0000 Subject: [PATCH 102/276] * files.el (auto-mode-alist): Open `.asd' files in lisp-mode. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0ac742ceb0..fae5255e1bc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-05 Glenn Morris + + * files.el (auto-mode-alist): Open `.asd' files in lisp-mode. + 2007-06-05 Chong Yidong * files.el (auto-mode-alist): Add lower-priority match for names From 726d9c5bd20726dbe25afba4a8890b2192ab57ac Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:51:01 +0000 Subject: [PATCH 103/276] (auto-mode-alist): Open `.asd' files in lisp-mode. --- lisp/files.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 90451882945..5be738bd452 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1985,6 +1985,8 @@ since only a single case-insensitive search through the alist is made." ("[:/]_emacs\\'" . emacs-lisp-mode) ("/crontab\\.X*[0-9]+\\'" . shell-script-mode) ("\\.ml\\'" . lisp-mode) + ;; Common Lisp ASDF package system. + ("\\.asd\\'" . lisp-mode) ("\\.\\(asn\\|mib\\|smi\\)\\'" . snmp-mode) ("\\.\\(as\\|mi\\|sm\\)2\\'" . snmpv2-mode) ("\\.\\(diffs?\\|patch\\|rej\\)\\'" . diff-mode) From 27e165152b8365e566b30155e7e7cdf7b0a3c6ae Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:58:40 +0000 Subject: [PATCH 104/276] * bs.el (bs-cycle-previous): Don't modify the cycle list until `switch-to-buffer' has returned succesfully. (bs-cycle-next): Ditto. Also, don't bury the buffer when the window is dedicated (it could iconify the frame). --- lisp/ChangeLog | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fae5255e1bc..695db5c9678 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-06-05 Juanma Barranquero + + * bs.el (bs-cycle-previous): Don't modify the cycle list until + `switch-to-buffer' has returned succesfully. + (bs-cycle-next): Ditto. Also, don't bury the buffer when the + window is dedicated (it could iconify the frame). + 2007-06-05 Glenn Morris * files.el (auto-mode-alist): Open `.asd' files in lisp-mode. From b49bf494d2860b79f694148d55df9326aff08d8f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 5 Jun 2007 15:59:15 +0000 Subject: [PATCH 105/276] (bs-cycle-previous): Don't modify the cycle list until `switch-to-buffer' has returned succesfully. (bs-cycle-next): Ditto. Also, don't bury the buffer when the window is dedicated (it could iconify the frame). --- lisp/bs.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/bs.el b/lisp/bs.el index b1fa47100f0..5951d129d96 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -1221,10 +1221,13 @@ by buffer configuration `bs-cycle-configuration-name'." bs--cycle-list))) (next (car tupel)) (cycle-list (cdr tupel))) + (unless (window-dedicated-p (selected-window)) + ;; We don't want the frame iconified if the only window in the frame + ;; happens to be dedicated; let's get the error from switch-to-buffer + (bury-buffer)) + (switch-to-buffer next) (setq bs--cycle-list (append (cdr cycle-list) (list (car cycle-list)))) - (bury-buffer) - (switch-to-buffer next) (bs-message-without-log "Next buffers: %s" (or (cdr bs--cycle-list) "this buffer")))))) @@ -1251,9 +1254,9 @@ by buffer configuration `bs-cycle-configuration-name'." bs--cycle-list))) (prev-buffer (car tupel)) (cycle-list (cdr tupel))) + (switch-to-buffer prev-buffer) (setq bs--cycle-list (append (last cycle-list) (reverse (cdr (reverse cycle-list))))) - (switch-to-buffer prev-buffer) (bs-message-without-log "Previous buffers: %s" (or (reverse (cdr bs--cycle-list)) "this buffer")))))) From 3a1c1b157102420cd871e9c9ada10d17fa0b4589 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 5 Jun 2007 18:29:37 +0000 Subject: [PATCH 106/276] typo --- lisp/ChangeLog | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bfae839ae7e..69d2349235c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -36,7 +36,7 @@ * progmodes/compile.el: Add TIMESTAMP to the LOC data structure, to handle unending automatic recompilation of changed files (`omake -P'). - (compilation-loop): VISITED is not 5th CDR. + (compilation-loop): VISITED is now 5th CDR. (compilation-next-error-function): Set TIMESTAMP. 2007-06-03 Sam Steingold From 29ec0239fd440dcc19b216fc63efdf3b050793d4 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 6 Jun 2007 02:19:13 +0000 Subject: [PATCH 107/276] Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 226) - Update from CVS 2007-06-04 Katsumi Yamaoka * lisp/gnus/gnus-art.el (gnus-mime-view-part-externally) (gnus-mime-view-part-internally): Fix predicate function passed to completing-read. * lisp/gnus/mm-decode.el (mm-image-fit-p): Return t if argument is not an image; return t if image size is just the same as window size. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-786 --- lisp/gnus/ChangeLog | 9 +++++++++ lisp/gnus/gnus-art.el | 4 ++-- lisp/gnus/mm-decode.el | 25 +++++++++++++------------ 3 files changed, 24 insertions(+), 14 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 631869e4f34..93c860812c5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,12 @@ +2007-06-04 Katsumi Yamaoka + + * gnus-art.el (gnus-mime-view-part-externally) + (gnus-mime-view-part-internally): Fix predicate function passed to + completing-read. + + * mm-decode.el (mm-image-fit-p): Return t if argument is not an image; + return t if image size is just the same as window size. + 2007-05-28 Katsumi Yamaoka * message.el (message-pop-to-buffer): Add switch-function argument. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 013bf48110d..24273abb376 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -4674,7 +4674,7 @@ specified charset." (mm-enable-external t)) (if (not (stringp method)) (gnus-mime-view-part-as-type - nil (lambda (type) (stringp (mailcap-mime-info type)))) + nil (lambda (types) (stringp (mailcap-mime-info (car types))))) (when handle (if (mm-handle-undisplayer handle) (mm-remove-part handle) @@ -4695,7 +4695,7 @@ If no internal viewer is available, use an external viewer." (inhibit-read-only t)) (if (not (mm-inlinable-p handle)) (gnus-mime-view-part-as-type - nil (lambda (type) (mm-inlinable-p handle type))) + nil (lambda (types) (mm-inlinable-p handle (car types)))) (when handle (if (mm-handle-undisplayer handle) (mm-remove-part handle) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 6d52d8b2f16..028855ab341 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1371,18 +1371,19 @@ be determined." (defun mm-image-fit-p (handle) "Say whether the image in HANDLE will fit the current window." (let ((image (mm-get-image handle))) - (if (fboundp 'glyph-width) - ;; XEmacs' glyphs can actually tell us about their width, so - ;; lets be nice and smart about them. - (or mm-inline-large-images - (and (< (glyph-width image) (window-pixel-width)) - (< (glyph-height image) (window-pixel-height)))) - (let* ((size (image-size image)) - (w (car size)) - (h (cdr size))) - (or mm-inline-large-images - (and (< h (1- (window-height))) ; Don't include mode line. - (< w (window-width)))))))) + (or (not image) + (if (fboundp 'glyph-width) + ;; XEmacs' glyphs can actually tell us about their width, so + ;; lets be nice and smart about them. + (or mm-inline-large-images + (and (<= (glyph-width image) (window-pixel-width)) + (<= (glyph-height image) (window-pixel-height)))) + (let* ((size (image-size image)) + (w (car size)) + (h (cdr size))) + (or mm-inline-large-images + (and (<= h (1- (window-height))) ; Don't include mode line. + (<= w (window-width))))))))) (defun mm-valid-image-format-p (format) "Say whether FORMAT can be displayed natively by Emacs." From 17eba9d2caa12c7f68a7d0f0a4e5e10e4e72fdc8 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Wed, 6 Jun 2007 08:32:15 +0000 Subject: [PATCH 108/276] (mac_window): Replace WindowPtr with WindowRef. --- src/macfns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/macfns.c b/src/macfns.c index b7a8cd7e974..c7834e636df 100644 --- a/src/macfns.c +++ b/src/macfns.c @@ -2266,7 +2266,7 @@ mac_window (f) #else FRAME_MAC_WINDOW (f) = NewCWindow (NULL, &r, "\p", false, zoomDocProc, - (WindowPtr) -1, 1, (long) f->output_data.mac); + (WindowRef) -1, 1, (long) f->output_data.mac); #endif /* so that update events can find this mac_output struct */ f->output_data.mac->mFP = f; /* point back to emacs frame */ From 1c2c66d5d4af7d349a6e1aa517d47521b3508566 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Wed, 6 Jun 2007 08:32:23 +0000 Subject: [PATCH 109/276] Replace WindowPtr with WindowRef. --- src/macgui.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/macgui.h b/src/macgui.h index 1348fe479cb..990765593e1 100644 --- a/src/macgui.h +++ b/src/macgui.h @@ -71,7 +71,7 @@ typedef unsigned long Time; #undef Z #define Z (current_buffer->text->z) #else /* not HAVE_CARBON */ -#include /* for WindowPtr */ +#include /* for WindowRef */ #include /* for GWorldPtr */ #include /* for ThemeCursor */ #include @@ -117,7 +117,7 @@ typedef unsigned long Time; #endif #endif -typedef WindowPtr Window; +typedef WindowRef Window; typedef GWorldPtr Pixmap; #define Cursor ThemeCursor From 477f75a567d9b316bee3bae0edb4e8df8a630223 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Wed, 6 Jun 2007 08:33:01 +0000 Subject: [PATCH 110/276] Replace MenuHandle and GetMenuHandle with MenuRef and GetMenuRef, respectively. Replace WindowPtr with WindowRef. Replace ControlHandle with ControlRef. (install_menu_quit_handler): Rename arg MENU_HANDLE to ROOT_MENU. --- src/macmenu.c | 50 +++++++++++++++++++++++++------------------------- 1 file changed, 25 insertions(+), 25 deletions(-) diff --git a/src/macmenu.c b/src/macmenu.c index a5196a156eb..098457a3f36 100644 --- a/src/macmenu.c +++ b/src/macmenu.c @@ -200,7 +200,7 @@ static void list_of_items P_ ((Lisp_Object)); static void find_and_call_menu_selection P_ ((FRAME_PTR, int, Lisp_Object, void *)); -static int fill_menu P_ ((MenuHandle, widget_value *, enum mac_menu_kind, int)); +static int fill_menu P_ ((MenuRef, widget_value *, enum mac_menu_kind, int)); static void fill_menubar P_ ((widget_value *, int)); static void dispose_menus P_ ((enum mac_menu_kind, int)); @@ -1162,7 +1162,7 @@ x_activate_menubar (f) #endif if (menu_id) { - MenuHandle menu = GetMenuHandle (menu_id); + MenuRef menu = GetMenuRef (menu_id); if (menu) { @@ -1632,7 +1632,7 @@ menu_target_item_handler (next_handler, event, data) OSStatus install_menu_target_item_handler (window) - WindowPtr window; + WindowRef window; { OSStatus err = noErr; #if TARGET_API_MAC_CARBON @@ -1687,15 +1687,15 @@ menu_quit_handler (nextHandler, theEvent, userData) } #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ -/* Add event handler to all menus that belong to KIND so we can detect C-g. - MENU_HANDLE is the root menu of the tracking session to dismiss - when C-g is detected. NULL means the menu bar. - If CancelMenuTracking isn't available, do nothing. */ +/* Add event handler to all menus that belong to KIND so we can detect + C-g. ROOT_MENU is the root menu of the tracking session to dismiss + when C-g is detected. NULL means the menu bar. If + CancelMenuTracking isn't available, do nothing. */ static void -install_menu_quit_handler (kind, menu_handle) +install_menu_quit_handler (kind, root_menu) enum mac_menu_kind kind; - MenuHandle menu_handle; + MenuRef root_menu; { #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 static const EventTypeSpec typesList[] = @@ -1708,13 +1708,13 @@ install_menu_quit_handler (kind, menu_handle) #endif for (id = min_menu_id[kind]; id < min_menu_id[kind + 1]; id++) { - MenuHandle menu = GetMenuHandle (id); + MenuRef menu = GetMenuRef (id); if (menu == NULL) break; InstallMenuEventHandler (menu, menu_quit_handler, GetEventTypeCount (typesList), - typesList, menu_handle, NULL); + typesList, root_menu, NULL); } #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ } @@ -1978,7 +1978,7 @@ pop_down_menu (arg) { struct Lisp_Save_Value *p = XSAVE_VALUE (arg); FRAME_PTR f = p->pointer; - MenuHandle menu = GetMenuHandle (min_menu_id[MAC_MENU_POPUP]); + MenuRef menu = GetMenuRef (min_menu_id[MAC_MENU_POPUP]); BLOCK_INPUT; @@ -2024,7 +2024,7 @@ mac_menu_show (f, x, y, for_click, keymaps, title, error) int i; int menu_item_choice; UInt32 menu_item_selection; - MenuHandle menu; + MenuRef menu; Point pos; widget_value *wv, *save_wv = 0, *first_wv = 0, *prev_wv = 0; widget_value **submenu_stack @@ -2254,7 +2254,7 @@ mac_menu_show (f, x, y, for_click, keymaps, title, error) /* Get the refcon to find the correct item */ if (menu_item_choice) { - MenuHandle sel_menu = GetMenuHandle (HiWord (menu_item_choice)); + MenuRef sel_menu = GetMenuRef (HiWord (menu_item_choice)); if (sel_menu) GetMenuItemRefCon (sel_menu, LoWord (menu_item_choice), @@ -2724,8 +2724,8 @@ mac_dialog (widget_value *wv) int i; int dialog_width; Rect rect; - WindowPtr window_ptr; - ControlHandle ch; + WindowRef window_ptr; + ControlRef ch; int left; EventRecord event_record; SInt16 part_code; @@ -2754,7 +2754,7 @@ mac_dialog (widget_value *wv) wv = wv->next; } - window_ptr = GetNewCWindow (DIALOG_WINDOW_RESOURCE, NULL, (WindowPtr) -1); + window_ptr = GetNewCWindow (DIALOG_WINDOW_RESOURCE, NULL, (WindowRef) -1); SetPortWindowPort (window_ptr); @@ -3031,7 +3031,7 @@ name_is_separator (name) static void add_menu_item (menu, pos, wv) - MenuHandle menu; + MenuRef menu; int pos; widget_value *wv; { @@ -3108,7 +3108,7 @@ add_menu_item (menu, pos, wv) static int fill_menu (menu, wv, kind, submenu_id) - MenuHandle menu; + MenuRef menu; widget_value *wv; enum mac_menu_kind kind; int submenu_id; @@ -3120,7 +3120,7 @@ fill_menu (menu, wv, kind, submenu_id) add_menu_item (menu, pos, wv); if (wv->contents && submenu_id < min_menu_id[kind + 1]) { - MenuHandle submenu = NewMenu (submenu_id, "\pX"); + MenuRef submenu = NewMenu (submenu_id, "\pX"); InsertMenu (submenu, -1); SetMenuItemHierarchicalID (menu, pos, submenu_id); @@ -3139,7 +3139,7 @@ fill_menubar (wv, deep_p) int deep_p; { int id, submenu_id; - MenuHandle menu; + MenuRef menu; Str255 title; #if !TARGET_API_MAC_CARBON int title_changed_p = 0; @@ -3166,7 +3166,7 @@ fill_menubar (wv, deep_p) title[255] = '\0'; c2pstr (title); - menu = GetMenuHandle (id); + menu = GetMenuRef (id); if (menu) { #if TARGET_API_MAC_CARBON @@ -3181,7 +3181,7 @@ fill_menubar (wv, deep_p) DeleteMenu (id); DisposeMenu (menu); menu = NewMenu (id, title); - InsertMenu (menu, GetMenuHandle (id + 1) ? id + 1 : 0); + InsertMenu (menu, GetMenuRef (id + 1) ? id + 1 : 0); title_changed_p = 1; } #endif /* !TARGET_API_MAC_CARBON */ @@ -3200,7 +3200,7 @@ fill_menubar (wv, deep_p) submenu_id); } - if (id < min_menu_id[MAC_MENU_MENU_BAR + 1] && GetMenuHandle (id)) + if (id < min_menu_id[MAC_MENU_MENU_BAR + 1] && GetMenuRef (id)) { dispose_menus (MAC_MENU_MENU_BAR, id); #if !TARGET_API_MAC_CARBON @@ -3224,7 +3224,7 @@ dispose_menus (kind, id) { for (id = max (id, min_menu_id[kind]); id < min_menu_id[kind + 1]; id++) { - MenuHandle menu = GetMenuHandle (id); + MenuRef menu = GetMenuRef (id); if (menu == NULL) break; From 3354caee461d29293205916f3bcc41def3bdd4f5 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Wed, 6 Jun 2007 08:33:15 +0000 Subject: [PATCH 111/276] Replace MenuHandle and GetMenuHandle with MenuRef and GetMenuRef, respectively. Replace WindowPtr with WindowRef. Replace ControlHandle with ControlRef. (USE_CARBON_EVENTS): Remove. Use TARGET_API_MAC_CARBON instead. [MAC_OS8] (do_get_menus): Rename variable `menu_handle' to `menu'. --- src/macterm.c | 199 ++++++++++++++++++++++---------------------------- 1 file changed, 89 insertions(+), 110 deletions(-) diff --git a/src/macterm.c b/src/macterm.c index 32abee0bc10..a4030a18ecb 100644 --- a/src/macterm.c +++ b/src/macterm.c @@ -35,12 +35,7 @@ Boston, MA 02110-1301, USA. */ #include #endif -#if TARGET_API_MAC_CARBON -/* USE_CARBON_EVENTS determines if the Carbon Event Manager is used to - obtain events from the event queue. If set to 0, WaitNextEvent is - used instead. */ -#define USE_CARBON_EVENTS 1 -#else /* not TARGET_API_MAC_CARBON */ +#if !TARGET_API_MAC_CARBON #include #include #include @@ -263,7 +258,7 @@ static void x_scroll_bar_report_motion P_ ((struct frame **, Lisp_Object *, Lisp_Object *, Lisp_Object *, unsigned long *)); -static int is_emacs_window P_ ((WindowPtr)); +static int is_emacs_window P_ ((WindowRef)); static XCharStruct *mac_per_char_metric P_ ((XFontStruct *, XChar2b *, int)); static void XSetFont P_ ((Display *, GC, XFontStruct *)); @@ -753,7 +748,7 @@ mac_free_bitmap (bitmap) Pixmap XCreatePixmap (display, w, width, height, depth) Display *display; /* not used */ - WindowPtr w; + WindowRef w; unsigned int width, height; unsigned int depth; { @@ -782,7 +777,7 @@ XCreatePixmap (display, w, width, height, depth) Pixmap XCreatePixmapFromBitmapData (display, w, data, width, height, fg, bg, depth) Display *display; /* not used */ - WindowPtr w; + WindowRef w; char *data; unsigned int width, height; unsigned long fg, bg; @@ -1590,7 +1585,7 @@ mac_scroll_area (f, gc, src_x, src_y, width, height, dest_x, dest_y) DisposeRgn (dummy); #else /* not TARGET_API_MAC_CARBON */ Rect src_r, dest_r; - WindowPtr w = FRAME_MAC_WINDOW (f); + WindowRef w = FRAME_MAC_WINDOW (f); SetPort (w); @@ -1850,7 +1845,7 @@ mac_reset_clip_rectangles (display, gc) void XSetWindowBackground (display, w, color) Display *display; - WindowPtr w; + WindowRef w; unsigned long color; { #if !TARGET_API_MAC_CARBON @@ -4373,7 +4368,7 @@ x_detect_focus_change (dpyinfo, event, bufp) { struct frame *frame; - frame = mac_window_to_frame ((WindowPtr) event->message); + frame = mac_window_to_frame ((WindowRef) event->message); if (! frame) return; @@ -4644,14 +4639,14 @@ static OSStatus set_scroll_bar_timer P_ ((EventTimerInterval)); static int control_part_code_to_scroll_bar_part P_ ((ControlPartCode)); static void construct_scroll_bar_click P_ ((struct scroll_bar *, int, struct input_event *)); -static OSStatus get_control_part_bounds P_ ((ControlHandle, ControlPartCode, +static OSStatus get_control_part_bounds P_ ((ControlRef, ControlPartCode, Rect *)); static void x_scroll_bar_handle_press P_ ((struct scroll_bar *, ControlPartCode, Point, struct input_event *)); static void x_scroll_bar_handle_release P_ ((struct scroll_bar *, struct input_event *)); -static void x_scroll_bar_handle_drag P_ ((WindowPtr, struct scroll_bar *, +static void x_scroll_bar_handle_drag P_ ((WindowRef, struct scroll_bar *, Point, struct input_event *)); static void x_set_toolkit_scroll_bar_thumb P_ ((struct scroll_bar *, int, int, int)); @@ -4744,7 +4739,7 @@ construct_scroll_bar_click (bar, part, bufp) static OSStatus get_control_part_bounds (ch, part_code, rect) - ControlHandle ch; + ControlRef ch; ControlPartCode part_code; Rect *rect; { @@ -4774,7 +4769,7 @@ x_scroll_bar_handle_press (bar, part_code, mouse_pos, bufp) if (part != scroll_bar_handle) { construct_scroll_bar_click (bar, part, bufp); - HiliteControl (SCROLL_BAR_CONTROL_HANDLE (bar), part_code); + HiliteControl (SCROLL_BAR_CONTROL_REF (bar), part_code); set_scroll_bar_timer (SCROLL_BAR_FIRST_DELAY); bar->dragging = Qnil; } @@ -4782,7 +4777,7 @@ x_scroll_bar_handle_press (bar, part_code, mouse_pos, bufp) { Rect r; - get_control_part_bounds (SCROLL_BAR_CONTROL_HANDLE (bar), + get_control_part_bounds (SCROLL_BAR_CONTROL_REF (bar), kControlIndicatorPart, &r); XSETINT (bar->dragging, - (mouse_pos.v - r.top) - 1); } @@ -4800,7 +4795,7 @@ x_scroll_bar_handle_release (bar, bufp) || (INTEGERP (bar->dragging) && XINT (bar->dragging) >= 0)) construct_scroll_bar_click (bar, scroll_bar_end_scroll, bufp); - HiliteControl (SCROLL_BAR_CONTROL_HANDLE (bar), 0); + HiliteControl (SCROLL_BAR_CONTROL_REF (bar), 0); set_scroll_bar_timer (kEventDurationForever); last_scroll_bar_part = -1; @@ -4810,19 +4805,19 @@ x_scroll_bar_handle_release (bar, bufp) static void x_scroll_bar_handle_drag (win, bar, mouse_pos, bufp) - WindowPtr win; + WindowRef win; struct scroll_bar *bar; Point mouse_pos; struct input_event *bufp; { - ControlHandle ch = SCROLL_BAR_CONTROL_HANDLE (bar); + ControlRef ch = SCROLL_BAR_CONTROL_REF (bar); if (last_scroll_bar_part == scroll_bar_handle) { int top, top_range; Rect r; - get_control_part_bounds (SCROLL_BAR_CONTROL_HANDLE (bar), + get_control_part_bounds (SCROLL_BAR_CONTROL_REF (bar), kControlIndicatorPart, &r); if (INTEGERP (bar->dragging) && XINT (bar->dragging) < 0) @@ -4870,13 +4865,13 @@ x_scroll_bar_handle_drag (win, bar, mouse_pos, bufp) } if (unhilite_p) - HiliteControl (SCROLL_BAR_CONTROL_HANDLE (bar), 0); + HiliteControl (SCROLL_BAR_CONTROL_REF (bar), 0); else if (part != last_scroll_bar_part || scroll_bar_timer_event_posted_p) { construct_scroll_bar_click (bar, part, bufp); last_scroll_bar_part = part; - HiliteControl (SCROLL_BAR_CONTROL_HANDLE (bar), part_code); + HiliteControl (SCROLL_BAR_CONTROL_REF (bar), part_code); set_scroll_bar_timer (SCROLL_BAR_CONTINUOUS_DELAY); } } @@ -4890,7 +4885,7 @@ x_set_toolkit_scroll_bar_thumb (bar, portion, position, whole) struct scroll_bar *bar; int portion, position, whole; { - ControlHandle ch = SCROLL_BAR_CONTROL_HANDLE (bar); + ControlRef ch = SCROLL_BAR_CONTROL_REF (bar); int value, viewsize, maximum; if (XINT (bar->track_height) == 0) @@ -4949,7 +4944,7 @@ x_scroll_bar_create (w, top, left, width, height, disp_top, disp_height) struct scroll_bar *bar = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil)); Rect r; - ControlHandle ch; + ControlRef ch; BLOCK_INPUT; @@ -4973,7 +4968,7 @@ x_scroll_bar_create (w, top, left, width, height, disp_top, disp_height) ch = NewControl (FRAME_MAC_WINDOW (f), &r, "\p", width < disp_height, 0, 0, 0, scrollBarProc, (long) bar); #endif - SET_SCROLL_BAR_CONTROL_HANDLE (bar, ch); + SET_SCROLL_BAR_CONTROL_REF (bar, ch); XSETWINDOW (bar->window, w); XSETINT (bar->top, top); @@ -5023,7 +5018,7 @@ x_scroll_bar_set_handle (bar, start, end, rebuild) int rebuild; { int dragging = ! NILP (bar->dragging); - ControlHandle ch = SCROLL_BAR_CONTROL_HANDLE (bar); + ControlRef ch = SCROLL_BAR_CONTROL_REF (bar); FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)); int length = end - start; @@ -5092,7 +5087,7 @@ x_scroll_bar_remove (bar) mac_prepare_for_quickdraw (f); #endif /* Destroy the Mac scroll bar control */ - DisposeControl (SCROLL_BAR_CONTROL_HANDLE (bar)); + DisposeControl (SCROLL_BAR_CONTROL_REF (bar)); /* Disassociate this scroll bar from its window. */ XWINDOW (bar->window)->vertical_scroll_bar = Qnil; @@ -5170,10 +5165,10 @@ XTset_vertical_scroll_bar (w, portion, whole, position) else { /* It may just need to be moved and resized. */ - ControlHandle ch; + ControlRef ch; bar = XSCROLL_BAR (w->vertical_scroll_bar); - ch = SCROLL_BAR_CONTROL_HANDLE (bar); + ch = SCROLL_BAR_CONTROL_REF (bar); BLOCK_INPUT; @@ -5229,7 +5224,7 @@ XTset_vertical_scroll_bar (w, portion, whole, position) } else { - ControlHandle ch = SCROLL_BAR_CONTROL_HANDLE (bar); + ControlRef ch = SCROLL_BAR_CONTROL_REF (bar); Rect r0, r1; BLOCK_INPUT; @@ -5506,11 +5501,11 @@ x_scroll_bar_report_motion (fp, bar_window, part, x, y, time) unsigned long *time; { struct scroll_bar *bar = XSCROLL_BAR (last_mouse_scroll_bar); - ControlHandle ch = SCROLL_BAR_CONTROL_HANDLE (bar); + ControlRef ch = SCROLL_BAR_CONTROL_REF (bar); #if TARGET_API_MAC_CARBON - WindowPtr wp = GetControlOwner (ch); + WindowRef wp = GetControlOwner (ch); #else - WindowPtr wp = (*ch)->contrlOwner; + WindowRef wp = (*ch)->contrlOwner; #endif Point mouse_pos; struct frame *f = mac_window_to_frame (wp); @@ -6146,9 +6141,7 @@ x_set_offset (f, xoff, yoff, change_gravity) ConstrainWindowToScreen (FRAME_MAC_WINDOW (f), kWindowTitleBarRgn, kWindowConstrainMoveRegardlessOfFit | kWindowConstrainAllowPartial, NULL, NULL); -#if USE_CARBON_EVENTS if (!NILP (tip_frame) && XFRAME (tip_frame) == f) -#endif mac_handle_origin_change (f); #else { @@ -6224,7 +6217,7 @@ x_set_window_size (f, change_gravity, cols, rows) SizeWindow (FRAME_MAC_WINDOW (f), pixelwidth, pixelheight, 0); -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON if (!NILP (tip_frame) && f == XFRAME (tip_frame)) #endif mac_handle_size_change (f, pixelwidth, pixelheight); @@ -6363,7 +6356,7 @@ static void mac_handle_visibility_change (f) struct frame *f; { - WindowPtr wp = FRAME_MAC_WINDOW (f); + WindowRef wp = FRAME_MAC_WINDOW (f); int visible = 0, iconified = 0; struct input_event buf; @@ -6448,9 +6441,7 @@ x_make_frame_visible (f) kWindowCascadeOnParentWindowScreen #endif ); -#if USE_CARBON_EVENTS if (!NILP (tip_frame) && f == XFRAME (tip_frame)) -#endif mac_handle_origin_change (f); } else @@ -6541,7 +6532,7 @@ x_make_frame_invisible (f) UNBLOCK_INPUT; -#if !USE_CARBON_EVENTS +#if !TARGET_API_MAC_CARBON mac_handle_visibility_change (f); #endif } @@ -6580,7 +6571,7 @@ x_iconify_frame (f) if (err != noErr) error ("Can't notify window manager of iconification"); -#if !USE_CARBON_EVENTS +#if !TARGET_API_MAC_CARBON mac_handle_visibility_change (f); #endif } @@ -6593,7 +6584,7 @@ x_free_frame_resources (f) struct frame *f; { struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f); - WindowPtr wp = FRAME_MAC_WINDOW (f); + WindowRef wp = FRAME_MAC_WINDOW (f); BLOCK_INPUT; @@ -8853,7 +8844,7 @@ Lisp_Object Vmac_function_modifier; a three button mouse */ Lisp_Object Vmac_emulate_three_button_mouse; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON /* Non-zero if the mouse wheel button (i.e. button 4) should map to mouse-2, instead of mouse-3. */ int mac_wheel_button_is_mouse_2; @@ -8878,7 +8869,7 @@ static int mac_screen_config_changed = 0; Point saved_menu_event_location; /* Apple Events */ -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON static Lisp_Object Qhi_command; #ifdef MAC_OSX extern Lisp_Object Qwindow; @@ -8913,9 +8904,9 @@ extern OSErr install_drag_handler P_ ((WindowRef)); extern void remove_drag_handler P_ ((WindowRef)); /* Showing help echo string during menu tracking */ -extern OSStatus install_menu_target_item_handler P_ ((WindowPtr)); +extern OSStatus install_menu_target_item_handler P_ ((WindowRef)); -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON #ifdef MAC_OSX extern void init_service_handler (); static Lisp_Object Qservice, Qpaste, Qperform; @@ -8925,7 +8916,7 @@ static Lisp_Object Qservice, Qpaste, Qperform; static pascal OSStatus mac_handle_window_event (EventHandlerCallRef, EventRef, void *); #endif -OSStatus install_window_handler (WindowPtr); +OSStatus install_window_handler (WindowRef); extern void init_emacs_passwd_dir (); extern int emacs_main (int, char **, char **); @@ -9009,7 +9000,7 @@ static const unsigned char fn_keycode_to_keycode_table[] = { #endif /* MAC_OSX */ static int -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON mac_to_emacs_modifiers (UInt32 mods) #else mac_to_emacs_modifiers (EventModifiers mods) @@ -9118,7 +9109,7 @@ mac_quit_char_key_p (modifiers, key_code) } #endif -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON /* Obtains the event modifiers from the event ref and then calls mac_to_emacs_modifiers. */ static int @@ -9267,7 +9258,7 @@ static void do_get_menus (void) { Handle menubar_handle; - MenuHandle menu_handle; + MenuRef menu; menubar_handle = GetNewMBar (128); if(menubar_handle == NULL) @@ -9276,9 +9267,9 @@ do_get_menus (void) DrawMenuBar (); #if !TARGET_API_MAC_CARBON - menu_handle = GetMenuHandle (M_APPLE); - if(menu_handle != NULL) - AppendResMenu (menu_handle,'DRVR'); + menu = GetMenuRef (M_APPLE); + if (menu != NULL) + AppendResMenu (menu, 'DRVR'); else abort (); #endif @@ -9327,7 +9318,7 @@ do_check_ram_size (void) #endif /* MAC_OS8 */ static void -do_window_update (WindowPtr win) +do_window_update (WindowRef win) { struct frame *f = mac_window_to_frame (win); @@ -9372,7 +9363,7 @@ do_window_update (WindowPtr win) } static int -is_emacs_window (WindowPtr win) +is_emacs_window (WindowRef win) { Lisp_Object tail, frame; @@ -9485,7 +9476,7 @@ do_apple_menu (SInt16 menu_item) NoteAlert (ABOUT_ALERT_ID, NULL); else { - GetMenuItemText (GetMenuHandle (M_APPLE), menu_item, item_name); + GetMenuItemText (GetMenuRef (M_APPLE), menu_item, item_name); da_driver_refnum = OpenDeskAcc (item_name); } } @@ -9496,7 +9487,7 @@ do_apple_menu (SInt16 menu_item) static void do_grow_window (w, e) - WindowPtr w; + WindowRef w; const EventRecord *e; { Rect limit_rect; @@ -9548,7 +9539,7 @@ mac_get_ideal_size (f) struct frame *f; { struct mac_display_info *dpyinfo = FRAME_MAC_DISPLAY_INFO (f); - WindowPtr w = FRAME_MAC_WINDOW (f); + WindowRef w = FRAME_MAC_WINDOW (f); Point ideal_size; Rect standard_rect; int height, width, columns, rows; @@ -9574,7 +9565,7 @@ mac_get_ideal_size (f) wide (DEFAULT_NUM_COLS) and as tall as will fit on the screen. */ static void -do_zoom_window (WindowPtr w, int zoom_in_or_out) +do_zoom_window (WindowRef w, int zoom_in_or_out) { Rect zoom_rect, port_rect; int width, height; @@ -9637,13 +9628,9 @@ do_zoom_window (WindowPtr w, int zoom_in_or_out) SetPort (save_port); #endif /* not TARGET_API_MAC_CARBON */ -#if !USE_CARBON_EVENTS +#if !TARGET_API_MAC_CARBON /* retrieve window size and update application values */ -#if TARGET_API_MAC_CARBON - GetWindowPortBounds (w, &port_rect); -#else port_rect = w->portRect; -#endif height = port_rect.bottom - port_rect.top; width = port_rect.right - port_rect.left; @@ -9730,9 +9717,7 @@ mac_store_drag_event (window, mouse_pos, modifiers, desc) buf.arg = mac_aedesc_to_lisp (desc); kbd_buffer_store_event (&buf); } -#endif -#if USE_CARBON_EVENTS static pascal OSStatus mac_handle_command_event (next_handler, event, data) EventHandlerCallRef next_handler; @@ -9785,14 +9770,14 @@ mac_handle_window_event (next_handler, event, data) EventRef event; void *data; { - WindowPtr wp; + WindowRef wp; OSStatus result, err; struct frame *f; UInt32 attributes; XSizeHints *size_hints; err = GetEventParameter (event, kEventParamDirectObject, typeWindowRef, - NULL, sizeof (WindowPtr), NULL, &wp); + NULL, sizeof (WindowRef), NULL, &wp); if (err != noErr) return eventNotHandledErr; @@ -9981,7 +9966,7 @@ mac_handle_mouse_event (next_handler, event, data) { case kEventMouseWheelMoved: { - WindowPtr wp; + WindowRef wp; struct frame *f; EventMouseWheelAxis axis; SInt32 delta; @@ -10321,15 +10306,15 @@ mac_store_service_event (event) return err; } #endif /* MAC_OSX */ -#endif /* USE_CARBON_EVENTS */ +#endif /* TARGET_API_MAC_CARBON */ OSStatus install_window_handler (window) - WindowPtr window; + WindowRef window; { OSStatus err = noErr; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON static const EventTypeSpec specs_window[] = {{kEventClassWindow, kEventWindowUpdate}, {kEventClassWindow, kEventWindowGetIdealSize}, @@ -10409,7 +10394,7 @@ install_window_handler (window) void remove_window_handler (window) - WindowPtr window; + WindowRef window; { remove_drag_handler (window); } @@ -10580,7 +10565,7 @@ main (void) } #endif -#if !USE_CARBON_EVENTS +#if !TARGET_API_MAC_CARBON static RgnHandle mouse_region = NULL; Boolean @@ -10617,7 +10602,7 @@ mac_wait_next_event (er, sleep_time, dequeue) er_buf.what = nullEvent; return true; } -#endif /* not USE_CARBON_EVENTS */ +#endif /* not TARGET_API_MAC_CARBON */ #if TARGET_API_MAC_CARBON OSStatus @@ -10700,7 +10685,7 @@ XTread_socket (sd, expected, hold_quit) { struct input_event inev; int count = 0; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON EventRef eventRef; EventTargetRef toolbox_dispatcher; #endif @@ -10721,7 +10706,7 @@ XTread_socket (sd, expected, hold_quit) ++handling_signal; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON toolbox_dispatcher = GetEventDispatcherTarget (); while ( @@ -10730,9 +10715,9 @@ XTread_socket (sd, expected, hold_quit) #endif !ReceiveNextEvent (0, NULL, kEventDurationNoWait, kEventRemoveFromQueue, &eventRef)) -#else /* !USE_CARBON_EVENTS */ +#else /* !TARGET_API_MAC_CARBON */ while (mac_wait_next_event (&er, 0, true)) -#endif /* !USE_CARBON_EVENTS */ +#endif /* !TARGET_API_MAC_CARBON */ { int do_help = 0; struct frame *f; @@ -10742,13 +10727,13 @@ XTread_socket (sd, expected, hold_quit) inev.kind = NO_EVENT; inev.arg = Qnil; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON timestamp = GetEventTime (eventRef) / kEventDurationMillisecond; #else timestamp = er.when * (1000 / 60); /* ticks to milliseconds */ #endif -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON /* Handle new events */ if (!mac_convert_event_ref (eventRef, &er)) { @@ -10765,17 +10750,17 @@ XTread_socket (sd, expected, hold_quit) read_socket_inev = NULL; } else -#endif /* USE_CARBON_EVENTS */ +#endif /* TARGET_API_MAC_CARBON */ switch (er.what) { case mouseDown: case mouseUp: { - WindowPtr window_ptr; + WindowRef window_ptr; ControlPartCode part_code; int tool_bar_p = 0; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON /* This is needed to send mouse events like aqua window buttons to the correct handler. */ if (SendEventToEventTarget (eventRef, toolbox_dispatcher) @@ -10827,7 +10812,7 @@ XTread_socket (sd, expected, hold_quit) else { ControlPartCode control_part_code; - ControlHandle ch; + ControlRef ch; Point mouse_loc = er.where; #ifdef MAC_OSX ControlKind control_kind; @@ -10850,7 +10835,7 @@ XTread_socket (sd, expected, hold_quit) &ch); #endif -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON inev.code = mac_get_mouse_btn (eventRef); inev.modifiers = mac_event_to_emacs_modifiers (eventRef); #else @@ -10986,16 +10971,14 @@ XTread_socket (sd, expected, hold_quit) DragWindow (window_ptr, er.where, NULL); #else /* not TARGET_API_MAC_CARBON */ DragWindow (window_ptr, er.where, &qd.screenBits.bounds); -#endif /* not TARGET_API_MAC_CARBON */ /* Update the frame parameters. */ -#if !USE_CARBON_EVENTS { struct frame *f = mac_window_to_frame (window_ptr); if (f && !f->async_iconified) mac_handle_origin_change (f); } -#endif +#endif /* not TARGET_API_MAC_CARBON */ break; case inGoAway: @@ -11026,17 +11009,17 @@ XTread_socket (sd, expected, hold_quit) break; case updateEvt: -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON if (SendEventToEventTarget (eventRef, toolbox_dispatcher) != eventNotHandledErr) break; #else - do_window_update ((WindowPtr) er.message); + do_window_update ((WindowRef) er.message); #endif break; case osEvt: -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON if (SendEventToEventTarget (eventRef, toolbox_dispatcher) != eventNotHandledErr) break; @@ -11053,7 +11036,7 @@ XTread_socket (sd, expected, hold_quit) break; case mouseMovedMessage: -#if !USE_CARBON_EVENTS +#if !TARGET_API_MAC_CARBON SetRectRgn (mouse_region, er.where.h, er.where.v, er.where.h + 1, er.where.v + 1); #endif @@ -11074,7 +11057,7 @@ XTread_socket (sd, expected, hold_quit) if (f) { - WindowPtr wp = FRAME_MAC_WINDOW (f); + WindowRef wp = FRAME_MAC_WINDOW (f); Point mouse_pos = er.where; SetPortWindowPort (wp); @@ -11133,9 +11116,9 @@ XTread_socket (sd, expected, hold_quit) case activateEvt: { - WindowPtr window_ptr = (WindowPtr) er.message; + WindowRef window_ptr = (WindowRef) er.message; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON if (SendEventToEventTarget (eventRef, toolbox_dispatcher) != eventNotHandledErr) break; @@ -11215,14 +11198,14 @@ XTread_socket (sd, expected, hold_quit) SInt16 current_key_script; UInt32 modifiers = er.modifiers, mapped_modifiers; -#if USE_CARBON_EVENTS && defined (MAC_OSX) +#ifdef MAC_OSX GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL, sizeof (UInt32), NULL, &modifiers); #endif mapped_modifiers = mac_mapped_modifiers (modifiers); -#if USE_CARBON_EVENTS && (defined (MAC_OSX) || USE_MAC_TSM) +#if defined (MAC_OSX) || USE_MAC_TSM /* When using Carbon Events, we need to pass raw keyboard events to the TSM ourselves. If TSM handles it, it will pass back noErr, otherwise it will pass back @@ -11430,7 +11413,7 @@ XTread_socket (sd, expected, hold_quit) default: break; } -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON ReleaseEvent (eventRef); #endif @@ -11482,7 +11465,7 @@ XTread_socket (sd, expected, hold_quit) mac_screen_config_changed = 0; } -#if !USE_CARBON_EVENTS +#if !TARGET_API_MAC_CARBON /* Check which frames are still visible. We do this here because there doesn't seem to be any direct notification from the Window Manager that the visibility of a window has changed (at least, @@ -11587,7 +11570,7 @@ make_mac_terminal_frame (struct frame *f) if (!(FRAME_MAC_WINDOW (f) = NewCWindow (NULL, &r, "\p", true, dBoxProc, - (WindowPtr) -1, 1, (long) f->output_data.mac))) + (WindowRef) -1, 1, (long) f->output_data.mac))) abort (); /* so that update events can find this mac_output struct */ f->output_data.mac->mFP = f; /* point back to emacs frame */ @@ -11777,7 +11760,6 @@ init_menu_bar () &menu, &menu_index); if (err == noErr) SetMenuItemCommandKey (menu, menu_index, false, 0); -#if USE_CARBON_EVENTS EnableMenuCommand (NULL, kHICommandPreferences); err = GetIndMenuItemWithCommandID (NULL, kHICommandPreferences, 1, &menu, &menu_index); @@ -11789,10 +11771,9 @@ init_menu_bar () InsertMenuItemTextWithCFString (menu, CFSTR ("About Emacs"), 0, 0, kHICommandAbout); } -#endif /* USE_CARBON_EVENTS */ #else /* !MAC_OSX */ -#if USE_CARBON_EVENTS - SetMenuItemCommandID (GetMenuHandle (M_APPLE), I_ABOUT, kHICommandAbout); +#if TARGET_API_MAC_CARBON + SetMenuItemCommandID (GetMenuRef (M_APPLE), I_ABOUT, kHICommandAbout); #endif #endif } @@ -11899,7 +11880,6 @@ mac_initialize () #if TARGET_API_MAC_CARBON -#if USE_CARBON_EVENTS #ifdef MAC_OSX init_service_handler (); #endif /* MAC_OSX */ @@ -11911,7 +11891,6 @@ mac_initialize () #if USE_MAC_TSM init_tsm (); #endif -#endif /* USE_CARBON_EVENTS */ #ifdef MAC_OSX init_coercion_handler (); @@ -11961,7 +11940,7 @@ syms_of_macterm () Fput (Qhyper, Qmodifier_value, make_number (hyper_modifier)); Fput (Qsuper, Qmodifier_value, make_number (super_modifier)); -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON Qhi_command = intern ("hi-command"); staticpro (&Qhi_command); #ifdef MAC_OSX Qtoolbar_switch_mode = intern ("toolbar-switch-mode"); @@ -12086,7 +12065,7 @@ The symbol `reverse' means that the option-key will register for mouse-3 and the command-key will register for mouse-2. */); Vmac_emulate_three_button_mouse = Qnil; -#if USE_CARBON_EVENTS +#if TARGET_API_MAC_CARBON DEFVAR_BOOL ("mac-wheel-button-is-mouse-2", &mac_wheel_button_is_mouse_2, doc: /* *Non-nil if the wheel button is mouse-2 and the right click mouse-3. Otherwise, the right click will be treated as mouse-2 and the wheel From 7eb0d72732f4d52beb1f60f6d29152575a07696c Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Wed, 6 Jun 2007 08:33:32 +0000 Subject: [PATCH 112/276] (struct scroll_bar): Rename member control_handle_low and control_handle_high to control_ref_low and control_ref_high. All uses changed. (SCROLL_BAR_CONTROL_REF, SET_SCROLL_BAR_CONTROL_REF): Rename from SCROLL_BAR_CONTROL_HANDLE and SET_SCROLL_BAR_CONTROL_HANDLE, respectively. All uses changed. (XCreatePixmap, XCreatePixmapFromBitmapData, XSetWindowBackground) (install_window_handler, remove_window_handler): Replace WindowPtr with WindowRef in externs. --- src/ChangeLog | 27 +++++++++++++++++++++++++++ src/macterm.h | 26 +++++++++++++------------- 2 files changed, 40 insertions(+), 13 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index e1e8867e882..49168498e9f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,30 @@ +2007-06-06 YAMAMOTO Mitsuharu + + * macfns.c (mac_window): Replace WindowPtr with WindowRef. + + * macgui.h: Replace WindowPtr with WindowRef. + + * macmenu.c: Replace MenuHandle and GetMenuHandle with MenuRef and + GetMenuRef, respectively. Replace WindowPtr with WindowRef. + Replace ControlHandle with ControlRef. + (install_menu_quit_handler): Rename arg MENU_HANDLE to ROOT_MENU. + + * macterm.c: Replace MenuHandle and GetMenuHandle with MenuRef and + GetMenuRef, respectively. Replace WindowPtr with WindowRef. + Replace ControlHandle with ControlRef. + (USE_CARBON_EVENTS): Remove. Use TARGET_API_MAC_CARBON instead. + [MAC_OS8] (do_get_menus): Rename variable `menu_handle' to `menu'. + + * macterm.h (struct scroll_bar): Rename member control_handle_low + and control_handle_high to control_ref_low and control_ref_high. + All uses changed. + (SCROLL_BAR_CONTROL_REF, SET_SCROLL_BAR_CONTROL_REF): Rename from + SCROLL_BAR_CONTROL_HANDLE and SET_SCROLL_BAR_CONTROL_HANDLE, + respectively. All uses changed. + (XCreatePixmap, XCreatePixmapFromBitmapData, XSetWindowBackground) + (install_window_handler, remove_window_handler): Replace WindowPtr + with WindowRef in externs. + 2007-06-05 Juanma Barranquero * xfaces.c (Finternal_lisp_face_p): Signal error for face alias loops. diff --git a/src/macterm.h b/src/macterm.h index b3826c5e7f7..789089b0bc9 100644 --- a/src/macterm.h +++ b/src/macterm.h @@ -406,9 +406,9 @@ struct scroll_bar { /* The next and previous in the chain of scroll bars in this frame. */ Lisp_Object next, prev; - /* The Mac control handle of this scroll bar. Since this is a + /* The Mac control reference of this scroll bar. Since this is a pointer value, we store it split into two Lisp integers. */ - Lisp_Object control_handle_low, control_handle_high; + Lisp_Object control_ref_low, control_ref_high; /* The position and size of the scroll bar in pixels, relative to the frame. */ @@ -466,14 +466,14 @@ struct scroll_bar { /* Extract the Mac control handle of the scroll bar from a struct scroll_bar. */ -#define SCROLL_BAR_CONTROL_HANDLE(ptr) \ - ((ControlHandle) SCROLL_BAR_PACK ((ptr)->control_handle_low, \ - (ptr)->control_handle_high)) +#define SCROLL_BAR_CONTROL_REF(ptr) \ + ((ControlRef) SCROLL_BAR_PACK ((ptr)->control_ref_low, \ + (ptr)->control_ref_high)) /* Store a Mac control handle in a struct scroll_bar. */ -#define SET_SCROLL_BAR_CONTROL_HANDLE(ptr, handle) \ - (SCROLL_BAR_UNPACK ((ptr)->control_handle_low, \ - (ptr)->control_handle_high, (unsigned long) (handle))) +#define SET_SCROLL_BAR_CONTROL_REF(ptr, ref) \ + (SCROLL_BAR_UNPACK ((ptr)->control_ref_low, \ + (ptr)->control_ref_high, (unsigned long) (ref))) /* Return the inside width of a vertical scroll bar, given the outside width. */ @@ -615,9 +615,9 @@ extern void x_destroy_window P_ ((struct frame *)); extern void x_wm_set_size_hint P_ ((struct frame *, long, int)); extern void x_delete_display P_ ((struct x_display_info *)); extern void mac_initialize P_ ((void)); -extern Pixmap XCreatePixmap P_ ((Display *, WindowPtr, unsigned int, +extern Pixmap XCreatePixmap P_ ((Display *, WindowRef, unsigned int, unsigned int, unsigned int)); -extern Pixmap XCreatePixmapFromBitmapData P_ ((Display *, WindowPtr, char *, +extern Pixmap XCreatePixmapFromBitmapData P_ ((Display *, WindowRef, char *, unsigned int, unsigned int, unsigned long, unsigned long, unsigned int)); @@ -626,7 +626,7 @@ extern GC XCreateGC P_ ((Display *, void *, unsigned long, XGCValues *)); extern void XFreeGC P_ ((Display *, GC)); extern void XSetForeground P_ ((Display *, GC, unsigned long)); extern void XSetBackground P_ ((Display *, GC, unsigned long)); -extern void XSetWindowBackground P_ ((Display *, WindowPtr, unsigned long)); +extern void XSetWindowBackground P_ ((Display *, WindowRef, unsigned long)); extern void XDrawLine P_ ((Display *, Pixmap, GC, int, int, int, int)); extern void mac_clear_area P_ ((struct frame *, int, int, unsigned int, unsigned int)); @@ -634,8 +634,8 @@ extern void mac_unload_font P_ ((struct mac_display_info *, XFontStruct *)); extern int mac_font_panel_visible_p P_ ((void)); extern OSStatus mac_show_hide_font_panel P_ ((void)); extern OSStatus mac_set_font_info_for_selection P_ ((struct frame *, int, int)); -extern OSStatus install_window_handler P_ ((WindowPtr)); -extern void remove_window_handler P_ ((WindowPtr)); +extern OSStatus install_window_handler P_ ((WindowRef)); +extern void remove_window_handler P_ ((WindowRef)); extern OSStatus mac_post_mouse_moved_event P_ ((void)); #if !TARGET_API_MAC_CARBON extern void do_apple_menu P_ ((SInt16)); From 48a2e53fc42606d087955371d5a23d40b36514d6 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 09:12:01 +0000 Subject: [PATCH 113/276] (toggle-enable-multibyte-characters, sort-coding-systems, search-unencodable-char): Doc fixes. (coding-system-change-eol-conversion, set-default-coding-systems, prefer-coding-system, find-multibyte-characters, princ-list, leim-list-entry-regexp, set-input-method, locale-language-names, input-method-exit-on-first-char, exit-language-environment-hook, locale-charset-language-names): Fix typos in docstrings. --- lisp/international/mule-cmds.el | 48 ++++++++++++++++----------------- 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 214ab791261..9def8bd0441 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1,4 +1,4 @@ -;;; mule-cmds.el --- commands for mulitilingual environment -*-coding: iso-2022-7bit -*- +;;; mule-cmds.el --- commands for multilingual environment -*-coding: iso-2022-7bit -*- ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007 Free Software Foundation, Inc. @@ -203,7 +203,7 @@ "`\\(\\sw\\(\\sw\\|\\s_\\)+\\)'"))) (defun coding-system-change-eol-conversion (coding-system eol-type) - "Return a coding system which differs from CODING-SYSTEM in eol conversion. + "Return a coding system which differs from CODING-SYSTEM in EOL conversion. The returned coding system converts end-of-line by EOL-TYPE but text as the same way as CODING-SYSTEM. EOL-TYPE should be `unix', `dos', `mac', or nil. @@ -253,8 +253,8 @@ the buffer; it only changes the way those bytes are interpreted. In general, therefore, this command *changes* the sequence of characters that the current buffer contains. -We suggest you avoid using use this command unless you know what you -are doing. If you use it by mistake, and the buffer is now displayed +We suggest you avoid using this command unless you know what you are +doing. If you use it by mistake, and the buffer is now displayed wrong, use this command again to toggle back to the right mode." (interactive "P") (let ((new-flag @@ -327,10 +327,10 @@ This sets the following coding systems: o default coding system for subprocess I/O This also sets the following values: o default value used as `file-name-coding-system' for converting file names - if CODING-SYSTEM is ASCII-compatible. + if CODING-SYSTEM is ASCII-compatible o default value for the command `set-terminal-coding-system' (not on MSDOS) o default value for the command `set-keyboard-coding-system' - if CODING-SYSTEM is ASCII-compatible.." + if CODING-SYSTEM is ASCII-compatible" (check-coding-system coding-system) (setq-default buffer-file-coding-system coding-system) (if (fboundp 'ucs-set-table-for-input) @@ -372,7 +372,7 @@ This also sets the following coding systems: o coding system of a newly created buffer o default coding system for subprocess I/O This also sets the following values: - o default value used as `file-name-coding-system' for converting file names. + o default value used as `file-name-coding-system' for converting file names o default value for the command `set-terminal-coding-system' (not on MSDOS) o default value for the command `set-keyboard-coding-system' @@ -423,16 +423,16 @@ The function `sort-coding-systems' use it.") (defun sort-coding-systems (codings) "Sort coding system list CODINGS by a priority of each coding system. -Returns the sorted list. CODINGS is modified by side effects. +Return the sorted list. CODINGS is modified by side effects. If a coding system is most preferred, it has the highest priority. -Otherwise, a coding system corresponds to some MIME charset has higher -priorities. Among them, a coding system included in `coding-system' -key of the current language environment has higher priorities. See -also the documentation of `language-info-alist'. +Otherwise, coding systems that correspond to MIME charsets have +higher priorities. Among them, a coding system included in the +`coding-system' key of the current language environment has higher +priority. See also the documentation of `language-info-alist'. If the variable `sort-coding-systems-predicate' (which see) is -non-nil, it is used to sort CODINGS in the different way than above." +non-nil, it is used to sort CODINGS instead." (if sort-coding-systems-predicate (sort codings sort-coding-systems-predicate) (let* ((from-categories (mapcar #'(lambda (x) (symbol-value x)) @@ -566,7 +566,7 @@ where COUNT is a number of characters, CHARs are the characters found from the character set. Optional 3rd arg MAXCOUNT limits how many CHARs are put in the above list. -Optional 4th arg EXCLUDE is a list of character sets to be ignored. +Optional 4th arg EXCLUDES is a list of character sets to be ignored. For invalid characters, CHARs are actually strings." (let ((chars nil) @@ -616,8 +616,8 @@ It asks which coding system to check. If such a character is found, set point after that character. Otherwise, don't move point. -When called from a program, the value is a position of the found character, -or nil if all characters are encodable." +When called from a program, the value is the position of the unencodable +character found, or nil if all characters are encodable." (interactive (list (let ((default (or buffer-file-coding-system 'us-ascii))) (read-coding-system @@ -1295,7 +1295,7 @@ Emacs loads this file at startup time.") (defvar leim-list-entry-regexp "^(register-input-method" "Regexp matching head of each entry in LEIM list file. -See also the variable `leim-list-header'") +See also the variable `leim-list-header'.") (defvar update-leim-list-functions '(quail-update-leim-list-file) @@ -1479,7 +1479,7 @@ When called interactively, the optional arg INTERACTIVE is non-nil, which marks the variable `default-input-method' as set for Custom buffers. To deactivate the input method interactively, use \\[toggle-input-method]. -To deactivate it programmatically, use \\[inactivate-input-method]." +To deactivate it programmatically, use `inactivate-input-method'." (interactive (let* ((default (or (car input-method-history) default-input-method))) (list (read-input-method-name @@ -1648,7 +1648,7 @@ just inactivated.") "This flag controls when an input method returns. Usually, the input method does not return while there's a possibility that it may find a different translation if a user types another key. -But, it this flag is non-nil, the input method returns as soon as +But, if this flag is non-nil, the input method returns as soon as the current key sequence gets long enough to have some valid translation.") (defvar input-method-use-echo-area nil @@ -1680,7 +1680,7 @@ When this hook is run, the variable `current-language-environment' is still bound to the language environment being exited. This hook is mainly used for canceling the effect of -`set-language-environment-hook' (which-see).") +`set-language-environment-hook' (which see).") (put 'setup-specified-language-environment 'apropos-inhibit t) @@ -2015,7 +2015,7 @@ specifies the character set for the major languages of Western Europe." (set-display-table-and-terminal-coding-system language-name)) (defsubst princ-list (&rest args) - "Print all arguments with `princ', then print \"\n\"." + "Print all arguments with `princ', then print \"\\n\"." (while args (princ (car args)) (setq args (cdr args))) (princ "\n")) @@ -2345,10 +2345,10 @@ specifies the character set for the major languages of Western Europe." ("wen" . "Latin-2") ; MS Windows Upper Sorbian )) "Alist of locale regexps vs the corresponding languages and coding systems. -Each element has these form: +Each element has this form: \(LOCALE-REGEXP LANG-ENV CODING-SYSTEM) The first element whose LOCALE-REGEXP matches the start of a -downcased locale specifies the LANG-ENV \(language environtment) +downcased locale specifies the LANG-ENV \(language environment) and CODING-SYSTEM corresponding to that locale. If there is no appropriate language environment, the element may have this form: \(LOCALE-REGEXP . LANG-ENV) @@ -2372,7 +2372,7 @@ specific encoding such as \"Latin-1\" and \"UTF-8\".") The first element whose locale regexp matches the start of a downcased locale specifies the language name whose charset corresponds to that locale. This language name is used if the locale is not listed in -`locale-language-names'") +`locale-language-names'.") (defconst locale-preferred-coding-systems (purecopy From 2efed646b9ac4b85391ae8858da32100acabd690 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 09:26:32 +0000 Subject: [PATCH 114/276] *** empty log message *** --- lisp/ChangeLog | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 695db5c9678..6eb700ea016 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2007-06-06 Juanma Barranquero + + * international/mule-cmds.el (toggle-enable-multibyte-characters) + (sort-coding-systems, search-unencodable-char): Doc fixes. + (coding-system-change-eol-conversion, set-default-coding-systems) + (prefer-coding-system, find-multibyte-characters, princ-list) + (leim-list-entry-regexp, set-input-method, locale-language-names) + (input-method-exit-on-first-char, exit-language-environment-hook) + (locale-charset-language-names): Fix typos in docstrings. + 2007-06-05 Juanma Barranquero * bs.el (bs-cycle-previous): Don't modify the cycle list until From 363f5ac0178dc44a171b131dd5e5a369784d4665 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:03:25 +0000 Subject: [PATCH 115/276] (pgg-sign-region, pgg-sign): Fix typos. --- lisp/pgg.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/pgg.el b/lisp/pgg.el index f6a5a96d2b8..6b2b8ef376b 100644 --- a/lisp/pgg.el +++ b/lisp/pgg.el @@ -416,7 +416,7 @@ If the optional 3rd argument CLEARTEXT is non-nil, it does not create a detached signature. If this function is called interactively, CLEARTEXT is enabled -and the the output is displayed. +and the output is displayed. If optional PASSPHRASE is not specified, it will be obtained from the passphrase cache or user." @@ -441,7 +441,7 @@ If optional arguments START and END are specified, only sign data within the region. If this function is called interactively, CLEARTEXT is enabled -and the the output is displayed. +and the output is displayed. If optional PASSPHRASE is not specified, it will be obtained from the passphrase cache or user." From e0a4a6db9cf1c1e99df19a0ba8a76f31d61911cd Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:04:33 +0000 Subject: [PATCH 116/276] (ses-call-printer): Fix typo. --- lisp/ses.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ses.el b/lisp/ses.el index 2eec1b68e47..4f51c803de1 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -878,9 +878,9 @@ preceding cell has spilled over." (defun ses-call-printer (printer &optional value) "Invokes PRINTER (a string or parenthesized string or function-symbol or -lambda of one argument) on VALUE. Result is the the printed cell as a -string. The variable `ses-call-printer-return' is set to t if the printer -used parenthesis to request left-justification, or the error-signal if the +lambda of one argument) on VALUE. Result is the printed cell as a string. +The variable `ses-call-printer-return' is set to t if the printer used +parenthesis to request left-justification, or the error-signal if the printer signaled one (and \"%s\" is used as the default printer), else nil." (setq ses-call-printer-return nil) (unless value From e0c89b362f60617bf457b678b277e8b6fd990bbf Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:05:46 +0000 Subject: [PATCH 117/276] (icalendar--diarytime-to-isotime): Fix typo in docstring. --- lisp/calendar/icalendar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 7bbd12a436e..6238a7f1ea9 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -678,7 +678,7 @@ takes care of european-style." nil))) (defun icalendar--diarytime-to-isotime (timestring ampmstring) - "Convert a a time like 9:30pm to an iso-conform string like T213000. + "Convert a time like 9:30pm to an iso-conform string like T213000. In this example the TIMESTRING would be \"9:30\" and the AMPMSTRING would be \"pm\"." (if timestring From 12cd5d567ecbf8f4617d6a4eca42fb4b6d525bdb Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jun 2007 15:12:42 +0000 Subject: [PATCH 118/276] *** empty log message *** --- lisp/ChangeLog | 110 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 110 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69d2349235c..249d6108e7a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,113 @@ +2007-06-06 Carsten Dominik + + * textmodes/org.el: + (org-export-region-as-html, org-replace-region-by-html) + (org-number-to-letters, org-table-fedit-finish) + (org-normalize-color, org-table-fedit-ref-right) + (org-date-to-gregorian, org-table-fedit-move) + (org-table-convert-refs-to-rc, org-calendar-holiday) + (org-table-fedit-toggle-ref-type, org-write-agenda) + (org-colgroup-info-to-vline-list, org-agenda-todo-previousset) + (org-defkey, org-encode-for-stdout) + (org-indent-line-function, org-export-as-html-to-buffer) + (org-store-agenda-views, org-update-mode-line) + (org-find-if, org-delete-all) + (org-table-fedit-convert-buffer, org-emphasize) + (org-uniquify, org-table-fedit-lisp-indent) + (org-table-fedit-scroll, org-get-todo-sequence-head) + (org-table-fedit-scroll-down, org-table-fedit-line-down) + (org-table-fedit-ref-left, org-agenda-export-csv-mapper) + (org-table-fedit-toggle-coordinates, org-dvipng-color) + (org-table-fedit-line-up, org-table-fedit-ref-down) + (org-table-formula-from-user, org-mode-flyspell-verify) + (org-cycle-show-empty-lines, org-ctrl-c-ret) + (org-table-formula-to-user, org-diary-to-ical-string) + (orgtbl-export, org-table-fedit-post-command) + (org-closed-in-range, org-shiftcontrolright) + (org-table-convert-refs-to-an, org-table-hline-and-move) + (org-table-formula-less-p, org-format-table-ascii) + (org-agenda-get-sexps, org-shift-refpart) + (org-diary-sexp-entry, org-time-string-to-absolute) + (org-table-show-reference, org-letters-to-number) + (org-fix-agenda-info, org-table-fedit-ref-up) + (org-table-fedit-shift-reference, org-table-fedit-abort) + (org-closest-date, org-shiftcontrolleft) + (org-at-heading-or-item-p, org-rematch-and-replace) + (org-agenda-todo-nextset, org-export-grab-title-from-buffer): New + function. + (org-table-edit-scroll-down, org-finish-edit-formulas) + (org-table-edit-next-field, org-abort-edit-formulas) + (org-font-lock-level, org-export-find-first-heading-line) + (org-table-edit-line-down, org-table-edit-backward-field) + (org-edit-formula-lisp-indent, org-table-edit-move) + (org-check-log-option, org-this-word) + (org-table-edit-line-up, org-table-edit-formulas-post-command) + (org-agenda-file-to-end, org-expand-file-name) + (org-fake-empty-table-line, org-table-edit-scroll) + (org-toggle-log-option, org-show-reference): Function removed. + (org-inhibit-invisibility, org-table-formula-make-cmp-string): New + defsubst. + (org-unmodified, org-batch-store-agenda-views) + (org-batch-agenda-csv): New macro. + (org-agenda-export): New customization group. + (org-agenda-skip-deadline-if-done, org-agenda-remove-tags) + (org-highest-priority, org-agenda-exporter-settings) + (org-log-done-with-time, org-replace-disputed-keys) + (org-format-latex-header, org-export-table-header-tags) + (org-cycle-separator-lines, org-export-table-data-tags) + (org-icalendar-include-sexps) + (org-empty-line-terminates-plain-lists) + (org-log-repeat, org-special-ctrl-a) + (org-table-use-standard-references, org-disputed-keys) + (org-export-skip-text-before-1st-heading, org-agenda-with-colors) + (org-agenda-export-html-style): New option. + (org-allow-auto-repeat, org-agenda-remove-tags-when-in-prefix) + (org-CUA-compatible): Option removed. + (org-agenda-structure, org-sexp-date): New face. + (org-todo-keywords-for-agenda, org-not-done-keywords) + (org-planning-or-clock-line-re, org-agenda-name) + (org-table-colgroup-info, org-todo-sets) + (constants-unit-system, org-clock-mode-line-entry) + (org-mode-line-timer, org-table-current-begin-pos) + (org-todo-keywords-1, org-mode-line-string) + (org-table-clean-did-remove-column, org-table-fedit-map) + (org-clock-heading, org-table-buffer-is-an) + (org-agenda-info, org-done-keywords) + (org-done-keywords-for-agenda, org-todo-heads) + (org-todo-kwd-alist, org-clock-start-time): New variable. + (org-todo-kwd-priority-p, org-edit-formulas-map) + (org-repeat-re, org-todo-kwd-max-priority) + (org-version, org-done-string) + (org-table-clean-did-remove-column-1, org-disputed-keys): Variable + removed. + (org-table-translate-regexp, org-repeat-re, org-version): New + constant. + (org-ts-lengths): Constant removed. + (org-follow-gnus-link): Don't ask how many articles to read. + (org-export-find-first-export-line): Renamed from + `org-export-find-first-heading'. Use + `org-export-skip-text-before-1st-heading'. + (org-table-fedit-post-command): Renamed from + `org-table-edit-formulas-post-command'. + (org-table-fedit-finish): Renamed from `org-finish-edit-formulas'. + (org-table-fedit-abort): Renamed from `org-abort-edit-formulas'. + (org-table-fedit-lisp-indent): Renamed from + `org-edit-formula-lisp-indent'. + (org-table-show-reference): Renamed from `org-show-reference'. + (org-table-store-formulas): Use `org-table-formula-less-p'. + (org-table-edit-formulas): Position cursor to current field + equation. + (org-update-checkbox-count, org-hide-archived-subtrees) + (org-timestamp-up-day, org-timestamp-down-day) + (org-shiftmetaleft, org-shiftmetaright, org-shiftmetaup) + (org-shiftmetadown, org-metaleft, org-metaright, org-metaup) + (org-metadown, org-shiftup, org-shiftdown, org-shiftright) + (org-shiftleft, org-ctrl-c-ctrl-c, org-context): Let + `org-on-heading-p' also check for invisible heading. + (org-read-date): Match am/pm times. + (org-eval-in-calendar): Fix default date in prompt. + + 2007-06-05 Chong Yidong * files.el (auto-mode-alist): Separate "ChangeLog.1" and From a3fbe8c4e5d022d61e14ab6d73d045b2cf2b2074 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jun 2007 15:13:27 +0000 Subject: [PATCH 119/276] (org-export-region-as-html, org-replace-region-by-html) (org-number-to-letters, org-table-fedit-finish) (org-normalize-color, org-table-fedit-ref-right) (org-date-to-gregorian, org-table-fedit-move) (org-table-convert-refs-to-rc, org-calendar-holiday) (org-table-fedit-toggle-ref-type, org-write-agenda) (org-colgroup-info-to-vline-list, org-agenda-todo-previousset) (org-defkey, org-encode-for-stdout) (org-indent-line-function, org-export-as-html-to-buffer) (org-store-agenda-views, org-update-mode-line) (org-find-if, org-delete-all) (org-table-fedit-convert-buffer, org-emphasize) (org-uniquify, org-table-fedit-lisp-indent) (org-table-fedit-scroll, org-get-todo-sequence-head) (org-table-fedit-scroll-down, org-table-fedit-line-down) (org-table-fedit-ref-left, org-agenda-export-csv-mapper) (org-table-fedit-toggle-coordinates, org-dvipng-color) (org-table-fedit-line-up, org-table-fedit-ref-down) (org-table-formula-from-user, org-mode-flyspell-verify) (org-cycle-show-empty-lines, org-ctrl-c-ret) (org-table-formula-to-user, org-diary-to-ical-string) (orgtbl-export, org-table-fedit-post-command) (org-closed-in-range, org-shiftcontrolright) (org-table-convert-refs-to-an, org-table-hline-and-move) (org-table-formula-less-p, org-format-table-ascii) (org-agenda-get-sexps, org-shift-refpart) (org-diary-sexp-entry, org-time-string-to-absolute) (org-table-show-reference, org-letters-to-number) (org-fix-agenda-info, org-table-fedit-ref-up) (org-table-fedit-shift-reference, org-table-fedit-abort) (org-closest-date, org-shiftcontrolleft) (org-at-heading-or-item-p, org-rematch-and-replace) (org-agenda-todo-nextset, org-export-grab-title-from-buffer): New function. (org-table-edit-scroll-down, org-finish-edit-formulas) (org-table-edit-next-field, org-abort-edit-formulas) (org-font-lock-level, org-export-find-first-heading-line) (org-table-edit-line-down, org-table-edit-backward-field) (org-edit-formula-lisp-indent, org-table-edit-move) (org-check-log-option, org-this-word) (org-table-edit-line-up, org-table-edit-formulas-post-command) (org-agenda-file-to-end, org-expand-file-name) (org-fake-empty-table-line, org-table-edit-scroll) (org-toggle-log-option, org-show-reference): Function removed. (org-inhibit-invisibility, org-table-formula-make-cmp-string): New defsubst. (org-unmodified, org-batch-store-agenda-views) (org-batch-agenda-csv): New macro. (org-agenda-export): New customization group. (org-agenda-skip-deadline-if-done, org-agenda-remove-tags) (org-highest-priority, org-agenda-exporter-settings) (org-log-done-with-time, org-replace-disputed-keys) (org-format-latex-header, org-export-table-header-tags) (org-cycle-separator-lines, org-export-table-data-tags) (org-icalendar-include-sexps) (org-empty-line-terminates-plain-lists) (org-log-repeat, org-special-ctrl-a) (org-table-use-standard-references, org-disputed-keys) (org-export-skip-text-before-1st-heading, org-agenda-with-colors) (org-agenda-export-html-style): New option. (org-allow-auto-repeat, org-agenda-remove-tags-when-in-prefix) (org-CUA-compatible): Option removed. (org-agenda-structure, org-sexp-date): New face. (org-todo-keywords-for-agenda, org-not-done-keywords) (org-planning-or-clock-line-re, org-agenda-name) (org-table-colgroup-info, org-todo-sets) (constants-unit-system, org-clock-mode-line-entry) (org-mode-line-timer, org-table-current-begin-pos) (org-todo-keywords-1, org-mode-line-string) (org-table-clean-did-remove-column, org-table-fedit-map) (org-clock-heading, org-table-buffer-is-an) (org-agenda-info, org-done-keywords) (org-done-keywords-for-agenda, org-todo-heads) (org-todo-kwd-alist, org-clock-start-time): New variable. (org-todo-kwd-priority-p, org-edit-formulas-map) (org-repeat-re, org-todo-kwd-max-priority) (org-version, org-done-string) (org-table-clean-did-remove-column-1, org-disputed-keys): Variable removed. (org-table-translate-regexp, org-repeat-re, org-version): New constant. (org-ts-lengths): Constant removed. (org-follow-gnus-link): Don't ask how many articles to read. (org-export-find-first-export-line): Renamed from `org-export-find-first-heading'. Use `org-export-skip-text-before-1st-heading'. (org-table-fedit-post-command): Renamed from `org-table-edit-formulas-post-command'. (org-table-fedit-finish): Renamed from `org-finish-edit-formulas'. (org-table-fedit-abort): Renamed from `org-abort-edit-formulas'. (org-table-fedit-lisp-indent): Renamed from `org-edit-formula-lisp-indent'. (org-table-show-reference): Renamed from `org-show-reference'. (org-table-store-formulas): Use `org-table-formula-less-p'. (org-table-edit-formulas): Position cursor to current field equation. (org-update-checkbox-count, org-hide-archived-subtrees) (org-timestamp-up-day, org-timestamp-down-day) (org-shiftmetaleft, org-shiftmetaright, org-shiftmetaup) (org-shiftmetadown, org-metaleft, org-metaright, org-metaup) (org-metadown, org-shiftup, org-shiftdown, org-shiftright) (org-shiftleft, org-ctrl-c-ctrl-c, org-context): Let `org-on-heading-p' also check for invisible heading. (org-read-date): Match am/pm times. (org-eval-in-calendar): Fix default date in prompt. --- lisp/textmodes/org.el | 4476 +++++++++++++++++++++++++++++------------ 1 file changed, 3171 insertions(+), 1305 deletions(-) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 8ee12638dee..2758f12a17f 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -1,11 +1,11 @@ -;;;; org.el --- Outline-based notes management and organize +;;; org.el --- Outline-based notes management and organizer ;; Carstens outline-mode for keeping track of everything. ;; Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. ;; ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 4.67d +;; Version: 4.77 ;; ;; This file is part of GNU Emacs. ;; @@ -83,7 +83,7 @@ ;;; Version -(defvar org-version "4.67c" +(defconst org-version "4.76" "The version number of the file org.el.") (defun org-version () (interactive) @@ -153,21 +153,13 @@ has been set." :group 'org-startup :type 'boolean) -(defcustom org-CUA-compatible nil - "Non-nil means use alternative key bindings for S-. -Org-mode used S- for changing timestamps and priorities. -S- is also used for example by `CUA-mode' to select text. -If you want to use Org-mode together with `CUA-mode', Org-mode needs to use -alternative bindings. Setting this variable to t will replace the following -keys both in Org-mode and in the Org-agenda buffer. - -S-RET -> C-S-RET -S-up -> M-p -S-down -> M-n -S-left -> M-- -S-right -> M-+ - -If you do not like the alternative keys, take a look at the variable +(defcustom org-replace-disputed-keys nil + "Non-nil means use alternative key bindings for some keys. +Org-mode uses S- keys for changing timestamps and priorities. +These keys are also used by other packages like `CUA-mode' or `windmove.el'. +If you want to use Org-mode together with one of these other modes, +or more generally if you would like to move some Org-mode commands to +other keys, set this variable and configure the keys with the variable `org-disputed-keys'. This option is only relevant at load-time of Org-mode, and must be set @@ -176,21 +168,47 @@ become effective." :group 'org-startup :type 'boolean) -(defvar org-disputed-keys - '((S-up [(shift up)] [(meta ?p)]) - (S-down [(shift down)] [(meta ?n)]) - (S-left [(shift left)] [(meta ?-)]) - (S-right [(shift right)] [(meta ?+)]) - (S-return [(shift return)] [(control shift return)])) +(if (fboundp 'defvaralias) + (defvaralias 'org-CUA-compatible 'org-replace-disputed-keys)) + +(defcustom org-disputed-keys + '(([(shift up)] . [(meta p)]) + ([(shift down)] . [(meta n)]) + ([(shift left)] . [(meta -)]) + ([(shift right)] . [(meta +)]) + ([(control shift right)] . [(meta shift +)]) + ([(control shift left)] . [(meta shift -)])) "Keys for which Org-mode and other modes compete. -This is an alist, cars are symbols for lookup, 1st element is the default key, -second element will be used when `org-CUA-compatible' is t.") +This is an alist, cars are the default keys, second element specifies +the alternative to use when `org-replace-disputed-keys' is t. + +Keys can be specified in any syntax supported by `define-key'. +The value of this option takes effect only at Org-mode's startup, +therefore you'll have to restart Emacs to apply it after changing." + :group 'org-startup + :type 'alist) (defun org-key (key) - "Select a key according to `org-CUA-compatible'." - (nth (if org-CUA-compatible 2 1) - (or (assq key org-disputed-keys) - (error "Invalid Key %s in `org-key'" key)))) + "Select key according to `org-replace-disputed-keys' and `org-disputed-keys'. +Or return the original if not disputed." + (if org-replace-disputed-keys + (let* ((nkey (key-description key)) + (x (org-find-if (lambda (x) + (equal (key-description (car x)) nkey)) + org-disputed-keys))) + (if x (cdr x) key)) + key)) + +(defun org-find-if (predicate seq) + (catch 'exit + (while seq + (if (funcall predicate (car seq)) + (throw 'exit (car seq)) + (pop seq))))) + +(defun org-defkey (keymap key def) + "Define a key, possibly translated, as returned by `org-key'." + (define-key keymap (org-key key) def)) (defcustom org-ellipsis nil "The ellipsis to use in the Org-mode outline. @@ -255,7 +273,9 @@ An entry can be toggled between QUOTE and normal with :group 'org-keywords :type 'string) -(defvar org-repeat-re "\\\n]*\\)\\(\\+[0-9]+[dwmy]\\)") "Regular expression for specifying repeated events. After a match, group 1 contains the repeat expression.") @@ -304,7 +324,7 @@ contexts. Valid contexts are (const default)) (boolean))))) -(defcustom org-show-following-heading '((default . t)) +(defcustom org-show-following-heading '((default . nil)) "Non-nil means, show following heading when revealing a location. Org-mode often shows locations in an org-mode file which might have been invisible before. When this is set, the heading following the @@ -386,6 +406,7 @@ nil Never white Only in completely white lines whitestart Only at the beginning of lines, before the first non-white char. t Everywhere except in headlines +exc-hl-bol Everywhere except at the start of a headline If TAB is used in a place where it does not emulate TAB, the current subtree visibility is cycled." :group 'org-cycle @@ -393,9 +414,25 @@ visibility is cycled." (const :tag "Only in completely white lines" white) (const :tag "Before first char in a line" whitestart) (const :tag "Everywhere except in headlines" t) + (const :tag "Everywhere except at bol in headlines" exc-hl-bol) )) +(defcustom org-cycle-separator-lines 2 + "Number of empty lines needed to keep an empty line between collapsed trees. +If you leave an empty line between the end of a subtree and the following +headline, this empty line is hidden when the subtree is folded. +Org-mode will leave (exactly) one empty line visible if the number of +empty lines is equal or larger to the number given in this variable. +So the default 2 means, at least 2 empty lines after the end of a subtree +are needed to produce free space between a collapsed subtree and the +following headline. + +Special case: when 0, never leave empty lines in collapsed view." + :group 'org-cycle + :type 'integer) + (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees + org-cycle-show-empty-lines org-optimize-window-after-visibility-change) "Hook that is run after `org-cycle' has changed the buffer visibility. The function(s) in this hook must accept a single argument which indicates @@ -406,12 +443,20 @@ the values `folded', `children', or `subtree'." :group 'org-cycle :type 'hook) - (defgroup org-edit-structure nil "Options concerning structure editing in Org-mode." :tag "Org Edit Structure" :group 'org-structure) +(defcustom org-special-ctrl-a nil + "Non-nil means `C-a' behaves specially in headlines. +When set, `C-a' will bring back the cursor to the beginning of the +headline text, i.e. after the stars and after a possible TODO keyword. +When the cursor is already at that position, another `C-a' will bring +it to the beginning of the line." + :group 'org-edit-structure + :type 'boolean) + (defcustom org-odd-levels-only nil "Non-nil means, skip even levels and only use odd levels for the outline. This has the effect that two stars are being added/taken away in @@ -783,6 +828,18 @@ calls `table-recognize-table'." :tag "Org Table Calculation" :group 'org-table) +(defcustom org-table-use-standard-references t + "Should org-mode work with table refrences like B3 instead of @3$2? +Possible values are: +nil never use them +from accept as input, do not present for editing +t: accept as input and present for editing" + :group 'org-table-calculation + :type '(choice + (const :tag "Never, don't even check unser input for them" nil) + (const :tag "Always, both as user input, and when editing" t) + (const :tag "Convert user input, don't offer during editing" 'from))) + (defcustom org-table-copy-increment t "Non-nil means, increment when copying current field with \\[org-table-copy-down]." :group 'org-table-calculation @@ -815,9 +872,6 @@ the command \\[org-table-eval-formula]." :group 'org-table-calculation :type 'boolean) -;; FIXME this is also a variable that makes Org-mode files non-portable -;; Maybe I should have a #+ options for constants? -;; How about the SI/cgs issue? (defcustom org-table-formula-use-constants t "Non-nil means, interpret constants in formulas in tables. A constant looks like `$c' or `$Grav' and will be replaced before evaluation @@ -826,6 +880,8 @@ from the `constants.el' package." :group 'org-table-calculation :type 'boolean) +;; FIXME this is also a variable that makes Org-mode files non-portable +;; Maybe I should have a #+ options for constants? (defcustom org-table-formula-constants nil "Alist with constant names and values, for use in table formulas. The car of each element is a name of a constant, without the `$' before it. @@ -852,7 +908,7 @@ Automatically means, when TAB or RET or C-c C-c are pressed in the line." :group 'org) (defvar org-link-abbrev-alist-local nil - "buffer-local version of `org-link-abbrev-alist', which see. + "Buffer-local version of `org-link-abbrev-alist', which see. The value of this is taken from the #+LINK lines.") (make-variable-buffer-local 'org-link-abbrev-alist-local) @@ -1318,30 +1374,64 @@ When nil, new notes will be filed to the end of a file or entry." :tag "Org Progress" :group 'org-time) -(defcustom org-todo-keywords '("TODO" "DONE") - "List of TODO entry keywords. -\\By default, this is '(\"TODO\" \"DONE\"). The last entry in the list is -considered to mean that the entry is \"done\". All the other mean that -action is required, and will make the entry show up in todo lists, diaries -etc. -The command \\[org-todo] cycles an entry through these states, and an +(defcustom org-todo-keywords '((sequence "TODO" "DONE")) + "List of TODO entry keyword sequences and their interpretation. +\\This is a list of sequences. + +Each sequence starts with a symbol, either `sequence' or `type', +indicating if the keywords should be interpreted as a sequence of +action steps, or as different types of TODO items. The first +keywords are states requiring action - these states will select a headline +for inclusion into the global TODO list Org-mode produces. If one of +the \"keywords\" is the vertical bat \"|\" the remaining keywords +signify that no further action is necessary. If \"|\" is not found, +the last keyword is treated as the only DONE state of the sequence. + +The command \\[org-todo] cycles an entry through these states, and one additional state where no keyword is present. For details about this -cycling, see also the variable `org-todo-interpretation' -Changes become only effective after restarting Emacs." +cycling, see the manual. + +TODO keywords and interpretation can also be set on a per-file basis with +the special #+SEQ_TODO and #+TYP_TODO lines. + +For backward compatibility, this variable may also be just a list +of keywords - in this case the interptetation (sequence or type) will be +taken from the (otherwise obsolete) variable `org-todo-interpretation'." :group 'org-todo :group 'org-keywords - :type '(repeat (string :tag "Keyword"))) + :type '(choice + (repeat :tag "Old syntax, just keywords" + (string :tag "Keyword")) + (repeat :tag "New syntax" + (cons + (choice + :tag "Interpretation" + (const :tag "Sequence (cycling hits every state)" sequence) + (const :tag "Type (cycling directly to DONE)" type)) + (repeat + (string :tag "Keyword")))))) + +(defvar org-todo-keywords-1 nil) +(make-variable-buffer-local 'org-todo-keywords-1) +(defvar org-todo-keywords-for-agenda nil) +(defvar org-done-keywords-for-agenda nil) +(defvar org-not-done-keywords nil) +(make-variable-buffer-local 'org-not-done-keywords) +(defvar org-done-keywords nil) +(make-variable-buffer-local 'org-done-keywords) +(defvar org-todo-heads nil) +(make-variable-buffer-local 'org-todo-heads) +(defvar org-todo-sets nil) +(make-variable-buffer-local 'org-todo-sets) +(defvar org-todo-kwd-alist nil) +(make-variable-buffer-local 'org-todo-kwd-alist) (defcustom org-todo-interpretation 'sequence "Controls how TODO keywords are interpreted. -This variable is only relevant if `org-todo-keywords' contains more than two -states. \\Possible values are `sequence' and `type'. - -When `sequence', \\[org-todo] will always switch to the next state in the -`org-todo-keywords' list. When `type', \\[org-todo] only cycles from state -to state when executed several times in direct succession. Otherwise, it -switches directly to DONE from any state. -See the manual for more information." +This variable is in principle obsolete and is only used for +backward compatibility, if the interpretation of todo keywords is +not given already in `org-todo-keywords'. See that variable for +more information." :group 'org-todo :group 'org-keywords :type '(choice (const sequence) @@ -1393,6 +1483,12 @@ the following lines anywhere in the buffer: (const :tag "when TODO state changes" state) (const :tag "when clocking out" clock-out)))) +(defcustom org-log-done-with-time t + "Non-nil means, the CLOSED time stamp will contain date and time. +When nil, only the date will be recorded." + :group 'org-progress + :type 'boolean) + (defcustom org-log-note-headings '((done . "CLOSING NOTE %t") (state . "State %-12s %t") @@ -1414,11 +1510,9 @@ empty string. state) string) (cons (const :tag "Heading when clocking out" clock-out) string))) -(defcustom org-allow-auto-repeat t - "Non-nil means, find REPEAT cookies in entries and apply them. -A repeat cookie looks like REPEAT(+1m) and causes deadlines and schedules -to repeat themselves shifted by a certain amount of time, each time an -entry is marked DONE." +(defcustom org-log-repeat t + "Non-nil means, prompt for a note when REPEAT is resetting a TODO entry. +When nil, no note will be taken." :group 'org-todo :group 'org-progress :type 'boolean) @@ -1428,14 +1522,21 @@ entry is marked DONE." :tag "Org Priorities" :group 'org-todo) -(defcustom org-default-priority ?B - "The default priority of TODO items. -This is the priority an item get if no explicit priority is given." +(defcustom org-highest-priority ?A + "The highest priority of TODO items. A character like ?A, ?B etc. +Must have a smaller ASCII number than `org-lowest-priority'." :group 'org-priorities :type 'character) (defcustom org-lowest-priority ?C - "The lowest priority of TODO items. A character like ?A, ?B etc." + "The lowest priority of TODO items. A character like ?A, ?B etc. +Must have a larger ASCII number than `org-highest-priority'." + :group 'org-priorities + :type 'character) + +(defcustom org-default-priority ?B + "The default priority of TODO items. +This is the priority an item get if no explicit priority is given." :group 'org-priorities :type 'character) @@ -1612,7 +1713,7 @@ make sure all corresponding TODO items find their way into the list." "Variable used by org files to set a category for agenda display. Such files should use a file variable to set it, for example - -*- mode: org; org-category: \"ELisp\" +# -*- mode: org; org-category: \"ELisp\" or contain a special line @@ -1654,17 +1755,75 @@ forth between agenda and calendar." :group 'org-agenda :type 'sexp) +(defgroup org-agenda-export nil + "Options concerning exporting agenda views in Org-mode." + :tag "Org Agenda Export" + :group 'org-agenda) + +(defcustom org-agenda-with-colors t + "Non-nil means, use colors in agenda views." + :group 'org-agenda-export + :type 'boolean) + +(defcustom org-agenda-exporter-settings nil + "Alist of variable/value pairs that should be active during agenda export. +This is a good place to set uptions for ps-print and for htmlize." + :group 'org-agenda-export + :type '(repeat + (list + (variable) + (sexp :tag "Value")))) + +(defcustom org-agenda-export-html-style "" + "The style specification for exported HTML Agenda files. +If this variable contains a string, it will replace the default + +or, if you want to keep the style in a file, + + + +As the value of this option simply gets inserted into the HTML header, +you can \"misuse\" it to also add other text to the header. However, + is required, if not present the variable will be ignored." + :group 'org-agenda-export + :group 'org-export-html + :type 'string) + (defgroup org-agenda-custom-commands nil "Options concerning agenda views in Org-mode." :tag "Org Agenda Custom Commands" :group 'org-agenda) -(defcustom org-agenda-custom-commands '(("w" todo "WAITING")) +(defcustom org-agenda-custom-commands nil "Custom commands for the agenda. These commands will be offered on the splash screen displayed by the agenda dispatcher \\[org-agenda]. Each entry is a list like this: - (key type match options) + (key type match options files) key The key (a single char as a string) to be associated with the command. type The command type, any of the following symbols: @@ -1680,11 +1839,16 @@ match What to search for: - a regular expression for occur searches options A list of option setttings, similar to that in a let form, so like this: ((opt1 val1) (opt2 val2) ...) +files A list of files file to write the produced agenda buffer to + with the command `org-store-agenda-views'. + If a file name ends in \".html\", an HTML version of the buffer + is written out. If it ends in \".ps\", a postscript version is + produced. Otherwide, only the plain text is written to the file. You can also define a set of commands, to create a composite agenda buffer. In this case, an entry looks like this: - (key desc (cmd1 cmd2 ...) general-options) + (key desc (cmd1 cmd2 ...) general-options file) where @@ -1695,19 +1859,22 @@ cmd An agenda command, similar to the above. However, tree commands (agenda) (alltodo) (stuck) - (todo \"match\" options) - (tags \"match\" options ) - (tags-todo \"match\" options) + (todo \"match\" options files) + (tags \"match\" options files) + (tags-todo \"match\" options files) Each command can carry a list of options, and another set of options can be given for the whole set of commands. Individual command options take precedence over the general options." :group 'org-agenda-custom-commands :type '(repeat - (choice + (choice :value ("a" tags "" nil) (list :tag "Single command" (string :tag "Key") (choice + (const :tag "Agenda" agenda) + (const :tag "TODO list" alltodo) + (const :tag "Stuck projects" stuck) (const :tag "Tags search (all agenda files)" tags) (const :tag "Tags search of TODO entries (all agenda files)" tags-todo) (const :tag "TODO keyword search (all agenda files)" todo) @@ -1717,7 +1884,8 @@ precedence over the general options." (symbol :tag "Other, user-defined function")) (string :tag "Match") (repeat :tag "Local options" - (list (variable :tag "Option") (sexp :tag "Value")))) + (list (variable :tag "Option") (sexp :tag "Value"))) + (option (repeat :tag "Export" (file :tag "Export to")))) (list :tag "Command series, all agenda files" (string :tag "Key") (string :tag "Description") @@ -1756,20 +1924,24 @@ precedence over the general options." (repeat :tag "General options" (list (variable :tag "Option") - (sexp :tag "Value"))))))) + (sexp :tag "Value"))) + (option (repeat :tag "Export" (file :tag "Export to"))))))) (defcustom org-stuck-projects - '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil) + '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") nil "") "How to identify stuck projects. -This is a list of three items: +This is a list of four items: 1. A tags/todo matcher string that is used to identify a project. - The entire tree below a headline matched by this is considered a project. -2. A list of TODO keywords itentifying non-stuck projects. + The entire tree below a headline matched by this is considered one project. +2. A list of TODO keywords identifying non-stuck projects. If the project subtree contains any headline with one of these todo - keywords, the project is consitered to be not stuck. + keywords, the project is considered to be not stuck. If you specify + \"*\" as a keyword, any TODO keyword will mark the project unstuck. 3. A list of tags identifying non-stuck projects. If the project subtree contains any headline with one of these tags, - the project is consitered to be not stuck. + the project is considered to be not stuck. If you specify \"*\" as + a tag, any tag will mark the project unstuck. +4. An arbitrary regular expression matching non-stuck projects. After defining this variable, you may use \\[org-agenda-list-stuck-projects] or `C-c a #' to produce the list." @@ -1777,7 +1949,8 @@ or `C-c a #' to produce the list." :type '(list (string :tag "Tags/TODO match to identify a project") (repeat :tag "Projects are *not* stuck if they have an entry with TODO keyword any of" (string)) - (repeat :tag "Projects are *not* stuck if they have an entry with TAG being any of" (string)))) + (repeat :tag "Projects are *not* stuck if they have an entry with TAG being any of" (string)) + (regexp :tag "Projects are *not* stuck if this regexp matches\ninside the subtree"))) (defgroup org-agenda-skip nil @@ -1815,6 +1988,14 @@ This is relevant for the daily/weekly agenda, not for the TODO list." :group 'org-agenda-skip :type 'boolean) +(defcustom org-agenda-skip-deadline-if-done nil + "Non-nil means don't show deadines when the corresponding item is done. +When nil, the deadline is still shown and should give you a happy feeling. + +This is relevant for the daily/weekly agenda." + :group 'org-agenda-skip + :type 'boolean) + (defcustom org-timeline-show-empty-dates 3 "Non-nil means, `org-timeline' also shows dates without an entry. When nil, only the days which actually have entries are shown. @@ -1846,7 +2027,7 @@ Needs to be set before org.el is loaded." :type 'boolean) (defcustom org-agenda-start-with-follow-mode nil - "The initial value of follwo-mode in a newly created agenda window." + "The initial value of follow-mode in a newly created agenda window." :group 'org-agenda-startup :type 'boolean) @@ -1931,7 +2112,7 @@ a format string understood by `format-time-string'. FIXME: Not used currently, because of timezone problem." :group 'org-agenda-daily/weekly :type 'string) - + (defcustom org-agenda-include-diary nil "If non-nil, include in the agenda entries from the Emacs Calendar's diary." :group 'org-agenda-daily/weekly @@ -2006,7 +2187,7 @@ a grid line." (defcustom org-agenda-sorting-strategy '((agenda time-up category-keep priority-down) (todo category-keep priority-down) - (tags category-keep)) + (tags category-keep priority-down)) "Sorting structure for the agenda items of a single day. This is a list of symbols which will be used in sequence to determine if an entry should be listed before another entry. The following @@ -2113,7 +2294,7 @@ the prefix, you could use: (setq org-agenda-prefix-format \" %-11:c% s\") See also the variables `org-agenda-remove-times-when-in-prefix' and -`org-agenda-remove-tags-when-in-prefix'." +`org-agenda-remove-tags'." :type '(choice (string :tag "General format") (list :greedy t :tag "View dependent" @@ -2144,7 +2325,7 @@ the headline/diary entry." (const :tag "Never" nil) (const :tag "When at beginning of entry" beg))) -(defcustom org-agenda-remove-tags-when-in-prefix nil +(defcustom org-agenda-remove-tags nil "Non-nil means, remove the tags from the headline copy in the agenda. When this is the symbol `prefix', only remove tags when `org-agenda-prefix-format' contains a `%T' specifier." @@ -2154,6 +2335,10 @@ When this is the symbol `prefix', only remove tags when (const :tag "Never" nil) (const :tag "When prefix format contains %T" prefix))) +(if (fboundp 'defvaralias) + (defvaralias 'org-agenda-remove-tags-when-in-prefix + 'org-agenda-remove-tags)) + (defcustom org-agenda-align-tags-to-column 65 "Shift tags in agenda items to this column." :group 'org-agenda-prefix @@ -2165,13 +2350,18 @@ When this is the symbol `prefix', only remove tags when :group 'org) (defcustom org-format-latex-options - '(:foreground "Black" :background "Transparent" :scale 1.0 - :matchers ("begin" "$" "$$" "\\(" "\\[")) + '(:foreground default :background default :scale 1.0 + :html-foreground "Black" :html-background "Transparent" :html-scale 1.0 + :matchers ("begin" "$" "$$" "\\(" "\\[")) "Options for creating images from LaTeX fragments. This is a property list with the following properties: -:foreground the foreground color, for example \"Black\". +:foreground the foreground color for images embedded in emacs, e.g. \"Black\". + `default' means use the forground of the default face. :background the background color, or \"Transparent\". + `default' means use the background of the default face. :scale a scaling factor for the size of the images +:html-foreground, :html-background, :html-scale + The same numbers for HTML export. :matchers a list indicating which matchers should be used to find LaTeX fragments. Valid members of this list are: \"begin\" find environments @@ -2182,6 +2372,18 @@ This is a property list with the following properties: :group 'org-latex :type 'plist) +(defcustom org-format-latex-header "\\documentclass{article} +\\usepackage{fullpage} % do not remove +\\usepackage{amssymb} +\\usepackage[usenames]{color} +\\usepackage{amsmath} +\\usepackage{latexsym} +\\usepackage[mathscr]{eucal} +\\pagestyle{empty} % do not remove" + "The document header used for processing LaTeX fragments." + :group 'org-latex + :type 'string) + (defgroup org-export nil "Options for exporting org-listings." :tag "Org Export" @@ -2237,6 +2439,12 @@ This should have an association in `org-export-language-setup'." :group 'org-export-general :type 'string) +(defcustom org-export-skip-text-before-1st-heading t + "Non-nil means, skip all text before the first headline when exporting. +When nil, that text is exported as well." + :group 'org-export-general + :type 'boolean) + (defcustom org-export-headline-levels 3 "The last level which is still exported as a headline. Inferior levels will produce itemize lists when exported. @@ -2354,12 +2562,19 @@ sub- or superscripts. x_{i^2} or x^(2-i) braces or parenthesis do grouping. Still, ambiguity is possible - so when in doubt use {} to enclose the -sub/superscript. +sub/superscript. If you set this variable to the symbol `{}', +the braces are *required* in order to trigger interpretations as +sub/superscript. This can be helpful in documents that need \"_\" +frequently in plain text. + Not all export backends support this, but HTML does. This option can also be set with the +OPTIONS line, e.g. \"^:nil\"." :group 'org-export-translation - :type 'boolean) + :type '(choice + (const :tag "Always interpret" t) + (const :tag "Only with braces" {}) + (const :tag "Never interpret" nil))) (defcustom org-export-with-TeX-macros t "Non-nil means, interpret simple TeX-like macros when exporting. @@ -2534,6 +2749,7 @@ you can \"misuse\" it to add arbitrary text to the header." :group 'org-export-html :type 'string) + (defcustom org-export-html-title-format "

%s

\n" "Format for typesetting the document title in HTML export." :group 'org-export-html @@ -2567,7 +2783,7 @@ be linked only." (const :tag "Always" t) (const :tag "When there is no description" maybe))) -;; FIXME: rename +;; FIXME: rename (defcustom org-export-html-expand t "Non-nil means, for HTML export, treat @<...> as HTML tag. When nil, these tags will be exported as plain text and therefore @@ -2579,12 +2795,24 @@ This option can also be set with the +OPTIONS line, e.g. \"@:nil\"." (defcustom org-export-html-table-tag "" - "The HTML tag used to start a table. + "The HTML tag that is used to start a table. This must be a
tag, but you may change the options like borders and spacing." :group 'org-export-html :type 'string) +(defcustom org-export-table-header-tags '("") + "The opening tag for table header fields. +This is customizable so that alignment options can be specified." + :group 'org-export-tables + :type '(cons (string :tag "Opening tag") (string :tag "Closing tag"))) + +(defcustom org-export-table-data-tags '("") + "The opening tag for table data fields. +This is customizable so that alignment options can be specified." + :group 'org-export-tables + :type '(cons (string :tag "Opening tag") (string :tag "Closing tag"))) + (defcustom org-export-html-with-timestamp nil "If non-nil, write `org-export-html-html-helper-timestamp' into the exported HTML text. Otherwise, the buffer will just be saved @@ -2618,6 +2846,12 @@ The file name should be absolute." (const :tag "Unfinished" t) (const :tag "All" all))) +(defcustom org-icalendar-include-sexps t + "Non-nil means, export to iCalendar files should also cover sexp entries. +These are entries like in the diary, but directly in an Org-mode file." + :group 'org-export-icalendar + :type 'boolean) + (defcustom org-icalendar-combined-name "OrgMode" "Calendar name for the combined iCalendar representing all agenda files." :group 'org-export-icalendar @@ -2690,8 +2924,6 @@ Changing this variable requires a restart of Emacs to take effect." (setq markers (concat (replace-match "" t t markers) "^"))) (if (string-match "-" markers) (setq markers (concat (replace-match "" t t markers) "-"))) -; (while (>= (setq nl (1- nl)) 0) (setq body1 (concat body1 "\n?" body "*?"))) -; (while (>= (setq nl (1- nl)) 0) (setq body1 (concat body1 "\\(?:\n?" body "*?\\)?"))) (if (> nl 0) (setq body1 (concat body1 "\\(?:\n" body "*?\\)\\{0," (int-to-string nl) "\\}"))) @@ -2701,15 +2933,15 @@ Changing this variable requires a restart of Emacs to take effect." "\\(" "\\([" markers "]\\)" "\\(" - "[^" border markers "]" + "[^" border (if (and nil stacked) markers) "]" body1 - "[^" border markers "]" + "[^" border (if (and nil stacked) markers) "]" "\\)" "\\3\\)" "\\([" post (if stacked markers) "]\\|$\\)"))))) (defcustom org-emphasis-regexp-components - '(" \t('\"" " \t.,?;'\")" " \t\r\n," "." 1 nil) + '(" \t('\"" "- \t.,:?;'\")" " \t\r\n,\"'" "." 1 nil) "Components used to build the reqular expression for emphasis. This is a list with 6 entries. Terminology: In an emphasis string like \" *strong word* \", we call the initial space PREMATCH, the final @@ -2719,8 +2951,7 @@ specify what is allowed/forbidden in each part: pre Chars allowed as prematch. Beginning of line will be allowed too. post Chars allowed as postmatch. End of line will be allowed too. -border The chars *forbidden* as border characters. In addition to the - characters given here, all marker characters are forbidden too. +border The chars *forbidden* as border characters. body-regexp A regexp like \".\" to match a body character. Don't use non-shy groups here, and don't allow newline here. newline The maximum number of newlines allowed in an emphasis exp. @@ -2745,11 +2976,11 @@ Use customize to modify this, or restart Emacs after changing it." ("_" underline "" "") ("=" shadow "" "") ("+" (:strike-through t) "" "") -) + ) "Special syntax for emphasized text. Text starting and ending with a special character will be emphasized, for example *bold*, _underlined_ and /italic/. This variable sets the marker -characters, the face to bbe used by font-lock for highlighting in Org-mode +characters, the face to be used by font-lock for highlighting in Org-mode Emacs buffers, and the HTML tags to be used for this. Use customize to modify this, or restart Emacs after changing it." :group 'org-font-lock @@ -2894,15 +3125,6 @@ color of the frame." "Face for deadlines and TODO keywords." :group 'org-faces) -(defface org-headline-done ;; font-lock-string-face - (org-compatible-face - '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) - (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) - (((class color) (min-colors 8) (background light)) (:bold nil)))) - "Face used to indicate that a headline is DONE. -This face is only used if `org-fontify-done-headline' is set." - :group 'org-faces) - (defface org-archived ; similar to shadow (org-compatible-face '((((class color grayscale) (min-colors 88) (background light)) @@ -2930,6 +3152,13 @@ This face is only used if `org-fontify-done-headline' is set." "Face for links." :group 'org-faces) +(defface org-sexp-date + '((((class color) (background light)) (:foreground "Purple")) + (((class color) (background dark)) (:foreground "Cyan")) + (t (:underline t))) + "Face for links." + :group 'org-faces) + (defface org-tag '((t (:bold t))) "Face for tags." @@ -2951,7 +3180,17 @@ This face is only used if `org-fontify-done-headline' is set." (((class color) (min-colors 16) (background dark)) (:foreground "PaleGreen" :bold t)) (((class color) (min-colors 8)) (:foreground "green")) (t (:bold t)))) - "Face used for DONE." + "Face used for todo keywords that indicate DONE items." + :group 'org-faces) + +(defface org-headline-done ;; font-lock-string-face + (org-compatible-face + '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) + (((class color) (min-colors 16) (background dark)) (:foreground "LightSalmon")) + (((class color) (min-colors 8) (background light)) (:bold nil)))) + "Face used to indicate that a headline is DONE. +This face is only used if `org-fontify-done-headline' is set. If applies +to the part of the headline after the DONE keyword." :group 'org-faces) (defface org-table ;; font-lock-function-name-face @@ -2975,6 +3214,17 @@ This face is only used if `org-fontify-done-headline' is set." "Face for formulas." :group 'org-faces) +(defface org-agenda-structure ;; font-lock-function-name-face + (org-compatible-face + '((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) + (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) + (((class color) (min-colors 16) (background light)) (:foreground "Blue")) + (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) + (((class color) (min-colors 8)) (:foreground "blue" :bold t)) + (t (:bold t)))) + "Face used in agenda for captions and dates." + :group 'org-faces) + (defface org-scheduled-today (org-compatible-face '((((class color) (min-colors 88) (background light)) (:foreground "DarkGreen")) @@ -3021,9 +3271,6 @@ This face is only used if `org-fontify-done-headline' is set." ;;; Variables for pre-computed regular expressions, all buffer local -(defvar org-done-string nil - "The last string in `org-todo-keywords', indicating an item is DONE.") -(make-variable-buffer-local 'org-done-string) (defvar org-todo-regexp nil "Matches any of the TODO state keywords.") (make-variable-buffer-local 'org-todo-regexp) @@ -3043,12 +3290,6 @@ Also put tags into group 4 if tags are present.") (defvar org-looking-at-done-regexp nil "Matches the DONE keyword a point.") (make-variable-buffer-local 'org-looking-at-done-regexp) -(defvar org-todo-kwd-priority-p nil - "Do TODO items have priorities?") -(make-variable-buffer-local 'org-todo-kwd-priority-p) -(defvar org-todo-kwd-max-priority nil - "Maximum priority of TODO items.") -(make-variable-buffer-local 'org-todo-kwd-max-priority) (defvar org-ds-keyword-length 12 "Maximum length of the Deadline and SCHEDULED keywords.") (make-variable-buffer-local 'org-ds-keyword-length) @@ -3080,6 +3321,9 @@ Also put tags into group 4 if tags are present.") (defvar org-maybe-keyword-time-regexp nil "Matches a timestamp, possibly preceeded by a keyword.") (make-variable-buffer-local 'org-maybe-keyword-time-regexp) +(defvar org-planning-or-clock-line-re nil + "Matches a line with planning or clock info.") +(make-variable-buffer-local 'org-planning-or-clock-line-re) (defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t rear-nonsticky t mouse-map t fontified t) @@ -3102,6 +3346,12 @@ Also put tags into group 4 if tags are present.") ((assoc key option) (cdr (assoc key option))) (t (cdr (assq 'default option))))) +(defsubst org-inhibit-invisibility () + "Modified `buffer-invisibility-spec' for Emacs 21. +Some ops with invisible text do not work correctly on Emacs 21. For these +we turn off invisibility temporarily. Use this in a `let' form." + (if (< emacs-major-version 22) nil buffer-invisibility-spec)) + (defsubst org-set-local (var value) "Make VAR local in current buffer and set it to VALUE." (set (make-variable-buffer-local var) value)) @@ -3139,7 +3389,11 @@ Also put tags into group 4 if tags are present.") ("nologging" org-log-done nil) ("lognotedone" org-log-done done push) ("lognotestate" org-log-done state push) - ("lognoteclock-out" org-log-done clock-out push)) + ("lognoteclock-out" org-log-done clock-out push) + ("logrepeat" org-log-repeat t) + ("nologrepeat" org-log-repeat nil) + ("constcgs" constants-unit-system cgs) + ("constSI" constants-unit-system SI)) "Variable associated with STARTUP options for org-mode. Each element is a list of three items: The startup options as written in the #+STARTUP line, the corresponding variable, and the value to @@ -3149,11 +3403,16 @@ means to push this value onto the list in the variable.") (defun org-set-regexps-and-options () "Precompute regular expressions for current buffer." (when (org-mode-p) + (org-set-local 'org-todo-kwd-alist nil) + (org-set-local 'org-todo-keywords-1 nil) + (org-set-local 'org-done-keywords nil) + (org-set-local 'org-todo-heads nil) + (org-set-local 'org-todo-sets nil) (let ((re (org-make-options-regexp '("CATEGORY" "SEQ_TODO" "PRI_TODO" "TYP_TODO" - "STARTUP" "ARCHIVE" "TAGS" "LINK"))) + "STARTUP" "ARCHIVE" "TAGS" "LINK" "PRIORITIES"))) (splitre "[ \t]+") - kwds int key value cat arch tags links) + kwds key value cat arch tags links hw dws tail sep kws1 prio) (save-excursion (save-restriction (widen) @@ -3166,14 +3425,9 @@ means to push this value onto the list in the variable.") (setq value (replace-match "" t t value))) (setq cat (intern value))) ((equal key "SEQ_TODO") - (setq int 'sequence - kwds (append kwds (org-split-string value splitre)))) - ((equal key "PRI_TODO") - (setq int 'priority - kwds (append kwds (org-split-string value splitre)))) + (push (cons 'sequence (org-split-string value splitre)) kwds)) ((equal key "TYP_TODO") - (setq int 'type - kwds (append kwds (org-split-string value splitre)))) + (push (cons 'type (org-split-string value splitre)) kwds)) ((equal key "TAGS") (setq tags (append tags (org-split-string value splitre)))) ((equal key "LINK") @@ -3181,17 +3435,20 @@ means to push this value onto the list in the variable.") (push (cons (match-string 1 value) (org-trim (match-string 2 value))) links))) + ((equal key "PRIORITIES") + (setq prio (org-split-string value " +"))) ((equal key "STARTUP") (let ((opts (org-split-string value splitre)) l var val) - (while (setq l (assoc (pop opts) org-startup-options)) - (setq var (nth 1 l) val (nth 2 l)) - (if (not (nth 3 l)) - (set (make-local-variable var) val) - (if (not (listp (symbol-value var))) - (set (make-local-variable var) nil)) - (set (make-local-variable var) (symbol-value var)) - (add-to-list var val))))) + (while (setq l (pop opts)) + (when (setq l (assoc l org-startup-options)) + (setq var (nth 1 l) val (nth 2 l)) + (if (not (nth 3 l)) + (set (make-local-variable var) val) + (if (not (listp (symbol-value var))) + (set (make-local-variable var) nil)) + (set (make-local-variable var) (symbol-value var)) + (add-to-list var val)))))) ((equal key "ARCHIVE") (string-match " *$" value) (setq arch (replace-match "" t t value)) @@ -3199,10 +3456,38 @@ means to push this value onto the list in the variable.") '(face t fontified t) arch))) ))) (and cat (org-set-local 'org-category cat)) - (and kwds (org-set-local 'org-todo-keywords kwds)) + (when prio + (if (< (length prio) 3) (setq prio '("A" "C" "B"))) + (setq prio (mapcar 'string-to-char prio)) + (org-set-local 'org-highest-priority (nth 0 prio)) + (org-set-local 'org-lowest-priority (nth 1 prio)) + (org-set-local 'org-default-priority (nth 2 prio))) (and arch (org-set-local 'org-archive-location arch)) - (and int (org-set-local 'org-todo-interpretation int)) (and links (setq org-link-abbrev-alist-local (nreverse links))) + ;; Process the TODO keywords + (unless kwds + ;; Use the global values as if they had been given locally. + (setq kwds (default-value 'org-todo-keywords)) + (if (stringp (car kwds)) + (setq kwds (list (cons org-todo-interpretation + (default-value 'org-todo-keywords))))) + (setq kwds (reverse kwds))) + (setq kwds (nreverse kwds)) + (let (inter kws) + (while (setq kws (pop kwds)) + (setq inter (pop kws) sep (member "|" kws) + kws1 (delete "|" (copy-sequence kws)) + hw (car kws1) + dws (if sep (cdr sep) (last kws1)) + tail (list inter hw (car dws) (org-last dws))) + (add-to-list 'org-todo-heads hw 'append) + (push kws1 org-todo-sets) + (setq org-done-keywords (append org-done-keywords dws nil)) + (mapc (lambda (x) (push (cons x tail) org-todo-kwd-alist)) kws1) + (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil))) + (setq org-todo-sets (nreverse org-todo-sets) + org-todo-kwd-alist (nreverse org-todo-kwd-alist))) + ;; Process the tags. (when tags (let (e tgs) (while (setq e (pop tags)) @@ -3221,32 +3506,35 @@ means to push this value onto the list in the variable.") (push e org-tag-alist)))))) ;; Compute the regular expressions and other local variables - (setq org-todo-kwd-priority-p (equal org-todo-interpretation 'priority) - org-todo-kwd-max-priority (1- (length org-todo-keywords)) - org-ds-keyword-length (+ 2 (max (length org-deadline-string) + (if (not org-done-keywords) + (setq org-done-keywords (list (org-last org-todo-keywords-1)))) + (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string) (length org-scheduled-string))) - org-done-string - (nth (1- (length org-todo-keywords)) org-todo-keywords) + org-not-done-keywords + (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1)) org-todo-regexp - (concat "\\<\\(" (mapconcat 'regexp-quote org-todo-keywords + (concat "\\<\\(" (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") "\\)\\>") org-not-done-regexp (concat "\\<\\(" - (mapconcat 'regexp-quote - (nreverse (cdr (reverse org-todo-keywords))) - "\\|") + (mapconcat 'regexp-quote org-not-done-keywords "\\|") "\\)\\>") org-todo-line-regexp (concat "^\\(\\*+\\)[ \t]*\\(?:\\(" - (mapconcat 'regexp-quote org-todo-keywords "\\|") + (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") "\\)\\>\\)? *\\(.*\\)") org-nl-done-regexp - (concat "[\r\n]\\*+[ \t]+" org-done-string "\\>") + (concat "[\r\n]\\*+[ \t]+" + "\\(?:" (mapconcat 'regexp-quote org-done-keywords "\\|") + "\\)" "\\>") org-todo-line-tags-regexp (concat "^\\(\\*+\\)[ \t]*\\(?:\\(" - (mapconcat 'regexp-quote org-todo-keywords "\\|") + (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") "\\)\\>\\)? *\\(.*?\\([ \t]:[a-zA-Z0-9:_@]+:[ \t]*\\)?$\\)") - org-looking-at-done-regexp (concat "^" org-done-string "\\>") + org-looking-at-done-regexp + (concat "^" "\\(?:" + (mapconcat 'regexp-quote org-done-keywords "\\|") "\\)" + "\\>") org-deadline-regexp (concat "\\<" org-deadline-string) org-deadline-time-regexp (concat "\\<" org-deadline-string " *<\\([^>]+\\)>") @@ -3274,7 +3562,12 @@ means to push this value onto the list in the variable.") "\\|" org-deadline-string "\\|" org-closed-string "\\|" org-clock-string "\\)\\)?" - " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^]\r\n>]*?[]>]\\)")) + " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^]\r\n>]*?[]>]\\|<%%([^\r\n>]*>\\)") + org-planning-or-clock-line-re + (concat "\\(?:^[ \t]*\\(" org-scheduled-string + "\\|" org-deadline-string + "\\|" org-closed-string "\\|" org-clock-string "\\)\\>\\)") + ) (org-set-font-lock-defaults))) @@ -3325,6 +3618,7 @@ This is for getting out of special buffers like remember.") (defvar annotation) ; from remember.el, dynamically scoped in `remember-mode' (defvar initial) ; from remember.el, dynamically scoped in `remember-mode' (defvar org-latex-regexps) +(defvar constants-unit-system) (defvar original-date) ; dynamically scoped in calendar.el does scope this @@ -3394,6 +3688,7 @@ This is for getting out of special buffers like remember.") (overlay-get ovl prop))) (defun org-overlays-at (pos) (if (featurep 'xemacs) (extents-at pos) (overlays-at pos))) +;; FIXME: this is currently not used (defun org-overlays-in (&optional start end) (if (featurep 'xemacs) (extent-list nil start end) @@ -3402,6 +3697,7 @@ This is for getting out of special buffers like remember.") (if (featurep 'xemacs) (extent-start-position o) (overlay-start o))) (defun org-overlay-end (o) (if (featurep 'xemacs) (extent-end-position o) (overlay-end o))) +;; FIXME: this is currently not used (defun org-find-overlays (prop &optional pos delete) "Find all overlays specifying PROP at POS or point. If DELETE is non-nil, delete all those overlays." @@ -3455,6 +3751,7 @@ that can be added." (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec))))) +;; FIXME: this is currently not used (defun org-in-invisibility-spec-p (arg) "Is ARG a member of `buffer-invisibility-spec'?" (if (consp buffer-invisibility-spec) @@ -3477,6 +3774,7 @@ This variable is set by `org-before-change-function'. (defvar org-mode-hook nil) (defvar org-inhibit-startup nil) ; Dynamically-scoped param. (defvar org-agenda-keep-modes nil) ; Dynamically-scoped param. +(defvar org-table-buffer-is-an nil) ;;;###autoload @@ -3521,7 +3819,6 @@ The following commands are available: (when (featurep 'xemacs) (org-set-local 'line-move-ignore-invisible t)) (setq outline-regexp "\\*+") - ;;(setq outline-regexp "\\(?:\\*+\\|[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\) \\)") (setq outline-level 'org-outline-level) (when (and org-ellipsis (stringp org-ellipsis) (fboundp 'set-display-table-slot) (boundp 'buffer-display-table)) @@ -3534,6 +3831,7 @@ The following commands are available: ;; Calc embedded (org-set-local 'calc-embedded-open-mode "# ") (modify-syntax-entry ?# "<") + (modify-syntax-entry ?@ "w") (if org-startup-truncated (setq truncate-lines t)) (org-set-local 'font-lock-unfontify-region-function 'org-unfontify-region) @@ -3545,6 +3843,7 @@ The following commands are available: (org-add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local) ;; Paragraphs and auto-filling (org-set-autofill-regexps) + (setq indent-line-function 'org-indent-line-function) (org-update-radio-target-regexp) ;; Comment characters @@ -3564,7 +3863,7 @@ The following commands are available: (if (and org-insert-mode-line-in-empty-file (interactive-p) (= (point-min) (point-max))) - (insert " -*- mode: org -*-\n\n")) + (insert "# -*- mode: org -*-\n\n")) (unless org-inhibit-startup (when org-startup-align-all-tables @@ -3578,6 +3877,8 @@ The following commands are available: (let ((this-command 'org-cycle) (last-command 'org-cycle)) (org-cycle '(4)) (org-cycle '(4))))))) +(put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify) + (defsubst org-call-with-arg (command arg) "Call COMMAND interactively, but pretend prefix are was ARG." (let ((current-prefix-arg arg)) (call-interactively command))) @@ -3610,23 +3911,23 @@ that will be added to PLIST. Returns the string that was modified." ;;;; Font-Lock stuff, including the activators (defvar org-mouse-map (make-sparse-keymap)) -(define-key org-mouse-map +(org-defkey org-mouse-map (if (featurep 'xemacs) [button2] [mouse-2]) 'org-open-at-mouse) -(define-key org-mouse-map +(org-defkey org-mouse-map (if (featurep 'xemacs) [button3] [mouse-3]) 'org-find-file-at-mouse) (when org-mouse-1-follows-link - (define-key org-mouse-map [follow-link] 'mouse-face)) + (org-defkey org-mouse-map [follow-link] 'mouse-face)) (when org-tab-follows-link - (define-key org-mouse-map [(tab)] 'org-open-at-point) - (define-key org-mouse-map "\C-i" 'org-open-at-point)) + (org-defkey org-mouse-map [(tab)] 'org-open-at-point) + (org-defkey org-mouse-map "\C-i" 'org-open-at-point)) (when org-return-follows-link - (define-key org-mouse-map [(return)] 'org-open-at-point) - (define-key org-mouse-map "\C-m" 'org-open-at-point)) + (org-defkey org-mouse-map [(return)] 'org-open-at-point) + (org-defkey org-mouse-map "\C-m" 'org-open-at-point)) (require 'font-lock) (defconst org-non-link-chars "]\t\n\r<>") -(defconst org-link-types '("https?" "ftp" "mailto" "file" "news" "bbdb" "vm" +(defconst org-link-types '("http" "https" "ftp" "mailto" "file" "news" "bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp")) (defconst org-link-re-with-space (concat @@ -3679,21 +3980,17 @@ that will be added to PLIST. Returns the string that was modified." (concat "\\(" org-bracket-link-regexp "\\)\\|\\(" org-angle-link-re "\\)\\|\\(" org-plain-link-re "\\)") - "Regular expression matching any link.") + "Regular expression matching any link.") -(defconst org-ts-lengths - (cons (length (format-time-string (car org-time-stamp-formats))) - (length (format-time-string (cdr org-time-stamp-formats)))) - "This holds the lengths of the two different time formats.") -(defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^\r\n>]*?\\)>" +(defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^\r\n>]*?\\)>" "Regular expression for fast time stamp matching.") -(defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}[^\r\n>]*?\\)[]>]" +(defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^\r\n>]*?\\)[]>]" "Regular expression for fast time stamp matching.") -(defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\)\\([^]0-9>\r\n]*\\)\\(\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)" +(defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) \\([^]0-9>\r\n]*\\)\\(\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)" "Regular expression matching time strings for analysis.") -(defconst org-ts-regexp2 (concat "<" org-ts-regexp1 ">") +(defconst org-ts-regexp2 (concat "<" org-ts-regexp1 "[^>\n]\\{0,6\\}>") "Regular expression matching time stamps, with groups.") -(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[]>]") +(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,6\\}[]>]") "Regular expression matching time stamps (also [..]), with groups.") (defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp) "Regular expression matching a time stamp range.") @@ -3712,27 +4009,87 @@ The time stamps may be either active or inactive.") (defun org-do-emphasis-faces (limit) "Run through the buffer and add overlays to links." - (if (re-search-forward org-emph-re limit t) - (progn - (font-lock-prepend-text-property (match-beginning 2) (match-end 2) - 'face - (nth 1 (assoc (match-string 3) - org-emphasis-alist))) - (add-text-properties (match-beginning 2) (match-end 2) - '(font-lock-multiline t)) - (backward-char 1) - t))) + (let (rtn) + (while (and (not rtn) (re-search-forward org-emph-re limit t)) + (if (not (= (char-after (match-beginning 3)) + (char-after (match-beginning 4)))) + (progn + (setq rtn t) + (font-lock-prepend-text-property (match-beginning 2) (match-end 2) + 'face + (nth 1 (assoc (match-string 3) + org-emphasis-alist))) + (add-text-properties (match-beginning 2) (match-end 2) + '(font-lock-multiline t)) + (backward-char 1)))) + rtn)) + +(defun org-emphasize (&optional char) + "Insert or change an emphasis, i.e. a font like bold or italic. +If there is an active region, change that region to a new emphasis. +If there is no region, just insert the marker characters and position +the cursor between them. +CHAR should be either the marker character, or the first character of the +HTML tag associated with that emphasis. If CHAR is a space, the means +to remove the emphasis of the selected region. +If char is not given (for example in an interactive call) it +will be prompted for." + (interactive) + (let ((eal org-emphasis-alist) e det + (erc org-emphasis-regexp-components) + (prompt "") + (string "") beg end move tag c s) + (if (org-region-active-p) + (setq beg (region-beginning) end (region-end) + string (buffer-substring beg end)) + (setq move t)) + + (while (setq e (pop eal)) + (setq tag (car (org-split-string (nth 2 e) "[ <>/]+")) + c (aref tag 0)) + (push (cons c (string-to-char (car e))) det) + (setq prompt (concat prompt (format " [%s%c]%s" (car e) c + (substring tag 1))))) + (unless char + (message "%s" (concat "Emphasis marker or tag:" prompt)) + (setq char (read-char-exclusive))) + (setq char (or (cdr (assoc char det)) char)) + (if (equal char ?\ ) + (setq s "" move nil) + (unless (assoc (char-to-string char) org-emphasis-alist) + (error "No such emphasis marker: \"%c\"" char)) + (setq s (char-to-string char))) + (while (and (> (length string) 1) + (equal (substring string 0 1) (substring string -1)) + (assoc (substring string 0 1) org-emphasis-alist)) + (setq string (substring string 1 -1))) + (setq string (concat s string s)) + (if beg (delete-region beg end)) + (unless (or (bolp) + (string-match (concat "[" (nth 0 erc) "\n]") + (char-to-string (char-before (point))))) + (insert " ")) + (unless (string-match (concat "[" (nth 1 erc) "\n]") + (char-to-string (char-after (point)))) + (insert " ") (backward-char 1)) + (insert string) + (and move (backward-char 1)))) (defun org-activate-plain-links (limit) "Run through the buffer and add overlays to links." - (if (re-search-forward org-plain-link-re limit t) - (progn - (add-text-properties (match-beginning 0) (match-end 0) - (list 'mouse-face 'highlight - 'rear-nonsticky t - 'keymap org-mouse-map - )) - t))) + (catch 'exit + (let (f) + (while (re-search-forward org-plain-link-re limit t) + (setq f (get-text-property (match-beginning 0) 'face)) + (if (or (eq f 'org-tag) + (and (listp f) (memq 'org-tag f))) + nil + (add-text-properties (match-beginning 0) (match-end 0) + (list 'mouse-face 'highlight + 'rear-nonsticky t + 'keymap org-mouse-map + )) + (throw 'exit t)))))) (defun org-activate-angle-links (limit) "Run through the buffer and add overlays to links." @@ -3881,11 +4238,6 @@ between words." 'keymap org-mouse-map)) t))) -(defun org-font-lock-level () - (save-excursion - (org-back-to-heading t) - (- (match-end 0) (match-beginning 0)))) - (defun org-outline-level () (save-excursion (looking-at outline-regexp) @@ -3906,20 +4258,20 @@ between words." '("^[ \t]*\\(\\(|\\|\\+-[-+]\\).*\\S-\\)" (1 'org-table)) ;; Links + (if (memq 'tag lk) '(org-activate-tags (1 'org-tag prepend))) (if (memq 'angle lk) '(org-activate-angle-links (0 'org-link t))) (if (memq 'plain lk) '(org-activate-plain-links (0 'org-link t))) (if (memq 'bracket lk) '(org-activate-bracket-links (0 'org-link t))) (if (memq 'radio lk) '(org-activate-target-links (0 'org-link t))) (if (memq 'date lk) '(org-activate-dates (0 'org-date t))) - (if (memq 'tag lk) '(org-activate-tags (1 'org-tag prepend))) + '("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t)) '(org-hide-wide-columns (0 nil append)) ;; TODO lines (list (concat "^\\*+[ \t]*" org-not-done-regexp) '(1 'org-todo t)) ;; Priorities - (list (concat "\\[#[A-Z]\\]") '(0 'org-special-keyword t)) + (list (concat "\\[#[A-Z0-9]\\]") '(0 'org-special-keyword t)) ;; Special keywords - (list org-repeat-re '(0 'org-special-keyword t)) (list (concat "\\<" org-deadline-string) '(0 'org-special-keyword t)) (list (concat "\\<" org-scheduled-string) '(0 'org-special-keyword t)) (list (concat "\\<" org-closed-string) '(0 'org-special-keyword t)) @@ -3942,9 +4294,13 @@ between words." '("^#.*" (0 'font-lock-comment-face t)) ;; DONE (if org-fontify-done-headline - (list (concat "^[*]+ +\\<\\(" org-done-string "\\)\\(.*\\)\\>") + (list (concat "^[*]+ +\\<\\(" + (mapconcat 'regexp-quote org-done-keywords "\\|") + "\\)\\(.*\\)") '(1 'org-done t) '(2 'org-headline-done t)) - (list (concat "^[*]+ +\\<\\(" org-done-string "\\)\\>") + (list (concat "^[*]+ +\\<\\(" + (mapconcat 'regexp-quote org-done-keywords "\\|") + "\\)\\>") '(1 'org-done t))) ;; Table stuff '("^[ \t]*\\(:.*\\)" (1 'org-table t)) @@ -4088,7 +4444,8 @@ between words." (- (funcall outline-level) arg))) (org-show-subtree))) - ((save-excursion (beginning-of-line 1) (looking-at outline-regexp)) + ((and (save-excursion (beginning-of-line 1) (looking-at outline-regexp)) + (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) ;; At a heading: rotate between three different views (org-back-to-heading) (let ((goal-column 0) eoh eol eos) @@ -4102,20 +4459,30 @@ between words." (beginning-of-line 2)) (setq eol (point))) (outline-end-of-heading) (setq eoh (point)) (org-end-of-subtree t) - (skip-chars-forward " \t\n") - (beginning-of-line 1) ; in case this is an item + (unless (eobp) + (skip-chars-forward " \t\n") + (beginning-of-line 1) ; in case this is an item + ) (setq eos (1- (point)))) ;; Find out what to do next and set `this-command' (cond ((= eos eoh) ;; Nothing is hidden behind this heading (message "EMPTY ENTRY") - (setq org-cycle-subtree-status nil)) + (setq org-cycle-subtree-status nil) + (save-excursion + (goto-char eos) + (outline-next-heading) + (if (org-invisible-p) (org-flag-heading nil)))) ((>= eol eos) ;; Entire subtree is hidden in one line: open it (org-show-entry) (show-children) (message "CHILDREN") + (save-excursion + (goto-char eos) + (outline-next-heading) + (if (org-invisible-p) (org-flag-heading nil))) (setq org-cycle-subtree-status 'children) (run-hook-with-args 'org-cycle-hook 'children)) ((and (eq last-command this-command) @@ -4137,6 +4504,11 @@ between words." ((org-try-cdlatex-tab)) + ((and (eq org-cycle-emulate-tab 'exc-hl-bol) + (or (not (bolp)) + (not (looking-at outline-regexp)))) + (call-interactively (global-key-binding "\t"))) + ((if (and (memq org-cycle-emulate-tab '(white whitestart)) (save-excursion (beginning-of-line 1) (looking-at "[ \t]*")) (or (and (eq org-cycle-emulate-tab 'white) @@ -4151,7 +4523,7 @@ between words." (progn (beginning-of-line 1) (and (looking-at "[ \t]+") (replace-match "")))) - (indent-relative)) + (call-interactively (global-key-binding "\t"))) (t (save-excursion (org-back-to-heading) @@ -4177,13 +4549,13 @@ of the first headline in the buffer. This is important, because if the first headline is not level one, then (hide-sublevels 1) gives confusing results." (interactive) - (hide-sublevels (save-excursion - (goto-char (point-min)) - (if (re-search-forward (concat "^" outline-regexp) nil t) - (progn - (goto-char (match-beginning 0)) - (funcall outline-level)) - 1)))) + (let ((level (save-excursion + (goto-char (point-min)) + (if (re-search-forward (concat "^" outline-regexp) nil t) + (progn + (goto-char (match-beginning 0)) + (funcall outline-level)))))) + (and level (hide-sublevels level)))) (defun org-content (&optional arg) "Show all headlines in the buffer, like a table of contents. @@ -4210,13 +4582,53 @@ With numerical argument N, show content up to level N." This function is the default value of the hook `org-cycle-hook'." (when (get-buffer-window (current-buffer)) (cond - ((eq state 'overview) (org-first-headline-recenter 1)) +; ((eq state 'overview) (org-first-headline-recenter 1)) +; ((eq state 'overview) (org-beginning-of-line)) ((eq state 'content) nil) ((eq state 'all) nil) ((eq state 'folded) nil) ((eq state 'children) (or (org-subtree-end-visible-p) (recenter 1))) ((eq state 'subtree) (or (org-subtree-end-visible-p) (recenter 1)))))) + +(defun org-cycle-show-empty-lines (state) + "Show empty lines above all visible headlines. +The region to be covered depends on STATE when called through +`org-cycle-hook'. Lisp program can use t for STATE to get the +entire buffer covered. Note that an empty line is only shown if there +are at least `org-cycle-separator-lines' empty lines before the headeline." + (when (> org-cycle-separator-lines 0) + (save-excursion + (let* ((n org-cycle-separator-lines) + (re (cond + ((= n 1) "\\(\n[ \t]*\n\\*+\\) ") + ((= n 2) "^[ \t]*\\(\n[ \t]*\n\\*+\\) ") + (t (let ((ns (number-to-string (- n 2)))) + (concat "^\\(?:[ \t]*\n\\)\\{" ns "," ns "\\}" + "[ \t]*\\(\n[ \t]*\n\\*+\\) "))))) + beg end) + (cond + ((memq state '(overview contents t)) + (setq beg (point-min) end (point-max))) + ((memq state '(children folded)) + (setq beg (point) end (progn (org-end-of-subtree t t) + (beginning-of-line 2) + (point))))) + (when beg + (goto-char beg) + (while (re-search-forward re end t) + (if (not (get-char-property (match-end 1) 'invisible)) + (outline-flag-region + (match-beginning 1) (match-end 1) nil))))))) + ;; Never hide empty lines at the end of the file. + (save-excursion + (goto-char (point-max)) + (outline-previous-heading) + (outline-end-of-heading) + (if (and (looking-at "[ \t\n]+") + (= (match-end 0) (point-max))) + (outline-flag-region (point) (match-end 0) nil)))) + (defun org-subtree-end-visible-p () "Is the end of the current subtree visible?" (pos-visible-in-window-p @@ -4238,27 +4650,27 @@ Optional argument N means, put the headline into the Nth line of the window." (let ((cmds '(isearch-forward isearch-backward)) cmd) (while (setq cmd (pop cmds)) (substitute-key-definition cmd cmd org-goto-map global-map))) -(define-key org-goto-map "\C-m" 'org-goto-ret) -(define-key org-goto-map [(left)] 'org-goto-left) -(define-key org-goto-map [(right)] 'org-goto-right) -(define-key org-goto-map [(?q)] 'org-goto-quit) -(define-key org-goto-map [(control ?g)] 'org-goto-quit) -(define-key org-goto-map "\C-i" 'org-cycle) -(define-key org-goto-map [(tab)] 'org-cycle) -(define-key org-goto-map [(down)] 'outline-next-visible-heading) -(define-key org-goto-map [(up)] 'outline-previous-visible-heading) -(define-key org-goto-map "n" 'outline-next-visible-heading) -(define-key org-goto-map "p" 'outline-previous-visible-heading) -(define-key org-goto-map "f" 'outline-forward-same-level) -(define-key org-goto-map "b" 'outline-backward-same-level) -(define-key org-goto-map "u" 'outline-up-heading) -(define-key org-goto-map "\C-c\C-n" 'outline-next-visible-heading) -(define-key org-goto-map "\C-c\C-p" 'outline-previous-visible-heading) -(define-key org-goto-map "\C-c\C-f" 'outline-forward-same-level) -(define-key org-goto-map "\C-c\C-b" 'outline-backward-same-level) -(define-key org-goto-map "\C-c\C-u" 'outline-up-heading) +(org-defkey org-goto-map "\C-m" 'org-goto-ret) +(org-defkey org-goto-map [(left)] 'org-goto-left) +(org-defkey org-goto-map [(right)] 'org-goto-right) +(org-defkey org-goto-map [(?q)] 'org-goto-quit) +(org-defkey org-goto-map [(control ?g)] 'org-goto-quit) +(org-defkey org-goto-map "\C-i" 'org-cycle) +(org-defkey org-goto-map [(tab)] 'org-cycle) +(org-defkey org-goto-map [(down)] 'outline-next-visible-heading) +(org-defkey org-goto-map [(up)] 'outline-previous-visible-heading) +(org-defkey org-goto-map "n" 'outline-next-visible-heading) +(org-defkey org-goto-map "p" 'outline-previous-visible-heading) +(org-defkey org-goto-map "f" 'outline-forward-same-level) +(org-defkey org-goto-map "b" 'outline-backward-same-level) +(org-defkey org-goto-map "u" 'outline-up-heading) +(org-defkey org-goto-map "\C-c\C-n" 'outline-next-visible-heading) +(org-defkey org-goto-map "\C-c\C-p" 'outline-previous-visible-heading) +(org-defkey org-goto-map "\C-c\C-f" 'outline-forward-same-level) +(org-defkey org-goto-map "\C-c\C-b" 'outline-backward-same-level) +(org-defkey org-goto-map "\C-c\C-u" 'outline-up-heading) (let ((l '(1 2 3 4 5 6 7 8 9 0))) - (while l (define-key org-goto-map (int-to-string (pop l)) 'digit-argument))) + (while l (org-defkey org-goto-map (int-to-string (pop l)) 'digit-argument))) (defconst org-goto-help "Select a location to jump to, press RET @@ -4474,10 +4886,13 @@ the current headline." pos) (cond ((and (org-on-heading-p) (bolp) - (save-excursion (backward-char 1) (not (org-invisible-p)))) + (or (bobp) + (save-excursion (backward-char 1) (not (org-invisible-p))))) (open-line (if blank 2 1))) - ((and (bolp) (save-excursion - (backward-char 1) (not (org-invisible-p)))) + ((and (bolp) + (or (bobp) + (save-excursion + (backward-char 1) (not (org-invisible-p))))) nil) (t (newline (if blank 2 1)))) (insert head) (just-one-space) @@ -4500,8 +4915,8 @@ state (TODO by default). Also with prefix arg, force first state." (looking-at org-todo-line-regexp)) (if (or arg (not (match-beginning 2)) - (equal (match-string 2) org-done-string)) - (insert (car org-todo-keywords) " ") + (member (match-string 2) org-done-keywords)) + (insert (car org-todo-keywords-1) " ") (insert (match-string 2) " ")))) ;;; Promotion and Demotion @@ -4724,6 +5139,7 @@ is signaled in this case." (setq txt (buffer-substring beg end)) (delete-region beg end) (insert txt) + (or (bolp) (insert "\n")) (goto-char ins-point) (if folded (hide-subtree)) (move-marker ins-point nil))) @@ -4749,7 +5165,9 @@ This is a short-hand for marking the subtree and then copying it. If CUT is non-nil, actually cut the subtree." (interactive) (let (beg end folded) - (org-back-to-heading) + (if (interactive-p) + (org-back-to-heading nil) ; take what looks like a subtree + (org-back-to-heading t)) ; take what is really there (setq beg (point)) (save-match-data (save-excursion (outline-end-of-heading) @@ -4888,7 +5306,7 @@ If optional TXT is given, check this string instead of the current kill." (save-excursion (narrow-to-region (progn (org-back-to-heading) (point)) - (progn (org-end-of-subtree t) (point))))) + (progn (org-end-of-subtree t t) (point))))) ;;; Outline Sorting @@ -5130,7 +5548,7 @@ with the current numbers. With optional prefix argument ALL, do this for the whole buffer." (interactive "P") (save-excursion - (let* ((buffer-invisibility-spec nil) ; Emacs 21 compatibility + (let* ((buffer-invisibility-spec (org-inhibit-invisibility)) ; Emacs 21 (beg (progn (outline-back-to-heading) (point))) (end (move-marker (make-marker) (progn (outline-next-heading) (point)))) @@ -5214,13 +5632,24 @@ leave it alone. If it is larger than ind, set it to the target." (concat (make-string i1 ?\ ) l) l))) +(defcustom org-empty-line-terminates-plain-lists nil + "Non-nil means, an empty line ends all plain list levels. +When nil, empty lines are part of the preceeding item." + :group 'org-plain-lists + :type 'boolean) + (defun org-beginning-of-item () "Go to the beginning of the current hand-formatted item. If the cursor is not in an item, throw an error." (interactive) (let ((pos (point)) - (limit (save-excursion (org-back-to-heading) - (beginning-of-line 2) (point))) + (limit (save-excursion + (condition-case nil + (progn + (org-back-to-heading) + (beginning-of-line 2) (point)) + (error (point-min))))) + (ind-empty (if org-empty-line-terminates-plain-lists 0 10000)) ind ind1) (if (org-at-item-p) (beginning-of-line 1) @@ -5230,12 +5659,14 @@ If the cursor is not in an item, throw an error." (if (catch 'exit (while t (beginning-of-line 0) - (if (< (point) limit) (throw 'exit nil)) - (unless (looking-at "[ \t]*$") + (if (or (bobp) (< (point) limit)) (throw 'exit nil)) + + (if (looking-at "[ \t]*$") + (setq ind1 ind-empty) (skip-chars-forward " \t") - (setq ind1 (current-column)) - (if (< ind1 ind) - (throw 'exit (org-at-item-p)))))) + (setq ind1 (current-column))) + (if (< ind1 ind) + (progn (beginning-of-line 1) (throw 'exit (org-at-item-p)))))) nil (goto-char pos) (error "Not in an item"))))) @@ -5244,22 +5675,27 @@ If the cursor is not in an item, throw an error." "Go to the end of the current hand-formatted item. If the cursor is not in an item, throw an error." (interactive) - (let ((pos (point)) - (limit (save-excursion (outline-next-heading) (point))) - (ind (save-excursion - (org-beginning-of-item) - (skip-chars-forward " \t") - (current-column))) - ind1) - (if (catch 'exit - (while t - (beginning-of-line 2) - (if (>= (point) limit) (throw 'exit t)) - (unless (looking-at "[ \t]*$") - (skip-chars-forward " \t") - (setq ind1 (current-column)) - (if (<= ind1 ind) (throw 'exit t))))) - (beginning-of-line 1) + (let* ((pos (point)) + ind1 + (ind-empty (if org-empty-line-terminates-plain-lists 0 10000)) + (limit (save-excursion (outline-next-heading) (point))) + (ind (save-excursion + (org-beginning-of-item) + (skip-chars-forward " \t") + (current-column))) + (end (catch 'exit + (while t + (beginning-of-line 2) + (if (eobp) (throw 'exit (point))) + (if (>= (point) limit) (throw 'exit (point-at-bol))) + (if (looking-at "[ \t]*$") + (setq ind1 ind-empty) + (skip-chars-forward " \t") + (setq ind1 (current-column))) + (if (<= ind1 ind) + (throw 'exit (point-at-bol))))))) + (if end + (goto-char end) (goto-char pos) (error "Not in an item")))) @@ -5338,7 +5774,11 @@ so this really moves item trees." (while t (beginning-of-line 0) (if (looking-at "[ \t]*$") - nil + (if org-empty-line-terminates-plain-lists + (progn + (goto-char pos) + (error "Cannot move this item further up")) + nil) (if (<= (setq ind1 (org-get-indentation)) ind) (throw 'exit t))))) (condition-case nil @@ -5468,16 +5908,16 @@ When called with prefix argument FIND-DONE, find whole trees without any open TODO items and archive them (after getting confirmation from the user). If the cursor is not at a headline when this comand is called, try all level 1 trees. If the cursor is on a headline, only try the direct children of -this heading. " +this heading." (interactive "P") (if find-done (org-archive-all-done) ;; Save all relevant TODO keyword-relatex variables (let ((tr-org-todo-line-regexp org-todo-line-regexp) ; keep despite compiler - (tr-org-todo-keywords org-todo-keywords) - (tr-org-todo-interpretation org-todo-interpretation) - (tr-org-done-string org-done-string) + (tr-org-todo-keywords-1 org-todo-keywords-1) + (tr-org-todo-kwd-alist org-todo-kwd-alist) + (tr-org-done-keywords org-done-keywords) (tr-org-todo-regexp org-todo-regexp) (tr-org-todo-line-regexp org-todo-line-regexp) (tr-org-odd-levels-only org-odd-levels-only) @@ -5488,8 +5928,10 @@ this heading. " ;; Try to find a local archive location (save-excursion - (if (or (re-search-backward re nil t) (re-search-forward re nil t)) - (setq org-archive-location (match-string 1)))) + (save-restriction + (widen) + (if (or (re-search-backward re nil t) (re-search-forward re nil t)) + (setq org-archive-location (match-string 1))))) (if (string-match "\\(.*\\)::\\(.*\\)" org-archive-location) (progn @@ -5516,7 +5958,8 @@ this heading. " ;; Enforce org-mode for the archive buffer (if (not (org-mode-p)) ;; Force the mode for future visits. - (let ((org-insert-mode-line-in-empty-file t)) + (let ((org-insert-mode-line-in-empty-file t) + (org-inhibit-startup t)) (call-interactively 'org-mode))) (when newfile-p (goto-char (point-max)) @@ -5524,13 +5967,13 @@ this heading. " (buffer-file-name this-buffer)))) ;; Force the TODO keywords of the original buffer (let ((org-todo-line-regexp tr-org-todo-line-regexp) - (org-todo-keywords tr-org-todo-keywords) - (org-todo-interpretation tr-org-todo-interpretation) - (org-done-string tr-org-done-string) + (org-todo-keywords-1 tr-org-todo-keywords-1) + (org-todo-kwd-alist tr-org-todo-kwd-alist) + (org-done-keywords tr-org-done-keywords) (org-todo-regexp tr-org-todo-regexp) (org-todo-line-regexp tr-org-todo-line-regexp) (org-odd-levels-only - (if (local-variable-p 'org-odd-levels-only) + (if (local-variable-p 'org-odd-levels-only (current-buffer)) org-odd-levels-only tr-org-odd-levels-only))) (goto-char (point-min)) @@ -5556,10 +5999,10 @@ this heading. " (goto-char (point-max)) (insert "\n")) ;; Paste (org-paste-subtree (org-get-legal-level level 1)) - ;; Mark the entry as done, i.e. set to last work in org-todo-keywords + ;; Mark the entry as done, i.e. set to last word in org-todo-keywords-1 FIXME: not right anymore!!!!!!! (if org-archive-mark-done (let (org-log-done) - (org-todo (length org-todo-keywords)))) + (org-todo (length org-todo-keywords-1)))) ;; Move cursor to right after the TODO keyword (when org-archive-stamp-time (beginning-of-line 1) @@ -5653,7 +6096,7 @@ When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag." (defun org-toggle-tag (tag &optional onoff) "Toggle the tag TAG for the current line. If ONOFF is `on' or `off', don't toggle but set to this state." - (unless (org-on-heading-p) (error "Not on headling")) + (unless (org-on-heading-p t) (error "Not on headling")) (let (res current) (save-excursion (beginning-of-line) @@ -5749,6 +6192,8 @@ outside the table.") "Table row types, non-nil only for the duration of a comand.") (defvar org-table-current-begin-line nil "Table begin line, non-nil only for the duration of a comand.") +(defvar org-table-current-begin-pos nil + "Table begin position, non-nil only for the duration of a comand.") (defvar org-table-dlines nil "Vector of data line line numbers in the current table.") (defvar org-table-hlines nil @@ -5760,11 +6205,17 @@ outside the table.") "Regular expression for matching ranges in formulas.") (defconst org-table-range-regexp2 - "@\\([-+]?I*[-+]?[0-9]*\\)?\\(\\$[-+]?[a-zA-Z0-9]+\\)?\\(\\.\\.@?\\([-+]?I*[-+]?[0-9]*\\)?\\(\\$[-+]?[a-zA-Z0-9]+\\)?\\)?\\|\\$[a-zA-Z0-9]+\\.\\.\\$[a-zA-Z0-9]+" - "Regular expression to recognize ranges in formulas for highlighting.") + (concat + "\\(" "@[-0-9I$&]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\|" "\\$[a-zA-Z0-9]+" "\\)" + "\\.\\." + "\\(" "@?[-0-9I$&]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\|" "\\$[a-zA-Z0-9]+" "\\)") + "Match a range for reference display.") -(defvar org-inhibit-highlight-removal nil) +(defconst org-table-translate-regexp + (concat "\\(" "@[-0-9I$]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\)") + "Match a reference that needs translation, for reference display.") +(defvar org-inhibit-highlight-removal nil) ; dynamically scoped param (defun org-table-create-with-table.el () "Use the table.el package to insert a new table. @@ -5783,8 +6234,9 @@ and table.el tables." (defun org-table-create-or-convert-from-region (arg) "Convert region to table, or create an empty table. -If there is an active region, convert it to a table. If there is no such -region, create an empty table." +If there is an active region, convert it to a table, using the function +`org-table-convert-region'. +If there is no such region, create an empty table with `org-table-create'." (interactive "P") (if (org-region-active-p) (org-table-convert-region (region-beginning) (region-end) arg) @@ -5827,7 +6279,9 @@ SIZE is a string Columns x Rows like for example \"3x2\"." The region goes from BEG0 to END0, but these borders will be moved slightly, to make sure a beginning of line in the first line is included. When NSPACE is non-nil, it indicates the minimum number of spaces that -separate columns (default: just one space)." +separate columns. By default, the function first checks if every line +contains at lease one TAB. If yes, it assumes that the material is TAB +separated. If not, it assumes a single space as separator." (interactive "rP") (let* ((beg (min beg0 end0)) (end (max beg0 end0)) @@ -6249,9 +6703,13 @@ If the current field is not empty, it is copied down to the next row, and the cursor is moved with it. Therefore, repeating this command causes the column to be filled row-by-row. If the variable `org-table-copy-increment' is non-nil and the field is an -integer, it will be incremented while copying." +integer or a timestamp, it will be incremented while copying. In the case of +a timestamp, if the cursor is on the year, change the year. If it is on the +month or the day, change that. Point will stay on the current date field +in order to easily repeat the interval." (interactive "p") (let* ((colpos (org-table-current-column)) + (col (current-column)) (field (org-table-get-field)) (non-empty (string-match "[^ \t]" field)) (beg (org-table-begin)) @@ -6279,8 +6737,12 @@ integer, it will be incremented while copying." (string-match "^[0-9]+$" txt)) (setq txt (format "%d" (+ (string-to-number txt) 1)))) (insert txt) - (org-table-maybe-recalculate-line) - (org-table-align)) + (move-to-column col) + (if (and org-table-copy-increment (org-at-timestamp-p t)) + (org-timestamp-up 1) + (org-table-maybe-recalculate-line)) + (org-table-align) + (move-to-column col)) (error "No non-empty field found")))) (defun org-table-check-inside-data-field () @@ -6333,7 +6795,7 @@ is always the old value." (defun org-table-field-info (arg) "Show info about the current field, and highlight any reference at point." - (interactive "P") + (interactive "P") (org-table-get-specials) (save-excursion (let* ((pos (point)) @@ -6344,21 +6806,26 @@ is always the old value." (eql (org-table-get-stored-formulas)) (dline (org-table-current-dline)) (ref (format "@%d$%d" dline col)) + (ref1 (org-table-convert-refs-to-an ref)) (fequation (or (assoc name eql) (assoc ref eql))) - (cequation (assoc (int-to-string col) eql))) + (cequation (assoc (int-to-string col) eql)) + (eqn (or fequation cequation))) (goto-char pos) (condition-case nil - (org-show-reference 'local) + (org-table-show-reference 'local) (error nil)) - (message "line @%d, col $%s%s, ref @%d$%d%s%s" + (message "line @%d, col $%s%s, ref @%d$%d or %s%s%s" dline col (if cname (concat " or $" cname) "") - dline col + dline col ref1 (if name (concat " or $" name) "") ;; FIXME: formula info not correct if special table line - (if (or fequation cequation) - (concat ", " (if fequation "field" "column") - " formula applies" "") + (if eqn + (concat ", formula: " + (org-table-formula-to-user + (concat + (if (string-match "^[$@]"(car eqn)) "" "$") + (car eqn) "=" (cdr eqn)))) ""))))) (defun org-table-current-column () @@ -6573,7 +7040,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (goto-line linepos) (org-table-goto-column colpos) (org-table-align) - (org-table-fix-formulas + (org-table-fix-formulas "$" (list (cons (number-to-string col) (number-to-string colpos)) (cons (number-to-string colpos) (number-to-string col)))))) @@ -6591,7 +7058,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (interactive "P") (let* ((col (current-column)) (pos (point)) - (hline1p (save-excursion (beginning-of-line 1) + (hline1p (save-excursion (beginning-of-line 1) (looking-at org-table-hline-regexp))) (dline1 (org-table-current-dline)) (dline2 (+ dline1 (if up -1 1))) @@ -6612,7 +7079,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (beginning-of-line 0) (move-to-column col) (unless (or hline1p hline2p) - (org-table-fix-formulas + (org-table-fix-formulas "@" (list (cons (number-to-string dline1) (number-to-string dline2)) (cons (number-to-string dline2) (number-to-string dline1))))))) @@ -6635,9 +7102,9 @@ With prefix ARG, insert below the current line." (org-table-align)) (org-table-fix-formulas "@" nil (1- (org-table-current-dline)) 1))) -(defun org-table-insert-hline (&optional arg) +(defun org-table-insert-hline (&optional above) "Insert a horizontal-line below the current line into the table. -With prefix ARG, insert above the current line." +With prefix ABOVE, insert above the current line." (interactive "P") (if (not (org-at-table-p)) (error "Not at a table")) @@ -6649,12 +7116,25 @@ With prefix ARG, insert above the current line." (concat "+" (make-string (- (match-end 1) (match-beginning 1)) ?-) "|") t t line))) (and (string-match "\\+" line) (setq line (replace-match "|" t t line))) - (beginning-of-line (if arg 1 2)) + (beginning-of-line (if above 1 2)) (insert line "\n") - (beginning-of-line (if arg 1 -1)) + (beginning-of-line (if above 1 -1)) (move-to-column col) (and org-table-overlay-coordinates (org-table-align)))) +(defun org-table-hline-and-move (&optional same-column) + "Insert a hline and move to the row below that line." + (interactive "P") + (let ((col (org-table-current-column))) + (org-table-maybe-eval-formula) + (org-table-maybe-recalculate-line) + (org-table-insert-hline) + (end-of-line 2) + (if (looking-at "\n[ \t]*|-") + (progn (insert "\n|") (org-table-align)) + (org-table-next-field)) + (if same-column (org-table-goto-column col)))) + (defun org-table-clean-line (s) "Convert a table line S into a string with only \"|\" and space. In particular, this does handle wide and invisible characters." @@ -6959,15 +7439,14 @@ it can be edited in place." (switch-to-buffer-other-window "*Org tmp*") (erase-buffer) (insert "#\n# Edit field and finish with C-c C-c\n#\n") - (org-mode) + (let ((org-inhibit-startup t)) (org-mode)) (goto-char (setq p (point-max))) (insert (org-trim field)) (remove-text-properties p (point-max) '(invisible t org-cwidth t display t intangible t)) (goto-char p) - (org-set-local 'org-finish-function - 'org-table-finish-edit-field) + (org-set-local 'org-finish-function 'org-table-finish-edit-field) (org-set-local 'org-window-configuration cw) (org-set-local 'org-field-marker pos) (message "Edit and finish with C-c C-c")))) @@ -6997,8 +7476,8 @@ the table and kill the editing buffer." (defun org-trim (s) "Remove whitespace at beginning and end of string." - (if (string-match "^[ \t]+" s) (setq s (replace-match "" t t s))) - (if (string-match "[ \t]+$" s) (setq s (replace-match "" t t s))) + (if (string-match "^[ \t\n\r]+" s) (setq s (replace-match "" t t s))) + (if (string-match "[ \t\n\r]+$" s) (setq s (replace-match "" t t s))) s) (defun org-wrap (string &optional width lines) @@ -7159,21 +7638,25 @@ If NLAST is a number, only the NLAST fields will actually be summed." ((equal n 0) nil) (t n)))) -(defun org-table-current-field-formula () +(defun org-table-current-field-formula (&optional key noerror) "Return the formula active for the current field. -Assumes that specials are in place." +Assumes that specials are in place. +If KEY is given, return the key to this formula. +Otherwise return the formula preceeded with \"=\" or \":=\"." (let* ((name (car (rassoc (list (org-current-line) (org-table-current-column)) org-table-named-field-locations))) (col (org-table-current-column)) (scol (int-to-string col)) (ref (format "@%d$%d" (org-table-current-dline) col)) - (stored-list (org-table-get-stored-formulas)) + (stored-list (org-table-get-stored-formulas noerror)) (ass (or (assoc name stored-list) (assoc ref stored-list) (assoc scol stored-list)))) - (if ass (concat (if (string-match "^[0-9]+$" (car ass)) "=" ":=") - (cdr ass))))) + (if key + (car ass) + (if ass (concat (if (string-match "^[0-9]+$" (car ass)) "=" ":=") + (cdr ass)))))) (defun org-table-get-formula (&optional equation named) "Read a formula from the minibuffer, offer stored formula as default. @@ -7199,11 +7682,16 @@ When NAMED is non-nil, look for a named equation." stored) ((stringp equation) equation) - (t (read-string - (format "%s formula $%s=" (if named "Field" "Column") scol) - (or stored "") 'org-table-formula-history - ;stored - )))) + (t (org-table-formula-from-user + (read-string + (org-table-formula-to-user + (format "%s formula %s%s=" + (if named "Field" "Column") + (if (member (string-to-char scol) '(?$ ?@)) "" "$") + scol)) + (if stored (org-table-formula-to-user stored) "") + 'org-table-formula-history + ))))) mustsave) (when (not (string-match "\\S-" eq)) ;; remove formula @@ -7225,7 +7713,7 @@ When NAMED is non-nil, look for a named equation." (defun org-table-store-formulas (alist) "Store the list of formulas below the current table." - (setq alist (sort alist (lambda (a b) (string< (car a) (car b))))) + (setq alist (sort alist 'org-table-formula-less-p)) (save-excursion (goto-char (org-table-end)) (if (looking-at "\\([ \t]*\n\\)*#\\+TBLFM:\\(.*\n?\\)") @@ -7242,7 +7730,20 @@ When NAMED is non-nil, look for a named equation." alist "::") "\n"))) -(defun org-table-get-stored-formulas () +(defsubst org-table-formula-make-cmp-string (a) + (when (string-match "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" a) + (concat + (if (match-end 2) (format "@%05d" (string-to-number (match-string 2 a))) "") + (if (match-end 4) (format "$%05d" (string-to-number (match-string 4 a))) "") + (if (match-end 5) (concat "@@" (match-string 5 a)))))) + +(defun org-table-formula-less-p (a b) + "Compare two formulas for sorting." + (let ((as (org-table-formula-make-cmp-string (car a))) + (bs (org-table-formula-make-cmp-string (car b)))) + (and as bs (string< as bs)))) + +(defun org-table-get-stored-formulas (&optional noerror) "Return an alist with the stored formulas directly after current table." (interactive) (let (scol eq eq-alist strings string seen) @@ -7252,13 +7753,18 @@ When NAMED is non-nil, look for a named equation." (setq strings (org-split-string (match-string 2) " *:: *")) (while (setq string (pop strings)) (when (string-match "\\(@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\\)\\) *= *\\(.*[^ \t]\\)" string) - (setq scol (if (match-end 2) - (match-string 2 string) + (setq scol (if (match-end 2) + (match-string 2 string) (match-string 1 string)) eq (match-string 3 string) eq-alist (cons (cons scol eq) eq-alist)) (if (member scol seen) - (error "Double definition `$%s=' in TBLFM line, please fix by hand" scol) + (if noerror + (progn + (message "Double definition `$%s=' in TBLFM line, please fix by hand" scol) + (ding) + (sit-for 2)) + (error "Double definition `$%s=' in TBLFM line, please fix by hand" scol)) (push scol seen)))))) (nreverse eq-alist))) @@ -7297,7 +7803,8 @@ For all numbers larger than LIMIT, shift them by DELTA." org-table-local-parameters nil org-table-named-field-locations nil org-table-current-begin-line nil - org-table-current-line-types nil) + org-table-current-begin-pos nil + org-table-current-line-types nil) (goto-char beg) (when (re-search-forward "^[ \t]*| *! *\\(|.*\\)" end t) (setq names (org-split-string (match-string 1) " *| *") @@ -7334,7 +7841,8 @@ For all numbers larger than LIMIT, shift them by DELTA." ;; Analyse the line types (goto-char beg) (setq org-table-current-begin-line (org-current-line) - l org-table-current-begin-line) + org-table-current-begin-pos (point) + l org-table-current-begin-line) (while (looking-at "[ \t]*|\\(-\\)?") (push (if (match-end 1) 'hline 'dline) types) (if (match-end 1) (push l hlines) (push l dlines)) @@ -7344,13 +7852,6 @@ For all numbers larger than LIMIT, shift them by DELTA." org-table-dlines (apply 'vector (cons nil (nreverse dlines))) org-table-hlines (apply 'vector (cons nil (nreverse hlines))))))) -(defun org-this-word () - ;; Get the current word - (save-excursion - (let ((beg (progn (skip-chars-backward "^ \t\n") (point))) - (end (progn (skip-chars-forward "^ \t\n") (point)))) - (buffer-substring-no-properties beg end)))) - (defun org-table-maybe-eval-formula () "Check if the current field starts with \"=\" or \":=\". If yes, store the formula and apply it." @@ -7364,7 +7865,8 @@ If yes, store the formula and apply it." eq (match-string 1 field)) (if (or (fboundp 'calc-eval) (equal (substring eq 0 (min 2 (length eq))) "'(")) - (org-table-eval-formula (if named '(4) nil) eq) + (org-table-eval-formula (if named '(4) nil) + (org-table-formula-from-user eq)) (error "Calc does not seem to be installed, and is needed to evaluate the formula")))))) (defvar org-recalc-commands nil @@ -7485,7 +7987,7 @@ formula is installed as valid in only this specific field. When called with two `C-u' prefixes, insert the active equation for the field back into the current field, so that it can be -edited there. This is useful in order to use \\[org-show-reference] +edited there. This is useful in order to use \\[org-table-show-reference] to check the referenced fields. When called, the command first prompts for a formula, which is read in @@ -7577,7 +8079,7 @@ not overwrite the stored one." ;; Insert complex ranges (while (string-match org-table-range-regexp form) (setq form - (replace-match + (replace-match (save-match-data (org-table-make-reference (org-table-get-range (match-string 0 form) nil n0) @@ -7585,7 +8087,7 @@ not overwrite the stored one." t t form))) ;; Insert simple ranges (while (string-match "\\$\\([0-9]+\\)\\.\\.\\$\\([0-9]+\\)" form) - (setq form + (setq form (replace-match (save-match-data (org-table-make-reference @@ -7596,17 +8098,16 @@ not overwrite the stored one." t t form))) (setq form0 form) ;; Insert the references to fields in same row - (while (string-match "\\$\\([0-9]+\\)?" form) - (setq n (if (match-beginning 1) - (string-to-number (match-string 1 form)) - n0) - x (nth (1- n) fields)) + (while (string-match "\\$\\([0-9]+\\)" form) + (setq n (string-to-number (match-string 1 form)) + x (nth (1- (if (= n 0) n0 n)) fields)) (unless x (error "Invalid field specifier \"%s\"" (match-string 0 form))) (setq form (replace-match (save-match-data (org-table-make-reference x nil numbers lispp)) t t form))) + (if lispp (setq ev (condition-case nil (eval (eval (read form))) @@ -7616,7 +8117,7 @@ not overwrite the stored one." (error "Calc does not seem to be installed, and is needed to evaluate the formula")) (setq ev (calc-eval (cons form modes) (if numbers 'num)))) - + (when org-table-formula-debug (with-output-to-temp-buffer "*Substitution History*" (princ (format "Substitution history of formula @@ -7738,7 +8239,7 @@ and TABLE is a vector with line types." (setq i 0 hdir "+") (if (eq (aref table 0) 'hline) (setq hn (1- hn))))) (if (and (not hn) on (not odir)) - (error "should never happen");;(aref org-table-dlines on) FIXME + (error "should never happen");;(aref org-table-dlines on) (if (and hn (> hn 0)) (setq i (org-find-row-type table i 'hline (equal hdir "-") nil hn))) (if on @@ -7837,7 +8338,7 @@ With prefix arg ALL, do this for all lines in the table." (goto-char beg) (and all (message "Re-applying formulas to full table...")) (while (re-search-forward line-re end t) - (unless (string-match "^ *[_^!$] *$" (org-table-get-field 1)) + (unless (string-match "^ *[_^!$/] *$" (org-table-get-field 1)) ;; Unprotected line, recalculate (and all (message "Re-applying formulas to full table...(line %d)" (setq cnt (1+ cnt)))) @@ -7858,7 +8359,7 @@ With prefix arg ALL, do this for all lines in the table." a (assoc name org-table-named-field-locations)) (and (not a) (string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" name) - (setq a + (setq a (list name (aref org-table-dlines @@ -7876,12 +8377,12 @@ With prefix arg ALL, do this for all lines in the table." (org-table-goto-column thiscol) (or noalign (and org-table-may-need-update (org-table-align)) (and all (message "Re-applying formulas...done")))))) - + (defun org-table-iterate (&optional arg) "Recalculate the table until it does not change anymore." (interactive "P") (let ((imax (if arg (prefix-numeric-value arg) 10)) - (i 0) + (i 0) (lasttbl (buffer-substring (org-table-begin) (org-table-end))) thistbl) (catch 'exit @@ -7924,32 +8425,74 @@ Parameters get priority." (and (fboundp 'constants-get) (constants-get const)) "#UNDEFINED_NAME")) -(defvar org-edit-formulas-map (make-sparse-keymap)) -(define-key org-edit-formulas-map "\C-c\C-c" 'org-finish-edit-formulas) -(define-key org-edit-formulas-map "\C-c\C-q" 'org-abort-edit-formulas) -(define-key org-edit-formulas-map "\C-c?" 'org-show-reference) -(define-key org-edit-formulas-map [(shift up)] 'org-table-edit-line-up) -(define-key org-edit-formulas-map [(shift down)] 'org-table-edit-line-down) -(define-key org-edit-formulas-map [(shift left)] 'org-table-edit-backward-field) -(define-key org-edit-formulas-map [(shift right)] 'org-table-edit-next-field) -(define-key org-edit-formulas-map [(meta up)] 'org-table-edit-scroll-down) -(define-key org-edit-formulas-map [(meta down)] 'org-table-edit-scroll) -(define-key org-edit-formulas-map [(meta tab)] 'lisp-complete-symbol) -(define-key org-edit-formulas-map "\M-\C-i" 'lisp-complete-symbol) -(define-key org-edit-formulas-map [(tab)] 'org-edit-formula-lisp-indent) -(define-key org-edit-formulas-map "\C-i" 'org-edit-formula-lisp-indent) +(defvar org-table-fedit-map (make-sparse-keymap)) +(org-defkey org-table-fedit-map "\C-x\C-s" 'org-table-fedit-finish) +(org-defkey org-table-fedit-map "\C-c\C-s" 'org-table-fedit-finish) +(org-defkey org-table-fedit-map "\C-c\C-c" 'org-table-fedit-finish) +(org-defkey org-table-fedit-map "\C-c\C-q" 'org-table-fedit-abort) +(org-defkey org-table-fedit-map "\C-c?" 'org-table-show-reference) +(org-defkey org-table-fedit-map [(meta shift up)] 'org-table-fedit-line-up) +(org-defkey org-table-fedit-map [(meta shift down)] 'org-table-fedit-line-down) +(org-defkey org-table-fedit-map [(shift up)] 'org-table-fedit-ref-up) +(org-defkey org-table-fedit-map [(shift down)] 'org-table-fedit-ref-down) +(org-defkey org-table-fedit-map [(shift left)] 'org-table-fedit-ref-left) +(org-defkey org-table-fedit-map [(shift right)] 'org-table-fedit-ref-right) +(org-defkey org-table-fedit-map [(meta up)] 'org-table-fedit-scroll-down) +(org-defkey org-table-fedit-map [(meta down)] 'org-table-fedit-scroll) +(org-defkey org-table-fedit-map [(meta tab)] 'lisp-complete-symbol) +(org-defkey org-table-fedit-map "\M-\C-i" 'lisp-complete-symbol) +(org-defkey org-table-fedit-map [(tab)] 'org-table-fedit-lisp-indent) +(org-defkey org-table-fedit-map "\C-i" 'org-table-fedit-lisp-indent) +(org-defkey org-table-fedit-map "\C-c\C-r" 'org-table-fedit-toggle-ref-type) +(org-defkey org-table-fedit-map "\C-c}" 'org-table-fedit-toggle-coordinates) + +(easy-menu-define org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu" + '("Edit-Formulas" + ["Finish and Install" org-table-fedit-finish t] + ["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"] + ["Abort" org-table-fedit-abort t] + "--" + ["Pretty-Print Lisp Formula" org-table-fedit-lisp-indent t] + ["Complete Lisp Symbol" lisp-complete-symbol t] + "--" + "Shift Reference at Point" + ["Up" org-table-fedit-ref-up t] + ["Down" org-table-fedit-ref-down t] + ["Left" org-table-fedit-ref-left t] + ["Right" org-table-fedit-ref-right t] + "-" + "Change Test Row for Column Formulas" + ["Up" org-table-fedit-line-up t] + ["Down" org-table-fedit-line-down t] + "--" + ["Scroll Table Window" org-table-fedit-scroll t] + ["Scroll Table Window down" org-table-fedit-scroll-down t] + ["Show Table Grid" org-table-fedit-toggle-coordinates + :style toggle :selected (with-current-buffer (marker-buffer org-pos) + org-table-overlay-coordinates)] + "--" + ["Standard Refs (B3 instead of @3$2)" org-table-fedit-toggle-ref-type + :style toggle :selected org-table-buffer-is-an])) (defvar org-pos) (defun org-table-edit-formulas () "Edit the formulas of the current table in a separate buffer." (interactive) + (when (save-excursion (beginning-of-line 1) (looking-at "#\\+TBLFM")) + (beginning-of-line 0)) (unless (org-at-table-p) (error "Not at a table")) (org-table-get-specials) - (let ((eql (org-table-get-stored-formulas)) + (let ((key (org-table-current-field-formula 'key 'noerror)) + (eql (sort (org-table-get-stored-formulas 'noerror) + 'org-table-formula-less-p)) (pos (move-marker (make-marker) (point))) + (startline 1) (wc (current-window-configuration)) - entry s) + (titles '((column . "# Column Formulas\n") + (field . "# Field Formulas\n") + (named . "# Named Field Formulas\n"))) + entry s type title) (switch-to-buffer-other-window "*Edit Formulas*") (erase-buffer) ;; Keep global-font-lock-mode from turning on font-lock-mode @@ -7958,38 +8501,226 @@ Parameters get priority." (org-set-local 'font-lock-global-modes (list 'not major-mode)) (org-set-local 'org-pos pos) (org-set-local 'org-window-configuration wc) - (use-local-map org-edit-formulas-map) - (org-add-hook 'post-command-hook 'org-table-edit-formulas-post-command t t) - (setq s "# `C-c C-c' to finish, `C-u C-c C-c' to also apply, `C-c C-q' to abort. -# `TAB' to pretty-print Lisp expressions, `M-TAB' to complete List symbols -# `M-up/down' to scroll table, `S-up/down' to change line for column formulas\n\n") - - (put-text-property 0 (length s) 'face 'font-lock-comment-face s) - (insert s) + (use-local-map org-table-fedit-map) + (org-add-hook 'post-command-hook 'org-table-fedit-post-command t t) + (easy-menu-add org-table-fedit-menu) + (setq startline (org-current-line)) (while (setq entry (pop eql)) + (setq type (cond + ((equal (string-to-char (car entry)) ?@) 'field) + ((string-match "^[0-9]" (car entry)) 'column) + (t 'named))) + (when (setq title (assq type titles)) + (or (bobp) (insert "\n")) + (insert (org-add-props (cdr title) nil 'face font-lock-comment-face)) + (setq titles (delq title titles))) + (if (equal key (car entry)) (setq startline (org-current-line))) (setq s (concat (if (equal (string-to-char (car entry)) ?@) "" "$") (car entry) " = " (cdr entry) "\n")) (remove-text-properties 0 (length s) '(face nil) s) (insert s)) - (goto-char (point-min)) - (message "Edit formulas and finish with `C-c C-c'."))) + (if (eq org-table-use-standard-references t) + (org-table-fedit-toggle-ref-type)) + (goto-line startline) + (message "Edit formulas and finish with `C-c C-c'. See menu for more commands."))) -(defun org-table-edit-formulas-post-command () +(defun org-table-fedit-post-command () (when (not (memq this-command '(lisp-complete-symbol))) (let ((win (selected-window))) (save-excursion (condition-case nil - (org-show-reference) + (org-table-show-reference) (error nil)) (select-window win))))) -(defun org-finish-edit-formulas (&optional arg) +(defun org-table-formula-to-user (s) + "Convert a formula from internal to user representation." + (if (eq org-table-use-standard-references t) + (org-table-convert-refs-to-an s) + s)) + +(defun org-table-formula-from-user (s) + "Convert a formula from user to internal representation." + (if org-table-use-standard-references + (org-table-convert-refs-to-rc s) + s)) + +(defun org-table-convert-refs-to-rc (s) + "Convert spreadsheet references from AB7 to @7$28. +Works for single references, but also for entire formulas and even the +full TBLFM line." + (let ((start 0)) + (while (string-match "\\<\\([a-zA-Z]+\\)\\([0-9]+\\>\\|&\\)\\|\\(;[^\r\n:]+\\)" s start) + (cond + ((match-end 3) + ;; format match, just advance + (setq start (match-end 0))) + ((and (> (match-beginning 0) 0) + (equal ?. (aref s (max (1- (match-beginning 0)) 0)))) + ;; 3.e5 or something like this. FIXME: is this ok???? + (setq start (match-end 0))) + (t + (setq start (match-beginning 0) + s (replace-match + (if (equal (match-string 2 s) "&") + (format "$%d" (org-letters-to-number (match-string 1 s))) + (format "@%d$%d" + (string-to-number (match-string 2 s)) + (org-letters-to-number (match-string 1 s)))) + t t s))))) + s)) + +(defun org-table-convert-refs-to-an (s) + "Convert spreadsheet references from to @7$28 to AB7. +Works for single references, but also for entire formulas and even the +full TBLFM line." + (while (string-match "@\\([0-9]+\\)$\\([0-9]+\\)" s) + (setq s (replace-match + (format "%s%d" + (org-number-to-letters + (string-to-number (match-string 2 s))) + (string-to-number (match-string 1 s))) + t t s))) + (while (string-match "\\(^\\|[^0-9a-zA-Z]\\)\\$\\([0-9]+\\)" s) + (setq s (replace-match (concat "\\1" + (org-number-to-letters + (string-to-number (match-string 2 s))) "&") + t nil s))) + s) + +(defun org-letters-to-number (s) + "Convert a base 26 number represented by letters into an integer. +For example: AB -> 28." + (let ((n 0)) + (setq s (upcase s)) + (while (> (length s) 0) + (setq n (+ (* n 26) (string-to-char s) (- ?A) 1) + s (substring s 1))) + n)) + +(defun org-number-to-letters (n) + "Convert an integer into a base 26 number represented by letters. +For example: 28 -> AB." + (let ((s "")) + (while (> n 0) + (setq s (concat (char-to-string (+ (mod (1- n) 26) ?A)) s) + n (/ (1- n) 26))) + s)) + +(defun org-table-fedit-convert-buffer (function) + "Convert all references in this buffer, using FUNTION." + (let ((line (org-current-line))) + (goto-char (point-min)) + (while (not (eobp)) + (insert (funcall function (buffer-substring (point) (point-at-eol)))) + (delete-region (point) (point-at-eol)) + (or (eobp) (forward-char 1))) + (goto-line line))) + +(defun org-table-fedit-toggle-ref-type () + "Convert all references in the buffer from B3 to @3$2 and back." + (interactive) + (org-set-local 'org-table-buffer-is-an (not org-table-buffer-is-an)) + (org-table-fedit-convert-buffer + (if org-table-buffer-is-an + 'org-table-convert-refs-to-an 'org-table-convert-refs-to-rc)) + (message "Reference type switched to %s" + (if org-table-buffer-is-an "A1 etc" "@row$column"))) + +(defun org-table-fedit-ref-up () + "Shift the reference at point one row/hline up." + (interactive) + (org-table-fedit-shift-reference 'up)) +(defun org-table-fedit-ref-down () + "Shift the reference at point one row/hline down." + (interactive) + (org-table-fedit-shift-reference 'down)) +(defun org-table-fedit-ref-left () + "Shift the reference at point one field to the left." + (interactive) + (org-table-fedit-shift-reference 'left)) +(defun org-table-fedit-ref-right () + "Shift the reference at point one field to the right." + (interactive) + (org-table-fedit-shift-reference 'right)) + +(defun org-table-fedit-shift-reference (dir) + (cond + ((org-at-regexp-p "\\(\\<[a-zA-Z]\\)&") + (if (memq dir '(left right)) + (org-rematch-and-replace 1 (eq dir 'left)) + (error "Cannot shift reference in this direction"))) + ((org-at-regexp-p "\\(\\<[a-zA-Z]\\{1,2\\}\\)\\([0-9]+\\)") + ;; A B3-like reference + (if (memq dir '(up down)) + (org-rematch-and-replace 2 (eq dir 'up)) + (org-rematch-and-replace 1 (eq dir 'left)))) + ((org-at-regexp-p + "\\(@\\|\\.\\.\\)\\([-+]?\\(I+\\>\\|[0-9]+\\)\\)\\(\\$\\([-+]?[0-9]+\\)\\)?") + ;; An internal reference + (if (memq dir '(up down)) + (org-rematch-and-replace 2 (eq dir 'up) (match-end 3)) + (org-rematch-and-replace 5 (eq dir 'left)))))) + +(defun org-rematch-and-replace (n &optional decr hline) + "Re-match the group N, and replace it with the shifted refrence." + (or (match-end n) (error "Cannot shift reference in this direction")) + (goto-char (match-beginning n)) + (and (looking-at (regexp-quote (match-string n))) + (replace-match (org-shift-refpart (match-string 0) decr hline) + t t))) + +(defun org-shift-refpart (ref &optional decr hline) + "Shift a refrence part REF. +If DECR is set, decrease the references row/column, else increase. +If HLINE is set, this may be a hline reference, it certainly is not +a translation reference." + (save-match-data + (let* ((sign (string-match "^[-+]" ref)) n) + + (if sign (setq sign (substring ref 0 1) ref (substring ref 1))) + (cond + ((and hline (string-match "^I+" ref)) + (setq n (string-to-number (concat sign (number-to-string (length ref))))) + (setq n (+ n (if decr -1 1))) + (if (= n 0) (setq n (+ n (if decr -1 1)))) + (if sign + (setq sign (if (< n 0) "-" "+") n (abs n)) + (setq n (max 1 n))) + (concat sign (make-string n ?I))) + + ((string-match "^[0-9]+" ref) + (setq n (string-to-number (concat sign ref))) + (setq n (+ n (if decr -1 1))) + (if sign + (concat (if (< n 0) "-" "+") (number-to-string (abs n))) + (number-to-string (max 1 n)))) + + ((string-match "^[a-zA-Z]+" ref) + (org-number-to-letters + (max 1 (+ (org-letters-to-number ref) (if decr -1 1))))) + + (t (error "Cannot shift reference")))))) + +(defun org-table-fedit-toggle-coordinates () + "Toggle the display of coordinates in the refrenced table." + (interactive) + (let ((pos (marker-position org-pos))) + (with-current-buffer (marker-buffer org-pos) + (save-excursion + (goto-char pos) + (org-table-toggle-coordinate-overlays))))) + +(defun org-table-fedit-finish (&optional arg) "Parse the buffer for formula definitions and install them. With prefix ARG, apply the new formulas to the table." (interactive "P") (org-table-remove-rectangle-highlight) + (if org-table-use-standard-references + (progn + (org-table-fedit-convert-buffer 'org-table-convert-refs-to-rc) + (setq org-table-buffer-is-an nil))) (let ((pos org-pos) eql var form) - (setq org-pos nil) (goto-char (point-min)) (while (re-search-forward "^\\(@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\\)\\) *= *\\(.*\\(\n[ \t]+.*$\\)*\\)" @@ -7997,9 +8728,13 @@ With prefix ARG, apply the new formulas to the table." (setq var (if (match-end 2) (match-string 2) (match-string 1)) form (match-string 3)) (setq form (org-trim form)) - (while (string-match "[ \t]*\n[ \t]*" form) - (setq form (replace-match " " t t form))) - (push (cons var form) eql)) + (when (not (equal form "")) + (while (string-match "[ \t]*\n[ \t]*" form) + (setq form (replace-match " " t t form))) + (when (assoc var eql) + (error "Double formulas for %s" var)) + (push (cons var form) eql))) + (setq org-pos nil) (set-window-configuration org-window-configuration) (select-window (get-buffer-window (marker-buffer pos))) (goto-char pos) @@ -8012,7 +8747,7 @@ With prefix ARG, apply the new formulas to the table." (org-table-recalculate 'all) (message "New formulas installed - press C-u C-c C-c to apply.")))) -(defun org-abort-edit-formulas () +(defun org-table-fedit-abort () "Abort editing formulas, without installing the changes." (interactive) (org-table-remove-rectangle-highlight) @@ -8023,7 +8758,7 @@ With prefix ARG, apply the new formulas to the table." (move-marker pos nil) (message "Formula editing aborted without installing changes"))) -(defun org-edit-formula-lisp-indent () +(defun org-table-fedit-lisp-indent () "Pretty-print and re-indent Lisp expressions in the Formula Editor." (interactive) (let ((pos (point)) beg end ind) @@ -8064,7 +8799,7 @@ With prefix ARG, apply the new formulas to the table." (defvar org-show-positions nil) -(defun org-show-reference (&optional local) +(defun org-table-show-reference (&optional local) "Show the location/value of the $ expression at point." (interactive) (org-table-remove-rectangle-highlight) @@ -8077,12 +8812,18 @@ With prefix ARG, apply the new formulas to the table." var name e what match dest) (if local (org-table-get-specials)) (setq what (cond - ((org-at-regexp-p org-table-range-regexp2) 'range) + ((or (org-at-regexp-p org-table-range-regexp2) + (org-at-regexp-p org-table-translate-regexp) + (org-at-regexp-p org-table-range-regexp)) + (setq match + (save-match-data + (org-table-convert-refs-to-rc (match-string 0)))) + 'range) ((org-at-regexp-p "\\$[a-zA-Z][a-zA-Z0-9]*") 'name) ((org-at-regexp-p "\\$[0-9]+") 'column) ((not local) nil) (t (error "No reference at point"))) - match (and what (match-string 0))) + match (and what (or match (match-string 0)))) (when (and match (not (equal (match-beginning 0) (point-at-bol)))) (org-table-add-rectangle-overlay (match-beginning 0) (match-end 0) 'secondary-selection)) @@ -8094,9 +8835,13 @@ With prefix ARG, apply the new formulas to the table." (setq match (org-table-formula-substitute-names match))) (unless local (save-excursion + (end-of-line 1) + (re-search-backward "^\\S-" nil t) (beginning-of-line 1) - (when (looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\)=") - (setq dest (match-string 1)) + (when (looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\\([0-9]+\\|&\\)\\) *=") + (setq dest + (save-match-data + (org-table-convert-refs-to-rc (match-string 1)))) (org-table-add-rectangle-overlay (match-beginning 1) (match-end 1) face2)))) (if (and (markerp pos) (marker-buffer pos)) @@ -8165,18 +8910,20 @@ With prefix ARG, apply the new formulas to the table." (message "Constant: $%s=%s in `org-table-formula-constants'." var (cdr e))) ((setq e (and (fboundp 'constants-get) (constants-get var))) - (message "Constant: $%s=%s, retrieved from `constants.el'." var e)) + (message "Constant: $%s=%s, from `constants.el'%s." + var e (format " (%s units)" constants-unit-system))) (t (error "Undefined name $%s" var))))) (goto-char pos) - (when org-show-positions + (when (and org-show-positions + (not (memq this-command '(org-table-fedit-scroll + org-table-fedit-scroll-down)))) (push pos org-show-positions) + (push org-table-current-begin-pos org-show-positions) (let ((min (apply 'min org-show-positions)) (max (apply 'max org-show-positions))) - (when (or (not (pos-visible-in-window-p min)) - (not (pos-visible-in-window-p max))) - (goto-char min) - (set-window-start (selected-window) (point-at-bol)) - (goto-char pos)))) + (goto-char min) (recenter 0) + (goto-char max) + (or (pos-visible-in-window-p max) (recenter -1)))) (select-window win)))) (defun org-table-force-dataline () @@ -8193,27 +8940,17 @@ With prefix ARG, apply the new formulas to the table." ((or p1 p2) (goto-char (or p1 p2))) (t (error "No table dataline around here")))))) -(defun org-table-edit-line-up () +(defun org-table-fedit-line-up () "Move cursor one line up in the window showing the table." (interactive) - (org-table-edit-move 'previous-line)) + (org-table-fedit-move 'previous-line)) -(defun org-table-edit-line-down () +(defun org-table-fedit-line-down () "Move cursor one line down in the window showing the table." (interactive) - (org-table-edit-move 'next-line)) + (org-table-fedit-move 'next-line)) -(defun org-table-edit-backward-field () - "Move cursor one field backward in the window showing the table." - (interactive) - (org-table-edit-move 'org-table-previous-field)) - -(defun org-table-edit-next-field () - "Move cursor one field forward in the window showing the table." - (interactive) - (org-table-edit-move 'org-table-next-field)) - -(defun org-table-edit-move (command) +(defun org-table-fedit-move (command) "Move the cursor in the window shoinw the table. Use COMMAND to do the motion, repeat if necessary to end up in a data line." (let ((org-table-allow-automatic-line-recalculation nil) @@ -8228,17 +8965,17 @@ Use COMMAND to do the motion, repeat if necessary to end up in a data line." (move-marker pos (point)) (select-window win))) -(defun org-table-edit-scroll (N) +(defun org-table-fedit-scroll (N) (interactive "p") (let ((other-window-scroll-buffer (marker-buffer org-pos))) (scroll-other-window N))) -(defun org-table-edit-scroll-down (N) +(defun org-table-fedit-scroll-down (N) (interactive "p") - (org-table-edit-scroll (- N))) + (org-table-fedit-scroll (- N))) (defvar org-table-rectangle-overlays nil) - + (defun org-table-add-rectangle-overlay (beg end &optional face) "Add a new overlay." (let ((ov (org-make-overlay beg end))) @@ -8290,7 +9027,7 @@ Use COMMAND to do the motion, repeat if necessary to end up in a data line." (mapc 'org-delete-overlay org-table-coordinate-overlays) (setq org-table-coordinate-overlays nil) (save-excursion - (let ((id 0) (ih 0) hline eol str ic ov beg) + (let ((id 0) (ih 0) hline eol s1 s2 str ic ov beg) (goto-char (org-table-begin)) (while (org-at-table-p) (setq eol (point-at-eol)) @@ -8299,15 +9036,18 @@ Use COMMAND to do the motion, repeat if necessary to end up in a data line." (setq hline (looking-at org-table-hline-regexp)) (setq str (if hline (format "I*%-2d" (setq ih (1+ ih))) (format "%4d" (setq id (1+ id))))) - (org-overlay-before-string ov str 'org-formula 'evaporate) + (org-overlay-before-string ov str 'org-special-keyword 'evaporate) (when hline (setq ic 0) - (while (re-search-forward "[+|]-+" eol t) + (while (re-search-forward "[+|]\\(-+\\)" eol t) (setq beg (1+ (match-beginning 0)) - str (concat "$" (int-to-string (setq ic (1+ ic))))) + ic (1+ ic) + s1 (concat "$" (int-to-string ic)) + s2 (org-number-to-letters ic) + str (if (eq org-table-use-standard-references t) s2 s1)) (setq ov (org-make-overlay beg (+ beg (length str)))) (push ov org-table-coordinate-overlays) - (org-overlay-display ov str 'org-formula 'evaporate))) + (org-overlay-display ov str 'org-special-keyword 'evaporate))) (beginning-of-line 2))))) (defun org-table-toggle-coordinate-overlays () @@ -8492,7 +9232,7 @@ to execute outside of tables." '("\C-c}" org-table-toggle-coordinate-overlays) '("\C-c{" org-table-toggle-formula-debugger) '("\C-m" org-table-next-row) - (list (org-key 'S-return) 'org-table-copy-down) + '([(shift return)] org-table-copy-down) '("\C-c\C-q" org-table-wrap-region) '("\C-c?" org-table-field-info) '("\C-c " org-table-blank-field) @@ -8507,34 +9247,34 @@ to execute outside of tables." elt key fun cmd) (while (setq elt (pop bindings)) (setq nfunc (1+ nfunc)) - (setq key (car elt) + (setq key (org-key (car elt)) fun (nth 1 elt) cmd (orgtbl-make-binding fun nfunc key)) - (define-key orgtbl-mode-map key cmd)) + (org-defkey orgtbl-mode-map key cmd)) ;; Special treatment needed for TAB and RET - (define-key orgtbl-mode-map [(return)] + (org-defkey orgtbl-mode-map [(return)] (orgtbl-make-binding 'orgtbl-ret 100 [(return)] "\C-m")) - (define-key orgtbl-mode-map "\C-m" + (org-defkey orgtbl-mode-map "\C-m" (orgtbl-make-binding 'orgtbl-ret 101 "\C-m" [(return)])) - (define-key orgtbl-mode-map [(tab)] + (org-defkey orgtbl-mode-map [(tab)] (orgtbl-make-binding 'orgtbl-tab 102 [(tab)] "\C-i")) - (define-key orgtbl-mode-map "\C-i" + (org-defkey orgtbl-mode-map "\C-i" (orgtbl-make-binding 'orgtbl-tab 103 "\C-i" [(tab)])) - (define-key orgtbl-mode-map [(shift tab)] + (org-defkey orgtbl-mode-map [(shift tab)] (orgtbl-make-binding 'org-table-previous-field 104 [(shift tab)] [(tab)] "\C-i")) - (define-key orgtbl-mode-map "\M-\C-m" + (org-defkey orgtbl-mode-map "\M-\C-m" (orgtbl-make-binding 'org-table-wrap-region 105 "\M-\C-m" [(meta return)])) - (define-key orgtbl-mode-map [(meta return)] + (org-defkey orgtbl-mode-map [(meta return)] (orgtbl-make-binding 'org-table-wrap-region 106 [(meta return)] "\M-\C-m")) - (define-key orgtbl-mode-map "\C-c\C-c" 'orgtbl-ctrl-c-ctrl-c) + (org-defkey orgtbl-mode-map "\C-c\C-c" 'orgtbl-ctrl-c-ctrl-c) (when orgtbl-optimized ;; If the user wants maximum table support, we need to hijack ;; some standard editing functions @@ -8542,7 +9282,7 @@ to execute outside of tables." 'self-insert-command 'orgtbl-self-insert-command 'delete-char 'org-delete-char 'delete-backward-char 'org-delete-backward-char) - (define-key orgtbl-mode-map "|" 'org-force-self-insert)) + (org-defkey orgtbl-mode-map "|" 'org-force-self-insert)) (easy-menu-define orgtbl-mode-menu orgtbl-mode-map "OrgTbl menu" '("OrgTbl" ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"] @@ -8678,7 +9418,31 @@ overwritten, and the table is not marked as requiring realignment." (defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$" "Regula expression matching exponentials as produced by calc.") -(defvar org-table-clean-did-remove-column-1 nil) +(defvar org-table-clean-did-remove-column nil) + +(defun orgtbl-export (table target) + (let ((func (intern (concat "orgtbl-to-" (symbol-name target)))) + (lines (org-split-string table "[ \t]*\n[ \t]*")) + org-table-last-alignment org-table-last-column-widths + maxcol column) + (if (not (fboundp func)) + (error "Cannot export orgtbl table to %s" target)) + (setq lines (org-table-clean-before-export lines)) + (setq table + (mapcar + (lambda (x) + (if (string-match org-table-hline-regexp x) + 'hline + (org-split-string (org-trim x) "\\s-*|\\s-*"))) + lines)) + (setq maxcol (apply 'max (mapcar (lambda (x) (if (listp x) (length x) 0)) + table))) + (loop for i from (1- maxcol) downto 0 do + (setq column (mapcar (lambda (x) (if (listp x) (nth i x) nil)) table)) + (setq column (delq nil column)) + (push (apply 'max (mapcar 'string-width column)) org-table-last-column-widths) + (push (> (/ (apply '+ (mapcar (lambda (x) (if (string-match org-table-number-regexp x) 1 0)) column)) maxcol) org-table-number-fraction) org-table-last-alignment)) + (funcall func table nil))) (defun orgtbl-send-table (&optional maybe) "Send a tranformed version of this table to the receiver position. @@ -8706,7 +9470,7 @@ this table." (org-table-begin) (org-table-end))) (lines (nthcdr (or skip 0) (org-split-string txt "[ \t]*\n[ \t]*"))) (lines (org-table-clean-before-export lines)) - (i0 (if org-table-clean-did-remove-column-1 2 1)) + (i0 (if org-table-clean-did-remove-column 2 1)) (table (mapcar (lambda (x) (if (string-match org-table-hline-regexp x) @@ -8722,7 +9486,7 @@ this table." (org-table-last-column-widths (org-remove-by-index (funcall fun org-table-last-column-widths) skipcols i0))) - + (unless (fboundp transform) (error "No such transformation function %s" transform)) (setq txt (funcall transform table params)) @@ -8754,7 +9518,7 @@ First element has index 0, or I0 if given." (setq i0 (1+ i0)) (if (memq i0 indices) :rm x)) list)))) - + (defun orgtbl-toggle-comment () "Comment or uncomment the orgtbl at point." (interactive) @@ -8850,7 +9614,7 @@ directly by `orgtbl-send-table'. See manual." (splicep (plist-get p :splice)) (hline (plist-get p :hline)) rtn line i fm efm lfmt h) - + ;; Do we have a header? (if (and (not splicep) (listp (car table)) (memq 'hline table)) (setq h t)) @@ -8858,7 +9622,7 @@ directly by `orgtbl-send-table'. See manual." ;; Put header (unless splicep (push (or (plist-get p :tstart) "ERROR: no :tstart") rtn)) - + ;; Now loop over all lines (while (setq line (pop table)) (if (eq line 'hline) @@ -8886,10 +9650,10 @@ directly by `orgtbl-send-table'. See manual." (mapconcat 'identity line (org-get-param p h i :sep :hsep)) (org-get-param p h i :lend :hlend)) rtn)))) - - (unless splicep + + (unless splicep (push (or (plist-get p :tend) "ERROR: no :tend") rtn)) - + (mapconcat 'identity (nreverse rtn) "\n"))) (defun orgtbl-to-latex (table params) @@ -9041,7 +9805,7 @@ For file links, arg negates `org-context-in-file-links'." (setq cpltxt (concat "bbdb:" (or name company)) link (org-make-link cpltxt)) (org-store-link-props :type "bbdb" :name name :company company))) - + ((eq major-mode 'Info-mode) (setq link (org-make-link "info:" (file-name-nondirectory Info-current-file) @@ -9219,7 +9983,7 @@ For file links, arg negates `org-context-in-file-links'." (if (string-match "::\\'" cpltxt) (setq cpltxt (substring cpltxt 0 -2))) (setq link (org-make-link cpltxt))) - + (buffer-file-name ;; Just link to this file here. (setq cpltxt (concat "file:" @@ -9430,7 +10194,8 @@ is in the current directory or below. With three \\[universal-argument] prefixes, negate the meaning of `org-keep-stored-link-after-insertion'." (interactive "P") - (let ((region (if (org-region-active-p) + (let ((wcf (current-window-configuration)) + (region (if (org-region-active-p) (prog1 (buffer-substring (region-beginning) (region-end)) (delete-region (region-beginning) (region-end))))) tmphist ; byte-compile incorrectly complains about this @@ -9469,13 +10234,31 @@ With three \\[universal-argument] prefixes, negate the meaning of (t (setq link (org-make-link "file:" file)))))) (t ;; Read link, with completion for stored links. - ;; Fake a link history + (with-output-to-temp-buffer "*Org Links*" + (princ "Insert a link. Use TAB to complete valid link prefixes.\n") + (when org-stored-links + (princ "\nStored links ar available with / (most recent with RET):\n\n") + (princ (mapconcat 'car (reverse org-stored-links) "\n")))) + (let ((cw (selected-window))) + (select-window (get-buffer-window "*Org Links*")) + (shrink-window-if-larger-than-buffer) + (setq truncate-lines t) + (select-window cw)) + ;; Fake a link history, containing the stored links. (setq tmphist (append (mapcar 'car org-stored-links) org-insert-link-history)) - (setq link (org-completing-read - "Link: " org-stored-links nil nil nil - 'tmphist - (or (car (car org-stored-links))))) + (unwind-protect + (setq link (org-completing-read + "Link: " + (append + (mapcar (lambda (x) (concat (car x) ":")) + (append org-link-abbrev-alist-local org-link-abbrev-alist)) + (mapcar (lambda (x) (concat x ":")) org-link-types)) + nil nil nil + 'tmphist + (or (car (car org-stored-links))))) + (set-window-configuration wcf) + (kill-buffer "*Org Links*")) (setq entry (assoc link org-stored-links)) (or entry (push link org-insert-link-history)) (if (funcall (if (equal complete-file '(64)) 'not 'identity) @@ -9531,7 +10314,7 @@ With three \\[universal-argument] prefixes, negate the meaning of (defun org-completing-read (&rest args) (let ((minibuffer-local-completion-map (copy-keymap minibuffer-local-completion-map))) - (define-key minibuffer-local-completion-map " " 'self-insert-command) + (org-defkey minibuffer-local-completion-map " " 'self-insert-command) (apply 'completing-read args))) ;;; Opening/following a link @@ -9637,7 +10420,7 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file." (setq type (match-string 1) path (match-string 2)) (throw 'match t))) (save-excursion - (when (org-in-regexp "\\(:[A-Za-z_@0-9:]+\\):[ \t\r\n]") + (when (org-in-regexp "\\(:[A-Za-z_@0-9:]+\\):[ \t]*$") (setq type "tags" path (match-string 1)) (while (string-match ":" path) @@ -9830,6 +10613,10 @@ If the current buffer is in `dired-mode', grep will be used to search in all files. If AVOID-POS is given, ignore matches near that position." (let ((case-fold-search t) (s0 (mapconcat 'identity (org-split-string s "[ \t\r\n]+") " ")) + (markers (concat "\\(?:" (mapconcat (lambda (x) (regexp-quote (car x))) + (append '((" ") ("\t") ("\n")) + org-emphasis-alist) + "\\|") "\\)")) (pos (point)) (pre "") (post "") words re0 re1 re2 re3 re4 re5 re2a reall) @@ -9866,7 +10653,8 @@ in all files. If AVOID-POS is given, ignore matches near that position." ;; Make a series of regular expressions to find a match (setq words (org-split-string s "[ \n\r\t]+") re0 (concat "\\(<<" (regexp-quote s0) ">>\\)") - re2 (concat "[ \t\r\n]\\(" (mapconcat 'downcase words "[ \t]+") "\\)[ \t\r\n]") + re2 (concat markers "\\(" (mapconcat 'downcase words "[ \t]+") + "\\)" markers) re2a (concat "[ \t\r\n]\\(" (mapconcat 'downcase words "[ \t\r\n]+") "\\)[ \t\r\n]") re4 (concat "[^a-zA-Z_]\\(" (mapconcat 'downcase words "[^a-zA-Z_\r\n]+") "\\)[^a-zA-Z_]") re1 (concat pre re2 post) @@ -9908,16 +10696,18 @@ enclose the position of `org-open-link-marker'." (let ((m org-open-link-marker)) (catch 'exit (while (apply 're-search-forward args) - (goto-char (match-end group)) - (if (and (or (not (eq (marker-buffer m) (current-buffer))) - (> (match-beginning 0) (marker-position m)) - (< (match-end 0) (marker-position m))) - (save-match-data - (or (not (org-in-regexp org-bracket-link-analytic-regexp 1)) - (not (match-end 4)) ; no description - (and (<= (match-beginning 4) (point)) - (>= (match-end 4) (point)))))) - (throw 'exit (point))))))) + (unless (get-text-property (match-end group) 'intangible) ; Emacs 21 + (goto-char (match-end group)) + (if (and (or (not (eq (marker-buffer m) (current-buffer))) + (> (match-beginning 0) (marker-position m)) + (< (match-end 0) (marker-position m))) + (save-match-data + (or (not (org-in-regexp + org-bracket-link-analytic-regexp 1)) + (not (match-end 4)) ; no description + (and (<= (match-beginning 4) (point)) + (>= (match-end 4) (point)))))) + (throw 'exit (point)))))))) (defun org-get-buffer-for-internal-link (buffer) "Return a buffer to be used for displaying the link target of internal links." @@ -10065,7 +10855,7 @@ onto the ring." (funcall (cdr (assq 'gnus org-link-frame-setup))) (if gnus-other-frame-object (select-frame gnus-other-frame-object)) (cond ((and group article) - (gnus-group-read-group 0 nil group) + (gnus-group-read-group 1 nil group) (gnus-summary-goto-article (string-to-number article) nil t)) (group (gnus-group-jump-to-group group)))) @@ -10346,7 +11136,7 @@ If the file does not exist, an error is thrown." (if (stringp command) (setq cmd command) (setq cmd 'emacs)))) - (if (and (not (eq cmd 'emacs)) ; Emacs has not problems with non-ex files + (if (and (not (eq cmd 'emacs)) ; Emacs has no problems with non-ex files (not (file-exists-p file)) (not org-open-non-existing-files)) (error "No such file: %s" file)) @@ -10380,10 +11170,6 @@ If the file does not exist, an error is thrown." org-file-apps-defaults-windowsnt) (t org-file-apps-defaults-gnu))) -(defun org-expand-file-name (path) - "Replace special path abbreviations and expand the file name." - (expand-file-name path)) - (defvar ange-ftp-name-format) ; to silence the XEmacs compiler. (defun org-file-remote-p (file) "Test whether FILE specifies a location on a remote system. @@ -10569,7 +11355,7 @@ See also the variable `org-reverse-note-order'." (replace-match "")) (catch 'quit (let* ((txt (buffer-substring (point-min) (point-max))) - (fastp current-prefix-arg) + (fastp (equal current-prefix-arg '(4))) (file (if fastp org-default-notes-file (org-get-org-file))) (heading org-remember-default-headline) (visiting (org-find-base-buffer-visiting file)) @@ -10577,6 +11363,7 @@ See also the variable `org-reverse-note-order'." (org-startup-align-all-tables nil) (org-goto-start-pos 1) spos level indent reversed) + (setq current-prefix-arg nil) ;; Modify text so that it becomes a nice subtree which can be inserted ;; into an org tree. (let* ((lines (split-string txt "\n")) @@ -10597,13 +11384,13 @@ See also the variable `org-reverse-note-order'." ;; Find the file (if (not visiting) (find-file-noselect file)) (with-current-buffer (or visiting (get-file-buffer file)) - (save-excursion (and (goto-char (point-min)) - (not (re-search-forward "^\\* " nil t)) - (insert "\n* Notes\n"))) - (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) + (and (goto-char (point-min)) + (not (re-search-forward "^\\* " nil t)) + (insert "\n* Notes\n")) + (setq reversed (org-notes-order-reversed-p)) ;; Find the default location (when (and heading (stringp heading) (string-match "\\S-" heading)) @@ -10619,7 +11406,7 @@ See also the variable `org-reverse-note-order'." org-goto-start-pos (org-get-location (current-buffer) org-remember-help))) (if (not spos) (throw 'quit nil)) ; return nil to show we did - ; not handle this note + ; not handle this note (goto-char spos) (cond ((and (bobp) (not reversed)) ;; Put it at the end, one level below level 1 @@ -10636,12 +11423,12 @@ See also the variable `org-reverse-note-order'." (re-search-forward "^\\*" nil t) (beginning-of-line 1) (org-paste-subtree 1 txt))) - ((and (org-on-heading-p nil) (not current-prefix-arg)) + ((and (org-on-heading-p t) (not current-prefix-arg)) ;; Put it below this entry, at the beg/end of the subtree (org-back-to-heading t) (setq level (funcall outline-level)) (if reversed - (outline-end-of-heading) + (outline-next-heading) (org-end-of-subtree t)) (if (not (bolp)) (newline)) (beginning-of-line 1) @@ -10649,7 +11436,9 @@ See also the variable `org-reverse-note-order'." (t ;; Put it right there, with automatic level determined by ;; org-paste-subtree or from prefix arg - (org-paste-subtree current-prefix-arg txt))) + (org-paste-subtree + (if (numberp current-prefix-arg) current-prefix-arg) + txt))) (when remember-save-after-remembering (save-buffer) (if (not visiting) (kill-buffer (current-buffer))))))))) @@ -10838,7 +11627,7 @@ At all other locations, this simply calls `ispell-complete-word'." ((string-match "\\`\\*+[ \t]*\\'" (buffer-substring (point-at-bol) beg)) (setq type :todo) - (mapcar 'list org-todo-keywords)) + (mapcar 'list org-todo-keywords-1)) (searchhead (setq type :searchhead) (save-excursion @@ -10926,6 +11715,8 @@ For calling through lisp, arg is also interpreted in the following way: 'none -> empty state \"\"(empty string) -> switch to empty state 'done -> switch to DONE +'nextset -> switch to the next set of keywords +'previousset -> switch to the previous set of keywords \"WAITING\" -> switch to the specified keyword, but only if it really is a member of `org-todo-keywords'." (interactive "P") @@ -10935,52 +11726,76 @@ For calling through lisp, arg is also interpreted in the following way: (or (looking-at (concat " +" org-todo-regexp " *")) (looking-at " *")) (let* ((this (match-string 1)) + (head (org-get-todo-sequence-head this)) + (ass (assoc head org-todo-kwd-alist)) + (interpret (nth 1 ass)) + (done-word (nth 3 ass)) + (final-done-word (nth 4 ass)) (last-state (or this "")) (completion-ignore-case t) - (member (member this org-todo-keywords)) + (member (member this org-todo-keywords-1)) (tail (cdr member)) (state (cond ((equal arg '(4)) ;; Read a state with completion (completing-read "State: " (mapcar (lambda(x) (list x)) - org-todo-keywords) + org-todo-keywords-1) nil t)) ((eq arg 'right) (if this (if tail (car tail) nil) - (car org-todo-keywords))) + (car org-todo-keywords-1))) ((eq arg 'left) - (if (equal member org-todo-keywords) + (if (equal member org-todo-keywords-1) nil (if this - (nth (- (length org-todo-keywords) (length tail) 2) - org-todo-keywords) - org-done-string))) + (nth (- (length org-todo-keywords-1) (length tail) 2) + org-todo-keywords-1) + (org-last org-todo-keywords-1)))) (arg - ;; user requests a specific state + ;; user or caller requests a specific state (cond ((equal arg "") nil) ((eq arg 'none) nil) - ((eq arg 'done) (org-last org-todo-keywords)) - ((car (member arg org-todo-keywords))) + ((eq arg 'done) (or done-word (car org-done-keywords))) + ((eq arg 'nextset) + (or (car (cdr (member head org-todo-heads))) + (car org-todo-heads))) + ((eq arg 'previousset) + (let ((org-todo-heads (reverse org-todo-heads))) + (or (car (cdr (member head org-todo-heads))) + (car org-todo-heads)))) + ((car (member arg org-todo-keywords-1))) ((nth (1- (prefix-numeric-value arg)) - org-todo-keywords)))) - ((null member) (car org-todo-keywords)) + org-todo-keywords-1)))) + ((null member) (or head (car org-todo-keywords-1))) + ((equal this final-done-word) nil) ;; -> make empty ((null tail) nil) ;; -> first entry - ((eq org-todo-interpretation 'sequence) + ((eq interpret 'sequence) (car tail)) - ((memq org-todo-interpretation '(type priority)) + ((memq interpret '(type priority)) (if (eq this-command last-command) (car tail) - (if (> (length tail) 0) org-done-string nil))) + (if (> (length tail) 0) + (or done-word (car org-done-keywords)) + nil))) (t nil))) (next (if state (concat " " state " ") " ")) dostates) (replace-match next t t) + (unless head + (setq head (org-get-todo-sequence-head state) + ass (assoc head org-todo-kwd-alist) + interpret (nth 1 ass) + done-word (nth 3 ass) + final-done-word (nth 4 ass))) + (when (memq arg '(nextset previousset)) + (message "Keyword set: %s" + (mapconcat 'identity (assoc state org-todo-sets) " "))) (setq org-last-todo-state-is-todo - (not (equal state org-done-string))) - (when org-log-done - (setq dostates (and (eq org-todo-interpretation 'sequence) + (not (member state org-done-keywords))) + (when (and org-log-done (not (memq arg '(nextset previousset)))) + (setq dostates (and (eq interpret 'sequence) (listp org-log-done) (memq 'state org-log-done))) (cond ((and state (not this)) @@ -10988,7 +11803,7 @@ For calling through lisp, arg is also interpreted in the following way: (and dostates (org-add-log-maybe 'state state 'findpos))) ((and state dostates) (org-add-log-maybe 'state state 'findpos)) - ((equal state org-done-string) + ((member state org-done-keywords) ;; Planning info calls the note-setting command. (org-add-planning-info 'closed (org-current-time) (if (org-get-repeat) nil 'scheduled)) @@ -10996,8 +11811,10 @@ For calling through lisp, arg is also interpreted in the following way: ;; Fixup tag positioning (and org-auto-align-tags (org-set-tags nil t)) (run-hooks 'org-after-todo-state-change-hook) - (and (equal state org-done-string) (org-auto-repeat-maybe)) - )) + (and (member state org-done-keywords) (org-auto-repeat-maybe)) + (if (and arg (not (member state org-done-keywords))) + (setq head (org-get-todo-sequence-head state))) + (put-text-property (point-at-bol) (point-at-eol) 'org-todo-head head))) ;; Fixup cursor location if close to the keyword (if (and (outline-on-heading-p) (not (bolp)) @@ -11008,8 +11825,24 @@ For calling through lisp, arg is also interpreted in the following way: (goto-char (or (match-end 2) (match-end 1))) (just-one-space)))) +(defun org-get-todo-sequence-head (kwd) + "Return the head of the TODO sequence to which KWD belongs. +If KWD is not set, check if there is a text property remembering the +right sequence." + (let (p) + (cond + ((not kwd) + (or (get-text-property (point-at-bol) 'org-todo-head) + (progn + (setq p (next-single-property-change (point-at-bol) 'org-todo-head + nil (point-at-eol))) + (get-text-property p 'org-todo-head)))) + ((not (member kwd org-todo-keywords-1)) + (car org-todo-keywords-1)) + (t (nth 2 (assoc kwd org-todo-kwd-alist)))))) + (defun org-get-repeat () - "Return the REPEAT statement of this entry." + "Check if tere is a deadline/schedule with repeater in this entry." (save-match-data (save-excursion (org-back-to-heading t) @@ -11020,24 +11853,29 @@ For calling through lisp, arg is also interpreted in the following way: (defvar org-last-changed-timestamp) (defvar org-log-post-message) (defun org-auto-repeat-maybe () - "Check if the current headline contains a REPEAT key. -If yes, set TODO state back to what it was and change any SCHEDULED -or DEADLINE times the new date. + "Check if the current headline contains a repeated deadline/schedule. +If yes, set TODO state back to what it was and change the base date +of repeating deadline/scheduled time stamps to new date. This function should be run in the `org-after-todo-state-change-hook'." ;; last-state is dynamically scoped into this function - (let ((repeat (org-get-repeat)) - (whata '(("d" . day) ("m" . month) ("y" . year))) - (msg "Entry repeats: ") - (org-log-done) - re type n what start) + (let* ((repeat (org-get-repeat)) + (aa (assoc last-state org-todo-kwd-alist)) + (interpret (nth 1 aa)) + (head (nth 2 aa)) + (done-word (nth 3 aa)) + (whata '(("d" . day) ("m" . month) ("y" . year))) + (msg "Entry repeats: ") + (org-log-done) + re type n what ts) (when repeat - (org-todo (if (eq 'org-todo-interpretation 'type) - last-state - (car org-todo-keywords))) - (unless (memq 'org-add-log-note (default-value 'post-command-hook)) + (org-todo (if (eq interpret 'type) last-state head)) + (when (and org-log-repeat + (not (memq 'org-add-log-note + (default-value 'post-command-hook)))) ;; Make sure a note is taken (let ((org-log-done '(done))) - (org-add-log-maybe 'done org-done-string 'findpos))) + (org-add-log-maybe 'done (or done-word (car org-done-keywords)) + 'findpos))) (org-back-to-heading t) (org-add-planning-info nil nil 'closed) (setq re (concat "\\(" org-scheduled-time-regexp "\\)\\|\\(" @@ -11045,11 +11883,10 @@ This function should be run in the `org-after-todo-state-change-hook'." (while (re-search-forward re (save-excursion (outline-next-heading) (point)) t) (setq type (if (match-end 1) org-scheduled-string org-deadline-string) - start 0) - (while (string-match "\\([-+]?[0-9]+\\)\\([dwmy]\\)" repeat start) - (setq start (match-end 0) - n (string-to-number (match-string 1 repeat)) - what (match-string 2 repeat)) + ts (match-string (if (match-end 2) 2 4))) + (when (string-match "\\([-+]?[0-9]+\\)\\([dwmy]\\)" ts) + (setq n (string-to-number (match-string 1 ts)) + what (match-string 2 ts)) (if (equal what "w") (setq n (* n 7) what "d")) (org-timestamp-change n (cdr (assoc what whata)))) (setq msg (concat msg type org-last-changed-timestamp " "))) @@ -11062,15 +11899,20 @@ The tree will show the lines where the regexp matches, and all higher headlines above the match. With \\[universal-argument] prefix, also show the DONE entries. With a numeric prefix N, construct a sparse tree for the Nth element -of `org-todo-keywords'." +of `org-todo-keywords-1'." (interactive "P") (let ((case-fold-search nil) (kwd-re (cond ((null arg) org-not-done-regexp) - ((equal arg '(4)) org-todo-regexp) - ((<= (prefix-numeric-value arg) (length org-todo-keywords)) + ((equal arg '(4)) + (let ((kwd (completing-read "Keyword (or KWD1|KWD2|...): " + (mapcar 'list org-todo-keywords-1)))) + (concat "\\(" + (mapconcat 'identity (org-split-string kwd "|") "\\|") + "\\)\\>"))) + ((<= (prefix-numeric-value arg) (length org-todo-keywords-1)) (regexp-quote (nth (1- (prefix-numeric-value arg)) - org-todo-keywords))) + org-todo-keywords-1))) (t (error "Invalid prefix argument: %s" arg))))) (message "%d TODO entries found" (org-occur (concat "^" outline-regexp " +" kwd-re ))))) @@ -11143,9 +11985,11 @@ be removed." ((eq what 'deadline) org-deadline-string) ((eq what 'closed) org-closed-string)) " ") - (org-insert-time-stamp time - (or org-time-was-given (eq what 'closed)) - (eq what 'closed)) + (org-insert-time-stamp + time + (or org-time-was-given + (and (eq what 'closed) org-log-done-with-time)) + (eq what 'closed)) (end-of-line 1)) (goto-char (point-min)) (widen) @@ -11163,6 +12007,7 @@ be removed." The auto-repeater uses this.") (defun org-add-log-maybe (&optional purpose state findpos) + "Set up the post command hook to take a note." (save-excursion (when (and (listp org-log-done) (memq purpose org-log-done)) @@ -11221,17 +12066,18 @@ The auto-repeater uses this.") ""))))) (if lines (setq note (concat note " \\\\"))) (push note lines)) - (save-excursion - (set-buffer (marker-buffer org-log-note-marker)) + (when lines (save-excursion - (goto-char org-log-note-marker) - (move-marker org-log-note-marker nil) - (end-of-line 1) - (if (not (bolp)) (insert "\n")) (indent-relative nil) - (setq ind (concat (buffer-substring (point-at-bol) (point)) " ")) - (insert " - " (pop lines)) - (while lines - (insert "\n" ind (pop lines)))))) + (set-buffer (marker-buffer org-log-note-marker)) + (save-excursion + (goto-char org-log-note-marker) + (move-marker org-log-note-marker nil) + (end-of-line 1) + (if (not (bolp)) (insert "\n")) (indent-relative nil) + (setq ind (concat (buffer-substring (point-at-bol) (point)) " ")) + (insert " - " (pop lines)) + (while lines + (insert "\n" ind (pop lines))))))) (set-window-configuration org-log-note-window-configuration) (with-current-buffer (marker-buffer org-log-note-return-to) (goto-char org-log-note-return-to)) @@ -11264,7 +12110,8 @@ that the match should indeed be shown." (when (or (not callback) (save-match-data (funcall callback))) (setq cnt (1+ cnt)) - (org-highlight-new-match (match-beginning 0) (match-end 0)) + (when org-highlight-sparse-tree-matches + (org-highlight-new-match (match-beginning 0) (match-end 0))) (org-show-context 'occur-tree)))) (when org-remove-highlights-with-change (org-add-hook 'before-change-functions 'org-remove-occur-highlights @@ -11342,7 +12189,7 @@ from the `before-change-functions' in the current buffer." ;;;; Priorities -(defvar org-priority-regexp ".*?\\(\\[#\\([A-Z]\\)\\] ?\\)" +(defvar org-priority-regexp ".*?\\(\\[#\\([A-Z0-9]\\)\\] ?\\)" "Regular expression matching the priority indicator.") (defvar org-remove-priority-next-time nil) @@ -11371,18 +12218,18 @@ ACTION can be set, up, or down." (setq current org-default-priority)) (cond ((eq action 'set) - (message "Priority A-%c, SPC to remove: " org-lowest-priority) + (message "Priority %c-%c, SPC to remove: " org-highest-priority org-lowest-priority) (setq new (read-char-exclusive)) (cond ((equal new ?\ ) (setq remove t)) - ((or (< (upcase new) ?A) (> (upcase new) org-lowest-priority)) + ((or (< (upcase new) org-highest-priority) (> (upcase new) org-lowest-priority)) (error "Priority must be between `%c' and `%c'" - ?A org-lowest-priority)))) + org-highest-priority org-lowest-priority)))) ((eq action 'up) (setq new (1- current))) ((eq action 'down) (setq new (1+ current))) (t (error "Invalid action"))) - (setq new (min (max ?A (upcase new)) org-lowest-priority)) + (setq new (min (max org-highest-priority (upcase new)) org-lowest-priority)) (setq news (format "%c" new)) (if have (if remove @@ -11419,15 +12266,14 @@ evaluated, testing if a given set of tags qualifies a headline for inclusion. When TODO-ONLY is non-nil, only lines with a TODO keyword are included in the output." (let* ((re (concat "[\n\r]" outline-regexp " *\\(\\<\\(" - (mapconcat 'regexp-quote - (nreverse (cdr (reverse org-todo-keywords))) - "\\|") + (mapconcat 'regexp-quote org-todo-keywords-1 "\\|") "\\>\\)\\)? *\\(.*?\\)\\(:[A-Za-z_@0-9:]+:\\)?[ \t]*$")) (props (list 'face nil 'done-face 'org-done 'undone-face nil 'mouse-face 'highlight 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'keymap org-agenda-keymap 'help-echo (format "mouse-2 or RET jump to org file %s" @@ -11435,7 +12281,7 @@ are included in the output." (case-fold-search nil) lspos tags tags-list tags-alist (llast 0) rtn level category i txt - todo marker entry) + todo marker entry priority) (save-excursion (goto-char (point-min)) (when (eq action 'sparse-tree) (org-overview)) @@ -11462,7 +12308,7 @@ are included in the output." (if org-use-tag-inheritance (apply 'append (mapcar 'cdr tags-alist)) tags)) - (when (and (or (not todo-only) todo) + (when (and (or (not todo-only) (member todo org-not-done-keywords)) (eval matcher) (or (not org-agenda-skip-archived-trees) (not (member org-archive-tag tags-list)))) @@ -11477,11 +12323,13 @@ are included in the output." (if org-tags-match-list-sublevels (make-string (1- level) ?.) "") (org-get-heading)) - category tags-list)) + category tags-list) + priority (org-get-priority txt)) (goto-char lspos) (setq marker (org-agenda-new-marker)) (org-add-props txt props - 'org-marker marker 'org-hd-marker marker 'org-category category) + 'org-marker marker 'org-hd-marker marker 'org-category category + 'priority priority 'type "tagsmatch") (push txt rtn)) ;; if we are to skip sublevels, jump to end of subtree (or org-tags-match-list-sublevels (org-end-of-subtree t)))))) @@ -11610,7 +12458,7 @@ With prefix ARG, realign all tags in headings in the current buffer." (if arg (save-excursion (goto-char (point-min)) - (let (buffer-invisibility-spec) ; Emacs 21 compatibility + (let ((buffer-invisibility-spec (org-inhibit-invisibility))) (while (re-search-forward re nil t) (org-set-tags nil t) (end-of-line 1))) @@ -11637,11 +12485,12 @@ With prefix ARG, realign all tags in headings in the current buffer." (while (string-match "[-+&]+" tags) ;; No boolean logic, just a list (setq tags (replace-match ":" t t tags)))) + (if (string-match "\\`[\t ]*\\'" tags) (setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags ":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) - + ;; Insert new tags at the correct column (beginning-of-line 1) (if (re-search-forward @@ -11728,7 +12577,7 @@ Returns the new tags string, or nil to not change the current settings." (fwidth (+ maxlen 3 1 3)) (ncol (/ (- (window-width) 4) fwidth)) (i-face 'org-done) - (c-face 'org-tag) + (c-face 'org-todo) tg cnt e c char c1 c2 ntable tbl rtn ov-start ov-end ov-prefix (exit-after-next org-fast-tag-selection-single-key) @@ -12014,9 +12863,9 @@ used to insert the time stamp into the buffer to include the time." (timestr (format-time-string (if with-time "%Y-%m-%d %H:%M" "%Y-%m-%d") default-time)) (prompt (concat (if prompt (concat prompt " ") "") - (format "YYYY-MM-DD [%s]: " timestr))) + (format "Date and/or time (default [%s]): " timestr))) ans (org-ans0 "") org-ans1 org-ans2 (deltadays 0) - second minute hour day month year tl wday wday1) + second minute hour day month year tl wday wday1 pm) (cond (from-string (setq ans from-string)) @@ -12027,44 +12876,43 @@ used to insert the time stamp into the buffer to include the time." (calendar-forward-day (- (time-to-days default-time) (calendar-absolute-from-gregorian (calendar-current-date)))) - (org-eval-in-calendar nil) + (org-eval-in-calendar nil t) (let* ((old-map (current-local-map)) (map (copy-keymap calendar-mode-map)) (minibuffer-local-map (copy-keymap minibuffer-local-map))) - (define-key map (kbd "RET") 'org-calendar-select) - (define-key map (if (featurep 'xemacs) [button1] [mouse-1]) + (org-defkey map (kbd "RET") 'org-calendar-select) + (org-defkey map (if (featurep 'xemacs) [button1] [mouse-1]) 'org-calendar-select-mouse) - (define-key map (if (featurep 'xemacs) [button2] [mouse-2]) + (org-defkey map (if (featurep 'xemacs) [button2] [mouse-2]) 'org-calendar-select-mouse) - (define-key minibuffer-local-map [(meta shift left)] + (org-defkey minibuffer-local-map [(meta shift left)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-month 1)))) - (define-key minibuffer-local-map [(meta shift right)] + (org-defkey minibuffer-local-map [(meta shift right)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-month 1)))) - (define-key minibuffer-local-map [(shift up)] + (org-defkey minibuffer-local-map [(shift up)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-week 1)))) - (define-key minibuffer-local-map [(shift down)] + (org-defkey minibuffer-local-map [(shift down)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-week 1)))) - (define-key minibuffer-local-map [(shift left)] + (org-defkey minibuffer-local-map [(shift left)] (lambda () (interactive) (org-eval-in-calendar '(calendar-backward-day 1)))) - (define-key minibuffer-local-map [(shift right)] + (org-defkey minibuffer-local-map [(shift right)] (lambda () (interactive) (org-eval-in-calendar '(calendar-forward-day 1)))) - (define-key minibuffer-local-map ">" + (org-defkey minibuffer-local-map ">" (lambda () (interactive) (org-eval-in-calendar '(scroll-calendar-left 1)))) - (define-key minibuffer-local-map "<" + (org-defkey minibuffer-local-map "<" (lambda () (interactive) (org-eval-in-calendar '(scroll-calendar-right 1)))) (unwind-protect (progn (use-local-map map) (setq org-ans0 (read-string prompt "" nil nil)) -; (if (not (string-match "\\S-" org-ans0)) (setq org-ans0 nil)) ;; org-ans0: from prompt ;; org-ans1: from mouse click ;; org-ans2: from calendar motion @@ -12077,17 +12925,30 @@ used to insert the time stamp into the buffer to include the time." (if (string-match "^[ \t]*[-+][0-9]+[ \t]*$" org-ans0) (setq deltadays (string-to-number ans) ans "")) - (if (string-match - "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans) - (progn - (setq year (if (match-end 2) - (string-to-number (match-string 2 ans)) - (string-to-number (format-time-string "%Y"))) - month (string-to-number (match-string 3 ans)) - day (string-to-number (match-string 4 ans))) - (if (< year 100) (setq year (+ 2000 year))) - (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) - t nil ans)))) + ;; Help matching ISO dates with single digit month ot day, like 2006-8-11. + (when (string-match + "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans) + (setq year (if (match-end 2) + (string-to-number (match-string 2 ans)) + (string-to-number (format-time-string "%Y"))) + month (string-to-number (match-string 3 ans)) + day (string-to-number (match-string 4 ans))) + (if (< year 100) (setq year (+ 2000 year))) + (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) + t nil ans))) + ;; Help matching am/pm times, because `parse-time-string' does not do that. + ;; If there is a time with am/pm, and *no* time without it, we convert + ;; convert so that matching will be successful. + (when (and (not (string-match "[012]?[0-9]:[0-9][0-9]\\([ \t\n]\\|$\\)" ans)) + (string-match "\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\(am\\|AM\\|pm\\|PM\\)\\>" ans)) + (setq hour (string-to-number (match-string 1 ans)) + minute (if (match-end 3) (string-to-number (match-string 3 ans)) 0) + pm (equal ?p (string-to-char (downcase (match-string 4 ans))))) + (if (and (= hour 12) (not pm)) + (setq hour 0) + (if (and pm (< hour 12)) (setq hour (+ 12 hour)))) + (setq ans (replace-match (format "%02d:%02d" hour minute) t t ans))) + (setq tl (parse-time-string ans) year (or (nth 5 tl) (string-to-number (format-time-string "%Y" ct))) month (or (nth 4 tl) (string-to-number (format-time-string "%m" ct))) @@ -12113,18 +12974,28 @@ used to insert the time stamp into the buffer to include the time." (format "%04d-%02d-%02d %02d:%02d" year month day hour minute) (format "%04d-%02d-%02d" year month day))))) -(defun org-eval-in-calendar (form) +(defun org-eval-in-calendar (form &optional keepdate) "Eval FORM in the calendar window and return to current window. Also, store the cursor date in variable org-ans2." (let ((sw (selected-window))) (select-window (get-buffer-window "*Calendar*")) (eval form) - (when (calendar-cursor-to-date) + (when (and (not keepdate) (calendar-cursor-to-date)) (let* ((date (calendar-cursor-to-date)) (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) (nth 2 date)))) (setq org-ans2 (format-time-string "%Y-%m-%d" time)))) (org-move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer)) - (select-window sw))) + (select-window sw) + ;; Update the prompt to show new default date + (save-excursion + (goto-char (point-min)) + (when (and org-ans2 + (re-search-forward "\\[[-0-9]+\\]" nil t) + (get-text-property (match-end 0) 'field)) + (let ((inhibit-read-only t)) + (replace-match (concat "[" org-ans2 "]") t t) + (add-text-properties (point-min) (1+ (match-end 0)) + (text-properties-at (1+ (point-min))))))))) (defun org-calendar-select () "Return to `org-read-date' with the date currently selected. @@ -12136,7 +13007,7 @@ This is used by `org-read-date' in a temporary keymap for the calendar buffer." (setq org-ans1 (format-time-string "%Y-%m-%d" time))) (if (active-minibuffer-window) (exit-minibuffer)))) -(defun org-insert-time-stamp (time &optional with-hm inactive pre post) +(defun org-insert-time-stamp (time &optional with-hm inactive pre post extra) "Insert a date stamp for the date given by the internal TIME. WITH-HM means, use the stamp format that includes the time of the day. INACTIVE means use square brackets instead of angular ones, so that the @@ -12149,6 +13020,10 @@ The command returns the inserted time stamp." (if inactive (setq fmt (concat "[" (substring fmt 1 -1) "]"))) (insert (or pre "")) (insert (setq stamp (format-time-string fmt time))) + (when extra + (backward-char 1) + (insert extra) + (forward-char 1)) (insert (or post "")) stamp)) @@ -12175,17 +13050,22 @@ The command returns the inserted time stamp." (defun org-display-custom-time (beg end) "Overlay modified time stamp format over timestamp between BED and END." - (let* ((t1 (save-match-data - (org-parse-time-string (buffer-substring beg end) t))) - (w1 (- end beg)) - (with-hm (and (nth 1 t1) (nth 2 t1))) - (tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats)) - (time (org-fix-decoded-time t1)) - (str (org-add-props + (let* ((ts (buffer-substring beg end)) + t1 w1 with-hm tf time str w2 (off 0)) + (save-match-data + (setq t1 (org-parse-time-string ts t)) + (if (string-match " \\+[0-9]+[dwmy]\\'" ts) + (setq off (- (match-end 0) (match-beginning 0))))) + (setq end (- end off)) + (setq w1 (- end beg) + with-hm (and (nth 1 t1) (nth 2 t1)) + tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats) + time (org-fix-decoded-time t1) + str (org-add-props (format-time-string (substring tf 1 -1) (apply 'encode-time time)) - nil 'mouse-face 'highlight)) - (w2 (length str))) + nil 'mouse-face 'highlight) + w2 (length str)) (if (not (= w2 w1)) (add-text-properties (1+ beg) (+ 2 beg) (list 'org-dwidth t 'org-dwidth-n (- w1 w2)))) @@ -12349,6 +13229,133 @@ days in order to avoid rounding problems." (defun org-time-string-to-time (s) (apply 'encode-time (org-parse-time-string s))) +(defun org-time-string-to-absolute (s &optional daynr) + "Convert a time stamp to an absolute day number. +If there is a specifyer for a cyclic time stamp, get the closest date to +DATE." + (cond + ((and daynr (string-match "\\`%%\\((.*)\\)" s)) + (if (org-diary-sexp-entry (match-string 1 s) "" date) + daynr + (+ daynr 1000))) + ((and daynr (string-match "\\+[0-9]+[dwmy]" s)) + (org-closest-date s (if (and (boundp 'daynr) (integerp daynr)) daynr + (time-to-days (current-time))) (match-string 0 s))) + (t (time-to-days (apply 'encode-time (org-parse-time-string s)))))) + +(defun org-calendar-holiday () + "List of holidays, for Diary display in Org-mode." + (let ((hl (check-calendar-holidays date))) + (if hl (mapconcat 'identity hl "; ")))) + +(defun org-diary-sexp-entry (sexp entry date) + "Process a SEXP diary ENTRY for DATE." + (let ((result (if calendar-debug-sexp + (let ((stack-trace-on-error t)) + (eval (car (read-from-string sexp)))) + (condition-case nil + (eval (car (read-from-string sexp))) + (error + (beep) + (message "Bad sexp at line %d in %s: %s" + (org-current-line) + (buffer-file-name) sexp) + (sleep-for 2)))))) + (cond ((stringp result) result) + ((and (consp result) + (stringp (cdr result))) (cdr result)) + (result entry) + (t nil)))) + +(defun org-diary-to-ical-string (frombuf) + "FIXME" + (let* ((tmpdir (if (featurep 'xemacs) + (temp-directory) + temporary-file-directory)) + (tmpfile (make-temp-name + (expand-file-name "orgics" tmpdir))) + buf rtn b e) + (save-excursion + (set-buffer frombuf) + (icalendar-export-region (point-min) (point-max) tmpfile) + (setq buf (find-buffer-visiting tmpfile)) + (set-buffer buf) + (goto-char (point-min)) + (if (re-search-forward "^BEGIN:VEVENT" nil t) + (setq b (match-beginning 0))) + (goto-char (point-max)) + (if (re-search-backward "^END:VEVENT" nil t) + (setq e (match-end 0))) + (setq rtn (if (and b e) (concat (buffer-substring b e) "\n") ""))) + (kill-buffer buf) + (kill-buffer frombuf) + (delete-file tmpfile) + rtn)) + +(defun org-closest-date (start current change) + "Find the date closest to CURRENT that is consistent with START and CHANGE." + ;; Make the proper lists from the dates + (catch 'exit + (let ((a1 '(("d" . day) ("w" . week) ("m" . month) ("y" . year))) + dn dw sday cday n1 n2 + d m y y1 y2 date1 date2 nmonths nm ny m2) + + (setq start (org-date-to-gregorian start) + current (org-date-to-gregorian current) + sday (calendar-absolute-from-gregorian start) + cday (calendar-absolute-from-gregorian current)) + + (if (<= cday sday) (throw 'exit sday)) + + (if (string-match "\\(\\+[0-9]+\\)\\([dwmy]\\)" change) + (setq dn (string-to-number (match-string 1 change)) + dw (cdr (assoc (match-string 2 change) a1))) + (error "Invalid change specifyer: %s" change)) + (if (eq dw 'week) (setq dw 'day dn (* 7 dn))) + (cond + ((eq dw 'day) + (setq n1 (+ sday (* dn (floor (/ (- cday sday) dn)))) + n2 (+ n1 dn))) + ((eq dw 'year) + (setq d (nth 1 start) m (car start) y1 (nth 2 start) y2 (nth 2 current)) + (setq y1 (+ (* (floor (/ (- y2 y1) dn)) dn) y1)) + (setq date1 (list m d y1) + n1 (calendar-absolute-from-gregorian date1) + date2 (list m d (+ y1 (* (if (< n1 cday) 1 -1) dn))) + n2 (calendar-absolute-from-gregorian date2))) + ((eq dw 'month) + ;; approx number of month between the tow dates + (setq nmonths (floor (/ (- cday sday) 30.436875))) + ;; How often does dn fit in there? + (setq d (nth 1 start) m (car start) y (nth 2 start) + nm (* dn (max 0 (1- (floor (/ nmonths dn))))) + m (+ m nm) + ny (floor (/ m 12)) + y (+ y ny) + m (- m (* ny 12))) + (while (> m 12) (setq m (- m 12) y (1+ y))) + (setq n1 (calendar-absolute-from-gregorian (list m d y))) + (setq m2 (+ m dn) y2 y) + (if (> m2 12) (setq y2 (1+ y2) m2 (- m2 12))) + (setq n2 (calendar-absolute-from-gregorian (list m2 d y2))) + (while (< n2 cday) + (setq n1 n2 m m2 y y2) + (setq m2 (+ m dn) y2 y) + (if (> m2 12) (setq y2 (1+ y2) m2 (- m2 12))) + (setq n2 (calendar-absolute-from-gregorian (list m2 d y2)))))) + + (if (> (abs (- cday n1)) (abs (- cday n2))) n2 n1)))) + +(defun org-date-to-gregorian (date) + "Turn any specification of DATE into a gregorian date for the calendar." + (cond ((integerp date) (calendar-gregorian-from-absolute date)) + ((and (listp date) (= (length date) 3)) date) + ((stringp date) + (setq date (org-parse-time-string date)) + (list (nth 4 date) (nth 3 date) (nth 5 date))) + ((listp date) + (list (nth 4 date) (nth 3 date) (nth 5 date))))) + (defun org-parse-time-string (s &optional nodefault) "Parse the standard Org-mode time string. This should be a lot faster than the normal `parse-time-string'. @@ -12436,6 +13443,7 @@ in the timestamp determines what will be changed." (let ((pos (point)) with-hm inactive org-ts-what + extra ts time time0) (if (not (org-at-timestamp-p t)) (error "Not at a timestamp")) @@ -12445,12 +13453,13 @@ in the timestamp determines what will be changed." (not (get-text-property (1- (point)) 'display))) (setq org-ts-what 'day)) (setq org-ts-what (or what org-ts-what) - with-hm (<= (abs (- (cdr org-ts-lengths) - (- (match-end 0) (match-beginning 0)))) - 1) inactive (= (char-after (match-beginning 0)) ?\[) ts (match-string 0)) (replace-match "") + (if (string-match " \\+[0-9]+[dwmy]" ts) + (setq extra (match-string 0 ts))) + (if (string-match "^.\\{10\\}.*?[0-9]+:[0-9][0-9]" ts) + (setq with-hm t)) (setq time0 (org-parse-time-string ts)) (setq time (apply 'encode-time @@ -12476,7 +13485,7 @@ in the timestamp determines what will be changed." (setcar (nthcdr 2 time0) (or (nth 1 time0) 0)) (setq time (apply 'encode-time time0)))) (setq org-last-changed-timestamp - (org-insert-time-stamp time with-hm inactive)) + (org-insert-time-stamp time with-hm inactive nil nil extra)) (org-clock-update-time-maybe) (goto-char pos) ;; Try to recenter the calendar window, if any @@ -12525,8 +13534,27 @@ If there is already a time stamp at the cursor position, update it." ;;; The clock for measuring work time. +(defvar org-mode-line-string "") +(put 'org-mode-line-string 'risky-local-variable t) + +(defvar org-mode-line-timer nil) +(defvar org-clock-heading "") +(defvar org-clock-start-time "") + +(defun org-update-mode-line () + (let* ((delta (- (time-to-seconds (current-time)) + (time-to-seconds org-clock-start-time))) + (h (floor delta 3600)) + (m (floor (- delta (* 3600 h)) 60))) + (setq org-mode-line-string + (propertize (format "-[%d:%02d (%s)]" h m org-clock-heading) + 'help-echo "Org-mode clock is running")) + (force-mode-line-update))) + (defvar org-clock-marker (make-marker) "Marker recording the last clock-in.") +(defvar org-clock-mode-line-entry nil + "Information for the modeline about the running clock.") (defun org-clock-in () "Start the clock on the current item. @@ -12536,6 +13564,10 @@ If necessary, clock-out of the currently active clock." (let (ts) (save-excursion (org-back-to-heading t) + (if (looking-at org-todo-line-regexp) + (setq org-clock-heading (match-string 3)) + (setq org-clock-heading "???")) + (setq org-clock-heading (propertize org-clock-heading 'face nil)) (beginning-of-line 2) (when (and (looking-at (concat "[ \t]*" org-keyword-time-regexp)) (not (equal (match-string 1) org-clock-string))) @@ -12545,8 +13577,15 @@ If necessary, clock-out of the currently active clock." (insert "\n") (backward-char 1) (indent-relative) (insert org-clock-string " ") + (setq org-clock-start-time (current-time)) (setq ts (org-insert-time-stamp (current-time) 'with-hm 'inactive)) (move-marker org-clock-marker (point) (buffer-base-buffer)) + (or global-mode-string (setq global-mode-string '(""))) + (or (memq 'org-mode-line-string global-mode-string) + (setq global-mode-string + (append global-mode-string '(org-mode-line-string)))) + (org-update-mode-line) + (setq org-mode-line-timer (run-with-timer 60 60 'org-update-mode-line)) (message "Clock started at %s" ts)))) (defun org-clock-out (&optional fail-quietly) @@ -12577,6 +13616,12 @@ If there is no running clock, throw an error, unless FAIL-QUIETLY is set." (insert " => " (format "%2d:%02d" h m)) (move-marker org-clock-marker nil) (org-add-log-maybe 'clock-out) + (when org-mode-line-timer + (cancel-timer org-mode-line-timer) + (setq org-mode-line-timer nil)) + (setq global-mode-string + (delq 'org-mode-line-string global-mode-string)) + (force-mode-line-update) (message "Clock stopped at %s after HH:MM = %d:%02d" te h m))))) (defun org-clock-cancel () @@ -12704,7 +13749,7 @@ from the `before-change-functions' in the current buffer." (defun org-clock-out-if-current () "Clock out if the current entry contains the running clock. This is used to stop the clock after a TODO entry is marked DONE." - (when (and (equal state org-done-string) + (when (and (member state org-done-keywords) (equal (marker-buffer org-clock-marker) (current-buffer)) (< (point) org-clock-marker) (> (save-excursion (outline-next-heading) (point)) @@ -12984,86 +14029,89 @@ The following commands are available: (substitute-key-definition 'undo 'org-agenda-undo org-agenda-mode-map global-map) -(define-key org-agenda-mode-map "\C-i" 'org-agenda-goto) -(define-key org-agenda-mode-map [(tab)] 'org-agenda-goto) -(define-key org-agenda-mode-map "\C-m" 'org-agenda-switch-to) -(define-key org-agenda-mode-map "\C-k" 'org-agenda-kill) -(define-key org-agenda-mode-map "\C-c$" 'org-agenda-archive) -(define-key org-agenda-mode-map "\C-c\C-x\C-s" 'org-agenda-archive) -(define-key org-agenda-mode-map "$" 'org-agenda-archive) -(define-key org-agenda-mode-map "\C-c\C-o" 'org-agenda-open-link) -(define-key org-agenda-mode-map " " 'org-agenda-show) -(define-key org-agenda-mode-map "\C-c\C-t" 'org-agenda-todo) -(define-key org-agenda-mode-map "\C-c\C-xb" 'org-agenda-tree-to-indirect-buffer) -(define-key org-agenda-mode-map "b" 'org-agenda-tree-to-indirect-buffer) -(define-key org-agenda-mode-map "o" 'delete-other-windows) -(define-key org-agenda-mode-map "L" 'org-agenda-recenter) -(define-key org-agenda-mode-map "t" 'org-agenda-todo) -(define-key org-agenda-mode-map "a" 'org-agenda-toggle-archive-tag) -(define-key org-agenda-mode-map ":" 'org-agenda-set-tags) -(define-key org-agenda-mode-map "." 'org-agenda-goto-today) -(define-key org-agenda-mode-map "d" 'org-agenda-day-view) -(define-key org-agenda-mode-map "w" 'org-agenda-week-view) -(define-key org-agenda-mode-map (org-key 'S-right) 'org-agenda-date-later) -(define-key org-agenda-mode-map (org-key 'S-left) 'org-agenda-date-earlier) -(define-key org-agenda-mode-map [?\C-c ?\C-x (right)] 'org-agenda-date-later) -(define-key org-agenda-mode-map [?\C-c ?\C-x (left)] 'org-agenda-date-earlier) +(org-defkey org-agenda-mode-map "\C-i" 'org-agenda-goto) +(org-defkey org-agenda-mode-map [(tab)] 'org-agenda-goto) +(org-defkey org-agenda-mode-map "\C-m" 'org-agenda-switch-to) +(org-defkey org-agenda-mode-map "\C-k" 'org-agenda-kill) +(org-defkey org-agenda-mode-map "\C-c$" 'org-agenda-archive) +(org-defkey org-agenda-mode-map "\C-c\C-x\C-s" 'org-agenda-archive) +(org-defkey org-agenda-mode-map "$" 'org-agenda-archive) +(org-defkey org-agenda-mode-map "\C-c\C-o" 'org-agenda-open-link) +(org-defkey org-agenda-mode-map " " 'org-agenda-show) +(org-defkey org-agenda-mode-map "\C-c\C-t" 'org-agenda-todo) +(org-defkey org-agenda-mode-map [(control shift right)] 'org-agenda-todo-nextset) +(org-defkey org-agenda-mode-map [(control shift left)] 'org-agenda-todo-previousset) +(org-defkey org-agenda-mode-map "\C-c\C-xb" 'org-agenda-tree-to-indirect-buffer) +(org-defkey org-agenda-mode-map "b" 'org-agenda-tree-to-indirect-buffer) +(org-defkey org-agenda-mode-map "o" 'delete-other-windows) +(org-defkey org-agenda-mode-map "L" 'org-agenda-recenter) +(org-defkey org-agenda-mode-map "t" 'org-agenda-todo) +(org-defkey org-agenda-mode-map "a" 'org-agenda-toggle-archive-tag) +(org-defkey org-agenda-mode-map ":" 'org-agenda-set-tags) +(org-defkey org-agenda-mode-map "." 'org-agenda-goto-today) +(org-defkey org-agenda-mode-map "d" 'org-agenda-day-view) +(org-defkey org-agenda-mode-map "w" 'org-agenda-week-view) +(org-defkey org-agenda-mode-map [(shift right)] 'org-agenda-date-later) +(org-defkey org-agenda-mode-map [(shift left)] 'org-agenda-date-earlier) +(org-defkey org-agenda-mode-map [?\C-c ?\C-x (right)] 'org-agenda-date-later) +(org-defkey org-agenda-mode-map [?\C-c ?\C-x (left)] 'org-agenda-date-earlier) -(define-key org-agenda-mode-map ">" 'org-agenda-date-prompt) -(define-key org-agenda-mode-map "\C-c\C-s" 'org-agenda-schedule) -(define-key org-agenda-mode-map "\C-c\C-d" 'org-agenda-deadline) +(org-defkey org-agenda-mode-map ">" 'org-agenda-date-prompt) +(org-defkey org-agenda-mode-map "\C-c\C-s" 'org-agenda-schedule) +(org-defkey org-agenda-mode-map "\C-c\C-d" 'org-agenda-deadline) (let ((l '(1 2 3 4 5 6 7 8 9 0))) - (while l (define-key org-agenda-mode-map + (while l (org-defkey org-agenda-mode-map (int-to-string (pop l)) 'digit-argument))) -(define-key org-agenda-mode-map "f" 'org-agenda-follow-mode) -(define-key org-agenda-mode-map "l" 'org-agenda-log-mode) -(define-key org-agenda-mode-map "D" 'org-agenda-toggle-diary) -(define-key org-agenda-mode-map "g" 'org-agenda-toggle-time-grid) -(define-key org-agenda-mode-map "r" 'org-agenda-redo) -(define-key org-agenda-mode-map "q" 'org-agenda-quit) -(define-key org-agenda-mode-map "x" 'org-agenda-exit) -(define-key org-agenda-mode-map "s" 'org-save-all-org-buffers) -(define-key org-agenda-mode-map "P" 'org-agenda-show-priority) -(define-key org-agenda-mode-map "T" 'org-agenda-show-tags) -(define-key org-agenda-mode-map "n" 'next-line) -(define-key org-agenda-mode-map "p" 'previous-line) -(define-key org-agenda-mode-map "\C-n" 'org-agenda-next-date-line) -(define-key org-agenda-mode-map "\C-p" 'org-agenda-previous-date-line) -(define-key org-agenda-mode-map "," 'org-agenda-priority) -(define-key org-agenda-mode-map "\C-c," 'org-agenda-priority) -(define-key org-agenda-mode-map "i" 'org-agenda-diary-entry) -(define-key org-agenda-mode-map "c" 'org-agenda-goto-calendar) +(org-defkey org-agenda-mode-map "f" 'org-agenda-follow-mode) +(org-defkey org-agenda-mode-map "l" 'org-agenda-log-mode) +(org-defkey org-agenda-mode-map "D" 'org-agenda-toggle-diary) +(org-defkey org-agenda-mode-map "g" 'org-agenda-toggle-time-grid) +(org-defkey org-agenda-mode-map "r" 'org-agenda-redo) +(org-defkey org-agenda-mode-map "q" 'org-agenda-quit) +(org-defkey org-agenda-mode-map "x" 'org-agenda-exit) +(org-defkey org-agenda-mode-map "\C-x\C-w" 'org-write-agenda) +(org-defkey org-agenda-mode-map "s" 'org-save-all-org-buffers) +(org-defkey org-agenda-mode-map "P" 'org-agenda-show-priority) +(org-defkey org-agenda-mode-map "T" 'org-agenda-show-tags) +(org-defkey org-agenda-mode-map "n" 'next-line) +(org-defkey org-agenda-mode-map "p" 'previous-line) +(org-defkey org-agenda-mode-map "\C-n" 'org-agenda-next-date-line) +(org-defkey org-agenda-mode-map "\C-p" 'org-agenda-previous-date-line) +(org-defkey org-agenda-mode-map "," 'org-agenda-priority) +(org-defkey org-agenda-mode-map "\C-c," 'org-agenda-priority) +(org-defkey org-agenda-mode-map "i" 'org-agenda-diary-entry) +(org-defkey org-agenda-mode-map "c" 'org-agenda-goto-calendar) (eval-after-load "calendar" - '(define-key calendar-mode-map org-calendar-to-agenda-key + '(org-defkey calendar-mode-map org-calendar-to-agenda-key 'org-calendar-goto-agenda)) -(define-key org-agenda-mode-map "C" 'org-agenda-convert-date) -(define-key org-agenda-mode-map "m" 'org-agenda-phases-of-moon) -(define-key org-agenda-mode-map "M" 'org-agenda-phases-of-moon) -(define-key org-agenda-mode-map "S" 'org-agenda-sunrise-sunset) -(define-key org-agenda-mode-map "h" 'org-agenda-holidays) -(define-key org-agenda-mode-map "H" 'org-agenda-holidays) -(define-key org-agenda-mode-map "+" 'org-agenda-priority-up) -(define-key org-agenda-mode-map "I" 'org-agenda-clock-in) -(define-key org-agenda-mode-map "O" 'org-agenda-clock-out) -(define-key org-agenda-mode-map "X" 'org-agenda-clock-cancel) -(define-key org-agenda-mode-map "-" 'org-agenda-priority-down) -(define-key org-agenda-mode-map (org-key 'S-up) 'org-agenda-priority-up) -(define-key org-agenda-mode-map (org-key 'S-down) 'org-agenda-priority-down) -(define-key org-agenda-mode-map [?\C-c ?\C-x (up)] 'org-agenda-priority-up) -(define-key org-agenda-mode-map [?\C-c ?\C-x (down)] 'org-agenda-priority-down) -(define-key org-agenda-mode-map [(right)] 'org-agenda-later) -(define-key org-agenda-mode-map [(left)] 'org-agenda-earlier) -(define-key org-agenda-mode-map "\C-c\C-x\C-c" 'org-export-icalendar-combine-agenda-files) +(org-defkey org-agenda-mode-map "C" 'org-agenda-convert-date) +(org-defkey org-agenda-mode-map "m" 'org-agenda-phases-of-moon) +(org-defkey org-agenda-mode-map "M" 'org-agenda-phases-of-moon) +(org-defkey org-agenda-mode-map "S" 'org-agenda-sunrise-sunset) +(org-defkey org-agenda-mode-map "h" 'org-agenda-holidays) +(org-defkey org-agenda-mode-map "H" 'org-agenda-holidays) +(org-defkey org-agenda-mode-map "I" 'org-agenda-clock-in) +(org-defkey org-agenda-mode-map "O" 'org-agenda-clock-out) +(org-defkey org-agenda-mode-map "X" 'org-agenda-clock-cancel) +(org-defkey org-agenda-mode-map "+" 'org-agenda-priority-up) +(org-defkey org-agenda-mode-map "-" 'org-agenda-priority-down) +(org-defkey org-agenda-mode-map [(shift up)] 'org-agenda-priority-up) +(org-defkey org-agenda-mode-map [(shift down)] 'org-agenda-priority-down) +(org-defkey org-agenda-mode-map [?\C-c ?\C-x (up)] 'org-agenda-priority-up) +(org-defkey org-agenda-mode-map [?\C-c ?\C-x (down)] 'org-agenda-priority-down) +(org-defkey org-agenda-mode-map [(right)] 'org-agenda-later) +(org-defkey org-agenda-mode-map [(left)] 'org-agenda-earlier) +(org-defkey org-agenda-mode-map "\C-c\C-x\C-c" 'org-export-icalendar-combine-agenda-files) (defvar org-agenda-keymap (copy-keymap org-agenda-mode-map) "Local keymap for agenda entries from Org-mode.") -(define-key org-agenda-keymap +(org-defkey org-agenda-keymap (if (featurep 'xemacs) [(button2)] [(mouse-2)]) 'org-agenda-goto-mouse) -(define-key org-agenda-keymap +(org-defkey org-agenda-keymap (if (featurep 'xemacs) [(button3)] [(mouse-3)]) 'org-agenda-show-mouse) (when org-agenda-mouse-1-follows-link - (define-key org-agenda-keymap [follow-link] 'mouse-face)) + (org-defkey org-agenda-keymap [follow-link] 'mouse-face)) (easy-menu-define org-agenda-menu org-agenda-mode-map "Agenda menu" '("Agenda" ("Agenda Files") @@ -13120,6 +14168,7 @@ The following commands are available: :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)] ["Use Time Grid" org-agenda-toggle-time-grid :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)]) + ["Write view to file" org-write-agenda t] ["Rebuild buffer" org-agenda-redo t] ["Save all Org-mode Buffers" org-save-all-org-buffers t] "--" @@ -13146,6 +14195,11 @@ The following commands are available: `(unless (get-text-property (point) 'org-protected) ,@body)) +(defmacro org-unmodified (&rest body) + "Execute body without changing buffer-modified-p." + `(set-buffer-modified-p + (prog1 (buffer-modified-p) ,@body))) + (defmacro org-with-remote-undo (_buffer &rest _body) "Execute BODY while recording undo information in two buffers." (declare (indent 1) (debug t)) @@ -13230,7 +14284,8 @@ T Call `org-todo-list' to display the global todo list, select only m Call `org-tags-view' to display headlines with tags matching a condition (the user is prompted for the condition). M Like `m', but select only TODO entries, no ordinary headlines. -l Create a timeeline for the current buffer. +l Create a timeline for the current buffer. +e Export views to associated files. More commands can be added by configuring the variable `org-agenda-custom-commands'. In particular, specific tags and TODO keyword @@ -13261,7 +14316,7 @@ next use of \\[org-agenda]) restricted to the current file." (let ((header "Press key for an agenda command: -------------------------------- C Configure custom agenda commands -a Agenda for current week or day +a Agenda for current week or day e Export agenda views t List of all TODO entries T Entries with special TODO kwd m Match a TAGS query M Like m, but only TODO entries L Timeline for current buffer # List stuck projects (!=configure) @@ -13279,6 +14334,9 @@ L Timeline for current buffer # List stuck projects (!=configure) '(face bold)) (cond ((stringp type) type) + ((eq type 'agenda) "Agenda for current week or day") + ((eq type 'alltodo) "List of all TODO entries") + ((eq type 'stuck) "List of stuck projects") ((eq type 'todo) "TODO keyword") ((eq type 'tags) "Tags query") ((eq type 'tags-todo) "Tags (TODO)") @@ -13333,6 +14391,13 @@ L Timeline for current buffer # List stuck projects (!=configure) (setq type (nth 1 entry) match (nth 2 entry) lprops (nth 3 entry) lprops (nth 3 entry)) (cond + ((eq type 'agenda) + (org-let lprops '(org-agenda-list current-prefix-arg))) + ((eq type 'alltodo) + (org-let lprops '(org-todo-list current-prefix-arg))) + ((eq type 'stuck) + (org-let lprops '(org-agenda-list-stuck-projects + current-prefix-arg))) ((eq type 'tags) (org-let lprops '(org-tags-view current-prefix-arg match))) ((eq type 'tags-todo) @@ -13353,13 +14418,14 @@ L Timeline for current buffer # List stuck projects (!=configure) ((fboundp type) (org-let lprops '(funcall type match))) (t (error "Invalid custom agenda command type %s" type)))) - (org-run-agenda-series (cddr entry)))) + (org-run-agenda-series (nth 1 entry) (cddr entry)))) ((equal c ?C) (customize-variable 'org-agenda-custom-commands)) ((equal c ?a) (call-interactively 'org-agenda-list)) ((equal c ?t) (call-interactively 'org-todo-list)) ((equal c ?T) (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal c ?m) (call-interactively 'org-tags-view)) ((equal c ?M) (org-call-with-arg 'org-tags-view (or arg '(4)))) + ((equal c ?e) (call-interactively 'org-store-agenda-views)) ((equal c ?L) (unless restrict-ok (error "This is not an Org-mode file")) @@ -13368,10 +14434,10 @@ L Timeline for current buffer # List stuck projects (!=configure) ((equal c ?!) (customize-variable 'org-stuck-projects)) (t (error "Invalid key")))))) -(defun org-run-agenda-series (series) - (org-prepare-agenda) +(defun org-run-agenda-series (name series) + (org-prepare-agenda name) (let* ((org-agenda-multi t) - (redo (list 'org-run-agenda-series (list 'quote series))) + (redo (list 'org-run-agenda-series name (list 'quote series))) (cmds (car series)) (gprops (nth 1 series)) match ;; The byte compiler incorrectly complains about this. Keep it! @@ -13380,11 +14446,14 @@ L Timeline for current buffer # List stuck projects (!=configure) (setq type (car cmd) match (nth 1 cmd) lprops (nth 2 cmd)) (cond ((eq type 'agenda) - (call-interactively 'org-agenda-list)) + (org-let2 gprops lprops + '(call-interactively 'org-agenda-list))) ((eq type 'alltodo) - (call-interactively 'org-todo-list)) + (org-let2 gprops lprops + '(call-interactively 'org-todo-list))) ((eq type 'stuck) - (call-interactively 'org-agenda-list-stuck-projects)) + (org-let2 gprops lprops + '(call-interactively 'org-agenda-list-stuck-projects))) ((eq type 'tags) (org-let2 gprops lprops '(org-tags-view current-prefix-arg match))) @@ -13405,17 +14474,208 @@ L Timeline for current buffer # List stuck projects (!=configure) ;;;###autoload (defmacro org-batch-agenda (cmd-key &rest parameters) - "Run an agenda command in batch mode, send result to STDOUT. -CMD-KEY is a string that is also a key in `org-agenda-custom-commands'. + "Run an agenda command in batch mode and send the result to STDOUT. +If CMD-KEY is a string of length 1, it is used as a key in +`org-agenda-custom-commands' and triggers this command. If it is a +longer string is is used as a tags/todo match string. Paramters are alternating variable names and values that will be bound before running the agenda command." (let (pars) (while parameters (push (list (pop parameters) (if parameters (pop parameters))) pars)) - (flet ((read-char-exclusive () (string-to-char cmd-key))) - (eval (list 'let (nreverse pars) '(org-agenda nil)))) + (if (> (length cmd-key) 1) + (eval (list 'let (nreverse pars) + (list 'org-tags-view nil cmd-key))) + (flet ((read-char-exclusive () (string-to-char cmd-key))) + (eval (list 'let (nreverse pars) '(org-agenda nil))))) (set-buffer "*Org Agenda*") - (princ (buffer-string)))) + (princ (org-encode-for-stdout (buffer-string))))) + +(defun org-encode-for-stdout (string) + (if (fboundp 'encode-coding-string) + (encode-coding-string string buffer-file-coding-system) + string)) + +(defvar org-agenda-info nil) + +;;;###autoload +(defmacro org-batch-agenda-csv (cmd-key &rest parameters) + "Run an agenda command in batch mode and send the result to STDOUT. +If CMD-KEY is a string of length 1, it is used as a key in +`org-agenda-custom-commands' and triggers this command. If it is a +longer string is is used as a tags/todo match string. +Paramters are alternating variable names and values that will be bound +before running the agenda command. + +The output gives a line for each selected agenda item. Each +item is a list of comma-separated values, like this: + +category,head,type,todo,tags,date,time,extra,priority-l,priority-n + +category The category of the item +head The headline, without TODO kwd, TAGS and PRIORITY +type The type of the agenda entry, can be + todo selected in TODO match + tagsmatch selected in tags match + diary imported from diary + deadline a deadline on given date + scheduled scheduled on given date + timestamp entry has timestamp on given date + closed entry was closed on given date + upcoming-deadline warning about deadline + past-scheduled forwarded scheduled item + block entry has date block including g. date +todo The todo keyword, if any +tags All tags including inherited ones, separated by colons +date The relevant date, like 2007-2-14 +time The time, like 15:00-16:50 +extra Sting with extra planning info +priority-l The priority letter if any was given +priority-n The computed numerical priority" + + (let (pars) + (while parameters + (push (list (pop parameters) (if parameters (pop parameters))) pars)) + (push (list 'org-agenda-remove-tags t) pars) + (if (> (length cmd-key) 1) + (eval (list 'let (nreverse pars) + (list 'org-tags-view nil cmd-key))) + (flet ((read-char-exclusive () (string-to-char cmd-key))) + (eval (list 'let (nreverse pars) '(org-agenda nil))))) + (set-buffer "*Org Agenda*") + (let* ((lines (org-split-string (buffer-string) "\n")) + line) + (while (setq line (pop lines)) + (catch 'next + (if (not (get-text-property 0 'org-category line)) (throw 'next nil)) + (setq org-agenda-info + (org-fix-agenda-info (text-properties-at 0 line))) + (princ + (org-encode-for-stdout + (mapconcat 'org-agenda-export-csv-mapper + '(org-category txt type todo tags date time-of-day extra + priority-letter priority) + ","))) + (princ "\n")))))) + +(defun org-fix-agenda-info (props) + "FIXME" + (let (tmp re) + (when (setq tmp (plist-get props 'tags)) + (setq props (plist-put props 'tags (mapconcat 'identity tmp ":")))) + (when (setq tmp (plist-get props 'date)) + (if (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp))) + (let ((calendar-date-display-form '(year "-" month "-" day))) + '((format "%4d, %9s %2s, %4s" dayname monthname day year)) + + (setq tmp (calendar-date-string tmp))) + (setq props (plist-put props 'date tmp))) + (when (setq tmp (plist-get props 'day)) + (if (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp))) + (let ((calendar-date-display-form '(year "-" month "-" day))) + (setq tmp (calendar-date-string tmp))) + (setq props (plist-put props 'day tmp))) + (when (setq tmp (plist-get props 'txt)) + (when (string-match "\\[#\\([A-Z0-9]\\)\\] ?" tmp) + (plist-put props 'priority-letter (match-string 1 tmp)) + (setq tmp (replace-match "" t t tmp))) + (when (and (setq re (plist-get props 'org-todo-regexp)) + (setq re (concat "\\`\\.*" re " ?")) + (string-match re tmp)) + (plist-put props 'todo (match-string 1 tmp)) + (setq tmp (replace-match "" t t tmp))) + (plist-put props 'txt tmp))) + props) + +(defun org-agenda-export-csv-mapper (prop) + (let ((res (plist-get org-agenda-info prop))) + (setq res + (cond + ((not res) "") + ((stringp res) res) + (t (prin1-to-string res)))) + (while (string-match "," res) + (setq res (replace-match ";" t t res))) + (org-trim res))) + + +;;;###autoload +(defun org-store-agenda-views (&rest parameters) + (interactive) + (eval (list 'org-batch-store-agenda-views))) + +(defvar org-agenda-buffer-name) + +;; FIXME, why is this a macro????? +;;;###autoload +(defmacro org-batch-store-agenda-views (&rest parameters) + "Run all custom agenda commands that have a file argument." + (let ((cmds org-agenda-custom-commands) + (dir (default-directory)) + pars cmd thiscmdkey files opts) + (while parameters + (push (list (pop parameters) (if parameters (pop parameters))) pars)) + (setq pars (reverse pars)) + (save-window-excursion + (while cmds + (setq cmd (pop cmds) + thiscmdkey (car cmd) + opts (nth 3 cmd) + files (org-last cmd)) + (if (stringp files) (setq files (list files))) + (when files + (flet ((read-char-exclusive () (string-to-char thiscmdkey))) + (eval (list 'let (append org-agenda-exporter-settings opts pars) + '(org-agenda nil)))) + (set-buffer "*Org Agenda*") + (while files + (eval (list 'let (append org-agenda-exporter-settings opts pars) + (list 'org-write-agenda + (expand-file-name (pop files) dir) t))))) + (kill-buffer org-agenda-buffer-name))))) + +(defun org-write-agenda (file &optional nosettings) + "Write the current buffer (an agenda view) as a file. +Depending on the extension of the file name, plain text (.txt), +HTML (.html or .htm) or Postscript (.ps) is produced. +If NOSETTINGS is given, do not scope the settings of +`org-agenda-exporter-settings' into the export commands. This is used when +the settings have already been scoped and we do not wish to overrule other, +higher priority settings." + (interactive "FWrite agenda to file: ") + (if (not (file-writable-p file)) + (error "Cannot write agenda to file %s" file)) + (cond + ((string-match "\\.html?\\'" file) (require 'htmlize)) + ((string-match "\\.ps\\'" file) (require 'ps-print))) + (org-let (if nosettings nil org-agenda-exporter-settings) + '(save-excursion + (save-window-excursion + (cond + ((string-match "\\.html?\\'" file) + (set-buffer (htmlize-buffer (current-buffer))) + + (when (and org-agenda-export-html-style + (string-match "")) + (insert org-agenda-export-html-style)) + (write-file file) + (kill-buffer (current-buffer)) + (message "HTML written to %s" file)) + ((string-match "\\.ps\\'" file) + (ps-print-buffer-with-faces file) + (message "Postscript written to %s" file)) + (t + (let ((bs (buffer-string))) + (find-file file) + (insert bs) + (save-buffer 0) + (kill-buffer (current-buffer)) + (message "Plain text written to %s" file)))))) + (set-buffer org-agenda-buffer-name))) (defmacro org-no-read-only (&rest body) "Inhibit read-only for BODY." @@ -13508,13 +14768,6 @@ If the current buffer does not, find the first agenda file." (find-file (car fs))) (if (buffer-base-buffer) (switch-to-buffer (buffer-base-buffer))))) -(defun org-agenda-file-to-end () - "Move/add the current file to the end of the agenda file list. -If the file is not present in the list, it is appended to the list. If it is -present, it is moved there." - (interactive) - (org-agenda-file-to-front 'to-end)) - (defun org-agenda-file-to-front (&optional to-end) "Move/add the current file to the top of the agenda file list. If the file is not present in the list, it is added to the front. If it is @@ -13578,7 +14831,10 @@ Optional argument FILE means, use this file instead of the current." (defvar org-agenda-multi nil) ; dynammically scoped (defvar org-agenda-buffer-name "*Org Agenda*") (defvar org-pre-agenda-window-conf nil) -(defun org-prepare-agenda () +(defvar org-agenda-name nil) +(defun org-prepare-agenda (&optional name) + (setq org-todo-keywords-for-agenda nil) + (setq org-done-keywords-for-agenda nil) (if org-agenda-multi (progn (setq buffer-read-only nil) @@ -13588,6 +14844,10 @@ Optional argument FILE means, use this file instead of the current." (narrow-to-region (point) (point-max))) (org-agenda-maybe-reset-markers 'force) (org-prepare-agenda-buffers (org-agenda-files)) + (setq org-todo-keywords-for-agenda + (org-uniquify org-todo-keywords-for-agenda)) + (setq org-done-keywords-for-agenda + (org-uniquify org-done-keywords-for-agenda)) (let* ((abuf (get-buffer-create org-agenda-buffer-name)) (awin (get-buffer-window abuf))) (cond @@ -13605,7 +14865,9 @@ Optional argument FILE means, use this file instead of the current." (switch-to-buffer-other-window abuf)))) (setq buffer-read-only nil) (erase-buffer) - (org-agenda-mode)) + (org-agenda-mode) + (and name (not org-agenda-name) + (org-set-local 'org-agenda-name name))) (setq buffer-read-only nil)) (defun org-finalize-agenda () @@ -13617,7 +14879,9 @@ Optional argument FILE means, use this file instead of the current." (goto-char (point-min)) (while (org-activate-bracket-links (point-max)) (add-text-properties (match-beginning 0) (match-end 0) - '(face org-link)))) + '(face org-link))) + (unless org-agenda-with-colors + (remove-text-properties (point-min) (point-max) '(face nil)))) (run-hooks 'org-finalize-agenda-hook)))) (defun org-prepare-agenda-buffers (files) @@ -13635,6 +14899,10 @@ Optional argument FILE means, use this file instead of the current." (set-buffer (org-get-agenda-file-buffer file)) (widen) (setq bmp (buffer-modified-p)) + (setq org-todo-keywords-for-agenda + (append org-todo-keywords-for-agenda org-todo-keywords-1)) + (setq org-done-keywords-for-agenda + (append org-done-keywords-for-agenda org-done-keywords)) (save-excursion (remove-text-properties (point-min) (point-max) pall) (when org-agenda-skip-archived-trees @@ -13648,7 +14916,7 @@ Optional argument FILE means, use this file instead of the current." (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc))) (set-buffer-modified-p bmp)))))) - + (defvar org-agenda-skip-function nil "Function to be called at each match during agenda construction. If this function return nil, the current match should not be skipped. @@ -13733,9 +15001,13 @@ When a buffer is unmodified, it is just killed. When modified, it is saved "Get the table of categories and positions in current buffer." (let (tbl) (save-excursion - (goto-char (point-min)) - (while (re-search-forward "\\(^\\|\r\\)#\\+CATEGORY:[ \t]*\\(.*\\)" nil t) - (push (cons (point) (org-trim (match-string 2))) tbl))) + (save-restriction + (widen) + (goto-char (point-min)) + (while (re-search-forward "^#\\+CATEGORY:[ \t]*\\(.*\\)" + nil t) + (push (cons (match-beginning 1) + (org-trim (match-string 1))) tbl)))) tbl)) (defun org-get-category (&optional pos) @@ -13792,16 +15064,18 @@ dates." (setq day-numbers (delq nil (mapcar (lambda(x) (if (>= x today) x nil)) day-numbers)))) - (org-prepare-agenda) + (org-prepare-agenda (concat "Timeline " + (file-name-nondirectory buffer-file-name))) (if doclosed (push :closed args)) (push :timestamp args) + (push :sexp args) (if dotodo (push :todo args)) (while (setq d (pop day-numbers)) (if (and (listp d) (eq (car d) :omitted)) (progn (setq s (point)) (insert (format "\n[... %d empty days omitted]\n\n" (cdr d))) - (put-text-property s (1- (point)) 'face 'org-level-3)) + (put-text-property s (1- (point)) 'face 'org-agenda-structure)) (if (listp d) (setq d (car d) emptyp t) (setq emptyp nil)) (if (and (>= d today) dopast @@ -13824,7 +15098,7 @@ dates." ; (insert (format-time-string org-agenda-date-format ; (calendar-time-from-absolute d 0)) ; "\n") - (put-text-property s (1- (point)) 'face 'org-level-3) + (put-text-property s (1- (point)) 'face 'org-agenda-structure) (put-text-property s (1- (point)) 'org-date-line t) (if (equal d today) (put-text-property s (1- (point)) 'org-today t)) @@ -13936,7 +15210,7 @@ NDAYS defaults to `org-agenda-ndays'." (push (1+ (car day-numbers)) day-numbers) (setq ndays (1- ndays))) (setq day-numbers (nreverse day-numbers)) - (org-prepare-agenda) + (org-prepare-agenda "Day/Week") (org-set-local 'org-starting-day (car day-numbers)) (org-set-local 'org-include-all-loc include-all) (when (and (or include-all org-agenda-include-all-todo) @@ -13953,11 +15227,12 @@ NDAYS defaults to `org-agenda-ndays'." (when rtnall (insert "ALL CURRENTLY OPEN TODO ITEMS:\n") (add-text-properties (point-min) (1- (point)) - (list 'face 'org-level-3)) + (list 'face 'org-agenda-structure)) (insert (org-finalize-agenda-entries rtnall) "\n"))) (setq s (point)) (insert (if (= nd 7) "Week-" "Day-") "agenda:\n") - (add-text-properties s (1- (point)) (list 'face 'org-level-3)) + (add-text-properties s (1- (point)) (list 'face 'org-agenda-structure + 'org-date-line t)) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) s (point)) @@ -13974,10 +15249,10 @@ NDAYS defaults to `org-agenda-ndays'." (if org-agenda-show-log (setq rtn (org-agenda-get-day-entries file date - :deadline :scheduled :timestamp :closed)) + :deadline :scheduled :timestamp :sexp :closed)) (setq rtn (org-agenda-get-day-entries file date - :deadline :scheduled :timestamp))) + :deadline :scheduled :sexp :timestamp))) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary (progn @@ -13994,7 +15269,7 @@ NDAYS defaults to `org-agenda-ndays'." ; FIXME: this gives a timezone problem ; (insert (format-time-string org-agenda-date-format ; (calendar-time-from-absolute d 0)) "\n") - (put-text-property s (1- (point)) 'face 'org-level-3) + (put-text-property s (1- (point)) 'face 'org-agenda-structure) (put-text-property s (1- (point)) 'org-date-line t) (if todayp (put-text-property s (1- (point)) 'org-today t)) (if rtnall (insert @@ -14030,28 +15305,28 @@ NDAYS defaults to `org-agenda-ndays'." The prefix arg can be used to select a specific TODO keyword and limit the list to these. When using \\[universal-argument], you will be prompted for a keyword. A numeric prefix directly selects the Nth keyword in -`org-todo-keywords'." +`org-todo-keywords-1'." (interactive "P") (require 'calendar) (org-compile-prefix-format 'todo) (org-set-sorting-strategy 'todo) + (org-prepare-agenda "TODO") (let* ((today (time-to-days (current-time))) (date (calendar-gregorian-from-absolute today)) - (kwds org-todo-keywords) + (kwds org-todo-keywords-for-agenda) (completion-ignore-case t) (org-select-this-todo-keyword (if (stringp arg) arg (and arg (integerp arg) (> arg 0) - (nth (1- arg) org-todo-keywords)))) + (nth (1- arg) kwds)))) rtn rtnall files file pos) (when (equal arg '(4)) (setq org-select-this-todo-keyword - (completing-read "Keyword: " (mapcar 'list org-todo-keywords) - nil t))) + (completing-read "Keyword (or KWD1|K2D2|...): " + (mapcar 'list kwds) nil nil))) (and (equal 0 arg) (setq org-select-this-todo-keyword nil)) - (org-prepare-agenda) (org-set-local 'org-last-arg arg) - (org-set-local 'org-todo-keywords kwds) +;FIXME (org-set-local 'org-todo-keywords-for-agenda kwds) (setq org-agenda-redo-command '(org-todo-list (or current-prefix-arg org-last-arg))) (setq files (org-agenda-files) @@ -14063,23 +15338,25 @@ for a keyword. A numeric prefix directly selects the Nth keyword in (setq rtnall (append rtnall rtn)))) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) - nil 'face 'org-level-3) "\n") + nil 'face 'org-agenda-structure) "\n") (insert "Global list of TODO items of type: ") (add-text-properties (point-min) (1- (point)) - (list 'face 'org-level-3)) + (list 'face 'org-agenda-structure)) (setq pos (point)) (insert (or org-select-this-todo-keyword "ALL") "\n") (add-text-properties pos (1- (point)) (list 'face 'org-warning)) (setq pos (point)) (unless org-agenda-multi - (insert - "Available with `N r': (0)ALL " - (let ((n 0)) - (mapconcat (lambda (x) - (format "(%d)%s" (setq n (1+ n)) x)) - org-todo-keywords " ")) - "\n")) - (add-text-properties pos (1- (point)) (list 'face 'org-level-3))) + (insert "Available with `N r': (0)ALL") + (let ((n 0) s) + (mapc (lambda (x) + (setq s (format "(%d)%s" (setq n (1+ n)) x)) + (if (> (+ (current-column) (string-width s) 1) (frame-width)) + (insert "\n ")) + (insert " " s)) + kwds)) + (insert "\n")) + (add-text-properties pos (1- (point)) (list 'face 'org-agenda-structure))) (when rtnall (insert (org-finalize-agenda-entries rtnall) "\n")) (goto-char (point-min)) @@ -14104,7 +15381,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries." buffer) (setq matcher (org-make-tags-matcher match) match (car matcher) matcher (cdr matcher)) - (org-prepare-agenda) + (org-prepare-agenda (concat "TAGS " match)) (setq org-agenda-redo-command (list 'org-tags-view (list 'quote todo-only) (list 'if 'current-prefix-arg nil match))) @@ -14135,17 +15412,17 @@ The prefix arg TODO-ONLY limits the search to TODO entries." (setq rtnall (append rtnall rtn)))))))) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence org-agenda-overriding-header) - nil 'face 'org-level-3) "\n") + nil 'face 'org-agenda-structure) "\n") (insert "Headlines with TAGS match: ") (add-text-properties (point-min) (1- (point)) - (list 'face 'org-level-3)) + (list 'face 'org-agenda-structure)) (setq pos (point)) (insert match "\n") (add-text-properties pos (1- (point)) (list 'face 'org-warning)) (setq pos (point)) (unless org-agenda-multi (insert "Press `C-u r' to search again with new search string\n")) - (add-text-properties pos (1- (point)) (list 'face 'org-level-3))) + (add-text-properties pos (1- (point)) (list 'face 'org-agenda-structure))) (when rtnall (insert (org-finalize-agenda-entries rtnall) "\n")) (goto-char (point-min)) @@ -14187,21 +15464,34 @@ MATCH is being ignored." (org-agenda-overriding-header "List of stuck projects: ") (matcher (nth 0 org-stuck-projects)) (todo (nth 1 org-stuck-projects)) - (tags (nth 2 org-stuck-projects)) + (todo-wds (if (member "*" todo) + (progn + (org-prepare-agenda-buffers (org-agenda-files)) + (org-delete-all + org-done-keywords-for-agenda + (copy-sequence org-todo-keywords-for-agenda))) + todo)) (todo-re (concat "^\\*+[ \t]+\\(" - (mapconcat 'identity todo "\\|") + (mapconcat 'identity todo-wds "\\|") "\\)\\>")) - (tags-re (concat "^\\*+.*:\\(" - (mapconcat 'identity tags "\\|") - "\\):[a-zA-Z0-9_@:]*[ \t]*$"))) - + (tags (nth 2 org-stuck-projects)) + (tags-re (if (member "*" tags) + "^\\*+.*:[a-zA-Z0-9_@]+:[ \t]*$" + (concat "^\\*+.*:\\(" + (mapconcat 'identity tags "\\|") + "\\):[a-zA-Z0-9_@:]*[ \t]*$"))) + (gen-re (nth 3 org-stuck-projects)) + (re-list + (delq nil + (list + (if todo todo-re) + (if tags tags-re) + (and gen-re (stringp gen-re) (string-match "\\S-" gen-re) + gen-re))))) (setq org-agenda-skip-regexp - (cond - ((and todo tags) - (concat todo-re "\\|" tags-re)) - (todo todo-re) - (tags tags-re) - (t (error "No information how to identify unstuck projects")))) + (if re-list + (mapconcat 'identity re-list "\\|") + (error "No information how to identify unstuck projects"))) (org-tags-view nil matcher) (with-current-buffer org-agenda-buffer-name (setq org-agenda-redo-command @@ -14247,7 +15537,8 @@ MATCH is being ignored." (lambda (x) (setq x (org-format-agenda-item "" x "Diary" nil 'time)) ;; Extend the text properties to the beginning of the line - (org-add-props x (text-properties-at (1- (length x)) x))) + (org-add-props x (text-properties-at (1- (length x)) x) + 'type "diary" 'date date)) entries))))) (defun org-agenda-cleanup-fancy-diary () @@ -14316,6 +15607,8 @@ items should be listed. The following arguments are allowed: date range matching the selected date. Deadlines will also be listed, on the expiration day. + :sexp FIXME + :deadline List any deadlines past due, or due within `org-deadline-warning-days'. The listing occurs only in the diary for *today*, not at any other date. If @@ -14340,10 +15633,10 @@ all files listed in `org-agenda-files' will be checked automatically: &%%(org-diary) If you don't give any arguments (as in the example above), the default -arguments (:deadline :scheduled :timestamp) are used. So the example above may -also be written as +arguments (:deadline :scheduled :timestamp :sexp) are used. +So the example above may also be written as - &%%(org-diary :deadline :timestamp :scheduled) + &%%(org-diary :deadline :timestamp :sexp :scheduled) The function expects the lisp variables `entry' and `date' to be provided by the caller, because this is how the calendar works. Don't use this @@ -14351,11 +15644,12 @@ function from a program - use `org-agenda-get-day-entries' instead." (org-agenda-maybe-reset-markers) (org-compile-prefix-format 'agenda) (org-set-sorting-strategy 'agenda) - (setq args (or args '(:deadline :scheduled :timestamp))) + (setq args (or args '(:deadline :scheduled :timestamp :sexp))) (let* ((files (if (and entry (stringp entry) (string-match "\\S-" entry)) (list entry) (org-agenda-files t))) file rtn results) + (org-prepare-agenda-buffers files) ;; If this is called during org-agenda, don't return any entries to ;; the calendar. Org Agenda will list these entries itself. (if org-disable-agenda-to-diary (setq files nil)) @@ -14373,7 +15667,7 @@ FILE is the path to a file to be checked for entries. DATE is date like the one returned by `calendar-current-date'. ARGS are symbols indicating which kind of entries should be extracted. For details about these, see the documentation of `org-diary'." - (setq args (or args '(:deadline :scheduled :timestamp))) + (setq args (or args '(:deadline :scheduled :timestamp :sexp))) (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer (if (file-exists-p file) @@ -14406,6 +15700,9 @@ the documentation of `org-diary'." (setq results (append results rtn)) (setq rtn (org-agenda-get-timestamps)) (setq results (append results rtn))) + ((eq arg :sexp) + (setq rtn (org-agenda-get-sexps)) + (setq results (append results rtn))) ((eq arg :scheduled) (setq rtn (org-agenda-get-scheduled)) (setq results (append results rtn))) @@ -14447,15 +15744,20 @@ the documentation of `org-diary'." (let* ((props (list 'face nil 'done-face 'org-done 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'mouse-face 'highlight 'keymap org-agenda-keymap 'help-echo (format "mouse-2 or RET jump to org file %s" (abbreviate-file-name buffer-file-name)))) + ;; FIXME: get rid of the \n at some point but watch out (regexp (concat "[\n\r]\\*+ *\\(" (if org-select-this-todo-keyword - (concat "\\<\\(" org-select-this-todo-keyword - "\\)\\>") + (if (equal org-select-this-todo-keyword "*") + org-todo-regexp + (concat "\\<\\(" + (mapconcat 'identity (org-split-string org-select-this-todo-keyword "|") "\\|") + "\\)\\>")) org-not-done-regexp) "[^\n\r]*\\)")) marker priority category tags @@ -14481,16 +15783,11 @@ the documentation of `org-diary'." category (org-get-category) tags (org-get-tags-at (point)) txt (org-format-agenda-item "" (match-string 1) category tags) - priority - (+ (org-get-priority txt) - (if org-todo-kwd-priority-p - (- org-todo-kwd-max-priority -2 - (length - (member (match-string 2) org-todo-keywords))) - 1))) + priority (1+ (org-get-priority txt))) (org-add-props txt props 'org-marker marker 'org-hd-marker marker - 'priority priority 'org-category category) + 'priority priority 'org-category category + 'type "todo") (push txt ee) (if org-agenda-todo-list-sublevels (goto-char (match-end 1)) @@ -14504,38 +15801,61 @@ the documentation of `org-diary'." "Return the date stamp information for agenda display." (let* ((props (list 'face nil 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'mouse-face 'highlight 'keymap org-agenda-keymap 'help-echo (format "mouse-2 or RET jump to org file %s" (abbreviate-file-name buffer-file-name)))) - (regexp (regexp-quote - (substring - (format-time-string - (car org-time-stamp-formats) - (apply 'encode-time ; DATE bound by calendar - (list 0 0 0 (nth 1 date) (car date) (nth 2 date)))) - 0 11))) +;???? (regexp (regexp-quote +; (substring +; (format-time-string +; (car org-time-stamp-formats) +; (apply 'encode-time ; DATE bound by calendar +; (list 0 0 0 (nth 1 date) (car date) (nth 2 date)))) +; 0 11))) + (d1 (calendar-absolute-from-gregorian date)) + (regexp + (concat + (regexp-quote + (substring + (format-time-string + (car org-time-stamp-formats) + (apply 'encode-time ; DATE bound by calendar + (list 0 0 0 (nth 1 date) (car date) (nth 2 date)))) + 0 11)) + "\\|\\(<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[dwmy]>\\)" + "\\|\\(<%%\\(([^>\n]+)\\)>\\)")) marker hdmarker deadlinep scheduledp donep tmp priority category - ee txt timestr tags) + ee txt timestr tags b0 b3 e3) (goto-char (point-min)) (while (re-search-forward regexp nil t) + (setq b0 (match-beginning 0) + b3 (match-beginning 3) e3 (match-end 3)) (catch :skip - (and (save-match-data (org-at-date-range-p)) (throw :skip nil)) + (and (org-at-date-range-p) (throw :skip nil)) (org-agenda-skip) - (setq marker (org-agenda-new-marker (match-beginning 0)) - category (org-get-category (match-beginning 0)) + (if (and (match-end 1) + (not (= d1 (org-time-string-to-absolute (match-string 1) d1)))) + (throw :skip nil)) + (if (and e3 + (not (org-diary-sexp-entry (buffer-substring b3 e3) "" date))) + (throw :skip nil)) + (setq marker (org-agenda-new-marker b0) + category (org-get-category b0) tmp (buffer-substring (max (point-min) - (- (match-beginning 0) - org-ds-keyword-length)) - (match-beginning 0)) - timestr (buffer-substring (match-beginning 0) (point-at-eol)) + (- b0 org-ds-keyword-length)) + b0) + timestr (if b3 "" (buffer-substring b0 (point-at-eol))) deadlinep (string-match org-deadline-regexp tmp) scheduledp (string-match org-scheduled-regexp tmp) donep (org-entry-is-done-p)) (and org-agenda-skip-scheduled-if-done scheduledp donep (throw :skip t)) + (and org-agenda-skip-deadline-if-done + deadlinep donep + (throw :skip t)) (if (string-match ">" timestr) ;; substring should only run to end of time stamp (setq timestr (substring timestr 0 (match-end 0)))) @@ -14558,22 +15878,68 @@ the documentation of `org-diary'." (if deadlinep (org-add-props txt nil 'face (if donep 'org-done 'org-warning) + 'type "deadline" 'date date 'undone-face 'org-warning 'done-face 'org-done 'org-category category 'priority (+ 100 priority)) (if scheduledp (org-add-props txt nil 'face 'org-scheduled-today + 'type "scheduled" 'date date 'undone-face 'org-scheduled-today 'done-face 'org-done 'org-category category 'priority (+ 99 priority)) - (org-add-props txt nil 'priority priority 'org-category category))) + (org-add-props txt nil 'priority priority + 'org-category category 'date date + 'type "timestamp"))) (push txt ee)) (outline-next-heading))) (nreverse ee))) +(defun org-agenda-get-sexps () + "Return the sexp information for agenda display." + (require 'diary-lib) + (let* ((props (list 'face nil + 'mouse-face 'highlight + 'keymap org-agenda-keymap + 'help-echo + (format "mouse-2 or RET jump to org file %s" + (abbreviate-file-name buffer-file-name)))) + (regexp "^&?%%(") + marker category ee txt tags entry result beg b sexp sexp-entry) + (goto-char (point-min)) + (while (re-search-forward regexp nil t) + (catch :skip + (org-agenda-skip) + (setq beg (match-beginning 0)) + (goto-char (1- (match-end 0))) + (setq b (point)) + (forward-sexp 1) + (setq sexp (buffer-substring b (point))) + (setq sexp-entry (if (looking-at "[ \t]*\\(\\S-.*\\)") + (org-trim (match-string 1)) + "")) + (setq result (org-diary-sexp-entry sexp sexp-entry date)) + (when result + (setq marker (org-agenda-new-marker beg) + category (org-get-category beg)) + + (if (string-match "\\S-" result) + (setq txt result) + (setq txt "SEXP entry returned empty string")) + + (setq txt (org-format-agenda-item + "" txt category tags 'time)) + (org-add-props txt props 'org-marker marker) + (org-add-props txt nil + 'org-category category 'date date + 'type "sexp") + (push txt ee)))) + (nreverse ee))) + (defun org-agenda-get-closed () "Return the logged TODO entries for agenda display." (let* ((props (list 'mouse-face 'highlight 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'keymap org-agenda-keymap 'help-echo (format "mouse-2 or RET jump to org file %s" @@ -14617,6 +15983,7 @@ the documentation of `org-diary'." (org-add-props txt props 'org-marker marker 'org-hd-marker hdmarker 'face 'org-done 'priority priority 'org-category category + 'type "closed" 'date date 'undone-face 'org-warning 'done-face 'org-done) (push txt ee)) (outline-next-heading))) @@ -14627,6 +15994,7 @@ the documentation of `org-diary'." (let* ((wdays org-deadline-warning-days) (props (list 'mouse-face 'highlight 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'keymap org-agenda-keymap 'help-echo (format "mouse-2 or RET jump to org file %s" @@ -14641,8 +16009,9 @@ the documentation of `org-diary'." (catch :skip (org-agenda-skip) (setq pos (1- (match-beginning 1)) - d2 (time-to-days - (org-time-string-to-time (match-string 1))) +;??? d2 (time-to-days +;??? (org-time-string-to-time (match-string 1))) + d2 (org-time-string-to-absolute (match-string 1) d1) diff (- d2 d1)) ;; When to show a deadline in the calendar: ;; If the expiration is within wdays warning time. @@ -14673,6 +16042,7 @@ the documentation of `org-diary'." 'org-hd-marker (org-agenda-new-marker pos1) 'priority (+ (- 10 diff) (org-get-priority txt)) 'org-category category + 'type "upcoming-deadline" 'date d2 'face face 'undone-face face 'done-face 'org-done) (push txt ee)))))) ee)) @@ -14681,6 +16051,7 @@ the documentation of `org-diary'." "Return the scheduled information for agenda display." (let* ((props (list 'face 'org-scheduled-previously 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'undone-face 'org-scheduled-previously 'done-face 'org-done 'mouse-face 'highlight @@ -14698,8 +16069,9 @@ the documentation of `org-diary'." (catch :skip (org-agenda-skip) (setq pos (1- (match-beginning 1)) - d2 (time-to-days - (org-time-string-to-time (match-string 1))) + d2 (org-time-string-to-absolute (match-string 1) d1) +;??? d2 (time-to-days +;??? (org-time-string-to-time (match-string 1))) diff (- d2 d1)) ;; When to show a scheduled item in the calendar: ;; If it is on or past the date. @@ -14724,6 +16096,7 @@ the documentation of `org-diary'." (org-add-props txt props 'org-marker (org-agenda-new-marker pos) 'org-hd-marker (org-agenda-new-marker pos1) + 'type "past-scheduled" 'date d2 'priority (+ (- 5 diff) (org-get-priority txt)) 'org-category category) (push txt ee)))))) @@ -14733,6 +16106,7 @@ the documentation of `org-diary'." "Return the date-range information for agenda display." (let* ((props (list 'face nil 'org-not-done-regexp org-not-done-regexp + 'org-todo-regexp org-todo-regexp 'mouse-face 'highlight 'keymap org-agenda-keymap 'help-echo @@ -14771,6 +16145,7 @@ the documentation of `org-diary'." (setq txt org-agenda-no-heading-message)) (org-add-props txt props 'org-marker marker 'org-hd-marker hdmarker + 'type "block" 'date date 'priority (org-get-priority txt) 'org-category category) (push txt ee))) (goto-char pos))) @@ -14865,8 +16240,8 @@ only the correctly processes TXT should be returned - this is used by (when (string-match "\\([ \t]+\\)\\(:[a-zA-Z_@0-9:]+:\\)[ \t]*$" txt) ;; Tags are in the string - (if (or (eq org-agenda-remove-tags-when-in-prefix t) - (and org-agenda-remove-tags-when-in-prefix + (if (or (eq org-agenda-remove-tags t) + (and org-agenda-remove-tags org-prefix-has-tag)) (setq txt (replace-match "" t t txt)) (setq txt (replace-match @@ -14891,9 +16266,12 @@ only the correctly processes TXT should be returned - this is used by 'org-category (downcase category) 'tags tags 'prefix-length (- (length rtn) (length txt)) 'time-of-day time-of-day + 'txt txt + 'time time + 'extra extra 'dotime dotime)))) -(defvar org-agenda-sorting-strategy) +(defvar org-agenda-sorting-strategy) ;; FIXME: can be removed? (defvar org-agenda-sorting-strategy-selected nil) (defun org-agenda-add-time-grid-maybe (list ndays todayp) @@ -15243,6 +16621,7 @@ With prefix ARG, go back that many times `org-agenda-ndays'." "Detach overlay INDEX." (funcall (if (featurep 'xemacs) 'detach-extent 'delete-overlay) org-hl)) +;; FIXME this is currently not used. (defun org-highlight-until-next-command (beg end &optional buffer) (org-highlight beg end buffer) (add-hook 'pre-command-hook 'org-unhighlight-once)) @@ -15350,12 +16729,13 @@ and by additional input from the age of a schedules or deadline entry." (org-agenda-error))) (buffer (marker-buffer marker)) (pos (marker-position marker)) + (type (get-text-property (point) 'type)) dbeg dend (n 0) conf) (org-with-remote-undo buffer (with-current-buffer buffer (save-excursion (goto-char pos) - (if (org-mode-p) + (if (and (org-mode-p) (not (member type '("sexp")))) (setq dbeg (progn (org-back-to-heading t) (point)) dend (org-end-of-subtree t)) (setq dbeg (point-at-bol) @@ -15502,6 +16882,16 @@ dedicated frame)." "Marker pointing to the headline that last changed its TODO state by a remote command from the agenda.") +(defun org-agenda-todo-nextset () + "Switch TODO entry to next sequence." + (interactive) + (org-agenda-todo 'nextset)) + +(defun org-agenda-todo-previousset () + "Switch TODO entry to previous sequence." + (interactive) + (org-agenda-todo 'previousset)) + (defun org-agenda-todo (&optional arg) "Cycle TODO state of line at point, also in Org-mode file. This changes the line at point, all other lines in the agenda referring to @@ -15656,7 +17046,7 @@ the tags of the current headline come last." (org-up-heading-all 1)) (error nil)))) tags))) - + ;; FIXME: should fix the tags property of the agenda line. (defun org-agenda-set-tags () "Set tags for the current headline." @@ -15673,10 +17063,12 @@ the tags of the current headline come last." (with-current-buffer buffer (widen) (goto-char pos) - (org-show-context 'agenda) + (save-excursion + (org-show-context 'agenda)) (save-excursion (and (outline-next-heading) (org-flag-heading nil))) ; show the next heading + (goto-char pos) (call-interactively 'org-set-tags) (end-of-line 1) (setq newhead (org-get-heading))) @@ -15992,11 +17384,11 @@ This is a command that has to be installed in `calendar-mode-map'." (defvar org-cdlatex-mode-map (make-sparse-keymap) "Keymap for the minor `org-cdlatex-mode'.") -(define-key org-cdlatex-mode-map "_" 'org-cdlatex-underscore-caret) -(define-key org-cdlatex-mode-map "^" 'org-cdlatex-underscore-caret) -(define-key org-cdlatex-mode-map "`" 'cdlatex-math-symbol) -(define-key org-cdlatex-mode-map "'" 'org-cdlatex-math-modify) -(define-key org-cdlatex-mode-map "\C-c{" 'cdlatex-environment) +(org-defkey org-cdlatex-mode-map "_" 'org-cdlatex-underscore-caret) +(org-defkey org-cdlatex-mode-map "^" 'org-cdlatex-underscore-caret) +(org-defkey org-cdlatex-mode-map "`" 'cdlatex-math-symbol) +(org-defkey org-cdlatex-mode-map "'" 'org-cdlatex-math-modify) +(org-defkey org-cdlatex-mode-map "\C-c{" 'cdlatex-environment) (defvar org-cdlatex-texmathp-advice-is-done nil "Flag remembering if we have applied the advice to texmathp already.") @@ -16064,7 +17456,7 @@ looks only before point, not after." (while (string-match re str start) (cond ((= (match-end 0) (length str)) - (throw 'exit (cons "$" (+ lim (match-beginning 0))))) + (throw 'exit (cons "$" (+ lim (match-beginning 0) 1)))) ((= (match-end 0) (- (length str) 5)) (throw 'exit nil)) (t (setq start (match-end 0)))))) @@ -16156,11 +17548,12 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." "Creating images for entry...%s")))) (message msg "") (narrow-to-region beg end) + (goto-char beg) (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory buffer-file-name))) - default-directory 'overlays msg at) + default-directory 'overlays msg at 'forbuffer) (message msg "done. Use `C-c C-c' to remove images."))))) (defvar org-latex-regexps @@ -16173,7 +17566,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." ("$$" "\\$\\$[^\000]*?\\$\\$" 0 t)) "Regular expressions for matching embedded LaTeX.") -(defun org-format-latex (prefix &optional dir overlays msg at) +(defun org-format-latex (prefix &optional dir overlays msg at forbuffer) "Replace LaTeX fragments with links to an image, and produce images." (if (and overlays (fboundp 'clear-image-cache)) (clear-image-cache)) (let* ((prefixnodir (file-name-nondirectory prefix)) @@ -16210,7 +17603,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (setq checkdir t) (or (file-directory-p todir) (make-directory todir))) (org-create-formula-image - txt movefile opt) + txt movefile opt forbuffer) (if overlays (progn (setq ov (org-make-overlay beg end)) @@ -16229,31 +17622,27 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (insert link)))))))) ;; This function borrows from Ganesh Swami's latex2png.el -(defun org-create-formula-image (string tofile options) +(defun org-create-formula-image (string tofile options buffer) (let* ((tmpdir (if (featurep 'xemacs) (temp-directory) temporary-file-directory)) (texfilebase (make-temp-name (expand-file-name "orgtex" tmpdir))) - -;(texfilebase (make-temp-file "orgtex")) -; (dummy (delete-file texfilebase)) (texfile (concat texfilebase ".tex")) (dvifile (concat texfilebase ".dvi")) (pngfile (concat texfilebase ".png")) - (scale (number-to-string (* 1000 (or (plist-get options :scale) 1.0)))) - (fg (or (plist-get options :foreground) "Black")) - (bg (or (plist-get options :background) "Transparent"))) + (fnh (face-attribute 'default :height nil)) + (scale (or (plist-get options (if buffer :scale :html-scale)) 1.0)) + (dpi (number-to-string (* scale (floor (* 0.9 (if buffer fnh 140.)))))) + (fg (or (plist-get options (if buffer :foreground :html-foreground)) + "Black")) + (bg (or (plist-get options (if buffer :background :html-background)) + "Transparent"))) + (if (eq fg 'default) (setq fg (org-dvipng-color :foreground))) + (if (eq bg 'default) (setq bg (org-dvipng-color :background))) (with-temp-file texfile - (insert "\\documentclass{article} -\\usepackage{fullpage} -\\usepackage{amssymb} -\\usepackage[usenames]{color} -\\usepackage{amsmath} -\\usepackage{latexsym} -\\usepackage[mathscr]{eucal} -\\pagestyle{empty} -\\begin{document}\n" string "\n\\end{document}\n")) + (insert org-format-latex-header + "\n\\begin{document}\n" string "\n\\end{document}\n")) (let ((dir default-directory)) (condition-case nil (progn @@ -16265,7 +17654,9 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (progn (message "Failed to create dvi file from %s" texfile) nil) (call-process "dvipng" nil nil nil "-E" "-fg" fg "-bg" bg - "-x" scale "-y" scale "-T" "tight" + "-D" dpi + ;;"-x" scale "-y" scale + "-T" "tight" "-o" pngfile dvifile) (if (not (file-exists-p pngfile)) @@ -16276,6 +17667,16 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (delete-file (concat texfilebase e))) pngfile)))) +(defun org-dvipng-color (attr) + "Return an rgb color specification for dvipng." + (apply 'format "rgb %s %s %s" + (mapcar 'org-normalize-color + (color-values (face-attribute 'default attr nil))))) + +(defun org-normalize-color (value) + "Return string to be used as color value for an RGB component." + (format "%g" (/ value 65535.0))) + ;;;; Exporting ;;; Variables, constants, and parameter plists @@ -16300,16 +17701,19 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (:headline-levels . org-export-headline-levels) (:section-numbers . org-export-with-section-numbers) (:table-of-contents . org-export-with-toc) + (:preserve-breaks . org-export-preserve-breaks) (:archived-trees . org-export-with-archived-trees) (:emphasize . org-export-with-emphasize) (:sub-superscript . org-export-with-sub-superscripts) (:TeX-macros . org-export-with-TeX-macros) (:LaTeX-fragments . org-export-with-LaTeX-fragments) + (:skip-before-1st-heading . org-export-skip-text-before-1st-heading) (:fixed-width . org-export-with-fixed-width) (:timestamps . org-export-with-timestamps) (:tables . org-export-with-tables) (:table-auto-headline . org-export-highlight-first-table-line) (:style . org-export-html-style) + (:agenda-style . org-agenda-export-html-style) ;; FIXME: Does this work???? (:convert-org-links . org-export-html-link-org-files-as-html) (:inline-images . org-export-html-inline-images) (:expand-quoted-html . org-export-html-expand) @@ -16359,7 +17763,8 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." ("^" . :sub-superscript) ("*" . :emphasize) ("TeX" . :TeX-macros) - ("LaTeX" . :LaTeX-fragments))) + ("LaTeX" . :LaTeX-fragments) + ("skip" . :skip-before-1st-heading))) o) (while (setq o (pop op)) (if (string-match (concat (regexp-quote (car o)) @@ -16377,19 +17782,11 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." val))) dir)) -(defun org-export-find-first-heading-line (list) - "Remove all lines from LIST which are before the first headline." - (let ((orig-list list) - (re (concat "^" outline-regexp))) - (while (and list - (not (string-match re (car list)))) - (pop list)) - (or list orig-list))) - (defun org-skip-comments (lines) "Skip lines starting with \"#\" and subtrees starting with COMMENT." (let ((re1 (concat "^\\(\\*+\\)[ \t]+" org-comment-string)) (re2 "^\\(\\*+\\)[ \t\n\r]") + (case-fold-search nil) rtn line level) (while (setq line (pop lines)) (cond @@ -16420,6 +17817,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." \[a] export as ASCII \[h] export as HTML +\[H] export as HTML to temporary buffer \[b] export as HTML and browse immediately \[x] export as XOXO @@ -16437,6 +17835,8 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (?a . org-export-as-ascii) (?h . org-export-as-html) (?b . org-export-as-html-and-open) + (?H . org-export-as-html-to-buffer) + (?R . org-export-region-as-html) (?x . org-export-as-xoxo) (?i . org-export-icalendar-this-file) (?I . org-export-icalendar-all-agenda-files) @@ -16465,6 +17865,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." ("curren") ("yen") ("brvbar") + ("vert" . "|") ("sect") ("uml") ("copy") @@ -16766,26 +18167,44 @@ translations. There is currently no way for users to extend this.") (re-angle-link (concat "\\([^[]\\)" org-angle-link-re)) (re-archive (concat ":" org-archive-tag ":")) (re-quote (concat "^\\*+[ \t]+" org-quote-string "\\>")) - (htmlp (memq :for-html parameters)) + (htmlp (plist-get parameters :for-html)) (outline-regexp "\\*+") - rtn) + a b + rtn p) (save-excursion (set-buffer (get-buffer-create " org-mode-tmp")) (erase-buffer) (insert string) + ;; Remove license-to-kill stuff + (while (setq p (text-property-any (point-min) (point-max) + :org-license-to-kill t)) + (delete-region p (next-single-property-change p :org-license-to-kill))) + (let ((org-inhibit-startup t)) (org-mode)) (untabify (point-min) (point-max)) + ;; Get the correct stuff before the first headline + (when (plist-get parameters :skip-before-1st-heading) + (goto-char (point-min)) + (when (re-search-forward "^\\*+[ \t]" nil t) + (delete-region (point-min) (match-beginning 0)) + (goto-char (point-min)) + (insert "\n"))) + (when (plist-get parameters :add-text) + (goto-char (point-min)) + (insert (plist-get parameters :add-text) "\n")) + ;; Get rid of archived trees (when (not (eq org-export-with-archived-trees t)) (goto-char (point-min)) (while (re-search-forward re-archive nil t) - (if (not (org-on-heading-p)) + (if (not (org-on-heading-p t)) (org-end-of-subtree t) (beginning-of-line 1) - (delete-region - (if org-export-with-archived-trees (1+ (point-at-eol)) (point)) - (org-end-of-subtree t))))) + (setq a (if org-export-with-archived-trees + (1+ (point-at-eol)) (point)) + b (org-end-of-subtree t)) + (if (> b a) (delete-region a b))))) ;; Protect stuff from HTML processing (goto-char (point-min)) @@ -16796,12 +18215,12 @@ translations. There is currently no way for users to extend this.") (goto-char (point-min)) (while (re-search-forward "^#\\+HTML:[ \t]*\\(.*\\)" nil t) (replace-match "\\1" t) - (add-text-properties + (add-text-properties (point-at-bol) (min (1+ (point-at-eol)) (point-max)) '(org-protected t)))) (goto-char (point-min)) (while (re-search-forward - "^#\\+BEGIN_HTML\\>.*\\(\n.*\\)*?\n#\\+END_HTML\\>.*\n?" nil t) + "^#\\+BEGIN_HTML\\>.*\\(\\(\n.*\\)*?\n\\)#\\+END_HTML\\>.*\n?" nil t) (if htmlp (add-text-properties (match-beginning 1) (1+ (match-end 1)) '(org-protected t)) @@ -16839,7 +18258,7 @@ translations. There is currently no way for users to extend this.") (goto-char (match-beginning 0)))) ;; Convert LaTeX fragments to images - (when (memq :LaTeX-fragments parameters) + (when (plist-get parameters :LaTeX-fragments) (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory @@ -16851,6 +18270,7 @@ translations. There is currently no way for users to extend this.") ;; Expand link abbreviations (goto-char (point-min)) (while (re-search-forward re-plain-link nil t) + (goto-char (1- (match-end 0))) (org-if-unprotected (replace-match (concat @@ -16858,6 +18278,7 @@ translations. There is currently no way for users to extend this.") t t))) (goto-char (point-min)) (while (re-search-forward re-angle-link nil t) + (goto-char (1- (match-end 0))) (org-if-unprotected (replace-match (concat @@ -16877,17 +18298,35 @@ translations. There is currently no way for users to extend this.") t t))) ;; Find multiline emphasis and put them into single line - (when (memq :emph-multiline parameters) + (when (plist-get parameters :emph-multiline) (goto-char (point-min)) (while (re-search-forward org-emph-re nil t) - (org-if-unprotected - (subst-char-in-region (match-beginning 0) (match-end 0) ?\n ?\ t) - (goto-char (1- (match-end 0)))))) + (if (not (= (char-after (match-beginning 3)) + (char-after (match-beginning 4)))) + (org-if-unprotected + (subst-char-in-region (match-beginning 0) (match-end 0) + ?\n ?\ t) + (goto-char (1- (match-end 0)))) + (goto-char (1+ (match-beginning 0)))))) (setq rtn (buffer-string))) (kill-buffer " org-mode-tmp") rtn)) +(defun org-export-grab-title-from-buffer () + "Get a title for the current document, from looking at the buffer." + (let (buffer-read-only) + (save-excursion + (goto-char (point-min)) + (let ((end (save-excursion (outline-next-heading) (point)))) + (when (re-search-forward "^[ \t]*[^# \t\r\n].*\n" end t) + ;; Mark the line so that it will not be exported as normal text. + (org-unmodified + (add-text-properties (match-beginning 0) (match-end 0) + (list :org-license-to-kill t))) + ;; Return the title string + (org-trim (match-string 0))))))) + (defun org-solidify-link-text (s &optional alist) "Take link text and make a safe target out of it." (save-match-data @@ -16959,16 +18398,7 @@ underlined headlines. The default is 3." (setq-default org-todo-line-regexp org-todo-line-regexp) (let* ((opt-plist (org-combine-plists (org-default-export-plist) (org-infile-export-plist))) - (region - (buffer-substring - (if (org-region-active-p) (region-beginning) (point-min)) - (if (org-region-active-p) (region-end) (point-max)))) (custom-times org-display-custom-times) - (lines (org-export-find-first-heading-line - (org-skip-comments - (org-split-string - (org-cleaned-string-for-export region) - "[\r\n]")))) (org-ascii-current-indentation '(0 . 0)) (level 0) line txt (umax nil) @@ -16986,15 +18416,36 @@ underlined headlines. The default is 3." (time (format-time-string "%X" (org-current-time))) (author (plist-get opt-plist :author)) (title (or (plist-get opt-plist :title) + (and (not + (plist-get opt-plist :skip-before-1st-heading)) + (org-export-grab-title-from-buffer)) (file-name-sans-extension (file-name-nondirectory buffer-file-name)))) (email (plist-get opt-plist :email)) (language (plist-get opt-plist :language)) (quote-re0 (concat "^[ \t]*" org-quote-string "\\>")) ; (quote-re (concat "^\\(\\*+\\)\\([ \t]*" org-quote-string "\\>\\)")) - (text nil) (todo nil) - (lang-words nil)) + (lang-words nil) + (region + (buffer-substring + (if (org-region-active-p) (region-beginning) (point-min)) + (if (org-region-active-p) (region-end) (point-max)))) + (lines (org-skip-comments + (org-split-string + (org-cleaned-string-for-export + region + :skip-before-1st-heading + (plist-get opt-plist :skip-before-1st-heading) + :add-text (plist-get opt-plist :text)) + "[\r\n]"))) + thetoc have-headings first-heading-pos + table-open table-buffer) + + (let (buffer-read-only) + (org-unmodified + (remove-text-properties (point-min) (point-max) + '(:org-license-to-kill t)))) (setq org-last-level 1) (org-init-section-numbers) @@ -17028,27 +18479,27 @@ underlined headlines. The default is 3." "\n"))) (if (and date time) (insert (concat (nth 2 lang-words) ": " date " " time "\n"))) - (if text (insert (concat (org-html-expand-for-ascii text) "\n\n"))) (insert "\n\n") (if org-export-with-toc (progn - (insert (nth 3 lang-words) "\n" - (make-string (length (nth 3 lang-words)) ?=) "\n") + (push (concat (nth 3 lang-words) "\n") thetoc) + (push (concat (make-string (length (nth 3 lang-words)) ?=) "\n") thetoc) (mapcar '(lambda (line) (if (string-match org-todo-line-regexp line) ;; This is a headline (progn + (setq have-headings t) (setq level (- (match-end 1) (match-beginning 1)) level (org-tr-level level) txt (match-string 3 line) todo (or (and org-export-mark-todo-in-toc (match-beginning 2) - (not (equal (match-string 2 line) - org-done-string))) + (not (member (match-string 2 line) + org-done-keywords))) ; TODO, not DONE (and org-export-mark-todo-in-toc (= level umax-toc) @@ -17067,12 +18518,15 @@ underlined headlines. The default is 3." " " txt))) (if (<= level umax-toc) (progn - (insert - (make-string (* (1- level) 4) ?\ ) - (format (if todo "%s (*)\n" "%s\n") txt)) + (push + (concat + (make-string (* (1- level) 4) ?\ ) + (format (if todo "%s (*)\n" "%s\n") txt)) + thetoc) (setq org-last-level level)) )))) - lines))) + lines) + (setq thetoc (if have-headings (nreverse thetoc) nil)))) (org-init-section-numbers) (while (setq line (pop lines)) @@ -17091,12 +18545,44 @@ underlined headlines. The default is 3." (cond ((string-match "^\\(\\*+\\)[ \t]*\\(.*\\)" line) ;; a Headline + (setq first-heading-pos (or first-heading-pos (point))) (setq level (org-tr-level (- (match-end 1) (match-beginning 1))) txt (match-string 2 line)) (org-ascii-level-start level txt umax lines)) + + ((and org-export-with-tables + (string-match "^\\([ \t]*\\)\\(|\\|\\+-+\\+\\)" line)) + (if (not table-open) + ;; New table starts + (setq table-open t table-buffer nil)) + ;; Accumulate lines + (setq table-buffer (cons line table-buffer)) + (when (or (not lines) + (not (string-match "^\\([ \t]*\\)\\(|\\|\\+-+\\+\\)" + (car lines)))) + (setq table-open nil + table-buffer (nreverse table-buffer)) + (insert (mapconcat + (lambda (x) + (org-fix-indentation x org-ascii-current-indentation)) + (org-format-table-ascii table-buffer) + "\n") "\n"))) (t (insert (org-fix-indentation line org-ascii-current-indentation) "\n")))) (normal-mode) + + ;; insert the table of contents + (when thetoc + (goto-char (point-min)) + (if (re-search-forward "^[ \t]*\\[TABLE-OF-CONTENTS\\][ \t]*$" nil t) + (progn + (goto-char (match-beginning 0)) + (replace-match "")) + (goto-char first-heading-pos)) + (mapc 'insert thetoc) + (or (looking-at "[ \t]*\n[ \t]*\n") + (insert "\n\n"))) + (save-buffer) ;; remove display and invisible chars (let (beg end) @@ -17124,8 +18610,8 @@ underlined headlines. The default is 3." (progn (setq lv (- (match-end 1) (match-beginning 1)) todo (and (match-beginning 2) - (not (equal (match-string 2 line) - org-done-string)))) + (not (member (match-string 2 line) + org-done-keywords)))) ; TODO, not DONE (if (<= lv level) (throw 'exit nil)) (if todo (throw 'exit t)))))))) @@ -17187,7 +18673,7 @@ continue to use it. The prefix arg ARG is passed through to the exporting command." (interactive (list (progn - (message "Export visible: [a]SCII [h]tml [b]rowse HTML [x]OXO [ ]keep buffer") + (message "Export visible: [a]SCII [h]tml [b]rowse HTML [H/R]uffer with HTML [x]OXO [ ]keep buffer") (read-char-exclusive)) current-prefix-arg)) (if (not (member type '(?a ?\C-a ?b ?\C-b ?h ?x ?\ ))) @@ -17198,6 +18684,8 @@ command." (?b . org-export-as-html-and-open) (?\C-b . org-export-as-html-and-open) (?h . org-export-as-html) + (?H . org-export-as-html-to-buffer) + (?R . org-export-region-as-html) (?x . org-export-as-xoxo))))) (keepp (equal type ?\ )) (file buffer-file-name) @@ -17253,10 +18741,11 @@ Does include HTML export options as well as TODO and CATEGORY stuff." #+EMAIL: %s #+LANGUAGE: %s #+TEXT: Some descriptive text to be emitted. Several lines OK. -#+OPTIONS: H:%d num:%s toc:%s \\n:%s @:%s ::%s |:%s ^:%s *:%s TeX:%s LaTeX:%s +#+OPTIONS: H:%d num:%s toc:%s \\n:%s @:%s ::%s |:%s ^:%s *:%s TeX:%s LaTeX:%s skip:%s #+CATEGORY: %s #+SEQ_TODO: %s #+TYP_TODO: %s +#+PRIORITIES: %c %c %c #+STARTUP: %s %s %s %s %s #+TAGS: %s #+ARCHIVE: %s @@ -17274,13 +18763,11 @@ Does include HTML export options as well as TODO and CATEGORY stuff." org-export-with-emphasize org-export-with-TeX-macros org-export-with-LaTeX-fragments + org-export-skip-text-before-1st-heading (file-name-nondirectory buffer-file-name) - (if (equal org-todo-interpretation 'sequence) - (mapconcat 'identity org-todo-keywords " ") - "TODO FEEDBACK VERIFY DONE") - (if (equal org-todo-interpretation 'type) - (mapconcat 'identity org-todo-keywords " ") - "Me Jason Marie DONE") + "TODO FEEDBACK VERIFY DONE" + "Me Jason Marie DONE" + org-highest-priority org-lowest-priority org-default-priority (cdr (assoc org-startup-folded '((nil . "showall") (t . "overview") (content . "content")))) (if org-odd-levels-only "odd" "oddeven") @@ -17372,19 +18859,96 @@ emacs --batch --visit=MyFile --funcall org-export-as-html-batch" (org-export-as-html org-export-headline-levels 'hidden)) -(defun org-export-as-html (arg &optional hidden ext-plist) - "Export the outline as a pretty HTML file. -If there is an active region, export only the region. -The prefix ARG specifies how many levels of the outline should become -headlines. The default is 3. Lower levels will become bulleted lists. -When HIDDEN is non-nil, don't display the HTML buffer. -EXT-PLIST is a property list with external parameters overriding -org-mode's default settings, but still inferior to file-local settings." +(defun org-export-as-html-to-buffer (arg) + "Call `org-exort-as-html` with output to a temporary buffer. +No file is created. The prefix ARG is passed through to `org-export-as-html'." (interactive "P") + (org-export-as-html arg nil nil "*Org HTML Export*") + (switch-to-buffer-other-window "*Org HTML Export*")) + +(defun org-replace-region-by-html (beg end) + "Assume the current region has org-mode syntax, and convert it to HTML. +This can be used in any buffer. For example, you could write an +itemized list in org-mode syntax in an HTML buffer and then use this +command to convert it." + (interactive "r") + (let (reg html buf) + (if (org-mode-p) + (setq html (org-export-region-as-html + beg end t 'string)) + (setq reg (buffer-substring beg end) + buf (get-buffer-create "*Org tmp*")) + (save-excursion + (set-buffer buf) + (erase-buffer) + (insert reg) + (org-mode) + (setq html (org-export-region-as-html + (point-min) (point-max) t 'string))) + (kill-buffer buf)) + (delete-region beg end) + (insert html))) + +(defun org-export-region-as-html (beg end &optional body-only buffer) + "Convert region from BEG to END in org-mode buffer to HTML. +If prefix arg BODY-ONLY is set, omit file header, footer, and table of +contents, and only produce the region of converted text, useful for +cut-and-paste operations. +If BUFFER is a buffer or a string, use/create that buffer as a target +of the converted HTML. If BUFFER is the symbol `string', return the +produced HTML as a string and leave not buffer behind. For example, +a Lisp program could call this function in the following way: + + (setq html (org-export-region-as-html beg end t 'string)) + +When called interactively, the output buffer is selected, and shown +in a window. A non-interactive call will only retunr the buffer." + (interactive "r\nP") + (when (interactive-p) + (setq buffer "*Org HTML EXPORT*")) + (let ((transient-mark-mode t) (zmacs-regions t) + rtn) + (goto-char end) + (set-mark (point)) ;; to activate the region + (goto-char beg) + (setq rtn (org-export-as-html + nil nil nil + buffer body-only)) + (if (fboundp 'deactivate-mark) (deactivate-mark)) + (if (and (interactive-p) (bufferp rtn)) + (switch-to-buffer-other-window rtn) + rtn))) + +(defun org-export-as-html (arg &optional hidden ext-plist + to-buffer body-only) + "Export the outline as a pretty HTML file. +If there is an active region, export only the region. The prefix +ARG specifies how many levels of the outline should become +headlines. The default is 3. Lower levels will become bulleted +lists. When HIDDEN is non-nil, don't display the HTML buffer. +EXT-PLIST is a property list with external parameters overriding +org-mode's default settings, but still inferior to file-local +settings. When TO-BUFFER is non-nil, create a buffer with that +name and export to that buffer. If TO-BUFFER is the symbol `string', +don't leave any buffer behind but just return the resulting HTML as +a string. When BODY-ONLY is set, don't produce the file header and footer, +simply return the content of ..., without even +the body tags themselves." + (interactive "P") + + ;; Make sure we have a file name when we need it. + (when (and (not (or to-buffer body-only)) + (not buffer-file-name)) + (if (buffer-base-buffer) + (org-set-local 'buffer-file-name + (with-current-buffer (buffer-base-buffer) + buffer-file-name)) + (error "Need a file name to be able to export."))) + (message "Exporting...") (setq-default org-todo-line-regexp org-todo-line-regexp) (setq-default org-deadline-line-regexp org-deadline-line-regexp) - (setq-default org-done-string org-done-string) + (setq-default org-done-keywords org-done-keywords) (setq-default org-maybe-keyword-time-regexp org-maybe-keyword-time-regexp) (let* ((opt-plist (org-combine-plists (org-default-export-plist) ext-plist @@ -17392,42 +18956,42 @@ org-mode's default settings, but still inferior to file-local settings." (style (plist-get opt-plist :style)) (link-validate (plist-get opt-plist :link-validation-function)) - valid + valid thetoc have-headings first-heading-pos (odd org-odd-levels-only) (region-p (org-region-active-p)) - (region - (buffer-substring - (if region-p (region-beginning) (point-min)) - (if region-p (region-end) (point-max)))) ;; The following two are dynamically scoped into other ;; routines below. (org-current-export-dir (org-export-directory :html opt-plist)) (org-current-export-file buffer-file-name) - (all_lines - (org-skip-comments (org-split-string - (org-cleaned-string-for-export - region :emph-multiline :for-html - (if (plist-get opt-plist :LaTeX-fragments) - :LaTeX-fragments)) - "[\r\n]"))) - (lines (org-export-find-first-heading-line all_lines)) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) - (filename (concat (file-name-as-directory - (org-export-directory :html opt-plist)) - (file-name-sans-extension - (file-name-nondirectory buffer-file-name)) - ".html")) - (current-dir (file-name-directory buffer-file-name)) - (buffer (find-file-noselect filename)) + (filename (if to-buffer nil + (concat (file-name-as-directory + (org-export-directory :html opt-plist)) + (file-name-sans-extension + (file-name-nondirectory buffer-file-name)) + ".html"))) + (current-dir (if buffer-file-name + (file-name-directory buffer-file-name) + default-directory)) + (buffer (if to-buffer + (cond + ((eq to-buffer 'string) (get-buffer-create "*Org HTML Export*")) + (t (get-buffer-create to-buffer))) + (find-file-noselect filename))) (org-levels-open (make-vector org-level-max nil)) (date (format-time-string "%Y/%m/%d" (current-time))) (time (format-time-string "%X" (org-current-time))) (author (plist-get opt-plist :author)) (title (or (plist-get opt-plist :title) - (file-name-sans-extension - (file-name-nondirectory buffer-file-name)))) + (and (not + (plist-get opt-plist :skip-before-1st-heading)) + (org-export-grab-title-from-buffer)) + (and buffer-file-name + (file-name-sans-extension + (file-name-nondirectory buffer-file-name))) + "UNTITLED")) (quote-re0 (concat "^[ \t]*" org-quote-string "\\>")) (quote-re (concat "^\\(\\*+\\)\\([ \t]*" org-quote-string "\\>\\)")) (inquote nil) @@ -17438,7 +19002,6 @@ org-mode's default settings, but still inferior to file-local settings." (llt org-plain-list-ordered-item-terminator) (email (plist-get opt-plist :email)) (language (plist-get opt-plist :language)) - (text (plist-get opt-plist :text)) (lang-words nil) (target-alist nil) tg (head-count 0) cnt @@ -17450,11 +19013,34 @@ org-mode's default settings, but still inferior to file-local settings." (charset (and coding-system (fboundp 'coding-system-get) (coding-system-get coding-system 'mime-charset))) + (region + (buffer-substring + (if region-p (region-beginning) (point-min)) + (if region-p (region-end) (point-max)))) + (lines + (org-skip-comments (org-split-string + (org-cleaned-string-for-export + region + :emph-multiline t + :for-html t + :skip-before-1st-heading + (plist-get opt-plist :skip-before-1st-heading) + :add-text + (plist-get opt-plist :text) + :LaTeX-fragments + (plist-get opt-plist :LaTeX-fragments)) + "[\r\n]"))) table-open type table-buffer table-orig-buffer - ind start-is-num starter + ind start-is-num starter didclose rpl path desc descp desc1 desc2 link ) + + (let (buffer-read-only) + (org-unmodified + (remove-text-properties (point-min) (point-max) + '(:org-license-to-kill t)))) + (message "Exporting...") (setq org-last-level 1) @@ -17465,9 +19051,7 @@ org-mode's default settings, but still inferior to file-local settings." (assoc "en" org-export-language-setup))) ;; Switch to the output buffer - (if (or hidden t) - (set-buffer buffer) - (switch-to-buffer-other-window buffer)) + (set-buffer buffer) (erase-buffer) (fundamental-mode) (let ((case-fold-search nil) @@ -17483,10 +19067,10 @@ org-mode's default settings, but still inferior to file-local settings." (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) - - ;; File header - (insert (format - " @@ -17499,94 +19083,96 @@ lang=\"%s\" xml:lang=\"%s\"> %s " - language language (org-html-expand title) (or charset "iso-8859-1") - date time author style)) + language language (org-html-expand title) + (or charset "iso-8859-1") date time author style)) + (insert (or (plist-get opt-plist :preamble) "")) - (insert (or (plist-get opt-plist :preamble) "")) + (when (plist-get opt-plist :auto-preamble) + (if title (insert (format org-export-html-title-format + (org-html-expand title)))))) - (when (plist-get opt-plist :auto-preamble) - (if title (insert (format org-export-html-title-format - (org-html-expand title)))) - (if text (insert "

\n" (org-html-expand text) "

"))) - - (if org-export-with-toc + (if (and org-export-with-toc (not body-only)) (progn - (insert (format "%s\n" - org-export-html-toplevel-hlevel - (nth 3 lang-words) - org-export-html-toplevel-hlevel)) - (insert "
    \n
  • ") + (push (format "%s\n" + org-export-html-toplevel-hlevel + (nth 3 lang-words) + org-export-html-toplevel-hlevel) + thetoc) + (push "
      \n
    • " thetoc) (setq lines - (mapcar '(lambda (line) - (if (string-match org-todo-line-regexp line) - ;; This is a headline - (progn - (setq level (- (match-end 1) (match-beginning 1)) - level (org-tr-level level) - txt (save-match-data - (org-html-expand - (org-export-cleanup-toc-line - (match-string 3 line)))) - todo - (or (and org-export-mark-todo-in-toc - (match-beginning 2) - (not (equal (match-string 2 line) - org-done-string))) + (mapcar '(lambda (line) + (if (string-match org-todo-line-regexp line) + ;; This is a headline + (progn + (setq have-headings t) + (setq level (- (match-end 1) (match-beginning 1)) + level (org-tr-level level) + txt (save-match-data + (org-html-expand + (org-export-cleanup-toc-line + (match-string 3 line)))) + todo + (or (and org-export-mark-todo-in-toc + (match-beginning 2) + (not (member (match-string 2 line) + org-done-keywords))) ; TODO, not DONE - (and org-export-mark-todo-in-toc - (= level umax-toc) - (org-search-todo-below - line lines level)))) - (if (and (memq org-export-with-tags '(not-in-toc nil)) - (string-match "[ \t]+:[a-zA-Z0-9_@:]+:[ \t]*$" txt)) - (setq txt (replace-match "" t t txt))) - (if (string-match quote-re0 txt) - (setq txt (replace-match "" t t txt))) - (if org-export-with-section-numbers - (setq txt (concat (org-section-number level) - " " txt))) - (if (<= level umax-toc) - (progn - (setq head-count (+ head-count 1)) - (if (> level org-last-level) - (progn - (setq cnt (- level org-last-level)) - (while (>= (setq cnt (1- cnt)) 0) - (insert "\n
        \n
      • ")) - (insert "\n"))) - (if (< level org-last-level) - (progn - (setq cnt (- org-last-level level)) - (while (>= (setq cnt (1- cnt)) 0) - (insert "
        • \n
      ")) - (insert "\n"))) - ;; Check for targets - (while (string-match org-target-regexp line) - (setq tg (match-string 1 line) - line (replace-match - (concat "@" tg "@ ") - t t line)) - (push (cons (org-solidify-link-text tg) - (format "sec-%d" head-count)) - target-alist)) - (while (string-match "<\\(<\\)+\\|>\\(>\\)+" txt) - (setq txt (replace-match "" t t txt))) - (insert - (format - (if todo - "
      • \n
    • %s" - "
      • \n
    • %s") - head-count txt)) + (and org-export-mark-todo-in-toc + (= level umax-toc) + (org-search-todo-below + line lines level)))) + (if (and (memq org-export-with-tags '(not-in-toc nil)) + (string-match "[ \t]+:[a-zA-Z0-9_@:]+:[ \t]*$" txt)) + (setq txt (replace-match "" t t txt))) + (if (string-match quote-re0 txt) + (setq txt (replace-match "" t t txt))) + (if org-export-with-section-numbers + (setq txt (concat (org-section-number level) + " " txt))) + (if (<= level (max umax umax-toc)) + (setq head-count (+ head-count 1))) + (if (<= level umax-toc) + (progn + (if (> level org-last-level) + (progn + (setq cnt (- level org-last-level)) + (while (>= (setq cnt (1- cnt)) 0) + (push "\n
        \n
      • " thetoc)) + (push "\n" thetoc))) + (if (< level org-last-level) + (progn + (setq cnt (- org-last-level level)) + (while (>= (setq cnt (1- cnt)) 0) + (push "
        • \n
      " thetoc)) + (push "\n" thetoc))) + ;; Check for targets + (while (string-match org-target-regexp line) + (setq tg (match-string 1 line) + line (replace-match + (concat "@" tg "@ ") + t t line)) + (push (cons (org-solidify-link-text tg) + (format "sec-%d" head-count)) + target-alist)) + (while (string-match "<\\(<\\)+\\|>\\(>\\)+" txt) + (setq txt (replace-match "" t t txt))) + (push + (format + (if todo + "
      • \n
    • %s" + "
      • \n
    • %s") + head-count txt) thetoc) - (setq org-last-level level)) - ))) - line) - lines)) + (setq org-last-level level)) + ))) + line) + lines)) (while (> org-last-level 0) (setq org-last-level (1- org-last-level)) - (insert "
      • \n
    \n")) - )) + (push "
    • \n
\n" thetoc)) + (setq thetoc (if have-headings (nreverse thetoc) nil)))) + (setq head-count 0) (org-init-section-numbers) @@ -17618,7 +19204,16 @@ lang=\"%s\" xml:lang=\"%s\"> ;; Protected HTML (when (get-text-property 0 'org-protected line) - (insert line "\n") + (let (par) + (when (re-search-backward + "\\(

\\)\\([ \t\r\n]*\\)\\=" (- (point) 100) t) + (setq par (match-string 1)) + (replace-match "\\2\n")) + (insert line "\n") + (while (and lines + (get-text-property 0 'org-protected (car lines))) + (insert (pop lines) "\n")) + (and par (insert "

\n"))) (throw 'nextline nil)) ;; Horizontal line @@ -17676,7 +19271,8 @@ lang=\"%s\" xml:lang=\"%s\"> (setq rpl (concat "" desc ""))) ((member type '("http" "https")) ; FIXME: need to test this. ;; standard URL, just check if we need to inline an image @@ -17738,12 +19334,24 @@ lang=\"%s\" xml:lang=\"%s\"> ;; TODO items (if (and (string-match org-todo-line-regexp line) (match-beginning 2)) - (if (equal (match-string 2 line) org-done-string) + (if (member (match-string 2 line) org-done-keywords) (setq line (replace-match "\\2" t nil line 2)) - (setq line (replace-match "\\2" - t nil line 2)))) + (setq line + (concat (substring line 0 (match-beginning 2)) + "" (match-string 2 line) + "" (substring line (match-end 2)))))) + + ;; Does this contain a reference to a footnote? + (while (string-match "\\([^* \t].*?\\)\\[\\([0-9]+\\)\\]" line) + (let ((n (match-string 2 line))) + (setq line + (replace-match + (format + "%s%s" + (match-string 1 line) n n n) + t t line)))) (cond ((string-match "^\\(\\*+\\)[ \t]*\\(.*\\)" line) @@ -17752,7 +19360,8 @@ lang=\"%s\" xml:lang=\"%s\"> txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) - (if (<= level umax) (setq head-count (+ head-count 1))) + (if (<= level (max umax umax-toc)) + (setq head-count (+ head-count 1))) (when in-local-list ;; Close any local lists before inserting a new header line (while local-list-num @@ -17761,6 +19370,7 @@ lang=\"%s\" xml:lang=\"%s\"> (pop local-list-num)) (setq local-list-indent nil in-local-list nil)) + (setq first-heading-pos (or first-heading-pos (point))) (org-html-level-start level txt umax (and org-export-with-toc (<= level umax)) head-count) @@ -17801,11 +19411,15 @@ lang=\"%s\" xml:lang=\"%s\"> line (substring line (match-beginning 5))) (unless (string-match "[^ \t]" line) ;; empty line. Pretend indentation is large. - (setq ind (1+ (or (car local-list-indent) 1)))) + (setq ind (if org-empty-line-terminates-plain-lists + 0 + (1+ (or (car local-list-indent) 1))))) + (setq didclose nil) (while (and in-local-list (or (and (= ind (car local-list-indent)) (not starter)) (< ind (car local-list-indent)))) + (setq didclose t) (org-close-li) (insert (if (car local-list-num) "\n" "")) (pop local-list-num) (pop local-list-indent) @@ -17814,7 +19428,7 @@ lang=\"%s\" xml:lang=\"%s\"> ((and starter (or (not in-local-list) (> ind (car local-list-indent)))) - ;; Start new (level of ) list + ;; Start new (level of) list (org-close-par-maybe) (insert (if start-is-num "

    \n
  1. \n" "
      \n
    • \n")) (push start-is-num local-list-num) @@ -17823,7 +19437,10 @@ lang=\"%s\" xml:lang=\"%s\"> (starter ;; continue current list (org-close-li) - (insert "
    • \n"))) + (insert "
    • \n")) + (didclose + ;; we did close a list, normal text follows: need

      + (org-open-par))) (if (string-match "^[ \t]*\\[\\([X ]\\)\\]" line) (setq line (replace-match @@ -17837,6 +19454,13 @@ lang=\"%s\" xml:lang=\"%s\"> ;; also start a new paragraph. (if (string-match "^ [-+*]-\\|^[ \t]*$" line) (org-open-par)) + ;; Is this the start of a footnote? + (when (string-match "^[ \t]*\\[\\([0-9]+\\)\\]" line) + (org-close-par-maybe) + (let ((n (match-string 1 line))) + (setq line (replace-match + (format "

      %s" n n n) t t line)))) + ;; Check if the line break needs to be conserved (cond ((string-match "\\\\\\\\[ \t]*$" line) @@ -17860,24 +19484,43 @@ lang=\"%s\" xml:lang=\"%s\"> (and org-export-with-toc (<= level umax)) head-count) - (when (plist-get opt-plist :auto-postamble) - (when author - (insert "

      " - (nth 1 lang-words) ": " author "\n") - (when email - (insert "<" - email ">\n")) - (insert "

      \n")) - (when (and date time) - (insert "

      " - (nth 2 lang-words) ": " - date " " time "

      \n"))) + (unless body-only + (when (plist-get opt-plist :auto-postamble) + (when author + (insert "

      " + (nth 1 lang-words) ": " author "\n") + (when email + (insert "<" + email ">\n")) + (insert "

      \n")) + (when (and date time) + (insert "

      " + (nth 2 lang-words) ": " + date " " time "

      \n"))) + + (if org-export-html-with-timestamp + (insert org-export-html-html-helper-timestamp)) + (insert (or (plist-get opt-plist :postamble) "")) + (insert "\n\n")) - (if org-export-html-with-timestamp - (insert org-export-html-html-helper-timestamp)) - (insert (or (plist-get opt-plist :postamble) "")) - (insert "\n\n") (normal-mode) + (if (eq major-mode default-major-mode) (html-mode)) + + ;; insert the table of contents + (goto-char (point-min)) + (when thetoc + (if (or (re-search-forward + "

      \\s-*\\[TABLE-OF-CONTENTS\\]\\s-*

      " nil t) + (re-search-forward + "\\[TABLE-OF-CONTENTS\\]" nil t)) + (progn + (goto-char (match-beginning 0)) + (replace-match "")) + (goto-char first-heading-pos) + (when (looking-at "\\s-*

      ") + (goto-char (match-end 0)) + (insert "\n"))) + (mapc 'insert thetoc)) ;; remove empty paragraphs and lists (goto-char (point-min)) (while (re-search-forward "

      [ \r\n\t]*

      " nil t) @@ -17885,13 +19528,62 @@ lang=\"%s\" xml:lang=\"%s\"> (goto-char (point-min)) (while (re-search-forward "
    • [ \r\n\t]*
      • \n?" nil t) (replace-match "")) - (save-buffer) + (or to-buffer (save-buffer)) (goto-char (point-min)) - (message "Exporting... done")))) + (message "Exporting... done") + (if (eq to-buffer 'string) + (prog1 (buffer-substring (point-min) (point-max)) + (kill-buffer (current-buffer))) + (current-buffer))))) + +(defvar org-table-colgroup-info nil) ;; FIXME: mode to a better place +(defun org-format-table-ascii (lines) + "Format a table for ascii export." + (if (stringp lines) + (setq lines (org-split-string lines "\n"))) + (if (not (string-match "^[ \t]*|" (car lines))) + ;; Table made by table.el - test for spanning + lines + + ;; A normal org table + ;; Get rid of hlines at beginning and end + (if (string-match "^[ \t]*|-" (car lines)) (setq lines (cdr lines))) + (setq lines (nreverse lines)) + (if (string-match "^[ \t]*|-" (car lines)) (setq lines (cdr lines))) + (setq lines (nreverse lines)) + (when org-export-table-remove-special-lines + ;; Check if the table has a marking column. If yes remove the + ;; column and the special lines + (setq lines (org-table-clean-before-export lines))) + ;; Get rid of the vertical lines except for grouping + (let ((vl (org-colgroup-info-to-vline-list org-table-colgroup-info)) + rtn line vl1 start) + (while (setq line (pop lines)) + (if (string-match org-table-hline-regexp line) + (and (string-match "|\\(.*\\)|" line) + (setq line (replace-match " \\1" t nil line))) + (setq start 0 vl1 vl) + (while (string-match "|" line start) + (setq start (match-end 0)) + (or (pop vl1) (setq line (replace-match " " t t line))))) + (push line rtn)) + (nreverse rtn)))) + +(defun org-colgroup-info-to-vline-list (info) + (let (vl new last rtn line) + (while info + (setq last new new (pop info)) + (if (or (memq last '(:end :startend)) + (memq new '(:start :startend))) + (push t vl) + (push nil vl))) + (setq vl (cons nil (nreverse vl))))) (defun org-format-table-html (lines olines) "Find out which HTML converter to use and return the HTML code." + (if (stringp lines) + (setq lines (org-split-string lines "\n"))) (if (string-match "^[ \t]*|" (car lines)) ;; A normal org table (org-format-org-table-html lines) @@ -17931,7 +19623,7 @@ lang=\"%s\" xml:lang=\"%s\"> (lambda (x) (string-match "^[ \t]*|-" x)) (cdr lines))))) (nlines 0) fnum i - tbopen line fields html) + tbopen line fields html gr) (if splice (setq head nil)) (unless splice (push (if head "
" "") html)) (setq tbopen t) @@ -17939,7 +19631,7 @@ lang=\"%s\" xml:lang=\"%s\"> (catch 'next-line (if (string-match "^[ \t]*|-" line) (progn - (unless splice + (unless splice (push (if head "" "") html) (if lines (push "" html) (setq tbopen nil))) (setq head nil) ;; head ends here, first time around @@ -17957,8 +19649,10 @@ lang=\"%s\" xml:lang=\"%s\"> (string-match org-table-number-regexp x)) (incf (aref fnum i))) (if head - (concat "") - (concat ""))) + (concat (car org-export-table-header-tags) x + (cdr org-export-table-header-tags)) + (concat (car org-export-table-data-tags) x + (cdr org-export-table-data-tags)))) fields "") "") html))) @@ -17969,9 +19663,12 @@ lang=\"%s\" xml:lang=\"%s\"> ;; Put in COL tags with the alignment (unfortuntely often ignored...) (push (mapconcat (lambda (x) - (format "" + (setq gr (pop org-table-colgroup-info)) + (format "%s%s" + (if (memq gr '(:start :startend)) "" "") (if (> (/ (float x) nlines) org-table-number-fraction) - "right" "left"))) + "right" "left") + (if (memq gr '(:end :startend)) "" ""))) fnum "") html) (push org-export-html-table-tag html)) @@ -17980,34 +19677,52 @@ lang=\"%s\" xml:lang=\"%s\"> (defun org-table-clean-before-export (lines) "Check if the table has a marking column. If yes remove the column and the special lines." + (setq org-table-colgroup-info nil) (if (memq nil (mapcar (lambda (x) (or (string-match "^[ \t]*|-" x) (string-match "^[ \t]*| *\\([#!$*_^ /]\\) *|" x))) lines)) (progn - (setq org-table-clean-did-remove-column-1 nil) - lines) - (setq org-table-clean-did-remove-column-1 t) + (setq org-table-clean-did-remove-column nil) + (delq nil + (mapcar + (lambda (x) + (cond + ((string-match "^[ \t]*| */ *|" x) + (setq org-table-colgroup-info + (mapcar (lambda (x) + (cond ((member x '("<" "<")) :start) + ((member x '(">" ">")) :end) + ((member x '("<>" "<>")) :startend) + (t nil))) + (org-split-string x "[ \t]*|[ \t]*"))) + nil) + (t x))) + lines))) + (setq org-table-clean-did-remove-column t) (delq nil (mapcar - (lambda (x) (if (string-match "^[ \t]*| *[!_^/] *|" x) - nil ; ignore this line - (and (or (string-match "^[ \t]*|-+\\+" x) - (string-match "^[ \t]*|[^|]*|" x)) - (replace-match "|" t t x)))) + (lambda (x) + (cond + ((string-match "^[ \t]*| */ *|" x) + (setq org-table-colgroup-info + (mapcar (lambda (x) + (cond ((member x '("<" "<")) :start) + ((member x '(">" ">")) :end) + ((member x '("<>" "<>")) :startend) + (t nil))) + (cdr (org-split-string x "[ \t]*|[ \t]*")))) + nil) + ((string-match "^[ \t]*| *[!_^/] *|" x) + nil) ; ignore this line + ((or (string-match "^\\([ \t]*\\)|-+\\+" x) + (string-match "^\\([ \t]*\\)|[^|]*|" x)) + ;; remove the first column + (replace-match "\\1|" t nil x)) + (t (error "This should not happen")))) lines)))) -(defun org-fake-empty-table-line (line) - "Replace everything except \"|\" with spaces." - (let ((i (length line)) - (newstr (copy-sequence line))) - (while (> i 0) - (setq i (1- i)) - (if (not (eq (aref newstr i) ?|)) - (aset newstr i ?\ ))) - newstr)) - (defun org-format-table-table-html (lines) "Format a table generated by table.el into HTML. This conversion does *not* use `table-generate-source' from table.el. @@ -18024,17 +19739,21 @@ But it has the disadvantage, that no cell- or row-spanning is allowed." (progn (if field-buffer (progn - (setq html (concat - html - "" - (mapconcat - (lambda (x) - (if (equal x "") (setq x empty)) - (if head - (concat "\n") - (concat "\n"))) - field-buffer "\n") - "\n")) + (setq + html + (concat + html + "" + (mapconcat + (lambda (x) + (if (equal x "") (setq x empty)) + (if head + (concat (car org-export-table-header-tags) x + (cdr org-export-table-header-tags)) + (concat (car org-export-table-data-tags) x + (cdr org-export-table-data-tags)))) + field-buffer "\n") + "\n")) (setq head nil) (setq field-buffer nil))) ;; Ignore this line @@ -18115,6 +19834,9 @@ But it has the disadvantage, that Org-mode's HTML conversions cannot be used." (when org-export-remove-timestamps-from-toc (while (string-match org-maybe-keyword-time-regexp s) (setq s (replace-match "" t t s)))) + (while (string-match org-bracket-link-regexp s) + (setq s (replace-match (match-string (if (match-end 3) 3 1) s) + t t s))) s) (defun org-html-expand (string) @@ -18179,27 +19901,42 @@ stacked delimiters is N. Escaping delimiters is not possible." "\\(\\(?:\\*\\|[-+]?[^-+*!@#$%^_ \t\r\n,:\"?<>~;./{}=()]+\\)\\)\\)") "The regular expression matching a sub- or superscript.") +;(let ((s "a\\_b")) +; (and (string-match org-match-substring-regexp s) +; (conca t (match-string 1 s) ":::" (match-string 2 s)))) + (defun org-export-html-convert-sub-super (string) "Convert sub- and superscripts in STRING to HTML." - (let (key c) - (while (string-match org-match-substring-regexp string) - (setq key (if (string= (match-string 2 string) "_") "sub" "sup")) - (setq c (or (match-string 8 string) - (match-string 6 string) - (match-string 5 string))) - (setq string (replace-match - (concat (match-string 1 string) - "<" key ">" c "") - t t string))) + (let (key c (s 0) (requireb (eq org-export-with-sub-superscripts '{}))) + (while (string-match org-match-substring-regexp string s) + (if (and requireb (match-end 8)) + (setq s (match-end 2)) + (setq s (match-end 1) + key (if (string= (match-string 2 string) "_") "sub" "sup") + c (or (match-string 8 string) + (match-string 6 string) + (match-string 5 string)) + string (replace-match + (concat (match-string 1 string) + "<" key ">" c "") + t t string)))) (while (string-match "\\\\\\([_^]\\)" string) - (setq string (replace-match (match-string 1 string) t t string)))) - string) + (setq string (replace-match (match-string 1 string) t t string))) + string)) (defun org-export-html-convert-emphasize (string) "Apply emphasis." - (while (string-match org-emph-re string) - (setq string (replace-match (concat "\\1" (nth 2 (assoc (match-string 3 string) org-emphasis-alist)) "\\4" (nth 3 (assoc (match-string 3 string) org-emphasis-alist)) "\\5") t nil string))) - string) + (let ((s 0)) + (while (string-match org-emph-re string s) + (if (not (equal + (substring string (match-beginning 3) (1+ (match-beginning 3))) + (substring string (match-beginning 4) (1+ (match-beginning 4))))) + (setq string (replace-match + (concat "\\1" (nth 2 (assoc (match-string 3 string) org-emphasis-alist)) + "\\4" (nth 3 (assoc (match-string 3 string) org-emphasis-alist)) + "\\5") t nil string)) + (setq s (1+ s)))) + string)) (defvar org-par-open nil) (defun org-open-par () @@ -18216,10 +19953,6 @@ stacked delimiters is N. Escaping delimiters is not possible." "Close
  • if necessary." (org-close-par-maybe) (insert "
    • \n")) -; (when (save-excursion -; (re-search-backward "" nil t)) -; (if (member (match-string 0) '("" "" "
  • ")) -; (insert "
    • ")))) (defun org-html-level-start (level title umax with-toc head-count) "Insert a new level in HTML export. @@ -18260,7 +19993,7 @@ When TITLE is nil, just close all open levels." (setq title (concat (org-section-number level) " " title))) (setq level (+ level org-export-html-toplevel-hlevel -1)) (if with-toc - (insert (format "\n%s\n" + (insert (format "\n%s\n" level head-count title level)) (insert (format "\n%s\n" level title level))) (org-open-par))))) @@ -18268,7 +20001,7 @@ When TITLE is nil, just close all open levels." (defun org-html-level-close (&rest args) "Terminate one level in HTML export." (org-close-li) - (insert "")) + (insert "\n")) ;;; iCalendar export @@ -18300,11 +20033,13 @@ The file is stored under the name `org-combined-agenda-icalendar-file'." If COMBINE is non-nil, combine all calendar entries into a single large file and store it under the name `org-combined-agenda-icalendar-file'." (save-excursion + (org-prepare-agenda-buffers files) (let* ((dir (org-export-directory :ical (list :publishing-directory org-export-publishing-directory))) file ical-file ical-buffer category started org-agenda-new-buffers) + (and (get-buffer "*ical-tmp*") (kill-buffer "*ical-tmp*")) (when combine (setq ical-file (if (file-name-absolute-p org-combined-agenda-icalendar-file) @@ -18349,70 +20084,112 @@ the iCalendar file.") (defun org-print-icalendar-entries (&optional combine) "Print iCalendar entries for the current Org-mode file to `standard-output'. When COMBINE is non nil, add the category to each line." - (let ((re2 (concat "--?-?\\(" org-ts-regexp "\\)")) + (let ((re1 (concat org-ts-regexp "\\|<%%([^>\n]+>")) + (re2 (concat "--?-?\\(" org-ts-regexp "\\)")) (org-category-table (org-get-category-table)) (dts (org-ical-ts-to-string (format-time-string (cdr org-time-stamp-formats) (current-time)) "DTSTART")) - hd ts ts2 state status (inc t) pos - scheduledp deadlinep tmp pri category) + hd ts ts2 state status (inc t) pos b sexp rrule + scheduledp deadlinep tmp pri category + (sexp-buffer (get-buffer-create "*ical-tmp*"))) (save-excursion (goto-char (point-min)) - (while (re-search-forward org-ts-regexp nil t) - (setq pos (match-beginning 0) - ts (match-string 0) - inc t - hd (org-get-heading) - category (org-get-category)) - (if (looking-at re2) - (progn - (goto-char (match-end 0)) - (setq ts2 (match-string 1) inc nil)) - (setq ts2 ts - tmp (buffer-substring (max (point-min) + (while (re-search-forward re1 nil t) + (catch :skip + (org-agenda-skip) + (setq pos (match-beginning 0) + ts (match-string 0) + inc t + hd (org-get-heading) + category (org-get-category)) + (if (looking-at re2) + (progn + (goto-char (match-end 0)) + (setq ts2 (match-string 1) inc nil)) + (setq ts2 ts + tmp (buffer-substring (max (point-min) (- pos org-ds-keyword-length)) - pos) - deadlinep (string-match org-deadline-regexp tmp) - scheduledp (string-match org-scheduled-regexp tmp) - ;; donep (org-entry-is-done-p) - )) - (if (or (string-match org-tr-regexp hd) - (string-match org-ts-regexp hd)) - (setq hd (replace-match "" t t hd))) - (if (string-match org-bracket-link-regexp hd) - (setq hd (replace-match (if (match-end 3) (match-string 3 hd) - (match-string 1 hd)) - t t hd))) - (if deadlinep (setq hd (concat "DL: " hd))) - (if scheduledp (setq hd (concat "S: " hd))) - (princ (format "BEGIN:VEVENT -%s + pos) + deadlinep (string-match org-deadline-regexp tmp) + scheduledp (string-match org-scheduled-regexp tmp) + ;; donep (org-entry-is-done-p) + )) + (if (or (string-match org-tr-regexp hd) + (string-match org-ts-regexp hd)) + (setq hd (replace-match "" t t hd))) + (if (string-match "\\+\\([0-9]+\\)\\([dwmy]\\)>" ts) + (setq rrule + (concat "\nRRULE:FREQ=" + (cdr (assoc + (match-string 2 ts) + '(("d" . "DAILY")("w" . "WEEKLY") + ("m" . "MONTHLY")("y" . "YEARLY")))) + ";INTERVAL=" (match-string 1 ts))) + (setq rrule "")) + (if (string-match org-bracket-link-regexp hd) + (setq hd (replace-match (if (match-end 3) (match-string 3 hd) + (match-string 1 hd)) + t t hd))) + (if deadlinep (setq hd (concat "DL: " hd))) + (if scheduledp (setq hd (concat "S: " hd))) + (if (string-match "\\`<%%" ts) + (with-current-buffer sexp-buffer + (insert (substring ts 1 -1) " " hd "\n")) + (princ (format "BEGIN:VEVENT %s +%s%s SUMMARY:%s CATEGORIES:%s END:VEVENT\n" - (org-ical-ts-to-string ts "DTSTART") - (org-ical-ts-to-string ts2 "DTEND" inc) - hd category))) + (org-ical-ts-to-string ts "DTSTART") + (org-ical-ts-to-string ts2 "DTEND" inc) + rrule hd category))))) + + (when (and org-icalendar-include-sexps + (condition-case nil (require 'icalendar) (error nil)) + (fboundp 'icalendar-export-region)) + ;; Get all the literal sexps + (goto-char (point-min)) + (while (re-search-forward "^&?%%(" nil t) + (catch :skip + (org-agenda-skip) + (setq b (match-beginning 0)) + (goto-char (1- (match-end 0))) + (forward-sexp 1) + (end-of-line 1) + (setq sexp (buffer-substring b (point))) + (with-current-buffer sexp-buffer + (insert sexp "\n")) + (princ (org-diary-to-ical-string sexp-buffer))))) + (when org-icalendar-include-todo (goto-char (point-min)) (while (re-search-forward org-todo-line-regexp nil t) - (setq state (match-string 2)) - (setq status (if (equal state org-done-string) - "COMPLETED" "NEEDS-ACTION")) - (when (and state - (or (not (equal state org-done-string)) - (eq org-icalendar-include-todo 'all))) - (setq hd (match-string 3)) - (if (string-match org-priority-regexp hd) - (setq pri (string-to-char (match-string 2 hd)) - hd (concat (substring hd 0 (match-beginning 1)) - (substring hd (match-end 1)))) - (setq pri org-default-priority)) - (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri)) - (- org-lowest-priority ?A)))))) + (catch :skip + (org-agenda-skip) + (setq state (match-string 2)) + (setq status (if (member state org-done-keywords) + "COMPLETED" "NEEDS-ACTION")) + (when (and state + (or (not (member state org-done-keywords)) + (eq org-icalendar-include-todo 'all)) + (not (member org-archive-tag (org-get-tags-at))) + ) + (setq hd (match-string 3)) + (if (string-match org-bracket-link-regexp hd) + (setq hd (replace-match (if (match-end 3) (match-string 3 hd) + (match-string 1 hd)) + t t hd))) + (if (string-match org-priority-regexp hd) + (setq pri (string-to-char (match-string 2 hd)) + hd (concat (substring hd 0 (match-beginning 1)) + (substring hd (match-end 1)))) + (setq pri org-default-priority)) + (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri)) + (- org-lowest-priority org-highest-priority)))))) - (princ (format "BEGIN:VTODO + (princ (format "BEGIN:VTODO %s SUMMARY:%s CATEGORIES:%s @@ -18420,7 +20197,7 @@ SEQUENCE:1 PRIORITY:%d STATUS:%s END:VTODO\n" - dts hd category pri status)))))))) + dts hd category pri status))))))))) (defun org-start-icalendar-file (name) "Start an iCalendar file by inserting the header." @@ -18545,47 +20322,44 @@ The XOXO buffer is named *xoxo-*" ;;;; Key bindings -;; - Bindings in Org-mode map are currently -;; 0123456789abcdefghijklmnopqrstuvwxyz!?@#$%^&-+*/=()_{}[]:;"|,.<>~`'\t the alphabet -;; abcd fgh j lmnopqrstuvwxyz!? #$ ^ -+*/= [] ; |,.<>~ '\t necessary bindings -;; e (?) useful from outline-mode -;; i k @ expendable from outline-mode -;; 0123456789 % & ()_{} " ` free - ;; Make `C-c C-x' a prefix key -(define-key org-mode-map "\C-c\C-x" (make-sparse-keymap)) +(org-defkey org-mode-map "\C-c\C-x" (make-sparse-keymap)) ;; TAB key with modifiers -(define-key org-mode-map "\C-i" 'org-cycle) -(define-key org-mode-map [(tab)] 'org-cycle) -(define-key org-mode-map [(control tab)] 'org-force-cycle-archived) -(define-key org-mode-map [(meta tab)] 'org-complete) -(define-key org-mode-map "\M-\t" 'org-complete) -(define-key org-mode-map "\M-\C-i" 'org-complete) +(org-defkey org-mode-map "\C-i" 'org-cycle) +(org-defkey org-mode-map [(tab)] 'org-cycle) +(org-defkey org-mode-map [(control tab)] 'org-force-cycle-archived) +(org-defkey org-mode-map [(meta tab)] 'org-complete) +(org-defkey org-mode-map "\M-\t" 'org-complete) +(org-defkey org-mode-map "\M-\C-i" 'org-complete) ;; The following line is necessary under Suse GNU/Linux (unless (featurep 'xemacs) - (define-key org-mode-map [S-iso-lefttab] 'org-shifttab)) -(define-key org-mode-map [(shift tab)] 'org-shifttab) + (org-defkey org-mode-map [S-iso-lefttab] 'org-shifttab)) +(org-defkey org-mode-map [(shift tab)] 'org-shifttab) +(define-key org-mode-map (kbd "") 'org-shifttab) -(define-key org-mode-map (org-key 'S-return) 'org-table-copy-down) -(define-key org-mode-map [(meta shift return)] 'org-insert-todo-heading) -(define-key org-mode-map [(meta return)] 'org-meta-return) +(org-defkey org-mode-map [(shift return)] 'org-table-copy-down) +(org-defkey org-mode-map [(meta shift return)] 'org-insert-todo-heading) +(org-defkey org-mode-map [(meta return)] 'org-meta-return) ;; Cursor keys with modifiers -(define-key org-mode-map [(meta left)] 'org-metaleft) -(define-key org-mode-map [(meta right)] 'org-metaright) -(define-key org-mode-map [(meta up)] 'org-metaup) -(define-key org-mode-map [(meta down)] 'org-metadown) +(org-defkey org-mode-map [(meta left)] 'org-metaleft) +(org-defkey org-mode-map [(meta right)] 'org-metaright) +(org-defkey org-mode-map [(meta up)] 'org-metaup) +(org-defkey org-mode-map [(meta down)] 'org-metadown) -(define-key org-mode-map [(meta shift left)] 'org-shiftmetaleft) -(define-key org-mode-map [(meta shift right)] 'org-shiftmetaright) -(define-key org-mode-map [(meta shift up)] 'org-shiftmetaup) -(define-key org-mode-map [(meta shift down)] 'org-shiftmetadown) +(org-defkey org-mode-map [(meta shift left)] 'org-shiftmetaleft) +(org-defkey org-mode-map [(meta shift right)] 'org-shiftmetaright) +(org-defkey org-mode-map [(meta shift up)] 'org-shiftmetaup) +(org-defkey org-mode-map [(meta shift down)] 'org-shiftmetadown) -(define-key org-mode-map (org-key 'S-up) 'org-shiftup) -(define-key org-mode-map (org-key 'S-down) 'org-shiftdown) -(define-key org-mode-map (org-key 'S-left) 'org-shiftleft) -(define-key org-mode-map (org-key 'S-right) 'org-shiftright) +(org-defkey org-mode-map [(shift up)] 'org-shiftup) +(org-defkey org-mode-map [(shift down)] 'org-shiftdown) +(org-defkey org-mode-map [(shift left)] 'org-shiftleft) +(org-defkey org-mode-map [(shift right)] 'org-shiftright) + +(org-defkey org-mode-map [(control shift right)] 'org-shiftcontrolright) +(org-defkey org-mode-map [(control shift left)] 'org-shiftcontrolleft) ;;; Extra keys for tty access. ;; We only set them when really needed because otherwise the @@ -18593,102 +20367,105 @@ The XOXO buffer is named *xoxo-*" (when (or (featurep 'xemacs) ;; because XEmacs supports multi-device stuff (not window-system)) - (define-key org-mode-map "\C-c\C-xc" 'org-table-copy-down) - (define-key org-mode-map "\C-c\C-xM" 'org-insert-todo-heading) - (define-key org-mode-map "\C-c\C-xm" 'org-meta-return) - (define-key org-mode-map [?\e (return)] 'org-meta-return) - (define-key org-mode-map [?\e (left)] 'org-metaleft) - (define-key org-mode-map "\C-c\C-xl" 'org-metaleft) - (define-key org-mode-map [?\e (right)] 'org-metaright) - (define-key org-mode-map "\C-c\C-xr" 'org-metaright) - (define-key org-mode-map [?\e (up)] 'org-metaup) - (define-key org-mode-map "\C-c\C-xu" 'org-metaup) - (define-key org-mode-map [?\e (down)] 'org-metadown) - (define-key org-mode-map "\C-c\C-xd" 'org-metadown) - (define-key org-mode-map "\C-c\C-xL" 'org-shiftmetaleft) - (define-key org-mode-map "\C-c\C-xR" 'org-shiftmetaright) - (define-key org-mode-map "\C-c\C-xU" 'org-shiftmetaup) - (define-key org-mode-map "\C-c\C-xD" 'org-shiftmetadown) - (define-key org-mode-map [?\C-c ?\C-x (up)] 'org-shiftup) - (define-key org-mode-map [?\C-c ?\C-x (down)] 'org-shiftdown) - (define-key org-mode-map [?\C-c ?\C-x (left)] 'org-shiftleft) - (define-key org-mode-map [?\C-c ?\C-x (right)] 'org-shiftright)) + (org-defkey org-mode-map "\C-c\C-xc" 'org-table-copy-down) + (org-defkey org-mode-map "\C-c\C-xM" 'org-insert-todo-heading) + (org-defkey org-mode-map "\C-c\C-xm" 'org-meta-return) + (org-defkey org-mode-map [?\e (return)] 'org-meta-return) + (org-defkey org-mode-map [?\e (left)] 'org-metaleft) + (org-defkey org-mode-map "\C-c\C-xl" 'org-metaleft) + (org-defkey org-mode-map [?\e (right)] 'org-metaright) + (org-defkey org-mode-map "\C-c\C-xr" 'org-metaright) + (org-defkey org-mode-map [?\e (up)] 'org-metaup) + (org-defkey org-mode-map "\C-c\C-xu" 'org-metaup) + (org-defkey org-mode-map [?\e (down)] 'org-metadown) + (org-defkey org-mode-map "\C-c\C-xd" 'org-metadown) + (org-defkey org-mode-map "\C-c\C-xL" 'org-shiftmetaleft) + (org-defkey org-mode-map "\C-c\C-xR" 'org-shiftmetaright) + (org-defkey org-mode-map "\C-c\C-xU" 'org-shiftmetaup) + (org-defkey org-mode-map "\C-c\C-xD" 'org-shiftmetadown) + (org-defkey org-mode-map [?\C-c (up)] 'org-shiftup) + (org-defkey org-mode-map [?\C-c (down)] 'org-shiftdown) + (org-defkey org-mode-map [?\C-c (left)] 'org-shiftleft) + (org-defkey org-mode-map [?\C-c (right)] 'org-shiftright) + (org-defkey org-mode-map [?\C-c ?\C-x (right)] 'org-shiftcontrolright) + (org-defkey org-mode-map [?\C-c ?\C-x (left)] 'org-shiftcontrolleft)) ;; All the other keys -(define-key org-mode-map "\C-c\C-a" 'show-all) ; in case allout messed up. -(define-key org-mode-map "\C-c\C-r" 'org-reveal) -(define-key org-mode-map "\C-xns" 'org-narrow-to-subtree) -(define-key org-mode-map "\C-c$" 'org-archive-subtree) -(define-key org-mode-map "\C-c\C-x\C-s" 'org-advertized-archive-subtree) -(define-key org-mode-map "\C-c\C-x\C-a" 'org-toggle-archive-tag) -(define-key org-mode-map "\C-c\C-xb" 'org-tree-to-indirect-buffer) -(define-key org-mode-map "\C-c\C-j" 'org-goto) -(define-key org-mode-map "\C-c\C-t" 'org-todo) -(define-key org-mode-map "\C-c\C-s" 'org-schedule) -(define-key org-mode-map "\C-c\C-d" 'org-deadline) -(define-key org-mode-map "\C-c;" 'org-toggle-comment) -(define-key org-mode-map "\C-c\C-v" 'org-show-todo-tree) -(define-key org-mode-map "\C-c\C-w" 'org-check-deadlines) -(define-key org-mode-map "\C-c/" 'org-occur) ; Minor-mode reserved -(define-key org-mode-map "\C-c\\" 'org-tags-sparse-tree) ; Minor-mode res. -(define-key org-mode-map "\C-c\C-m" 'org-insert-heading) -(define-key org-mode-map "\M-\C-m" 'org-insert-heading) -(define-key org-mode-map "\C-c\C-x\C-n" 'org-next-link) -(define-key org-mode-map "\C-c\C-x\C-p" 'org-previous-link) -(define-key org-mode-map "\C-c\C-l" 'org-insert-link) -(define-key org-mode-map "\C-c\C-o" 'org-open-at-point) -(define-key org-mode-map "\C-c%" 'org-mark-ring-push) -(define-key org-mode-map "\C-c&" 'org-mark-ring-goto) -(define-key org-mode-map "\C-c\C-z" 'org-time-stamp) ; Alternative binding -(define-key org-mode-map "\C-c." 'org-time-stamp) ; Minor-mode reserved -(define-key org-mode-map "\C-c!" 'org-time-stamp-inactive) ; Minor-mode r. -(define-key org-mode-map "\C-c," 'org-priority) ; Minor-mode reserved -(define-key org-mode-map "\C-c\C-y" 'org-evaluate-time-range) -(define-key org-mode-map "\C-c>" 'org-goto-calendar) -(define-key org-mode-map "\C-c<" 'org-date-from-calendar) -(define-key org-mode-map [(control ?,)] 'org-cycle-agenda-files) -(define-key org-mode-map [(control ?\')] 'org-cycle-agenda-files) -(define-key org-mode-map "\C-c[" 'org-agenda-file-to-front) -(define-key org-mode-map "\C-c]" 'org-remove-file) -(define-key org-mode-map "\C-c-" 'org-table-insert-hline) -(define-key org-mode-map "\C-c^" 'org-sort) -(define-key org-mode-map "\C-c\C-c" 'org-ctrl-c-ctrl-c) -(define-key org-mode-map "\C-c#" 'org-update-checkbox-count) -(define-key org-mode-map "\C-m" 'org-return) -(define-key org-mode-map "\C-c?" 'org-table-field-info) -(define-key org-mode-map "\C-c " 'org-table-blank-field) -(define-key org-mode-map "\C-c+" 'org-table-sum) -(define-key org-mode-map "\C-c=" 'org-table-eval-formula) -(define-key org-mode-map "\C-c'" 'org-table-edit-formulas) -(define-key org-mode-map "\C-c`" 'org-table-edit-field) -(define-key org-mode-map "\C-c|" 'org-table-create-or-convert-from-region) -(define-key org-mode-map "\C-c*" 'org-table-recalculate) -(define-key org-mode-map [(control ?#)] 'org-table-rotate-recalc-marks) -(define-key org-mode-map "\C-c~" 'org-table-create-with-table.el) -(define-key org-mode-map "\C-c\C-q" 'org-table-wrap-region) -(define-key org-mode-map "\C-c}" 'org-table-toggle-coordinate-overlays) -(define-key org-mode-map "\C-c{" 'org-table-toggle-formula-debugger) -(define-key org-mode-map "\C-c\C-e" 'org-export) -(define-key org-mode-map "\C-c:" 'org-toggle-fixed-width-section) +(org-defkey org-mode-map "\C-c\C-a" 'show-all) ; in case allout messed up. +(org-defkey org-mode-map "\C-c\C-r" 'org-reveal) +(org-defkey org-mode-map "\C-xns" 'org-narrow-to-subtree) +(org-defkey org-mode-map "\C-c$" 'org-archive-subtree) +(org-defkey org-mode-map "\C-c\C-x\C-s" 'org-advertized-archive-subtree) +(org-defkey org-mode-map "\C-c\C-x\C-a" 'org-toggle-archive-tag) +(org-defkey org-mode-map "\C-c\C-xb" 'org-tree-to-indirect-buffer) +(org-defkey org-mode-map "\C-c\C-j" 'org-goto) +(org-defkey org-mode-map "\C-c\C-t" 'org-todo) +(org-defkey org-mode-map "\C-c\C-s" 'org-schedule) +(org-defkey org-mode-map "\C-c\C-d" 'org-deadline) +(org-defkey org-mode-map "\C-c;" 'org-toggle-comment) +(org-defkey org-mode-map "\C-c\C-v" 'org-show-todo-tree) +(org-defkey org-mode-map "\C-c\C-w" 'org-check-deadlines) +(org-defkey org-mode-map "\C-c/" 'org-occur) ; Minor-mode reserved +(org-defkey org-mode-map "\C-c\\" 'org-tags-sparse-tree) ; Minor-mode res. +(org-defkey org-mode-map "\C-c\C-m" 'org-ctrl-c-ret) +(org-defkey org-mode-map "\M-\C-m" 'org-insert-heading) +(org-defkey org-mode-map "\C-c\C-x\C-n" 'org-next-link) +(org-defkey org-mode-map "\C-c\C-x\C-p" 'org-previous-link) +(org-defkey org-mode-map "\C-c\C-l" 'org-insert-link) +(org-defkey org-mode-map "\C-c\C-o" 'org-open-at-point) +(org-defkey org-mode-map "\C-c%" 'org-mark-ring-push) +(org-defkey org-mode-map "\C-c&" 'org-mark-ring-goto) +(org-defkey org-mode-map "\C-c\C-z" 'org-time-stamp) ; Alternative binding +(org-defkey org-mode-map "\C-c." 'org-time-stamp) ; Minor-mode reserved +(org-defkey org-mode-map "\C-c!" 'org-time-stamp-inactive) ; Minor-mode r. +(org-defkey org-mode-map "\C-c," 'org-priority) ; Minor-mode reserved +(org-defkey org-mode-map "\C-c\C-y" 'org-evaluate-time-range) +(org-defkey org-mode-map "\C-c>" 'org-goto-calendar) +(org-defkey org-mode-map "\C-c<" 'org-date-from-calendar) +(org-defkey org-mode-map [(control ?,)] 'org-cycle-agenda-files) +(org-defkey org-mode-map [(control ?\')] 'org-cycle-agenda-files) +(org-defkey org-mode-map "\C-c[" 'org-agenda-file-to-front) +(org-defkey org-mode-map "\C-c]" 'org-remove-file) +(org-defkey org-mode-map "\C-c-" 'org-table-insert-hline) +(org-defkey org-mode-map "\C-c^" 'org-sort) +(org-defkey org-mode-map "\C-c\C-c" 'org-ctrl-c-ctrl-c) +(org-defkey org-mode-map "\C-c#" 'org-update-checkbox-count) +(org-defkey org-mode-map "\C-m" 'org-return) +(org-defkey org-mode-map "\C-c?" 'org-table-field-info) +(org-defkey org-mode-map "\C-c " 'org-table-blank-field) +(org-defkey org-mode-map "\C-c+" 'org-table-sum) +(org-defkey org-mode-map "\C-c=" 'org-table-eval-formula) +(org-defkey org-mode-map "\C-c'" 'org-table-edit-formulas) +(org-defkey org-mode-map "\C-c`" 'org-table-edit-field) +(org-defkey org-mode-map "\C-c|" 'org-table-create-or-convert-from-region) +(org-defkey org-mode-map "\C-c*" 'org-table-recalculate) +(org-defkey org-mode-map [(control ?#)] 'org-table-rotate-recalc-marks) +(org-defkey org-mode-map "\C-c~" 'org-table-create-with-table.el) +(org-defkey org-mode-map "\C-c\C-q" 'org-table-wrap-region) +(org-defkey org-mode-map "\C-c}" 'org-table-toggle-coordinate-overlays) +(org-defkey org-mode-map "\C-c{" 'org-table-toggle-formula-debugger) +(org-defkey org-mode-map "\C-c\C-e" 'org-export) +(org-defkey org-mode-map "\C-c:" 'org-toggle-fixed-width-section) +(org-defkey org-mode-map "\C-c\C-x\C-f" 'org-emphasize) -(define-key org-mode-map "\C-c\C-x\C-k" 'org-cut-special) -(define-key org-mode-map "\C-c\C-x\C-w" 'org-cut-special) -(define-key org-mode-map "\C-c\C-x\M-w" 'org-copy-special) -(define-key org-mode-map "\C-c\C-x\C-y" 'org-paste-special) +(org-defkey org-mode-map "\C-c\C-x\C-k" 'org-cut-special) +(org-defkey org-mode-map "\C-c\C-x\C-w" 'org-cut-special) +(org-defkey org-mode-map "\C-c\C-x\M-w" 'org-copy-special) +(org-defkey org-mode-map "\C-c\C-x\C-y" 'org-paste-special) -(define-key org-mode-map "\C-c\C-x\C-t" 'org-toggle-time-stamp-overlays) -(define-key org-mode-map "\C-c\C-x\C-i" 'org-clock-in) -(define-key org-mode-map "\C-c\C-x\C-o" 'org-clock-out) -(define-key org-mode-map "\C-c\C-x\C-x" 'org-clock-cancel) -(define-key org-mode-map "\C-c\C-x\C-d" 'org-clock-display) -(define-key org-mode-map "\C-c\C-x\C-r" 'org-clock-report) -(define-key org-mode-map "\C-c\C-x\C-u" 'org-dblock-update) -(define-key org-mode-map "\C-c\C-x\C-l" 'org-preview-latex-fragment) -(define-key org-mode-map "\C-c\C-x\C-b" 'org-toggle-checkbox) +(org-defkey org-mode-map "\C-c\C-x\C-t" 'org-toggle-time-stamp-overlays) +(org-defkey org-mode-map "\C-c\C-x\C-i" 'org-clock-in) +(org-defkey org-mode-map "\C-c\C-x\C-o" 'org-clock-out) +(org-defkey org-mode-map "\C-c\C-x\C-x" 'org-clock-cancel) +(org-defkey org-mode-map "\C-c\C-x\C-d" 'org-clock-display) +(org-defkey org-mode-map "\C-c\C-x\C-r" 'org-clock-report) +(org-defkey org-mode-map "\C-c\C-x\C-u" 'org-dblock-update) +(org-defkey org-mode-map "\C-c\C-x\C-l" 'org-preview-latex-fragment) +(org-defkey org-mode-map "\C-c\C-x\C-b" 'org-toggle-checkbox) (when (featurep 'xemacs) - (define-key org-mode-map 'button3 'popup-mode-menu)) + (org-defkey org-mode-map 'button3 'popup-mode-menu)) (defsubst org-table-p () (org-at-table-p)) @@ -18779,7 +20556,6 @@ because, in this case the deletion might narrow the column." (put 'org-delete-char 'flyspell-delayed t) (put 'org-delete-backward-char 'flyspell-delayed t) - ;; How to do this: Measure non-white length of current string ;; If equal to column width, we should realign. @@ -18790,7 +20566,7 @@ COMMANDS is a list of alternating OLDDEF NEWDEF command names." (while commands (setq old (pop commands) new (pop commands)) (if (fboundp 'command-remapping) - (define-key map (vector 'remap old) new) + (org-defkey map (vector 'remap old) new) (substitute-key-definition old new map global-map))))) (when (eq org-enable-table-editor 'optimized) @@ -18800,7 +20576,7 @@ COMMANDS is a list of alternating OLDDEF NEWDEF command names." 'self-insert-command 'org-self-insert-command 'delete-char 'org-delete-char 'delete-backward-char 'org-delete-backward-char) - (define-key org-mode-map "|" 'org-force-self-insert)) + (org-defkey org-mode-map "|" 'org-force-self-insert)) (defun org-shiftcursor-error () "Throw an error because Shift-Cursor command was applied in wrong context." @@ -18821,7 +20597,8 @@ See the individual commands for more information." (defun org-shiftmetaleft () "Promote subtree or delete table column. -Calls `org-promote-subtree' or `org-table-delete-column', depending on context. +Calls `org-promote-subtree', `org-outdent-item', +or `org-table-delete-column', depending on context. See the individual commands for more information." (interactive) (cond @@ -18832,7 +20609,8 @@ See the individual commands for more information." (defun org-shiftmetaright () "Demote subtree or insert table column. -Calls `org-demote-subtree' or `org-table-insert-column', depending on context. +Calls `org-demote-subtree', `org-indent-item', +or `org-table-insert-column', depending on context. See the individual commands for more information." (interactive) (cond @@ -18916,8 +20694,8 @@ commands for more information." (defun org-shiftup (&optional arg) "Increase item in timestamp or increase priority of current headline. -Calls `org-timestamp-up' or `org-priority-up', depending on context. -See the individual commands for more information." +Calls `org-timestamp-up' or `org-priority-up', or `org-previous-item', +depending on context. See the individual commands for more information." (interactive "P") (cond ((org-at-timestamp-p t) (call-interactively 'org-timestamp-up)) @@ -18927,8 +20705,8 @@ See the individual commands for more information." (defun org-shiftdown (&optional arg) "Decrease item in timestamp or decrease priority of current headline. -Calls `org-timestamp-down' or `org-priority-down', depending on context. -See the individual commands for more information." +Calls `org-timestamp-down' or `org-priority-down', or `org-next-item' +depending on context. See the individual commands for more information." (interactive "P") (cond ((org-at-timestamp-p t) (call-interactively 'org-timestamp-down)) @@ -18951,6 +20729,27 @@ See the individual commands for more information." ((org-on-heading-p) (org-call-with-arg 'org-todo 'left)) (t (org-shiftcursor-error)))) +(defun org-shiftcontrolright () + "Switch to next TODO set." + (interactive) + (cond + ((org-on-heading-p) (org-call-with-arg 'org-todo 'nextset)) + (t (org-shiftcursor-error)))) + +(defun org-shiftcontrolleft () + "Switch to previous TODO set." + (interactive) + (cond + ((org-on-heading-p) (org-call-with-arg 'org-todo 'previousset)) + (t (org-shiftcursor-error)))) + +(defun org-ctrl-c-ret () + "Call `org-table-hline-and-move' or `org-insert-heading' dep. on context." + (interactive) + (cond + ((org-at-table-p) (call-interactively 'org-table-hline-and-move)) + (t (call-interactively 'org-insert-heading)))) + (defun org-copy-special () "Copy region in table or copy current subtree. Calls `org-table-copy' or `org-copy-subtree', depending on context. @@ -19159,7 +20958,11 @@ See the individual commands for more information." ["Next Same Level" outline-forward-same-level t] ["Previous Same Level" outline-backward-same-level t] "--" - ["Jump" org-goto t]) + ["Jump" org-goto t] + "--" + ["C-a finds headline start" + (setq org-special-ctrl-a (not org-special-ctrl-a)) + :style toggle :selected org-special-ctrl-a]) ("Edit Structure" ["Move Subtree Up" org-shiftmetaup (not (org-at-table-p))] ["Move Subtree Down" org-shiftmetadown (not (org-at-table-p))] @@ -19177,6 +20980,8 @@ See the individual commands for more information." "--" ["Convert to odd levels" org-convert-to-odd-levels t] ["Convert to odd/even levels" org-convert-to-oddeven-levels t]) + ("Editing" + ["Emphasis..." org-emphasize t]) ("Archive" ["Toggle ARCHIVE tag" org-toggle-archive-tag t] ; ["Check and Tag Children" (org-toggle-archive-tag (4)) @@ -19202,7 +21007,9 @@ See the individual commands for more information." ("Select keyword" ["Next keyword" org-shiftright (org-on-heading-p)] ["Previous keyword" org-shiftleft (org-on-heading-p)] - ["Complete Keyword" org-complete (assq :todo-keyword (org-context))]) + ["Complete Keyword" org-complete (assq :todo-keyword (org-context))] + ["Next keyword set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-on-heading-p))] + ["Previous keyword set" org-shiftcontrolright (and (> (length org-todo-sets) 1) (org-on-heading-p))]) ["Show TODO Tree" org-show-todo-tree t] ["Global TODO list" org-todo-list t] "--" @@ -19210,6 +21017,7 @@ See the individual commands for more information." ["Priority Up" org-shiftup t] ["Priority Down" org-shiftdown t] "--" + ;; FIXME: why is this still here???? ; ["Insert Checkbox" org-insert-todo-heading (org-in-item-p)] ; ["Toggle Checkbox" org-ctrl-c-ctrl-c (org-at-item-checkbox-p)] ; ["Insert [n/m] cookie" (progn (insert "[/]") (org-update-checkbox-count)) @@ -19245,7 +21053,7 @@ See the individual commands for more information." ["Record DONE time" (progn (setq org-log-done (not org-log-done)) (message "Switching to %s will %s record a timestamp" - org-done-string + (car org-done-keywords) (if org-log-done "automatically" "not"))) :style toggle :selected org-log-done]) "--" @@ -19297,15 +21105,6 @@ See the individual commands for more information." ["Refresh setup" org-mode-restart t] )) -(defun org-toggle-log-option (type) - (if (not (listp org-log-done)) (setq org-log-done nil)) - (if (memq type org-log-done) - (setq org-log-done (delq type org-log-done)) - (add-to-list 'org-log-done type))) - -(defun org-check-log-option (type) - (and (listp org-log-done) (memq type org-log-done))) - (defun org-info (&optional node) "Read documentation for Org-mode in the info system. With optional NODE, go directly to that node." @@ -19394,7 +21193,7 @@ and :keyword." (p (point)) clist o) ;; First the large context (cond - ((org-on-heading-p) + ((org-on-heading-p t) (push (list :headline (point-at-bol) (point-at-eol)) clist) (when (progn (beginning-of-line 1) @@ -19404,7 +21203,7 @@ and :keyword." (push (org-point-in-group p 4 :tags) clist)) (goto-char p) (skip-chars-backward "^[\n\r \t") (or (eobp) (backward-char 1)) - (if (looking-at "\\[#[A-Z]\\]") + (if (looking-at "\\[#[A-Z0-9]\\]") (push (org-point-in-group p 0 :priority) clist))) ((org-at-item-p) @@ -19459,6 +21258,7 @@ and :keyword." (setq clist (nreverse (delq nil clist))) clist)) +;; FIXME Compare with at-regexp-p (defun org-in-regexp (re &optional nlines visually) "Check if point is inside a match of regexp. Normally only the current line is checked, but you can include NLINES extra @@ -19472,10 +21272,34 @@ really on, so that the block visually is on the match." (save-excursion (beginning-of-line (- 1 (or nlines 0))) (while (re-search-forward re eol t) - (if (and (<= (match-beginning 0) pos) + (if (and (<= (match-beginning 0) pos) (>= (+ inc (match-end 0)) pos)) (throw 'exit (cons (match-beginning 0) (match-end 0))))))))) +(defun org-at-regexp-p (regexp) + "Is point inside a match of REGEXP in the current line?" + (catch 'exit + (save-excursion + (let ((pos (point)) (end (point-at-eol))) + (beginning-of-line 1) + (while (re-search-forward regexp end t) + (if (and (<= (match-beginning 0) pos) + (>= (match-end 0) pos)) + (throw 'exit t))) + nil)))) + +(defun org-uniquify (list) + "Remove duplicate elements from LIST." + (let (res) + (mapc (lambda (x) (add-to-list 'res x 'append)) list) + res)) + +(defun org-delete-all (elts list) + "Remove all elements in ELTS from LIST." + (while elts + (setq list (delete (pop elts) list))) + list) + (defun org-point-in-group (point group &optional context) "Check if POINT is in match-group GROUP. If CONTEXT is non-nil, return a list with CONTEXT and the boundaries of the @@ -19535,7 +21359,7 @@ The sequences in STRING may contain normal field width and padding information, for example \"%-5s\". Replacements happen in the sequence given by TABLE, so values can contain further %-escapes if they are define later in TABLE." (let ((case-fold-search nil) - e re rpl) + e re rpl) (while (setq e (pop table)) (setq re (concat "%-?[0-9.]*" (substring (car e) 1))) (while (string-match re string) @@ -19555,27 +21379,49 @@ Counting starts at 1." (setq c (1+ c))) (nreverse rtn))) -(defun org-at-regexp-p (regexp) - "Is point inside a match of REGEXP in the current line?" - (catch 'exit - (save-excursion - (let ((pos (point)) (end (point-at-eol))) - (beginning-of-line 1) - (while (re-search-forward regexp end t) - (if (and (<= (match-beginning 0) pos) - (>= (match-end 0) pos)) - (throw 'exit t))) - nil)))) - (defun org-find-base-buffer-visiting (file) "Like `find-buffer-visiting' but alway return the base buffer and not an indirect buffer" (let ((buf (find-buffer-visiting file))) (or (buffer-base-buffer buf) buf))) +(defun org-image-file-name-regexp () + "Return regexp matching the file names of images." + (if (fboundp 'image-file-name-regexp) + (image-file-name-regexp) + (let ((image-file-name-extensions + '("png" "jpeg" "jpg" "gif" "tiff" "tif" + "xbm" "xpm" "pbm" "pgm" "ppm"))) + (concat "\\." + (regexp-opt (nconc (mapcar 'upcase + image-file-name-extensions) + image-file-name-extensions) + t) + "\\'")))) + +(defun org-file-image-p (file) + "Return non-nil if FILE is an image." + (save-match-data + (string-match (org-image-file-name-regexp) file))) + ;;; Paragraph filling stuff. ;; We want this to be just right, so use the full arsenal. -;; FIXME: configure filladapt for XEmacs + +(defun org-indent-line-function () + "Indent line like previous, but further if previous was headline or item." + (interactive) + (let ((column (save-excursion + (beginning-of-line) + (if (looking-at "#") 0 + (skip-chars-backward "\n \t") + (beginning-of-line) + (if (or (looking-at "\\*+[ \t]+") + (looking-at "[ \t]*\\([-+*][ \t]+\\|[0-9]+[.)][ \t]+\\)")) + (progn (goto-char (match-end 0)) (current-column)) + (current-indentation)))))) + (if (<= (current-column) (current-indentation)) + (indent-line-to column) + (save-excursion (indent-line-to column))))) (defun org-set-autofill-regexps () (interactive) @@ -19584,6 +21430,7 @@ not an indirect buffer" ;; fill the headline as well. (org-set-local 'comment-start-skip "^#+[ \t]*") (org-set-local 'paragraph-separate "\f\\|\\*\\|[ ]*$\\|[ \t]*[:|]") +;; FIXME!!!!!!! (org-set-local 'paragraph-separate "\f\\|[ ]*$") ;; The paragraph starter includes hand-formatted lists. (org-set-local 'paragraph-start "\f\\|[ ]*$\\|\\([*\f]+\\)\\|[ \t]*\\([-+*][ \t]+\\|[0-9]+[.)][ \t]+\\)\\|[ \t]*[:|]") @@ -19627,30 +21474,12 @@ In particular, this makes sure hanging paragraphs for hand-formatted lists work correctly." (cond ((looking-at "#[ \t]+") (match-string 0)) - ((looking-at " *\\([-*+] \\|[0-9]+[.)] \\)?") - (make-string (- (match-end 0) (match-beginning 0)) ?\ )) + ((looking-at "[ \t]*\\([-*+] \\|[0-9]+[.)] \\)?") + (save-excursion + (goto-char (match-end 0)) + (make-string (current-column) ?\ ))) (t nil))) - -(defun org-image-file-name-regexp () - "Return regexp matching the file names of images." - (if (fboundp 'image-file-name-regexp) - (image-file-name-regexp) - (let ((image-file-name-extensions - '("png" "jpeg" "jpg" "gif" "tiff" "tif" - "xbm" "xpm" "pbm" "pgm" "ppm"))) - (concat "\\." - (regexp-opt (nconc (mapcar 'upcase - image-file-name-extensions) - image-file-name-extensions) - t) - "\\'")))) - -(defun org-file-image-p (file) - "Return non-nil if FILE is an image." - (save-match-data - (string-match (org-image-file-name-regexp) file))) - ;;;; Functions extending outline functionality ;; C-a should go to the beginning of a *visible* line, also in the @@ -19659,15 +21488,22 @@ work correctly." "Go to the beginning of the current line. If that is invisible, continue to a visible line beginning. This makes the function of C-a more intuitive." (interactive) - (beginning-of-line 1) - (if (bobp) - nil - (backward-char 1) - (if (org-invisible-p) - (while (and (not (bobp)) (org-invisible-p)) - (backward-char 1) - (beginning-of-line 1)) - (forward-char 1)))) + (let ((pos (point))) + (beginning-of-line 1) + (if (bobp) + nil + (backward-char 1) + (if (org-invisible-p) + (while (and (not (bobp)) (org-invisible-p)) + (backward-char 1) + (beginning-of-line 1)) + (forward-char 1))) + (when (and org-special-ctrl-a (looking-at org-todo-line-regexp) + (= (char-after (match-end 1)) ?\ )) + (goto-char + (cond ((> pos (match-beginning 3)) (match-beginning 3)) + ((= pos (point)) (match-beginning 3)) + (t (point))))))) (define-key org-mode-map "\C-a" 'org-beginning-of-line) @@ -19689,6 +21525,9 @@ to a visible line beginning. This makes the function of C-a more intuitive." (defalias 'org-back-to-heading 'outline-back-to-heading) (defalias 'org-on-heading-p 'outline-on-heading-p) +(defalias 'org-at-heading-p 'outline-on-heading-p) +(defun org-at-heading-or-item-p () + (or (org-on-heading-p) (org-at-item-p))) (defun org-on-target-p () (or (org-in-regexp org-radio-target-regexp) @@ -19751,7 +21590,7 @@ When ENTRY is non-nil, show the entire entry." (save-excursion (outline-end-of-heading) (point)) flag)))) -(defun org-end-of-subtree (&optional invisible-OK) +(defun org-end-of-subtree (&optional invisible-OK to-heading) ;; This is an exact copy of the original function, but it uses ;; `org-back-to-heading', to make it work also in invisible ;; trees. And is uses an invisible-OK argument. @@ -19763,13 +21602,14 @@ When ENTRY is non-nil, show the entire entry." (or first (> (funcall outline-level) level))) (setq first nil) (outline-next-heading)) - (if (memq (preceding-char) '(?\n ?\^M)) - (progn - ;; Go to end of line before heading - (forward-char -1) - (if (memq (preceding-char) '(?\n ?\^M)) - ;; leave blank line before heading - (forward-char -1))))) + (unless to-heading + (if (memq (preceding-char) '(?\n ?\^M)) + (progn + ;; Go to end of line before heading + (forward-char -1) + (if (memq (preceding-char) '(?\n ?\^M)) + ;; leave blank line before heading + (forward-char -1)))))) (point)) (defun org-show-subtree () @@ -19824,7 +21664,13 @@ Show the heading too, if it is currently invisible." (remove-hook 'post-command-hook 'org-isearch-post-command 'local) (org-show-context 'isearch)) -;;;; Repair problems with some other packages + +;;;; Address problems with some other packages + +;; Make flyspell not check words in links, to not mess up our keymap +(defun org-mode-flyspell-verify () + "Don't let flyspell put overlays at active buttons." + (not (get-text-property (point) 'keymap))) ;; Make `bookmark-jump' show the jump location if it was hidden. (eval-after-load "bookmark" @@ -19850,6 +21696,26 @@ Show the heading too, if it is currently invisible." ;;;; Experimental code +(defun org-closed-in-range () + "Sparse tree of items closed in a certain time range. +Still experimental, may disappear in the furture." + (interactive) + ;; Get the time interval from the user. + (let* ((time1 (time-to-seconds + (org-read-date nil 'to-time nil "Starting date: "))) + (time2 (time-to-seconds + (org-read-date nil 'to-time nil "End date:"))) + ;; callback function + (callback (lambda () + (let ((time + (time-to-seconds + (apply 'encode-time + (org-parse-time-string + (match-string 1)))))) + ;; check if time in interval + (and (>= time time1) (<= time time2)))))) + ;; make tree, check each match with the callback + (org-occur "CLOSED: +\\[\\(.*?\\)\\]" nil callback))) ;;;; Finish up From 31e5288cd8d93f111e021c7c901ce8113faf3dc7 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jun 2007 15:15:11 +0000 Subject: [PATCH 120/276] Large number of changes. --- etc/ChangeLog | 4 + man/org.texi | 1441 ++++++++++++++++++++++++++++++++++--------------- 2 files changed, 1012 insertions(+), 433 deletions(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 8a184d5f5e9..565c7c1b989 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Carsten Dominik + + * orgcard.tex: Version 4.77. + 2007-06-05 Michael Albinus * NEWS: Add socks.el as new package. diff --git a/man/org.texi b/man/org.texi index aacc2929d13..22d217c1c89 100644 --- a/man/org.texi +++ b/man/org.texi @@ -3,8 +3,8 @@ @setfilename ../info/org @settitle Org Mode Manual -@set VERSION 4.67 -@set DATE February 2007 +@set VERSION 4.77 +@set DATE June 2007 @dircategory Emacs @direntry @@ -89,7 +89,6 @@ Software Foundation raise funds for GNU development.'' * Miscellaneous:: All the rest which did not fit elsewhere * Extensions and Hacking:: It is possible to write add-on code * History and Acknowledgments:: How Org-mode came into being -* GNU Free Documentation License:: The license for this documentation. * Index:: The fast road to specific information * Key Index:: Key bindings and where they are described @@ -123,6 +122,7 @@ Tables * Built-in table editor:: Simple tables * Narrow columns:: Stop wasting space in tables +* Column groups:: Grouping to trigger vertical lines * orgtbl-mode:: The table editor as minor mode * The spreadsheet:: The table editor has spreadsheet capabilities. @@ -163,26 +163,32 @@ TODO items * TODO basics:: Marking and displaying TODO entries * TODO extensions:: Workflow and assignments * Priorities:: Some things are more important than others -* Breaking down tasks:: Splitting a task into managable pieces +* Breaking down tasks:: Splitting a task into manageable pieces * Checkboxes:: Tick-off lists Extended use of TODO keywords * Workflow states:: From TODO to DONE in steps * TODO types:: I do this, Fred the rest +* Multiple sets in one file:: Mixing it all, and still finding your way * Per file keywords:: Different files, different requirements Timestamps * Time stamps:: Assigning a time to a tree entry * Creating timestamps:: Commands which insert timestamps -* Custom time format:: If you cannot work with the ISO format -* Repeating items:: Deadlines that come back again and again +* Deadlines and scheduling:: Planning your work * Progress logging:: Documenting when what work was done. Creating timestamps * The date/time prompt:: How org-mode helps you entering date and time +* Custom time format:: Making dates look differently + +Deadlines and Scheduling + +* Inserting deadline/schedule:: +* Repeated tasks:: Progress Logging @@ -224,7 +230,8 @@ Custom agenda views * Storing searches:: Type once, use often * Block agenda:: All the stuff you need in a single buffer * Setting Options:: Changing the rules -* Batch processing:: Agenda views from the command line +* Exporting Agenda Views:: Writing agendas to files. +* Extracting Agenda Information for other programs:: Embedded LaTeX @@ -244,7 +251,7 @@ Exporting HTML export -* Export commands:: How to invode HTML export +* Export commands:: How to invoke HTML export * Quoting HTML tags:: Using direct HTML in Org-mode * Links:: How hyperlinks get transferred to HTML * Images:: To inline or not to inline? @@ -253,6 +260,8 @@ HTML export Text interpretation by the exporter * Comment lines:: Some lines will not be exported +* Initial text:: Text before the first headline +* Footnotes:: Numbers like [1] * Enhancing text:: Subscripts, symbols and more * Export options:: How to influence the export settings @@ -371,7 +380,7 @@ example as: Org-mode's automatic, context sensitive table editor with spreadsheet capabilities can be integrated into any major mode by activating the minor Orgtbl-mode. Using a translation step, it can be used to maintain -tables in arbitray file types, for example in LaTeX. +tables in arbitrary file types, for example in LaTeX. @cindex FAQ There is a website for Org-mode which provides links to the newest @@ -578,8 +587,9 @@ key. @cindex outline tree Headlines define the structure of an outline tree. The headlines in -Org-mode start with one or more stars, on the left margin. For -example: +Org-mode start with one or more stars, on the left margin@footnote{See +the variable @code{org-special-ctrl-a} to configure special behavior of +@kbd{C-a} in headlines.}. For example: @example * Top level headline @@ -588,6 +598,7 @@ example: some text *** 3rd level more text + * Another top level headline @end example @@ -595,6 +606,12 @@ example: outline that has whitespace followed by a single star as headline starters. @ref{Clean view} describes a setup to realize this. +An empty line after the end of a subtree is considered part of it and +will be hidden when the subtree is folded. However, if you leave at +least two empty lines, one empty line will remain visible after folding +the subtree, in order to structure the collapsed view. See the +variable @code{org-cycle-separator-lines} for modifying this behavior. + @node Visibility cycling, Motion, Headlines, Document structure @section Visibility cycling @cindex cycling, visibility @@ -615,7 +632,7 @@ Org-mode uses just two commands, bound to @key{TAB} and @table @kbd @kindex @key{TAB} @item @key{TAB} -@emph{Subtree cycling}: Rotate current subtree between the states +@emph{Subtree cycling}: Rotate current subtree among the states @example ,-> FOLDED -> CHILDREN -> SUBTREE --. @@ -637,7 +654,7 @@ argument (@kbd{C-u @key{TAB}}), global cycling is invoked. @kindex S-@key{TAB} @item S-@key{TAB} @itemx C-u @key{TAB} -@emph{Global cycling}: Rotate the entire buffer between the states +@emph{Global cycling}: Rotate the entire buffer among the states @example ,-> OVERVIEW -> CONTENTS -> SHOW ALL --. @@ -662,13 +679,19 @@ level, all sibling headings. @kindex C-c C-x b @item C-c C-x b Show the current subtree in an indirect buffer@footnote{The indirect -buffer (@pxref{Indirect Buffers,Indirect Buffers,Indirect -Buffers,emacs,GNU Emacs Manual}) will contain the entire buffer, but -will be narrowed to the current tree. Editing the indirect buffer will -also change the original buffer, but without affecting visibility in -that buffer.}. With numerical prefix ARG, go up to this level and then -take that tree. If ARG is negative, go up that many levels. With -@kbd{C-u} prefix, do not remove the previously used indirect buffer. +buffer +@ifinfo +(@pxref{Indirect Buffers,,,emacs,GNU Emacs Manual}) +@end ifinfo +@ifnotinfo +(see the Emacs manual for more information about indirect buffers) +@end ifnotinfo +will contain the entire buffer, but will be narrowed to the current +tree. Editing the indirect buffer will also change the original buffer, +but without affecting visibility in that buffer.}. With numerical +prefix ARG, go up to this level and then take that tree. If ARG is +negative, go up that many levels. With @kbd{C-u} prefix, do not remove +the previously used indirect buffer. @end table When Emacs first visits an Org-mode file, the global state is set to @@ -710,10 +733,16 @@ Backward to higher level heading. @item C-c C-j Jump to a different place without changing the current outline visibility. Shows the document structure in a temporary buffer, where -you can use visibility cycling (@key{TAB}) to find your destination. -After pressing @key{RET}, the cursor moves to the selected location in -the original buffer, and the headings hierarchy above it is made -visible. +you can use the following keys to find your destination: +@example +@key{TAB} @r{Cycle visibility.} +@key{down} / @key{up} @r{Next/previous visible headline.} +n / p @r{Next/previous visible headline.} +f / b @r{Next/previous headline same level.} +u @r{One level up.} +0-9 @r{Digit argument.} +@key{RET} @r{Select this location.} +@end example @end table @node Structure editing, Archiving, Motion, Document structure @@ -980,14 +1009,17 @@ bullet, lines must be indented or they will be seen as top-level headlines. Also, when you are hiding leading stars to get a clean outline view, plain list items starting with a star are visually indistinguishable from true headlines. In short: even though @samp{*} -is supported, it may be better not to use it for plain list items} as +is supported, it may be better not to use it for plain list items.} as bullets. Ordered list items start with @samp{1.} or @samp{1)}. Items belonging to the same list must have the same indentation on the first line. In particular, if an ordered list reaches number @samp{10.}, then the 2--digit numbers must be written left-aligned with the other numbers in the list. Indentation also determines the end of a list item. It ends before the next line that is indented like the bullet/number, or -less. For example: +less. Empty lines are part of the previous item, so you can have +several paragraphs in one item. If you would like an emtpy line to +terminate all currently open plain lists, configure the variable +@code{org-empty-line-terminates-plain-lists}. Here is an for example: @example @group @@ -1078,6 +1110,7 @@ Emacs @file{calc} package. @menu * Built-in table editor:: Simple tables * Narrow columns:: Stop wasting space in tables +* Column groups:: Grouping to trigger vertical lines * orgtbl-mode:: The table editor as minor mode * The spreadsheet:: The table editor has spreadsheet capabilities. @end menu @@ -1141,16 +1174,16 @@ table. But it's easier just to start typing, like @kindex C-c C-c @item C-c C-c Re-align the table without moving the cursor. - +@c @kindex @key{TAB} @item @key{TAB} Re-align the table, move to the next field. Creates a new row if necessary. - +@c @kindex S-@key{TAB} @item S-@key{TAB} Re-align, move to previous field. - +@c @kindex @key{RET} @item @key{RET} Re-align the table and move down to next row. Creates a new row if @@ -1163,34 +1196,34 @@ NEWLINE, so it can be used to split a table. @item M-@key{left} @itemx M-@key{right} Move the current column left/right. - +@c @kindex M-S-@key{left} @item M-S-@key{left} Kill the current column. - +@c @kindex M-S-@key{right} @item M-S-@key{right} Insert a new column to the left of the cursor position. - +@c @kindex M-@key{up} @kindex M-@key{down} @item M-@key{up} @itemx M-@key{down} Move the current row up/down. - +@c @kindex M-S-@key{up} @item M-S-@key{up} Kill the current row or horizontal line. - +@c @kindex M-S-@key{down} @item M-S-@key{down} Insert a new row above (with arg: below) the current row. - +@c @kindex C-c - @item C-c - Insert a horizontal line below current row. With prefix arg, the line is created above the current line. - +@c @kindex C-c ^ @item C-c ^ Sort the table lines in the region. The position of point indicates the @@ -1209,10 +1242,12 @@ argument, alphabetic sorting will be case-sensitive. Copy a rectangular region from a table to a special clipboard. Point and mark determine edge fields of the rectangle. The process ignores horizontal separator lines. +@c @kindex C-c C-x C-w @item C-c C-x C-w Copy a rectangular region from a table to a special clipboard, and blank all fields in the rectangle. So this is the ``cut'' operation. +@c @kindex C-c C-x C-y @item C-c C-x C-y Paste a rectangular region into a table. @@ -1220,6 +1255,7 @@ The upper right corner ends up in the current field. All involved fields will be overwritten. If the rectangle does not fit into the present table, the table is enlarged as needed. The process ignores horizontal separator lines. +@c @kindex C-c C-q @item C-c C-q Wrap several fields in a column like a paragraph. If there is an active @@ -1235,7 +1271,6 @@ above. @tsubheading{Calculations} @cindex formula, in tables @cindex calculations, in tables - @cindex region, active @cindex active region @cindex transient-mark-mode @@ -1244,7 +1279,7 @@ above. Sum the numbers in the current column, or in the rectangle defined by the active region. The result is shown in the echo area and can be inserted with @kbd{C-y}. - +@c @kindex S-@key{RET} @item S-@key{RET} When current field is empty, copy from first non-empty field above. @@ -1261,12 +1296,12 @@ Edit the current field in a separate window. This is useful for fields that are not fully visible (@pxref{Narrow columns}). When called with a @kbd{C-u} prefix, just make the full field visible, so that it can be edited in place. - +@c @kindex C-c @key{TAB} @item C-c @key{TAB} This is an alias for @kbd{C-u C-c `} to make the current field fully visible. - +@c @item M-x org-table-import Import a file as a table. The table should be TAB- or whitespace separated. Useful, for example, to import an Excel table or data from a @@ -1274,11 +1309,14 @@ database, because these programs generally can write TAB-separated text files. This command works by inserting the file into the buffer and then converting the region to a table. Any prefix argument is passed on to the converter, which uses it to determine the separator. - +@item C-c | +Tables can also be imported by pasting tabular text into the org-mode +buffer, selecting the pasted text with @kbd{C-x C-x} and then using the +@kbd{C-c |} command (see above under @i{Creation and conversion}. +@c @item M-x org-table-export Export the table as a TAB-separated file. Useful for data exchange with, for example, Excel or database programs. - @end table If you don't like the automatic table editor because it gets in your @@ -1292,7 +1330,7 @@ it off with @noindent Then the only table command that still works is @kbd{C-c C-c} to do a manual re-align. -@node Narrow columns, orgtbl-mode, Built-in table editor, Tables +@node Narrow columns, Column groups, Built-in table editor, Tables @section Narrow columns @cindex narrow columns in tables @@ -1320,7 +1358,7 @@ value. @noindent Fields that are wider become clipped and end in the string @samp{=>}. Note that the full text is still in the buffer, it is only invisible. -To see the full text, hold the mouse over the field - a tooltip window +To see the full text, hold the mouse over the field - a tool-tip window will show the full content. To edit such a field, use the command @kbd{C-c `} (that is @kbd{C-c} followed by the backquote). This will open a new window with the full field. Edit it and finish with @kbd{C-c @@ -1338,7 +1376,42 @@ on a per-file basis with: #+STARTUP: noalign @end example -@node orgtbl-mode, The spreadsheet, Narrow columns, Tables +@node Column groups, orgtbl-mode, Narrow columns, Tables +@section Column groups +@cindex grouping columns in tables + +When Org-mode exports tables, it does so by default without vertical +lines because that is visually more satisfying in general. Occasionally +however, vertical lines can be useful to structure a table into groups +of columns, much like horizontal lines can do for groups of rows. In +order to specify column groups, you can use a special row where the +first field contains only @samp{/}. The further fields can either +contain @samp{<} to indicate that this column should start a group, +@samp{>} to indicate the end of a column, or @samp{<>} to make a column +a group of its own. Boundaries between colum groups will upon export be +marked with vertical lines. Here is an example: + +@example +| | N | N^2 | N^3 | N^4 | sqrt(n) | sqrt[4](N) | +|---+----+-----+-----+-----+---------+------------| +| / | <> | < | | > | < | > | +| # | 1 | 1 | 1 | 1 | 1 | 1 | +| # | 2 | 4 | 8 | 16 | 1.4142 | 1.1892 | +| # | 3 | 9 | 27 | 81 | 1.7321 | 1.3161 | +|---+----+-----+-----+-----+---------+------------| +#+TBLFM: $3=$2^2::$4=$2^3::$5=$2^4::$6=sqrt($2)::$7=sqrt(sqrt(($2)) +@end example + +It is also sufficient to just insert the colum group starters after +every vertical line you'd like to have: + +@example +| N | N^2 | N^3 | N^4 | sqrt(n) | sqrt[4](N) | +|----+-----+-----+-----+---------+------------| +| / | < | | | < | | +@end example + +@node orgtbl-mode, The spreadsheet, Column groups, Tables @section The Orgtbl minor mode @cindex orgtbl-mode @cindex minor mode for tables @@ -1356,7 +1429,7 @@ example in mail mode, use Furthermore, with some special setup, it is possible to maintain tables in arbitrary syntax with Orgtbl-mode. For example, it is possible to construct LaTeX tables with the underlying ease and power of -Orgtbl-mode, including spreadsheet capabulities. For details, see +Orgtbl-mode, including spreadsheet capabilities. For details, see @ref{Tables in arbitrary syntax}. @node The spreadsheet, , orgtbl-mode, Tables @@ -1367,7 +1440,12 @@ Orgtbl-mode, including spreadsheet capabulities. For details, see The table editor makes use of the Emacs @file{calc} package to implement spreadsheet-like capabilities. It can also evaluate Emacs Lisp forms to -derive fields from other fields. +derive fields from other fields. While fully featured, Org-mode's +implementation is not identical to other spreadsheets. For example, +Org-mode knows the concept of a @emph{column formula} that will be +applied to all non-header fields in a column without having to copy the +formula to each relevant field. + @menu * References:: How to refer to another field or range * Formula syntax for Calc:: Using Calc to compute stuff @@ -1387,17 +1465,26 @@ To compute fields in the table from other fields, formulas must reference other fields or ranges. In Org-mode, fields can be referenced by name, by absolute coordinates, and by relative coordinates. To find out what the coordinates of a field are, press @kbd{C-c ?} in that -field. +field, or press @kbd{C-c @}} to toggle the display of a grid. @subsubheading Field references @cindex field references @cindex references, to fields -Formulas can reference the value of another field with the operator +Formulas can reference the value of another field in two ways. Like in +any other spreadsheet, you may reference fields with a letter/number +combination like @code{B3}, meaning the 2nd field in the 3rd row. +@c Such references are always fixed to that field, they don't change +@c when you copy and paste a formula to a different field. So +@c Org-mode's @code{B3} behaves like @code{$B$3} in other spreadsheets. + +@noindent +Org-mode also uses another, more general operator that looks like this: @example @@row$column @end example +@noindent Column references can be absolute like @samp{1}, @samp{2},...@samp{N}, or relative to the current column like @samp{+1} or @samp{-2}. @@ -1417,18 +1504,20 @@ directly at the hline is used. either the column or the row part of the reference, the current row/column is implied. -Org-mode's references with @emph{positive} numbers correspond to fixed -references in other spreadsheet programs. For example, @code{@@3$28} -corresponds to @code{$AB$3}. Org-mode's references with @emph{negative} -numbers behave similar to non-fixed references in other spreadsheet -programs, because when the same formula is used in several fields, -different fields are referenced each time. +Org-mode's references with @emph{unsigned} numbers are fixed references +in the sense that if you use the same reference in the formula for two +different fields, the same field will be referenced each time. +Org-mode's references with @emph{signed} numbers are floating +references because the same reference operator can reference different +fields depending on the field being calculated by the formula. Here are a few examples: @example @@2$3 @r{2nd row, 3rd column} +C2 @r{same as previous} $5 @r{column 5 in the current row} +E& @r{same as previous} @@2 @r{current column, row 2} @@-1$-3 @r{the field one row up, three columns to the left} @@-I$2 @r{field just under hline above current row, column 2} @@ -1449,6 +1538,7 @@ format at least for the first field (i.e the reference must start with $1..$3 @r{First three fields in the current row.} $P..$Q @r{Range, using column names (see under Advanced)} @@2$1..@@4$3 @r{6 fields between these two fields.} +A2..C4 @r{Same as above.} @@-1$-2..@@-1 @r{3 numbers from the column to the left, 2 up to current row} @end example @@ -1466,12 +1556,18 @@ see the @samp{E} mode switch below). If there are no non-empty fields, @samp{$name} is interpreted as the name of a column, parameter or constant. Constants are defined globally through the variable -@code{org-table-formula-constants}. If you have the -@file{constants.el} package, it will also be used to resolve -constants, including natural constants like @samp{$h} for Planck's -constant, and units like @samp{$km} for kilometers. Column names and -parameters can be specified in special table lines. These are -described below, see @ref{Advanced features}. +@code{org-table-formula-constants}. If you have the @file{constants.el} +package, it will also be used to resolve constants, including natural +constants like @samp{$h} for Planck's constant, and units like +@samp{$km} for kilometers@footnote{@file{Constant.el} can supply the +values of constants in two different unit systems, @code{SI} and +@code{cgs}. Which one is used depends on the value of the variable +@code{constants-unit-system}. You can use the @code{#+STARTUP} options +@code{constSI} and @code{constcgs} to set this value for the current +buffer.}. Column names and parameters can be specified in special table +lines. These are described below, see @ref{Advanced features}. All +names must start with a letter, and further consist of letters and +numbers. @node Formula syntax for Calc, Formula syntax for Lisp, References, The spreadsheet @subsection Formula syntax for Calc @@ -1485,6 +1581,7 @@ non-standard convention that @samp{/} has lower precedence than evaluation by @code{calc-eval} (@pxref{Calling Calc from Your Programs,calc-eval,Calling calc from Your Lisp Programs,calc,GNU Emacs Calc Manual}), +@c FIXME: The link to the calc manual in HTML does not work. variable substitution takes place according to the rules described above. @cindex vectors, in table calculations The range vectors can be directly fed into the calc vector functions @@ -1518,7 +1615,7 @@ reformat the final result. A few examples: $1+$2 @r{Sum of first and second field} $1+$2;%.2f @r{Same, format result to two decimals} exp($2)+exp($1) @r{Math functions can be used} -$;%.1f @r{Reformat current cell to 1 decimal} +$0;%.1f @r{Reformat current cell to 1 decimal} ($3-32)*5/9 @r{Degrees F -> C conversion} $c/$1/$cm @r{Hz -> cm conversion, using @file{constants.el}} tan($1);Dp3s1 @r{Compute in degrees, precision 3, display SCI 1} @@ -1528,21 +1625,28 @@ vmean($2..$7);EN @r{Same, but treat empty fields as 0} taylor($3,x=7,2) @r{taylor series of $3, at x=7, second degree} @end example +Calc also contains a complete set of logical operations. For example + +@example +if($1<20,teen,string("")) @r{``teen'' if age $1 less than 20, else empty} +@end example + @node Formula syntax for Lisp, Field formulas, Formula syntax for Calc, The spreadsheet @subsection Emacs Lisp forms as formulas @cindex Lisp forms, as table formulas It is also possible to write a formula in Emacs Lisp; this can be useful -for string manipulation and control structures. If a formula starts -with a single quote followed by an opening parenthesis, then it is -evaluated as a lisp form. The evaluation should return either a string -or a number. Just as with @file{calc} formulas, you can specify modes -and a printf format after a semicolon. A reference will be replaced -with a string (in double quotes) containing the field. If you provide -the @samp{N} mode switch, all referenced elements will be numbers. -Ranges are inserted as space-separated fields, so you can embed them in -list or vector syntax. A few examples, note how the @samp{N} mode is -used when we do computations in lisp. +for string manipulation and control structures, if the Calc's +functionality is not enough. If a formula starts with a single quote +followed by an opening parenthesis, then it is evaluated as a lisp form. +The evaluation should return either a string or a number. Just as with +@file{calc} formulas, you can specify modes and a printf format after a +semicolon. A reference will be replaced with a string (in double +quotes) containing the field. If you provide the @samp{N} mode switch, +all referenced elements will be numbers. Ranges are inserted as +space-separated fields, so you can embed them in list or vector syntax. +A few examples, note how the @samp{N} mode is used when we do +computations in lisp. @example @r{Swap the first two characters of the content of column 1} @@ -1567,12 +1671,11 @@ evaluated, and the current field replaced with the result. Formulas are stored in a special line starting with @samp{#+TBLFM:} directly below the table. If you typed the equation in the 4th field of the 3rd data line in the table, the formula will look like -@samp{@@3$2=$1+$2}. When inserting/deleting/swapping column and rows +@samp{@@3$4=$1+$2}. When inserting/deleting/swapping column and rows with the appropriate commands, @i{absolute references} (but not relative -ones) in stored formulas are modified in order to -still reference the same field. Of cause this is not true if you edit -the table structure with normal editing commands - then you must go and -fix equations yourself. +ones) in stored formulas are modified in order to still reference the +same field. Of cause this is not true if you edit the table structure +with normal editing commands - then you must fix the equations yourself. Instead of typing an equation into the field, you may also use the following command @@ -1593,7 +1696,9 @@ it to the current field and stores it. Often in a table, the same formula should be used for all fields in a particular column. Instead of having to copy the formula to all fields in that column, org-mode allows to assign a single formula to an entire -column. +column. If the table contains horizontal separator hlines, everything +before the first such line is considered part of the table @emph{header} +and will not be modified by column formulas. To assign a formula to a column, type it directly into any field in the column, preceded by an equal sign, like @samp{=$1+$2}. When you press @@ -1626,7 +1731,11 @@ will apply it to that many consecutive fields in the current column. You can edit individual formulas in the minibuffer or directly in the field. Org-mode can also prepare a special buffer with all active -formulas of a table. +formulas of a table. When offering a formula for editing, Org-mode +converts references to the standard format (like @code{B3} or @code{D&}) +if possible. If you prefer to only work with the internal format (like +@code{@@3$2} or @code{$4}), configure the variable +@code{org-table-use-standard-references}. @table @kbd @kindex C-c = @@ -1645,21 +1754,36 @@ minibuffer is that you can use the command @kbd{C-c ?}. @item C-c ? While editing a formula in a table field, highlight the field(s) referenced by the reference at the cursor position in the formula. +@kindex C-c @} +@item C-c @} +Toggle the display of row and column numbers for a table, using +overlays. These are updated each time the table is aligned, you can +force it with @kbd{C-c C-c}. +@kindex C-c @{ +@item C-c @{ +Toggle the formula debugger on and off. See below. @kindex C-c ' @item C-c ' Edit all formulas for the current table in a special buffer, where the -formulas will be displayed one per line. +formulas will be displayed one per line. If the current field has an +active formula, the cursor in the formula editor will mark it. While inside the special buffer, Org-mode will automatically highlight any field or range reference at the cursor position. You may edit, remove and add formulas, and use the following commands: @table @kbd @kindex C-c C-c +@kindex C-x C-s @item C-c C-c -Exit the buffer and store the modified formulas. With @kbd{C-u} prefix, -also apply the new formulas to the entire table. +@itemx C-x C-s +Exit the formula editor and store the modified formulas. With @kbd{C-u} +prefix, also apply the new formulas to the entire table. @kindex C-c C-q @item C-c C-q -Exit the buffer without installing changes. +Exit the formula editor without installing changes. +@kindex C-c C-r +@item C-c C-r +Toggle all references in the formula editor between standard (like +@code{B3}) and internal (like @code{@@3$2}). @kindex @key{TAB} @item @key{TAB} Pretty-print or indent lisp formula at point. When in a line containing @@ -1671,23 +1795,25 @@ formula, @key{TAB} re-indents just like in Emacs-lisp-mode. Complete Lisp symbols, just like in Emacs-lisp-mode. @kindex S-@key{up} @kindex S-@key{down} -@item S-@key{up}/@key{down} -Move the reference line in the Org-mode buffer up and down. This is -important for highlighting the references of column formulas for -different rows. +@kindex S-@key{left} +@kindex S-@key{right} +@item S-@key{up}/@key{down}/@key{left}/@key{right} +Shift the reference at point. For example, if the reference is +@code{B3} and you press @kbd{S-@key{right}}, it will become @code{C3}. +This also works for relative references, and for hline references. +@kindex M-S-@key{up} +@kindex M-S-@key{down} +@item M-S-@key{up}/@key{down} +Move the test line for column formulas in the Org-mode buffer up and +down. @kindex M-@key{up} @kindex M-@key{down} @item M-@key{up}/@key{down} Scroll the window displaying the table. -@end table @kindex C-c @} @item C-c @} -Toggle the display of row and column numbers for a table, using -overlays. These are uptated each time the table is aligned, you can -force it with @kbd{C-c C-c}. -@kindex C-c @{ -@item C-c @{ -Toggle the formula debugger on and off. See below. +Turn the coordinate grid in the table on and off. +@end table @end table Making a table field blank does not remove the formula associated with @@ -1708,8 +1834,8 @@ When the evaluation of a formula leads to an error, the field content becomes the string @samp{#ERROR}. If you would like see what is going on during variable substitution and calculation in order to find a bug, turn on formula debugging in the @code{Tbl} menu and repeat the -calculation, for example by pressing @kbd{C-c = @key{RET}} in a field. -Detailed information will be displayed. +calculation, for example by pressing @kbd{C-u C-u C-c = @key{RET}} in a +field. Detailed information will be displayed. @node Updating the table, Advanced features, Editing and debugging formulas, The spreadsheet @subsection Updating the Table @@ -1728,14 +1854,14 @@ following commands: @item C-c * Recalculate the current row by first applying the stored column formulas from left to right, and all field formulas in the current row. - +@c @kindex C-u C-c * @item C-u C-c * @kindex C-u C-c C-c @itemx C-u C-c C-c Recompute the entire table, line by line. Any lines before the first hline are left alone, assuming that these are part of the table header. - +@c @kindex C-u C-u C-c * @item C-u C-u C-c * Iterate the table by recomputing it until no further changes occur. @@ -1743,7 +1869,6 @@ This may be necessary if some computed fields use the value of other fields that are computed @i{later} in the calculation sequence. @end table - @node Advanced features, , Updating the table, The spreadsheet @subsection Advanced features @@ -2058,7 +2183,7 @@ automatically created link is not working correctly or accurately enough, you can write custom functions to select the search string and to do the search for particular file types - see @ref{Custom searches}. The key binding @kbd{C-c l} is only a suggestion - see @ref{Installation}. - +@c @kindex C-c C-l @cindex link completion @cindex completion, of links @@ -2068,24 +2193,26 @@ Insert a link. This prompts for a link to be inserted into the buffer. You can just type a link, using text for an internal link, or one of the link type prefixes mentioned in the examples above. All links stored during the current session are part of the history for this prompt, so -you can access them with @key{up} and @key{down}, or with -completion@footnote{After insertion of a stored link, the link will be -removed from the list of stored links. To keep it in the list later +you can access them with @key{up} and @key{down}. Completion, on the +other hand, will help you to insert valid link prefixes like +@samp{http:} or @samp{ftp:}, including the prefixes defined through link +abbreviations (@pxref{Link abbreviations}). The link will be inserted +into the buffer@footnote{After insertion of a stored link, the link will +be removed from the list of stored links. To keep it in the list later use, use a triple @kbd{C-u} prefix to @kbd{C-c C-l}, or configure the -option @code{org-keep-stored-link-after-insertion}.}. The link will be -inserted into the buffer, along with a descriptive text. If some text -was selected when this command is called, the selected text becomes the -default description.@* Note that you don't have to use this command to -insert a link. Links in Org-mode are plain text, and you can type or -paste them straight into the buffer. By using this command, the links -are automatically enclosed in double brackets, and you will be asked for -the optional descriptive text. - +option @code{org-keep-stored-link-after-insertion}.}, along with a +descriptive text. If some text was selected when this command is +called, the selected text becomes the default description.@* Note that +you don't have to use this command to insert a link. Links in Org-mode +are plain text, and you can type or paste them straight into the buffer. +By using this command, the links are automatically enclosed in double +brackets, and you will be asked for the optional descriptive text. +@c @c If the link is a @samp{file:} link and @c the linked file is located in the same directory as the current file or @c a subdirectory of it, the path of the file will be inserted relative to @c the current directory. - +@c @kindex C-u C-c C-l @cindex file name completion @cindex completion, of file names @@ -2098,11 +2225,11 @@ directory or in a subdirectory of it, or if the path is written relative to the current directory using @samp{../}. Otherwise an absolute path is used, if possible with @samp{~/} for your home directory. You can force an absolute path with two @kbd{C-u} prefixes. - -@item C-c C-l @r{with cursor on existing link} +@c +@item C-c C-l @r{(with cursor on existing link)} When the cursor is on an existing link, @kbd{C-c C-l} allows you to edit the link and description parts of the link. - +@c @cindex following links @kindex C-c C-o @item C-c C-o @@ -2118,26 +2245,26 @@ suitable application for local non-text files. Classification of files is based on file extension only. See option @code{org-file-apps}. If you want to override the default application and visit the file with Emacs, use a @kbd{C-u} prefix. - +@c @kindex mouse-2 @kindex mouse-1 @item mouse-2 @itemx mouse-1 On links, @kbd{mouse-2} will open the link just as @kbd{C-c C-o} would. Under Emacs 22, also @kbd{mouse-1} will follow a link. - +@c @kindex mouse-3 @item mouse-3 Like @kbd{mouse-2}, but force file links to be opened with Emacs, and internal links to be displayed in another window@footnote{See the variable @code{org-display-internal-link-with-indirect-buffer}}. - +@c @cindex mark ring @kindex C-c % @item C-c % Push the current position onto the mark ring, to be able to return easily. Commands following an internal link do this automatically. - +@c @cindex links, returning to @kindex C-c & @item C-c & @@ -2145,7 +2272,7 @@ Jump back to a recorded position. A position is recorded by the commands following internal links, and by @kbd{C-c %}. Using this command several times in direct succession moves through a ring of previously recorded positions. - +@c @kindex C-c C-x C-n @kindex C-c C-x C-p @cindex links, finding next/previous @@ -2341,8 +2468,8 @@ use: @noindent In these entries, the character specifies how to select the template. The first string specifies the template. Two more (optional) strings give the file in which, and the headline under which the new -note should be stored. The file defaults to -@code{org-default-notes-file}, the heading to +note should be stored. The file defaults (if not present or @code{nil}) +to @code{org-default-notes-file}, the heading to @code{org-remember-default-headline}. Both defaults help to get to the storing location quickly, but you can change the location interactively while storing the note. @@ -2398,8 +2525,7 @@ calendar | %:date" @end example @noindent -If you would like to have the cursor in a specific position after the -template has been expanded: +To place the cursor after template expansion use: @example %? @r{After completing the template, position cursor here.} @@ -2408,7 +2534,7 @@ template has been expanded: @noindent If you change you mind about which template to use, call @code{org-remember} in the remember buffer. You may then select a new -template that will be filled with the previoous context information. +template that will be filled with the previous context information. @node Storing notes, , Remember templates, Remember @subsection Storing notes @@ -2419,20 +2545,27 @@ target file - if you press @key{RET}, the value specified for the template is used. Then the command offers the headings tree of the selected file, with the cursor position at the default headline (if you had specified one in the template). You can either immediately press -@key{RET} to get the note placed there. Or you can use vertical cursor -motion (@key{up} and @key{down}) and visibility cycling (@key{TAB}) to -find a better place. Pressing @key{RET} or @key{left} or @key{right} +@key{RET} to get the note placed there. Or you can use the following +keys to find a better location: +@example +@key{TAB} @r{Cycle visibility.} +@key{down} / @key{up} @r{Next/previous visible headline.} +n / p @r{Next/previous visible headline.} +f / b @r{Next/previous headline same level.} +u @r{One level up.} +@c 0-9 @r{Digit argument.} +@end example +@noindent +Pressing @key{RET} or @key{left} or @key{right} then leads to the following result. -@multitable @columnfractions 0.2 0.1 0.7 +@multitable @columnfractions 0.2 0.15 0.65 @item @b{Cursor position} @tab @b{Key} @tab @b{Note gets inserted} @item buffer-start @tab @key{RET} @tab as level 2 heading at end of file @item on headline @tab @key{RET} @tab as sublevel of the heading at cursor -@item @tab @key{left} @tab as same level, before current heading -@item @tab @key{right} @tab as same level, after current heading +@item @tab @key{left}/@key{right} @tab as same level, before/after current heading @item not on headline @tab @key{RET} @tab at cursor position, level taken from context. - Or use prefix arg to specify level manually. @end multitable So a fast way to store the note to its default location is to press @@ -2467,7 +2600,7 @@ things you have to do. * TODO basics:: Marking and displaying TODO entries * TODO extensions:: Workflow and assignments * Priorities:: Some things are more important than others -* Breaking down tasks:: Splitting a task into managable pieces +* Breaking down tasks:: Splitting a task into manageable pieces * Checkboxes:: Tick-off lists @end menu @@ -2488,7 +2621,7 @@ The most important commands to work with TODO entries are: @kindex C-c C-t @cindex cycling, of TODO states @item C-c C-t -Rotate the TODO state of the current item between +Rotate the TODO state of the current item among @example ,-> (unmarked) -> TODO -> DONE --. @@ -2508,9 +2641,11 @@ useful if more than two TODO states are possible (@pxref{TODO extensions}). @item C-c C-v View TODO items in a @emph{sparse tree} (@pxref{Sparse trees}). Folds the entire buffer, but shows all TODO items and the headings hierarchy -above them. With prefix arg, show also the DONE entries. With -numerical prefix N, show the tree for the Nth keyword in the variable -@code{org-todo-keywords}. +above them. With prefix arg, search for a specific TODO. You will be +prompted for the keyword, and you can also give a list of keywords like +@code{kwd1|kwd2|...}. With numerical prefix N, show the tree for the +Nth keyword in the variable @code{org-todo-keywords}. With two prefix +args, find all TODO and DONE entries. @kindex C-c a t @item C-c a t Show the global TODO list. This collects the TODO items from all @@ -2523,16 +2658,14 @@ the TODO entries directly from that buffer (@pxref{Agenda commands}). @c agenda, customize the variable @code{org-agenda-include-all-todo}. @end table - @node TODO extensions, Priorities, TODO basics, TODO items @section Extended use of TODO keywords @cindex extended TODO keywords The default implementation of TODO entries is just two states: TODO and -DONE. You can, however, use the TODO feature for more complicated -things by configuring the variables @code{org-todo-keywords} and -@code{org-todo-interpretation}. Using special setup, you can even use -TODO keywords in different ways in different org files. +DONE. You can use the TODO feature for more complicated things by +configuring the variable @code{org-todo-keywords}. With special setup, +the TODO keyword system can work differently in different files. Note that @i{tags} are another way to classify headlines in general and TODO items in particular (@pxref{Tags}). @@ -2540,6 +2673,7 @@ TODO items in particular (@pxref{Tags}). @menu * Workflow states:: From TODO to DONE in steps * TODO types:: I do this, Fred the rest +* Multiple sets in one file:: Mixing it all, and still finding your way * Per file keywords:: Different files, different requirements @end menu @@ -2548,78 +2682,134 @@ TODO items in particular (@pxref{Tags}). @cindex TODO workflow @cindex workflow states as TODO keywords -You can use TODO keywords to indicate different states in the process -of working on an item, for example: +You can use TODO keywords to indicate different @emph{sequential} states +in the process of working on an item, for example@footnote{Changing +this variable only becomes effective after restarting Org-mode in a +buffer.}: @lisp -(setq org-todo-keywords '("TODO" "FEEDBACK" "VERIFY" "DONE") - org-todo-interpretation 'sequence) +(setq org-todo-keywords + '((sequence "TODO" "FEEDBACK" "VERIFY" "|" "DONE" "DELEGATED"))) @end lisp +The vertical bar separates the TODO keywords (states that @emph{need +action}) from the DONE states (which need @emph{no further action}. If +you don't provide the separator bar, the last state is used as the DONE +state. @cindex completion, of TODO keywords -Changing these variables only becomes effective in a new Emacs session. -With this setup, the command @kbd{C-c C-t} will cycle an entry from -TODO to FEEDBACK, then to VERIFY, and finally to DONE. You may also -use a prefix argument to quickly select a specific state. For example -@kbd{C-3 C-c C-t} will change the state immediately to VERIFY. +With this setup, the command @kbd{C-c C-t} will cycle an entry from TODO +to FEEDBACK, then to VERIFY, and finally to DONE and DELEGATED. You may +also use a prefix argument to quickly select a specific state. For +example @kbd{C-3 C-c C-t} will change the state immediately to VERIFY. If you define many keywords, you can use in-buffer completion (see -@ref{Completion}) to insert these words into the buffer. Changing a todo -state can be logged with a timestamp, see @ref{Tracking TODO state +@ref{Completion}) to insert these words into the buffer. Changing a +todo state can be logged with a timestamp, see @ref{Tracking TODO state changes} for more information. -@node TODO types, Per file keywords, Workflow states, TODO extensions +@node TODO types, Multiple sets in one file, Workflow states, TODO extensions @subsection TODO keywords as types @cindex TODO types @cindex names as TODO keywords @cindex types as TODO keywords The second possibility is to use TODO keywords to indicate different -types of action items. For example, you might want to indicate that -items are for ``work'' or ``home''. If you are into David Allen's -@emph{Getting Things DONE}, you might want to use todo types -@samp{NEXTACTION}, @samp{WAITING}, @samp{MAYBE}. Or, when you work -with several people on a single project, you might want to assign -action items directly to persons, by using their names as TODO -keywords. This would be set up like this: +@emph{types} of action items. For example, you might want to indicate +that items are for ``work'' or ``home''. Or, when you work with several +people on a single project, you might want to assign action items +directly to persons, by using their names as TODO keywords. This would +be set up like this: @lisp -(setq org-todo-keywords '("Fred" "Sara" "Lucy" "Mike" "DONE") - org-todo-interpretation 'type) +(setq org-todo-keywords '((type "Fred" "Sara" "Lucy" "|" "DONE"))) @end lisp -In this case, different keywords do not indicate a sequence, but -rather different types. So it is normally not useful to change from -one type to another. Therefore, in this case the behavior of the -command @kbd{C-c C-t} is changed slightly@footnote{This is also true -for the @kbd{t} command in the timeline and agenda buffers.}. When -used several times in succession, it will still cycle through all -names. But when you return to the item after some time and execute -@kbd{C-c C-t} again, it will switch from each name directly to DONE. -Use prefix arguments or completion to quickly select a specific name. -You can also review the items of a specific TODO type in a sparse tree -by using a numeric prefix to @kbd{C-c C-v}. For example, to see all -things Lucy has to do, you would use @kbd{C-3 C-c C-v}. To collect -Lucy's items from all agenda files into a single buffer, you -would use the prefix arg as well when creating the global todo list: -@kbd{C-3 C-c t}. +In this case, different keywords do not indicate a sequence, but rather +different types. So the normal work flow would be to assign a task to a +person, and later to mark it DONE. Org-mode supports this style by +adapting the workings of the command @kbd{C-c C-t}@footnote{This is also +true for the @kbd{t} command in the timeline and agenda buffers.}. When +used several times in succession, it will still cycle through all names, +in order to first select the right type for a task. But when you return +to the item after some time and execute @kbd{C-c C-t} again, it will +switch from any name directly to DONE. Use prefix arguments or +completion to quickly select a specific name. You can also review the +items of a specific TODO type in a sparse tree by using a numeric prefix +to @kbd{C-c C-v}. For example, to see all things Lucy has to do, you +would use @kbd{C-3 C-c C-v}. To collect Lucy's items from all agenda +files into a single buffer, you would use the prefix arg as well when +creating the global todo list: @kbd{C-3 C-c t}. -@node Per file keywords, , TODO types, TODO extensions -@subsection Setting up TODO keywords for individual files +@node Multiple sets in one file, Per file keywords, TODO types, TODO extensions +@subsection Multiple keyword sets in one file +@cindex todo keyword sets + +Sometimes you may want to use different sets of TODO keywords in +parallel. For example, you may want to have the basic +@code{TODO}/@code{DONE}, but also a workflow for bug fixing, and a +separate state indicating that an item has been canceled (so it is not +DONE, but also does not require action). Your setup would then look +like this: + +@lisp +(setq org-todo-keywords + '((sequence "TODO" "|" "DONE") + (sequence "REPORT" "BUG" "KNOWNCAUSE" "|" "FIXED") + (sequence "|" "CANCELED"))) +@end lisp + +The keywords should all be different, this helps Org-mode to keep track +of which subsequence should be used for a given entry. In this setup, +@kbd{C-c C-t} only operates within a subsequence, so it switches from +@code{DONE} to (nothing) to @code{TODO}, and from @code{FIXED} to +(nothing) to @code{REPORT}. Therefore you need a mechanism to initially +select the correct sequence. Besides the obvious ways like typing a +keyword or using completion, you may also apply the following commands: + +@table @kbd +@kindex C-S-@key{right} +@kindex C-S-@key{left} +@item C-S-@key{right} +@itemx C-S-@key{left} +These keys jump from one TODO subset to the next. In the above example, +@kbd{C-S-@key{right}} would jump from @code{TODO} or @code{DONE} to +@code{REPORT}, and any of the words in the second row to @code{CANCELED}. +@kindex S-@key{right} +@kindex S-@key{left} +@item S-@key{right} +@itemx S-@key{left} +@kbd{S-@key{}} and @kbd{S-@key{}} and walk through +@emph{all} keywords from all sets, so for example @kbd{S-@key{}} +would switch from @code{DONE} to @code{REPORT} in the example above. +@end table + +@node Per file keywords, , Multiple sets in one file, TODO extensions +@subsection Setting up keywords for individual files @cindex keyword options @cindex per file keywords -It can be very useful to use different aspects of the TODO mechanism -in different files, which is not possible with the global settings -described above. For file-local settings, you need to add special -lines to the file which set the keywords and interpretation for that -file only. For example, to set one of the two examples discussed -above, you need one of the following lines, starting in column zero -anywhere in the file: +It can be very useful to use different aspects of the TODO mechanism in +different files. For file-local settings, you need to add special lines +to the file which set the keywords and interpretation for that file +only. For example, to set one of the two examples discussed above, you +need one of the following lines, starting in column zero anywhere in the +file: @example -#+SEQ_TODO: TODO FEEDBACK VERIFY DONE -#+TYP_TODO: Fred Sara Lucy Mike DONE +#+SEQ_TODO: TODO FEEDBACK VERIFY | DONE CANCELED @end example +or +@example +#+TYP_TODO: Fred Sara Lucy Mike | DONE +@end example + +A setup for using several sets in parallel would be: + +@example +#+SEQ_TODO: "TODO" "|" "DONE" +#+SEQ_TODO: "REPORT" "BUG" "KNOWNCAUSE" "|" "FIXED" +#+SEQ_TODO: "|" "CANCELED" +@end example + @cindex completion, of option keywords @kindex M-@key{TAB} @@ -2627,24 +2817,14 @@ anywhere in the file: @samp{#+} into the buffer and then use @kbd{M-@key{TAB}} completion. @cindex DONE, final TODO keyword -Remember that the last keyword must always mean that the item is DONE -(although you may use a different word). Also note that in each file, -only one of the two aspects of TODO keywords can be used. After -changing one of these lines, use @kbd{C-c C-c} with the cursor still -in the line to make the changes known to Org-mode@footnote{Org-mode -parses these lines only when Org-mode is activated after visiting a -file. @kbd{C-c C-c} with the cursor in a line starting with @samp{#+} -is simply restarting Org-mode for the current buffer.}. - -If you want to use very many keywords, for example when working with a -large group of people, you may split the names over several lines: - -@example -#+TYP_TODO: Fred Sara Lucy Mike -#+TYP_TODO: Luis George Jules Jessica -#+TYP_TODO: Kim Arnold Peter -#+TYP_TODO: DONE -@end example +Remember that the keywords after the vertical bar (or the last keyword +if no bar is there) must always mean that the item is DONE (although you +may use a different word). After changing one of these lines, use +@kbd{C-c C-c} with the cursor still in the line to make the changes +known to Org-mode@footnote{Org-mode parses these lines only when +Org-mode is activated after visiting a file. @kbd{C-c C-c} with the +cursor in a line starting with @samp{#+} is simply restarting Org-mode +for the current buffer.}. @node Priorities, Breaking down tasks, TODO extensions, TODO items @section Priorities @@ -2673,7 +2853,7 @@ priority character @samp{A}, @samp{B} or @samp{C}. When you press @key{SPC} instead, the priority cookie is removed from the headline. The priorities can also be changed ``remotely'' from the timeline and agenda buffer with the @kbd{,} command (@pxref{Agenda commands}). - +@c @kindex S-@key{up} @kindex S-@key{down} @item S-@key{up} @@ -2683,11 +2863,22 @@ are also used to modify time stamps (@pxref{Creating timestamps}). Furthermore, these keys are also used by CUA-mode (@pxref{Conflicts}). @end table +You can change the range of allowed priorities by setting the variables +@code{org-highest-priority}, @code{org-lowest-priority}, and +@code{org-default-priority}. For an individual buffer, you may set +these values (highest, lowest, default) like this (please make sure that +the highest priority is earlier in the alphabet than the lowest +priority): + +@example +#+PRIORITIES: A C B +@end example + @node Breaking down tasks, Checkboxes, Priorities, TODO items @section Breaking tasks down into subtasks @cindex tasks, breaking down -It is often advisable to break down large tasks into smaller, managable +It is often advisable to break down large tasks into smaller, manageable subtasks. You can do this by creating an outline tree below a TODO item, with detailed subtasks on the tree@footnote{To keep subtasks out of the global TODO list, see the @@ -2780,8 +2971,7 @@ planning. @menu * Time stamps:: Assigning a time to a tree entry * Creating timestamps:: Commands which insert timestamps -* Custom time format:: If you cannot work with the ISO format -* Repeating items:: Deadlines that come back again and again +* Deadlines and scheduling:: Planning your work * Progress logging:: Documenting when what work was done. @end menu @@ -2799,7 +2989,7 @@ special format, either @samp{<2003-09-16 Tue>} or @samp{<2003-09-16 Tue 09:39>}@footnote{This is the standard ISO date/time format. If you cannot get used to these, see @ref{Custom time format}}. A time stamp can appear anywhere in the headline or body of an org-tree entry. Its -presence allows entries to be shown on specific dates in the agenda +presence causes entries to be shown on specific dates in the agenda (@pxref{Weekly/Daily agenda}). We distinguish: @table @var @@ -2815,6 +3005,39 @@ associated with a plain time stamp will be shown exactly on that date. * Meet Peter at the movies <2006-11-01 Wed 19:15> @end example +@item Time stamp with repeater interval +@cindex timestamp, with repeater interval +A time stamp may contain a @emph{repeater interval}, indicating that it +applies not only on the given date, but again and again after a certain +interval of N days (d), weeks (w), months(m), or years(y). The +following will show up in the agenda every Wednesday: + +@example +* Pick up Sam at school <2007-05-16 Wed 12:30 +1w> +@end example + +@item Diary-style sexp entries +For more complex date specifications, Org-mode supports using the +special sexp diary entries implemented in the Emacs calendar/diary +package. For example + +@example +* The nerd meeting on every 2nd Thursday of the month + <%%(diary-float t 4 2)> +@end example + +@item Time/Date range +@cindex timerange +@cindex date range +Two time stamps connected by @samp{--} denote a range. The headline +will be shown on the first and last day of the range, and on any dates +that are displayed and fall in the range. Here is an example: + +@example +** Meeting in Amsterdam + <2004-08-23 Mon>--<2004-08-26 Thu> +@end example + @item Inactive time stamp @cindex timestamp, inactive @cindex inactive timestamp @@ -2826,65 +3049,9 @@ angular ones. These time stamps are inactive in the sense that they do * Gillian comes late for the fifth time [2006-11-01 Wed] @end example -@item Time stamp range -@cindex timerange -Two time stamps connected by @samp{--} denote a time range. The -headline will be shown on the first and last day of the range, and on -any dates that are displayed and fall in the range. Here is an -example: - -@example -** Meeting in Amsterdam - <2004-08-23 Mon>--<2004-08-26 Thu> -@end example - -@item Time stamp with SCHEDULED keyword -@cindex SCHEDULED keyword -If a time stamp is preceded by the word @samp{SCHEDULED:}, it means you -are planning to start working on that task on the given date. So this is -not about recording an event, but about planning your work. The -headline will be listed under the given date@footnote{It will still be -listed on that date after it has been marked DONE. If you don't like -this, set the variable @code{org-agenda-skip-scheduled-if-done}.}. In -addition, a reminder that the scheduled date has passed will be present -in the compilation for @emph{today}, until the entry is marked DONE. -I.e., the task will automatically be forwarded until completed. - -@example -*** TODO Call Trillian for a date on New Years Eve. - SCHEDULED: <2004-12-25 Sat> -@end example - -@item Time stamp with DEADLINE keyword -@cindex DEADLINE keyword -If a time stamp is preceded by the word @samp{DEADLINE:}, the task -(most likely a TODO item) is supposed to be finished on that date, and -it will be listed then. In addition, the compilation for @emph{today} -will carry a warning about the approaching or missed deadline, -starting @code{org-deadline-warning-days} before the due date, and -continuing until the entry is marked DONE. An example: - -@example -*** TODO write article about the Earth for the Guide - The editor in charge is [[bbdb:Ford Prefect]] - DEADLINE: <2004-02-29 Sun> -@end example -@item Time stamp with CLOSED keyword -@cindex CLOSED keyword -When @code{org-log-done} is non-nil, Org-mode will automatically insert -a special time stamp each time a TODO entry is marked done -(@pxref{Progress logging}). This time stamp is enclosed in square -brackets instead of angular brackets. - -@item Time range with CLOCK keyword -@cindex CLOCK keyword -When using the clock to time the work that is being done on specific -items, time ranges preceded by the CLOCK keyword are inserted -automatically into the file. The time stamps are enclosed in square -brackets instead of angular brackets. @xref{Clocking work time}. @end table -@node Creating timestamps, Custom time format, Time stamps, Timestamps +@node Creating timestamps, Deadlines and scheduling, Time stamps, Timestamps @section Creating timestamps @cindex creating timestamps @cindex timestamps, creating @@ -2899,61 +3066,40 @@ format. Prompt for a date and insert a corresponding time stamp. When the cursor is at a previously used time stamp, it is updated to NOW. When this command is used twice in succession, a time range is inserted. - +@c @kindex C-u C-c . @item C-u C-c . Like @kbd{C-c .}, but use the alternative format which contains date and time. The default time can be rounded to multiples of 5 minutes, see the option @code{org-time-stamp-rounding-minutes}. - +@c @kindex C-c ! @item C-c ! -Like @kbd{C-c .}, but insert an inactive time stamp not triggering the -agenda. - +Like @kbd{C-c .}, but insert an inactive time stamp that will not cause +an agenda entry. +@c @kindex C-c < @item C-c < Insert a time stamp corresponding to the cursor date in the Calendar. - +@c @kindex C-c > @item C-c > Access the Emacs calendar for the current date. If there is a timestamp in the current line, goto the corresponding date instead. - +@c @kindex C-c C-o @item C-c C-o Access the agenda for the date given by the time stamp or -range at point (@pxref{Weekly/Daily agenda}). - -@kindex C-c C-d -@item C-c C-d -Insert @samp{DEADLINE} keyword along with a stamp. The insertion will -happen in the line directly following the headline. -@c FIXME Any CLOSED timestamp will be removed.???????? - -@kindex C-c C-w -@cindex sparse tree, for deadlines -@item C-c C-w -Create a sparse tree with all deadlines that are either past-due, or -which will become due within @code{org-deadline-warning-days}. -With @kbd{C-u} prefix, show all deadlines in the file. With a numeric -prefix, check that many days. For example, @kbd{C-1 C-c C-w} shows -all deadlines due tomorrow. - -@kindex C-c C-s -@item C-c C-s -Insert @samp{SCHEDULED} keyword along with a stamp. The insertion will -happen in the line directly following the headline. Any CLOSED -timestamp will be removed. - +@c @kindex S-@key{left} @kindex S-@key{right} @item S-@key{left} @itemx S-@key{right} Change date at cursor by one day. These key bindings conflict with CUA-mode (@pxref{Conflicts}). - +@c @kindex S-@key{up} @kindex S-@key{down} @item S-@key{up} @@ -2963,8 +3109,7 @@ year, month, day, hour or minute. Note that if the cursor is in a headline and not at a time stamp, these same keys modify the priority of an item. (@pxref{Priorities}). The key bindings also conflict with CUA-mode (@pxref{Conflicts}). - - +@c @kindex C-c C-y @cindex evaluate time range @item C-c C-y @@ -2976,9 +3121,10 @@ into the following column). @menu * The date/time prompt:: How org-mode helps you entering date and time +* Custom time format:: Making dates look differently @end menu -@node The date/time prompt, , Creating timestamps, Creating timestamps +@node The date/time prompt, Custom time format, Creating timestamps, Creating timestamps @subsection The date/time prompt @cindex date, reading in minibuffer @cindex time, reading in minibuffer @@ -3047,8 +3193,8 @@ One month back. Choose date in calendar (only if nothing was typed into minibuffer). @end table -@node Custom time format, Repeating items, Creating timestamps, Timestamps -@section Custom time format +@node Custom time format, , The date/time prompt, Creating timestamps +@subsection Custom time format @cindex custom date/time format @cindex time format, custom @cindex date format, custom @@ -3090,48 +3236,119 @@ using dates in tables, table alignment will be messed up. If the custom format is shorter, things do work as expected. @end itemize -@node Repeating items, Progress logging, Custom time format, Timestamps -@section Repeating items -@cindex TODO items, repeating -@cindex deadlines, repeating -@cindex scheduling, repeating -Org-mode integrates with the Emacs calendar and diary to display cyclic -appointments, anniversaries and other special entries in the agenda -(@pxref{Weekly/Daily agenda}). However, it can be useful to have -certain deadlines and scheduling items to auto-repeat. The advantage of -a deadline or scheduled item is that the they produce warnings ahead of -time and automatically forward themselves in the agenda until they are -done. The abstract difference is therefore between cyclic -@i{appointments} and cyclic @i{action items}. For appointments you -should use the diary, for actions you can uses an org-mode deadline or -scheduling time stamp together with a REPEAT cookie. For example: +@node Deadlines and scheduling, Progress logging, Creating timestamps, Timestamps +@section Deadlines and Scheduling + +A time stamp may be preceded by special keywords to facilitate planning +of work: + +@table @var +@item DEADLINE +@cindex DEADLINE keyword +The task (most likely a TODO item) is supposed to be finished on that +date, and it will be listed then. In addition, the compilation for +@emph{today} will carry a warning about the approaching or missed +deadline, starting @code{org-deadline-warning-days} before the due date, +and continuing until the entry is marked DONE. An example: @example -* TODO Replace batteries in smoke detector REPEAT(+18m) - SCHEDULED: <2007-01-01 Mon> - -* TODO Get dentist appointment REPEAT(+6m) - SCHEDULED: <2006-12-19 Tue> - -* TODO Tax report to IRS REPEAT(+1y) - DEADLINE: <2007-04-01 Sun> +*** TODO write article about the Earth for the Guide + The editor in charge is [[bbdb:Ford Prefect]] + DEADLINE: <2004-02-29 Sun> @end example -Each time you try to mark one of these entries DONE using @kbd{C-c C-t}, -they will automatically switch back to the state TODO, and the -deadline/scheduling will be shifted accordingly. The time units -recognized by org-mode are year (y), month (m), week (w), and day (d). -Org-mode will also prompt you for a note and record the fact that you -have closed this item in a note under the headline. +@item SCHEDULED +@cindex SCHEDULED keyword +You are planning to start working on that task on the given date. The +headline will be listed under the given date@footnote{It will still be +listed on that date after it has been marked DONE. If you don't like +this, set the variable @code{org-agenda-skip-scheduled-if-done}.}. In +addition, a reminder that the scheduled date has passed will be present +in the compilation for @emph{today}, until the entry is marked DONE. +I.e., the task will automatically be forwarded until completed. -One unusual property of these repeating items is that only one instance -of each exist at any given time. So if you look back or ahead in the -agenda, you will not find past and future instances, only the current -one will show up. Use a cyclic diary entry if you need all past and -future instances to be visible in the agenda. +@example +*** TODO Call Trillian for a date on New Years Eve. + SCHEDULED: <2004-12-25 Sat> +@end example +@end table -@node Progress logging, , Repeating items, Timestamps +@menu +* Inserting deadline/schedule:: +* Repeated tasks:: +@end menu + +@node Inserting deadline/schedule, Repeated tasks, Deadlines and scheduling, Deadlines and scheduling +@subsection Inserting deadline/schedule + +The following commands allow to quickly insert a deadline or to schedule +an item: + +@table @kbd +@c +@kindex C-c C-d +@item C-c C-d +Insert @samp{DEADLINE} keyword along with a stamp. The insertion will +happen in the line directly following the headline. +@c FIXME Any CLOSED timestamp will be removed.???????? +@c +@kindex C-c C-w +@cindex sparse tree, for deadlines +@item C-c C-w +Create a sparse tree with all deadlines that are either past-due, or +which will become due within @code{org-deadline-warning-days}. +With @kbd{C-u} prefix, show all deadlines in the file. With a numeric +prefix, check that many days. For example, @kbd{C-1 C-c C-w} shows +all deadlines due tomorrow. +@c +@kindex C-c C-s +@item C-c C-s +Insert @samp{SCHEDULED} keyword along with a stamp. The insertion will +happen in the line directly following the headline. Any CLOSED +timestamp will be removed. +@end table + +@node Repeated tasks, , Inserting deadline/schedule, Deadlines and scheduling +@subsection Repeated Tasks + +Some tasks need to be repeated again and again, and Org-mode therefore +allows to use a repeater in a DEADLINE or SCHEDULED time stamp, for +example: +@example +** TODO Pay the rent + DEADLINE: <2005-10-01 Sat +1m> +@end example + +Deadlines and scheduled items produce entries in the agenda when they +are over-due, so it is important to be able to mark such an entry as +completed once you have done so. When you mark a DEADLINE or a SCHEDULE +with the todo keyword DONE, it will no longer produce entries in the +agenda. The problem with this is, however, that then also the +@emph{next} instance of the repeated entry will not be active. Org-mode +deals with this in the following way: When you try to mark such an entry +DONE (using @kbd{C-c C-t}), it will shift the base date of the repeating +time stamp by the repeater interval, and immediately set the entry state +back to TODO. In the example above, setting the state to DONE would +actually switch the date like this: + +@example +** TODO Pay the rent + DEADLINE: <2005-11-01 Tue +1m> +@end example + +You will also be prompted for a note that will be put under the DEADLINE +line to keep a record that you actually acted on the previous instance +of this deadline. + +As a consequence of shifting the base date, this entry will no longer be +visible in the agenda when checking past dates, but all future instances +will be visible. + +You may have both scheduling and deadline information for a specific +task - just make sure that the repeater intervals on both are the same. + +@node Progress logging, , Deadlines and scheduling, Timestamps @section Progress Logging @cindex progress logging @cindex logging, of progress @@ -3199,6 +3416,7 @@ these into a separate file that starts with: #+STARTUP: lognotestate @end example + @node Clocking work time, , Tracking TODO state changes, Progress logging @subsection Clocking work time @@ -3743,6 +3961,23 @@ Sunrise/Sunset times, show lunar phases and to convert to other calendars, respectively. @kbd{c} can be used to switch back and forth between calendar and agenda. +If you are using the diary only for sexp entries and holidays, it is +faster to not use the above setting, but instead to copy or even move +the entries into an Org-mode file. Org-mode evaluates diary-style sexp +entries, and does it faster because there is no overhead for first +creating the diary display. Note that the sexp entries must start at +the left margin, no white space is allowed before them. For example, +the following segment of an Org-mode file will be processed and entries +will be made in the agenda: + +@example +* Birthdays and similar stuff +#+CATEGORY: Holiday +%%(org-calendar-holiday) ; special function for holiday names +#+CATEGORY: Ann +%%(diary-anniversary 14 5 1956) Artur Dent %d is years old +%%(diary-anniversary 2 10 1869) Mahatma Gandhi would be %d years old +@end example @node Global TODO list, Matching headline tags, Weekly/Daily agenda, Built-in agenda views @subsection The global TODO list @@ -3762,10 +3997,12 @@ the TODO entries directly from that buffer (@pxref{Agenda commands}). @kindex C-c a T @item C-c a T @cindex TODO keyword matching -Like the above, but allows selection of a specific TODO keyword. You can -also do this by specifying a prefix argument to @kbd{C-c a t}. With a -@kbd{C-u} prefix you are prompted for a keyword. With a numeric -prefix, the Nth keyword in @code{org-todo-keywords} is selected. +Like the above, but allows selection of a specific TODO keyword. You +can also do this by specifying a prefix argument to @kbd{C-c a t}. With +a @kbd{C-u} prefix you are prompted for a keyword, and you may also +specify several keywords by separating them with @samp{|} as boolean OR +operator. With a numeric prefix, the Nth keyword in +@code{org-todo-keywords} is selected. @kindex r The @kbd{r} key in the agenda buffer regenerates it, and you can give a prefix argument to this command to change the selected TODO keyword, @@ -3875,16 +4112,18 @@ Lets assume that you, in your own way of using Org-mode, identify projects with a tag PROJECT, and that you use a todo keyword MAYBE to indicate a project that should not be considered yet. Lets further assume that the todo keyword DONE marks finished projects, and that NEXT -and TODO indicate next actions. Finally, the tag @@SHOP indicates -shopping and is a next action even without the NEXT tag. In this case -you would start by identifying eligible projects with a tags/todo match -@samp{+PROJECT/-MAYBE-DONE}, and then check for TODO, NEXT and @@SHOP in -the subtree to identify projects that are not stuck. The correct -customization for this is +and TODO indicate next actions. The tag @@SHOP indicates shopping and +is a next action even without the NEXT tag. Finally, if the project +contains the special word IGNORE anywhere, it should not be listed +either. In this case you would start by identifying eligible projects +with a tags/todo match @samp{+PROJECT/-MAYBE-DONE}, and then check for +TODO, NEXT, @@SHOP, and IGNORE in the subtree to identify projects that +are not stuck. The correct customization for this is @lisp (setq org-stuck-projects - ("+PROJECT/-MAYBE-DONE" ("NEXT" "TODO") ("@@SHOP"))) + '("+PROJECT/-MAYBE-DONE" ("NEXT" "TODO") ("@@SHOP") + "\\")) @end lisp @@ -4031,11 +4270,11 @@ Previous line (same as @key{down}). @item mouse-3 @itemx @key{SPC} Display the original location of the item in another window. - +@c @kindex L @item L Display original location and recenter that window. - +@c @kindex mouse-2 @kindex mouse-1 @kindex @key{TAB} @@ -4044,11 +4283,11 @@ Display original location and recenter that window. @itemx @key{TAB} Go to the original location of the item in another window. Under Emacs 22, @kbd{mouse-1} will also works for this. - +@c @kindex @key{RET} @itemx @key{RET} Go to the original location of the item and delete other windows. - +@c @kindex f @item f Toggle Follow mode. In Follow mode, as you move the cursor through @@ -4056,14 +4295,14 @@ the agenda buffer, the other window always shows the corresponding location in the org file. The initial setting for this mode in new agenda buffers can be set with the variable @code{org-agenda-start-with-follow-mode}. - +@c @kindex b @item b Display the entire subtree of the current item in an indirect buffer. With numerical prefix ARG, go up to this level and then take that tree. If ARG is negative, go up that many levels. With @kbd{C-u} prefix, do not remove the previously used indirect buffer. - +@c @kindex l @item l Toggle Logbook mode. In Logbook mode, entries that where marked DONE while @@ -4075,24 +4314,24 @@ as are entries that have been clocked on that day. @kindex o @item o Delete other windows. - +@c @kindex w @item w Switch to weekly view (7 days displayed together). - +@c @kindex d @item d Switch to daily view (just one day displayed). - +@c @kindex D @item D Toggle the inclusion of diary entries. See @ref{Weekly/Daily agenda}. - +@c @kindex g @item g Toggle the time grid on and off. See also the variables @code{org-agenda-use-time-grid} and @code{org-agenda-time-grid}. - +@c @kindex r @item r Recreate the agenda buffer, for example to reflect the changes @@ -4100,21 +4339,21 @@ after modification of the time stamps of items with S-@key{left} and S-@key{right}. When the buffer is the global todo list, a prefix argument is interpreted to create a selective list for a specific TODO keyword. - +@c @kindex s @item s Save all Org-mode buffers in the current Emacs session. - +@c @kindex @key{right} @item @key{right} Display the following @code{org-agenda-ndays} days. For example, if the display covers a week, switch to the following week. With prefix arg, go forward that many times @code{org-agenda-ndays} days. - +@c @kindex @key{left} @item @key{left} Display the previous dates. - +@c @kindex . @item . Goto today. @@ -4124,53 +4363,53 @@ Goto today. @item 0-9 Digit argument. - +@c @cindex undoing remote-editing events @cindex remote editing, undo @kindex C-_ @item C-_ Undo a change due to a remote editing command. The change is undone both in the agenda buffer and in the remote buffer. - +@c @kindex t @item t Change the TODO state of the item, both in the agenda and in the original org file. - +@c @kindex C-k @item C-k Delete the current agenda item along with the entire subtree belonging to it in the original Org-mode file. If the text to be deleted remotely is longer than one line, the kill needs to be confirmed by the user. See variable @code{org-agenda-confirm-kill}. - +@c @kindex $ @item $ Archive the subtree corresponding to the current headline. - +@c @kindex T @item T Show all tags associated with the current item. Because of inheritance, this may be more than the tags listed in the line itself. - +@c @kindex : @item : Set tags for the current headline. - +@c @kindex a @item a Toggle the ARCHIVE tag for the current headline. - +@c @kindex , @item , Set the priority for the current item. Org-mode prompts for the priority character. If you reply with @key{SPC}, the priority cookie is removed from the entry. - +@c @kindex P @item P Display weighted priority of current item. - +@c @kindex + @kindex S-@key{up} @item + @@ -4178,21 +4417,21 @@ Display weighted priority of current item. Increase the priority of the current item. The priority is changed in the original buffer, but the agenda is not resorted. Use the @kbd{r} key for this. - +@c @kindex - @kindex S-@key{down} @item - @itemx S-@key{down} Decrease the priority of the current item. - +@c @kindex C-c C-s @item C-c C-s Schedule this item - +@c @kindex C-c C-d @item C-c C-d Set a deadline for this item. - +@c @kindex S-@key{right} @item S-@key{right} Change the time stamp associated with the current line by one day into @@ -4201,25 +4440,27 @@ example, @kbd{3 6 5 S-@key{right}} will change it by a year. The stamp is changed in the original org file, but the change is not directly reflected in the agenda buffer. Use the @kbd{r} key to update the buffer. - +@c @kindex S-@key{left} @item S-@key{left} Change the time stamp associated with the current line by one day into the past. - +@c @kindex > @item > Change the time stamp associated with the current line to today. The key @kbd{>} has been chosen, because it is the same as @kbd{S-.} on my keyboard. - +@c @kindex I @item I Start the clock on the current item. If a clock is running already, it is stopped first. +@c @kindex O @item O Stop the previously started clock. +@c @kindex X @item X Cancel the currently running clock. @@ -4229,11 +4470,11 @@ Cancel the currently running clock. @kindex c @item c Open the Emacs calendar and move to the date at the agenda cursor. - +@c @item c When in the calendar, compute and show the Org-mode agenda for the date at the cursor. - +@c @cindex diary entries, creating from agenda @kindex i @item i @@ -4241,42 +4482,53 @@ Insert a new entry into the diary. Prompts for the type of entry (day, weekly, monthly, yearly, anniversary, cyclic) and creates a new entry in the diary, just as @kbd{i d} etc. would do in the calendar. The date is taken from the cursor position. - +@c @kindex M @item M Show the phases of the moon for the three months around current date. - +@c @kindex S @item S Show sunrise and sunset times. The geographical location must be set with calendar variables, see documentation of the Emacs calendar. - +@c @kindex C @item C Convert the date at cursor into many other cultural and historic calendars. - +@c @kindex H @item H Show holidays for three month around the cursor date. - +@c @c FIXME: This should be a different key. @kindex C-c C-x C-c @item C-c C-x C-c Export a single iCalendar file containing entries from all agenda files. +@tsubheading{Exporting to a file} +@kindex C-x C-w +@item C-x C-w +@cindex exporting agenda views +@cindex agenda views, exporting +Write the agenda view to a file. Depending on the extension of the +selected file name, the view will be exported as HTML (extension +@file{.html} or @file{.htm}), Postscript (extension @file{.ps}), or +plain text (any other extension). Use the variable +@code{org-agenda-exporter-settings} to set options for @file{ps-print} +and for @file{htmlize} to be used during export. + @tsubheading{Quit and Exit} @kindex q @item q Quit agenda, remove the agenda buffer. - +@c @kindex x @cindex agenda files, removing buffers @item x Exit agenda, remove the agenda buffer and all buffers loaded by Emacs for the compilation of the agenda. Buffers created by the user to visit org files will not be removed. - @end table @@ -4294,7 +4546,8 @@ dispatcher (@pxref{Agenda dispatcher}), just like the default commands. * Storing searches:: Type once, use often * Block agenda:: All the stuff you need in a single buffer * Setting Options:: Changing the rules -* Batch processing:: Agenda views from the command line +* Exporting Agenda Views:: Writing agendas to files. +* Extracting Agenda Information for other programs:: @end menu @node Storing searches, Block agenda, Custom agenda views, Custom agenda views @@ -4386,7 +4639,7 @@ your agenda for the current week, all TODO items that carry the tag command @kbd{C-c a o} provides a similar view for office tasks. -@node Setting Options, Batch processing, Block agenda, Custom agenda views +@node Setting Options, Exporting Agenda Views, Block agenda, Custom agenda views @subsection Setting Options for custom commands @cindex options, for custom agenda views @@ -4434,7 +4687,8 @@ the results for GARDEN tags query in the opposite order, '(("h" "Agenda and Home-related tasks" ((agenda) (tags-todo "HOME") - (tags "GARDEN" ((org-agenda-sorting-strategy '(priority-up))))) + (tags "GARDEN" + ((org-agenda-sorting-strategy '(priority-up))))) ((org-agenda-sorting-strategy '(priority-down)))) ("o" "Agenda and Office-related tasks" ((agenda) @@ -4450,36 +4704,234 @@ this interface, the @emph{values} are just lisp expressions. So if the value is a string, you need to add the double quotes around the value yourself. -@node Batch processing, , Setting Options, Custom agenda views -@subsection Creating agenda views in batch processing -@cindex agenda, batch production -If you want to print or otherwise reprocess agenda views, it can be -useful to create an agenda from the command line. This is the purpose -of the function @code{org-batch-agenda}. It takes as a parameter one of -the strings that are the keys in @code{org-agenda-custom-commands}. For -example, to directly print the current TODO list, you could use +@node Exporting Agenda Views, Extracting Agenda Information for other programs, Setting Options, Custom agenda views +@subsection Exporting Agenda Views +@cindex agenda views, exporting + +If you are away from your computer, it can be very useful to have a +printed version of some agenda views to carry around. Org-mode can +export custom agenda views as plain text, HTML@footnote{You need to +install Hrvoje Niksic' @file{htmlize.el}.} and postscript. If you want +to do this only occasionally, use the commend + +@table @kbd +@kindex C-x C-w +@item C-x C-w +@cindex exporting agenda views +@cindex agenda views, exporting +Write the agenda view to a file. Depending on the extension of the +selected file name, the view will be exported as HTML (extension +@file{.html} or @file{.htm}), Postscript (extension @file{.ps}), or +plain text (any other extension). Use the variable +@code{org-agenda-exporter-settings} to set options for @file{ps-print} +and for @file{htmlize} to be used during export, for example +@lisp +(setq org-agenda-exporter-settings + '((ps-number-of-columns 2) + (ps-landscape-mode t) + (htmlize-output-type 'css))) +@end lisp +@end table + +If you need to export certain agenda views frequently, you can associate +any custom agenda command with a list of output file names +@footnote{If you want to store standard views like the weekly agenda +or the global TODO list as well, you need to define custom commands for +them in order to be able to specify filenames.}. Here is an example +that first does define custom commands for the agenda and the global +todo list, together with a number of files to which to export them. +Then we define two block agenda commands and specify filenames for them +as well. File names can be relative to the current working directory, +or absolute. + +@lisp +@group +(setq org-agenda-custom-commands + '(("X" agenda "" nil ("agenda.html" "agenda.ps")) + ("Y" alltodo "" nil ("todo.html" "todo.txt" "todo.ps")) + ("h" "Agenda and Home-related tasks" + ((agenda) + (tags-todo "HOME") + (tags "GARDEN")) + nil + ("~/views/home.html")) + ("o" "Agenda and Office-related tasks" + ((agenda) + (tags-todo "WORK") + (tags "OFFICE")) + nil + ("~/views/office.ps")))) +@end group +@end lisp + +The extension of the file name determines the type of export. If it is +@file{.html}, Org-mode will use the @file{htmlize.el} package to convert +the buffer to HTML and save it to this file name. If the extension is +@file{.ps}, @code{ps-print-buffer-with-faces} is used to produce +postscript output. Any other extension produces a plain ASCII file. + +The export files are @emph{not} created when you use one of those +commands interactively. Instead, there is a special command to produce +@emph{all} specified files in one step: + +@table @kbd +@kindex C-c a e +@item C-c a e +Export all agenda views that have export filenames associated with +them. +@end table + +You can use the options section of the custom agenda commands to also +set options for the export commands. For example: + +@lisp +(setq org-agenda-custom-commands + '(("X" agenda "" + ((ps-number-of-columns 2) + (ps-landscape-mode t) + (org-agenda-prefix-format " [ ] ") + (org-agenda-with-colors nil) + (org-agenda-remove-tags t)) + ("theagenda.ps")))) +@end lisp + +@noindent +This command sets two options for the postscript exporter, to make it +print in two columns in landscape format - the resulting page can be cut +in two and then used in a paper agenda. The remaining settings modify +the agenda prefix to omit category and scheduling information, and +instead include a checkbox to check off items. We also remove the tags +to make the lines compact, and we don't want to use colors for the +black-and-white printer. Settings specified in +@code{org-agenda-exporter-settings} will also apply, but the settings +in @code{org-agenda-custom-commands} take precedence. + +@noindent +From the command line you may also use +@example +emacs -f org-batch-store-agenda-views -kill +@end example +@noindent +or, if you need to modify some parameters +@example +emacs -eval '(org-batch-store-agenda-views \ + org-agenda-ndays 30 \ + org-agenda-include-diary nil \ + org-agenda-files (quote ("~/org/project.org")))' \ + -kill +@end example +@noindent +which will create the agenda views restricted to the file +@file{~/org/project.org}, without diary entries and with 30 days +extent. + +@node Extracting Agenda Information for other programs, , Exporting Agenda Views, Custom agenda views +@subsection Extracting Agenda Information for other programs +@cindex agenda, pipe +@cindex Scripts, for agenda processing + +Org-mode provides commands to access agenda information for the command +line in emacs batch mode. This extracted information can be sent +directly to a printer, or it can be read by a program that does further +processing of the data. The first of these commands is the function +@code{org-batch-agenda}, that produces an agenda view and sends it as +ASCII text to STDOUT. The command takes a single string as parameter. +If the string has length 1, it is used as a key to one of the commands +you have configured in @code{org-agenda-custom-commands}, basically any +key you can use after @kbd{C-c a}. For example, to directly print the +current TODO list, you could use @example emacs -batch -l ~/.emacs -eval '(org-batch-agenda "t")' | lpr @end example +If the parameter is a string with 2 or more characters, it is used as a +tags/todo match string. For example, to print your local shopping list +(all items with the tag @samp{shop}, but excluding the tag +@samp{NewYork}), you could use + +@example +emacs -batch -l ~/.emacs \ + -eval '(org-batch-agenda "+shop-NewYork")' | lpr +@end example + @noindent You may also modify parameters on the fly like this: @example emacs -batch -l ~/.emacs \ -eval '(org-batch-agenda "a" \ - org-agenda-ndays 300 \ + org-agenda-ndays 30 \ org-agenda-include-diary nil \ org-agenda-files (quote ("~/org/project.org")))' \ | lpr @end example @noindent -which will produce a 300 day agenda, fully restricted to the Org file +which will produce a 30 day agenda, fully restricted to the Org file @file{~/org/projects.org}, not even including the diary. +If you want to process the agenda data in more sophisticated ways, you +can use the command @code{org-batch-agenda-csv} to get a comma-separated +list of values for each agenda item. Each line in the output will +contain a number of fields separated by commas. The fields in a line +are: + +@example +category @r{The category of the item} +head @r{The headline, without TODO kwd, TAGS and PRIORITY} +type @r{The type of the agenda entry, can be} + todo @r{selected in TODO match} + tagsmatch @r{selected in tags match} + diary @r{imported from diary} + deadline @r{a deadline} + scheduled @r{scheduled} + timestamp @r{appointment, selected by timestamp} + closed @r{entry was closed on date} + upcoming-deadline @r{warning about nearing deadline} + past-scheduled @r{forwarded scheduled item} + block @r{entry has date block including date} +todo @r{The todo keyword, if any} +tags @r{All tags including inherited ones, separated by colons} +date @r{The relevant date, like 2007-2-14} +time @r{The time, like 15:00-16:50} +extra @r{String with extra planning info} +priority-l @r{The priority letter if any was given} +priority-n @r{The computed numerical priority} +@end example + +@noindent +Time and date will only be given if a timestamp (or deadline/scheduled) +lead to the selection of the item. + +A CSV list like this is very easy to use in a post processing script. +For example, here is a Perl program that gets the TODO list from +Emacs/org-mode and prints all the items, preceded by a checkbox: + +@example +@group +#!/usr/bin/perl + +# define the Emacs command to run +$cmd = "emacs -batch -l ~/.emacs -eval '(org-batch-agenda-csv \"t\")'"; + +# run it and capture the output +$agenda = qx@{$cmd 2>/dev/null@}; + +# loop over all lines +foreach $line (split(/\n/,$agenda)) @{ + + # get the individual values + ($category,$head,$type,$todo,$tags,$date,$time,$extra, + $priority_l,$priority_n) = split(/,/,$line); + + # proccess and print + print "[ ] $head\n"; +@} +@end group +@end example + @node Embedded LaTeX, Exporting, Agenda views, Top @chapter Embedded LaTeX @cindex @TeX{} interpretation @@ -4566,7 +5018,9 @@ preview the typeset result of these fragments, and upon export to HTML, all fragments will be converted to images and inlined into the HTML document. For this to work you need to be on a system with a working La@TeX{} installation. You also need the @file{dvipng} program, -available at @url{http://sourceforge.net/projects/dvipng/}. +available at @url{http://sourceforge.net/projects/dvipng/}. The LaTeX +header that will be used when processing a fragment can be configured +with the variable @code{org-format-latex-header}. La@TeX{} fragments don't need any special marking at all. The following snippets will be identified as LaTeX source code: @@ -4773,7 +5227,7 @@ HTML formatting, in ways similar to John Grubers @emph{markdown} language, but with additional support for tables. @menu -* Export commands:: How to invode HTML export +* Export commands:: How to invoke HTML export * Quoting HTML tags:: Using direct HTML in Org-mode * Links:: How hyperlinks get transferred to HTML * Images:: To inline or not to inline? @@ -4793,11 +5247,27 @@ Export as HTML file @file{myfile.html}. @kindex C-c C-e b @item C-c C-e b Export as HTML file and open it with a browser. +@kindex C-c C-e H +@item C-c C-e H +Export to a temporary buffer, do not create a file. +@kindex C-c C-e R +@item C-c C-e H +Export the active region to a temporary buffer. With prefix arg, do not +produce file header and foot, but just the plain HTML section for the +region. This is good for cut-and-paste operations. @kindex C-c C-e v h @kindex C-c C-e v b +@kindex C-c C-e v H +@kindex C-c C-e v R @item C-c C-e v h @item C-c C-e v b +@item C-c C-e v H +@item C-c C-e v R Export only the visible part of the document. +@item M-x org-export-region-as-html +Convert the region to HTML under the assumption that it was org-mode +syntax before. This is a global command that can be invoked in any +buffer. @end table @cindex headline levels, for exporting @@ -4975,19 +5445,20 @@ in order to produce better output. @menu * Comment lines:: Some lines will not be exported +* Initial text:: Text before the first headline +* Footnotes:: Numbers like [1] * Enhancing text:: Subscripts, symbols and more * Export options:: How to influence the export settings @end menu -@node Comment lines, Enhancing text, Text interpretation, Text interpretation +@node Comment lines, Initial text, Text interpretation, Text interpretation @subsection Comment lines @cindex comment lines @cindex exporting, not Lines starting with @samp{#} in column zero are treated as comments and will never be exported. Also entire subtrees starting with the -word @samp{COMMENT} will never be exported. Finally, any text before -the first headline will not be exported either. +word @samp{COMMENT} will never be exported. @table @kbd @kindex C-c ; @@ -4995,7 +5466,70 @@ the first headline will not be exported either. Toggle the COMMENT keyword at the beginning of an entry. @end table -@node Enhancing text, Export options, Comment lines, Text interpretation +@node Initial text, Footnotes, Comment lines, Text interpretation +@subsection Text before the first headline + +Org-mode normally ignores any text before the first headline when +exporting, leaving this region for internal links to speed up navigation +etc. However, in publishing-oriented files, you might want to have some +text before the first headline, like a small introduction, special HTML +code with a navigation bar, etc. You can ask to have this part of the +file exported as well by setting the variable +@code{org-export-skip-text-before-1st-heading} to @code{nil}. On a +per-file basis, you can get the same effect with + +@example +#+OPTIONS: skip:nil +@end example + +The text before the first headline will be fully processed +(@pxref{Enhancing text}), and the first non-comment line becomes the +title of the exported document. If you need to include literal HTML, +use the special constructs described in @ref{Quoting HTML tags}. The +table of contents is normally inserted directly before the first +headline of the file. If you would like to get it to a different +location, insert the string @code{[TABLE-OF-CONTENTS]} on a line by +itself at the desired location. + +Finally, if you want to use the space before the first headline for +internal purposes, but @emph{still} want to place something before the +first headline when exporting the file, you can use the @code{#+TEXT} +construct: + +@example +#+OPTIONS: skip:t +#+TEXT: This text will go before the *first* headline. +#+TEXT: We place the table of contents here: +#+TEXT: [TABLE-OF-CONTENTS] +#+TEXT: This goes between the table of contents and the first headline +@end example + +@node Footnotes, Enhancing text, Initial text, Text interpretation +@subsection Footnotes +@cindex footnotes +@cindex @file{footnote.el} + +Numbers in square brackets are treated as footnotes, so that you can use +the Emacs package @file{footnote.el} to create footnotes. For example: + +@example +The org-mode homepage[1] clearly needs help from +a good web designer. + +[1] The link is: http://www.astro.uva.nl/~dominik/Tools/org +@end example + +@noindent +@kindex C-c ! +Note that the @file{footnote} package uses @kbd{C-c !} to invoke its +commands. This binding conflicts with the org-mode command for +inserting inactive time stamps. You could use the variable +@code{footnote-prefix} to switch footnotes commands to another key. Or, +if you are too used to this binding, you could use +@code{org-replace-disputed-keys} and @code{org-disputed-keys} to change +the settings in Org-mode. + +@node Enhancing text, Export options, Footnotes, Text interpretation @subsection Enhancing text for export @cindex enhancing text @cindex richer text @@ -5019,7 +5553,9 @@ backend supports lists. See @xref{Plain lists}. @cindex italic text @item You can make words @b{*bold*}, @i{/italic/}, _underlined_, -@code{=code=}, and @samp{+strikethrough+}. +@code{=code=}, and even @samp{+strikethrough+}@footnote{but remember +that strikethrough is typographically evil and should @i{never} be +used.}. @cindex horizontal rules, in exported files @item @@ -5057,7 +5593,7 @@ this position. @end itemize If these conversions conflict with your habits of typing ASCII text, -they can all be turned off with corresponding variables (see the +they can all be turned off with corresponding variables. See the customization group @code{org-export-general}, and the following section which explains how to set export options with special lines in a buffer. @@ -5088,7 +5624,7 @@ Insert template with export options, see example below. #+LANGUAGE: language for HTML, e.g. @samp{en} (@code{org-export-default-language}) #+TEXT: Some descriptive text to be inserted at the beginning. #+TEXT: Several lines may be given. -#+OPTIONS: H:2 num:t toc:t \n:nil @@:t ::t |:t ^:t *:nil TeX:t LaTeX:t +#+OPTIONS: H:2 num:t toc:t \n:nil @@:t ::t |:t ^:t *:nil TeX:t LaTeX:t skip:t @end example @noindent @@ -5113,10 +5649,13 @@ toc: @r{turn on/off table of contents, or set level limit (integer)} @@: @r{turn on/off quoted HTML tags} :: @r{turn on/off fixed-width sections} |: @r{turn on/off tables} -^: @r{turn on/off @TeX{}-like syntax for sub- and superscripts.} +^: @r{turn on/off @TeX{}-like syntax for sub- and superscripts. If} + @r{you write "^:@{@}", @code{a_@{b@}} will be interpreted, but} + @r{the simple @code{a_b} will be left as it is.} *: @r{turn on/off emphasized text (bold, italic, underlined)} TeX: @r{turn on/off simple @TeX{} macros in plain text} LaTeX: @r{turn on/off La@TeX{} fragments} +skip: @r{turn on/off skipping the text before the first heading} @end example @node Publishing, Miscellaneous, Exporting, Top @@ -5444,13 +5983,13 @@ Once org-publish is properly configured, you can publish with the following functions: @table @kbd -@item C-c C-e c +@item C-c C-e C Prompt for a specific project and publish all files that belong to it. -@item C-c C-e p +@item C-c C-e P Publish the project containing the current file. -@item C-c C-e f +@item C-c C-e F Publish only the current file. -@item C-c C-e a +@item C-c C-e A Publish all projects. @end table @@ -5584,11 +6123,15 @@ Logging TODO state changes and clock intervals (variable @cindex @code{lognotedone}, STARTUP keyword @cindex @code{lognoteclock-out}, STARTUP keyword @cindex @code{lognotestate}, STARTUP keyword +@cindex @code{logrepeat}, STARTUP keyword +@cindex @code{nologrepeat}, STARTUP keyword @example logging @r{record a timestamp when an item is marked DONE} nologging @r{don't record when items are marked DONE} lognotedone @r{record timestamp and a note when DONE} lognotestate @r{record timestamp, note when TODO state changes} +logrepeat @r{record a not when re-instating a repeating item} +nologrepeat @r{do not record when re-instating repeating item} lognoteclock-out @r{record timestamp and a note when clocking out} @end example Here are the options for hiding leading stars in outline headings. The @@ -5612,6 +6155,14 @@ To turn on custom format overlays over time stamps (variables @example customtime @r{overlay custom time format} @end example +The following options influence the table spreadsheet (variable +@code{constants-unit-system}). +@cindex @code{constcgs}, STARTUP keyword +@cindex @code{constSI}, STARTUP keyword +@example +constcgs @r{@file{constants.el} should use the c-g-s unit system} +constSI @r{@file{constants.el} should use the SI unit system} +@end example @item #+SEQ_TODO: #+TYP_TODO: These lines set the TODO keywords and their interpretation in the current file. The corresponding variables are @code{org-todo-keywords} @@ -5633,6 +6184,10 @@ This line sets the archive location for the agenda file. It applies for all subsequent lines until the next @samp{#+CATEGORY} line, or the end of the file. The first such line also applies to any entries before it. The corresponding variable is @code{org-archive-location}. +@item #+PRIORITIES: highest lowest default +This line sets the limits and the default for the priorities. All three +must be either letters A-Z or numbers 0-9. The highest priority must +have a lower ASCII number that the lowest priority. @item #+TBLFM: This line contains the formulas for the table directly above the line. @item #+TITLE:, #+AUTHOR:, #+EMAIL:, #+LANGUAGE:, #+TEXT:, #+OPTIONS: @@ -5816,10 +6371,12 @@ rather use @kbd{C-c .} to re-insert the timestamp. @item @kbd{S-@key{RET}} @tab @kbd{C-c C-x c} @tab @item @kbd{M-@key{RET}} @tab @kbd{C-c C-x m} @tab @kbd{@key{Esc} @key{RET}} @item @kbd{M-S-@key{RET}} @tab @kbd{C-c C-x M} @tab -@item @kbd{S-@key{left}} @tab @kbd{C-c C-x @key{left}} @tab -@item @kbd{S-@key{right}} @tab @kbd{C-c C-x @key{right}} @tab -@item @kbd{S-@key{up}} @tab @kbd{C-c C-x @key{up}} @tab -@item @kbd{S-@key{down}} @tab @kbd{C-c C-x @key{down}} @tab +@item @kbd{S-@key{left}} @tab @kbd{C-c @key{left}} @tab +@item @kbd{S-@key{right}} @tab @kbd{C-c @key{right}} @tab +@item @kbd{S-@key{up}} @tab @kbd{C-c @key{up}} @tab +@item @kbd{S-@key{down}} @tab @kbd{C-c @key{down}} @tab +@item @kbd{C-S-@key{left}} @tab @kbd{C-c C-x @key{left}} @tab +@item @kbd{C-S-@key{right}} @tab @kbd{C-c C-x @key{right}} @tab @end multitable @node Interaction, Bugs, TTY keys, Miscellaneous @@ -5887,7 +6444,7 @@ to execute Org-mode-related commands, leave the table. @item C-c C-c Recognize @file{table.el} table. Works when the cursor is in a table.el table. - +@c @kindex C-c ~ @item C-c ~ Insert a table.el table. If there is already a table at point, this @@ -5897,6 +6454,10 @@ format. See the documentation string of the command possible. @end table @file{table.el} is part of Emacs 22. +@cindex @file{footnote.el} +@item @file{footnote.el} by Steven L. Baur +Org-mode recognizes numerical footnotes as provided by this package +(@pxref{Footnotes}). @end table @node Conflicts, , Cooperation, Interaction @@ -5927,7 +6488,6 @@ during date selection). @example S-UP -> M-p S-DOWN -> M-n S-LEFT -> M-- S-RIGHT -> M-+ -S-RET -> C-S-RET @end example Yes, these are unfortunately more difficult to remember. If you want @@ -5937,6 +6497,16 @@ to have other replacement keys, look at the variable @cindex @file{windmove.el} Also this package uses the @kbd{S-} keys, so everything written in the paragraph above about CUA mode also applies here. + +@cindex @file{footnote.el} +@item @file{footnote.el} by Steven L. Baur +Org-mode supports the syntax of the footnote package, but only the +numerical footnote markers. Also, the default key for footnote +commands, @kbd{C-c !} is already used by org-mode. You could use the +variable @code{footnote-prefix} to switch footnotes commands to another +key. Or, you could use @code{org-replace-disputed-keys} and +@code{org-disputed-keys} to change the settings in Org-mode. + @end table @@ -6417,7 +6987,7 @@ MATCH is being ignored." @end lisp -@node History and Acknowledgments, GNU Free Documentation License, Extensions and Hacking, Top +@node History and Acknowledgments, Index, Extensions and Hacking, Top @appendix History and Acknowledgments @cindex acknowledgments @cindex history @@ -6478,6 +7048,9 @@ asked for a way to narrow wide table columns. @i{Christian Egli} converted the documentation into TeXInfo format, patched CSS formatting into the HTML exporter, and inspired the agenda. @item +@i{David Emery} provided a patch for custom CSS support in exported +HTML agendas. +@item @i{Nic Ferrier} contributed mailcap and XOXO support. @item @i{John Foerch} figured out how to make incremental search show context @@ -6490,13 +7063,19 @@ translated David O'Toole's tutorial into French. @item @i{Kai Grossjohann} pointed out key-binding conflicts with other packages. @item -@i{Shidai Liu} (``Leo'') provided extensive feedback and some patches. +@i{Shidai Liu} ("Leo") asked for embedded LaTeX and tested it. He also +provided frequent feedback and some patches. @item -@i{Leon Liu} asked for embedded LaTeX and tested it. +@i{Jason F. McBrayer} suggested agenda export to CSV format. +@item +@i{Dmitri Minaev} sent a patch to set priority limits on a per-file +basis. @item @i{Stefan Monnier} provided a patch to keep the Emacs-Lisp compiler happy. @item +@i{Rick Moynihan} proposed to allow multiple TODO sequences in a file. +@item @i{Todd Neal} provided patches for links to Info files and elisp forms. @item @i{Tim O'Callaghan} suggested in-file links, search options for general @@ -6568,12 +7147,8 @@ work on a tty. and contributed various ideas and code snippets. @end itemize -@node GNU Free Documentation License, Index, History and Acknowledgments, Top -@appendix GNU Free Documentation License -@include doclicense.texi - -@node Index, Key Index, GNU Free Documentation License, Top +@node Index, Key Index, History and Acknowledgments, Top @unnumbered Index @printindex cp From 873f531de6b9759e104ce151e429591d88fd0424 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jun 2007 15:15:29 +0000 Subject: [PATCH 121/276] Version 4.77. --- etc/orgcard.tex | 229 +++++++++++++++++++++++------------------------- 1 file changed, 112 insertions(+), 117 deletions(-) diff --git a/etc/orgcard.tex b/etc/orgcard.tex index 55a797000c6..ab891a0be13 100644 --- a/etc/orgcard.tex +++ b/etc/orgcard.tex @@ -1,27 +1,27 @@ % Reference Card for Org Mode -\def\orgversionnumber{4.67} +\def\orgversionnumber{4.77} \def\versionyear{2007} % latest update \def\year{2007} % latest copyright year -% + %**start of header \newcount\columnsperpage +\newcount\letterpaper % This file can be printed with 1, 2, or 3 columns per page (see below). -% At the moment this card works quite nicely in 3 column format and -% currently takes 2 full pages. It is thus suited to producing one -% double-side page when printed. - -% There are a couple of tweaks in the format of this card which make it work -% slightly better on A4 paper. The changes due, I think, to Stephen Eglen, -% are commented below. Revert the changes if you want letter sized paper. - -% Try running something like -% tex org-mode-ref.tex; dvips -t landscape org-mode-ref.dvi -% to print the card +% Specify how many you want here. \columnsperpage=3 -% Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc +% Set letterpapaer to 0 for A4 paper, 1 for letter (US) paper. Useful +% only when columnsperpage is 2 or 3. + +\letterpaper=0 + +% Nothing else needs to be changed below this line. +% Copyright (C) 1987, 1993, 1996, 1997, 2001, 2002, 2003, 2004, +% 2005, 2006, 2007 Free Software Foundation, Inc. + +% This file is part of GNU Emacs. % GNU Emacs is free software; you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by @@ -35,8 +35,8 @@ % You should have received a copy of the GNU General Public License % along with GNU Emacs; see the file COPYING. If not, write to -% the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -% Boston, MA 02111-1307, USA. +% the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +% Boston, MA 02110-1301, USA. % This file is intended to be processed by plain TeX (TeX82). % @@ -54,6 +54,10 @@ % For this you need a dvi device driver that can print sideways. % Which mode to use is controlled by setting \columnsperpage above. % +% To compile and print this document: +% tex refcard.tex +% dvips -t landscape refcard.dvi +% % Author: % Stephen Gildea % Internet: gildea@stop.mail-abuse.org @@ -82,20 +86,20 @@ % can be scanned without complaint. \def\bye{\par\vfill\supereject\end} -\newdimen\intercolumnskip %horizontal space between columns -\newbox\columna %boxes to hold columns already built +\newdimen\intercolumnskip %horizontal space between columns +\newbox\columna %boxes to hold columns already built \newbox\columnb \def\ncolumns{\the\columnsperpage} -\message{[\ncolumns\space +\message{[\ncolumns\space column\if 1\ncolumns\else s\fi\space per page]} \def\scaledmag#1{ scaled \magstep #1} % This multi-way format was designed by Stephen Gildea October 1986. % Note that the 1-column format is fontfamily-independent. -\if 1\ncolumns %one-column format uses normal size +\if 1\ncolumns %one-column format uses normal size \hsize 4in \vsize 10in \voffset -.7in @@ -106,14 +110,14 @@ \footline{\hss\folio} \def\makefootline{\baselineskip10pt\hsize6.5in\line{\the\footline}} -\else %2 or 3 columns uses prereduced size +\else %2 or 3 columns uses prereduced size \hsize 3.2in - -% FIXME - Try to make things more A4 friendly -% \vsize 7.95in - \vsize 7.65in -% \hoffset -.75in - \hoffset -.25in + \if 1\the\letterpaper + \vsize 7.95in + \else + \vsize 7.65in + \fi + \hoffset -.75in \voffset -.745in \font\titlefont=cmbx10 \scaledmag2 \font\headingfont=cmbx10 \scaledmag1 @@ -132,13 +136,14 @@ \def\bf{\eightbf} \def\it{\eightit} \def\tt{\eighttt} - -% FIXME - Try to make things more A4 friendly -% \normalbaselineskip=.8\normalbaselineskip - \normalbaselineskip=.7\normalbaselineskip + \if 1\the\letterpaper + \normalbaselineskip=.8\normalbaselineskip + \else + \normalbaselineskip=.7\normalbaselineskip + \fi \normallineskip=.8\normallineskip \normallineskiplimit=.8\normallineskiplimit - \normalbaselines\rm %make definitions take effect + \normalbaselines\rm %make definitions take effect \if 2\ncolumns \let\maxcolumn=b @@ -154,16 +159,16 @@ \intercolumnskip=.46in \def\abc{a} - \output={% %see The TeXbook page 257 + \output={% %see The TeXbook page 257 % This next line is useful when designing the layout. %\immediate\write16{Column \folio\abc\space starts with \firstmark} \if \maxcolumn\abc \multicolumnformat \global\def\abc{a} \else\if a\abc - \global\setbox\columna\columnbox \global\def\abc{b} + \global\setbox\columna\columnbox \global\def\abc{b} %% in case we never use \columnb (two-column mode) \global\setbox\columnb\hbox to -\intercolumnskip{} \else - \global\setbox\columnb\columnbox \global\def\abc{c}\fi\fi} + \global\setbox\columnb\columnbox \global\def\abc{c}\fi\fi} \def\multicolumnformat{\shipout\vbox{\makeheadline \hbox{\box\columna\hskip\intercolumnskip \box\columnb\hskip\intercolumnskip\columnbox} @@ -173,7 +178,7 @@ \def\bye{\par\vfill\supereject \if a\abc \else\null\vfill\eject\fi \if a\abc \else\null\vfill\eject\fi - \end} + \end} \fi % we won't be using math mode much, so redefine some of the characters @@ -225,7 +230,7 @@ \def\<#1>{{\it #1\/}} % kbd - argument is characters typed literally. Like the Texinfo command. -\def\kbd#1{{\tt#1}\null} %\null so not an abbrev even if period follows +\def\kbd#1{{\tt#1}\null} %\null so not an abbrev even if period follows % beginexample...endexample - surrounds literal text, such a code example. % typeset in a typewriter font with line breaks preserved @@ -316,15 +321,15 @@ \section{Structure Editing} \section{Archiving} \key{toggle ARCHIVE tag}{C-c C-x C-a} -\metax{mark fully done children}{C-u C-c C-x C-a} +%\metax{mark fully done children}{C-u C-c C-x C-a} \key{force cycling of an ARCHIVEd tree}{C-TAB} \key{move subtree to archive file}{C-c C-x C-s} -\metax{move all fully done children}{C-u C-c C-x C-s} -To set archive location for current file, add a line like$^2$: -\vskip -1mm -\beginexample% -\#+ARCHIVE: archfile::* Archived Tasks -\endexample +%\metax{move all fully done children}{C-u C-c C-x C-s} +%To set archive location for current file, add a line like$^2$: +%\vskip -1mm +%\beginexample% +%\#+ARCHIVE: archfile::* Archived Tasks +%\endexample \section{Filtering and Sparse Trees} @@ -359,13 +364,11 @@ \section{Tables} {\bf Row and column editing} -\key{move the current column left}{M-LEFT} -\key{move the current column right}{M-RIGHT} +\key{move the current column left}{M-LEFT/RIGHT} \key{kill the current column}{M-S-LEFT} \key{insert new column to left of cursor position}{M-S-RIGHT} -\key{move the current row up}{M-UP} -\key{move the current row down}{M-DOWN} +\key{move the current row up/down}{M-UP/DOWN} \key{kill the current row or horizontal line}{M-S-UP} \key{insert new row above the current row}{M-S-DOWN} \key{insert hline below (\kbd{C-u} : above) current row}{C-c -} @@ -378,34 +381,6 @@ \section{Tables} \key{paste rectangular region}{C-c C-x C-y} \key{fill paragraph across selected cells}{C-c C-q} -{\bf Calculations} (in combination with Emacs \kbd{calc} package) - -\key{set and eval column formula}{C-c =} -\key{set and eval field formula}{C-u C-c =} -\key{edit formulas in separate buffer}{C-c '} -\key{re-apply all stored equations to current line}{C-c *} -\key{re-apply all stored equations to entire table}{C-u C-c *} -\key{iterate table to stability}{C-u C-u C-c *} - -%\kbd{TAB}, \kbd{RET} and \kbd{C-c C-c} trigger automatic recalculation -%in lines starting with: {\tt | \# |}. - -\key{rotate calculation mark through \# * ! \^ \_ \$}{C-\#} - -\key{show line, column, formula reference}{C-c ?} -\key{sum numbers in current column/rectangle}{C-c +} -\key{copy down with increment}{S-RET$^3$} - -Formulas typed in field are executed by \kbd{TAB}, -\kbd{RET} and \kbd{C-c C-c}. \kbd{=} introduces a column -formula, \kbd{:=} a named-field formula. - -\key{Example: Add Col1 and Col2}{=\$1+\$2} -\key{... with printf format specification}{=\$1+\$2;\%.2f} -\key{... with constants from constants.el}{=\$1/\$c/\$cm} -\metax{sum from 2nd to 3rd hline}{:=vsum(@II..@III)} -\key{apply current column formula}{=} - {\bf Miscellaneous} \key{to limit column width to \kbd{N} characters, use}{...| |...} @@ -413,6 +388,7 @@ \section{Tables} \key{make current field fully visible}{C-u TAB} \metax{export as tab-separated file}{M-x org-table-export} \metax{import tab-separated file}{M-x org-table-import} +\key{sum numbers in current column/rectangle}{C-c +} {\bf Tables created with the \kbd{table.el} package} @@ -420,6 +396,42 @@ \section{Tables} \key{recognize existing table.el table}{C-c C-c} \key{convert table (Org-mode $\leftrightarrow$ table.el)}{C-c ~} +{\bf Spreadsheet} + +Formulas typed in field are executed by \kbd{TAB}, +\kbd{RET} and \kbd{C-c C-c}. \kbd{=} introduces a column +formula, \kbd{:=} a field formula. + +\key{Example: Add Col1 and Col2}{|=\$1+\$2 |} +\key{... with printf format specification}{|=\$1+\$2;\%.2f|} +\key{... with constants from constants.el}{|=\$1/\$c/\$cm |} +\metax{sum from 2nd to 3rd hline}{|:=vsum(@II..@III)|} +\key{apply current column formula}{| = |} + +\key{set and eval column formula}{C-c =} +\key{set and eval field formula}{C-u C-c =} +\key{re-apply all stored equations to current line}{C-c *} +\key{re-apply all stored equations to entire table}{C-u C-c *} +\key{iterate table to stability}{C-u C-u C-c *} +\key{rotate calculation mark through \# * ! \^ \_ \$}{C-\#} +\key{show line, column, formula reference}{C-c ?} +\key{toggle coordinate grid}{C-c \}} +\key{toggle formula debugger}{C-c \{} + +{\it Formula Editor} + +\key{edit formulas in separate buffer}{C-c '} +\key{exit and install new formulas}{C-c C-c} +\key{exit, install, and apply new formulas}{C-u C-c C-c} +\key{abort}{C-c C-q} +\key{toggle reference style}{C-c C-r} +\key{pretty-print Lisp formula}{TAB} +\key{complete Lisp symbol}{M-TAB} +\key{shift reference point}{S-cursor} +\key{shift test line for column references}{M-up/down} +\key{scroll the window showing the table}{M-S-up/down} +\key{toggle table coordinate grid}{C-c \}} + \section{Links} \key{globally store link to the current location}{C-c l$^1$} @@ -466,24 +478,24 @@ \section{Links} %\key{\kbd{vm://myself@some.where.org/folder\#id}}{\rm VM remote} -\section{Remember-mode Integration} +% \section{Remember-mode Integration} -See the manual for how to make remember.el use Org-mode links and -files. The note-finishing command \kbd{C-c C-c} will first prompt for -an org file. In the file, find a location with: +% See the manual for how to make remember.el use Org-mode links and +% files. The note-finishing command \kbd{C-c C-c} will first prompt for +% an org file. In the file, find a location with: -\key{rotate subtree visibility}{TAB} -\key{next heading}{DOWN} -\key{previous heading}{UP} +% \key{rotate subtree visibility}{TAB} +% \key{next heading}{DOWN} +% \key{previous heading}{UP} -Insert the note with one of the following: +% Insert the note with one of the following: -\key{as sublevel of heading at cursor}{RET} -\key{right here (cursor not on heading)}{RET} -\key{before current heading}{LEFT} -\key{after current heading}{RIGHT} -\key{shortcut to end of buffer (cursor at buf-start)}{RET} -\key{Abort}{q} +% \key{as sublevel of heading at cursor}{RET} +% \key{right here (cursor not on heading)}{RET} +% \key{before current heading}{LEFT} +% \key{after current heading}{RIGHT} +% \key{shortcut to end of buffer (cursor at buf-start)}{RET} +% \key{Abort}{q} \section{Completion} @@ -502,16 +514,18 @@ \section{Completion} \section{TODO Items and Checkboxes} \key{rotate the state of the current item}{C-c C-t} +\metax{select next/previous state}{S-LEFT/RIGHT} +\metax{select next/previous set}{C-S-LEFT/RIGHT} \key{view TODO items in a sparse tree}{C-c C-v} \key{view 3rd TODO keyword's sparse tree}{C-3 C-c C-v} \key{set the priority of the current item}{C-c , [ABC]} \key{remove priority cookie from current item}{C-c , SPC} -\key{raise priority of current item}{S-UP$^3$} -\key{lower priority of current item}{S-DOWN$^3$} +\key{raise/lower priority of current item}{S-UP/DOWN$^3$} +%\key{lower priority of current item}{S-DOWN$^3$} -\key{\kbd{\#+SEQ_TODO: TODO TRY BLUFF DONE}}{\rm todo workflow} -\key{\kbd{\#+TYP_TODO: Phil home work DONE}}{\rm todo types} +%\key{\kbd{\#+SEQ_TODO: TODO TRY BLUFF DONE}}{\rm todo workflow} +%\key{\kbd{\#+TYP_TODO: Phil home work DONE}}{\rm todo types} \key{insert new checkbox item in plain list}{M-S-RET} \key{toggle checkbox(es) in region/entry/at point}{C-c C-x C-b} @@ -548,13 +562,11 @@ \section{Timestamps} %\key{... forward/backward one month}{M-S-LEFT/RIGT} \key{Toggle custom format display for dates/times}{C-c C-x C-t} - -\section{Clocking Time} +{\bf Clocking time} \key{start clock on current item}{C-c C-x C-i} \key{stop clock on current item}{C-c C-x C-o} \key{cancel current clock}{C-c C-x C-x} - \key{display total subtree times}{C-c C-x C-d} \key{remove displayed times}{C-c C-c} \key{insert/update table with clock report}{C-c C-x C-r} @@ -720,21 +732,6 @@ \section{Exporting and Publishing} \key{toggle COMMENT keyword on entry}{C-c ;} - -%\section{CUA and pc-select compatibility}% - -%Configure the variable {\tt org-CUA-compatibility} to make Org-mode -%avoid the \kbd{S-} bindings used by these modes. When set, -%Org-mode will change the following keybindings (also in the agenda -%buffer, but not during date selection). See note mark four$^3$ -%throughout the reference card. -%%\vskip-mm -%\beginexample -%S-UP $\to$ M-p S-DOWN $\to$ M-n -%S-LEFT $\to$ M-- S-RIGHT $\to$ M-+ -%S-RET $\to$ C-S-RET -%\endexample - \section{Dynamic Blocks} \key{update dynamic block at point}{C-c C-x C-u} @@ -753,10 +750,8 @@ \section{Notes} \bye +% Local variables: +% compile-command: "tex refcard" +% End: % arch-tag: 139f6750-5cfc-49ca-92b5-237fe5795290 - -%%% Local Variables: -%%% mode: latex -%%% TeX-master: t -%%% End: From 9542795adae087ac1f0854feaf9712e8705d1b46 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 6 Jun 2007 15:16:21 +0000 Subject: [PATCH 122/276] New file. --- lisp/textmodes/org-publish.el | 601 ++++++++++++++++++++++++++++++++++ 1 file changed, 601 insertions(+) create mode 100644 lisp/textmodes/org-publish.el diff --git a/lisp/textmodes/org-publish.el b/lisp/textmodes/org-publish.el new file mode 100644 index 00000000000..8ec27a4431c --- /dev/null +++ b/lisp/textmodes/org-publish.el @@ -0,0 +1,601 @@ +;;; org-publish.el --- publish related org-mode files as a website + +;; Copyright (C) 2006, 2007 Free Software Foundation, Inc. + +;; Author: David O'Toole +;; Keywords: hypermedia, outlines +;; Version: 1.80 + +;; $Id: org-publish.el,v 1.80 2007/03/22 02:31:03 dto Exp dto $ + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;; This file is part of GNU Emacs. + +;;; Commentary: + +;; Requires at least version 4.27 of org.el +;; +;; The official org-mode website: +;; http://staff.science.uva.nl/~dominik/Tools/org/ +;; +;; Home page for org-publish.el: +;; http://dto.freeshell.org/notebook/OrgMode.html + +;; This program extends the HTML publishing support of Emacs Org-mode +;; to allow configurable publishing of related sets of files as a +;; complete website. +;; +;; org-publish.el can do the following: +;; +;; + Publish all one's org-files to html +;; + Upload html, images, attachments and other files to a web server +;; + Exclude selected private pages from publishing +;; + Publish a clickable index of pages +;; + Manage local timestamps, for publishing only changed files +;; + Accept plugin functions to extend range of publishable content +;; +;; Special thanks to the org-mode maintainer Carsten Dominik for his +;; ideas, enthusiasm, and cooperation. + +;;; Installation: + +;; Put org-publish.el in your load path, byte-compile it, and then add +;; the following lines to your emacs initialization file: + +;; (autoload 'org-publish "org-publish" nil t) +;; (autoload 'org-publish "org-publish-all" nil t) +;; (autoload 'org-publish "org-publish-current-file" nil t) +;; (autoload 'org-publish "org-publish-current-project" nil t) + +;; NOTE: When org-publish.el is included with org.el, those forms are +;; already in the file org-install.el, and hence don't need to be put +;; in your emacs initialization file in this case. + +;;; Usage: +;; +;; The program's main configuration variable is +;; `org-publish-project-alist'. See below for example configurations +;; with commentary. + +;; The main interactive functions are: +;; +;; M-x org-publish +;; M-x org-publish-all +;; M-x org-publish-current-file +;; M-x org-publish-current-project + +;;;; Simple example configuration: + +;; (setq org-publish-project-alist +;; (list +;; '("org" . (:base-directory "~/org/" +;; :base-extension "org" +;; :publishing-directory "~/public_html" +;; :with-section-numbers nil +;; :table-of-contents nil +;; :style ""))) + +;;;; More complex example configuration: + +;; Imagine your *.org files are kept in ~/org, your images in +;; ~/images, and stylesheets in ~/other. Now imagine you want to +;; publish the files through an ssh connection to a remote host, via +;; Tramp-mode. To maintain relative links from *.org files to /images +;; and /other, we should replicate the same directory structure in +;; your web server account's designated html root (in this case, +;; assumed to be ~/html) + +;; Once you've done created the proper directories, you can adapt the +;; following example configuration to your specific paths, run M-x +;; org-publish-all, and it should publish the files to the correct +;; directories on the web server, transforming the *.org files into +;; HTML, and leaving other files alone. + +;; (setq org-publish-project-alist +;; (list +;; '("orgfiles" :base-directory "~/org/" +;; :base-extension "org" +;; :publishing-directory "/ssh:user@host:~/html/notebook/" +;; :publishing-function org-publish-org-to-html +;; :exclude "PrivatePage.org" ;; regexp +;; :headline-levels 3 +;; :with-section-numbers nil +;; :table-of-contents nil +;; :style "" +;; :auto-preamble t +;; :auto-postamble nil) +;; +;; ("images" :base-directory "~/images/" +;; :base-extension "jpg\\|gif\\|png" +;; :publishing-directory "/ssh:user@host:~/html/images/" +;; :publishing-function org-publish-attachment) +;; +;; ("other" :base-directory "~/other/" +;; :base-extension "css" +;; :publishing-directory "/ssh:user@host:~/html/other/" +;; :publishing-function org-publish-attachment) +;; ("website" :components ("orgfiles" "images" "other")))) + +;; For more information, see the documentation for the variable +;; `org-publish-project-alist'. + +;; Of course, you don't have to publish to remote directories from +;; within emacs. You can always just publish to local folders, and +;; then use the synchronization/upload tool of your choice. + + +;;; List of user-visible changes since version 1.27 + +;; 1.78: Allow list-valued :publishing-function +;; 1.77: Added :preparation-function, this allows you to use GNU Make etc. +;; 1.65: Remove old "composite projects". They're redundant. +;; 1.64: Allow meta-projects with :components +;; 1.57: Timestamps flag is now called "org-publish-use-timestamps-flag" +;; 1.52: Properly set default for :index-filename +;; 1.48: Composite projects allowed. +;; :include keyword allowed. +;; 1.43: Index no longer includes itself in the index. +;; 1.42: Fix "function definition is void" error +;; when :publishing-function not set in org-publish-current-file. +;; 1.41: Fixed bug where index isn't published on first try. +;; 1.37: Added interactive function "org-publish". Prompts for particular +;; project name to publish. +;; 1.34: Added force-publish option to all interactive functions. +;; 1.32: Fixed "index.org has changed on disk" error during index publishing. +;; 1.30: Fixed startup error caused by (require 'em-unix) + +;;; Code: + + +(eval-when-compile + (require 'cl)) + + +(defgroup org-publish nil + "Options for publishing a set of Org-mode and related files." + :tag "Org Publishing" + :group 'org) + + +(defcustom org-publish-project-alist nil + "Association list to control publishing behavior. +Each element of the alist is a publishing 'project.' The CAR of +each element is a string, uniquely identifying the project. The +CDR of each element is in one of the following forms: + + (:property value :property value ... ) + +OR, + + (:components (\"project-1\" \"project-2\" ...)) + +When the CDR of an element of org-publish-project-alist is in +this second form, the elements of the list after :components are +taken to be components of the project, which group together files +requiring different publishing options. When you publish such a +project with M-x org-publish, the components all publish. + +When a property is given a value in org-publish-project-alist, its +setting overrides the value of the corresponding user variable + (if any) during publishing. However, options set within a file +override everything. + +Most properties are optional, but some should always be set: + + :base-directory Directory containing publishing source files + :base-extension Extension (without the dot!) of source files. + This can be a regular expression. + :publishing-directory Directory (possibly remote) where output + files will be published + +The :exclude property may be used to prevent certain files from +being published. Its value may be a string or regexp matching +file names you don't want to be published. + +The :include property may be used to include extra files. Its +value may be a list of filenames to include. The filenames are +considered relative to the publishing directory. + +When both :include and :exclude properties are given values, the +exclusion step happens first. + +One special property controls which back-end function to use for +publishing files in the project. This can be used to extend the +set of file types publishable by org-publish, as well as the set +of output formats. + + :publishing-function Function to publish file. The default is + org-publish-org-to-html, but other + values are possible. May also be a + list of functions, in which case + each function in the list is invoked + in turn. + +Another property allows you to insert code that prepares a +project for publishing. For example, you could call GNU Make on a +certain makefile, to ensure published files are built up to date. + + :preparation-function Function to be called before publishing + this project. + +Some properties control details of the Org publishing process, +and are equivalent to the corresponding user variables listed in +the right column. See the documentation for those variables to +learn more about their use and default values. + + :language org-export-default-language + :headline-levels org-export-headline-levels + :section-numbers org-export-with-section-numbers + :table-of-contents org-export-with-toc + :emphasize org-export-with-emphasize + :sub-superscript org-export-with-sub-superscripts + :TeX-macros org-export-with-TeX-macros + :fixed-width org-export-with-fixed-width + :tables org-export-with-tables + :table-auto-headline org-export-highlight-first-table-line + :style org-export-html-style + :convert-org-links org-export-html-link-org-files-as-html + :inline-images org-export-html-inline-images + :expand-quoted-html org-export-html-expand + :timestamp org-export-html-with-timestamp + :publishing-directory org-export-publishing-directory + :preamble org-export-html-preamble + :postamble org-export-html-postamble + :auto-preamble org-export-html-auto-preamble + :auto-postamble org-export-html-auto-postamble + :author user-full-name + :email user-mail-address + +The following properties may be used to control publishing of an +index of files or summary page for a given project. + + :auto-index Whether to publish an index during + org-publish-current-project or org-publish-all. + :index-filename Filename for output of index. Defaults + to 'index.org' (which becomes 'index.html') + :index-title Title of index page. Defaults to name of file. + :index-function Plugin function to use for generation of index. + Defaults to 'org-publish-org-index', which + generates a plain list of links to all files + in the project. +" + :group 'org-publish + :type 'alist) + + +(defcustom org-publish-use-timestamps-flag t + "When non-nil, use timestamp checking to publish only changed files. +When nil, do no timestamp checking and always publish all +files." + :group 'org-publish + :type 'boolean) + + +(defcustom org-publish-timestamp-directory "~/.org-timestamps/" + "Name of directory in which to store publishing timestamps." + :group 'org-publish + :type 'string) + + +;;;; Timestamp-related functions + + +(defun org-publish-timestamp-filename (filename) + "Return path to timestamp file for filename FILENAME." + (while (string-match "~\\|/" filename) + (setq filename (replace-match "_" nil t filename))) + (concat org-publish-timestamp-directory filename ".timestamp")) + + +(defun org-publish-needed-p (filename) + "Check whether file should be published. +If org-publish-use-timestamps-flag is set to nil, this function always +returns t. Otherwise, check the timestamps folder to determine +whether file should be published." + (if org-publish-use-timestamps-flag + (progn + ;; + ;; create folder if needed + (if (not (file-exists-p org-publish-timestamp-directory)) + (make-directory org-publish-timestamp-directory) + (if (not (file-directory-p org-publish-timestamp-directory)) + (error "org-publish-timestamp-directory must be a directory."))) + ;; + ;; check timestamp. ok if timestamp file doesn't exist + (let* ((timestamp (org-publish-timestamp-filename filename)) + (rtn (file-newer-than-file-p filename timestamp))) + (if rtn + ;; handle new timestamps + (if (not (file-exists-p timestamp)) + ;; create file + (with-temp-buffer + (make-directory (file-name-directory timestamp) :parents) + (write-file timestamp) + (kill-buffer (current-buffer))))) + rtn)) + t)) + + +(defun org-publish-update-timestamp (filename) + "Update publishing timestamp for file FILENAME." + (let ((timestamp (org-publish-timestamp-filename filename))) + ;; Emacs 21 doesn't have set-file-times + (if (fboundp 'set-file-times) + (set-file-times timestamp) + (call-process "touch" nil 0 nil timestamp)))) + + +;;;; A hash mapping files to project names + + +(defvar org-publish-files (make-hash-table :test 'equal) "Hash +table mapping file names to project names.") + + +;;;; Checking filenames against this hash + + +(defun org-publish-validate-link (link &optional directory) + (gethash (file-truename (expand-file-name link directory)) + org-publish-files)) + + +;;;; Getting project information out of org-publish-project-alist + + +(defun org-publish-get-plists (&optional project-name) + "Return a list of property lists for project PROJECT-NAME. +When argument is not given, return all property lists for all projects." + (let ((alist (if project-name + (list (assoc project-name org-publish-project-alist)) + org-publish-project-alist)) + (project nil) + (plists nil) + (single nil) + (components nil)) + + ;; + ;; + (while (setq project (pop alist)) + ;; what kind of project is it? + (if (setq components (plist-get (cdr project) :components)) + ;; meta project. annotate each plist with name of enclosing project + (setq single + (apply 'append + (mapcar 'org-publish-get-plists components))) + ;; normal project + (setq single (list (cdr project)))) + ;; + (setq plists (append plists single)) + (dolist (p single) + (let* ((exclude (plist-get p :exclude)) + (files (org-publish-get-base-files p exclude))) + (dolist (f files) + (puthash (file-truename f) (car project) org-publish-files))))) + plists)) + + + +(defun org-publish-get-base-files (plist &optional exclude-regexp) + "Return a list of all files in project defined by PLIST. +If EXCLUDE-REGEXP is set, this will be used to filter out +matching filenames." + (let* ((dir (file-name-as-directory (plist-get plist :base-directory))) + (include-list (plist-get plist :include)) + (extension (or (plist-get plist :base-extension) "org")) + (regexp (concat "^[^\\.].*\\.\\(" extension "\\)$")) + (allfiles (directory-files dir t regexp))) + ;; + ;; exclude files + (setq allfiles + (if (not exclude-regexp) + allfiles + (delq nil + (mapcar (lambda (x) + (if (string-match exclude-regexp x) nil x)) + allfiles)))) + ;; + ;; include extra files + (let ((inc nil)) + (while (setq inc (pop include-list)) + (setq allfiles (cons (expand-file-name inc dir) allfiles)))) + + allfiles)) + + +(defun org-publish-get-project-from-filename (filename) + "Figure out which project a given FILENAME belongs to, if any. +Filename should contain full path. Returns name of project, or +nil if not found." + (org-publish-get-plists) + (gethash (file-truename filename) org-publish-files)) + + +(defun org-publish-get-plist-from-filename (filename) + "Return publishing configuration plist for file FILENAME." + (let ((found nil)) + (mapcar + (lambda (plist) + (let ((files (org-publish-get-base-files plist))) + (if (member (expand-file-name filename) files) + (setq found plist)))) + (org-publish-get-plists)) + found)) + + + +;;;; Pluggable publishing back-end functions + + +(defun org-publish-org-to-html (plist filename) + "Publish an org file to HTML. +PLIST is the property list for the given project. +FILENAME is the filename of the org file to be published." + (require 'org) + (let* ((arg (plist-get plist :headline-levels))) + (progn + (find-file filename) + (org-export-as-html arg nil plist) + ;; get rid of HTML buffer + (kill-buffer (current-buffer))))) + + +(defun org-publish-attachment (plist filename) + "Publish a file with no transformation of any kind. +PLIST is the property list for the given project. +FILENAME is the filename of the file to be published." + ;; make sure eshell/cp code is loaded + (require 'eshell) + (require 'esh-maint) + (require 'em-unix) + (let ((destination (file-name-as-directory (plist-get plist :publishing-directory)))) + (eshell/cp filename destination))) + + +;;;; Publishing files, sets of files, and indices + + +(defun org-publish-file (filename) + "Publish file FILENAME." + (let* ((project-name (org-publish-get-project-from-filename filename)) + (plist (org-publish-get-plist-from-filename filename)) + (publishing-function (or (plist-get plist :publishing-function) 'org-publish-org-to-html))) + (if (not project-name) + (error (format "File %s is not part of any known project." filename))) + (when (org-publish-needed-p filename) + (if (listp publishing-function) + ;; allow chain of publishing functions + (mapc (lambda (f) + (funcall f plist filename)) + publishing-function) + (funcall publishing-function plist filename)) + (org-publish-update-timestamp filename)))) + + +(defun org-publish-plist (plist) + "Publish all files in set defined by PLIST. + If :auto-index is set, publish the index too." + (let* ((exclude-regexp (plist-get plist :exclude)) + (publishing-function (or (plist-get plist :publishing-function) 'org-publish-org-to-html)) + (index-p (plist-get plist :auto-index)) + (index-filename (or (plist-get plist :index-filename) "index.org")) + (index-function (or (plist-get plist :index-function) 'org-publish-org-index)) + (preparation-function (plist-get plist :preparation-function)) + (f nil)) + ;; + (when preparation-function + (funcall preparation-function)) + (if index-p + (funcall index-function plist index-filename)) + (let ((files (org-publish-get-base-files plist exclude-regexp))) + (while (setq f (pop files)) + ;; check timestamps + (when (org-publish-needed-p f) + (if (listp publishing-function) + ;; allow chain of publishing functions + (mapc (lambda (func) + (funcall func plist f)) + publishing-function) + (funcall publishing-function plist f)) + (org-publish-update-timestamp f)))))) + + +(defun org-publish-org-index (plist &optional index-filename) + "Create an index of pages in set defined by PLIST. +Optionally set the filename of the index with INDEX-FILENAME; +default is 'index.org'." + (let* ((dir (file-name-as-directory (plist-get plist :base-directory))) + (exclude-regexp (plist-get plist :exclude)) + (files (org-publish-get-base-files plist exclude-regexp)) + (index-filename (concat dir (or index-filename "index.org"))) + (index-buffer (find-buffer-visiting index-filename)) + (ifn (file-name-nondirectory index-filename)) + (f nil)) + ;; + ;; if buffer is already open, kill it to prevent error message + (if index-buffer + (kill-buffer index-buffer)) + (with-temp-buffer + (while (setq f (pop files)) + (let ((fn (file-name-nondirectory f))) + (unless (string= fn ifn) ;; index shouldn't index itself + (insert (concat " + [[file:" fn "][" + (file-name-sans-extension fn) + "]]\n"))))) + (write-file index-filename) + (kill-buffer (current-buffer))))) + + +;(defun org-publish-meta-index (meta-plist &optional index-filename) +; "Create an index for a metaproject." +; (let* ((plists ( + + +;;;; Interactive publishing functions + + +;;;###autoload +(defun org-publish (project-name &optional force) + "Publish the project PROJECT-NAME." + (interactive (list (completing-read "Project name: " org-publish-project-alist + nil t) + current-prefix-arg)) + (save-window-excursion + (let ((org-publish-use-timestamps-flag (if force nil t)) + (plists (org-publish-get-plists project-name))) + (mapcar 'org-publish-plist plists)))) + + +;;;###autoload +(defun org-publish-current-project (&optional force) + "Publish the project associated with the current file. +With prefix argument, force publishing all files in project." + (interactive "P") + (save-window-excursion + (let* ((project-name (org-publish-get-project-from-filename (buffer-file-name))) + (org-publish-use-timestamps-flag (if force nil t))) + (if (not project-name) + (error (format "File %s is not part of any known project." (buffer-file-name)))) + (org-publish project-name)))) + + +;;;###autoload +(defun org-publish-current-file (&optional force) + "Publish the current file. +With prefix argument, force publish the file." + (interactive "P") + (save-window-excursion + (let ((org-publish-use-timestamps-flag + (if force nil t))) + (org-publish-file (buffer-file-name))))) + + +;;;###autoload +(defun org-publish-all (&optional force) + "Publish all projects. +With prefix argument, force publish all files." + (interactive "P") + (save-window-excursion + (let ((org-publish-use-timestamps-flag + (if force nil t)) + (plists (org-publish-get-plists))) + (mapcar 'org-publish-plist plists)))) + + + +(provide 'org-publish) +;;; org-publish.el ends here From c039ea1df401b97ec9233613ce1cacefd1065ce5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:30:19 +0000 Subject: [PATCH 123/276] (org-cycle): Fix typo in docstring. --- lisp/ChangeLog | 10 ++++++++-- lisp/textmodes/org.el | 8 ++++---- 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 249d6108e7a..0bcec517918 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,13 @@ +2007-06-06 Juanma Barranquero + + * pgg.el (pgg-sign-region, pgg-sign): + * ses.el (ses-call-printer): + * calendar/icalendar.el (icalendar--diarytime-to-isotime): + * textmodes/org.el (org-cycle): Fix typos in docstrings. + 2007-06-06 Carsten Dominik - * textmodes/org.el: + * textmodes/org.el (org-export-region-as-html, org-replace-region-by-html) (org-number-to-letters, org-table-fedit-finish) (org-normalize-color, org-table-fedit-ref-right) @@ -107,7 +114,6 @@ (org-read-date): Match am/pm times. (org-eval-in-calendar): Fix default date in prompt. - 2007-06-05 Chong Yidong * files.el (auto-mode-alist): Separate "ChangeLog.1" and diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 2758f12a17f..9a6ab7f6ea4 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -4378,8 +4378,8 @@ between words." `indent-relative', like TAB normally does. See the option `org-cycle-emulate-tab' for details. -- Special case: if point is the the beginning of the buffer and there is - no headline in line 1, this function will act as if called with prefix arg." +- Special case: if point is the beginning of the buffer and there is no + headline in line 1, this function will act as if called with prefix arg." (interactive "P") (let* ((outline-regexp (if (and (org-mode-p) org-cycle-include-plain-lists) @@ -14630,7 +14630,7 @@ priority-n The computed numerical priority" (set-buffer "*Org Agenda*") (while files (eval (list 'let (append org-agenda-exporter-settings opts pars) - (list 'org-write-agenda + (list 'org-write-agenda (expand-file-name (pop files) dir) t))))) (kill-buffer org-agenda-buffer-name))))) @@ -15064,7 +15064,7 @@ dates." (setq day-numbers (delq nil (mapcar (lambda(x) (if (>= x today) x nil)) day-numbers)))) - (org-prepare-agenda (concat "Timeline " + (org-prepare-agenda (concat "Timeline " (file-name-nondirectory buffer-file-name))) (if doclosed (push :closed args)) (push :timestamp args) From 61eefda8bfd754a0fd725786f81041d413f9ed8b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:32:35 +0000 Subject: [PATCH 124/276] (erc-show-channel-key-p): Fix typo in docstring. --- lisp/erc/ChangeLog | 4 ++++ lisp/erc/erc.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 70ffa4ede48..eec2478b162 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Juanma Barranquero + + * erc.el (erc-show-channel-key-p): Fix typo in docstring. + 2007-04-01 Michael Olson * erc.el (erc-version-string): Release ERC 5.2. diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 37c2c2e0883..72442de9f95 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -5756,7 +5756,7 @@ Otherwise, use the `erc-header-line' face." (function :tag "Call a function"))) (defcustom erc-show-channel-key-p t - "Show the the channel key in the header line." + "Show the channel key in the header line." :group 'erc-paranoia :type 'boolean) From 8c0dd5772bf8c3d2a05dda9d81e5e27b284c8bbf Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:40:19 +0000 Subject: [PATCH 125/276] (gnus-summary-highlight): Fix typo in docstring. --- lisp/gnus/ChangeLog | 30 +++++++++++++++++------------- lisp/gnus/gnus-sum.el | 4 ++-- 2 files changed, 19 insertions(+), 15 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 93c860812c5..cf8d226a1a1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Juanma Barranquero + + * gnus-sum.el (gnus-summary-highlight): Fix typos in docstring. + 2007-06-04 Katsumi Yamaoka * gnus-art.el (gnus-mime-view-part-externally) @@ -364,7 +368,7 @@ (message-simplify-subject): New function to remove duplicate code. (message-reply, message-followup): Use it. (message-simplify-subject-functions): New variable. - (message-strip-subject-encoded-words): New function + (message-strip-subject-encoded-words): New function. 2006-11-08 Wolfgang Jenkner (tiny change) @@ -1204,8 +1208,7 @@ * mm-view.el (mm-fill-flowed): New variable. (mm-inline-text): Use it. -2006-02-21 Wolfram Fenske - (tiny change) +2006-02-21 Wolfram Fenske (tiny change) * nnimap.el (nnimap-request-move-article): Change folder back to source group before deleting. @@ -1767,7 +1770,7 @@ (pgg-pgp5-sign-region, pgg-pgp5-sign): Add optional 'passphrase' argument to all these routines, so the passphrase can be managed externally and passed in to the system. - (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache + (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache function. 2005-10-29 Ken Manheimer @@ -3642,7 +3645,7 @@ * nnmail.el (nnmail-split-fancy-with-parent-ignore-groups) (nnmail-cache-ignore-groups, nnmail-spool-hook) (nnmail-split-fancy-match-partial-words) - (nnmail-split-lowercase-expanded): + (nnmail-split-lowercase-expanded): Add :version. * nndiary.el (nndiary): Add :version. @@ -3918,7 +3921,7 @@ * gnus-int.el (gnus-request-delete-group): Use gnus-cache-delete-group and gnus-agent-delete-group to keep the local disk in sync with the server. - (gnus-request-rename-group): + (gnus-request-rename-group): Use gnus-cache-rename-group and gnus-agent-rename-group to keep the local disk in sync with the server. @@ -4045,7 +4048,7 @@ * gnus-sum.el (gnus-select-newgroup): Replace inline code with gnus-agent-possibly-alter-active. - (gnus-adjust-marked-articles): Faster handling of simple lists + (gnus-adjust-marked-articles): Faster handling of simple lists. 2004-10-18 David Edmondson @@ -4188,7 +4191,7 @@ * gnus-fun.el: Require gnus-ems and gnus-util. - * gnus-diary.el (gnus-diary-header-schedule): caddr -> car (cddr + * gnus-diary.el (gnus-diary-header-schedule): caddr -> car (cddr). * gnus-art.el (gnus-article-edit-mode): Define before first reference. @@ -4271,6 +4274,7 @@ * nnmail.el (nnmail-fancy-expiry-targets) (nnmail-mail-splitting-charset, nnmail-mail-splitting-decodes): + Add :version. * nnimap.el (nnimap-split-download-body, nnimap-dont-close) (nnimap-retrieve-groups-asynchronous): Add :version. @@ -4279,7 +4283,7 @@ * mml.el (mml-content-disposition-parameters) (mml-insert-mime-headers-always): Add :version. - * mm-util.el (mm-coding-system-priorities): + * mm-util.el (mm-coding-system-priorities): Add :version. * mm-decode.el (mm-inline-text-html-with-images) (mm-keep-viewer-alive-types, mm-external-terminal-program) @@ -4336,7 +4340,7 @@ * gnus-srvr.el (gnus-server-browse-in-group-buffer) (gnus-server-offline-face): Add :version. - * gnus-score.el (gnus-adaptive-word-length-limit): + * gnus-score.el (gnus-adaptive-word-length-limit): Add :version. * gnus-msg.el (gnus-gcc-externalize-attachments) (gnus-debug-files, gnus-debug-exclude-variables) @@ -4358,7 +4362,7 @@ * gnus-delay.el (gnus-delay-default-hour): Add :version. * gnus-cite.el (gnus-cite-blank-line-after-header) - (gnus-article-boring-faces): + (gnus-article-boring-faces): Add :version. * gnus-art.el (gnus-buttonized-mime-types) (gnus-inhibit-mime-unbuttonizing) @@ -4422,10 +4426,10 @@ 2004-09-10 Teodor Zlatanov * nnimap.el (nnimap-open-connection): Allow 'imaps' as a synonym - for the 'imap' port in netrc files + for the 'imap' port in netrc files. * gnus-registry.el (gnus-registry-trim): Watch out for negatives - in gnus-registry-trim + in gnus-registry-trim. 2004-09-10 Simon Josefsson diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 5653c8be746..b1b6c8b760b 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -973,14 +973,14 @@ automatically when it is selected." . gnus-summary-normal-read)) "*Controls the highlighting of summary buffer lines. -A list of (FORM . FACE) pairs. When deciding how a a particular +A list of (FORM . FACE) pairs. When deciding how a particular summary line should be displayed, each form is evaluated. The content of the face field after the first true form is used. You can change how those summary lines are displayed, by editing the face field. You can use the following variables in the FORM field. -score: The article's score +score: The article's score. default: The default article score. default-high: The default score for high scored articles. default-low: The default score for low scored articles. From a1ba2c6a343f81aa729157f7d5dcb70ef4dfe43b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:42:04 +0000 Subject: [PATCH 126/276] (mh-mh-directive-present-p): Fix typo in docstring. --- lisp/mh-e/mh-mime.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index 0f2b7daa741..56cfc6544ce 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -1667,7 +1667,7 @@ This action can be undone by running \\[undo]." (defun mh-mh-directive-present-p (&optional begin end) "Check if the text between BEGIN and END might be a MH-style directive. The optional argument BEGIN defaults to the beginning of the -buffer, while END defaults to the the end of the buffer." +buffer, while END defaults to the end of the buffer." (unless begin (setq begin (point-min))) (unless end (setq end (point-max))) (save-excursion From 643ecf9cf1e7a0c474686a07050344727ff1920f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:42:48 +0000 Subject: [PATCH 127/276] (mh-index-group-by-folder): Fix typo in docstring. --- lisp/mh-e/mh-search.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el index 715556ad16d..ebd45aef6a6 100644 --- a/lisp/mh-e/mh-search.el +++ b/lisp/mh-e/mh-search.el @@ -1357,7 +1357,7 @@ record is invalid return 'error." ;;;###mh-autoload (defun mh-index-group-by-folder () "Partition the messages based on source folder. -Returns an alist with the the folder names in the car and the cdr +Returns an alist with the folder names in the car and the cdr being the list of messages originally from that folder." (save-excursion (goto-char (point-min)) From 481821c8a9b2b71a12414f1efc5676f9a6618e81 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:53:27 +0000 Subject: [PATCH 128/276] *** empty log message *** --- lisp/mh-e/ChangeLog | 134 +++++++++++++++++++++++--------------------- 1 file changed, 69 insertions(+), 65 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 8b122f89b49..3d3a08e0528 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2007-06-06 Juanma Barranquero + + * mh-mime.el (mh-mh-directive-present-p): + * mh-search.el (mh-index-group-by-folder): Fix typos in docstrings. + 2006-11-14 Bill Wohler * mh-xface.el (mh-x-image-url-cache-canonicalize): Add `*' to @@ -10,7 +15,7 @@ * mh-e.el (Version, mh-version): Update for release 8.0.3. * mh-e.el (mh-alias-local-users): Boolean docstrings should start - with "Non-nil means". Perhaps this option should have a -flag + with "Non-nil means". Perhaps this option should have a -flag appended. (mh-junk-background): Sync docstring with manual. @@ -62,7 +67,7 @@ * mh-tool-bar.el (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the icons in mh-xemacs-icon-map instead of trying to declare the icons in situ. This allows mh-tool-bar.el to be - compiled under XEmacs. Remove initial value for + compiled under XEmacs. Remove initial value for mh-tool-bar-folder-buttons, mh-tool-bar-show-buttons, mh-tool-bar-letter-buttons. The MH-E icons now appear in XEmacs. In mh-tool-bar-init, check for mh-xemacs-use-tool-bar-flag sooner. @@ -133,7 +138,7 @@ 2006-04-26 Eric Ding * mh-e.el (mh-invisible-header-fields-internal): Add entry - "X-Provags-ID:" + "X-Provags-ID:". 2006-04-25 Bill Wohler @@ -155,9 +160,9 @@ * mh-letter.el (mh-insert-letter): If a message number isn't given, throw an error rather than using a potentially incorrect - message number (closes SF #1473729). In addition, use the cur + message number (closes SF #1473729). In addition, use the cur message if mh-sent-from-msg is nil (when sending a message, in - contrast to replying). Move conversion of int to string into + contrast to replying). Move conversion of int to string into interactive stanza so body can assume variables are of proper type. @@ -177,15 +182,15 @@ (mh-tool-bar-folder-buttons-set, mh-tool-bar-letter-buttons-set): Call it (closes SF #1452718). - * mh-folder.el (mh-folder-buttons-init-flag): Delete. Use + * mh-folder.el (mh-folder-buttons-init-flag): Delete. Use mh-folder-tool-bar-map instead. - (image-load-path): Delete. No longer used. + (image-load-path): Delete. No longer used. (mh-folder-mode): Moved setting of image-load-path into mh-tool-bar-folder-buttons-init. - * mh-letter.el (mh-letter-buttons-init-flag): Delete. Use + * mh-letter.el (mh-letter-buttons-init-flag): Delete. Use mh-letter-tool-bar-map instead. - (image-load-path): Delete. No longer used. + (image-load-path): Delete. No longer used. (mh-letter-mode): Moved setting of image-load-path into mh-tool-bar-letter-buttons-init. @@ -202,10 +207,10 @@ * mh-e.el (defcustom-mh, defface-mh, defgroup-mh, mh-face-data) (mh-strip-package-version, mh-face-data, mh-inherit-face-flag) (mh-min-colors-defined-flag): Do not unbind these macros and - variables. Nice idea, but too many nasty side-effects. These + variables. Nice idea, but too many nasty side-effects. These macros are needed by [Cc]ustom-make-dependencies when creating the - MH-E customization groups in mh-cus-load.el. These disappeared - when the macros above were introduced. Besides, if a developer + MH-E customization groups in mh-cus-load.el. These disappeared + when the macros above were introduced. Besides, if a developer were to try to show the help for a macro or variable they were looking at and got [No match] when they did so, that would be bad. @@ -218,11 +223,11 @@ variables and functions with the same name are found correctly by find-func (invoked by clicking on the filename link in the *Help* buffer). - (mh-defmacro-compat): Rename to defmacro-mh. Ditto. + (mh-defmacro-compat): Rename to defmacro-mh. Ditto. - * mh-e.el: (mh-defgroup): Rename to defgroup-mh. Ditto. - (mh-defcustom): Rename to defcustom-mh. Ditto. - (mh-defface): Rename to defface-mh. Ditto. + * mh-e.el (mh-defgroup): Rename to defgroup-mh. Ditto. + (mh-defcustom): Rename to defcustom-mh. Ditto. + (mh-defface): Rename to defface-mh. Ditto. (mh-font-lock-add-keywords): Make changes according to these renamings. @@ -232,11 +237,11 @@ * mh-utils.el (mh-sub-folders-actual): Mention that folder must have been processed by mh-normalize-folder-name. (mh-folder-completion-function): Handle completion of folders with - absolute names. Also, when flag is t, display complete folder name + absolute names. Also, when flag is t, display complete folder name to provide proper highlighting in Emacs 22 now that minibuffer-completing-file-name is nil (closes SF #1470518). (mh-folder-completing-read): No longer set - minibuffer-completing-file-name to t. This was causing "Can't set + minibuffer-completing-file-name to t. This was causing "Can't set current directory errors" when browsing absolute file names. Another benefit of this change is that SPC can be used for completion again (closes SF #1470518). @@ -256,9 +261,9 @@ * mh-show.el (font-lock-auto-fontify): Ditto. - * mh-utils.el (mh-speed-flists-cache): Ditto + * mh-utils.el (mh-speed-flists-cache): Ditto. - * mh-acros.el (struct, x, y): No need to wrap defvar with + * mh-acros.el (struct, x, y): No need to wrap defvar with eval-when-compile when shushing compiler, even when mh-do-in-xemacs or another construct is used. @@ -287,7 +292,7 @@ * mh-xface.el (default-enable-multibyte-characters): Ditto. * mh-compat.el (mh-font-lock-add-keywords): New alias for - font-lock-add-keywords. Returns nil on XEmacs. + font-lock-add-keywords. Returns nil on XEmacs. * mh-e.el: Add MH-E function and variable keywords such as mh-defun-compat and mh-defcustom to font-lock-keywords. @@ -297,7 +302,7 @@ * mh-e.el (customize-package-emacs-version-alist) (mh-e, mh-alias, mh-folder, mh-folder-selection) (mh-identity, mh-inc, mh-junk, mh-letter, mh-ranges) - (mh-scan-line-formats, mh-search, mh-sending-mail, ) + (mh-scan-line-formats, mh-search, mh-sending-mail) (mh-sequences, mh-show, mh-speedbar, mh-thread, mh-tool-bar) (mh-hooks, mh-faces, mh-alias-completion-ignore-case-flag) (mh-alias-expand-aliases-flag, mh-alias-flash-on-comma) @@ -307,7 +312,7 @@ (mh-new-messages-folders, mh-ticked-messages-folders) (mh-large-folder, mh-recenter-summary-flag) (mh-recursive-folders-flag, mh-sortm-args) - (mh-default-folder-for-message-function, ) + (mh-default-folder-for-message-function) (mh-default-folder-list, mh-default-folder-must-exist-flag) (mh-default-folder-prefix, mh-identity-list) (mh-auto-fields-list, mh-auto-fields-prompt-flag) @@ -320,18 +325,18 @@ (mh-extract-from-attribution-verb, mh-ins-buf-prefix) (mh-letter-complete-function, mh-letter-fill-column) (mh-mml-method-default, mh-signature-file-name) - (mh-signature-separator-flag, mh-x-face-file, ) + (mh-signature-separator-flag, mh-x-face-file) (mh-yank-behavior, mh-interpret-number-as-range-flag) (mh-adaptive-cmd-note-flag, mh-scan-format-file, mh-scan-prog) (mh-search-program, mh-compose-forward-as-mime-flag) (mh-compose-letter-function, mh-compose-prompt-flag) (mh-forward-subject-format, mh-insert-x-mailer-flag) (mh-redist-full-contents-flag, mh-reply-default-reply-to) - (mh-reply-show-message-flag, ) + (mh-reply-show-message-flag) (mh-refile-preserves-sequences-flag, mh-tick-seq) (mh-update-sequences-after-mh-show-flag) (mh-bury-show-buffer-flag, mh-clean-message-header-flag) - (mh-decode-mime-flag, ) + (mh-decode-mime-flag) (mh-display-buttons-for-alternatives-flag) (mh-display-buttons-for-inline-parts-flag) (mh-do-not-confirm-flag, mh-fetch-x-image-url) @@ -348,8 +353,7 @@ (mh-alias-reloaded-hook, mh-before-commands-processed-hook) (mh-before-quit-hook, mh-before-send-letter-hook) (mh-delete-msg-hook, mh-find-path-hook, mh-folder-mode-hook) - (mh-forward-hook, mh-inc-folder-hook, ) - (mh-insert-signature-hook, ) + (mh-forward-hook, mh-inc-folder-hook, mh-insert-signature-hook) (mh-kill-folder-suppress-prompt-hooks, mh-letter-mode-hook) (mh-mh-to-mime-hook, mh-search-mode-hook, mh-quit-hook) (mh-refile-msg-hook, mh-show-hook, mh-show-mode-hook) @@ -361,7 +365,7 @@ (mh-letter-header-field, mh-search-folder, mh-show-cc) (mh-show-date, mh-show-from, mh-show-header, mh-show-pgg-bad) (mh-show-pgg-good, mh-show-pgg-unknown, mh-show-signature) - (mh-show-subject, mh-show-to, mh-show-xface, ) + (mh-show-subject, mh-show-to, mh-show-xface) (mh-speedbar-folder, mh-speedbar-folder-with-unseen-messages) (mh-speedbar-selected-folder) (mh-speedbar-selected-folder-with-unseen-messages): Use dotted @@ -375,7 +379,7 @@ 2006-03-31 Bill Wohler * mh-e.el (mh-strip-package-version): Move before use to avoid - compiler error. Make macro, also to avoid compiler error. + compiler error. Make macro, also to avoid compiler error. (mh-defface-compat): Incorporate body into mh-face-data and delete. @@ -474,7 +478,7 @@ MH-Letter mode, move save-buffer and mh-fully-kill-draft icons in front of mh-compose-insertion to be consistent with other mailers, such as Evolution. In MH-Folder mode, move vanilla reply icon to - the left of the other reply icons. Use mail/inbox icon instead of + the left of the other reply icons. Use mail/inbox icon instead of mail, next-page instead of page-down, delete instead of close, mail/move instead of mail/refile, data-save instead of execute, mail/flag-for-followup instead of highlight, contact instead of @@ -513,7 +517,7 @@ 2006-03-15 Bill Wohler * mh-compat.el (mh-image-load-path-for-library): Fix example by - not recommending that one binds image-load-path. Just defvar it to + not recommending that one binds image-load-path. Just defvar it to placate compiler and only use it if previously defined. * mh-e.el (image-load-path): Don't bind! @@ -551,11 +555,11 @@ 2006-03-10 Bill Wohler * mh-compat.el (mh-replace-regexp-in-string): Pass the literal - flag to replace-in-string. This was badly needed by + flag to replace-in-string. This was badly needed by mh-quote-pick-expr in order to properly quote subjects when using / s on XEmacs (closes SF #1447598). - (mh-image-load-path-for-library): Merged changes from Reiner. Add - no-error argument. If path t, just return directory. + (mh-image-load-path-for-library): Merged changes from Reiner. Add + no-error argument. If path t, just return directory. * mh-e.el (mh-profile-component): Drop `s' from mhparam -components for Mailutils compatibility (closes SF #1446985). @@ -598,11 +602,11 @@ (mh-sub-folders): Use new flag to mh-normalize-folder-name to make this function more robust. It could too easily list the folders in /. (mh-folder-list): Fix a couple of problems pointed out by Thomas - Baumann. Set folder to nil if empty. Don't append "/" if folder nil. + Baumann. Set folder to nil if empty. Don't append "/" if folder nil. 2006-03-03 Bill Wohler - * mh-folder.el (mh-folder-mode): Rename mh-image-load-path to + * mh-folder.el (mh-folder-mode): Rename mh-image-load-path to mh-image-load-path-for-library. * mh-letter.el (mh-letter-mode): Rename mh-image-load-path to @@ -689,7 +693,7 @@ 2006-02-21 Eric Ding * mh-e.el (mh-invisible-header-fields-internal): Add entry - "X-Sasl-enc:" + "X-Sasl-enc:". 2006-02-20 Eric Ding @@ -958,7 +962,7 @@ * mh-comp.el (mh-send-sub): Don't find components file in current directory--this seems to have been a side-effect of commenting out - the use of an old mh-etc variable. Improve error message. + the use of an old mh-etc variable. Improve error message. 2006-01-31 Bill Wohler @@ -979,7 +983,7 @@ (mh-display-completion-list): Move here from mh-comp.el. (mh-face-foreground, mh-face-background): Move here from mh-xface.el. - (mh-write-file-functions): Move here from mh-folder.el + (mh-write-file-functions): Move here from mh-folder.el. * mh-folder.el (mh-write-file-functions-compat): Move to mh-compat.el and rename to mh-write-file-functions. @@ -1042,7 +1046,7 @@ mh-adaptive-cmd-note-flag. * mh-comp.el (sc-cite-original): Remove autoload of "sc" with old - docstring. sc-cite-original is autoloaded via loaddefs.el for all + docstring. sc-cite-original is autoloaded via loaddefs.el for all supported versions. In addition, the package name "sc" has been made obsolete by "supercite since at least Emacs 21. @@ -1323,7 +1327,7 @@ * mh-exec.el: Move content into mh-e.el and remove. - * mh-folder.el: New file. Contains mh-folder-mode from mh-e.el. + * mh-folder.el: New file. Contains mh-folder-mode from mh-e.el. * mh-funcs.el (mh-note-copied, mh-note-printed): Move to new file mh-scan.el. @@ -1368,7 +1372,7 @@ * mh-print.el: Rearrange for consistency with other files. - * mh-scan.el: New file. Contains scan line constants and utilities + * mh-scan.el: New file. Contains scan line constants and utilities from XXX, mh-funcs, mh-utils.el. * mh-search.el: Rearrange for consistency with other files. @@ -1565,7 +1569,7 @@ * mh-comp.el (mh-pgp-support-flag): Move here from mh-utils.el; needed to help remove dependency on mh-utils. - * mh-exec.el: New file. Move process support routines here from + * mh-exec.el: New file. Move process support routines here from mh-utils.el. * mh-init.el (mh-utils): Remove require. @@ -1612,7 +1616,7 @@ (mh-kill-folder-suppress-prompt-hooks): Rename mh-index-p to mh-search-p. (mh-search-mode-hook): Change group from mh-index to mh-search. - (mh-index-folder): Rename to mh-search-folder. Change group from + (mh-index-folder): Rename to mh-search-folder. Change group from mh-index to mh-search. * mh-e.el (mh-folder-font-lock-keywords): Rename mh-index-folder @@ -1667,7 +1671,7 @@ 2006-01-12 Bill Wohler * mh-search.el: New file containing contents of mh-index.el and - mh-pick.el. C-c C-c launches your mh-index-program; C-c C-p runs + mh-pick.el. C-c C-c launches your mh-index-program; C-c C-p runs pick. Pick no longer sets the "search" sequence. Instead, it brings up a folder view that we're accustomed to. (Closes SF #829207.) @@ -1722,13 +1726,13 @@ * mh-utils.el (mh-x-image-url-cache-canonicalize): Use url-hexify-string to remove special characters from filenames - (closes SF #1396499). Note that this invalidates the existing + (closes SF #1396499). Note that this invalidates the existing names in your cache so you might as well remove ~/Mail/.mhe-x-image-cache/* now. (url-unreserved-chars, url-hexify-string): Define if not defined. Copied from url-util.el in Emacs22 for Emacs 21. - * mh-buffers.el: New file. Contains constants and code from + * mh-buffers.el: New file. Contains constants and code from mh-index.el and mh-utils.el. * mh-alias.el: @@ -1758,7 +1762,7 @@ 2006-01-10 Bill Wohler * mh-comp.el (mh-insert-letter): If you choose a different folder, - the cur message is used. Sync docstring with manual (closes SF + the cur message is used. Sync docstring with manual (closes SF #1205890). * mh-mime.el (mh-compose-forward): Use standard range argument @@ -1776,7 +1780,7 @@ use function mh-variants instead. (mh-variant-info, mh-variant-mh-info, mh-variant-mu-mh-info) (mh-variant-nmh-info): Co-locate next to mh-variants, which uses - them. Updated to use mh-file-command-p which is more accurrate + them. Updated to use mh-file-command-p which is more accurrate than file-executable-p which returns t for directories. (mh-file-command-p): Move here from mh-utils, since mh-variant-*-info are the only functions to use it. @@ -1962,8 +1966,8 @@ * mh-customize.el (mh-folder-msg-number): Snow is actually off-white on low color displays which turns to white when bold. - This is unreadable on white backgrounds. Use snow with min-colors - requirement. Use cyan on low-color displays. + This is unreadable on white backgrounds. Use snow with min-colors + requirement. Use cyan on low-color displays. * mh-init.el (mh-defface-compat): On low-color displays, delete the high-color display rather than simply strip the min-colors @@ -1976,13 +1980,13 @@ 2006-01-02 Bill Wohler * mh-alias.el (mh-alias-grab-from-field): Remove leading * from - docstring. Does this mean something in a defun? + docstring. Does this mean something in a defun? * mh-customize.el (bw-new-face-to-old, bw-old-face-to-new): Checkdoc fix. * mh-e.el (mh-inc-folder): Rename maildrop-name argument to file - so it reads better in docstring and manual. Sync docstring with + so it reads better in docstring and manual. Sync docstring with manual. * mh-init.el (mh-defface-compat): Remove trailing space (checkdoc). @@ -2004,7 +2008,7 @@ * mh-e.el (mh-refile-or-write-again, mh-toggle-showing): Ditto. * mh-funcs.el (mh-pipe-msg, mh-sort-folder, mh-undo-folder) - (mh-store-msg, mh-store-buffer): Ditto + (mh-store-msg, mh-store-buffer): Ditto. * mh-index.el (mh-index-search, mh-index-do-search) (mh-index-next-folder, mh-index-sequenced-messages): Ditto. @@ -2014,7 +2018,7 @@ * mh-mime.el (mh-mh-compose-external-compressed-tar) (mh-mh-compose-external-type, mh-mh-to-mime, mh-mh-to-mime-undo) (mh-mml-secure-message-sign, mh-mml-secure-message-encrypt) - (mh-mml-secure-message-signencrypt): Ditto + (mh-mml-secure-message-signencrypt): Ditto. * mh-pick.el (mh-search-folder): Ditto. @@ -2068,7 +2072,7 @@ (mh-scan-date-regexp, mh-scan-rcpt-regexp, mh-scan-body-regexp) (mh-scan-subject-regexp): Sync docstrings with manual (mh-scan-format-regexp): Rename to - mh-scan-sent-to-me-sender-regexp. Drop date parenthesized + mh-scan-sent-to-me-sender-regexp. Drop date parenthesized expression. Make expression more like the others (anchored at the beginning of line). Sync docstrings with manual. (mh-folder-font-lock-keywords): Use faces directly rather than @@ -2228,7 +2232,7 @@ (mh-tool-bar-define): Replace toolbar with tool-bar or tool bar depending on context. (mh-toolbar-init): Rename to mh-tool-bar-init. Simplify condition - for calling set-specifier. Only look at the value of + for calling set-specifier. Only look at the value of mh-xemacs-use-tool-bar-flag. (mh-tool-bar-folder-buttons, mh-tool-bar-letter-buttons): Sync docstrings with manual. @@ -2501,7 +2505,7 @@ msg argument to message (to make for a better docstring). * mh-customize.el (mh-redist-full-contents-flag): Convert defvar - to defcustom. Rename by adding -flag. + to defcustom. Rename by adding -flag. (mh-compose-forward-as-mime-flag) (mh-compose-letter-function, mh-forward-subject-format) (mh-insert-x-mailer-flag, mh-reply-default-reply-to) @@ -2623,10 +2627,10 @@ Sync docstring with manual. * mh-identity.el (mh-assoc-ignore-case): Merge with version in - mh-alias.el and move to mh-acros.el + mh-alias.el and move to mh-acros.el. * mh-alias.el (mh-assoc-ignore-case): Merge with version in - mh-identity.el and move to mh-acros.el + mh-identity.el and move to mh-acros.el. * mh-acros.el (mh-assoc-ignore-case): Merge of function from mh-identity.el and mh-alias.el. @@ -2667,15 +2671,15 @@ mh-mhn-compose-external-compressed-tar to mh-mh-compose-external-compressed-tar. Rename mh-mhn-compose-anon-ftp to mh-mh-compose-anon-ftp. Rename - mh-edit-mhn to mh-mh-to-mime. Rename mh-mhn-directive-present-p to - mh-mh-directive-present-p. Rename mh-revert-mhn-edit to + mh-edit-mhn to mh-mh-to-mime. Rename mh-mhn-directive-present-p to + mh-mh-directive-present-p. Rename mh-revert-mhn-edit to mh-mh-to-mime-undo. Rename mh-gnus-pgp-support-flag to mh-pgp-support-flag. Rename mh-compose-insertion value from 'mhn to 'mh. (mh-insert-signature): Rename mh-mhn-directive-present-p to mh-mh-directive-present-p. (mh-send-letter): Rename mh-mhn-directive-present-p to - mh-mh-directive-present-p. Rename mh-edit-mhn to mh-mh-to-mime. + mh-mh-directive-present-p. Rename mh-edit-mhn to mh-mh-to-mime. (mh-letter-mode-map): Rename mh-edit-mhn to mh-mh-to-mime. Rename mh-mhn-compose-anon-ftp to mh-mh-compose-anon-ftp. Rename mh-mhn-compose-external-compressed-tar to @@ -2829,7 +2833,7 @@ * mh-e.el (Version, mh-version): Add +cvs to version. -2005-10-14 Bill Wohler +2005-10-14 Bill Wohler Released MH-E version 7.85. From cfab84062d480fd086279c8db6b828e0d57080eb Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:57:02 +0000 Subject: [PATCH 129/276] (Article Buttons): Fix typo. --- man/gnus.texi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/man/gnus.texi b/man/gnus.texi index dc02efa766f..3277a2c7efe 100644 --- a/man/gnus.texi +++ b/man/gnus.texi @@ -8936,7 +8936,7 @@ This variable determines what to do when the button on a string as message ID or a mail address. If it is one of the symbols @code{mid} or @code{mail}, Gnus will always assume that the string is a message ID or a mail address, respectively. If this variable is set to the symbol -@code{ask}, always query the user what do do. If it is a function, this +@code{ask}, always query the user what to do. If it is a function, this function will be called with the string as its only argument. The function must return @code{mid}, @code{mail}, @code{invalid} or @code{ask}. The default value is the function @@ -16589,7 +16589,7 @@ Probably the only useful value to change this to is messages instead of the internal article date. See section 6.4.4 of RFC 2060 for more information on valid strings. -However, if @code{nnimap-search-uids-not-since-is-evil} +However, if @code{nnimap-search-uids-not-since-is-evil} is true, this variable has no effect since the search logic is reversed, as described below. From 5d7c2f7ad7a4be0c317fc9f5bd6fa17fd193be6d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:57:39 +0000 Subject: [PATCH 130/276] (Create Tags Table): Fix typo. --- man/maintaining.texi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/man/maintaining.texi b/man/maintaining.texi index c9e77ede2a1..988d5890b8c 100644 --- a/man/maintaining.texi +++ b/man/maintaining.texi @@ -409,8 +409,8 @@ source files, and the tags file will still refer correctly to the source files. If the tags file is in @file{/dev}, however, the file names are made relative to the current working directory. This is useful, for example, when writing the tags to @file{/dev/stdout}. - - When using a a relative file name, it should not be a symbolic link + + When using a relative file name, it should not be a symbolic link pointing to a tags file in a different directory, because this would generally render the file names invalid. From c855605e763b63e62bf5d3acd7be37378d6c2426 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 15:58:20 +0000 Subject: [PATCH 131/276] (Message Headers): Fix typo. --- man/message.texi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/man/message.texi b/man/message.texi index c843d8c58d9..eef4d77205a 100644 --- a/man/message.texi +++ b/man/message.texi @@ -1450,7 +1450,7 @@ responding to a message: @vindex message-subject-trailing-was-regexp Controls what to do with trailing @samp{(was: )} in subject lines. If @code{nil}, leave the subject unchanged. If it is the symbol -@code{ask}, query the user what do do. In this case, the subject is +@code{ask}, query the user what to do. In this case, the subject is matched against @code{message-subject-trailing-was-ask-regexp}. If @code{message-subject-trailing-was-query} is @code{t}, always strip the trailing old subject. In this case, From eaa284431f0f25052e877969ad28b4dd4756eab7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 16:07:19 +0000 Subject: [PATCH 132/276] (HTML): Fix typo. --- man/mh-e.texi | 200 +++++++++++++++++++++++++------------------------- 1 file changed, 100 insertions(+), 100 deletions(-) diff --git a/man/mh-e.texi b/man/mh-e.texi index 707e5e44b98..76697cbdcf5 100644 --- a/man/mh-e.texi +++ b/man/mh-e.texi @@ -132,64 +132,64 @@ Fifth Floor, Boston, MA 02110-1301, USA. Tour Through MH-E -* Sending Mail Tour:: -* Reading Mail Tour:: -* Processing Mail Tour:: -* Leaving MH-E:: -* More About MH-E:: +* Sending Mail Tour:: +* Reading Mail Tour:: +* Processing Mail Tour:: +* Leaving MH-E:: +* More About MH-E:: Using This Manual -* Options:: -* Ranges:: -* Folder Selection:: +* Options:: +* Ranges:: +* Folder Selection:: Reading Your Mail -* Viewing:: -* Viewing Attachments:: -* HTML:: -* Digests:: -* Reading PGP:: -* Printing:: -* Files and Pipes:: -* Navigating:: -* Miscellaneous Commands and Options:: +* Viewing:: +* Viewing Attachments:: +* HTML:: +* Digests:: +* Reading PGP:: +* Printing:: +* Files and Pipes:: +* Navigating:: +* Miscellaneous Commands and Options:: Sending Mail -* Composing:: -* Replying:: -* Forwarding:: -* Redistributing:: -* Editing Again:: +* Composing:: +* Replying:: +* Forwarding:: +* Redistributing:: +* Editing Again:: Editing a Draft -* Editing Message:: -* Inserting Letter:: -* Inserting Messages:: -* Signature:: -* Picture:: -* Adding Attachments:: -* Sending PGP:: -* Checking Recipients:: -* Sending Message:: -* Killing Draft:: +* Editing Message:: +* Inserting Letter:: +* Inserting Messages:: +* Signature:: +* Picture:: +* Adding Attachments:: +* Sending PGP:: +* Checking Recipients:: +* Sending Message:: +* Killing Draft:: Odds and Ends -* Bug Reports:: -* Mailing Lists:: -* MH FAQ and Support:: -* Getting MH-E:: +* Bug Reports:: +* Mailing Lists:: +* MH FAQ and Support:: +* Getting MH-E:: History of MH-E -* From Brian Reid:: -* From Jim Larus:: -* From Stephen Gildea:: -* From Bill Wohler:: +* From Brian Reid:: +* From Jim Larus:: +* From Stephen Gildea:: +* From Bill Wohler:: @end detailmenu @end menu @@ -360,7 +360,7 @@ mode (@pxref{Reading Mail Tour}). In this mode, simply enter the numerical argument before entering the command. @end quotation @sp 1 - + @cindex @file{.emacs} @cindex Emacs, variables @cindex files, @file{.emacs} @@ -415,7 +415,7 @@ Face Customization} in @cite{The GNU Emacs Manual}. @findex customize-option Commands often offer @dfn{hooks} which enable you to extend or modify -the way a command works. +the way a command works. @ifnothtml @ref{Hooks, , Hooks, emacs, The GNU Emacs Manual}, in @cite{The GNU Emacs Manual} @@ -673,11 +673,11 @@ use all the features of MH-E. I suggest you read this chapter first to get the big picture, and then you can read the manual as you wish. @menu -* Sending Mail Tour:: -* Reading Mail Tour:: -* Processing Mail Tour:: -* Leaving MH-E:: -* More About MH-E:: +* Sending Mail Tour:: +* Reading Mail Tour:: +* Processing Mail Tour:: +* Leaving MH-E:: +* More About MH-E:: @end menu @node Sending Mail Tour, Reading Mail Tour, Tour Through MH-E, Tour Through MH-E @@ -843,10 +843,10 @@ sending the original message, like this: @cartouche @smallexample -To: -cc: -Subject: Re: Test -In-reply-to: <31054.1142621351@@stop.mail-abuse.org> +To: +cc: +Subject: Re: Test +In-reply-to: <31054.1142621351@@stop.mail-abuse.org> References: <31054.1142621351@@stop.mail-abuse.org> Comments: In-reply-to Bill Wohler message dated "Fri, 17 Mar 2006 10:49:11 -0800." @@ -1161,9 +1161,9 @@ conflicts with existing MH-E symbols, use a prefix like @samp{my-} or your initials. (Unless, of course, your initials happen to be @emph{mh}!) @menu -* Options:: -* Ranges:: -* Folder Selection:: +* Options:: +* Ranges:: +* Folder Selection:: @end menu @node Options, Ranges, Using This Manual, Using This Manual @@ -2001,15 +2001,15 @@ The functions and variables introduced here are explained in more detail in the following sections. @menu -* Viewing:: -* Viewing Attachments:: -* HTML:: -* Digests:: -* Reading PGP:: -* Printing:: -* Files and Pipes:: -* Navigating:: -* Miscellaneous Commands and Options:: +* Viewing:: +* Viewing Attachments:: +* HTML:: +* Digests:: +* Reading PGP:: +* Printing:: +* Files and Pipes:: +* Navigating:: +* Miscellaneous Commands and Options:: @end menu @node Viewing, Viewing Attachments, Reading Mail, Reading Mail @@ -2047,7 +2047,7 @@ The option @code{mh-show-maximum-size} provides an opportunity to skip over large messages which may be slow to load. The default value of 0 means that all message are shown regardless of size. -A litany of options control what displayed messages look like. +A litany of options control what displayed messages look like. @vindex mh-show-cc @vindex mh-show-date @@ -2637,7 +2637,7 @@ the Gnus command @kbd{W h} (@pxref{Article Washing,,,gnus},). @end ifinfo @ifnotinfo see section @uref{http://www.gnus.org/manual/emacs-mime_6.html, -Display Customization} in the @cite{The Emacs MIME Manual} and the the +Display Customization} in the @cite{The Emacs MIME Manual} and the documentation for the Gnus command @kbd{W h} (see section @uref{http://www.gnus.org/manual/gnus_99.html, Article Washing} in the @cite{The Gnus Manual}). @@ -2808,7 +2808,7 @@ The latter is used whether the signature is unknown or untrusted. @cindex customization group, @samp{pgg} The @samp{pgg} customization group may have some settings which may -interest you. +interest you. @iftex See @cite{The PGG Manual}. @end iftex @@ -3942,11 +3942,11 @@ The functions and options introduced here are explained in more detail in the following sections. @menu -* Composing:: -* Replying:: -* Forwarding:: -* Redistributing:: -* Editing Again:: +* Composing:: +* Replying:: +* Forwarding:: +* Redistributing:: +* Editing Again:: @end menu @node Composing, Replying, Sending Mail, Sending Mail @@ -4686,16 +4686,16 @@ The commands and options introduced here are explained in more detail in the following sections. @menu -* Editing Message:: -* Inserting Letter:: -* Inserting Messages:: -* Signature:: -* Picture:: -* Adding Attachments:: -* Sending PGP:: -* Checking Recipients:: -* Sending Message:: -* Killing Draft:: +* Editing Message:: +* Inserting Letter:: +* Inserting Messages:: +* Signature:: +* Picture:: +* Adding Attachments:: +* Sending PGP:: +* Checking Recipients:: +* Sending Message:: +* Killing Draft:: @end menu @node Editing Message, Inserting Letter, Editing Drafts, Editing Drafts @@ -4795,7 +4795,7 @@ the alias expansion in the minibuffer if @code{mh-alias-flash-on-comma} is turned on. @c XXX Document the replacement for the inaccessible 'long argument. - + @findex mh-letter-toggle-header-field-display @kindex C-c C-t @@ -5543,7 +5543,7 @@ mechanisms include vanilla @samp{PGP} and @samp{S/MIME}. @cindex customization group, @samp{pgg} The @samp{pgg} customization group may have some settings which may -interest you. +interest you. @iftex See @cite{The PGG Manual}. @end iftex @@ -5954,7 +5954,7 @@ mh-alias-apropos} to show all aliases or addresses that match a regular expression @ifnothtml (@pxref{Regexps, , Syntax of Regular Expressions, emacs, The -GNU Emacs Manual}). +GNU Emacs Manual}). @end ifnothtml @ifhtml (see the section @@ -6104,7 +6104,7 @@ customize @code{mh-auto-fields-list}, click on the @samp{INS} button and enter a regular expression for the recipient's address @ifnothtml (@pxref{Regexps, , Syntax of Regular Expressions, emacs, The -GNU Emacs Manual}). +GNU Emacs Manual}). @end ifnothtml @ifhtml (see the section @@ -6142,7 +6142,7 @@ recipient is also listed there so that he receives replies to your reply. @c ------------------------- @item Other Field -Other header fields may be added using this menu item. +Other header fields may be added using this menu item. @end table @findex mh-insert-auto-fields @@ -6181,7 +6181,7 @@ added. To customize @code{mh-identity-handlers}, replace the name of an existing handler function associated with the field you want to change with the name of a function you have written. You can also click on an @samp{INS} button and insert a field of your choice and -the name of the function you have written to handle it. +the name of the function you have written to handle it. @vindex mh-identity-list @@ -6210,7 +6210,7 @@ containing the value for the field is given. @kindex M-x speedbar @kindex Mouse-2 -You can also use the speedbar +You can also use the speedbar @ifnothtml (@pxref{Speedbar, , Speedbar Frames, emacs, The GNU Emacs Manual},) @end ifnothtml @@ -6573,7 +6573,7 @@ There is one option from the @samp{mh-search} customization group used in searching. @vtable @code -@item mh-search-program +@item mh-search-program Search program that MH-E shall use (default: @samp{Auto-detect}). @end vtable @@ -7145,7 +7145,7 @@ Limit to messages with the same @samp{Cc:} field @c ------------------------- @kindex / m @findex mh-narrow-to-from -@item / m +@item / m Limit to messages with the same @samp{From:} field (@code{mh-narrow-to-from}). @c ------------------------- @@ -7635,7 +7635,7 @@ If you don't use @command{spamc}, use @samp{spamassassin -P -a}. Note that one of the recipes above throws away messages with a score greater than or equal to 10. Here's how you can determine a value that -works best for you. +works best for you. First, run @samp{spamassassin -t} on every mail message in your archive and use @command{gnumeric} to verify that the average plus the @@ -8579,10 +8579,10 @@ tell you how to report bugs and how to get on the MH-E mailing lists. I also point out some additional sources of information. @menu -* Bug Reports:: -* Mailing Lists:: -* MH FAQ and Support:: -* Getting MH-E:: +* Bug Reports:: +* Mailing Lists:: +* MH FAQ and Support:: +* Getting MH-E:: @end menu @node Bug Reports, Mailing Lists, Odds and Ends, Odds and Ends @@ -8713,10 +8713,10 @@ development to @uref{http://sourceforge.net/, SourceForge} where it lives today. @menu -* From Brian Reid:: -* From Jim Larus:: -* From Stephen Gildea:: -* From Bill Wohler:: +* From Brian Reid:: +* From Jim Larus:: +* From Stephen Gildea:: +* From Bill Wohler:: @end menu @node From Brian Reid, From Jim Larus, History, History @@ -9715,7 +9715,7 @@ Public License instead of this License. @c The following are words that ispell should ignore that would not @c normally be in a dictionary (global or personal). Be careful not to @c include words here that could potentially be typos of other words -@c (such as url, elisp, or MHE). +@c (such as url, elisp, or MHE). @c @c LocalWords: CTRL ESC SPC f's @c LocalWords: addr Aliasfile alist From 4601566370eb76dc2ea21b7502f1b4243568a381 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 16:18:32 +0000 Subject: [PATCH 133/276] *** empty log message *** --- man/ChangeLog | 53 +++++++++++++++++++++++++++++---------------------- 1 file changed, 30 insertions(+), 23 deletions(-) diff --git a/man/ChangeLog b/man/ChangeLog index d6ebb72db4b..1b8670fd19a 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,10 @@ +2007-06-06 Juanma Barranquero + + * gnus.texi (Article Buttons): + * maintaining.texi (Create Tags Table): + * message.texi (Message Headers): + * mh-e.texi (HTML): Fix typos. + 2007-05-28 Michael Albinus Sync with Tramp 2.0.56. @@ -15,12 +22,12 @@ 2007-05-09 Didier Verna - * gnus.texi (Email Based Diary): New. Proper documentation for the + * gnus.texi (Email Based Diary): New. Proper documentation for the nndiary back end and the gnus-diary library. 2007-05-07 Karl Berry - * emacs.texi (EMACSVER): back to 22. + * emacs.texi (EMACSVER): Back to 22. 2007-05-06 Richard Stallman @@ -39,9 +46,9 @@ * emacs.texi (EMACSVER) [smallbook]: 22 for printed version. - * .cvsignore (*.pdf): new entry. + * .cvsignore (*.pdf): New entry. - * texinfo.tex: update from current version for better pdf generation. + * texinfo.tex: Update from current version for better pdf generation. * emacs.texi (\urlcolor, \linkcolor) [smallbook]: \let to \Black for printing. @@ -1460,7 +1467,7 @@ 2006-06-25 Nick Roberts - * frames.texi (XTerm Mouse) Rename to... + * frames.texi (XTerm Mouse): Rename to... (Text-Only Mouse): ...this. Mention t-mouse-mode. * emacs.texi (Top): Use new node name. @@ -1803,7 +1810,7 @@ 2006-05-06 Eli Zaretskii * makefile.w32-in (emacs.dvi): - * Makefile.in (emacs.dvi): Add xresmini.texi + * Makefile.in (emacs.dvi): Add xresmini.texi. * xresmini.texi (Table of Resources): Remove xref to non-existent node "LessTif Resources". @@ -1889,7 +1896,7 @@ Next, and Up links. * emacs.texi (Top) [ifnottex]: Add menu entries for "Picture Mode" - and its sections. @include picture-xtra.texi + and its sections. @include picture-xtra.texi. * maintaining.texi (Maintaining) [ifnottex]: Add menu entry for "Emerge". @@ -2913,7 +2920,7 @@ * mark.texi: Minor clarifications. (Selective Undo): Node deleted. - * m-x.texi: Minor clarifications + * m-x.texi: Minor clarifications. * killing.texi: Minor clarifications. Refer to "graphical" terminals, rather than window systems. @@ -3603,7 +3610,7 @@ 2005-11-04 Carsten Dominik - * org.texi: Version number changed to 3.19 + * org.texi: Version number changed to 3.19. 2005-11-04 Romain Francoise @@ -3802,7 +3809,7 @@ 2005-10-10 Jan Dj,Ad(Brv - * cmdargs.texi (Icons X): -nb => -nbi + * cmdargs.texi (Icons X): -nb => -nbi. 2005-10-10 Chong Yidong @@ -3893,7 +3900,7 @@ 2005-09-23 Carsten Dominik - * org.texi Version 3.16 + * org.texi Version 3.16. 2005-09-21 YAMAMOTO Mitsuharu @@ -4153,11 +4160,11 @@ 2005-07-19 Carsten Dominik - * org.texi: Version 3.14 + * org.texi: Version 3.14. 2005-07-04 Carsten Dominik - * org.texi: Version 3.13 + * org.texi: Version 3.13. 2005-07-19 Juri Linkov @@ -4261,7 +4268,7 @@ 2005-06-29 Carsten Dominik - * org.texi: Version 3.12 + * org.texi: Version 3.12. 2005-06-24 Richard M. Stallman @@ -4341,7 +4348,7 @@ 2005-06-13 Carsten Dominik - * org.texi: Version 3.11 + * org.texi: Version 3.11. 2005-06-12 Jay Belanger @@ -4487,11 +4494,11 @@ 2005-05-20 Carsten Dominik - * org.texi: Version 3.09 + * org.texi: Version 3.09. 2005-05-18 Carsten Dominik - * reftex.texi: Version 4.28 + * reftex.texi: Version 4.28. 2005-05-18 Luc Teirlinck @@ -4639,7 +4646,7 @@ 2005-04-25 Chong Yidong - * ack.texi (Acknowledgments): Delete info about iso-acc.el + * ack.texi (Acknowledgments): Delete info about iso-acc.el. * dired.texi (Misc Dired Features): Document dired-compare-directories. @@ -6199,7 +6206,7 @@ 2004-09-10 Eli Zaretskii - * Makefile.in (../info/gnus, gnus.dvi): Depend on gnus-faq.texi + * Makefile.in (../info/gnus, gnus.dvi): Depend on gnus-faq.texi. 2004-09-09 Kim F. Storm @@ -7305,7 +7312,7 @@ 2003-02-17 Jan Dj,Ad(Brv - * xresources.texi (GTK names in Emacs): Add emacs-toolbar - GtkToolbar + * xresources.texi (GTK names in Emacs): Add emacs-toolbar - GtkToolbar. 2003-02-05 Kai Gro,A_(Bjohann @@ -7375,8 +7382,8 @@ Also use @ifnottex instead of @ifinfo around the top node, where needed for the sake of the HTML output. (The Gnus manual is not fixed since it's not clear to me how it - works; and the Tramp manual already uses @copying, although in an - unusual way. All others were changed.) + works; and the Tramp manual already uses @copying, although in an + unusual way. All others were changed.) 2002-09-10 Jonathan Yavner @@ -7501,7 +7508,7 @@ 1999-10-12 Stefan Monnier * Makefile.in (faq): Use ../info/emacs-faq.info (as specified in the - faq.texi file) rather than ../info/faq. + faq.texi file) rather than ../info/faq. 1999-10-07 Gerd Moellmann From f4c8780216fdade9b43f971990f4bd29d2c571b2 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 16:49:03 +0000 Subject: [PATCH 134/276] * net/socks.el: New file, taken from w3 repository. (top): Update Copyright. Don't load cl.el. (all): Replace `case' by `cond', `string-to-int' by `string-to-number', and `process-kill-without-query' by `set-process-query-on-exit-flag'. (socks-char-int): Remove defalias and all occurencies. --- lisp/ChangeLog | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6eb700ea016..d6553ccf179 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2007-06-06 Michael Albinus + + * net/socks.el: New file, taken from w3 repository. + (top): Update Copyright. Don't load cl.el. + (all): Replace `case' by `cond', `string-to-int' by + `string-to-number', and `process-kill-without-query' by + `set-process-query-on-exit-flag'. + (socks-char-int): Remove defalias and all occurencies. + 2007-06-06 Juanma Barranquero * international/mule-cmds.el (toggle-enable-multibyte-characters) From a93c284848e18c186e44c383d06c85ec26f7f35a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 16:49:37 +0000 Subject: [PATCH 135/276] New file, taken from w3 repository. (top): Update Copyright. Don't load cl.el. (all): Replace `case' by `cond', `string-to-int' by `string-to-number', and `process-kill-without-query' by `set-process-query-on-exit-flag'. (socks-char-int): Remove defalias and all occurencies. --- lisp/net/socks.el | 650 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 650 insertions(+) create mode 100644 lisp/net/socks.el diff --git a/lisp/net/socks.el b/lisp/net/socks.el new file mode 100644 index 00000000000..ee2bc0c1d2d --- /dev/null +++ b/lisp/net/socks.el @@ -0,0 +1,650 @@ +;;; socks.el --- A Socks v5 Client for Emacs + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, +;; 2007 Free Software Foundation, Inc. + +;; Author: William M. Perry +;; Dave Love +;; Keywords: comm, firewalls + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This is an implementation of the SOCKS v5 protocol as defined in +;; RFC 1928. + +;; TODO +;; - Finish the redirection rules stuff +;; - Implement composition of servers. Recursively evaluate the +;; redirection rules and do SOCKS-over-HTTP and SOCKS-in-SOCKS + +(eval-when-compile + (require 'wid-edit)) +(require 'custom) + +(if (not (fboundp 'split-string)) + (defun split-string (string &optional pattern) + "Return a list of substrings of STRING which are separated by PATTERN. +If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." + (or pattern + (setq pattern "[ \f\t\n\r\v]+")) + (let (parts (start 0)) + (while (string-match pattern string start) + (setq parts (cons (substring string start (match-beginning 0)) parts) + start (match-end 0))) + (nreverse (cons (substring string start) parts))))) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Custom widgets +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(define-widget 'dynamic-choice 'menu-choice + "A pretty simple dynamic dropdown list" + :format "%[%t%]: %v" + :tag "Network" + :case-fold t + :void '(item :format "invalid (%t)\n") + :value-create 's5-widget-value-create + :value-delete 'widget-children-value-delete + :value-get 'widget-choice-value-get + :value-inline 'widget-choice-value-inline + :mouse-down-action 'widget-choice-mouse-down-action + :action 'widget-choice-action + :error "Make a choice" + :validate 'widget-choice-validate + :match 's5-dynamic-choice-match + :match-inline 's5-dynamic-choice-match-inline) + +(defun s5-dynamic-choice-match (widget value) + (let ((choices (funcall (widget-get widget :choice-function))) + current found) + (while (and choices (not found)) + (setq current (car choices) + choices (cdr choices) + found (widget-apply current :match value))) + found)) + +(defun s5-dynamic-choice-match-inline (widget value) + (let ((choices (funcall (widget-get widget :choice-function))) + current found) + (while (and choices (not found)) + (setq current (car choices) + choices (cdr choices) + found (widget-match-inline current value))) + found)) + +(defun s5-widget-value-create (widget) + (let ((choices (funcall (widget-get widget :choice-function))) + (value (widget-get widget :value))) + (if (not value) + (widget-put widget :value (widget-value (car choices)))) + (widget-put widget :args choices) + (widget-choice-value-create widget))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Customization support +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defgroup socks nil + "SOCKS Support" + :prefix "socks-" + :group 'processes) + +'(defcustom socks-server-aliases nil + "A list of server aliases for use in access control and filtering rules." + :group 'socks + :type '(repeat (list :format "%v" + :value ("" "" 1080 5) + (string :tag "Alias") + (string :tag "Hostname/IP Address") + (integer :tag "Port #") + (choice :tag "SOCKS Version" + (integer :tag "SOCKS v4" :value 4) + (integer :tag "SOCKS v5" :value 5))))) + +'(defcustom socks-network-aliases + '(("Anywhere" (netmask "0.0.0.0" "0.0.0.0"))) + "A list of network aliases for use in subsequent rules." + :group 'socks + :type '(repeat (list :format "%v" + :value (netmask "" "255.255.255.0") + (string :tag "Alias") + (radio-button-choice + :format "%v" + (list :tag "IP address range" + (const :format "" :value range) + (string :tag "From") + (string :tag "To")) + (list :tag "IP address/netmask" + (const :format "" :value netmask) + (string :tag "IP Address") + (string :tag "Netmask")) + (list :tag "Domain Name" + (const :format "" :value domain) + (string :tag "Domain name")) + (list :tag "Unique hostname/IP address" + (const :format "" :value exact) + (string :tag "Hostname/IP Address")))))) + +'(defun s5-servers-filter () + (if socks-server-aliases + (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) s5-server-aliases) + '((const :tag "No aliases defined" :value nil)))) + +'(defun s5-network-aliases-filter () + (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) + socks-network-aliases)) + +'(defcustom socks-redirection-rules + nil + "A list of redirection rules." + :group 'socks + :type '(repeat (list :format "%v" + :value ("Anywhere" nil) + (dynamic-choice :choice-function s5-network-aliases-filter + :tag "Destination network") + (radio-button-choice + :tag "Connection type" + (const :tag "Direct connection" :value nil) + (dynamic-choice :format "%t: %[%v%]" + :choice-function s5-servers-filter + :tag "Proxy chain via"))))) + +(defcustom socks-server + (list "Default server" "socks" 1080 5) + "" + :group 'socks + :type '(list + (string :format "" :value "Default server") + (string :tag "Server") + (integer :tag "Port") + (radio-button-choice :tag "SOCKS Version" + :format "%t: %v" + (const :tag "SOCKS v4 " :format "%t" :value 4) + (const :tag "SOCKS v5" :format "%t" :value 5)))) + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Get down to the nitty gritty +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defconst socks-version 5) +(defvar socks-debug nil) + +;; Common socks v5 commands +(defconst socks-connect-command 1) +(defconst socks-bind-command 2) +(defconst socks-udp-associate-command 3) + +;; Miscellaneous other socks constants +(defconst socks-authentication-null 0) +(defconst socks-authentication-failure 255) + +;; Response codes +(defconst socks-response-success 0) +(defconst socks-response-general-failure 1) +(defconst socks-response-access-denied 2) +(defconst socks-response-network-unreachable 3) +(defconst socks-response-host-unreachable 4) +(defconst socks-response-connection-refused 5) +(defconst socks-response-ttl-expired 6) +(defconst socks-response-cmd-not-supported 7) +(defconst socks-response-address-not-supported 8) + +(defvar socks-errors + '("Succeeded" + "General SOCKS server failure" + "Connection not allowed by ruleset" + "Network unreachable" + "Host unreachable" + "Connection refused" + "Time-to-live expired" + "Command not supported" + "Address type not supported")) + +;; The socks v5 address types +(defconst socks-address-type-v4 1) +(defconst socks-address-type-name 3) +(defconst socks-address-type-v6 4) + +;; Base variables +(defvar socks-timeout 5) +(defvar socks-connections (make-hash-table :size 13)) + +;; Miscellaneous stuff for authentication +(defvar socks-authentication-methods nil) +(defvar socks-username (user-login-name)) +(defvar socks-password nil) + +(defun socks-register-authentication-method (id desc callback) + (let ((old (assq id socks-authentication-methods))) + (if old + (setcdr old (cons desc callback)) + (setq socks-authentication-methods + (cons (cons id (cons desc callback)) + socks-authentication-methods))))) + +(defun socks-unregister-authentication-method (id) + (let ((old (assq id socks-authentication-methods))) + (if old + (setq socks-authentication-methods + (delq old socks-authentication-methods))))) + +(socks-register-authentication-method 0 "No authentication" 'identity) + +(defun socks-build-auth-list () + (let ((num 0) + (retval "")) + (mapcar + (function + (lambda (x) + (if (fboundp (cdr (cdr x))) + (setq retval (format "%s%c" retval (car x)) + num (1+ num))))) + (reverse socks-authentication-methods)) + (format "%c%s" num retval))) + +(defconst socks-state-waiting-for-auth 0) +(defconst socks-state-submethod-negotiation 1) +(defconst socks-state-authenticated 2) +(defconst socks-state-waiting 3) +(defconst socks-state-connected 4) + +(defmacro socks-wait-for-state-change (proc htable cur-state) + (` + (while (and (= (gethash 'state (, htable)) (, cur-state)) + (memq (process-status (, proc)) '(run open))) + (accept-process-output (, proc) socks-timeout)))) + +(defun socks-filter (proc string) + (let ((info (gethash proc socks-connections)) + state version desired-len) + (or info (error "socks-filter called on non-SOCKS connection %S" proc)) + (setq state (gethash 'state info)) + (cond + ((= state socks-state-waiting-for-auth) + (puthash 'scratch (concat string (gethash 'scratch info)) info) + (setq string (gethash 'scratch info)) + (if (< (length string) 2) + nil ; We need to spin some more + (puthash 'authtype (aref string 1) info) + (puthash 'scratch (substring string 2 nil) info) + (puthash 'state socks-state-submethod-negotiation info))) + ((= state socks-state-submethod-negotiation) + ) + ((= state socks-state-authenticated) + ) + ((= state socks-state-waiting) + (puthash 'scratch (concat string (gethash 'scratch info)) info) + (setq string (gethash 'scratch info)) + (setq version (gethash 'server-protocol info)) + (cond + ((equal version 'http) + (if (not (string-match "\r\n\r\n" string)) + nil ; Need to spin some more + (puthash 'state socks-state-connected info) + (puthash 'reply 0 info) + (puthash 'response string info))) + ((equal version 4) + (if (< (length string) 2) + nil ; Can't know how much to read yet + (setq desired-len + (+ 4 ; address length + 2 ; port + 2 ; initial data + )) + (if (< (length string) desired-len) + nil ; need to spin some more + (let ((response (aref string 1))) + (if (= response 90) + (setq response 0)) + (puthash 'state socks-state-connected info) + (puthash 'reply response info) + (puthash 'response string info))))) + ((equal version 5) + (if (< (length string) 4) + nil + (setq desired-len + (+ 6 ; Standard socks header + (cond + ((= (aref string 3) socks-address-type-v4) 4) + ((= (aref string 3) socks-address-type-v6) 16) + ((= (aref string 3) socks-address-type-name) + (if (< (length string) 5) + 255 + (+ 1 (aref string 4))))))) + (if (< (length string) desired-len) + nil ; Need to spin some more + (puthash 'state socks-state-connected info) + (puthash 'reply (aref string 1) info) + (puthash 'response string info)))))) + ((= state socks-state-connected) + ) + ) + ) + ) + +(defun socks-open-connection (server-info) + (interactive) + (save-excursion + (let ((proc (socks-original-open-network-stream "socks" + nil + (nth 1 server-info) + (nth 2 server-info))) + (info (make-hash-table :size 13)) + (authtype nil) + version) + + ;; Initialize process and info about the process + (set-process-filter proc 'socks-filter) + (set-process-query-on-exit-flag proc nil) + (puthash proc info socks-connections) + (puthash 'state socks-state-waiting-for-auth info) + (puthash 'authtype socks-authentication-failure info) + (puthash 'server-protocol (nth 3 server-info) info) + (puthash 'server-name (nth 1 server-info) info) + (setq version (nth 3 server-info)) + (cond + ((equal version 'http) + ;; Don't really have to do any connection setup under http + nil) + ((equal version 4) + ;; Don't really have to do any connection setup under v4 + nil) + ((equal version 5) + ;; Need to handle all the authentication crap under v5 + ;; Send what we think we can handle for authentication types + (process-send-string proc (format "%c%s" socks-version + (socks-build-auth-list))) + + ;; Basically just do a select() until we change states. + (socks-wait-for-state-change proc info socks-state-waiting-for-auth) + (setq authtype (gethash 'authtype info)) + (cond + ((= authtype socks-authentication-null) + (and socks-debug (message "No authentication necessary"))) + ((= authtype socks-authentication-failure) + (error "No acceptable authentication methods found.")) + (t + (let* ((auth-type (gethash 'authtype info)) + (auth-handler (assoc auth-type socks-authentication-methods)) + (auth-func (and auth-handler (cdr (cdr auth-handler)))) + (auth-desc (and auth-handler (car (cdr auth-handler))))) + (set-process-filter proc nil) + (if (and auth-func (fboundp auth-func) + (funcall auth-func proc)) + nil ; We succeeded! + (delete-process proc) + (error "Failed to use auth method: %s (%d)" + (or auth-desc "Unknown") auth-type)) + ) + ) + ) + (puthash 'state socks-state-authenticated info) + (set-process-filter proc 'socks-filter))) + proc))) + +(defun socks-send-command (proc command atype address port) + (let ((addr (cond + ((or (= atype socks-address-type-v4) + (= atype socks-address-type-v6)) + address) + ((= atype socks-address-type-name) + (format "%c%s" (length address) address)) + (t + (error "Unkown address type: %d" atype)))) + (info (gethash proc socks-connections)) + request version) + (or info (error "socks-send-command called on non-SOCKS connection %S" + proc)) + (puthash 'state socks-state-waiting info) + (setq version (gethash 'server-protocol info)) + (cond + ((equal version 'http) + (setq request (format (eval-when-compile + (concat + "CONNECT %s:%d HTTP/1.0\r\n" + "User-Agent: Emacs/SOCKS v1.0\r\n" + "\r\n")) + (cond + ((equal atype socks-address-type-name) address) + (t + (error "Unsupported address type for HTTP: %d" atype))) + port))) + ((equal version 4) + (setq request (format + "%c%c%c%c%s%s%c" + version ; version + command ; command + (lsh port -8) ; port, high byte + (- port (lsh (lsh port -8) 8)) ; port, low byte + addr ; address + (user-full-name) ; username + 0 ; terminate username + ))) + ((equal version 5) + (setq request (format + "%c%c%c%c%s%c%c" + version ; version + command ; command + 0 ; reserved + atype ; address type + addr ; address + (lsh port -8) ; port, high byte + (- port (lsh (lsh port -8) 8)) ; port, low byte + ))) + (t + (error "Unknown protocol version: %d" version))) + (process-send-string proc request) + (socks-wait-for-state-change proc info socks-state-waiting) + (process-status proc) + (if (= (or (gethash 'reply info) 1) socks-response-success) + nil ; Sweet sweet success! + (delete-process proc) + (error "SOCKS: %s" (nth (or (gethash 'reply info) 1) socks-errors))) + proc)) + + +;; Replacement functions for open-network-stream, etc. +(defvar socks-noproxy nil + "*List of regexps matching hosts that we should not socksify connections to") + +(defun socks-find-route (host service) + (let ((route socks-server) + (noproxy socks-noproxy)) + (while noproxy + (if (eq ?! (aref (car noproxy) 0)) + (if (string-match (substring (car noproxy) 1) host) + (setq noproxy nil)) + (if (string-match (car noproxy) host) + (setq route nil + noproxy nil))) + (setq noproxy (cdr noproxy))) + route)) + +(defvar socks-override-functions nil + "*Whether to overwrite the open-network-stream function with the SOCKSified +version.") + +(if (fboundp 'socks-original-open-network-stream) + nil ; Do nothing, we've been here already + (defalias 'socks-original-open-network-stream + (symbol-function 'open-network-stream)) + (if socks-override-functions + (defalias 'open-network-stream 'socks-open-network-stream))) + +(defvar socks-services-file "/etc/services") +(defvar socks-tcp-services (make-hash-table :size 13 :test 'equal)) +(defvar socks-udp-services (make-hash-table :size 13 :test 'equal)) + +(defun socks-parse-services () + (if (not (and (file-exists-p socks-services-file) + (file-readable-p socks-services-file))) + (error "Could not find services file: %s" socks-services-file)) + (save-excursion + (clrhash socks-tcp-services) + (clrhash socks-udp-services) + (set-buffer (get-buffer-create " *socks-tmp*")) + (erase-buffer) + (insert-file-contents socks-services-file) + ;; Nuke comments + (goto-char (point-min)) + (while (re-search-forward "#.*" nil t) + (replace-match "")) + ;; Nuke empty lines + (goto-char (point-min)) + (while (re-search-forward "^[ \t\n]+" nil t) + (replace-match "")) + ;; Now find all the lines + (goto-char (point-min)) + (let (name port type) + (while (re-search-forward "^\\([^ \t]+\\)[ \t]+\\([0-9]+\\)/\\([a-z]+\\)" + nil t) + (setq name (downcase (match-string 1)) + port (string-to-number (match-string 2)) + type (downcase (match-string 3))) + (puthash name port (if (equal type "udp") + socks-udp-services + socks-tcp-services)))))) + +(defun socks-find-services-entry (service &optional udp) + "Return the port # associated with SERVICE" + (if (= (hash-table-count socks-tcp-services) 0) + (socks-parse-services)) + (gethash (downcase service) + (if udp socks-udp-services socks-tcp-services))) + +(defun socks-open-network-stream (name buffer host service) + (let* ((route (socks-find-route host service)) + proc info version atype) + (if (not route) + (socks-original-open-network-stream name buffer host service) + (setq proc (socks-open-connection route) + info (gethash proc socks-connections) + version (gethash 'server-protocol info)) + (cond + ((equal version 4) + (setq host (socks-nslookup-host host)) + (if (not (listp host)) + (error "Could not get IP address for: %s" host)) + (setq host (apply 'format "%c%c%c%c" host)) + (setq atype socks-address-type-v4)) + (t + (setq atype socks-address-type-name))) + (socks-send-command proc + socks-connect-command + atype + host + (if (stringp service) + (socks-find-services-entry service) + service)) + (puthash 'buffer buffer info) + (puthash 'host host info) + (puthash 'service host info) + (set-process-filter proc nil) + (set-process-buffer proc (if buffer (get-buffer-create buffer))) + proc))) + +;; Authentication modules go here + +;; Basic username/password authentication, ala RFC 1929 +(socks-register-authentication-method 2 "Username/Password" + 'socks-username/password-auth) + +(defconst socks-username/password-auth-version 1) + +(defun socks-username/password-auth-filter (proc str) + (let ((info (gethash proc socks-connections)) + state desired-len) + (or info (error "socks-filter called on non-SOCKS connection %S" proc)) + (setq state (gethash 'state info)) + (puthash 'scratch (concat (gethash 'scratch info) str) info) + (if (< (length (gethash 'scratch info)) 2) + nil + (puthash 'password-auth-status (aref (gethash 'scratch info) 1) info) + (puthash 'state socks-state-authenticated info)))) + +(defun socks-username/password-auth (proc) + (let* ((info (gethash proc socks-connections)) + (state (gethash 'state info))) + (if (not socks-password) + (setq socks-password (read-passwd + (format "Password for %s@%s: " + socks-username + (gethash 'server-name info))))) + (puthash 'scratch "" info) + (set-process-filter proc 'socks-username/password-auth-filter) + (process-send-string proc + (format "%c%c%s%c%s" + socks-username/password-auth-version + (length socks-username) + socks-username + (length socks-password) + socks-password)) + (socks-wait-for-state-change proc info state) + (= (gethash 'password-auth-status info) 0))) + + +;; More advanced GSS/API stuff, not yet implemented - volunteers? +;; (socks-register-authentication-method 1 "GSS/API" 'socks-gssapi-auth) + +(defun socks-gssapi-auth (proc) + nil) + + +;; CHAP stuff +;; (socks-register-authentication-method 3 "CHAP" 'socks-chap-auth) +(defun socks-chap-auth (proc) + nil) + + +;; CRAM stuff +;; (socks-register-authentication-method 5 "CRAM" 'socks-cram-auth) +(defun socks-cram-auth (proc) + nil) + + +(defcustom socks-nslookup-program "nslookup" + "*If non-NIL then a string naming the nslookup program." + :type '(choice (const :tag "None" :value nil) string) + :group 'socks) + +(defun socks-nslookup-host (host) + "Attempt to resolve the given HOSTNAME using nslookup if possible." + (interactive "sHost: ") + (if socks-nslookup-program + (let ((proc (start-process " *nslookup*" " *nslookup*" + socks-nslookup-program host)) + (res host)) + (set-process-query-on-exit-flag proc nil) + (save-excursion + (set-buffer (process-buffer proc)) + (while (progn + (accept-process-output proc) + (memq (process-status proc) '(run open)))) + (goto-char (point-min)) + (if (re-search-forward "Name:.*\nAddress\\(es\\)?: *\\([0-9.]+\\)$" nil t) + (progn + (setq res (buffer-substring (match-beginning 2) + (match-end 2)) + res (mapcar 'string-to-int (split-string res "\\."))))) + (kill-buffer (current-buffer))) + res) + host)) + +(provide 'socks) + +;; arch-tag: 67aef0d9-f4f7-4056-89c3-b4c9bf93ce7f +;;; socks.el ends here From 235c89a61e744efa58fd3fbf7e0a8f75a618d983 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 16:52:49 +0000 Subject: [PATCH 136/276] * textmodes/css-mode.el: New file. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d6553ccf179..1380b2ec1c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Stefan Monnier + + * textmodes/css-mode.el: New file. + 2007-06-06 Michael Albinus * net/socks.el: New file, taken from w3 repository. From 2f648027bcf0908dc04ec64dad7369224a2367e9 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 16:53:04 +0000 Subject: [PATCH 137/276] New file. --- lisp/textmodes/css-mode.el | 469 +++++++++++++++++++++++++++++++++++++ 1 file changed, 469 insertions(+) create mode 100644 lisp/textmodes/css-mode.el diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el new file mode 100644 index 00000000000..8bf9ac2ee96 --- /dev/null +++ b/lisp/textmodes/css-mode.el @@ -0,0 +1,469 @@ +;;; css-mode.el --- Major mode to edit CSS files + +;; Copyright (C) 2006, 2007 Free Software Foundation, Inc. + +;; Author: Stefan Monnier +;; Keywords: hypermedia + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; Yet another CSS mode. + +;;; Todo: + +;; - electric ; and } +;; - filling code with auto-fill-mode +;; - completion +;; - fix font-lock errors with multi-line selectors + +;;; Code: + +(defun css-extract-keyword-list (res) + (with-temp-buffer + (url-insert-file-contents "http://www.w3.org/TR/REC-CSS2/css2.txt") + (goto-char (point-max)) + (search-backward "Appendix H. Index") + (forward-line) + (delete-region (point-min) (point)) + (let ((result nil) + keys) + (dolist (re res) + (goto-char (point-min)) + (setq keys nil) + (while (re-search-forward (cdr re) nil t) + (push (match-string 1) keys)) + (push (cons (car re) (sort keys 'string-lessp)) result)) + (nreverse result)))) + +(defun css-extract-parse-val-grammar (string env) + (let ((start 0) + (elems ()) + name) + (while (string-match + (concat "\\(?:" + (concat "]+>]+>\\(?:" + "<\\([^&]+\\)>\\|'\\([^']+\\)'" + "\\)") + "\\|" "\\(\\[\\)" + "\\|" "\\(]\\)" + "\\|" "\\(||\\)" + "\\|" "\\(|\\)" + "\\|" "\\([*+?]\\)" + "\\|" "\\({[^}]+}\\)" + "\\|" "\\(\\w+\\(?:-\\w+\\)*\\)" + "\\)[ \t\n]*") + string start) + ;; (assert (eq start (match-beginning 0))) + (setq start (match-end 0)) + (cond + ;; Reference to a type of value. + ((setq name (match-string-no-properties 1 string)) + (push (intern name) elems)) + ;; Reference to another property's values. + ((setq name (match-string-no-properties 2 string)) + (setq elems (delete-dups (append (cdr (assoc name env)) elems)))) + ;; A literal + ((setq name (match-string-no-properties 9 string)) + (push name elems)) + ;; We just ignore the rest. I.e. we ignore the structure because + ;; it's too difficult to exploit anyway (it would allow us to only + ;; complete top/center/bottom after one of left/center/right and + ;; vice-versa). + (t nil))) + elems)) + + +(defun css-extract-props-and-vals () + (with-temp-buffer + (url-insert-file-contents "http://www.w3.org/TR/CSS21/propidx.html") + (goto-char (point-min)) + (let ((props ())) + (while (re-search-forward "#propdef-\\([^\"]+\\)\">'\\1'" nil t) + (let ((prop (match-string-no-properties 1))) + (save-excursion + (goto-char (match-end 0)) + (search-forward "") html) (if lines (push "" html) (setq tbopen nil))) (setq head nil) ;; head ends here, first time around @@ -19472,7 +19472,7 @@ really on, so that the block visually is on the match." (save-excursion (beginning-of-line (- 1 (or nlines 0))) (while (re-search-forward re eol t) - (if (and (<= (match-beginning 0) pos) + (if (and (<= (match-beginning 0) pos) (>= (+ inc (match-end 0)) pos)) (throw 'exit (cons (match-beginning 0) (match-end 0))))))))) @@ -19535,7 +19535,7 @@ The sequences in STRING may contain normal field width and padding information, for example \"%-5s\". Replacements happen in the sequence given by TABLE, so values can contain further %-escapes if they are define later in TABLE." (let ((case-fold-search nil) - e re rpl) + e re rpl) (while (setq e (pop table)) (setq re (concat "%-?[0-9.]*" (substring (car e) 1))) (while (string-match re string) From 84ae33dfe95f62412902ceb7e90e72962a06de8b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:10:42 +0000 Subject: [PATCH 153/276] (erc-show-channel-key-p): Fix typo in docstring. --- lisp/erc/ChangeLog | 4 ++++ lisp/erc/erc.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 70ffa4ede48..eec2478b162 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Juanma Barranquero + + * erc.el (erc-show-channel-key-p): Fix typo in docstring. + 2007-04-01 Michael Olson * erc.el (erc-version-string): Release ERC 5.2. diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 37c2c2e0883..72442de9f95 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -5756,7 +5756,7 @@ Otherwise, use the `erc-header-line' face." (function :tag "Call a function"))) (defcustom erc-show-channel-key-p t - "Show the the channel key in the header line." + "Show the channel key in the header line." :group 'erc-paranoia :type 'boolean) From 107cf8ecf03e1a401e18e68db32ed3b711c895cb Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:15:03 +0000 Subject: [PATCH 154/276] (gnus-summary-highlight): Fix typo in docstring. --- lisp/gnus/gnus-sum.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 5653c8be746..b1b6c8b760b 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -973,14 +973,14 @@ automatically when it is selected." . gnus-summary-normal-read)) "*Controls the highlighting of summary buffer lines. -A list of (FORM . FACE) pairs. When deciding how a a particular +A list of (FORM . FACE) pairs. When deciding how a particular summary line should be displayed, each form is evaluated. The content of the face field after the first true form is used. You can change how those summary lines are displayed, by editing the face field. You can use the following variables in the FORM field. -score: The article's score +score: The article's score. default: The default article score. default-high: The default score for high scored articles. default-low: The default score for low scored articles. From 34c5dce5b615f32870fe7344adabc103d36b9d7e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:26:35 +0000 Subject: [PATCH 155/276] *** empty log message *** --- lisp/gnus/ChangeLog | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e3cba144f17..67204757c30 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Juanma Barranquero + + * gnus-sum.el (gnus-summary-highlight): Fix typos in docstring. + 2007-05-28 Katsumi Yamaoka * message.el (message-pop-to-buffer): Add switch-function argument. @@ -347,7 +351,7 @@ (message-simplify-subject): New function to remove duplicate code. (message-reply, message-followup): Use it. (message-simplify-subject-functions): New variable. - (message-strip-subject-encoded-words): New function + (message-strip-subject-encoded-words): New function. 2006-11-08 Wolfgang Jenkner (tiny change) @@ -1187,8 +1191,7 @@ * mm-view.el (mm-fill-flowed): New variable. (mm-inline-text): Use it. -2006-02-21 Wolfram Fenske - (tiny change) +2006-02-21 Wolfram Fenske (tiny change) * nnimap.el (nnimap-request-move-article): Change folder back to source group before deleting. @@ -1750,7 +1753,7 @@ (pgg-pgp5-sign-region, pgg-pgp5-sign): Add optional 'passphrase' argument to all these routines, so the passphrase can be managed externally and passed in to the system. - (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache + (pgg-pgp5-sign-region): Use new name of pgg-add-passphrase-to-cache function. 2005-10-29 Ken Manheimer @@ -3625,7 +3628,7 @@ * nnmail.el (nnmail-split-fancy-with-parent-ignore-groups) (nnmail-cache-ignore-groups, nnmail-spool-hook) (nnmail-split-fancy-match-partial-words) - (nnmail-split-lowercase-expanded): + (nnmail-split-lowercase-expanded): Add :version. * nndiary.el (nndiary): Add :version. @@ -3901,7 +3904,7 @@ * gnus-int.el (gnus-request-delete-group): Use gnus-cache-delete-group and gnus-agent-delete-group to keep the local disk in sync with the server. - (gnus-request-rename-group): + (gnus-request-rename-group): Use gnus-cache-rename-group and gnus-agent-rename-group to keep the local disk in sync with the server. @@ -4028,7 +4031,7 @@ * gnus-sum.el (gnus-select-newgroup): Replace inline code with gnus-agent-possibly-alter-active. - (gnus-adjust-marked-articles): Faster handling of simple lists + (gnus-adjust-marked-articles): Faster handling of simple lists. 2004-10-18 David Edmondson @@ -4171,7 +4174,7 @@ * gnus-fun.el: Require gnus-ems and gnus-util. - * gnus-diary.el (gnus-diary-header-schedule): caddr -> car (cddr + * gnus-diary.el (gnus-diary-header-schedule): caddr -> car (cddr). * gnus-art.el (gnus-article-edit-mode): Define before first reference. @@ -4254,6 +4257,7 @@ * nnmail.el (nnmail-fancy-expiry-targets) (nnmail-mail-splitting-charset, nnmail-mail-splitting-decodes): + Add :version. * nnimap.el (nnimap-split-download-body, nnimap-dont-close) (nnimap-retrieve-groups-asynchronous): Add :version. @@ -4262,7 +4266,7 @@ * mml.el (mml-content-disposition-parameters) (mml-insert-mime-headers-always): Add :version. - * mm-util.el (mm-coding-system-priorities): + * mm-util.el (mm-coding-system-priorities): Add :version. * mm-decode.el (mm-inline-text-html-with-images) (mm-keep-viewer-alive-types, mm-external-terminal-program) @@ -4319,7 +4323,7 @@ * gnus-srvr.el (gnus-server-browse-in-group-buffer) (gnus-server-offline-face): Add :version. - * gnus-score.el (gnus-adaptive-word-length-limit): + * gnus-score.el (gnus-adaptive-word-length-limit): Add :version. * gnus-msg.el (gnus-gcc-externalize-attachments) (gnus-debug-files, gnus-debug-exclude-variables) @@ -4341,7 +4345,7 @@ * gnus-delay.el (gnus-delay-default-hour): Add :version. * gnus-cite.el (gnus-cite-blank-line-after-header) - (gnus-article-boring-faces): + (gnus-article-boring-faces): Add :version. * gnus-art.el (gnus-buttonized-mime-types) (gnus-inhibit-mime-unbuttonizing) @@ -4405,10 +4409,10 @@ 2004-09-10 Teodor Zlatanov * nnimap.el (nnimap-open-connection): Allow 'imaps' as a synonym - for the 'imap' port in netrc files + for the 'imap' port in netrc files. * gnus-registry.el (gnus-registry-trim): Watch out for negatives - in gnus-registry-trim + in gnus-registry-trim. 2004-09-10 Simon Josefsson From 313f9d1f34c221886c6e94b550afc0b2be0d4770 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:28:13 +0000 Subject: [PATCH 156/276] *** empty log message *** --- lisp/gnus/ChangeLog | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index cf8d226a1a1..6379346f936 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1208,7 +1208,7 @@ * mm-view.el (mm-fill-flowed): New variable. (mm-inline-text): Use it. -2006-02-21 Wolfram Fenske (tiny change) +2006-02-21 Wolfram Fenske (tiny change) * nnimap.el (nnimap-request-move-article): Change folder back to source group before deleting. From a19fad7873be1d97a5e549c3506dd0125afe62a8 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:33:38 +0000 Subject: [PATCH 157/276] *** empty log message *** --- lisp/ChangeLog | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ed1cf32e97..48d3a7a9ffc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-06-06 Juanma Barranquero + + * pgg.el (pgg-sign-region, pgg-sign): + * ses.el (ses-call-printer): + * calendar/icalendar.el (icalendar--diarytime-to-isotime): + * textmodes/org.el (org-cycle): Fix typos in docstrings. + 2007-06-06 Eli Zaretskii * tar-mode.el (tar-header-block-summarize, tar-summarize-buffer) From 821138c4e52305bf935c09765ccd221668670e0d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:36:31 +0000 Subject: [PATCH 158/276] (mh-mh-directive-present-p): Fix typos in docstrings. --- lisp/mh-e/mh-mime.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index 0f2b7daa741..56cfc6544ce 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -1667,7 +1667,7 @@ This action can be undone by running \\[undo]." (defun mh-mh-directive-present-p (&optional begin end) "Check if the text between BEGIN and END might be a MH-style directive. The optional argument BEGIN defaults to the beginning of the -buffer, while END defaults to the the end of the buffer." +buffer, while END defaults to the end of the buffer." (unless begin (setq begin (point-min))) (unless end (setq end (point-max))) (save-excursion From 886759228aaa66f2ebe9859b4c05864008eb421b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:37:07 +0000 Subject: [PATCH 159/276] (mh-index-group-by-folder): Fix typos in docstrings. --- lisp/mh-e/mh-search.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el index 715556ad16d..ebd45aef6a6 100644 --- a/lisp/mh-e/mh-search.el +++ b/lisp/mh-e/mh-search.el @@ -1357,7 +1357,7 @@ record is invalid return 'error." ;;;###mh-autoload (defun mh-index-group-by-folder () "Partition the messages based on source folder. -Returns an alist with the the folder names in the car and the cdr +Returns an alist with the folder names in the car and the cdr being the list of messages originally from that folder." (save-excursion (goto-char (point-min)) From 5c016bdc98148dd089d6deb141aa14b12128c969 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:42:31 +0000 Subject: [PATCH 160/276] *** empty log message *** --- lisp/mh-e/ChangeLog | 134 +++++++++++++++++++++++--------------------- 1 file changed, 69 insertions(+), 65 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 8b122f89b49..3d3a08e0528 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2007-06-06 Juanma Barranquero + + * mh-mime.el (mh-mh-directive-present-p): + * mh-search.el (mh-index-group-by-folder): Fix typos in docstrings. + 2006-11-14 Bill Wohler * mh-xface.el (mh-x-image-url-cache-canonicalize): Add `*' to @@ -10,7 +15,7 @@ * mh-e.el (Version, mh-version): Update for release 8.0.3. * mh-e.el (mh-alias-local-users): Boolean docstrings should start - with "Non-nil means". Perhaps this option should have a -flag + with "Non-nil means". Perhaps this option should have a -flag appended. (mh-junk-background): Sync docstring with manual. @@ -62,7 +67,7 @@ * mh-tool-bar.el (mh-tool-bar-define): Fix XEmacs' vector-list so it refers to the icons in mh-xemacs-icon-map instead of trying to declare the icons in situ. This allows mh-tool-bar.el to be - compiled under XEmacs. Remove initial value for + compiled under XEmacs. Remove initial value for mh-tool-bar-folder-buttons, mh-tool-bar-show-buttons, mh-tool-bar-letter-buttons. The MH-E icons now appear in XEmacs. In mh-tool-bar-init, check for mh-xemacs-use-tool-bar-flag sooner. @@ -133,7 +138,7 @@ 2006-04-26 Eric Ding * mh-e.el (mh-invisible-header-fields-internal): Add entry - "X-Provags-ID:" + "X-Provags-ID:". 2006-04-25 Bill Wohler @@ -155,9 +160,9 @@ * mh-letter.el (mh-insert-letter): If a message number isn't given, throw an error rather than using a potentially incorrect - message number (closes SF #1473729). In addition, use the cur + message number (closes SF #1473729). In addition, use the cur message if mh-sent-from-msg is nil (when sending a message, in - contrast to replying). Move conversion of int to string into + contrast to replying). Move conversion of int to string into interactive stanza so body can assume variables are of proper type. @@ -177,15 +182,15 @@ (mh-tool-bar-folder-buttons-set, mh-tool-bar-letter-buttons-set): Call it (closes SF #1452718). - * mh-folder.el (mh-folder-buttons-init-flag): Delete. Use + * mh-folder.el (mh-folder-buttons-init-flag): Delete. Use mh-folder-tool-bar-map instead. - (image-load-path): Delete. No longer used. + (image-load-path): Delete. No longer used. (mh-folder-mode): Moved setting of image-load-path into mh-tool-bar-folder-buttons-init. - * mh-letter.el (mh-letter-buttons-init-flag): Delete. Use + * mh-letter.el (mh-letter-buttons-init-flag): Delete. Use mh-letter-tool-bar-map instead. - (image-load-path): Delete. No longer used. + (image-load-path): Delete. No longer used. (mh-letter-mode): Moved setting of image-load-path into mh-tool-bar-letter-buttons-init. @@ -202,10 +207,10 @@ * mh-e.el (defcustom-mh, defface-mh, defgroup-mh, mh-face-data) (mh-strip-package-version, mh-face-data, mh-inherit-face-flag) (mh-min-colors-defined-flag): Do not unbind these macros and - variables. Nice idea, but too many nasty side-effects. These + variables. Nice idea, but too many nasty side-effects. These macros are needed by [Cc]ustom-make-dependencies when creating the - MH-E customization groups in mh-cus-load.el. These disappeared - when the macros above were introduced. Besides, if a developer + MH-E customization groups in mh-cus-load.el. These disappeared + when the macros above were introduced. Besides, if a developer were to try to show the help for a macro or variable they were looking at and got [No match] when they did so, that would be bad. @@ -218,11 +223,11 @@ variables and functions with the same name are found correctly by find-func (invoked by clicking on the filename link in the *Help* buffer). - (mh-defmacro-compat): Rename to defmacro-mh. Ditto. + (mh-defmacro-compat): Rename to defmacro-mh. Ditto. - * mh-e.el: (mh-defgroup): Rename to defgroup-mh. Ditto. - (mh-defcustom): Rename to defcustom-mh. Ditto. - (mh-defface): Rename to defface-mh. Ditto. + * mh-e.el (mh-defgroup): Rename to defgroup-mh. Ditto. + (mh-defcustom): Rename to defcustom-mh. Ditto. + (mh-defface): Rename to defface-mh. Ditto. (mh-font-lock-add-keywords): Make changes according to these renamings. @@ -232,11 +237,11 @@ * mh-utils.el (mh-sub-folders-actual): Mention that folder must have been processed by mh-normalize-folder-name. (mh-folder-completion-function): Handle completion of folders with - absolute names. Also, when flag is t, display complete folder name + absolute names. Also, when flag is t, display complete folder name to provide proper highlighting in Emacs 22 now that minibuffer-completing-file-name is nil (closes SF #1470518). (mh-folder-completing-read): No longer set - minibuffer-completing-file-name to t. This was causing "Can't set + minibuffer-completing-file-name to t. This was causing "Can't set current directory errors" when browsing absolute file names. Another benefit of this change is that SPC can be used for completion again (closes SF #1470518). @@ -256,9 +261,9 @@ * mh-show.el (font-lock-auto-fontify): Ditto. - * mh-utils.el (mh-speed-flists-cache): Ditto + * mh-utils.el (mh-speed-flists-cache): Ditto. - * mh-acros.el (struct, x, y): No need to wrap defvar with + * mh-acros.el (struct, x, y): No need to wrap defvar with eval-when-compile when shushing compiler, even when mh-do-in-xemacs or another construct is used. @@ -287,7 +292,7 @@ * mh-xface.el (default-enable-multibyte-characters): Ditto. * mh-compat.el (mh-font-lock-add-keywords): New alias for - font-lock-add-keywords. Returns nil on XEmacs. + font-lock-add-keywords. Returns nil on XEmacs. * mh-e.el: Add MH-E function and variable keywords such as mh-defun-compat and mh-defcustom to font-lock-keywords. @@ -297,7 +302,7 @@ * mh-e.el (customize-package-emacs-version-alist) (mh-e, mh-alias, mh-folder, mh-folder-selection) (mh-identity, mh-inc, mh-junk, mh-letter, mh-ranges) - (mh-scan-line-formats, mh-search, mh-sending-mail, ) + (mh-scan-line-formats, mh-search, mh-sending-mail) (mh-sequences, mh-show, mh-speedbar, mh-thread, mh-tool-bar) (mh-hooks, mh-faces, mh-alias-completion-ignore-case-flag) (mh-alias-expand-aliases-flag, mh-alias-flash-on-comma) @@ -307,7 +312,7 @@ (mh-new-messages-folders, mh-ticked-messages-folders) (mh-large-folder, mh-recenter-summary-flag) (mh-recursive-folders-flag, mh-sortm-args) - (mh-default-folder-for-message-function, ) + (mh-default-folder-for-message-function) (mh-default-folder-list, mh-default-folder-must-exist-flag) (mh-default-folder-prefix, mh-identity-list) (mh-auto-fields-list, mh-auto-fields-prompt-flag) @@ -320,18 +325,18 @@ (mh-extract-from-attribution-verb, mh-ins-buf-prefix) (mh-letter-complete-function, mh-letter-fill-column) (mh-mml-method-default, mh-signature-file-name) - (mh-signature-separator-flag, mh-x-face-file, ) + (mh-signature-separator-flag, mh-x-face-file) (mh-yank-behavior, mh-interpret-number-as-range-flag) (mh-adaptive-cmd-note-flag, mh-scan-format-file, mh-scan-prog) (mh-search-program, mh-compose-forward-as-mime-flag) (mh-compose-letter-function, mh-compose-prompt-flag) (mh-forward-subject-format, mh-insert-x-mailer-flag) (mh-redist-full-contents-flag, mh-reply-default-reply-to) - (mh-reply-show-message-flag, ) + (mh-reply-show-message-flag) (mh-refile-preserves-sequences-flag, mh-tick-seq) (mh-update-sequences-after-mh-show-flag) (mh-bury-show-buffer-flag, mh-clean-message-header-flag) - (mh-decode-mime-flag, ) + (mh-decode-mime-flag) (mh-display-buttons-for-alternatives-flag) (mh-display-buttons-for-inline-parts-flag) (mh-do-not-confirm-flag, mh-fetch-x-image-url) @@ -348,8 +353,7 @@ (mh-alias-reloaded-hook, mh-before-commands-processed-hook) (mh-before-quit-hook, mh-before-send-letter-hook) (mh-delete-msg-hook, mh-find-path-hook, mh-folder-mode-hook) - (mh-forward-hook, mh-inc-folder-hook, ) - (mh-insert-signature-hook, ) + (mh-forward-hook, mh-inc-folder-hook, mh-insert-signature-hook) (mh-kill-folder-suppress-prompt-hooks, mh-letter-mode-hook) (mh-mh-to-mime-hook, mh-search-mode-hook, mh-quit-hook) (mh-refile-msg-hook, mh-show-hook, mh-show-mode-hook) @@ -361,7 +365,7 @@ (mh-letter-header-field, mh-search-folder, mh-show-cc) (mh-show-date, mh-show-from, mh-show-header, mh-show-pgg-bad) (mh-show-pgg-good, mh-show-pgg-unknown, mh-show-signature) - (mh-show-subject, mh-show-to, mh-show-xface, ) + (mh-show-subject, mh-show-to, mh-show-xface) (mh-speedbar-folder, mh-speedbar-folder-with-unseen-messages) (mh-speedbar-selected-folder) (mh-speedbar-selected-folder-with-unseen-messages): Use dotted @@ -375,7 +379,7 @@ 2006-03-31 Bill Wohler * mh-e.el (mh-strip-package-version): Move before use to avoid - compiler error. Make macro, also to avoid compiler error. + compiler error. Make macro, also to avoid compiler error. (mh-defface-compat): Incorporate body into mh-face-data and delete. @@ -474,7 +478,7 @@ MH-Letter mode, move save-buffer and mh-fully-kill-draft icons in front of mh-compose-insertion to be consistent with other mailers, such as Evolution. In MH-Folder mode, move vanilla reply icon to - the left of the other reply icons. Use mail/inbox icon instead of + the left of the other reply icons. Use mail/inbox icon instead of mail, next-page instead of page-down, delete instead of close, mail/move instead of mail/refile, data-save instead of execute, mail/flag-for-followup instead of highlight, contact instead of @@ -513,7 +517,7 @@ 2006-03-15 Bill Wohler * mh-compat.el (mh-image-load-path-for-library): Fix example by - not recommending that one binds image-load-path. Just defvar it to + not recommending that one binds image-load-path. Just defvar it to placate compiler and only use it if previously defined. * mh-e.el (image-load-path): Don't bind! @@ -551,11 +555,11 @@ 2006-03-10 Bill Wohler * mh-compat.el (mh-replace-regexp-in-string): Pass the literal - flag to replace-in-string. This was badly needed by + flag to replace-in-string. This was badly needed by mh-quote-pick-expr in order to properly quote subjects when using / s on XEmacs (closes SF #1447598). - (mh-image-load-path-for-library): Merged changes from Reiner. Add - no-error argument. If path t, just return directory. + (mh-image-load-path-for-library): Merged changes from Reiner. Add + no-error argument. If path t, just return directory. * mh-e.el (mh-profile-component): Drop `s' from mhparam -components for Mailutils compatibility (closes SF #1446985). @@ -598,11 +602,11 @@ (mh-sub-folders): Use new flag to mh-normalize-folder-name to make this function more robust. It could too easily list the folders in /. (mh-folder-list): Fix a couple of problems pointed out by Thomas - Baumann. Set folder to nil if empty. Don't append "/" if folder nil. + Baumann. Set folder to nil if empty. Don't append "/" if folder nil. 2006-03-03 Bill Wohler - * mh-folder.el (mh-folder-mode): Rename mh-image-load-path to + * mh-folder.el (mh-folder-mode): Rename mh-image-load-path to mh-image-load-path-for-library. * mh-letter.el (mh-letter-mode): Rename mh-image-load-path to @@ -689,7 +693,7 @@ 2006-02-21 Eric Ding * mh-e.el (mh-invisible-header-fields-internal): Add entry - "X-Sasl-enc:" + "X-Sasl-enc:". 2006-02-20 Eric Ding @@ -958,7 +962,7 @@ * mh-comp.el (mh-send-sub): Don't find components file in current directory--this seems to have been a side-effect of commenting out - the use of an old mh-etc variable. Improve error message. + the use of an old mh-etc variable. Improve error message. 2006-01-31 Bill Wohler @@ -979,7 +983,7 @@ (mh-display-completion-list): Move here from mh-comp.el. (mh-face-foreground, mh-face-background): Move here from mh-xface.el. - (mh-write-file-functions): Move here from mh-folder.el + (mh-write-file-functions): Move here from mh-folder.el. * mh-folder.el (mh-write-file-functions-compat): Move to mh-compat.el and rename to mh-write-file-functions. @@ -1042,7 +1046,7 @@ mh-adaptive-cmd-note-flag. * mh-comp.el (sc-cite-original): Remove autoload of "sc" with old - docstring. sc-cite-original is autoloaded via loaddefs.el for all + docstring. sc-cite-original is autoloaded via loaddefs.el for all supported versions. In addition, the package name "sc" has been made obsolete by "supercite since at least Emacs 21. @@ -1323,7 +1327,7 @@ * mh-exec.el: Move content into mh-e.el and remove. - * mh-folder.el: New file. Contains mh-folder-mode from mh-e.el. + * mh-folder.el: New file. Contains mh-folder-mode from mh-e.el. * mh-funcs.el (mh-note-copied, mh-note-printed): Move to new file mh-scan.el. @@ -1368,7 +1372,7 @@ * mh-print.el: Rearrange for consistency with other files. - * mh-scan.el: New file. Contains scan line constants and utilities + * mh-scan.el: New file. Contains scan line constants and utilities from XXX, mh-funcs, mh-utils.el. * mh-search.el: Rearrange for consistency with other files. @@ -1565,7 +1569,7 @@ * mh-comp.el (mh-pgp-support-flag): Move here from mh-utils.el; needed to help remove dependency on mh-utils. - * mh-exec.el: New file. Move process support routines here from + * mh-exec.el: New file. Move process support routines here from mh-utils.el. * mh-init.el (mh-utils): Remove require. @@ -1612,7 +1616,7 @@ (mh-kill-folder-suppress-prompt-hooks): Rename mh-index-p to mh-search-p. (mh-search-mode-hook): Change group from mh-index to mh-search. - (mh-index-folder): Rename to mh-search-folder. Change group from + (mh-index-folder): Rename to mh-search-folder. Change group from mh-index to mh-search. * mh-e.el (mh-folder-font-lock-keywords): Rename mh-index-folder @@ -1667,7 +1671,7 @@ 2006-01-12 Bill Wohler * mh-search.el: New file containing contents of mh-index.el and - mh-pick.el. C-c C-c launches your mh-index-program; C-c C-p runs + mh-pick.el. C-c C-c launches your mh-index-program; C-c C-p runs pick. Pick no longer sets the "search" sequence. Instead, it brings up a folder view that we're accustomed to. (Closes SF #829207.) @@ -1722,13 +1726,13 @@ * mh-utils.el (mh-x-image-url-cache-canonicalize): Use url-hexify-string to remove special characters from filenames - (closes SF #1396499). Note that this invalidates the existing + (closes SF #1396499). Note that this invalidates the existing names in your cache so you might as well remove ~/Mail/.mhe-x-image-cache/* now. (url-unreserved-chars, url-hexify-string): Define if not defined. Copied from url-util.el in Emacs22 for Emacs 21. - * mh-buffers.el: New file. Contains constants and code from + * mh-buffers.el: New file. Contains constants and code from mh-index.el and mh-utils.el. * mh-alias.el: @@ -1758,7 +1762,7 @@ 2006-01-10 Bill Wohler * mh-comp.el (mh-insert-letter): If you choose a different folder, - the cur message is used. Sync docstring with manual (closes SF + the cur message is used. Sync docstring with manual (closes SF #1205890). * mh-mime.el (mh-compose-forward): Use standard range argument @@ -1776,7 +1780,7 @@ use function mh-variants instead. (mh-variant-info, mh-variant-mh-info, mh-variant-mu-mh-info) (mh-variant-nmh-info): Co-locate next to mh-variants, which uses - them. Updated to use mh-file-command-p which is more accurrate + them. Updated to use mh-file-command-p which is more accurrate than file-executable-p which returns t for directories. (mh-file-command-p): Move here from mh-utils, since mh-variant-*-info are the only functions to use it. @@ -1962,8 +1966,8 @@ * mh-customize.el (mh-folder-msg-number): Snow is actually off-white on low color displays which turns to white when bold. - This is unreadable on white backgrounds. Use snow with min-colors - requirement. Use cyan on low-color displays. + This is unreadable on white backgrounds. Use snow with min-colors + requirement. Use cyan on low-color displays. * mh-init.el (mh-defface-compat): On low-color displays, delete the high-color display rather than simply strip the min-colors @@ -1976,13 +1980,13 @@ 2006-01-02 Bill Wohler * mh-alias.el (mh-alias-grab-from-field): Remove leading * from - docstring. Does this mean something in a defun? + docstring. Does this mean something in a defun? * mh-customize.el (bw-new-face-to-old, bw-old-face-to-new): Checkdoc fix. * mh-e.el (mh-inc-folder): Rename maildrop-name argument to file - so it reads better in docstring and manual. Sync docstring with + so it reads better in docstring and manual. Sync docstring with manual. * mh-init.el (mh-defface-compat): Remove trailing space (checkdoc). @@ -2004,7 +2008,7 @@ * mh-e.el (mh-refile-or-write-again, mh-toggle-showing): Ditto. * mh-funcs.el (mh-pipe-msg, mh-sort-folder, mh-undo-folder) - (mh-store-msg, mh-store-buffer): Ditto + (mh-store-msg, mh-store-buffer): Ditto. * mh-index.el (mh-index-search, mh-index-do-search) (mh-index-next-folder, mh-index-sequenced-messages): Ditto. @@ -2014,7 +2018,7 @@ * mh-mime.el (mh-mh-compose-external-compressed-tar) (mh-mh-compose-external-type, mh-mh-to-mime, mh-mh-to-mime-undo) (mh-mml-secure-message-sign, mh-mml-secure-message-encrypt) - (mh-mml-secure-message-signencrypt): Ditto + (mh-mml-secure-message-signencrypt): Ditto. * mh-pick.el (mh-search-folder): Ditto. @@ -2068,7 +2072,7 @@ (mh-scan-date-regexp, mh-scan-rcpt-regexp, mh-scan-body-regexp) (mh-scan-subject-regexp): Sync docstrings with manual (mh-scan-format-regexp): Rename to - mh-scan-sent-to-me-sender-regexp. Drop date parenthesized + mh-scan-sent-to-me-sender-regexp. Drop date parenthesized expression. Make expression more like the others (anchored at the beginning of line). Sync docstrings with manual. (mh-folder-font-lock-keywords): Use faces directly rather than @@ -2228,7 +2232,7 @@ (mh-tool-bar-define): Replace toolbar with tool-bar or tool bar depending on context. (mh-toolbar-init): Rename to mh-tool-bar-init. Simplify condition - for calling set-specifier. Only look at the value of + for calling set-specifier. Only look at the value of mh-xemacs-use-tool-bar-flag. (mh-tool-bar-folder-buttons, mh-tool-bar-letter-buttons): Sync docstrings with manual. @@ -2501,7 +2505,7 @@ msg argument to message (to make for a better docstring). * mh-customize.el (mh-redist-full-contents-flag): Convert defvar - to defcustom. Rename by adding -flag. + to defcustom. Rename by adding -flag. (mh-compose-forward-as-mime-flag) (mh-compose-letter-function, mh-forward-subject-format) (mh-insert-x-mailer-flag, mh-reply-default-reply-to) @@ -2623,10 +2627,10 @@ Sync docstring with manual. * mh-identity.el (mh-assoc-ignore-case): Merge with version in - mh-alias.el and move to mh-acros.el + mh-alias.el and move to mh-acros.el. * mh-alias.el (mh-assoc-ignore-case): Merge with version in - mh-identity.el and move to mh-acros.el + mh-identity.el and move to mh-acros.el. * mh-acros.el (mh-assoc-ignore-case): Merge of function from mh-identity.el and mh-alias.el. @@ -2667,15 +2671,15 @@ mh-mhn-compose-external-compressed-tar to mh-mh-compose-external-compressed-tar. Rename mh-mhn-compose-anon-ftp to mh-mh-compose-anon-ftp. Rename - mh-edit-mhn to mh-mh-to-mime. Rename mh-mhn-directive-present-p to - mh-mh-directive-present-p. Rename mh-revert-mhn-edit to + mh-edit-mhn to mh-mh-to-mime. Rename mh-mhn-directive-present-p to + mh-mh-directive-present-p. Rename mh-revert-mhn-edit to mh-mh-to-mime-undo. Rename mh-gnus-pgp-support-flag to mh-pgp-support-flag. Rename mh-compose-insertion value from 'mhn to 'mh. (mh-insert-signature): Rename mh-mhn-directive-present-p to mh-mh-directive-present-p. (mh-send-letter): Rename mh-mhn-directive-present-p to - mh-mh-directive-present-p. Rename mh-edit-mhn to mh-mh-to-mime. + mh-mh-directive-present-p. Rename mh-edit-mhn to mh-mh-to-mime. (mh-letter-mode-map): Rename mh-edit-mhn to mh-mh-to-mime. Rename mh-mhn-compose-anon-ftp to mh-mh-compose-anon-ftp. Rename mh-mhn-compose-external-compressed-tar to @@ -2829,7 +2833,7 @@ * mh-e.el (Version, mh-version): Add +cvs to version. -2005-10-14 Bill Wohler +2005-10-14 Bill Wohler Released MH-E version 7.85. From 5448351c6e2fdc790d090c052cffdb510a282771 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:25:27 +0000 Subject: [PATCH 161/276] (Comment Commands, Getting Started, Style Variables): Fix typos. --- man/cc-mode.texi | 254 +++++++++++++++++++++++------------------------ 1 file changed, 127 insertions(+), 127 deletions(-) diff --git a/man/cc-mode.texi b/man/cc-mode.texi index 217c32ff911..3cb670b3b53 100644 --- a/man/cc-mode.texi +++ b/man/cc-mode.texi @@ -236,113 +236,113 @@ functions, classes etc - there are other packages for that. @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @menu -* Introduction:: -* Overview:: -* Getting Started:: -* Commands:: -* Font Locking:: -* Config Basics:: -* Custom Filling and Breaking:: -* Custom Auto-newlines:: -* Clean-ups:: -* Indentation Engine Basics:: -* Customizing Indentation:: -* Custom Macros:: -* Odds and Ends:: -* Sample .emacs File:: -* Performance Issues:: -* Limitations and Known Bugs:: -* FAQ:: -* Updating CC Mode:: -* Mailing Lists and Bug Reports:: +* Introduction:: +* Overview:: +* Getting Started:: +* Commands:: +* Font Locking:: +* Config Basics:: +* Custom Filling and Breaking:: +* Custom Auto-newlines:: +* Clean-ups:: +* Indentation Engine Basics:: +* Customizing Indentation:: +* Custom Macros:: +* Odds and Ends:: +* Sample .emacs File:: +* Performance Issues:: +* Limitations and Known Bugs:: +* FAQ:: +* Updating CC Mode:: +* Mailing Lists and Bug Reports:: * GNU Free Documentation License:: -* Command and Function Index:: -* Variable Index:: -* Concept and Key Index:: +* Command and Function Index:: +* Variable Index:: +* Concept and Key Index:: @detailmenu --- The Detailed Node Listing --- Commands -* Indentation Commands:: -* Comment Commands:: -* Movement Commands:: -* Filling and Breaking:: -* Minor Modes:: -* Electric Keys:: -* Auto-newlines:: -* Hungry WS Deletion:: -* Subword Movement:: -* Other Commands:: +* Indentation Commands:: +* Comment Commands:: +* Movement Commands:: +* Filling and Breaking:: +* Minor Modes:: +* Electric Keys:: +* Auto-newlines:: +* Hungry WS Deletion:: +* Subword Movement:: +* Other Commands:: Font Locking -* Font Locking Preliminaries:: -* Faces:: -* Doc Comments:: -* AWK Mode Font Locking:: +* Font Locking Preliminaries:: +* Faces:: +* Doc Comments:: +* AWK Mode Font Locking:: Configuration Basics -* CC Hooks:: -* Style Variables:: -* Styles:: +* CC Hooks:: +* Style Variables:: +* Styles:: Styles -* Built-in Styles:: -* Choosing a Style:: -* Adding Styles:: -* File Styles:: +* Built-in Styles:: +* Choosing a Style:: +* Adding Styles:: +* File Styles:: Customizing Auto-newlines -* Hanging Braces:: -* Hanging Colons:: -* Hanging Semicolons and Commas:: +* Hanging Braces:: +* Hanging Colons:: +* Hanging Semicolons and Commas:: Hanging Braces -* Custom Braces:: +* Custom Braces:: Indentation Engine Basics -* Syntactic Analysis:: -* Syntactic Symbols:: -* Indentation Calculation:: +* Syntactic Analysis:: +* Syntactic Symbols:: +* Indentation Calculation:: Syntactic Symbols -* Function Symbols:: -* Class Symbols:: -* Conditional Construct Symbols:: -* Switch Statement Symbols:: -* Brace List Symbols:: -* External Scope Symbols:: -* Paren List Symbols:: -* Literal Symbols:: -* Multiline Macro Symbols:: -* Objective-C Method Symbols:: -* Anonymous Class Symbol:: -* Statement Block Symbols:: -* K&R Symbols:: +* Function Symbols:: +* Class Symbols:: +* Conditional Construct Symbols:: +* Switch Statement Symbols:: +* Brace List Symbols:: +* External Scope Symbols:: +* Paren List Symbols:: +* Literal Symbols:: +* Multiline Macro Symbols:: +* Objective-C Method Symbols:: +* Anonymous Class Symbol:: +* Statement Block Symbols:: +* K&R Symbols:: Customizing Indentation -* c-offsets-alist:: -* Interactive Customization:: -* Line-Up Functions:: -* Custom Line-Up:: -* Other Indentation:: +* c-offsets-alist:: +* Interactive Customization:: +* Line-Up Functions:: +* Custom Line-Up:: +* Other Indentation:: Line-Up Functions -* Brace/Paren Line-Up:: -* List Line-Up:: -* Operator Line-Up:: -* Comment Line-Up:: -* Misc Line-Up:: +* Brace/Paren Line-Up:: +* List Line-Up:: +* Operator Line-Up:: +* Comment Line-Up:: +* Misc Line-Up:: @end detailmenu @end menu @@ -534,7 +534,7 @@ is no ``easy customization'' facility for making this change.}: @end example @noindent -Details of of this and other similar ``Minor Modes'' appear in the +Details of this and other similar ``Minor Modes'' appear in the section @ref{Minor Modes}. @item Making the @key{RET} key indent the new line @@ -613,16 +613,16 @@ structures. @menu -* Indentation Commands:: -* Comment Commands:: -* Movement Commands:: -* Filling and Breaking:: -* Minor Modes:: -* Electric Keys:: -* Auto-newlines:: -* Hungry WS Deletion:: -* Subword Movement:: -* Other Commands:: +* Indentation Commands:: +* Comment Commands:: +* Movement Commands:: +* Filling and Breaking:: +* Minor Modes:: +* Electric Keys:: +* Auto-newlines:: +* Hungry WS Deletion:: +* Subword Movement:: +* Other Commands:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -852,7 +852,7 @@ actions describing how they should be handled. If a certain line type isn't present on the list then the line is indented to the column specified by @code{comment-column}. -See the documentation string for for a full description of this +See the documentation string for a full description of this variable (use @kbd{C-h v c-indent-comment-alist}). @end defopt @@ -1810,10 +1810,10 @@ chapter, @ref{AWK Mode Font Locking}, applies to AWK. The other sections apply to the other languages. @menu -* Font Locking Preliminaries:: -* Faces:: -* Doc Comments:: -* AWK Mode Font Locking:: +* Font Locking Preliminaries:: +* Faces:: +* Doc Comments:: +* AWK Mode Font Locking:: @end menu @@ -2318,9 +2318,9 @@ have it enabled by default by placing the following in your @end table @menu -* CC Hooks:: -* Style Variables:: -* Styles:: +* CC Hooks:: +* Style Variables:: +* Styles:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -2409,7 +2409,7 @@ The variables that @ccmode{}'s style system control are called @dfn{style variables}. Note that style variables are ordinary Lisp variables, which the style system initializes; you can change their values at any time (e.g. in a hook function). The style system can -also also set other variables, to some extent. @xref{Styles}. +also set other variables, to some extent. @xref{Styles}. @dfn{Style variables} are handled specially in several ways: @@ -2509,10 +2509,10 @@ for any particular style, and pretty easily start editing new or existing code using these styles. @menu -* Built-in Styles:: -* Choosing a Style:: -* Adding Styles:: -* File Styles:: +* Built-in Styles:: +* Choosing a Style:: +* Adding Styles:: +* File Styles:: @end menu @@ -3059,9 +3059,9 @@ to remove these automatically added newlines in certain specific circumstances. @xref{Clean-ups}. @menu -* Hanging Braces:: -* Hanging Colons:: -* Hanging Semicolons and Commas:: +* Hanging Braces:: +* Hanging Colons:: +* Hanging Semicolons and Commas:: @end menu @@ -3212,7 +3212,7 @@ themselves. @end defopt @menu -* Custom Braces:: +* Custom Braces:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -3732,9 +3732,9 @@ of the variables associated with indentation, not even @end defopt @menu -* Syntactic Analysis:: -* Syntactic Symbols:: -* Indentation Calculation:: +* Syntactic Analysis:: +* Syntactic Symbols:: +* Indentation Calculation:: @end menu @@ -4113,19 +4113,19 @@ Java. @ref{Anonymous Class Symbol}. @end table @menu -* Function Symbols:: -* Class Symbols:: -* Conditional Construct Symbols:: -* Switch Statement Symbols:: -* Brace List Symbols:: -* External Scope Symbols:: -* Paren List Symbols:: -* Literal Symbols:: -* Multiline Macro Symbols:: -* Objective-C Method Symbols:: -* Anonymous Class Symbol:: -* Statement Block Symbols:: -* K&R Symbols:: +* Function Symbols:: +* Class Symbols:: +* Conditional Construct Symbols:: +* Switch Statement Symbols:: +* Brace List Symbols:: +* External Scope Symbols:: +* Paren List Symbols:: +* Literal Symbols:: +* Multiline Macro Symbols:: +* Objective-C Method Symbols:: +* Anonymous Class Symbol:: +* Statement Block Symbols:: +* K&R Symbols:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -5019,11 +5019,11 @@ can install functions here to make ad-hoc adjustments to any line's indentation. @menu -* c-offsets-alist:: -* Interactive Customization:: -* Line-Up Functions:: -* Custom Line-Up:: -* Other Indentation:: +* c-offsets-alist:: +* Interactive Customization:: +* Line-Up Functions:: +* Custom Line-Up:: +* Other Indentation:: @end menu @@ -5371,11 +5371,11 @@ Works with: @end iftex @menu -* Brace/Paren Line-Up:: -* List Line-Up:: -* Operator Line-Up:: -* Comment Line-Up:: -* Misc Line-Up:: +* Brace/Paren Line-Up:: +* List Line-Up:: +* Operator Line-Up:: +* Comment Line-Up:: +* Misc Line-Up:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! From 790ad86fe8b1fb214d825b5633937a689f34bf62 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:30:38 +0000 Subject: [PATCH 162/276] (Article Buttons, Mail Source Customization, Sending or Not Sending, Customizing NNDiary): Fix typos. --- man/ChangeLog | 28 +++++++++++++++------------- man/gnus.texi | 8 ++++---- 2 files changed, 19 insertions(+), 17 deletions(-) diff --git a/man/ChangeLog b/man/ChangeLog index 1b8670fd19a..674fe02a4a5 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,6 +1,8 @@ 2007-06-06 Juanma Barranquero - * gnus.texi (Article Buttons): + * cc-mode.texi (Comment Commands, Getting Started, Style Variables): + * gnus.texi (Article Buttons, Mail Source Customization) + (Sending or Not Sending, Customizing NNDiary): * maintaining.texi (Create Tags Table): * message.texi (Message Headers): * mh-e.texi (HTML): Fix typos. @@ -1382,9 +1384,9 @@ * emacs.texi (\hbadness): Set to 6000 so we aren't bothered by not-too-underfull hboxes in the TeX output. * abbrevs.texi, buffers.texi, building.texi, calendar.texi, - cmdargs.texi, custom.texi, dired.texi, macos.texi, - maintaining.texi, misc.texi, mule.texi, programs.texi, rmail.texi, - sending.texi, text.texi: fix overfull/underfull boxes. + * cmdargs.texi, custom.texi, dired.texi, macos.texi, + * maintaining.texi, misc.texi, mule.texi, programs.texi, rmail.texi, + * sending.texi, text.texi: Fix overfull/underfull boxes. 2006-07-03 Romain Francoise @@ -1951,11 +1953,11 @@ 2006-05-05 Karl Berry - * texinfo.tex (\definetextfonsizexi, \definetextfonsizex): new cmds. - (\fonttextsize): new user-level command to change text font size. - * emacs.texi: call @fonttextsize 10, inside @tex to avoid + * texinfo.tex (\definetextfonsizexi, \definetextfonsizex): New cmds. + (\fonttextsize): New user-level command to change text font size. + * emacs.texi: Call @fonttextsize 10, inside @tex to avoid errors from the current release of makeinfo (4.8). - * help.texi (Library Keywords): change widest word in multitable + * help.texi (Library Keywords): Change widest word in multitable template from `emulations' to `convenience'. (Not sure if this is related to the font change.) @@ -2155,7 +2157,7 @@ (Inserting Version Control Headers, Customizing VC, General Options) (Options for RCS and SCCS, Options specific for CVS): Move all these nodes to emacs-xtra.texi, for brevity. - * cmdargs.texi, files.texi: change cross-references. + * cmdargs.texi, files.texi: Change cross-references. 2006-04-11 Reiner Steib @@ -2186,13 +2188,13 @@ 2006-04-09 Karl Berry - * msdog.texi, emacs-xtra.texi: move all the MS-DOS material to + * msdog.texi, emacs-xtra.texi: Move all the MS-DOS material to emacs-xtra.texi, leaving only MS Windows information. * building.texi, emacs.texi, frames.texi, gnu.texi, macos.texi, - msdog.texi, mule.texi, trouble.texi: change cross-references and + * msdog.texi, mule.texi, trouble.texi: Change cross-references and node names. - * emacs.texi: move @summarycontents and @contents to the beginning + * emacs.texi: Move @summarycontents and @contents to the beginning of the file. 2006-04-07 Reiner Steib @@ -2271,7 +2273,7 @@ * sending.texi (Mail Sending): pxref to Top needs five args. - * texinfo.tex: update to current version (2006-03-21.13). + * texinfo.tex: Update to current version (2006-03-21.13). 2006-04-02 Bill Wohler diff --git a/man/gnus.texi b/man/gnus.texi index 3277a2c7efe..a3026251cb1 100644 --- a/man/gnus.texi +++ b/man/gnus.texi @@ -14034,7 +14034,7 @@ files. If a positive number, delete files older than number of days @item mail-source-delete-old-incoming-confirm @vindex mail-source-delete-old-incoming-confirm -If non-@code{nil}, ask for for confirmation before deleting old incoming +If non-@code{nil}, ask for confirmation before deleting old incoming files. This variable only applies when @code{mail-source-delete-incoming} is a positive number. @@ -18107,7 +18107,7 @@ two variables are probably the only ones you will want to change: @defvar nndiary-reminders This is the list of times when you want to be reminded of your -appointements (e.g. 3 weeks before, then 2 days before, then 1 hour +appointments (e.g. 3 weeks before, then 2 days before, then 1 hour before and that's it). Remember that ``being reminded'' means that the diary message will pop up as brand new and unread again when you get new mail. @@ -18258,14 +18258,14 @@ automatically (although not filled with proper values yet). @node Sending or Not Sending @subsection Sending or Not Sending -Well, assuming you've read of of the above, here are two final notes on +Well, assuming you've read all of the above, here are two final notes on mail sending with @code{nndiary}: @itemize @bullet @item @code{nndiary} is a @emph{real} mail back end. You really send real diary messsages for real. This means for instance that you can give -appointements to anybody (provided they use Gnus and @code{nndiary}) by +appointments to anybody (provided they use Gnus and @code{nndiary}) by sending the diary message to them as well. @item However, since @code{nndiary} also has a @code{request-post} method, you From fe11e7c24b1633e1ceba4d5930a94b1b52ed6d40 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:34:09 +0000 Subject: [PATCH 163/276] (Comment Commands, Getting Started, Style Variables): Fix typos. --- man/cc-mode.texi | 254 +++++++++++++++++++++++------------------------ 1 file changed, 127 insertions(+), 127 deletions(-) diff --git a/man/cc-mode.texi b/man/cc-mode.texi index 217c32ff911..3cb670b3b53 100644 --- a/man/cc-mode.texi +++ b/man/cc-mode.texi @@ -236,113 +236,113 @@ functions, classes etc - there are other packages for that. @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @menu -* Introduction:: -* Overview:: -* Getting Started:: -* Commands:: -* Font Locking:: -* Config Basics:: -* Custom Filling and Breaking:: -* Custom Auto-newlines:: -* Clean-ups:: -* Indentation Engine Basics:: -* Customizing Indentation:: -* Custom Macros:: -* Odds and Ends:: -* Sample .emacs File:: -* Performance Issues:: -* Limitations and Known Bugs:: -* FAQ:: -* Updating CC Mode:: -* Mailing Lists and Bug Reports:: +* Introduction:: +* Overview:: +* Getting Started:: +* Commands:: +* Font Locking:: +* Config Basics:: +* Custom Filling and Breaking:: +* Custom Auto-newlines:: +* Clean-ups:: +* Indentation Engine Basics:: +* Customizing Indentation:: +* Custom Macros:: +* Odds and Ends:: +* Sample .emacs File:: +* Performance Issues:: +* Limitations and Known Bugs:: +* FAQ:: +* Updating CC Mode:: +* Mailing Lists and Bug Reports:: * GNU Free Documentation License:: -* Command and Function Index:: -* Variable Index:: -* Concept and Key Index:: +* Command and Function Index:: +* Variable Index:: +* Concept and Key Index:: @detailmenu --- The Detailed Node Listing --- Commands -* Indentation Commands:: -* Comment Commands:: -* Movement Commands:: -* Filling and Breaking:: -* Minor Modes:: -* Electric Keys:: -* Auto-newlines:: -* Hungry WS Deletion:: -* Subword Movement:: -* Other Commands:: +* Indentation Commands:: +* Comment Commands:: +* Movement Commands:: +* Filling and Breaking:: +* Minor Modes:: +* Electric Keys:: +* Auto-newlines:: +* Hungry WS Deletion:: +* Subword Movement:: +* Other Commands:: Font Locking -* Font Locking Preliminaries:: -* Faces:: -* Doc Comments:: -* AWK Mode Font Locking:: +* Font Locking Preliminaries:: +* Faces:: +* Doc Comments:: +* AWK Mode Font Locking:: Configuration Basics -* CC Hooks:: -* Style Variables:: -* Styles:: +* CC Hooks:: +* Style Variables:: +* Styles:: Styles -* Built-in Styles:: -* Choosing a Style:: -* Adding Styles:: -* File Styles:: +* Built-in Styles:: +* Choosing a Style:: +* Adding Styles:: +* File Styles:: Customizing Auto-newlines -* Hanging Braces:: -* Hanging Colons:: -* Hanging Semicolons and Commas:: +* Hanging Braces:: +* Hanging Colons:: +* Hanging Semicolons and Commas:: Hanging Braces -* Custom Braces:: +* Custom Braces:: Indentation Engine Basics -* Syntactic Analysis:: -* Syntactic Symbols:: -* Indentation Calculation:: +* Syntactic Analysis:: +* Syntactic Symbols:: +* Indentation Calculation:: Syntactic Symbols -* Function Symbols:: -* Class Symbols:: -* Conditional Construct Symbols:: -* Switch Statement Symbols:: -* Brace List Symbols:: -* External Scope Symbols:: -* Paren List Symbols:: -* Literal Symbols:: -* Multiline Macro Symbols:: -* Objective-C Method Symbols:: -* Anonymous Class Symbol:: -* Statement Block Symbols:: -* K&R Symbols:: +* Function Symbols:: +* Class Symbols:: +* Conditional Construct Symbols:: +* Switch Statement Symbols:: +* Brace List Symbols:: +* External Scope Symbols:: +* Paren List Symbols:: +* Literal Symbols:: +* Multiline Macro Symbols:: +* Objective-C Method Symbols:: +* Anonymous Class Symbol:: +* Statement Block Symbols:: +* K&R Symbols:: Customizing Indentation -* c-offsets-alist:: -* Interactive Customization:: -* Line-Up Functions:: -* Custom Line-Up:: -* Other Indentation:: +* c-offsets-alist:: +* Interactive Customization:: +* Line-Up Functions:: +* Custom Line-Up:: +* Other Indentation:: Line-Up Functions -* Brace/Paren Line-Up:: -* List Line-Up:: -* Operator Line-Up:: -* Comment Line-Up:: -* Misc Line-Up:: +* Brace/Paren Line-Up:: +* List Line-Up:: +* Operator Line-Up:: +* Comment Line-Up:: +* Misc Line-Up:: @end detailmenu @end menu @@ -534,7 +534,7 @@ is no ``easy customization'' facility for making this change.}: @end example @noindent -Details of of this and other similar ``Minor Modes'' appear in the +Details of this and other similar ``Minor Modes'' appear in the section @ref{Minor Modes}. @item Making the @key{RET} key indent the new line @@ -613,16 +613,16 @@ structures. @menu -* Indentation Commands:: -* Comment Commands:: -* Movement Commands:: -* Filling and Breaking:: -* Minor Modes:: -* Electric Keys:: -* Auto-newlines:: -* Hungry WS Deletion:: -* Subword Movement:: -* Other Commands:: +* Indentation Commands:: +* Comment Commands:: +* Movement Commands:: +* Filling and Breaking:: +* Minor Modes:: +* Electric Keys:: +* Auto-newlines:: +* Hungry WS Deletion:: +* Subword Movement:: +* Other Commands:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -852,7 +852,7 @@ actions describing how they should be handled. If a certain line type isn't present on the list then the line is indented to the column specified by @code{comment-column}. -See the documentation string for for a full description of this +See the documentation string for a full description of this variable (use @kbd{C-h v c-indent-comment-alist}). @end defopt @@ -1810,10 +1810,10 @@ chapter, @ref{AWK Mode Font Locking}, applies to AWK. The other sections apply to the other languages. @menu -* Font Locking Preliminaries:: -* Faces:: -* Doc Comments:: -* AWK Mode Font Locking:: +* Font Locking Preliminaries:: +* Faces:: +* Doc Comments:: +* AWK Mode Font Locking:: @end menu @@ -2318,9 +2318,9 @@ have it enabled by default by placing the following in your @end table @menu -* CC Hooks:: -* Style Variables:: -* Styles:: +* CC Hooks:: +* Style Variables:: +* Styles:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -2409,7 +2409,7 @@ The variables that @ccmode{}'s style system control are called @dfn{style variables}. Note that style variables are ordinary Lisp variables, which the style system initializes; you can change their values at any time (e.g. in a hook function). The style system can -also also set other variables, to some extent. @xref{Styles}. +also set other variables, to some extent. @xref{Styles}. @dfn{Style variables} are handled specially in several ways: @@ -2509,10 +2509,10 @@ for any particular style, and pretty easily start editing new or existing code using these styles. @menu -* Built-in Styles:: -* Choosing a Style:: -* Adding Styles:: -* File Styles:: +* Built-in Styles:: +* Choosing a Style:: +* Adding Styles:: +* File Styles:: @end menu @@ -3059,9 +3059,9 @@ to remove these automatically added newlines in certain specific circumstances. @xref{Clean-ups}. @menu -* Hanging Braces:: -* Hanging Colons:: -* Hanging Semicolons and Commas:: +* Hanging Braces:: +* Hanging Colons:: +* Hanging Semicolons and Commas:: @end menu @@ -3212,7 +3212,7 @@ themselves. @end defopt @menu -* Custom Braces:: +* Custom Braces:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -3732,9 +3732,9 @@ of the variables associated with indentation, not even @end defopt @menu -* Syntactic Analysis:: -* Syntactic Symbols:: -* Indentation Calculation:: +* Syntactic Analysis:: +* Syntactic Symbols:: +* Indentation Calculation:: @end menu @@ -4113,19 +4113,19 @@ Java. @ref{Anonymous Class Symbol}. @end table @menu -* Function Symbols:: -* Class Symbols:: -* Conditional Construct Symbols:: -* Switch Statement Symbols:: -* Brace List Symbols:: -* External Scope Symbols:: -* Paren List Symbols:: -* Literal Symbols:: -* Multiline Macro Symbols:: -* Objective-C Method Symbols:: -* Anonymous Class Symbol:: -* Statement Block Symbols:: -* K&R Symbols:: +* Function Symbols:: +* Class Symbols:: +* Conditional Construct Symbols:: +* Switch Statement Symbols:: +* Brace List Symbols:: +* External Scope Symbols:: +* Paren List Symbols:: +* Literal Symbols:: +* Multiline Macro Symbols:: +* Objective-C Method Symbols:: +* Anonymous Class Symbol:: +* Statement Block Symbols:: +* K&R Symbols:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -5019,11 +5019,11 @@ can install functions here to make ad-hoc adjustments to any line's indentation. @menu -* c-offsets-alist:: -* Interactive Customization:: -* Line-Up Functions:: -* Custom Line-Up:: -* Other Indentation:: +* c-offsets-alist:: +* Interactive Customization:: +* Line-Up Functions:: +* Custom Line-Up:: +* Other Indentation:: @end menu @@ -5371,11 +5371,11 @@ Works with: @end iftex @menu -* Brace/Paren Line-Up:: -* List Line-Up:: -* Operator Line-Up:: -* Comment Line-Up:: -* Misc Line-Up:: +* Brace/Paren Line-Up:: +* List Line-Up:: +* Operator Line-Up:: +* Comment Line-Up:: +* Misc Line-Up:: @end menu @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! From 94208feae43d6eb72d8c45156838cc00cc4e0b48 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:37:33 +0000 Subject: [PATCH 164/276] (Article Buttons, Mail Source Customization, Sending or Not Sending, Customizing NNDiary): Fix typos. --- man/gnus.texi | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/man/gnus.texi b/man/gnus.texi index dc02efa766f..a3026251cb1 100644 --- a/man/gnus.texi +++ b/man/gnus.texi @@ -8936,7 +8936,7 @@ This variable determines what to do when the button on a string as message ID or a mail address. If it is one of the symbols @code{mid} or @code{mail}, Gnus will always assume that the string is a message ID or a mail address, respectively. If this variable is set to the symbol -@code{ask}, always query the user what do do. If it is a function, this +@code{ask}, always query the user what to do. If it is a function, this function will be called with the string as its only argument. The function must return @code{mid}, @code{mail}, @code{invalid} or @code{ask}. The default value is the function @@ -14034,7 +14034,7 @@ files. If a positive number, delete files older than number of days @item mail-source-delete-old-incoming-confirm @vindex mail-source-delete-old-incoming-confirm -If non-@code{nil}, ask for for confirmation before deleting old incoming +If non-@code{nil}, ask for confirmation before deleting old incoming files. This variable only applies when @code{mail-source-delete-incoming} is a positive number. @@ -16589,7 +16589,7 @@ Probably the only useful value to change this to is messages instead of the internal article date. See section 6.4.4 of RFC 2060 for more information on valid strings. -However, if @code{nnimap-search-uids-not-since-is-evil} +However, if @code{nnimap-search-uids-not-since-is-evil} is true, this variable has no effect since the search logic is reversed, as described below. @@ -18107,7 +18107,7 @@ two variables are probably the only ones you will want to change: @defvar nndiary-reminders This is the list of times when you want to be reminded of your -appointements (e.g. 3 weeks before, then 2 days before, then 1 hour +appointments (e.g. 3 weeks before, then 2 days before, then 1 hour before and that's it). Remember that ``being reminded'' means that the diary message will pop up as brand new and unread again when you get new mail. @@ -18258,14 +18258,14 @@ automatically (although not filled with proper values yet). @node Sending or Not Sending @subsection Sending or Not Sending -Well, assuming you've read of of the above, here are two final notes on +Well, assuming you've read all of the above, here are two final notes on mail sending with @code{nndiary}: @itemize @bullet @item @code{nndiary} is a @emph{real} mail back end. You really send real diary messsages for real. This means for instance that you can give -appointements to anybody (provided they use Gnus and @code{nndiary}) by +appointments to anybody (provided they use Gnus and @code{nndiary}) by sending the diary message to them as well. @item However, since @code{nndiary} also has a @code{request-post} method, you From 2e28f52dc826931b2238b983f6c17b88f13efd89 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:38:45 +0000 Subject: [PATCH 165/276] (Create Tags Table): Fix typo. --- man/maintaining.texi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/man/maintaining.texi b/man/maintaining.texi index c9e77ede2a1..988d5890b8c 100644 --- a/man/maintaining.texi +++ b/man/maintaining.texi @@ -409,8 +409,8 @@ source files, and the tags file will still refer correctly to the source files. If the tags file is in @file{/dev}, however, the file names are made relative to the current working directory. This is useful, for example, when writing the tags to @file{/dev/stdout}. - - When using a a relative file name, it should not be a symbolic link + + When using a relative file name, it should not be a symbolic link pointing to a tags file in a different directory, because this would generally render the file names invalid. From cf5e3b4dc01d87826a8894f04b7c06fce45041b3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:39:42 +0000 Subject: [PATCH 166/276] (Message Headers): Fix typo. --- man/message.texi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/man/message.texi b/man/message.texi index c843d8c58d9..eef4d77205a 100644 --- a/man/message.texi +++ b/man/message.texi @@ -1450,7 +1450,7 @@ responding to a message: @vindex message-subject-trailing-was-regexp Controls what to do with trailing @samp{(was: )} in subject lines. If @code{nil}, leave the subject unchanged. If it is the symbol -@code{ask}, query the user what do do. In this case, the subject is +@code{ask}, query the user what to do. In this case, the subject is matched against @code{message-subject-trailing-was-ask-regexp}. If @code{message-subject-trailing-was-query} is @code{t}, always strip the trailing old subject. In this case, From b5dc2fcf59c658af37694b7d95e93cc9a3aa8302 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:42:41 +0000 Subject: [PATCH 167/276] (HTML): Fix typo. --- man/ChangeLog | 81 +++++++++++--------- man/mh-e.texi | 200 +++++++++++++++++++++++++------------------------- 2 files changed, 145 insertions(+), 136 deletions(-) diff --git a/man/ChangeLog b/man/ChangeLog index 640b4894726..cf1d324f7be 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,12 @@ +2007-06-06 Juanma Barranquero + + * cc-mode.texi (Comment Commands, Getting Started, Style Variables): + * gnus.texi (Article Buttons, Mail Source Customization) + (Sending or Not Sending, Customizing NNDiary): + * maintaining.texi (Create Tags Table): + * message.texi (Message Headers): + * mh-e.texi (HTML): Fix typos. + 2007-06-02 Chong Yidong * Version 22.1 released. @@ -12,7 +21,7 @@ 2007-05-10 Didier Verna - * gnus.texi (Email Based Diary): New. Proper documentation for the + * gnus.texi (Email Based Diary): New. Proper documentation for the nndiary back end and the gnus-diary library. 2007-05-05 Francesco Potort,Al(B @@ -28,9 +37,9 @@ * emacs.texi (EMACSVER) [smallbook]: 22 for printed version. - * .cvsignore (*.pdf): new entry. + * .cvsignore (*.pdf): New entry. - * texinfo.tex: update from current version for better pdf generation. + * texinfo.tex: Update from current version for better pdf generation. * emacs.texi (\urlcolor, \linkcolor) [smallbook]: \let to \Black for printing. @@ -91,8 +100,8 @@ * misc.texi (Thumbnails): Node deleted. * emacs.texi (Top): Update node listing. - * files.texi (File Conveniences): - * ack.texi (Acknowledgments): + * files.texi (File Conveniences): + * ack.texi (Acknowledgments): * faq.texi (New in Emacs 22): Rename "tumme" to "image-dired". 2007-04-21 Richard Stallman @@ -1356,9 +1365,9 @@ * emacs.texi (\hbadness): Set to 6000 so we aren't bothered by not-too-underfull hboxes in the TeX output. * abbrevs.texi, buffers.texi, building.texi, calendar.texi, - cmdargs.texi, custom.texi, dired.texi, macos.texi, - maintaining.texi, misc.texi, mule.texi, programs.texi, rmail.texi, - sending.texi, text.texi: fix overfull/underfull boxes. + * cmdargs.texi, custom.texi, dired.texi, macos.texi, + * maintaining.texi, misc.texi, mule.texi, programs.texi, rmail.texi, + * sending.texi, text.texi: Fix overfull/underfull boxes. 2006-07-03 Romain Francoise @@ -1441,7 +1450,7 @@ 2006-06-25 Nick Roberts - * frames.texi (XTerm Mouse) Rename to... + * frames.texi (XTerm Mouse): Rename to... (Text-Only Mouse): ...this. Mention t-mouse-mode. * emacs.texi (Top): Use new node name. @@ -1784,7 +1793,7 @@ 2006-05-06 Eli Zaretskii * makefile.w32-in (emacs.dvi): - * Makefile.in (emacs.dvi): Add xresmini.texi + * Makefile.in (emacs.dvi): Add xresmini.texi. * xresmini.texi (Table of Resources): Remove xref to non-existent node "LessTif Resources". @@ -1870,7 +1879,7 @@ Next, and Up links. * emacs.texi (Top) [ifnottex]: Add menu entries for "Picture Mode" - and its sections. @include picture-xtra.texi + and its sections. @include picture-xtra.texi. * maintaining.texi (Maintaining) [ifnottex]: Add menu entry for "Emerge". @@ -1925,11 +1934,11 @@ 2006-05-05 Karl Berry - * texinfo.tex (\definetextfonsizexi, \definetextfonsizex): new cmds. - (\fonttextsize): new user-level command to change text font size. - * emacs.texi: call @fonttextsize 10, inside @tex to avoid + * texinfo.tex (\definetextfonsizexi, \definetextfonsizex): New cmds. + (\fonttextsize): New user-level command to change text font size. + * emacs.texi: Call @fonttextsize 10, inside @tex to avoid errors from the current release of makeinfo (4.8). - * help.texi (Library Keywords): change widest word in multitable + * help.texi (Library Keywords): Change widest word in multitable template from `emulations' to `convenience'. (Not sure if this is related to the font change.) @@ -2129,7 +2138,7 @@ (Inserting Version Control Headers, Customizing VC, General Options) (Options for RCS and SCCS, Options specific for CVS): Move all these nodes to emacs-xtra.texi, for brevity. - * cmdargs.texi, files.texi: change cross-references. + * cmdargs.texi, files.texi: Change cross-references. 2006-04-11 Reiner Steib @@ -2160,13 +2169,13 @@ 2006-04-09 Karl Berry - * msdog.texi, emacs-xtra.texi: move all the MS-DOS material to + * msdog.texi, emacs-xtra.texi: Move all the MS-DOS material to emacs-xtra.texi, leaving only MS Windows information. * building.texi, emacs.texi, frames.texi, gnu.texi, macos.texi, - msdog.texi, mule.texi, trouble.texi: change cross-references and + * msdog.texi, mule.texi, trouble.texi: Change cross-references and node names. - * emacs.texi: move @summarycontents and @contents to the beginning + * emacs.texi: Move @summarycontents and @contents to the beginning of the file. 2006-04-07 Reiner Steib @@ -2245,7 +2254,7 @@ * sending.texi (Mail Sending): pxref to Top needs five args. - * texinfo.tex: update to current version (2006-03-21.13). + * texinfo.tex: Update to current version (2006-03-21.13). 2006-04-02 Bill Wohler @@ -2894,7 +2903,7 @@ * mark.texi: Minor clarifications. (Selective Undo): Node deleted. - * m-x.texi: Minor clarifications + * m-x.texi: Minor clarifications. * killing.texi: Minor clarifications. Refer to "graphical" terminals, rather than window systems. @@ -3584,7 +3593,7 @@ 2005-11-04 Carsten Dominik - * org.texi: Version number changed to 3.19 + * org.texi: Version number changed to 3.19. 2005-11-04 Romain Francoise @@ -3783,7 +3792,7 @@ 2005-10-10 Jan Dj,Ad(Brv - * cmdargs.texi (Icons X): -nb => -nbi + * cmdargs.texi (Icons X): -nb => -nbi. 2005-10-10 Chong Yidong @@ -3874,7 +3883,7 @@ 2005-09-23 Carsten Dominik - * org.texi Version 3.16 + * org.texi Version 3.16. 2005-09-21 YAMAMOTO Mitsuharu @@ -4134,11 +4143,11 @@ 2005-07-19 Carsten Dominik - * org.texi: Version 3.14 + * org.texi: Version 3.14. 2005-07-04 Carsten Dominik - * org.texi: Version 3.13 + * org.texi: Version 3.13. 2005-07-19 Juri Linkov @@ -4242,7 +4251,7 @@ 2005-06-29 Carsten Dominik - * org.texi: Version 3.12 + * org.texi: Version 3.12. 2005-06-24 Richard M. Stallman @@ -4322,7 +4331,7 @@ 2005-06-13 Carsten Dominik - * org.texi: Version 3.11 + * org.texi: Version 3.11. 2005-06-12 Jay Belanger @@ -4468,11 +4477,11 @@ 2005-05-20 Carsten Dominik - * org.texi: Version 3.09 + * org.texi: Version 3.09. 2005-05-18 Carsten Dominik - * reftex.texi: Version 4.28 + * reftex.texi: Version 4.28. 2005-05-18 Luc Teirlinck @@ -4620,7 +4629,7 @@ 2005-04-25 Chong Yidong - * ack.texi (Acknowledgments): Delete info about iso-acc.el + * ack.texi (Acknowledgments): Delete info about iso-acc.el. * dired.texi (Misc Dired Features): Document dired-compare-directories. @@ -6180,7 +6189,7 @@ 2004-09-10 Eli Zaretskii - * Makefile.in (../info/gnus, gnus.dvi): Depend on gnus-faq.texi + * Makefile.in (../info/gnus, gnus.dvi): Depend on gnus-faq.texi. 2004-09-09 Kim F. Storm @@ -7286,7 +7295,7 @@ 2003-02-17 Jan Dj,Ad(Brv - * xresources.texi (GTK names in Emacs): Add emacs-toolbar - GtkToolbar + * xresources.texi (GTK names in Emacs): Add emacs-toolbar - GtkToolbar. 2003-02-05 Kai Gro,A_(Bjohann @@ -7356,8 +7365,8 @@ Also use @ifnottex instead of @ifinfo around the top node, where needed for the sake of the HTML output. (The Gnus manual is not fixed since it's not clear to me how it - works; and the Tramp manual already uses @copying, although in an - unusual way. All others were changed.) + works; and the Tramp manual already uses @copying, although in an + unusual way. All others were changed.) 2002-09-10 Jonathan Yavner @@ -7482,7 +7491,7 @@ 1999-10-12 Stefan Monnier * Makefile.in (faq): Use ../info/emacs-faq.info (as specified in the - faq.texi file) rather than ../info/faq. + faq.texi file) rather than ../info/faq. 1999-10-07 Gerd Moellmann diff --git a/man/mh-e.texi b/man/mh-e.texi index 707e5e44b98..76697cbdcf5 100644 --- a/man/mh-e.texi +++ b/man/mh-e.texi @@ -132,64 +132,64 @@ Fifth Floor, Boston, MA 02110-1301, USA. Tour Through MH-E -* Sending Mail Tour:: -* Reading Mail Tour:: -* Processing Mail Tour:: -* Leaving MH-E:: -* More About MH-E:: +* Sending Mail Tour:: +* Reading Mail Tour:: +* Processing Mail Tour:: +* Leaving MH-E:: +* More About MH-E:: Using This Manual -* Options:: -* Ranges:: -* Folder Selection:: +* Options:: +* Ranges:: +* Folder Selection:: Reading Your Mail -* Viewing:: -* Viewing Attachments:: -* HTML:: -* Digests:: -* Reading PGP:: -* Printing:: -* Files and Pipes:: -* Navigating:: -* Miscellaneous Commands and Options:: +* Viewing:: +* Viewing Attachments:: +* HTML:: +* Digests:: +* Reading PGP:: +* Printing:: +* Files and Pipes:: +* Navigating:: +* Miscellaneous Commands and Options:: Sending Mail -* Composing:: -* Replying:: -* Forwarding:: -* Redistributing:: -* Editing Again:: +* Composing:: +* Replying:: +* Forwarding:: +* Redistributing:: +* Editing Again:: Editing a Draft -* Editing Message:: -* Inserting Letter:: -* Inserting Messages:: -* Signature:: -* Picture:: -* Adding Attachments:: -* Sending PGP:: -* Checking Recipients:: -* Sending Message:: -* Killing Draft:: +* Editing Message:: +* Inserting Letter:: +* Inserting Messages:: +* Signature:: +* Picture:: +* Adding Attachments:: +* Sending PGP:: +* Checking Recipients:: +* Sending Message:: +* Killing Draft:: Odds and Ends -* Bug Reports:: -* Mailing Lists:: -* MH FAQ and Support:: -* Getting MH-E:: +* Bug Reports:: +* Mailing Lists:: +* MH FAQ and Support:: +* Getting MH-E:: History of MH-E -* From Brian Reid:: -* From Jim Larus:: -* From Stephen Gildea:: -* From Bill Wohler:: +* From Brian Reid:: +* From Jim Larus:: +* From Stephen Gildea:: +* From Bill Wohler:: @end detailmenu @end menu @@ -360,7 +360,7 @@ mode (@pxref{Reading Mail Tour}). In this mode, simply enter the numerical argument before entering the command. @end quotation @sp 1 - + @cindex @file{.emacs} @cindex Emacs, variables @cindex files, @file{.emacs} @@ -415,7 +415,7 @@ Face Customization} in @cite{The GNU Emacs Manual}. @findex customize-option Commands often offer @dfn{hooks} which enable you to extend or modify -the way a command works. +the way a command works. @ifnothtml @ref{Hooks, , Hooks, emacs, The GNU Emacs Manual}, in @cite{The GNU Emacs Manual} @@ -673,11 +673,11 @@ use all the features of MH-E. I suggest you read this chapter first to get the big picture, and then you can read the manual as you wish. @menu -* Sending Mail Tour:: -* Reading Mail Tour:: -* Processing Mail Tour:: -* Leaving MH-E:: -* More About MH-E:: +* Sending Mail Tour:: +* Reading Mail Tour:: +* Processing Mail Tour:: +* Leaving MH-E:: +* More About MH-E:: @end menu @node Sending Mail Tour, Reading Mail Tour, Tour Through MH-E, Tour Through MH-E @@ -843,10 +843,10 @@ sending the original message, like this: @cartouche @smallexample -To: -cc: -Subject: Re: Test -In-reply-to: <31054.1142621351@@stop.mail-abuse.org> +To: +cc: +Subject: Re: Test +In-reply-to: <31054.1142621351@@stop.mail-abuse.org> References: <31054.1142621351@@stop.mail-abuse.org> Comments: In-reply-to Bill Wohler message dated "Fri, 17 Mar 2006 10:49:11 -0800." @@ -1161,9 +1161,9 @@ conflicts with existing MH-E symbols, use a prefix like @samp{my-} or your initials. (Unless, of course, your initials happen to be @emph{mh}!) @menu -* Options:: -* Ranges:: -* Folder Selection:: +* Options:: +* Ranges:: +* Folder Selection:: @end menu @node Options, Ranges, Using This Manual, Using This Manual @@ -2001,15 +2001,15 @@ The functions and variables introduced here are explained in more detail in the following sections. @menu -* Viewing:: -* Viewing Attachments:: -* HTML:: -* Digests:: -* Reading PGP:: -* Printing:: -* Files and Pipes:: -* Navigating:: -* Miscellaneous Commands and Options:: +* Viewing:: +* Viewing Attachments:: +* HTML:: +* Digests:: +* Reading PGP:: +* Printing:: +* Files and Pipes:: +* Navigating:: +* Miscellaneous Commands and Options:: @end menu @node Viewing, Viewing Attachments, Reading Mail, Reading Mail @@ -2047,7 +2047,7 @@ The option @code{mh-show-maximum-size} provides an opportunity to skip over large messages which may be slow to load. The default value of 0 means that all message are shown regardless of size. -A litany of options control what displayed messages look like. +A litany of options control what displayed messages look like. @vindex mh-show-cc @vindex mh-show-date @@ -2637,7 +2637,7 @@ the Gnus command @kbd{W h} (@pxref{Article Washing,,,gnus},). @end ifinfo @ifnotinfo see section @uref{http://www.gnus.org/manual/emacs-mime_6.html, -Display Customization} in the @cite{The Emacs MIME Manual} and the the +Display Customization} in the @cite{The Emacs MIME Manual} and the documentation for the Gnus command @kbd{W h} (see section @uref{http://www.gnus.org/manual/gnus_99.html, Article Washing} in the @cite{The Gnus Manual}). @@ -2808,7 +2808,7 @@ The latter is used whether the signature is unknown or untrusted. @cindex customization group, @samp{pgg} The @samp{pgg} customization group may have some settings which may -interest you. +interest you. @iftex See @cite{The PGG Manual}. @end iftex @@ -3942,11 +3942,11 @@ The functions and options introduced here are explained in more detail in the following sections. @menu -* Composing:: -* Replying:: -* Forwarding:: -* Redistributing:: -* Editing Again:: +* Composing:: +* Replying:: +* Forwarding:: +* Redistributing:: +* Editing Again:: @end menu @node Composing, Replying, Sending Mail, Sending Mail @@ -4686,16 +4686,16 @@ The commands and options introduced here are explained in more detail in the following sections. @menu -* Editing Message:: -* Inserting Letter:: -* Inserting Messages:: -* Signature:: -* Picture:: -* Adding Attachments:: -* Sending PGP:: -* Checking Recipients:: -* Sending Message:: -* Killing Draft:: +* Editing Message:: +* Inserting Letter:: +* Inserting Messages:: +* Signature:: +* Picture:: +* Adding Attachments:: +* Sending PGP:: +* Checking Recipients:: +* Sending Message:: +* Killing Draft:: @end menu @node Editing Message, Inserting Letter, Editing Drafts, Editing Drafts @@ -4795,7 +4795,7 @@ the alias expansion in the minibuffer if @code{mh-alias-flash-on-comma} is turned on. @c XXX Document the replacement for the inaccessible 'long argument. - + @findex mh-letter-toggle-header-field-display @kindex C-c C-t @@ -5543,7 +5543,7 @@ mechanisms include vanilla @samp{PGP} and @samp{S/MIME}. @cindex customization group, @samp{pgg} The @samp{pgg} customization group may have some settings which may -interest you. +interest you. @iftex See @cite{The PGG Manual}. @end iftex @@ -5954,7 +5954,7 @@ mh-alias-apropos} to show all aliases or addresses that match a regular expression @ifnothtml (@pxref{Regexps, , Syntax of Regular Expressions, emacs, The -GNU Emacs Manual}). +GNU Emacs Manual}). @end ifnothtml @ifhtml (see the section @@ -6104,7 +6104,7 @@ customize @code{mh-auto-fields-list}, click on the @samp{INS} button and enter a regular expression for the recipient's address @ifnothtml (@pxref{Regexps, , Syntax of Regular Expressions, emacs, The -GNU Emacs Manual}). +GNU Emacs Manual}). @end ifnothtml @ifhtml (see the section @@ -6142,7 +6142,7 @@ recipient is also listed there so that he receives replies to your reply. @c ------------------------- @item Other Field -Other header fields may be added using this menu item. +Other header fields may be added using this menu item. @end table @findex mh-insert-auto-fields @@ -6181,7 +6181,7 @@ added. To customize @code{mh-identity-handlers}, replace the name of an existing handler function associated with the field you want to change with the name of a function you have written. You can also click on an @samp{INS} button and insert a field of your choice and -the name of the function you have written to handle it. +the name of the function you have written to handle it. @vindex mh-identity-list @@ -6210,7 +6210,7 @@ containing the value for the field is given. @kindex M-x speedbar @kindex Mouse-2 -You can also use the speedbar +You can also use the speedbar @ifnothtml (@pxref{Speedbar, , Speedbar Frames, emacs, The GNU Emacs Manual},) @end ifnothtml @@ -6573,7 +6573,7 @@ There is one option from the @samp{mh-search} customization group used in searching. @vtable @code -@item mh-search-program +@item mh-search-program Search program that MH-E shall use (default: @samp{Auto-detect}). @end vtable @@ -7145,7 +7145,7 @@ Limit to messages with the same @samp{Cc:} field @c ------------------------- @kindex / m @findex mh-narrow-to-from -@item / m +@item / m Limit to messages with the same @samp{From:} field (@code{mh-narrow-to-from}). @c ------------------------- @@ -7635,7 +7635,7 @@ If you don't use @command{spamc}, use @samp{spamassassin -P -a}. Note that one of the recipes above throws away messages with a score greater than or equal to 10. Here's how you can determine a value that -works best for you. +works best for you. First, run @samp{spamassassin -t} on every mail message in your archive and use @command{gnumeric} to verify that the average plus the @@ -8579,10 +8579,10 @@ tell you how to report bugs and how to get on the MH-E mailing lists. I also point out some additional sources of information. @menu -* Bug Reports:: -* Mailing Lists:: -* MH FAQ and Support:: -* Getting MH-E:: +* Bug Reports:: +* Mailing Lists:: +* MH FAQ and Support:: +* Getting MH-E:: @end menu @node Bug Reports, Mailing Lists, Odds and Ends, Odds and Ends @@ -8713,10 +8713,10 @@ development to @uref{http://sourceforge.net/, SourceForge} where it lives today. @menu -* From Brian Reid:: -* From Jim Larus:: -* From Stephen Gildea:: -* From Bill Wohler:: +* From Brian Reid:: +* From Jim Larus:: +* From Stephen Gildea:: +* From Bill Wohler:: @end menu @node From Brian Reid, From Jim Larus, History, History @@ -9715,7 +9715,7 @@ Public License instead of this License. @c The following are words that ispell should ignore that would not @c normally be in a dictionary (global or personal). Be careful not to @c include words here that could potentially be typos of other words -@c (such as url, elisp, or MHE). +@c (such as url, elisp, or MHE). @c @c LocalWords: CTRL ESC SPC f's @c LocalWords: addr Aliasfile alist From 340f92b1d66d858725c181623546727113449f03 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:47:36 +0000 Subject: [PATCH 168/276] (gnus-diary-time-format, gnus-summary-sort-by-schedule): Fix typos in docstring. --- lisp/gnus/gnus-diary.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el index a7f7ee65ec3..d5bc9c3a05d 100644 --- a/lisp/gnus/gnus-diary.el +++ b/lisp/gnus/gnus-diary.el @@ -59,7 +59,7 @@ :group 'gnus-summary-format) (defcustom gnus-diary-time-format "%a, %b %e %y, %H:%M" - "*Time format to display appointements in nndiary summary buffers. + "*Time format to display appointments in nndiary summary buffers. Please refer to `format-time-string' for information on possible values." :type 'string :group 'gnus-diary) @@ -224,7 +224,7 @@ There are currently two built-in format functions: (gnus-thread-header h2))) (defun gnus-summary-sort-by-schedule (&optional reverse) - "Sort nndiary summary buffers by schedule of appointements. + "Sort nndiary summary buffers by schedule of appointments. Optional prefix (or REVERSE argument) means sort in reverse order." (interactive "P") (gnus-summary-sort 'schedule reverse)) From 554bf857a89186c9be92c1d8da83788afd1dc3b0 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:48:57 +0000 Subject: [PATCH 169/276] (nndiary-reminders): Fix typos in docstring. --- lisp/gnus/ChangeLog | 4 +++- lisp/gnus/nndiary.el | 16 ++++++++-------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6379346f936..ad052b4b0f1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,6 +1,8 @@ 2007-06-06 Juanma Barranquero - * gnus-sum.el (gnus-summary-highlight): Fix typos in docstring. + * gnus-diary.el (gnus-diary-time-format, gnus-summary-sort-by-schedule): + * gnus-sum.el (gnus-summary-highlight): + * nndiary.el (nndiary-reminders): Fix typos in docstrings. 2007-06-04 Katsumi Yamaoka diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el index 483c2ee1070..f6e0ae44cb2 100644 --- a/lisp/gnus/nndiary.el +++ b/lisp/gnus/nndiary.el @@ -131,7 +131,7 @@ non-nil." (defcustom nndiary-reminders '((0 . day)) - "*Different times when you want to be reminded of your appointements. + "*Different times when you want to be reminded of your appointments. Diary articles will appear again, as if they'd been just received. Entries look like (3 . day) which means something like \"Please @@ -145,7 +145,7 @@ not 'century, sorry). NOTE: the units of measure actually express dates, not durations: if you use 'week, messages will pop up on Sundays at 00:00 (or Mondays if `nndiary-week-starts-on-monday' is non-nil) and *not* 7 days before the -appointement, if you use 'month, messages will pop up on the first day of +appointment, if you use 'month, messages will pop up on the first day of each months, at 00:00 and so on. If you really want to specify a duration (like 24 hours exactly), you can @@ -155,15 +155,15 @@ scheme might appear somewhat weird at a first glance, it is very powerful. In order to make this clear, here are some examples: - '(0 . day): this is the default value of `nndiary-reminders'. It means - pop up the appointements of the day each morning at 00:00. + pop up the appointments of the day each morning at 00:00. -- '(1 . day): this means pop up the appointements the day before, at 00:00. +- '(1 . day): this means pop up the appointments the day before, at 00:00. -- '(6 . hour): for an appointement at 18:30, this would pop up the - appointement message at 12:00. +- '(6 . hour): for an appointment at 18:30, this would pop up the + appointment message at 12:00. -- '(360 . minute): for an appointement at 18:30 and 15 seconds, this would - pop up the appointement message at 12:30." +- '(360 . minute): for an appointment at 18:30 and 15 seconds, this would + pop up the appointment message at 12:30." :group 'nndiary :type '(repeat (cons :format "%v\n" (integer :format "%v") From bf8e97aed2aec1652fbaa243b5d2b3218f76a97f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:51:11 +0000 Subject: [PATCH 170/276] (gnus-diary-time-format, gnus-summary-sort-by-schedule): Fix typo in docstrings. --- lisp/gnus/gnus-diary.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el index a7f7ee65ec3..d5bc9c3a05d 100644 --- a/lisp/gnus/gnus-diary.el +++ b/lisp/gnus/gnus-diary.el @@ -59,7 +59,7 @@ :group 'gnus-summary-format) (defcustom gnus-diary-time-format "%a, %b %e %y, %H:%M" - "*Time format to display appointements in nndiary summary buffers. + "*Time format to display appointments in nndiary summary buffers. Please refer to `format-time-string' for information on possible values." :type 'string :group 'gnus-diary) @@ -224,7 +224,7 @@ There are currently two built-in format functions: (gnus-thread-header h2))) (defun gnus-summary-sort-by-schedule (&optional reverse) - "Sort nndiary summary buffers by schedule of appointements. + "Sort nndiary summary buffers by schedule of appointments. Optional prefix (or REVERSE argument) means sort in reverse order." (interactive "P") (gnus-summary-sort 'schedule reverse)) From 3e3dc2c35dcf23f5dbb49c80c551458a89f2650e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 23:53:20 +0000 Subject: [PATCH 171/276] (nndiary-reminders): Fix typos in docstring. --- lisp/gnus/ChangeLog | 4 +++- lisp/gnus/nndiary.el | 16 ++++++++-------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 67204757c30..cd7e5f0ec36 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,6 +1,8 @@ 2007-06-06 Juanma Barranquero - * gnus-sum.el (gnus-summary-highlight): Fix typos in docstring. + * gnus-diary.el (gnus-diary-time-format, gnus-summary-sort-by-schedule): + * gnus-sum.el (gnus-summary-highlight): + * nndiary.el (nndiary-reminders): Fix typos in docstrings. 2007-05-28 Katsumi Yamaoka diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el index 483c2ee1070..f6e0ae44cb2 100644 --- a/lisp/gnus/nndiary.el +++ b/lisp/gnus/nndiary.el @@ -131,7 +131,7 @@ non-nil." (defcustom nndiary-reminders '((0 . day)) - "*Different times when you want to be reminded of your appointements. + "*Different times when you want to be reminded of your appointments. Diary articles will appear again, as if they'd been just received. Entries look like (3 . day) which means something like \"Please @@ -145,7 +145,7 @@ not 'century, sorry). NOTE: the units of measure actually express dates, not durations: if you use 'week, messages will pop up on Sundays at 00:00 (or Mondays if `nndiary-week-starts-on-monday' is non-nil) and *not* 7 days before the -appointement, if you use 'month, messages will pop up on the first day of +appointment, if you use 'month, messages will pop up on the first day of each months, at 00:00 and so on. If you really want to specify a duration (like 24 hours exactly), you can @@ -155,15 +155,15 @@ scheme might appear somewhat weird at a first glance, it is very powerful. In order to make this clear, here are some examples: - '(0 . day): this is the default value of `nndiary-reminders'. It means - pop up the appointements of the day each morning at 00:00. + pop up the appointments of the day each morning at 00:00. -- '(1 . day): this means pop up the appointements the day before, at 00:00. +- '(1 . day): this means pop up the appointments the day before, at 00:00. -- '(6 . hour): for an appointement at 18:30, this would pop up the - appointement message at 12:00. +- '(6 . hour): for an appointment at 18:30, this would pop up the + appointment message at 12:00. -- '(360 . minute): for an appointement at 18:30 and 15 seconds, this would - pop up the appointement message at 12:30." +- '(360 . minute): for an appointment at 18:30 and 15 seconds, this would + pop up the appointment message at 12:30." :group 'nndiary :type '(repeat (cons :format "%v\n" (integer :format "%v") From 69bfc6c0a8f2bbec73c073811d54be11b724fe25 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:06:39 +0000 Subject: [PATCH 172/276] (ebrowse-member-table): Fix typo in docstring. --- lisp/progmodes/ebrowse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index d8385141177..ba73cbc2461 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -1003,7 +1003,7 @@ type `ebrowse-hs' is set to the resulting obarray." (defun ebrowse-member-table (header) - "Return the member obarray. Build it it hasn't been set up yet. + "Return the member obarray. Build it if it hasn't been set up yet. HEADER is the tree header structure of the class tree." (when (null (ebrowse-hs-member-table header)) (loop for buffer in (ebrowse-browser-buffer-list) From e699d13e0869b1dc846e81c76e0afa413c946dff Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:13:14 +0000 Subject: [PATCH 173/276] (erc-startup-file-list): Fix typo in docstring. --- lisp/erc/ChangeLog | 3 ++- lisp/erc/erc.el | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index eec2478b162..9ffbcbd5201 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,6 +1,7 @@ 2007-06-06 Juanma Barranquero - * erc.el (erc-show-channel-key-p): Fix typo in docstring. + * erc.el (erc-show-channel-key-p, erc-startup-file-list): + Fix typo in docstring. 2007-04-01 Michael Olson diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 72442de9f95..d6875ffc4af 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -842,7 +842,7 @@ See `erc-server-flood-margin' for other flood-related parameters.") The first existent and readable one will get executed. If the filename ends with `.el' it is presumed to be an Emacs Lisp -script and it gets (load)ed. Otherwise is is treated as a bunch of +script and it gets (load)ed. Otherwise it is treated as a bunch of regular IRC commands." :group 'erc-scripts :type '(repeat file)) From 7edcc55464da9aa19e55a6cbd6b06c36eb102ed1 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:16:30 +0000 Subject: [PATCH 174/276] (mail-source-delete-old-incoming-confirm): Fix typo in docstring. --- lisp/gnus/ChangeLog | 1 + lisp/gnus/mail-source.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ad052b4b0f1..f11200cc5b2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,7 @@ * gnus-diary.el (gnus-diary-time-format, gnus-summary-sort-by-schedule): * gnus-sum.el (gnus-summary-highlight): + * mail-source.el (mail-source-delete-old-incoming-confirm): * nndiary.el (nndiary-reminders): Fix typos in docstrings. 2007-06-04 Katsumi Yamaoka diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index b991415342d..99596d2584b 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -284,7 +284,7 @@ files older than number of days." (integer :tag "days"))) (defcustom mail-source-delete-old-incoming-confirm t - "*If non-nil, ask for for confirmation before deleting old incoming files. + "*If non-nil, ask for confirmation before deleting old incoming files. This variable only applies when `mail-source-delete-incoming' is a positive number." :version "22.1" From 7316fa394ccb38398f8cd4158fdfd491d5235647 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:21:03 +0000 Subject: [PATCH 175/276] (org-export-ascii-bullets, org-batch-agenda, org-batch-agenda-csv): Fix typos in docstrings. --- lisp/ChangeLog | 6 ++++++ lisp/textmodes/org.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0bcec517918..d4350ba813d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-06-07 Juanma Barranquero + + * progmodes/ebrowse.el (ebrowse-member-table): + * textmodes/org.el (org-export-ascii-bullets, org-batch-agenda) + (org-batch-agenda-csv): Fix typos in docstrings. + 2007-06-06 Juanma Barranquero * pgg.el (pgg-sign-region, pgg-sign): diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 9a6ab7f6ea4..03b42addcdc 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -2682,7 +2682,7 @@ In the given sequence, these characters will be used for level 1, 2, ..." (defcustom org-export-ascii-bullets '(?* ?+ ?-) "Bullet characters for headlines converted to lists in ASCII export. -The first character is is used for the first lest level generated in this +The first character is used for the first lest level generated in this way, and so on. If there are more levels than characters given here, the list will be repeated. Note that plain lists will keep the same bullets as the have in the @@ -14477,7 +14477,7 @@ L Timeline for current buffer # List stuck projects (!=configure) "Run an agenda command in batch mode and send the result to STDOUT. If CMD-KEY is a string of length 1, it is used as a key in `org-agenda-custom-commands' and triggers this command. If it is a -longer string is is used as a tags/todo match string. +longer string it is used as a tags/todo match string. Paramters are alternating variable names and values that will be bound before running the agenda command." (let (pars) @@ -14503,7 +14503,7 @@ before running the agenda command." "Run an agenda command in batch mode and send the result to STDOUT. If CMD-KEY is a string of length 1, it is used as a key in `org-agenda-custom-commands' and triggers this command. If it is a -longer string is is used as a tags/todo match string. +longer string it is used as a tags/todo match string. Paramters are alternating variable names and values that will be bound before running the agenda command. From dcd14f8005420b46860c1da68b3e2268990dcb7b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:28:27 +0000 Subject: [PATCH 176/276] (ebrowse-member-table): Fix typo in docstring. --- lisp/progmodes/ebrowse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index d8385141177..ba73cbc2461 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -1003,7 +1003,7 @@ type `ebrowse-hs' is set to the resulting obarray." (defun ebrowse-member-table (header) - "Return the member obarray. Build it it hasn't been set up yet. + "Return the member obarray. Build it if it hasn't been set up yet. HEADER is the tree header structure of the class tree." (when (null (ebrowse-hs-member-table header)) (loop for buffer in (ebrowse-browser-buffer-list) From d367ab1ffd4add62851aab756807fff381f9d725 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:35:28 +0000 Subject: [PATCH 177/276] (org-export-ascii-bullets): Fix typo in docstring. --- lisp/ChangeLog | 13 +++++++++---- lisp/textmodes/org.el | 2 +- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48d3a7a9ffc..43b812a4391 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Juanma Barranquero + + * progmodes/ebrowse.el (ebrowse-member-table): + * textmodes/org.el (org-export-ascii-bullets): Fix typos in docstrings. + 2007-06-06 Juanma Barranquero * pgg.el (pgg-sign-region, pgg-sign): @@ -21,7 +26,7 @@ (all): Replace `case' by `cond', `string-to-int' by `string-to-number', and `process-kill-without-query' by `set-process-query-on-exit-flag'. - (socks-char-int): Remove defalias and all occurencies. + (socks-char-int): Remove defalias and all occurrences. 2007-06-06 Juanma Barranquero @@ -5907,7 +5912,7 @@ (cperl-string-syntax-table): Make { and } not-grouping (Sometimes they ARE grouping in RExen, but matching them would only confuse in many situations when they are not) - (beginning-of-buffer): Replace two occurences with goto-char... + (beginning-of-buffer): Replace two occurrences with goto-char... (cperl-calculate-indent): `char-after' could be nil... (cperl-find-pods-heres): REx can start after "[" too. Hightlight (??{}) in RExen too. @@ -20093,14 +20098,14 @@ New defvar. Replaces `dired-move-to-filename-regexp' from dired.el. * dired.el (dired-move-to-filename-regexp): Remove. - All occurences replaced by `directory-listing-before-filename-regexp'. + All occurrences replaced by `directory-listing-before-filename-regexp'. * dired-x.el, locate.el, vc.el: Replace `dired-move-to-filename-regexp' by `directory-listing-before-filename-regexp'. In vc.el it is overwritten locally; maybe this can be handled in files.el too. - * net/ange-ftp.el (ange-ftp-date-regexp): Remove. All occurences + * net/ange-ftp.el (ange-ftp-date-regexp): Remove. All occurrences replaced by `directory-listing-before-filename-regexp'. 2005-10-23 Andreas Schwab diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index f3ae0177fd0..f9a3c279d9d 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -2467,7 +2467,7 @@ In the given sequence, these characters will be used for level 1, 2, ..." (defcustom org-export-ascii-bullets '(?* ?+ ?-) "Bullet characters for headlines converted to lists in ASCII export. -The first character is is used for the first lest level generated in this +The first character is used for the first lest level generated in this way, and so on. If there are more levels than characters given here, the list will be repeated. Note that plain lists will keep the same bullets as the have in the From 680a990518ac593cb479f00faa5814fbfc916de2 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:38:27 +0000 Subject: [PATCH 178/276] (erc-startup-file-list): Fix typo in docstring. --- lisp/erc/ChangeLog | 4 ++++ lisp/erc/erc.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index eec2478b162..5f283b44ee0 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Juanma Barranquero + + * erc.el (erc-startup-file-list): Fix typo in docstring. + 2007-06-06 Juanma Barranquero * erc.el (erc-show-channel-key-p): Fix typo in docstring. diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 72442de9f95..d6875ffc4af 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -842,7 +842,7 @@ See `erc-server-flood-margin' for other flood-related parameters.") The first existent and readable one will get executed. If the filename ends with `.el' it is presumed to be an Emacs Lisp -script and it gets (load)ed. Otherwise is is treated as a bunch of +script and it gets (load)ed. Otherwise it is treated as a bunch of regular IRC commands." :group 'erc-scripts :type '(repeat file)) From 770edeec53953000bfea6095065eaee44adaa211 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 00:41:29 +0000 Subject: [PATCH 179/276] (mail-source-delete-old-incoming-confirm): Fix typo in docstring. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mail-source.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index cd7e5f0ec36..bfbe4ad29fa 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Juanma Barranquero + + * mail-source.el (mail-source-delete-old-incoming-confirm): + Fix typo in docstring. + 2007-06-06 Juanma Barranquero * gnus-diary.el (gnus-diary-time-format, gnus-summary-sort-by-schedule): diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index b991415342d..99596d2584b 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -284,7 +284,7 @@ files older than number of days." (integer :tag "days"))) (defcustom mail-source-delete-old-incoming-confirm t - "*If non-nil, ask for for confirmation before deleting old incoming files. + "*If non-nil, ask for confirmation before deleting old incoming files. This variable only applies when `mail-source-delete-incoming' is a positive number." :version "22.1" From f24227b86eb8238a792ab65ed05516a42d6c167b Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 7 Jun 2007 02:04:17 +0000 Subject: [PATCH 180/276] Add arch tagline --- lisp/textmodes/org-publish.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/org-publish.el b/lisp/textmodes/org-publish.el index 8ec27a4431c..041db849e34 100644 --- a/lisp/textmodes/org-publish.el +++ b/lisp/textmodes/org-publish.el @@ -6,7 +6,7 @@ ;; Keywords: hypermedia, outlines ;; Version: 1.80 -;; $Id: org-publish.el,v 1.80 2007/03/22 02:31:03 dto Exp dto $ +;; $Id: org-publish.el,v 1.1 2007/06/06 15:16:21 cdominik Exp $ ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -598,4 +598,6 @@ With prefix argument, force publish all files." (provide 'org-publish) + +;; arch-tag: 72807f3c-8af0-4a6b-8dca-c3376eb25adb ;;; org-publish.el ends here From 14e282238293193c4a62babba068fe090d308ac0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:18:46 +0000 Subject: [PATCH 181/276] *** empty log message *** --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d4350ba813d..cbbd7974078 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Eric M. Ludlam + + * emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Remove + "iff". + 2007-06-07 Juanma Barranquero * progmodes/ebrowse.el (ebrowse-member-table): From 70bb6a654847c9e467cbbd70fdbfb95c5ba6b0a9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:22:02 +0000 Subject: [PATCH 182/276] Eric M. Ludlam (checkdoc-ispell-lisp-words): Remove "iff". --- etc/ChangeLog | 4 ++++ lisp/emacs-lisp/checkdoc.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 565c7c1b989..929f681c450 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Michael Olson + + * MORE.STUFF: Update eshell URL. + 2007-06-06 Carsten Dominik * orgcard.tex: Version 4.77. diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 14b9ce55d9e..b4d925686ca 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -263,7 +263,7 @@ system. Possible values are: (const t))) (defvar checkdoc-ispell-lisp-words - '("alist" "emacs" "etags" "iff" "keymap" "paren" "regexp" "sexp" "xemacs") + '("alist" "emacs" "etags" "keymap" "paren" "regexp" "sexp" "xemacs") "List of words that are correct when spell-checking Lisp documentation.") (defcustom checkdoc-max-keyref-before-warn 10 From b31e7a2f50a975381b82660153f1c4a74e5ffb56 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:22:26 +0000 Subject: [PATCH 183/276] Michael Olson Update eshell URL. --- etc/MORE.STUFF | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/etc/MORE.STUFF b/etc/MORE.STUFF index 01f639cdab0..7c9479fcdc9 100644 --- a/etc/MORE.STUFF +++ b/etc/MORE.STUFF @@ -63,7 +63,7 @@ You might find bug-fixes or enhancements in these places. * ERC: IRC client: - * EShell: + * EShell: * Etags: From 37229e1091ebd3b84a14a496470a120777374701 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:24:53 +0000 Subject: [PATCH 184/276] Michael Olson Update eshell URL. --- etc/ChangeLog | 4 ++++ etc/MORE.STUFF | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index c65d6a73425..7da010b3d78 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Michael Olson + + * MORE.STUFF: Update eshell URL. + 2007-06-02 Chong Yidong * Version 22.1 released. diff --git a/etc/MORE.STUFF b/etc/MORE.STUFF index 8582cbc0a1c..43ecfd31a62 100644 --- a/etc/MORE.STUFF +++ b/etc/MORE.STUFF @@ -63,7 +63,7 @@ You might find bug-fixes or enhancements in these places. * ERC: IRC client: - * EShell: + * EShell: * Etags: From ba48a401171ac2de6c086c77782f42b8a694dbac Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:32:11 +0000 Subject: [PATCH 185/276] *** empty log message *** --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cbbd7974078..76b1fbe01a2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Alfred M. Szmidt (tiny change) + + * mail/rmailsum.el (rmail-summary-save-buffer): New command. + (rmail-summary-mode-map): Add rmail-summary-save-buffer. + 2007-06-07 Eric M. Ludlam * emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Remove From c8e01749b1cd0ec1f3bff68891125a5cf272c2d6 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:32:42 +0000 Subject: [PATCH 186/276] Alfred M. Szmidt (tiny change) (rmail-summary-save-buffer): New command. (rmail-summary-mode-map): Add rmail-summary-save-buffer. --- lisp/mail/rmailsum.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 6383722a4be..288f3f24e66 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -854,6 +854,15 @@ Search, the `unseen' attribute is restored.") (set-buffer rmail-buffer) (rmail-show-message msg-num t)))))) (rmail-summary-update-highlight nil))))) + +(defun rmail-summary-save-buffer () + "Save the buffer associated with this RMAIL summary." + (interactive) + (save-window-excursion + (save-excursion + (switch-to-buffer rmail-buffer) + (save-buffer)))) + (if rmail-summary-mode-map nil @@ -923,6 +932,7 @@ Search, the `unseen' attribute is restored.") 'rmail-summary-sort-by-lines) (define-key rmail-summary-mode-map "\C-c\C-s\C-k" 'rmail-summary-sort-by-labels) + (define-key rmail-summary-mode-map "\C-x\C-s" 'rmail-summary-save-buffer) ) ;;; Menu bar bindings. From f1c5dbb9d667ac1108b0f1d97e9739212325aebf Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:38:43 +0000 Subject: [PATCH 187/276] Alfred M. Szmidt (tiny change) (rmail-summary-save-buffer): New command. (rmail-summary-mode-map): Add rmail-summary-save-buffer. --- etc/ChangeLog | 4 ++++ lisp/ChangeLog | 5 +++++ lisp/mail/rmailsum.el | 10 ++++++++++ 3 files changed, 19 insertions(+) diff --git a/etc/ChangeLog b/etc/ChangeLog index 7da010b3d78..cd0f33bf920 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Mark H. Weaver (tiny change) + + * NEWS (set-mark-command-repeat-pop): Fix duplicate entry. + 2007-06-07 Michael Olson * MORE.STUFF: Update eshell URL. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 43b812a4391..26974c65c38 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Alfred M. Szmidt (tiny change) + + * mail/rmailsum.el (rmail-summary-save-buffer): New command. + (rmail-summary-mode-map): Add rmail-summary-save-buffer. + 2007-06-07 Juanma Barranquero * progmodes/ebrowse.el (ebrowse-member-table): diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 6383722a4be..288f3f24e66 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -854,6 +854,15 @@ Search, the `unseen' attribute is restored.") (set-buffer rmail-buffer) (rmail-show-message msg-num t)))))) (rmail-summary-update-highlight nil))))) + +(defun rmail-summary-save-buffer () + "Save the buffer associated with this RMAIL summary." + (interactive) + (save-window-excursion + (save-excursion + (switch-to-buffer rmail-buffer) + (save-buffer)))) + (if rmail-summary-mode-map nil @@ -923,6 +932,7 @@ Search, the `unseen' attribute is restored.") 'rmail-summary-sort-by-lines) (define-key rmail-summary-mode-map "\C-c\C-s\C-k" 'rmail-summary-sort-by-labels) + (define-key rmail-summary-mode-map "\C-x\C-s" 'rmail-summary-save-buffer) ) ;;; Menu bar bindings. From dafbac33897cd8145f6bf85b4798f87e24f388b4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:39:17 +0000 Subject: [PATCH 188/276] Mark H. Weaver (tiny change) (set-mark-command-repeat-pop): Fix duplicate entry. --- etc/NEWS | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 230191a0b07..e0ff01f83d2 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -280,11 +280,6 @@ too. If you want to use just plain `*' as a wildcard, type `*""'; the doublequotes make no difference in the shell, but they prevent special treatment in `dired-do-shell-command'. -** A prefix argument is no longer required to repeat a jump to a -previous mark if you set `set-mark-command-repeat-pop' to t. I.e. C-u -C-SPC C-SPC C-SPC ... cycles through the mark ring. Use C-u C-u C-SPC -to set the mark immediately after a jump. - ** The info-search bindings on C-h C-f, C-h C-k and C-h C-i have been moved to C-h F, C-h K and C-h S. @@ -451,8 +446,9 @@ to one second. This feature is turned off by default. ** Mark command changes: *** A prefix argument is no longer required to repeat a jump to a -previous mark, i.e. C-u C-SPC C-SPC C-SPC ... cycles through the -mark ring. Use C-u C-u C-SPC to set the mark immediately after a jump. +previous mark if you set `set-mark-command-repeat-pop' to t. I.e. C-u +C-SPC C-SPC C-SPC ... cycles through the mark ring. Use C-u C-u C-SPC +to set the mark immediately after a jump. *** Marking commands extend the region when invoked multiple times. From 236a41785ca9b5ea35ac0b80938e6e489b1a7178 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:46:12 +0000 Subject: [PATCH 189/276] Mark H. Weaver (tiny change) (set-mark-command-repeat-pop): Fix duplicate entry. --- etc/ChangeLog | 4 ++++ etc/NEWS.22 | 10 +++------- lisp/ChangeLog | 5 +++++ 3 files changed, 12 insertions(+), 7 deletions(-) diff --git a/etc/ChangeLog b/etc/ChangeLog index 929f681c450..50de2b2d856 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Mark H. Weaver (tiny change) + + * NEWS (set-mark-command-repeat-pop): Fix duplicate entry. + 2007-06-07 Michael Olson * MORE.STUFF: Update eshell URL. diff --git a/etc/NEWS.22 b/etc/NEWS.22 index 41c446ccae8..a6e430ee816 100644 --- a/etc/NEWS.22 +++ b/etc/NEWS.22 @@ -280,11 +280,6 @@ too. If you want to use just plain `*' as a wildcard, type `*""'; the doublequotes make no difference in the shell, but they prevent special treatment in `dired-do-shell-command'. -** A prefix argument is no longer required to repeat a jump to a -previous mark if you set `set-mark-command-repeat-pop' to t. I.e. C-u -C-SPC C-SPC C-SPC ... cycles through the mark ring. Use C-u C-u C-SPC -to set the mark immediately after a jump. - ** The info-search bindings on C-h C-f, C-h C-k and C-h C-i have been moved to C-h F, C-h K and C-h S. @@ -451,8 +446,9 @@ to one second. This feature is turned off by default. ** Mark command changes: *** A prefix argument is no longer required to repeat a jump to a -previous mark, i.e. C-u C-SPC C-SPC C-SPC ... cycles through the -mark ring. Use C-u C-u C-SPC to set the mark immediately after a jump. +previous mark if you set `set-mark-command-repeat-pop' to t. I.e. C-u +C-SPC C-SPC C-SPC ... cycles through the mark ring. Use C-u C-u C-SPC +to set the mark immediately after a jump. *** Marking commands extend the region when invoked multiple times. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76b1fbe01a2..ff3d37d584c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Glenn Morris + + * dframe.el (dframe-frame-parameter, dframe-mouse-event-p): + Rewrite compatibility functions to silence byte-compiler. + 2007-06-07 Alfred M. Szmidt (tiny change) * mail/rmailsum.el (rmail-summary-save-buffer): New command. From 4efbba2cb919d6f44dc817a4644f7a2b6deb3413 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:46:25 +0000 Subject: [PATCH 190/276] (dframe-frame-parameter, dframe-mouse-event-p): Rewrite compatibility functions to silence byte-compiler. --- lisp/dframe.el | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/lisp/dframe.el b/lisp/dframe.el index eda6d45bf21..7971db19dd8 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -152,13 +152,11 @@ ;;; Compatibility functions ;; -(if (fboundp 'frame-parameter) - - (defalias 'dframe-frame-parameter 'frame-parameter) - - (defun dframe-frame-parameter (frame parameter) - "Return FRAME's PARAMETER value." - (cdr (assoc parameter (frame-parameters frame))))) +(defun dframe-frame-parameter (frame parameter) + "Return FRAME's PARAMETER value." + (if (fboundp 'frame-parameter) + (frame-parameter frame parameter) + (cdr (assoc parameter (frame-parameters frame))))) ; XEmacs ;;; Variables @@ -887,10 +885,10 @@ Must be bound to event E." ;;; Interactive user functions for the mouse ;; -(if dframe-xemacsp - (defalias 'dframe-mouse-event-p 'button-press-event-p) - (defun dframe-mouse-event-p (event) - "Return t if the event is a mouse related event." +(defun dframe-mouse-event-p (event) + "Return t if the event is a mouse related event." + (if (fboundp 'button-press-event-p) + (button-press-event-p event) ; XEmacs (if (and (listp event) (member (event-basic-type event) '(mouse-1 mouse-2 mouse-3))) From 91ffa53601c04f239c85b09fb4786a9961858512 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:56:02 +0000 Subject: [PATCH 191/276] *** empty log message *** --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ff3d37d584c..ab816434da1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2007-06-07 Glenn Morris + * tutorial.el (tutorial--describe-nonstandard-key): Adjust for new + format of "menu" description. + (tutorial--find-changed-keys): Describe the specific menu a + command is in. + * dframe.el (dframe-frame-parameter, dframe-mouse-event-p): Rewrite compatibility functions to silence byte-compiler. From 04cc80ae25db7dcf23a6125b3341a69e585c2132 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:59:46 +0000 Subject: [PATCH 192/276] (tutorial--describe-nonstandard-key): Adjust for new format of "menu" description. (tutorial--find-changed-keys): Describe the specific menu a command is in. --- lisp/ChangeLog | 6 ++++++ lisp/tutorial.el | 26 +++++++++++++++++++------- 2 files changed, 25 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ab816434da1..acddbece4bd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2007-06-07 Glenn Morris + * emacs-lisp/bytecomp.el (byte-compile-warnings): Add new option + `make-local'. + (byte-compile-warnings-safe-p): Add `make-local'. + (byte-compile-make-variable-buffer-local): Allow + byte-compile-warnings to suppress this warning. + * tutorial.el (tutorial--describe-nonstandard-key): Adjust for new format of "menu" description. (tutorial--find-changed-keys): Describe the specific menu a diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 4856d178056..384b9b8415c 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -155,9 +155,9 @@ options: " RET instead.")) (insert "\n\nWith your current key bindings" " you can use " - (if (string-equal "the menus" where) + (if (string-match "^the .*menus?$" where) "" - "the key ") + "the key") where " to get the function `" (format "%s" db) @@ -406,7 +406,7 @@ where WHERE is a text describing the key sequences to which DEF-FUN is bound now (or, if it is remapped, a key sequence for the function it is remapped to) - REMARK is a list with info about rebinding. It has either of + REMARK is a list with info about rebinding. It has either of these formats: \(TEXT cua-mode) @@ -434,14 +434,26 @@ where (key-fun (if (eq def-fun 'ESC-prefix) (lookup-key global-map [27]) (key-binding key))) - (where (where-is-internal (if rem-fun rem-fun def-fun)))) + (where (where-is-internal (if rem-fun rem-fun def-fun))) + cwhere) (if where (progn - (setq where (key-description (car where))) + (setq cwhere (car where) + where (key-description cwhere)) (when (and (< 10 (length where)) (string= (substring where 0 (length "")) "")) - (setq where "the menus"))) + (setq where + (if (and (vectorp cwhere) + (setq cwhere (elt cwhere 1)) + (setq cwhere + (cadr + (assoc cwhere + (lookup-key global-map + [menu-bar])))) + (stringp cwhere)) + (format "the `%s' menu" cwhere) + "the menus")))) (setq where "")) (setq remark nil) (unless @@ -915,7 +927,7 @@ See `get-lang-string' for more information.") In certain places Emacs can replace a string shown to the user with a language specific string. This function retrieves such strings. -LANG is the language specification. It should be one of those +LANG is the language specification. It should be one of those strings that can be returned by `read-language-name'. STRINGID is a symbol that specifies the string to retrieve. From 15ce9dcfa1dea8036f6b59cec6a5f20e1bca8f45 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:00:00 +0000 Subject: [PATCH 193/276] (byte-compile-warnings): Add new option `make-local'. (byte-compile-warnings-safe-p): Add `make-local'. (byte-compile-make-variable-buffer-local): Allow byte-compile-warnings to suppress this warning. --- lisp/emacs-lisp/bytecomp.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f1761c125ac..0a37f098a7b 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -101,6 +101,8 @@ ;; `cl-warnings' (calls to CL functions) ;; `interactive-only' (calls to commands that are ;; not good to call from Lisp) +;; `make-local' (dubious calls to +;; `make-variable-buffer-local') ;; byte-compile-compatibility Whether the compiler should ;; generate .elc files which can be loaded into ;; generic emacs 18. @@ -356,14 +358,16 @@ Elements of the list may be: cl-functions calls to runtime functions from the CL package (as distinguished from macros and aliases). interactive-only - commands that normally shouldn't be called from Lisp code." + commands that normally shouldn't be called from Lisp code. + make-local calls to make-variable-buffer-local that may be incorrect." :group 'bytecomp :type `(choice (const :tag "All" t) (set :menu-tag "Some" (const free-vars) (const unresolved) (const callargs) (const redefine) (const obsolete) (const noruntime) - (const cl-functions) (const interactive-only)))) + (const cl-functions) (const interactive-only) + (const make-local)))) (put 'byte-compile-warnings 'safe-local-variable 'byte-compile-warnings-safe-p) ;;;###autoload (defun byte-compile-warnings-safe-p (x) @@ -374,7 +378,7 @@ Elements of the list may be: (when (memq e '(free-vars unresolved callargs redefine obsolete noruntime - cl-functions interactive-only)) + cl-functions interactive-only make-local)) e)) x) x)))) @@ -3888,7 +3892,8 @@ that suppresses all warnings during execution of BODY." ;; Warn about misuses of make-variable-buffer-local. (byte-defop-compiler-1 make-variable-buffer-local byte-compile-make-variable-buffer-local) (defun byte-compile-make-variable-buffer-local (form) - (if (eq (car-safe (car-safe (cdr-safe form))) 'quote) + (if (and (eq (car-safe (car-safe (cdr-safe form))) 'quote) + (memq 'make-local byte-compile-warnings)) (byte-compile-warn "`make-variable-buffer-local' should be called at toplevel")) (byte-compile-normal-call form)) From c74c9bace8b578712434edc2d2a943148393b13e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:18:49 +0000 Subject: [PATCH 194/276] *** empty log message *** --- lisp/ChangeLog | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index acddbece4bd..d3bd822771a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-06-07 Glenn Morris + * version.el (emacs-copyright): New constant. + * emacs-lisp/bytecomp.el (byte-compile-warnings): Add new option `make-local'. (byte-compile-warnings-safe-p): Add `make-local'. From 6926c9548aa92c939dce60ad2ffaf5b529cebad4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:20:11 +0000 Subject: [PATCH 195/276] (emacs-copyright): New constant. --- lisp/version.el | 3 +++ src/ChangeLog | 4 ++++ 2 files changed, 7 insertions(+) diff --git a/lisp/version.el b/lisp/version.el index 0ed3927d0fc..034a2ff5515 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -27,6 +27,9 @@ ;;; Code: +(defconst emacs-copyright "Copyright (C) 2007 Free Software Foundation, Inc." + "Short copyright string for this version of Emacs.") + (defconst emacs-version "22.1.50" "\ Version numbers of this version of Emacs.") diff --git a/src/ChangeLog b/src/ChangeLog index f4cc9014c16..eb0040b371a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Glenn Morris + + * emacs.c (main): Use `emacs-copyright' in --version output. + 2007-06-06 Chong Yidong * image.c (xpm_load): Remove spurious call to From 5cf9ca93e59f1b8f8dba4f4049a7915accfbf913 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:23:36 +0000 Subject: [PATCH 196/276] (main): Use `emacs-copyright' in --version output. --- lib-src/ChangeLog | 5 +++++ src/emacs.c | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index e14679ad820..51b3cf38b91 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Glenn Morris + + * etags.c (print_version): Add `emacs_copyright' string, for + easier automatic updating. + 2007-05-18 Francesco Potort,Al(B * etags.c: Extern definitions of some more pointer functions for diff --git a/src/emacs.c b/src/emacs.c index 62b14a55388..e235856847f 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -856,17 +856,23 @@ main (argc, argv So ignore --version otherwise. */ && initialized) { - Lisp_Object tem; + Lisp_Object tem, tem2; tem = Fsymbol_value (intern ("emacs-version")); + tem2 = Fsymbol_value (intern ("emacs-copyright")); if (!STRINGP (tem)) { fprintf (stderr, "Invalid value of `emacs-version'\n"); exit (1); } + if (!STRINGP (tem2)) + { + fprintf (stderr, "Invalid value of `emacs-copyright'\n"); + exit (1); + } else { printf ("GNU Emacs %s\n", SDATA (tem)); - printf ("Copyright (C) 2007 Free Software Foundation, Inc.\n"); + printf ("%s\n", SDATA(tem2)); printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n"); printf ("You may redistribute copies of Emacs\n"); printf ("under the terms of the GNU General Public License.\n"); From d16c1140f4faa0e349d8cc9c39df20457809725d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:25:14 +0000 Subject: [PATCH 197/276] (print_version): Add `emacs_copyright' string, for easier automatic updating. --- lib-src/etags.c | 5 ++++- lisp/ChangeLog | 2 ++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lib-src/etags.c b/lib-src/etags.c index b85ec8d57a9..aa5fda39396 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -887,8 +887,11 @@ etags --help --lang=ada."); static void print_version () { + /* Makes it easier to update automatically. */ + char emacs_copyright[] = "Copyright (C) 2007 Free Software Foundation, Inc." + printf ("%s (%s %s)\n", (CTAGS) ? "ctags" : "etags", EMACS_NAME, VERSION); - puts ("Copyright (C) 2007 Free Software Foundation, Inc."); + puts (emacs_copyright); puts ("This program is distributed under the terms in ETAGS.README"); exit (EXIT_SUCCESS); diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d3bd822771a..12fea46d14e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * version.el (emacs-copyright): New constant. + * calc/calc-help.el (calc-full-help): Use emacs-copyright. + * emacs-lisp/bytecomp.el (byte-compile-warnings): Add new option `make-local'. (byte-compile-warnings-safe-p): Add `make-local'. From 23d0be646c78aa9479dd2a9820abe5e8b30ebb80 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:27:26 +0000 Subject: [PATCH 198/276] (calc-full-help): Use emacs-copyright. --- lisp/ChangeLog | 2 +- lisp/calc/calc-help.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 12fea46d14e..1e5fa694a1a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,7 @@ 2007-06-07 Glenn Morris * version.el (emacs-copyright): New constant. - + * startup.el (fancy-splash-tail): Use emacs-copyright. * calc/calc-help.el (calc-full-help): Use emacs-copyright. * emacs-lisp/bytecomp.el (byte-compile-warnings): Add new option diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 9f324a67785..e310020e399 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -414,7 +414,7 @@ C-w Describe how there is no warranty for Calc." (princ (format "GNU Emacs Calculator version %s.\n" calc-version)) (princ " By Dave Gillespie.\n") - (princ " Copyright (C) 2007 Free Software Foundation, Inc.\n\n") + (princ (format " %s\n\n" emacs-copyright)) (princ "Type `h s' for a more detailed summary.\n") (princ "Or type `h i' to read the full Calc manual on-line.\n\n") (princ "Basic keys:\n") From bfcea090da99bb6e99375ad88eca774527442bc4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:28:23 +0000 Subject: [PATCH 199/276] (fancy-splash-tail): Use emacs-copyright. --- admin/ChangeLog | 4 ++++ lisp/startup.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/admin/ChangeLog b/admin/ChangeLog index b036ea11c33..52c9bfb81b2 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Glenn Morris + + * admin.el (set-copyright): New function. + 2007-04-25 Nick Roberts * make-tarball.txt: Add note about cutting the branch. diff --git a/lisp/startup.el b/lisp/startup.el index f57bf66a3a0..91902d105ac 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1311,7 +1311,7 @@ using the mouse.\n\n") (emacs-version) "\n" :face '(variable-pitch :height 0.5) - "Copyright (C) 2007 Free Software Foundation, Inc.") + emacs-copyright) (and auto-save-list-file-prefix ;; Don't signal an error if the ;; directory for auto-save-list files From a3045b7ededc0d2e9728dd125999cc7195f654f8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:28:32 +0000 Subject: [PATCH 200/276] (set-copyright): New function. --- admin/admin.el | 47 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) diff --git a/admin/admin.el b/admin/admin.el index 342b40f9bde..175eb6ded1b 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -24,6 +24,8 @@ ;; add-release-logs Add ``Version X released'' change log entries. ;; set-version Change Emacs version number in source tree. +;; set-copyright Change emacs short copyright string (eg as +;; printed by --version) in source tree. ;;; Code: @@ -158,5 +160,50 @@ Root must be the root of an Emacs source tree." (rx (and (submatch (1+ (in "a-z"))) (0+ space) ?\, (0+ space) "/* development, alpha, beta, or final (release) */")))))) +;; Note this makes some assumptions about form of short copyright. +(defun set-copyright (root copyright) + "Set Emacs short copyright to COPYRIGHT in relevant files under ROOT. +Root must be the root of an Emacs source tree." + (interactive (list + (read-directory-name "Emacs root directory: " nil nil t) + (read-string + "Short copyright string: " + (format "Copyright (C) %s Free Software Foundation, Inc." + (format-time-string "%Y"))))) + (unless (file-exists-p (expand-file-name "src/emacs.c" root)) + (error "%s doesn't seem to be the root of an Emacs source tree" root)) + (set-version-in-file root "lisp/version.el" copyright + (rx (and "emacs-copyright" (0+ space) + ?\" (submatch (1+ (not (in ?\")))) ?\"))) + (set-version-in-file root "lib-src/etags.c" copyright + (rx (and "emacs_copyright" (0+ (not (in ?\"))) + ?\" (submatch (1+ (not (in ?\")))) ?\"))) + (set-version-in-file root "lib-src/rcs2log" copyright + (rx (and "Copyright" (0+ space) ?= (0+ space) + ?\' (submatch (1+ nonl))))) + (set-version-in-file + root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings" + copyright (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space) ?\" + (1+ anything) + (submatch "Copyright" (1+ (not (in ?\"))))))) + ;; This one is a nuisance, as it needs to be split over two lines. + (string-match "\\(.*[0-9]\\{4\\} *\\)\\(.*\\)" copyright) + (let ((csign "\\0xa9") + (cyear (match-string 1 copyright)) ; "Copyright (C) 2007 " + (owner (match-string 2 copyright))) ; "Free Software Foundation, Inc." + (set-version-in-file root "mac/src/Emacs.r" + (regexp-quote + (replace-regexp-in-string "(C)" + (regexp-quote csign) cyear)) + (rx (and + (submatch "Copyright" (0+ space) (eval csign) + (0+ space) (= 4 num) + (0+ (not (in ?\")))) ?\"))) + (set-version-in-file root "mac/src/Emacs.r" owner + (rx (and ?\" + (submatch (1+ (not (in ?\")))) + ?\" (0+ space) + "/* Long version number */"))))) + ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5 ;; admin.el ends here. From 03e30ce84758eb96f2b947fac20288688bcb9781 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:29:55 +0000 Subject: [PATCH 201/276] Mention new function `set-copyright'. --- admin/notes/copyright | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/admin/notes/copyright b/admin/notes/copyright index 6c9a7382c33..91bf87f3b08 100644 --- a/admin/notes/copyright +++ b/admin/notes/copyright @@ -131,7 +131,7 @@ mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings mac/src/Emacs.r # resource 'vers' src/emacs.c - remember to change the latest copyright year in the --version output. - [Post-release, will automate this like set-version does for version.] + `set-copyright' in admin.el will do all the above. /install-sh lispintro/install-sh From dd812e36164c1a67d4e8c27707cbacc6591dbc41 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:43:31 +0000 Subject: [PATCH 202/276] Sync 2007-05-19 change from trunk. --- etc/ChangeLog | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/etc/ChangeLog b/etc/ChangeLog index cd0f33bf920..a14e58d9f7f 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,10 @@ +2007-06-07 Glenn Morris + + * images/cancel.pbm: Convert from PGM to PBM. + + * images/copy.pbm, images/next-node.pbm, images/prev-node.pbm: + * images/save.pbm, images/up-node.pbm: Convert from PPM to PBM. + 2007-06-07 Mark H. Weaver (tiny change) * NEWS (set-mark-command-repeat-pop): Fix duplicate entry. From 99699a735e357f445107cf598d62f4e9771cc134 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:43:52 +0000 Subject: [PATCH 203/276] Convert from PGM to PBM. --- etc/images/cancel.pbm | Bin 634 -> 81 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/etc/images/cancel.pbm b/etc/images/cancel.pbm index bd85b764c271563b5847cd562ecabd1d93b37ad8..89a21add3404cddeff5f3746c41fe2c840068e36 100644 GIT binary patch literal 81 zcmWGA;W9E&Ff!p{KnDL9m>C;b7#x6z`ljEUXSJs}3-S MH!%D|)&^n&05!u7P5=M^ literal 634 zcmWGAkeGvG2Z zQ7|&$GBP#g`cEgo00C&WF)%;{;0!PyCJN#Z!3HS-8vr4|M!>WJtp&<~RiKE21i`{c z7C@|m3Zsid)dNjKF$bg?tOH^gSPt1eFw@`?AO^?~gfU=0LWDqOfmK2Ykl`SRVhUIe MBm@M=iU))Z07JX+TmS$7 From 8fe8daa296859489fb8402895bde767d13bc5da6 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:44:33 +0000 Subject: [PATCH 204/276] Convert from PPM to PBM. --- etc/images/copy.pbm | Bin 1786 -> 127 bytes etc/images/next-node.pbm | Bin 1786 -> 127 bytes etc/images/prev-node.pbm | Bin 1786 -> 127 bytes etc/images/save.pbm | Bin 1786 -> 127 bytes etc/images/up-node.pbm | Bin 1786 -> 127 bytes 5 files changed, 0 insertions(+), 0 deletions(-) diff --git a/etc/images/copy.pbm b/etc/images/copy.pbm index 7a95aa885a11dc5822d6ae150c990af0039de3f9..8feab126dc73ffb8657ac9f6237afb0c6fbea5fa 100644 GIT binary patch delta 89 zcmeyxThA0=GLcEopUcQZ!N`P*0S5m6U}#`Lpe^-38X8z2Xcv&N1*C*n<C8njM6rvK#64bXG-%PR+)*Qs zfmu)K$}pAm$ZXq?q{SE>WtK;->+rUG&N4=lKow3&@@tkwzC{PZaMz1rY;pDlVtUCy zpclhu*bH@ThQGzY!aYb5%vu?!WdH=X3iEGMx0h)xVICso9{3W*_%r2=lv&G+FX&nJ ilf*aJsoS0oY#a@bF{N8Rk0$NPk36UyyzB@6rTYYJvr{wx diff --git a/etc/images/prev-node.pbm b/etc/images/prev-node.pbm index bf7aa14515c767c9c42e4eb7fa5eedef117eccac..7899e62bb23179949cca68ee55ff680a1dd4ce88 100644 GIT binary patch delta 89 zcmeyxThA0=GLcEopUcQZ!N`P*|NkEW1{MVd76%3w2ZkdKj4lpLE)Fd94jhaQ0*np{ jj1C6O4id}`JoOH2{~eft3XXu3ffTap}sb7I2Prshw@awzP&x04lYgCw~sq4=L_dE@R{>@?q1?dMjZk8NMxu^ zN~uz+Od*g*2Bl6RNPkQZaxfUn%D&AZr}W3P!QluCG{cq+3}v%wJ3AJaxWIQkI>v7=9L&%Za{aV|$d diff --git a/etc/images/save.pbm b/etc/images/save.pbm index 49d8346d3fa28803680757418ff0789244149399..1347207d260b891d11931a02c0050c35e0246c05 100644 GIT binary patch delta 89 zcmeyxThA0=GLcEopUcQZ!N`P*0SxT_|L|Z?@nF!wg`EGtabVza{(r`W;f>1!1hQdx KBme&g&C!%5z4I%gj0Rv(n@%{C1WLP#K{xynTv3z$oJDZy% z6W5n{x|n6#bSl|Cm(@B>2DK!cSeC`%lvlFLtGXzUG9Hdx5K0ibAd1}iBUkU$rC;Mc zuqEi*R;H5RWn@BYuRes*R{*Za1l`igQ2Gk^`?RWX$`|;|# z6@lm|G&iH@IKeCmj1O+RD|$P8j3;Li=x}awO54Md0nz8CZQ|y z-D0-i?xwOoma8LN=0Y6teL++?&&Bbu7zIt>G~d z`;=$eRkiEUlpS2EBXBx+*1WRqdhABdGERS=e~)g!e#)1n@opJ&#CWUv?(sWE4+pIZ z5`)Obl44d(vZ}W{vXL5%Z1WN`pD-E#)X8S$c?1SP&;#|b&ErOYJw7$SVFusBK~};4 nB)!2i+V+$52G1n+XfQhX9DvAx5e5&`lSq0SGq@`P>|y)>`4>|( From f89df812d3fbe6df740813efcd9061994d2541b8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:45:09 +0000 Subject: [PATCH 205/276] Sync etc/images change to six icons from trunk. --- admin/FOR-RELEASE | 3 --- 1 file changed, 3 deletions(-) diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 1093e145833..4e65355bb85 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -41,9 +41,6 @@ to the hack introduced on 2005-07-01 to fix some other Cleartype problem. Here we list small fixes that arrived too late for Emacs 22.1, but that should be installed on the release branch after 22.1 is released. -** Changes to six pbm icons in etc/images. -Sync change from trunk 2007-05-19. - ** viper and tramp should not load cl at run time. ** yamaoka@jpl.org's patch for mail-extract-address-components problem. From 5ee63e320f3a36f94912f92c649a5e6b96a50473 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:47:00 +0000 Subject: [PATCH 206/276] Fix typo in previous change. --- lib-src/etags.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib-src/etags.c b/lib-src/etags.c index aa5fda39396..f3534e02d7c 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -888,7 +888,7 @@ static void print_version () { /* Makes it easier to update automatically. */ - char emacs_copyright[] = "Copyright (C) 2007 Free Software Foundation, Inc." + char emacs_copyright[] = "Copyright (C) 2007 Free Software Foundation, Inc."; printf ("%s (%s %s)\n", (CTAGS) ? "ctags" : "etags", EMACS_NAME, VERSION); puts (emacs_copyright); From 42bf63da0365c3d045cc1959b43cca331626ac62 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:55:19 +0000 Subject: [PATCH 207/276] (NON_GNU_CPP): On Solaris, set using a proper check for a Sun C compiler. --- ChangeLog | 5 +++++ configure.in | 28 ++++++++++++++++++++-------- 2 files changed, 25 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4cb809efc12..4b4ac6b7978 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Glenn Morris + + * configure.in (NON_GNU_CPP): On Solaris, set using a proper check + for a Sun C compiler. + 2007-05-25 Chong Yidong * mkinstalldirs: Sync to version in automake CVS. diff --git a/configure.in b/configure.in index b8aadf59544..1d725e13a87 100644 --- a/configure.in +++ b/configure.in @@ -1032,14 +1032,8 @@ dnl see the `changequote' comment above. ;; *-sunos5* | *-solaris* ) opsys=sol2-6 -## FIXME: make this into a proper fix that checks the compiler type, -## rather than relying on path. Or is /usr/ccs/lib/cpp a bad default now? - if [ "x$CC" = x/opt/SUNWspro/bin/cc ]; then - ## -Xs prevents spurious whitespace. - NON_GNU_CPP="/opt/SUNWspro/bin/cc -E -Xs" - else - NON_GNU_CPP=/usr/ccs/lib/cpp - fi + emacs_check_sunpro_c=yes + NON_GNU_CPP=/usr/ccs/lib/cpp ;; * ) opsys=bsd4-2 ;; esac @@ -1275,6 +1269,24 @@ if test -n "$CPP" && test -d "$CPP"; then CPP= fi +## If not using gcc, and on Solaris, and no CPP specified, see if +## using a Sun compiler, which needs -Xs to prevent whitespace. +if test x"$GCC" != xyes && test x"$emacs_check_sunpro_c" = xyes && \ + test x"$CPP" = x; then + AC_MSG_CHECKING([whether we are using a Sun C compiler]) + AC_CACHE_VAL(emacs_cv_sunpro_c, + [AC_TRY_LINK([], +[#ifndef __SUNPRO_C +fail; +#endif +], emacs_cv_sunpro_c=yes, emacs_cv_sunpro_c=no)]) + AC_MSG_RESULT($emacs_cv_sunpro_c) + + if test x"$emacs_cv_sunpro_c" = xyes; then + NON_GNU_CPP="$CC -E -Xs" + fi +fi + #### Some systems specify a CPP to use unless we are using GCC. #### Now that we know whether we are using GCC, we can decide whether #### to use that one. From 28a7e2db6ff4446f54559037d193236c93bde4e8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 07:56:00 +0000 Subject: [PATCH 208/276] NON_GNU_CPP on Solaris done in 2007-06-07 change to configure.in. --- etc/TODO | 3 --- 1 file changed, 3 deletions(-) diff --git a/etc/TODO b/etc/TODO index da9eef0e61e..509ea2dcd60 100644 --- a/etc/TODO +++ b/etc/TODO @@ -98,9 +98,6 @@ current buffer. ** make back_comment use syntax-ppss or equivalent. -** Improve configure's treatment of NON_GNU_CPP on Solaris. -(patch available for after Emacs 22) - ** Consider improving src/sysdep.c's search for a fqdn. http://lists.gnu.org/archive/html/emacs-devel/2007-04/msg00782.html From 924e4ab0e8ba9323f878f2ea8bfa18da72d2a408 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 08:02:07 +0000 Subject: [PATCH 209/276] *** empty log message *** --- ChangeLog | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ChangeLog b/ChangeLog index 4b4ac6b7978..e505ada236e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -3,6 +3,9 @@ * configure.in (NON_GNU_CPP): On Solaris, set using a proper check for a Sun C compiler. + * Makefile.in (install-arch-indep): Install only the DOC- file + specific to the build, if possible, rather than DOC-*. + 2007-05-25 Chong Yidong * mkinstalldirs: Sync to version in automake CVS. From 244ccd6218d3a353543521436d447fe0e41234e0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 08:02:18 +0000 Subject: [PATCH 210/276] (install-arch-indep): Install only the DOC- file specific to the build, if possible, rather than DOC-*. --- Makefile.in | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/Makefile.in b/Makefile.in index 10fedcce82e..41a3436b45b 100644 --- a/Makefile.in +++ b/Makefile.in @@ -414,6 +414,9 @@ install-arch-dep: mkdir ## http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-01/msg00417.html ## (fix available for consideration post-release). +## We install only the relevant DOC file if possible +## (ie DOC-${version}.buildnumber), otherwise DOC-${version}*. + ## If people complain about the h flag in tar command, take that out. ## That flag is also used in leim/Makefile.in install-arch-indep: mkdir info @@ -474,8 +477,15 @@ install-arch-indep: mkdir info -unset CDPATH; \ if [ `(cd ./etc; /bin/pwd)` != `(cd $(DESTDIR)${docdir}; /bin/pwd)` ]; \ then \ - echo "Copying etc/DOC-* to $(DESTDIR)${docdir} ..." ; \ - (cd ./etc; tar -chf - DOC*) \ + fullversion=`./src/emacs --version | sed -n '1 s/GNU Emacs *//p'`; \ + if [ -f "./etc/DOC-$${fullversion}" ]; \ + then \ + docfile="DOC-$${fullversion}"; \ + else \ + docfile="DOC-${version}*"; \ + fi; \ + echo "Copying etc/$${docfile} to $(DESTDIR)${docdir} ..." ; \ + (cd ./etc; tar -chf - $${docfile}) \ |(cd $(DESTDIR)${docdir}; umask 022; tar -xvf - && cat > /dev/null) || exit 1; \ (cd $(DESTDIR)$(docdir); chown $${LOGNAME:-$$USERNAME} DOC*; chmod a+r DOC*; \ if test "`echo DOC-*`" != "DOC-*"; then rm DOC; fi); \ From c2a3d51f47accc9ff728a77b6512f3b6514366f4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 08:13:21 +0000 Subject: [PATCH 211/276] Add links to message lists for Xaw3d issue. --- etc/TODO | 2 ++ 1 file changed, 2 insertions(+) diff --git a/etc/TODO b/etc/TODO index 509ea2dcd60..b7767470c75 100644 --- a/etc/TODO +++ b/etc/TODO @@ -19,6 +19,8 @@ In new X11 versions, xaw3dg-dev does not depend on libxaw-dev, so the latter need not be installed. As a result, all the source files that look for include files in X11/Xaw should look in X11/Xaw3d if we are using Xaw3d. +http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-04/msg00396.html +http://lists.gnu.org/archive/html/emacs-devel/2006-03/msg01150.html ? ** Compute the list of active keymaps *after* reading the first event. From e50652234f56290cea23831b34cd544d89187a19 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 7 Jun 2007 08:43:58 +0000 Subject: [PATCH 212/276] (xrm_get_preference_database): Remove BLOCK_INPUT. --- src/mac.c | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/mac.c b/src/mac.c index 8e3f49d2bfe..d783243399d 100644 --- a/src/mac.c +++ b/src/mac.c @@ -1826,8 +1826,6 @@ xrm_get_preference_database (application) GCPRO3 (database, quarks, value); - BLOCK_INPUT; - app_id = kCFPreferencesCurrentApplication; if (application) { @@ -1879,8 +1877,6 @@ xrm_get_preference_database (application) CFRelease (key_set); CFRelease (app_id); - UNBLOCK_INPUT; - UNGCPRO; return database; From 1f23bcb73b4079ab2bd7f0d5cc481744686b4fe7 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 7 Jun 2007 08:44:14 +0000 Subject: [PATCH 213/276] (mac_get_window_bounds): Move extern to macterm.h. (compute_tip_xy) [TARGET_API_MAC_CARBON]: Use GetGlobalMouse. --- src/macfns.c | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/macfns.c b/src/macfns.c index c7834e636df..b98e2814281 100644 --- a/src/macfns.c +++ b/src/macfns.c @@ -218,9 +218,6 @@ void x_explicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object)); void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object)); void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); - -extern void mac_get_window_bounds P_ ((struct frame *, Rect *, Rect *)); - /* Store the screen positions of frame F into XPTR and YPTR. @@ -2263,11 +2260,11 @@ mac_window (f) FRAME_MAC_WINDOW (f) = NULL; } } -#else +#else /* !TARGET_API_MAC_CARBON */ FRAME_MAC_WINDOW (f) = NewCWindow (NULL, &r, "\p", false, zoomDocProc, (WindowRef) -1, 1, (long) f->output_data.mac); -#endif +#endif /* !TARGET_API_MAC_CARBON */ /* so that update events can find this mac_output struct */ f->output_data.mac->mFP = f; /* point back to emacs frame */ @@ -3120,7 +3117,7 @@ If omitted or nil, that stands for the selected frame's display. */) UNBLOCK_INPUT; } #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - else + else /* CGDisplayScreenSize == NULL */ #endif #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020 @@ -3157,7 +3154,7 @@ If omitted or nil, that stands for the selected frame's display. */) UNBLOCK_INPUT; } #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - else + else /* CGDisplayScreenSize == NULL */ #endif #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020 @@ -4076,8 +4073,12 @@ compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y) Point mouse_pos; BLOCK_INPUT; +#if TARGET_API_MAC_CARBON + GetGlobalMouse (&mouse_pos); +#else GetMouse (&mouse_pos); LocalToGlobal (&mouse_pos); +#endif *root_x = mouse_pos.h; *root_y = mouse_pos.v; UNBLOCK_INPUT; From b52ee0bd9a59abc2c164144c8f1c83d38d2f06ce Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 7 Jun 2007 08:44:33 +0000 Subject: [PATCH 214/276] [TARGET_API_MAC_CARBON] (menu_target_item_handler): Don't call next handler. [TARGET_API_MAC_CARBON] (install_menu_target_item_handler): Remove argument. Install handler to application. (set_frame_menubar): Don't change deep_p. (mac_menu_show): Use FRAME_OUTER_TO_INNER_DIFF_X and FRAME_OUTER_TO_INNER_DIFF_Y. (DIALOG_BUTTON_COMMAND_ID_OFFSET, DIALOG_BUTTON_COMMAND_ID_P) (DIALOG_BUTTON_COMMAND_ID_VALUE, DIALOG_BUTTON_MAKE_COMMAND_ID) [HAVE_DIALOGS]: New macros. [HAVE_DIALOGS] (mac_handle_dialog_event, create_and_show_dialog): Use them. (fill_menubar) [TARGET_API_MAC_CARBON]: Use CFString. --- src/macmenu.c | 117 +++++++++++++++++++++++++++++++------------------- 1 file changed, 73 insertions(+), 44 deletions(-) diff --git a/src/macmenu.c b/src/macmenu.c index 098457a3f36..5e6ad6f7d10 100644 --- a/src/macmenu.c +++ b/src/macmenu.c @@ -1595,15 +1595,13 @@ menu_target_item_handler (next_handler, event, data) EventRef event; void *data; { - OSStatus err, result; + OSStatus err; MenuRef menu; MenuItemIndex menu_item; Lisp_Object help; GrafPtr port; int specpdl_count = SPECPDL_INDEX (); - result = CallNextEventHandler (next_handler, event); - err = GetEventParameter (event, kEventParamDirectObject, typeMenuRef, NULL, sizeof (MenuRef), NULL, &menu); if (err == noErr) @@ -1626,30 +1624,21 @@ menu_target_item_handler (next_handler, event, data) SetPort (port); unbind_to (specpdl_count, Qnil); - return err == noErr ? noErr : result; + return err == noErr ? noErr : eventNotHandledErr; } -#endif OSStatus -install_menu_target_item_handler (window) - WindowRef window; +install_menu_target_item_handler () { - OSStatus err = noErr; -#if TARGET_API_MAC_CARBON static const EventTypeSpec specs[] = {{kEventClassMenu, kEventMenuTargetItem}}; - static EventHandlerUPP menu_target_item_handlerUPP = NULL; - if (menu_target_item_handlerUPP == NULL) - menu_target_item_handlerUPP = - NewEventHandlerUPP (menu_target_item_handler); - - err = InstallWindowEventHandler (window, menu_target_item_handlerUPP, - GetEventTypeCount (specs), specs, - NULL, NULL); -#endif - return err; + return InstallApplicationEventHandler (NewEventHandlerUPP + (menu_target_item_handler), + GetEventTypeCount (specs), + specs, NULL, NULL); } +#endif /* TARGET_API_MAC_CARBON */ /* Event handler function that pops down a menu on C-g. We can only pop down menus if CancelMenuTracking is present (OSX 10.3 or later). */ @@ -1738,10 +1727,13 @@ set_frame_menubar (f, first_time, deep_p) XSETFRAME (Vmenu_updating_frame, f); + /* This seems to be unnecessary for Carbon. */ +#if 0 if (! menubar_widget) deep_p = 1; else if (pending_menu_activation && !deep_p) deep_p = 1; +#endif if (deep_p) { @@ -2025,7 +2017,6 @@ mac_menu_show (f, x, y, for_click, keymaps, title, error) int menu_item_choice; UInt32 menu_item_selection; MenuRef menu; - Point pos; widget_value *wv, *save_wv = 0, *first_wv = 0, *prev_wv = 0; widget_value **submenu_stack = (widget_value **) alloca (menu_items_used * sizeof (widget_value *)); @@ -2231,11 +2222,8 @@ mac_menu_show (f, x, y, for_click, keymaps, title, error) free_menubar_widget_value_tree (first_wv); /* Adjust coordinates to be root-window-relative. */ - pos.h = x; - pos.v = y; - - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - LocalToGlobal (&pos); + x += f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f); + y += f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f); /* No selection has been chosen yet. */ menu_item_selection = 0; @@ -2248,7 +2236,7 @@ mac_menu_show (f, x, y, for_click, keymaps, title, error) /* Display the menu. */ popup_activated_flag = 1; - menu_item_choice = PopUpMenuSelect (menu, pos.v, pos.h, 0); + menu_item_choice = PopUpMenuSelect (menu, y, x, 0); popup_activated_flag = 0; /* Get the refcon to find the correct item */ @@ -2330,6 +2318,14 @@ mac_menu_show (f, x, y, for_click, keymaps, title, error) #if TARGET_API_MAC_CARBON +#define DIALOG_BUTTON_COMMAND_ID_OFFSET 'Bt\0\0' +#define DIALOG_BUTTON_COMMAND_ID_P(id) \ + (((id) & ~0xffff) == DIALOG_BUTTON_COMMAND_ID_OFFSET) +#define DIALOG_BUTTON_COMMAND_ID_VALUE(id) \ + ((id) - DIALOG_BUTTON_COMMAND_ID_OFFSET) +#define DIALOG_BUTTON_MAKE_COMMAND_ID(value) \ + ((value) + DIALOG_BUTTON_COMMAND_ID_OFFSET) + static pascal OSStatus mac_handle_dialog_event (next_handler, event, data) EventHandlerCallRef next_handler; @@ -2349,7 +2345,7 @@ mac_handle_dialog_event (next_handler, event, data) typeHICommand, NULL, sizeof (HICommand), NULL, &command); if (err == noErr) - if ((command.commandID & ~0xffff) == 'Bt\0\0') + if (DIALOG_BUTTON_COMMAND_ID_P (command.commandID)) { SetWRefCon (window, command.commandID); err = QuitAppModalLoopForWindow (window); @@ -2402,7 +2398,10 @@ mac_handle_dialog_event (next_handler, event, data) break; } - return err == noErr ? noErr : result; + if (err == noErr) + result = noErr; + + return result; } break; @@ -2518,14 +2517,16 @@ create_and_show_dialog (f, first_wv) } if (err == noErr) { + UInt32 command_id; + OffsetRect (&rects[i], -rects[i].left, -rects[i].top); if (rects[i].right < DIALOG_BUTTON_MIN_WIDTH) rects[i].right = DIALOG_BUTTON_MIN_WIDTH; else if (rects[i].right > DIALOG_MAX_INNER_WIDTH) rects[i].right = DIALOG_MAX_INNER_WIDTH; - err = SetControlCommandID (buttons[i], - 'Bt\0\0' + (int) wv->call_data); + command_id = DIALOG_BUTTON_MAKE_COMMAND_ID ((int) wv->call_data); + err = SetControlCommandID (buttons[i], command_id); } if (err != noErr) break; @@ -2702,8 +2703,8 @@ create_and_show_dialog (f, first_wv) { UInt32 command_id = GetWRefCon (window); - if ((command_id & ~0xffff) == 'Bt\0\0') - result = command_id - 'Bt\0\0'; + if (DIALOG_BUTTON_COMMAND_ID_P (command_id)) + result = DIALOG_BUTTON_COMMAND_ID_VALUE (command_id); } if (window) @@ -3139,8 +3140,6 @@ fill_menubar (wv, deep_p) int deep_p; { int id, submenu_id; - MenuRef menu; - Str255 title; #if !TARGET_API_MAC_CARBON int title_changed_p = 0; #endif @@ -3162,19 +3161,36 @@ fill_menubar (wv, deep_p) wv != NULL && id < min_menu_id[MAC_MENU_MENU_BAR + 1]; wv = wv->next, id++) { + OSStatus err = noErr; + MenuRef menu; +#if TARGET_API_MAC_CARBON + CFStringRef title; + + title = CFStringCreateWithCString (NULL, wv->name, + kCFStringEncodingMacRoman); +#else + Str255 title; + strncpy (title, wv->name, 255); title[255] = '\0'; c2pstr (title); +#endif menu = GetMenuRef (id); if (menu) { #if TARGET_API_MAC_CARBON - Str255 old_title; + CFStringRef old_title; - GetMenuTitle (menu, old_title); - if (!EqualString (title, old_title, false, false)) - SetMenuTitle (menu, title); + err = CopyMenuTitleAsCFString (menu, &old_title); + if (err == noErr) + { + if (CFStringCompare (title, old_title, 0) != kCFCompareEqualTo) + err = SetMenuTitleWithCFString (menu, title); + CFRelease (old_title); + } + else + err = SetMenuTitleWithCFString (menu, title); #else /* !TARGET_API_MAC_CARBON */ if (!EqualString (title, (*menu)->menuData, false, false)) { @@ -3188,16 +3204,29 @@ fill_menubar (wv, deep_p) } else { +#if TARGET_API_MAC_CARBON + err = CreateNewMenu (id, 0, &menu); + if (err == noErr) + err = SetMenuTitleWithCFString (menu, title); +#else menu = NewMenu (id, title); - InsertMenu (menu, 0); -#if !TARGET_API_MAC_CARBON - title_changed_p = 1; #endif + if (err == noErr) + { + InsertMenu (menu, 0); +#if !TARGET_API_MAC_CARBON + title_changed_p = 1; +#endif + } } +#if TARGET_API_MAC_CARBON + CFRelease (title); +#endif - if (wv->contents) - submenu_id = fill_menu (menu, wv->contents, MAC_MENU_MENU_BAR_SUB, - submenu_id); + if (err == noErr) + if (wv->contents) + submenu_id = fill_menu (menu, wv->contents, MAC_MENU_MENU_BAR_SUB, + submenu_id); } if (id < min_menu_id[MAC_MENU_MENU_BAR + 1] && GetMenuRef (id)) From 343bd7942699f1a9e8ba83363468a7ef1c173c19 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 7 Jun 2007 08:44:47 +0000 Subject: [PATCH 215/276] [MAC_OSX] (install_service_handler): Rename from init_service_handler. All callers changed. Return OSStatus value. --- src/macselect.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/macselect.c b/src/macselect.c index c6aa97d5be9..a34f58df0f0 100644 --- a/src/macselect.c +++ b/src/macselect.c @@ -1623,16 +1623,19 @@ remove_drag_handler (window) Services menu support ***********************************************************************/ #ifdef MAC_OSX -void -init_service_handler () +OSStatus +install_service_handler () { static const EventTypeSpec specs[] = {{kEventClassService, kEventServiceGetTypes}, {kEventClassService, kEventServiceCopy}, {kEventClassService, kEventServicePaste}, {kEventClassService, kEventServicePerform}}; - InstallApplicationEventHandler (NewEventHandlerUPP (mac_handle_service_event), - GetEventTypeCount (specs), specs, NULL, NULL); + + return InstallApplicationEventHandler (NewEventHandlerUPP + (mac_handle_service_event), + GetEventTypeCount (specs), + specs, NULL, NULL); } extern OSStatus mac_store_service_event P_ ((EventRef)); From 7adf314352a9fcd258183153d9068f73ef1d048c Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 7 Jun 2007 08:45:00 +0000 Subject: [PATCH 216/276] (mac_begin_cg_clip): New arg F. Call SetPortWindowPort. All callers changed so as not to call SetPortWindowPort. (mac_begin_cg_clip) [USE_CG_DRAWING]: Call mac_prepare_for_quickdraw. (mac_draw_image_string_atsui) [USE_ATSUI]: New function created from mac_draw_string_common. (mac_draw_image_string_qd): Likewise. (mac_draw_string_common): Use them. Add INLINE. (XTmouse_position, x_scroll_bar_report_motion) [TARGET_API_MAC_CARBON]: Use FRAME_OUTER_TO_INNER_DIFF_X, FRAME_OUTER_TO_INNER_DIFF_Y, and GetGlobalMouse. (x_set_mouse_pixel_position) [MAC_OSX]: Use FRAME_OUTER_TO_INNER_DIFF_X and FRAME_OUTER_TO_INNER_DIFF_Y. [TARGET_API_MAC_CARBON] (mac_handle_mouse_event): Likewise. [USE_MAC_TSM] (mac_handle_text_input_event): Likewise. (x_make_frame_visible) [TARGET_API_MAC_CARBON]: Move code for repositioning window to mac_handle_window_event. (x_make_frame_invisible) [TARGET_API_MAC_CARBON]: Move code for saving window location to mac_handle_window_event [USE_MAC_FONT_PANEL] (mac_show_hide_font_panel): Install handler here. (install_menu_target_item_handler): Remove argument in extern. [TARGET_API_MAC_CARBON] (mac_event_to_emacs_modifiers): Also accept command events. (do_keystroke): New function created from XTread_socket. (init_command_handler): Remove functions. [TARGET_API_MAC_CARBON] (mac_handle_window_event): Reposition window and save window location by kEventWindowShowing and kEventWindowHiding handlers here. Don't call next handler for window state change and focus events. (mac_handle_application_event, mac_handle_keyboard_event) [TARGET_API_MAC_CARBON]: New functions. (install_window_handler) [TARGET_API_MAC_CARBON]: Register handlers for kEventWindowShowing and kEventWindowHiding events. Move installation of mouse, font, text input and menu target item handlers to install_application_handler. (install_application_handler) [TARGET_API_MAC_CARBON]: New function. (mac_handle_cg_display_reconfig) [MAC_OS_X_VERSION_MAX_ALLOWED >= 1030]: New function. (init_dm_notification_handler) [MAC_OS_X_VERSION_MAX_ALLOWED >= 1030]: Register it. (XTread_socket) [TARGET_API_MAC_CARBON]: Consolidate SendEventToEventTarget calls. Use FRAME_OUTER_TO_INNER_DIFF_X and FRAME_OUTER_TO_INNER_DIFF_Y. Move application activation handler to mac_handle_application_event. Move keyboard handler to mac_handle_keyboard_event. (XTread_socket) [!TARGET_API_MAC_CARBON]: Use do_keystroke. (mac_initialize) [TARGET_API_MAC_CARBON]: Don't call init_command_handler. Call install_application_handler. --- src/macterm.c | 1995 +++++++++++++++++++++++++++---------------------- 1 file changed, 1105 insertions(+), 890 deletions(-) diff --git a/src/macterm.c b/src/macterm.c index a4030a18ecb..bdeedfb9ab6 100644 --- a/src/macterm.c +++ b/src/macterm.c @@ -411,7 +411,8 @@ mac_prepare_for_quickdraw (f) static RgnHandle saved_port_clip_region = NULL; static void -mac_begin_clip (gc) +mac_begin_clip (f, gc) + struct frame *f; GC gc; { static RgnHandle new_region = NULL; @@ -421,6 +422,11 @@ mac_begin_clip (gc) if (new_region == NULL) new_region = NewRgn (); +#if USE_CG_DRAWING + mac_prepare_for_quickdraw (f); +#endif + SetPortWindowPort (FRAME_MAC_WINDOW (f)); + if (gc->n_clip_rects) { GetClip (saved_port_clip_region); @@ -440,15 +446,6 @@ mac_end_clip (gc) /* X display function emulation */ -void -XFreePixmap (display, pixmap) - Display *display; /* not used */ - Pixmap pixmap; -{ - DisposeGWorld (pixmap); -} - - /* Mac version of XDrawLine. */ static void @@ -490,11 +487,8 @@ mac_draw_line (f, gc, x1, y1, x2, y2) x2--; } - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - + mac_begin_clip (f, gc); RGBForeColor (GC_FORE_COLOR (gc)); - - mac_begin_clip (gc); MoveTo (x1, y1); LineTo (x2, y2); mac_end_clip (gc); @@ -550,25 +544,25 @@ mac_erase_rectangle (f, gc, x, y, width, height) unsigned int width, height; { #if USE_CG_DRAWING - CGContextRef context; + { + CGContextRef context; - context = mac_begin_cg_clip (f, gc); - CG_SET_FILL_COLOR_WITH_GC_BACKGROUND (context, gc); - CGContextFillRect (context, CGRectMake (x, y, width, height)); - mac_end_cg_clip (f); + context = mac_begin_cg_clip (f, gc); + CG_SET_FILL_COLOR_WITH_GC_BACKGROUND (context, gc); + CGContextFillRect (context, CGRectMake (x, y, width, height)); + mac_end_cg_clip (f); + } #else - Rect r; + { + Rect r; - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - - RGBBackColor (GC_BACK_COLOR (gc)); - SetRect (&r, x, y, x + width, y + height); - - mac_begin_clip (gc); - EraseRect (&r); - mac_end_clip (gc); - - RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + mac_begin_clip (f, gc); + RGBBackColor (GC_BACK_COLOR (gc)); + SetRect (&r, x, y, x + width, y + height); + EraseRect (&r); + RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + mac_end_clip (gc); + } #endif } @@ -591,15 +585,17 @@ mac_clear_window (f) struct frame *f; { #if USE_CG_DRAWING - CGContextRef context; - GC gc = FRAME_NORMAL_GC (f); + { + CGContextRef context; + GC gc = FRAME_NORMAL_GC (f); - context = mac_begin_cg_clip (f, NULL); - CG_SET_FILL_COLOR_WITH_GC_BACKGROUND (context, gc); - CGContextFillRect (context, CGRectMake (0, 0, FRAME_PIXEL_WIDTH (f), - FRAME_PIXEL_HEIGHT (f))); - mac_end_cg_clip (f); -#else + context = mac_begin_cg_clip (f, NULL); + CG_SET_FILL_COLOR_WITH_GC_BACKGROUND (context, gc); + CGContextFillRect (context, CGRectMake (0, 0, FRAME_PIXEL_WIDTH (f), + FRAME_PIXEL_HEIGHT (f))); + mac_end_cg_clip (f); + } +#else /* !USE_CG_DRAWING */ SetPortWindowPort (FRAME_MAC_WINDOW (f)); RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); @@ -673,13 +669,10 @@ mac_draw_bitmap (f, gc, x, y, width, height, bits, overlay_p) bitmap.baseAddr = (char *)bits; SetRect (&(bitmap.bounds), 0, 0, width, height); - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - + mac_begin_clip (f, gc); RGBForeColor (GC_FORE_COLOR (gc)); RGBBackColor (GC_BACK_COLOR (gc)); SetRect (&r, x, y, x + width, y + height); - - mac_begin_clip (gc); #if TARGET_API_MAC_CARBON { CGrafPtr port; @@ -694,9 +687,8 @@ mac_draw_bitmap (f, gc, x, y, width, height, bits, overlay_p) CopyBits (&bitmap, &(FRAME_MAC_WINDOW (f)->portBits), &(bitmap.bounds), &r, overlay_p ? srcOr : srcCopy, 0); #endif /* not TARGET_API_MAC_CARBON */ - mac_end_clip (gc); - RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + mac_end_clip (gc); } #endif /* !USE_CG_DRAWING */ @@ -747,7 +739,7 @@ mac_free_bitmap (bitmap) Pixmap XCreatePixmap (display, w, width, height, depth) - Display *display; /* not used */ + Display *display; WindowRef w; unsigned int width, height; unsigned int depth; @@ -776,7 +768,7 @@ XCreatePixmap (display, w, width, height, depth) Pixmap XCreatePixmapFromBitmapData (display, w, data, width, height, fg, bg, depth) - Display *display; /* not used */ + Display *display; WindowRef w; char *data; unsigned int width, height; @@ -787,7 +779,7 @@ XCreatePixmapFromBitmapData (display, w, data, width, height, fg, bg, depth) BitMap bitmap; CGrafPtr old_port; GDHandle old_gdh; - static GC gc = NULL; /* not reentrant */ + static GC gc = NULL; if (gc == NULL) gc = XCreateGC (display, w, 0, NULL); @@ -819,6 +811,15 @@ XCreatePixmapFromBitmapData (display, w, data, width, height, fg, bg, depth) } +void +XFreePixmap (display, pixmap) + Display *display; + Pixmap pixmap; +{ + DisposeGWorld (pixmap); +} + + /* Mac replacement for XFillRectangle. */ static void @@ -838,12 +839,9 @@ mac_fill_rectangle (f, gc, x, y, width, height) #else Rect r; - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - + mac_begin_clip (f, gc); RGBForeColor (GC_FORE_COLOR (gc)); SetRect (&r, x, y, x + width, y + height); - - mac_begin_clip (gc); PaintRect (&r); /* using foreground color of gc */ mac_end_clip (gc); #endif @@ -870,18 +868,34 @@ mac_draw_rectangle (f, gc, x, y, width, height) #else Rect r; - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - + mac_begin_clip (f, gc); RGBForeColor (GC_FORE_COLOR (gc)); SetRect (&r, x, y, x + width + 1, y + height + 1); - - mac_begin_clip (gc); FrameRect (&r); /* using foreground color of gc */ mac_end_clip (gc); #endif } +static void +mac_invert_rectangle (f, x, y, width, height) + struct frame *f; + int x, y; + unsigned int width, height; +{ + Rect r; + +#if USE_CG_DRAWING + mac_prepare_for_quickdraw (f); +#endif + SetPortWindowPort (FRAME_MAC_WINDOW (f)); + + SetRect (&r, x, y, x + width, y + height); + + InvertRect (&r); +} + + #if USE_ATSUI static OSStatus atsu_get_text_layout_with_text_ptr (text, text_length, style, text_layout) @@ -891,7 +905,7 @@ atsu_get_text_layout_with_text_ptr (text, text_length, style, text_layout) ATSUTextLayout *text_layout; { OSStatus err; - static ATSUTextLayout saved_text_layout = NULL; /* not reentrant */ + static ATSUTextLayout saved_text_layout = NULL; if (saved_text_layout == NULL) { @@ -918,7 +932,6 @@ atsu_get_text_layout_with_text_ptr (text, text_length, style, text_layout) err = ATSUSetLayoutControls (saved_text_layout, sizeof (tags) / sizeof (tags[0]), tags, sizes, values); - /* XXX: Should we do this? */ if (err == noErr) err = ATSUSetTransientFontMatching (saved_text_layout, true); } @@ -937,29 +950,208 @@ atsu_get_text_layout_with_text_ptr (text, text_length, style, text_layout) *text_layout = saved_text_layout; return err; } -#endif static void -mac_invert_rectangle (f, x, y, width, height) +mac_draw_image_string_atsui (f, gc, x, y, buf, nchars, bg_width, + overstrike_p, bytes_per_char) struct frame *f; + GC gc; int x, y; - unsigned int width, height; + char *buf; + int nchars, bg_width, overstrike_p, bytes_per_char; { - Rect r; + OSStatus err; + ATSUTextLayout text_layout; + + xassert (bytes_per_char == 2); + +#ifndef WORDS_BIG_ENDIAN + { + int i; + UniChar *text = (UniChar *)buf; + + for (i = 0; i < nchars; i++) + text[i] = EndianU16_BtoN (text[i]); + } +#endif + err = atsu_get_text_layout_with_text_ptr ((ConstUniCharArrayPtr)buf, + nchars, + GC_FONT (gc)->mac_style, + &text_layout); + if (err != noErr) + return; +#ifdef MAC_OSX + if (!mac_use_core_graphics) + { +#endif + mac_begin_clip (f, gc); + RGBForeColor (GC_FORE_COLOR (gc)); + if (bg_width) + { + Rect r; + + SetRect (&r, x, y - FONT_BASE (GC_FONT (gc)), + x + bg_width, y + FONT_DESCENT (GC_FONT (gc))); + RGBBackColor (GC_BACK_COLOR (gc)); + EraseRect (&r); + RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + } + MoveTo (x, y); + ATSUDrawText (text_layout, + kATSUFromTextBeginning, kATSUToTextEnd, + kATSUUseGrafPortPenLoc, kATSUUseGrafPortPenLoc); + if (overstrike_p) + { + MoveTo (x + 1, y); + ATSUDrawText (text_layout, + kATSUFromTextBeginning, kATSUToTextEnd, + kATSUUseGrafPortPenLoc, kATSUUseGrafPortPenLoc); + } + mac_end_clip (gc); +#ifdef MAC_OSX + } + else + { + static CGContextRef context; + float port_height = FRAME_PIXEL_HEIGHT (f); + static const ATSUAttributeTag tags[] = {kATSUCGContextTag}; + static const ByteCount sizes[] = {sizeof (CGContextRef)}; + static const ATSUAttributeValuePtr values[] = {&context}; #if USE_CG_DRAWING - mac_prepare_for_quickdraw (f); + context = mac_begin_cg_clip (f, gc); +#else + CGrafPtr port; + + GetPort (&port); + QDBeginCGContext (port, &context); + if (gc->n_clip_rects || bg_width) + { + CGContextTranslateCTM (context, 0, port_height); + CGContextScaleCTM (context, 1, -1); + if (gc->n_clip_rects) + CGContextClipToRects (context, gc->clip_rects, + gc->n_clip_rects); #endif - SetPortWindowPort (FRAME_MAC_WINDOW (f)); + if (bg_width) + { + CG_SET_FILL_COLOR_WITH_GC_BACKGROUND (context, gc); + CGContextFillRect (context, + CGRectMake (x, y - FONT_BASE (GC_FONT (gc)), + bg_width, + FONT_HEIGHT (GC_FONT (gc)))); + } + CGContextScaleCTM (context, 1, -1); + CGContextTranslateCTM (context, 0, -port_height); +#if !USE_CG_DRAWING + } +#endif + CG_SET_FILL_COLOR_WITH_GC_FOREGROUND (context, gc); + err = ATSUSetLayoutControls (text_layout, + sizeof (tags) / sizeof (tags[0]), + tags, sizes, values); + if (err == noErr) + { + ATSUDrawText (text_layout, + kATSUFromTextBeginning, kATSUToTextEnd, + Long2Fix (x), Long2Fix (port_height - y)); + if (overstrike_p) + ATSUDrawText (text_layout, + kATSUFromTextBeginning, kATSUToTextEnd, + Long2Fix (x + 1), Long2Fix (port_height - y)); + } +#if USE_CG_DRAWING + mac_end_cg_clip (f); + context = NULL; +#else + CGContextSynchronize (context); + QDEndCGContext (port, &context); +#endif +#if 0 + /* This doesn't work on Mac OS X 10.1. */ + ATSUClearLayoutControls (text_layout, + sizeof (tags) / sizeof (tags[0]), tags); +#else + ATSUSetLayoutControls (text_layout, + sizeof (tags) / sizeof (tags[0]), + tags, sizes, values); +#endif + } +#endif /* MAC_OSX */ +} +#endif /* USE_ATSUI */ - SetRect (&r, x, y, x + width, y + height); - InvertRect (&r); +static void +mac_draw_image_string_qd (f, gc, x, y, buf, nchars, bg_width, + overstrike_p, bytes_per_char) + struct frame *f; + GC gc; + int x, y; + char *buf; + int nchars, bg_width, overstrike_p, bytes_per_char; +{ +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 + UInt32 savedFlags; +#endif + + mac_begin_clip (f, gc); +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 + if (mac_use_core_graphics) + savedFlags = SwapQDTextFlags (kQDUseCGTextRendering); +#endif + RGBForeColor (GC_FORE_COLOR (gc)); +#ifdef MAC_OS8 + if (bg_width) + { + RGBBackColor (GC_BACK_COLOR (gc)); + TextMode (srcCopy); + } + else + TextMode (srcOr); +#else + /* We prefer not to use srcCopy text transfer mode on Mac OS X + because: + - Screen is double-buffered. (In srcCopy mode, a text is drawn + into an offscreen graphics world first. So performance gain + cannot be expected.) + - It lowers rendering quality. + - Some fonts leave garbage on cursor movement. */ + if (bg_width) + { + Rect r; + + RGBBackColor (GC_BACK_COLOR (gc)); + SetRect (&r, x, y - FONT_BASE (GC_FONT (gc)), + x + bg_width, y + FONT_DESCENT (GC_FONT (gc))); + EraseRect (&r); + } + TextMode (srcOr); +#endif + TextFont (GC_FONT (gc)->mac_fontnum); + TextSize (GC_FONT (gc)->mac_fontsize); + TextFace (GC_FONT (gc)->mac_fontface); + MoveTo (x, y); + DrawText (buf, 0, nchars * bytes_per_char); + if (overstrike_p) + { + TextMode (srcOr); + MoveTo (x + 1, y); + DrawText (buf, 0, nchars * bytes_per_char); + } + if (bg_width) + RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + mac_end_clip (gc); + +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 + if (mac_use_core_graphics) + SwapQDTextFlags(savedFlags); +#endif } -static void +static INLINE void mac_draw_string_common (f, gc, x, y, buf, nchars, bg_width, overstrike_p, bytes_per_char) struct frame *f; @@ -968,193 +1160,14 @@ mac_draw_string_common (f, gc, x, y, buf, nchars, bg_width, char *buf; int nchars, bg_width, overstrike_p, bytes_per_char; { - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - #if USE_ATSUI if (GC_FONT (gc)->mac_style) - { - OSStatus err; - ATSUTextLayout text_layout; - - xassert (bytes_per_char == 2); - -#ifndef WORDS_BIG_ENDIAN - { - int i; - UniChar *text = (UniChar *)buf; - - for (i = 0; i < nchars; i++) - text[i] = EndianU16_BtoN (text[i]); - } -#endif - err = atsu_get_text_layout_with_text_ptr ((ConstUniCharArrayPtr)buf, - nchars, - GC_FONT (gc)->mac_style, - &text_layout); - if (err != noErr) - return; -#ifdef MAC_OSX - if (!mac_use_core_graphics) - { -#endif -#if USE_CG_DRAWING - mac_prepare_for_quickdraw (f); -#endif - mac_begin_clip (gc); - RGBForeColor (GC_FORE_COLOR (gc)); - if (bg_width) - { - Rect r; - - SetRect (&r, x, y - FONT_BASE (GC_FONT (gc)), - x + bg_width, y + FONT_DESCENT (GC_FONT (gc))); - RGBBackColor (GC_BACK_COLOR (gc)); - EraseRect (&r); - RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); - } - MoveTo (x, y); - ATSUDrawText (text_layout, - kATSUFromTextBeginning, kATSUToTextEnd, - kATSUUseGrafPortPenLoc, kATSUUseGrafPortPenLoc); - if (overstrike_p) - { - MoveTo (x + 1, y); - ATSUDrawText (text_layout, - kATSUFromTextBeginning, kATSUToTextEnd, - kATSUUseGrafPortPenLoc, kATSUUseGrafPortPenLoc); - } - mac_end_clip (gc); -#ifdef MAC_OSX - } - else - { - CGrafPtr port; - static CGContextRef context; - float port_height = FRAME_PIXEL_HEIGHT (f); - static const ATSUAttributeTag tags[] = {kATSUCGContextTag}; - static const ByteCount sizes[] = {sizeof (CGContextRef)}; - static const ATSUAttributeValuePtr values[] = {&context}; - -#if USE_CG_DRAWING - context = mac_begin_cg_clip (f, gc); -#else - GetPort (&port); - QDBeginCGContext (port, &context); - if (gc->n_clip_rects || bg_width) - { - CGContextTranslateCTM (context, 0, port_height); - CGContextScaleCTM (context, 1, -1); - if (gc->n_clip_rects) - CGContextClipToRects (context, gc->clip_rects, - gc->n_clip_rects); -#endif - if (bg_width) - { - CG_SET_FILL_COLOR_WITH_GC_BACKGROUND (context, gc); - CGContextFillRect - (context, - CGRectMake (x, y - FONT_BASE (GC_FONT (gc)), - bg_width, FONT_HEIGHT (GC_FONT (gc)))); - } - CGContextScaleCTM (context, 1, -1); - CGContextTranslateCTM (context, 0, -port_height); -#if !USE_CG_DRAWING - } -#endif - CG_SET_FILL_COLOR_WITH_GC_FOREGROUND (context, gc); - err = ATSUSetLayoutControls (text_layout, - sizeof (tags) / sizeof (tags[0]), - tags, sizes, values); - if (err == noErr) - { - ATSUDrawText (text_layout, - kATSUFromTextBeginning, kATSUToTextEnd, - Long2Fix (x), Long2Fix (port_height - y)); - if (overstrike_p) - ATSUDrawText (text_layout, - kATSUFromTextBeginning, kATSUToTextEnd, - Long2Fix (x + 1), Long2Fix (port_height - y)); - } -#if USE_CG_DRAWING - mac_end_cg_clip (f); - context = NULL; -#else - CGContextSynchronize (context); - QDEndCGContext (port, &context); -#endif -#if 0 - /* This doesn't work on Mac OS X 10.1. */ - ATSUClearLayoutControls (text_layout, - sizeof (tags) / sizeof (tags[0]), tags); -#else - ATSUSetLayoutControls (text_layout, - sizeof (tags) / sizeof (tags[0]), - tags, sizes, values); -#endif - } -#endif /* MAC_OSX */ - } + mac_draw_image_string_atsui (f, gc, x, y, buf, nchars, bg_width, + overstrike_p, bytes_per_char); else #endif /* USE_ATSUI */ - { -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 - UInt32 savedFlags; - - if (mac_use_core_graphics) - savedFlags = SwapQDTextFlags (kQDUseCGTextRendering); -#endif -#if USE_CG_DRAWING - mac_prepare_for_quickdraw (f); -#endif - mac_begin_clip (gc); - RGBForeColor (GC_FORE_COLOR (gc)); -#ifdef MAC_OS8 - if (bg_width) - { - RGBBackColor (GC_BACK_COLOR (gc)); - TextMode (srcCopy); - } - else - TextMode (srcOr); -#else - /* We prefer not to use srcCopy text transfer mode on Mac OS X - because: - - Screen is double-buffered. (In srcCopy mode, a text is - drawn into an offscreen graphics world first. So - performance gain cannot be expected.) - - It lowers rendering quality. - - Some fonts leave garbage on cursor movement. */ - if (bg_width) - { - Rect r; - - RGBBackColor (GC_BACK_COLOR (gc)); - SetRect (&r, x, y - FONT_BASE (GC_FONT (gc)), - x + bg_width, y + FONT_DESCENT (GC_FONT (gc))); - EraseRect (&r); - } - TextMode (srcOr); -#endif - TextFont (GC_FONT (gc)->mac_fontnum); - TextSize (GC_FONT (gc)->mac_fontsize); - TextFace (GC_FONT (gc)->mac_fontface); - MoveTo (x, y); - DrawText (buf, 0, nchars * bytes_per_char); - if (overstrike_p) - { - TextMode (srcOr); - MoveTo (x + 1, y); - DrawText (buf, 0, nchars * bytes_per_char); - } - if (bg_width) - RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); - mac_end_clip (gc); - -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 - if (mac_use_core_graphics) - SwapQDTextFlags(savedFlags); -#endif - } + mac_draw_image_string_qd (f, gc, x, y, buf, nchars, bg_width, + overstrike_p, bytes_per_char); } @@ -1371,7 +1384,6 @@ mac_draw_image_string_cg (f, gc, x, y, buf, nchars, bg_width, overstrike_p) XChar2b *buf; int nchars, bg_width, overstrike_p; { - CGrafPtr port; float port_height, gx, gy; int i; CGContextRef context; @@ -1381,7 +1393,6 @@ mac_draw_image_string_cg (f, gc, x, y, buf, nchars, bg_width, overstrike_p) if (!mac_use_core_graphics || GC_FONT (gc)->cg_font == NULL) return 0; - port = GetWindowPort (FRAME_MAC_WINDOW (f)); port_height = FRAME_PIXEL_HEIGHT (f); gx = x; gy = port_height - y; @@ -1402,7 +1413,7 @@ mac_draw_image_string_cg (f, gc, x, y, buf, nchars, bg_width, overstrike_p) #if USE_CG_DRAWING context = mac_begin_cg_clip (f, gc); #else - QDBeginCGContext (port, &context); + QDBeginCGContext (GetWindowPort (FRAME_MAC_WINDOW (f)), &context); if (gc->n_clip_rects || bg_width) { CGContextTranslateCTM (context, 0, port_height); @@ -1442,7 +1453,7 @@ mac_draw_image_string_cg (f, gc, x, y, buf, nchars, bg_width, overstrike_p) } } #if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 - else + else /* CGContextShowGlyphsWithAdvances == NULL */ #endif #endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ #if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020 @@ -1460,7 +1471,7 @@ mac_draw_image_string_cg (f, gc, x, y, buf, nchars, bg_width, overstrike_p) mac_end_cg_clip (f); #else CGContextSynchronize (context); - QDEndCGContext (port, &context); + QDEndCGContext (GetWindowPort (FRAME_MAC_WINDOW (f)), &context); #endif return 1; @@ -1482,7 +1493,7 @@ mac_copy_area (src, f, gc, src_x, src_y, width, height, dest_x, dest_y) { Rect src_r, dest_r; - SetPortWindowPort (FRAME_MAC_WINDOW (f)); + mac_begin_clip (f, gc); SetRect (&src_r, src_x, src_y, src_x + width, src_y + height); SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height); @@ -1490,7 +1501,6 @@ mac_copy_area (src, f, gc, src_x, src_y, width, height, dest_x, dest_y) ForeColor (blackColor); BackColor (whiteColor); - mac_begin_clip (gc); LockPixels (GetGWorldPixMap (src)); #if TARGET_API_MAC_CARBON { @@ -1508,9 +1518,10 @@ mac_copy_area (src, f, gc, src_x, src_y, width, height, dest_x, dest_y) &src_r, &dest_r, srcCopy, 0); #endif /* not TARGET_API_MAC_CARBON */ UnlockPixels (GetGWorldPixMap (src)); - mac_end_clip (gc); RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + + mac_end_clip (gc); } @@ -1526,7 +1537,7 @@ mac_copy_area_with_mask (src, mask, f, gc, src_x, src_y, { Rect src_r, dest_r; - SetPortWindowPort (FRAME_MAC_WINDOW (f)); + mac_begin_clip (f, gc); SetRect (&src_r, src_x, src_y, src_x + width, src_y + height); SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height); @@ -1534,7 +1545,6 @@ mac_copy_area_with_mask (src, mask, f, gc, src_x, src_y, ForeColor (blackColor); BackColor (whiteColor); - mac_begin_clip (gc); LockPixels (GetGWorldPixMap (src)); LockPixels (GetGWorldPixMap (mask)); #if TARGET_API_MAC_CARBON @@ -1554,9 +1564,10 @@ mac_copy_area_with_mask (src, mask, f, gc, src_x, src_y, #endif /* not TARGET_API_MAC_CARBON */ UnlockPixels (GetGWorldPixMap (mask)); UnlockPixels (GetGWorldPixMap (src)); - mac_end_clip (gc); RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + + mac_end_clip (gc); } #endif /* !USE_CG_DRAWING */ @@ -1587,7 +1598,7 @@ mac_scroll_area (f, gc, src_x, src_y, width, height, dest_x, dest_y) Rect src_r, dest_r; WindowRef w = FRAME_MAC_WINDOW (f); - SetPort (w); + mac_begin_clip (f, gc); SetRect (&src_r, src_x, src_y, src_x + width, src_y + height); SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height); @@ -1596,11 +1607,11 @@ mac_scroll_area (f, gc, src_x, src_y, width, height, dest_x, dest_y) color mapping in CopyBits. Otherwise, it will be slow. */ ForeColor (blackColor); BackColor (whiteColor); - mac_begin_clip (gc); CopyBits (&(w->portBits), &(w->portBits), &src_r, &dest_r, srcCopy, 0); - mac_end_clip (gc); RGBBackColor (GC_BACK_COLOR (FRAME_NORMAL_GC (f))); + + mac_end_clip (gc); #endif /* not TARGET_API_MAC_CARBON */ } @@ -4608,8 +4619,14 @@ XTmouse_position (fp, insist, bar_window, part, x, y, time) the frame are divided into. */ Point mouse_pos; +#if TARGET_API_MAC_CARBON + GetGlobalMouse (&mouse_pos); + mouse_pos.h -= f1->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f1); + mouse_pos.v -= f1->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f1); +#else SetPortWindowPort (FRAME_MAC_WINDOW (f1)); GetMouse (&mouse_pos); +#endif remember_mouse_glyph (f1, mouse_pos.h, mouse_pos.v, &last_mouse_glyph); last_mouse_glyph_frame = f1; @@ -5511,9 +5528,14 @@ x_scroll_bar_report_motion (fp, bar_window, part, x, y, time) struct frame *f = mac_window_to_frame (wp); int win_y, top_range; +#if TARGET_API_MAC_CARBON + GetGlobalMouse (&mouse_pos); + mouse_pos.h -= f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f); + mouse_pos.v -= f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f); +#else SetPortWindowPort (wp); - GetMouse (&mouse_pos); +#endif win_y = mouse_pos.v - XINT (bar->top); top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)); @@ -6264,17 +6286,11 @@ x_set_mouse_pixel_position (f, pix_x, pix_y) int pix_x, pix_y; { #ifdef MAC_OSX - Point p; - CGPoint point; + pix_x += f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f); + pix_y += f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f); BLOCK_INPUT; - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - p.h = pix_x; - p.v = pix_y; - LocalToGlobal (&p); - point.x = p.h; - point.y = p.v; - CGWarpMouseCursorPosition (point); + CGWarpMouseCursorPosition (CGPointMake (pix_x, pix_y)); UNBLOCK_INPUT; #else #if 0 /* MAC_TODO: LMSetMouseLocation and CursorDeviceMoveTo are non-Carbon */ @@ -6424,30 +6440,7 @@ x_make_frame_visible (f) before the window gets really visible. */ if (! FRAME_ICONIFIED_P (f) && ! f->output_data.mac->asked_for_visible) - { -#if TARGET_API_MAC_CARBON - if (!(FRAME_SIZE_HINTS (f)->flags & (USPosition | PPosition))) - { - struct frame *sf = SELECTED_FRAME (); - if (!FRAME_MAC_P (sf)) - RepositionWindow (FRAME_MAC_WINDOW (f), NULL, - kWindowCenterOnMainScreen); - else - RepositionWindow (FRAME_MAC_WINDOW (f), - FRAME_MAC_WINDOW (sf), -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 - kWindowCascadeStartAtParentWindowScreen -#else - kWindowCascadeOnParentWindowScreen -#endif - ); - if (!NILP (tip_frame) && f == XFRAME (tip_frame)) - mac_handle_origin_change (f); - } - else -#endif - x_set_offset (f, f->left_pos, f->top_pos, 0); - } + x_set_offset (f, f->left_pos, f->top_pos, 0); f->output_data.mac->asked_for_visible = 1; @@ -6521,12 +6514,14 @@ x_make_frame_invisible (f) BLOCK_INPUT; +#if !TARGET_API_MAC_CARBON /* Before unmapping the window, update the WM_SIZE_HINTS property to claim that the current position of the window is user-specified, rather than program-specified, so that when the window is mapped again, it will be placed at the same location, without forcing the user to position it by hand again (they have already done that once for this window.) */ x_wm_set_size_hint (f, (long) 0, 1); +#endif HideWindow (FRAME_MAC_WINDOW (f)); @@ -8719,16 +8714,93 @@ x_find_ccl_program (fontp) possible. */ static int font_panel_shown_p = 0; +extern Lisp_Object Qfont; +static Lisp_Object Qpanel_closed, Qselection; + +static OSStatus mac_store_event_ref_as_apple_event P_ ((AEEventClass, AEEventID, + Lisp_Object, + Lisp_Object, + EventRef, UInt32, + const EventParamName *, + const EventParamType *)); + int mac_font_panel_visible_p () { return font_panel_shown_p && FPIsFontPanelVisible (); } +static pascal OSStatus +mac_handle_font_event (next_handler, event, data) + EventHandlerCallRef next_handler; + EventRef event; + void *data; +{ + OSStatus result, err; + Lisp_Object id_key; + int num_params; + const EventParamName *names; + const EventParamType *types; + static const EventParamName names_sel[] = {kEventParamATSUFontID, + kEventParamATSUFontSize, + kEventParamFMFontFamily, + kEventParamFMFontSize, + kEventParamFontColor}; + static const EventParamType types_sel[] = {typeATSUFontID, + typeATSUSize, + typeFMFontFamily, + typeFMFontSize, + typeFontColor}; + + result = CallNextEventHandler (next_handler, event); + if (result != eventNotHandledErr) + return result; + + switch (GetEventKind (event)) + { + case kEventFontPanelClosed: + id_key = Qpanel_closed; + num_params = 0; + names = NULL; + types = NULL; + break; + + case kEventFontSelection: + id_key = Qselection; + num_params = sizeof (names_sel) / sizeof (names_sel[0]); + names = names_sel; + types = types_sel; + break; + } + + err = mac_store_event_ref_as_apple_event (0, 0, Qfont, id_key, + event, num_params, + names, types); + if (err == noErr) + result = noErr; + + return result; +} + OSStatus mac_show_hide_font_panel () { - font_panel_shown_p = 1; + if (!font_panel_shown_p) + { + OSStatus err; + + static const EventTypeSpec specs[] = + {{kEventClassFont, kEventFontPanelClosed}, + {kEventClassFont, kEventFontSelection}}; + + err = InstallApplicationEventHandler (mac_handle_font_event, + GetEventTypeCount (specs), + specs, NULL, NULL); + if (err != noErr) + return err; + + font_panel_shown_p = 1; + } return FPShowHideFontPanel (); } @@ -8875,10 +8947,6 @@ static Lisp_Object Qhi_command; extern Lisp_Object Qwindow; static Lisp_Object Qtoolbar_switch_mode; #endif -#if USE_MAC_FONT_PANEL -extern Lisp_Object Qfont; -static Lisp_Object Qpanel_closed, Qselection; -#endif #if USE_MAC_TSM static TSMDocumentID tsm_document_id; static Lisp_Object Qtext_input; @@ -8890,7 +8958,7 @@ static Lisp_Object saved_ts_script_language_on_focus; static ScriptLanguageRecord saved_ts_language; static Component saved_ts_component; #endif -#endif +#endif /* TARGET_API_MAC_CARBON */ extern int mac_ready_for_apple_events; extern Lisp_Object Qundefined; extern void init_apple_event_handler P_ ((void)); @@ -8903,20 +8971,15 @@ extern OSErr init_coercion_handler P_ ((void)); extern OSErr install_drag_handler P_ ((WindowRef)); extern void remove_drag_handler P_ ((WindowRef)); -/* Showing help echo string during menu tracking */ -extern OSStatus install_menu_target_item_handler P_ ((WindowRef)); - #if TARGET_API_MAC_CARBON +/* Showing help echo string during menu tracking */ +extern OSStatus install_menu_target_item_handler P_ ((void)); + #ifdef MAC_OSX -extern void init_service_handler (); +extern OSStatus install_service_handler (); static Lisp_Object Qservice, Qpaste, Qperform; #endif - -/* Window Event Handler */ -static pascal OSStatus mac_handle_window_event (EventHandlerCallRef, - EventRef, void *); #endif -OSStatus install_window_handler (WindowRef); extern void init_emacs_passwd_dir (); extern int emacs_main (int, char **, char **); @@ -9115,11 +9178,13 @@ mac_quit_char_key_p (modifiers, key_code) static int mac_event_to_emacs_modifiers (EventRef eventRef) { - UInt32 mods = 0; + UInt32 mods = 0, class; + GetEventParameter (eventRef, kEventParamKeyModifiers, typeUInt32, NULL, sizeof (UInt32), NULL, &mods); + class = GetEventClass (eventRef); if (!NILP (Vmac_emulate_three_button_mouse) && - GetEventClass(eventRef) == kEventClassMouse) + (class == kEventClassMouse || class == kEventClassCommand)) { mods &= ~(optionKey | cmdKey); } @@ -9639,6 +9704,210 @@ do_zoom_window (WindowRef w, int zoom_in_or_out) #endif } +static void +mac_set_unicode_keystroke_event (code, buf) + UniChar code; + struct input_event *buf; +{ + int charset_id, c1, c2; + + if (code < 0x80) + { + buf->kind = ASCII_KEYSTROKE_EVENT; + buf->code = code; + } + else if (code < 0x100) + { + if (code < 0xA0) + charset_id = CHARSET_8_BIT_CONTROL; + else + charset_id = charset_latin_iso8859_1; + buf->kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT; + buf->code = MAKE_CHAR (charset_id, code, 0); + } + else + { + if (code < 0x2500) + charset_id = charset_mule_unicode_0100_24ff, + code -= 0x100; + else if (code < 0x33FF) + charset_id = charset_mule_unicode_2500_33ff, + code -= 0x2500; + else if (code >= 0xE000) + charset_id = charset_mule_unicode_e000_ffff, + code -= 0xE000; + c1 = (code / 96) + 32, c2 = (code % 96) + 32; + buf->kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT; + buf->code = MAKE_CHAR (charset_id, c1, c2); + } +} + +static void +do_keystroke (action, char_code, key_code, modifiers, timestamp, buf) + EventKind action; + unsigned char char_code; + UInt32 key_code, modifiers; + unsigned long timestamp; + struct input_event *buf; +{ + static SInt16 last_key_script = -1; + SInt16 current_key_script = GetScriptManagerVariable (smKeyScript); + UInt32 mapped_modifiers = mac_mapped_modifiers (modifiers); + +#ifdef MAC_OSX + if (mapped_modifiers & kEventKeyModifierFnMask + && key_code <= 0x7f + && fn_keycode_to_keycode_table[key_code]) + key_code = fn_keycode_to_keycode_table[key_code]; +#endif + + if (key_code <= 0x7f && keycode_to_xkeysym_table[key_code]) + { + buf->kind = NON_ASCII_KEYSTROKE_EVENT; + buf->code = 0xff00 | keycode_to_xkeysym_table[key_code]; +#ifdef MAC_OSX + if (modifiers & kEventKeyModifierFnMask + && key_code <= 0x7f + && fn_keycode_to_keycode_table[key_code] == key_code) + modifiers &= ~kEventKeyModifierFnMask; +#endif + } + else if (mapped_modifiers) + { + /* translate the keycode back to determine the original key */ +#ifdef MAC_OSX + UCKeyboardLayout *uchr_ptr = NULL; +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 + OSStatus err; + KeyboardLayoutRef layout; + + err = KLGetCurrentKeyboardLayout (&layout); + if (err == noErr) + err = KLGetKeyboardLayoutProperty (layout, kKLuchrData, + (const void **) &uchr_ptr); +#else + static SInt16 last_key_layout_id = 0; + static Handle uchr_handle = (Handle)-1; + SInt16 current_key_layout_id = + GetScriptVariable (current_key_script, smScriptKeys); + + if (uchr_handle == (Handle)-1 + || last_key_layout_id != current_key_layout_id) + { + uchr_handle = GetResource ('uchr', current_key_layout_id); + last_key_layout_id = current_key_layout_id; + } + if (uchr_handle) + uchr_ptr = (UCKeyboardLayout *)*uchr_handle; +#endif + + if (uchr_ptr) + { + OSStatus status; + UInt16 key_action = action - keyDown; + UInt32 modifier_key_state = (modifiers & ~mapped_modifiers) >> 8; + UInt32 keyboard_type = LMGetKbdType (); + SInt32 dead_key_state = 0; + UniChar code; + UniCharCount actual_length; + + status = UCKeyTranslate (uchr_ptr, key_code, key_action, + modifier_key_state, keyboard_type, + kUCKeyTranslateNoDeadKeysMask, + &dead_key_state, + 1, &actual_length, &code); + if (status == noErr && actual_length == 1) + mac_set_unicode_keystroke_event (code, buf); + } +#endif /* MAC_OSX */ + + if (buf->kind == NO_EVENT) + { + /* This code comes from Keyboard Resource, Appendix C of IM + - Text. This is necessary since shift is ignored in KCHR + table translation when option or command is pressed. It + also does not translate correctly control-shift chars + like C-% so mask off shift here also. */ + /* Mask off modifier keys that are mapped to some Emacs + modifiers. */ + int new_modifiers = modifiers & ~mapped_modifiers; + /* set high byte of keycode to modifier high byte*/ + int new_key_code = key_code | new_modifiers; + Ptr kchr_ptr = (Ptr) GetScriptManagerVariable (smKCHRCache); + unsigned long some_state = 0; + UInt32 new_char_code; + + new_char_code = KeyTranslate (kchr_ptr, new_key_code, &some_state); + if (new_char_code == 0) + /* Seems like a dead key. Append up-stroke. */ + new_char_code = KeyTranslate (kchr_ptr, new_key_code | 0x80, + &some_state); + if (new_char_code) + { + buf->kind = ASCII_KEYSTROKE_EVENT; + buf->code = new_char_code & 0xff; + } + } + } + + if (buf->kind == NO_EVENT) + { + buf->kind = ASCII_KEYSTROKE_EVENT; + buf->code = char_code; + } + + buf->modifiers = mac_to_emacs_modifiers (modifiers); + buf->modifiers |= (extra_keyboard_modifiers + & (meta_modifier | alt_modifier + | hyper_modifier | super_modifier)); + +#if TARGET_API_MAC_CARBON + if (buf->kind == ASCII_KEYSTROKE_EVENT + && buf->code >= 0x80 && buf->modifiers) + { + OSStatus err; + TextEncoding encoding = kTextEncodingMacRoman; + TextToUnicodeInfo ttu_info; + + UpgradeScriptInfoToTextEncoding (current_key_script, + kTextLanguageDontCare, + kTextRegionDontCare, + NULL, &encoding); + err = CreateTextToUnicodeInfoByEncoding (encoding, &ttu_info); + if (err == noErr) + { + UniChar code; + Str255 pstr; + ByteCount unicode_len; + + pstr[0] = 1; + pstr[1] = buf->code; + err = ConvertFromPStringToUnicode (ttu_info, pstr, + sizeof (UniChar), + &unicode_len, &code); + if (err == noErr && unicode_len == sizeof (UniChar)) + mac_set_unicode_keystroke_event (code, buf); + DisposeTextToUnicodeInfo (&ttu_info); + } + } +#endif + + if (buf->kind == ASCII_KEYSTROKE_EVENT + && buf->code >= 0x80 + && last_key_script != current_key_script) + { + struct input_event event; + + EVENT_INIT (event); + event.kind = LANGUAGE_CHANGE_EVENT; + event.arg = Qnil; + event.code = current_key_script; + event.timestamp = timestamp; + kbd_buffer_store_event (&event); + last_key_script = current_key_script; + } +} + void mac_store_apple_event (class, id, desc) Lisp_Object class, id; @@ -9718,51 +9987,48 @@ mac_store_drag_event (window, mouse_pos, modifiers, desc) kbd_buffer_store_event (&buf); } -static pascal OSStatus -mac_handle_command_event (next_handler, event, data) - EventHandlerCallRef next_handler; +#ifdef MAC_OSX +OSStatus +mac_store_service_event (event) EventRef event; - void *data; { - OSStatus result, err; - HICommand command; - static const EventParamName names[] = - {kEventParamDirectObject, kEventParamKeyModifiers}; - static const EventParamType types[] = - {typeHICommand, typeUInt32}; - int num_params = sizeof (names) / sizeof (names[0]); + OSStatus err; + Lisp_Object id_key; + int num_params; + const EventParamName *names; + const EventParamType *types; + static const EventParamName names_pfm[] = + {kEventParamServiceMessageName, kEventParamServiceUserData}; + static const EventParamType types_pfm[] = + {typeCFStringRef, typeCFStringRef}; - result = CallNextEventHandler (next_handler, event); - if (result != eventNotHandledErr) - return result; + switch (GetEventKind (event)) + { + case kEventServicePaste: + id_key = Qpaste; + num_params = 0; + names = NULL; + types = NULL; + break; - err = GetEventParameter (event, kEventParamDirectObject, typeHICommand, - NULL, sizeof (HICommand), NULL, &command); + case kEventServicePerform: + id_key = Qperform; + num_params = sizeof (names_pfm) / sizeof (names_pfm[0]); + names = names_pfm; + types = types_pfm; + break; - if (err != noErr || command.commandID == 0) - return eventNotHandledErr; + default: + abort (); + } - /* A HI command event is mapped to an Apple event whose event class - symbol is `hi-command' and event ID is its command ID. */ - err = mac_store_event_ref_as_apple_event (0, command.commandID, - Qhi_command, Qnil, - event, num_params, names, types); - return err == noErr ? noErr : eventNotHandledErr; -} - -static OSStatus -init_command_handler () -{ - static const EventTypeSpec specs[] = - {{kEventClassCommand, kEventCommandProcess}}; - static EventHandlerUPP handle_command_eventUPP = NULL; - - if (handle_command_eventUPP == NULL) - handle_command_eventUPP = NewEventHandlerUPP (mac_handle_command_event); - return InstallApplicationEventHandler (handle_command_eventUPP, - GetEventTypeCount (specs), specs, - NULL, NULL); + err = mac_store_event_ref_as_apple_event (0, 0, Qservice, id_key, + event, num_params, + names, types); + + return err; } +#endif /* MAC_OSX */ static pascal OSStatus mac_handle_window_event (next_handler, event, data) @@ -9771,7 +10037,7 @@ mac_handle_window_event (next_handler, event, data) void *data; { WindowRef wp; - OSStatus result, err; + OSStatus err, result = eventNotHandledErr; struct frame *f; UInt32 attributes; XSizeHints *size_hints; @@ -9784,33 +10050,64 @@ mac_handle_window_event (next_handler, event, data) f = mac_window_to_frame (wp); switch (GetEventKind (event)) { + /* -- window refresh events -- */ + case kEventWindowUpdate: result = CallNextEventHandler (next_handler, event); if (result != eventNotHandledErr) - return result; + break; do_window_update (wp); - return noErr; + result = noErr; + break; - case kEventWindowGetIdealSize: - result = CallNextEventHandler (next_handler, event); - if (result != eventNotHandledErr) - return result; + /* -- window state change events -- */ - { - Point ideal_size = mac_get_ideal_size (f); + case kEventWindowShowing: + size_hints = FRAME_SIZE_HINTS (f); + if (!(size_hints->flags & (USPosition | PPosition))) + { + struct frame *sf = SELECTED_FRAME (); - err = SetEventParameter (event, kEventParamDimensions, - typeQDPoint, sizeof (Point), &ideal_size); - if (err == noErr) - return noErr; - } + if (!(FRAME_MAC_P (sf))) + RepositionWindow (wp, NULL, kWindowCenterOnMainScreen); + else + { + RepositionWindow (wp, FRAME_MAC_WINDOW (sf), +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 + kWindowCascadeStartAtParentWindowScreen +#else + kWindowCascadeOnParentWindowScreen +#endif + ); + } + result = noErr; + } + break; + + case kEventWindowHiding: + /* Before unmapping the window, update the WM_SIZE_HINTS + property to claim that the current position of the window is + user-specified, rather than program-specified, so that when + the window is mapped again, it will be placed at the same + location, without forcing the user to position it by hand + again (they have already done that once for this window.) */ + x_wm_set_size_hint (f, (long) 0, 1); + result = noErr; + break; + + case kEventWindowShown: + case kEventWindowHidden: + case kEventWindowCollapsed: + case kEventWindowExpanded: + mac_handle_visibility_change (f); + result = noErr; break; case kEventWindowBoundsChanging: result = CallNextEventHandler (next_handler, event); if (result != eventNotHandledErr) - return result; + break; err = GetEventParameter (event, kEventParamAttributes, typeUInt32, NULL, sizeof (UInt32), NULL, &attributes); @@ -9854,7 +10151,7 @@ mac_handle_window_event (next_handler, event, data) bounds.bottom = bounds.top + height; SetEventParameter (event, kEventParamCurrentBounds, typeQDRectangle, sizeof (Rect), &bounds); - return noErr; + result = noErr; } break; @@ -9885,21 +10182,12 @@ mac_handle_window_event (next_handler, event, data) if (attributes & kWindowBoundsChangeOriginChanged) mac_handle_origin_change (f); - return noErr; - - case kEventWindowShown: - case kEventWindowHidden: - case kEventWindowExpanded: - case kEventWindowCollapsed: - result = CallNextEventHandler (next_handler, event); - - mac_handle_visibility_change (f); - return noErr; - + result = noErr; break; + /* -- window action events -- */ + case kEventWindowClose: - result = CallNextEventHandler (next_handler, event); { struct input_event buf; @@ -9909,11 +10197,26 @@ mac_handle_window_event (next_handler, event, data) buf.arg = Qnil; kbd_buffer_store_event (&buf); } - return noErr; + result = noErr; + break; + + case kEventWindowGetIdealSize: + result = CallNextEventHandler (next_handler, event); + if (result != eventNotHandledErr) + break; + + { + Point ideal_size = mac_get_ideal_size (f); + + err = SetEventParameter (event, kEventParamDimensions, + typeQDPoint, sizeof (Point), &ideal_size); + if (err == noErr) + result = noErr; + } + break; #ifdef MAC_OSX case kEventWindowToolbarSwitchMode: - result = CallNextEventHandler (next_handler, event); { static const EventParamName names[] = {kEventParamDirectObject, kEventParamWindowMouseLocation, @@ -9935,23 +10238,195 @@ mac_handle_window_event (next_handler, event, data) event, num_params, names, types); } - return err == noErr ? noErr : result; + if (err == noErr) + result = noErr; + break; #endif #if USE_MAC_TSM + /* -- window focus events -- */ + case kEventWindowFocusAcquired: - result = CallNextEventHandler (next_handler, event); err = mac_tsm_resume (); - return err == noErr ? noErr : result; + if (err == noErr) + result = noErr; + break; case kEventWindowFocusRelinquish: - result = CallNextEventHandler (next_handler, event); err = mac_tsm_suspend (); - return err == noErr ? noErr : result; + if (err == noErr) + result = noErr; + break; #endif + + default: + abort (); } - return eventNotHandledErr; + return result; +} + +static pascal OSStatus +mac_handle_application_event (next_handler, event, data) + EventHandlerCallRef next_handler; + EventRef event; + void *data; +{ + OSStatus err, result = eventNotHandledErr; + + switch (GetEventKind (event)) + { +#if USE_MAC_TSM + case kEventAppActivated: + err = mac_tsm_resume (); + break; + + case kEventAppDeactivated: + err = mac_tsm_suspend (); + break; +#endif + + default: + abort (); + } + + if (err == noErr) + result = noErr; + + return result; +} + +static pascal OSStatus +mac_handle_keyboard_event (next_handler, event, data) + EventHandlerCallRef next_handler; + EventRef event; + void *data; +{ + OSStatus err, result = eventNotHandledErr; + UInt32 event_kind, key_code, modifiers, mapped_modifiers; + unsigned char char_code; + + event_kind = GetEventKind (event); + switch (event_kind) + { + case kEventRawKeyDown: + case kEventRawKeyRepeat: + case kEventRawKeyUp: + if (read_socket_inev == NULL) + { + result = CallNextEventHandler (next_handler, event); + break; + } + + err = GetEventParameter (event, kEventParamKeyModifiers, + typeUInt32, NULL, + sizeof (UInt32), NULL, &modifiers); + if (err != noErr) + break; + + mapped_modifiers = mac_mapped_modifiers (modifiers); + + /* When using Carbon Events, we need to pass raw keyboard events + to the TSM ourselves. If TSM handles it, it will pass back + noErr, otherwise it will pass back "eventNotHandledErr" and + we can process it normally. */ + if (!(mapped_modifiers + & ~(mac_pass_command_to_system ? cmdKey : 0) + & ~(mac_pass_control_to_system ? controlKey : 0))) + { + result = CallNextEventHandler (next_handler, event); + if (result != eventNotHandledErr) + break; + } + +#if USE_MAC_TSM + if (read_socket_inev->kind != NO_EVENT) + { + result = noErr; + break; + } +#endif + + if (event_kind == kEventRawKeyUp) + break; + + err = GetEventParameter (event, kEventParamKeyMacCharCodes, + typeChar, NULL, + sizeof (char), NULL, &char_code); + if (err != noErr) + break; + + err = GetEventParameter (event, kEventParamKeyCode, + typeUInt32, NULL, + sizeof (UInt32), NULL, &key_code); + if (err != noErr) + break; + + do_keystroke ((GetEventKind (event) == kEventRawKeyDown + ? keyDown : autoKey), + char_code, key_code, modifiers, + ((unsigned long) + (GetEventTime (event) / kEventDurationMillisecond)), + read_socket_inev); + result = noErr; + break; + + default: + abort (); + } + + return result; +} + +static pascal OSStatus +mac_handle_command_event (next_handler, event, data) + EventHandlerCallRef next_handler; + EventRef event; + void *data; +{ + OSStatus err, result = eventNotHandledErr; + HICommand command; + static const EventParamName names[] = + {kEventParamDirectObject, kEventParamKeyModifiers}; + static const EventParamType types[] = + {typeHICommand, typeUInt32}; + int num_params = sizeof (names) / sizeof (names[0]); + + err = GetEventParameter (event, kEventParamDirectObject, typeHICommand, + NULL, sizeof (HICommand), NULL, &command); + if (err != noErr) + return eventNotHandledErr; + + switch (GetEventKind (event)) + { + case kEventCommandProcess: + result = CallNextEventHandler (next_handler, event); + if (result != eventNotHandledErr) + break; + + err = GetEventParameter (event, kEventParamDirectObject, + typeHICommand, NULL, + sizeof (HICommand), NULL, &command); + + if (err != noErr || command.commandID == 0) + break; + + /* A HI command event is mapped to an Apple event whose event + class symbol is `hi-command' and event ID is its command + ID. */ + err = mac_store_event_ref_as_apple_event (0, command.commandID, + Qhi_command, Qnil, + event, num_params, + names, types); + if (err == noErr) + result = noErr; + break; + + default: + abort (); + } + + return result; } static pascal OSStatus @@ -9960,7 +10435,7 @@ mac_handle_mouse_event (next_handler, event, data) EventRef event; void *data; { - OSStatus result, err; + OSStatus err, result = eventNotHandledErr; switch (GetEventKind (event)) { @@ -9974,15 +10449,14 @@ mac_handle_mouse_event (next_handler, event, data) result = CallNextEventHandler (next_handler, event); if (result != eventNotHandledErr || read_socket_inev == NULL) - return result; + break; + + f = mac_focus_frame (&one_mac_display_info); err = GetEventParameter (event, kEventParamWindowRef, typeWindowRef, NULL, sizeof (WindowRef), NULL, &wp); - if (err != noErr) - break; - - f = mac_window_to_frame (wp); - if (f != mac_focus_frame (&one_mac_display_info)) + if (err != noErr + || wp != FRAME_MAC_WINDOW (f)) break; err = GetEventParameter (event, kEventParamMouseWheelAxis, @@ -9997,8 +10471,8 @@ mac_handle_mouse_event (next_handler, event, data) if (err != noErr) break; - SetPortWindowPort (wp); - GlobalToLocal (&point); + point.h -= f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f); + point.v -= f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f); if (point.h < 0 || point.v < 0 || EQ (window_from_coordinates (f, point.h, point.v, 0, 0, 0, 1), f->tool_bar_window)) @@ -10019,69 +10493,17 @@ mac_handle_mouse_event (next_handler, event, data) XSETINT (read_socket_inev->y, point.v); XSETFRAME (read_socket_inev->frame_or_window, f); - return noErr; + result = noErr; } break; default: - break; + abort (); } - return eventNotHandledErr; + return result; } -#if USE_MAC_FONT_PANEL -static pascal OSStatus -mac_handle_font_event (next_handler, event, data) - EventHandlerCallRef next_handler; - EventRef event; - void *data; -{ - OSStatus result, err; - Lisp_Object id_key; - int num_params; - const EventParamName *names; - const EventParamType *types; - static const EventParamName names_sel[] = {kEventParamATSUFontID, - kEventParamATSUFontSize, - kEventParamFMFontFamily, - kEventParamFMFontSize, - kEventParamFontColor}; - static const EventParamType types_sel[] = {typeATSUFontID, - typeATSUSize, - typeFMFontFamily, - typeFMFontSize, - typeFontColor}; - - result = CallNextEventHandler (next_handler, event); - if (result != eventNotHandledErr) - return result; - - switch (GetEventKind (event)) - { - case kEventFontPanelClosed: - id_key = Qpanel_closed; - num_params = 0; - names = NULL; - types = NULL; - break; - - case kEventFontSelection: - id_key = Qselection; - num_params = sizeof (names_sel) / sizeof (names_sel[0]); - names = names_sel; - types = types_sel; - break; - } - - err = mac_store_event_ref_as_apple_event (0, 0, Qfont, id_key, - event, num_params, - names, types); - - return err == noErr ? noErr : eventNotHandledErr; -} -#endif - #if USE_MAC_TSM static pascal OSStatus mac_handle_text_input_event (next_handler, event, data) @@ -10137,6 +10559,8 @@ mac_handle_text_input_event (next_handler, event, data) typeUnicodeText}; result = CallNextEventHandler (next_handler, event); + if (result != eventNotHandledErr) + return result; switch (GetEventKind (event)) { @@ -10164,7 +10588,7 @@ mac_handle_text_input_event (next_handler, event, data) sizeof (UInt32), NULL, &modifiers); if (err == noErr && mac_mapped_modifiers (modifiers)) /* There're mapped modifier keys. Process it in - XTread_socket. */ + do_keystroke. */ return eventNotHandledErr; if (err == noErr) err = GetEventParameter (kbd_event, kEventParamKeyUnicodes, @@ -10179,7 +10603,7 @@ mac_handle_text_input_event (next_handler, event, data) sizeof (UniChar), NULL, &code); if (err == noErr && code < 0x80) { - /* ASCII character. Process it in XTread_socket. */ + /* ASCII character. Process it in do_keystroke. */ if (read_socket_inev && code >= 0x20 && code <= 0x7e) { UInt32 key_code; @@ -10241,11 +10665,11 @@ mac_handle_text_input_event (next_handler, event, data) } p.h = (WINDOW_TO_FRAME_PIXEL_X (w, w->cursor.x) - + WINDOW_LEFT_FRINGE_WIDTH (w)); + + WINDOW_LEFT_FRINGE_WIDTH (w) + + f->left_pos + FRAME_OUTER_TO_INNER_DIFF_X (f)); p.v = (WINDOW_TO_FRAME_PIXEL_Y (w, w->cursor.y) - + FONT_BASE (FRAME_FONT (f))); - SetPortWindowPort (FRAME_MAC_WINDOW (f)); - LocalToGlobal (&p); + + FONT_BASE (FRAME_FONT (f)) + + f->top_pos + FRAME_OUTER_TO_INNER_DIFF_Y (f)); err = SetEventParameter (event, kEventParamTextInputReplyPoint, typeQDPoint, sizeof (typeQDPoint), &p); } @@ -10259,53 +10683,12 @@ mac_handle_text_input_event (next_handler, event, data) err = mac_store_event_ref_as_apple_event (0, 0, Qtext_input, id_key, event, num_params, names, types); + if (err == noErr) + result = noErr; - return err == noErr ? noErr : result; + return result; } #endif - -#ifdef MAC_OSX -OSStatus -mac_store_service_event (event) - EventRef event; -{ - OSStatus err; - Lisp_Object id_key; - int num_params; - const EventParamName *names; - const EventParamType *types; - static const EventParamName names_pfm[] = - {kEventParamServiceMessageName, kEventParamServiceUserData}; - static const EventParamType types_pfm[] = - {typeCFStringRef, typeCFStringRef}; - - switch (GetEventKind (event)) - { - case kEventServicePaste: - id_key = Qpaste; - num_params = 0; - names = NULL; - types = NULL; - break; - - case kEventServicePerform: - id_key = Qperform; - num_params = sizeof (names_pfm) / sizeof (names_pfm[0]); - names = names_pfm; - types = types_pfm; - break; - - default: - abort (); - } - - err = mac_store_event_ref_as_apple_event (0, 0, Qservice, id_key, - event, num_params, - names, types); - - return err; -} -#endif /* MAC_OSX */ #endif /* TARGET_API_MAC_CARBON */ @@ -10314,80 +10697,48 @@ install_window_handler (window) WindowRef window; { OSStatus err = noErr; + #if TARGET_API_MAC_CARBON - static const EventTypeSpec specs_window[] = - {{kEventClassWindow, kEventWindowUpdate}, - {kEventClassWindow, kEventWindowGetIdealSize}, - {kEventClassWindow, kEventWindowBoundsChanging}, - {kEventClassWindow, kEventWindowBoundsChanged}, - {kEventClassWindow, kEventWindowShown}, - {kEventClassWindow, kEventWindowHidden}, - {kEventClassWindow, kEventWindowExpanded}, - {kEventClassWindow, kEventWindowCollapsed}, - {kEventClassWindow, kEventWindowClose}, + if (err == noErr) + { + static const EventTypeSpec specs[] = + { + /* -- window refresh events -- */ + {kEventClassWindow, kEventWindowUpdate}, + /* -- window state change events -- */ + {kEventClassWindow, kEventWindowShowing}, + {kEventClassWindow, kEventWindowHiding}, + {kEventClassWindow, kEventWindowShown}, + {kEventClassWindow, kEventWindowHidden}, + {kEventClassWindow, kEventWindowCollapsed}, + {kEventClassWindow, kEventWindowExpanded}, + {kEventClassWindow, kEventWindowBoundsChanging}, + {kEventClassWindow, kEventWindowBoundsChanged}, + /* -- window action events -- */ + {kEventClassWindow, kEventWindowClose}, + {kEventClassWindow, kEventWindowGetIdealSize}, #ifdef MAC_OSX - {kEventClassWindow, kEventWindowToolbarSwitchMode}, + {kEventClassWindow, kEventWindowToolbarSwitchMode}, #endif #if USE_MAC_TSM - {kEventClassWindow, kEventWindowFocusAcquired}, - {kEventClassWindow, kEventWindowFocusRelinquish}, + /* -- window focus events -- */ + {kEventClassWindow, kEventWindowFocusAcquired}, + {kEventClassWindow, kEventWindowFocusRelinquish}, #endif - }; - static const EventTypeSpec specs_mouse[] = - {{kEventClassMouse, kEventMouseWheelMoved}}; - static EventHandlerUPP handle_window_eventUPP = NULL; - static EventHandlerUPP handle_mouse_eventUPP = NULL; -#if USE_MAC_FONT_PANEL - static const EventTypeSpec specs_font[] = - {{kEventClassFont, kEventFontPanelClosed}, - {kEventClassFont, kEventFontSelection}}; - static EventHandlerUPP handle_font_eventUPP = NULL; -#endif -#if USE_MAC_TSM - static const EventTypeSpec specs_text_input[] = - {{kEventClassTextInput, kEventTextInputUpdateActiveInputArea}, - {kEventClassTextInput, kEventTextInputUnicodeForKeyEvent}, - {kEventClassTextInput, kEventTextInputOffsetToPos}}; - static EventHandlerUPP handle_text_input_eventUPP = NULL; + }; + static EventHandlerUPP handle_window_eventUPP = NULL; + + if (handle_window_eventUPP == NULL) + handle_window_eventUPP = NewEventHandlerUPP (mac_handle_window_event); + + err = InstallWindowEventHandler (window, handle_window_eventUPP, + GetEventTypeCount (specs), + specs, NULL, NULL); + } #endif - if (handle_window_eventUPP == NULL) - handle_window_eventUPP = NewEventHandlerUPP (mac_handle_window_event); - if (handle_mouse_eventUPP == NULL) - handle_mouse_eventUPP = NewEventHandlerUPP (mac_handle_mouse_event); -#if USE_MAC_FONT_PANEL - if (handle_font_eventUPP == NULL) - handle_font_eventUPP = NewEventHandlerUPP (mac_handle_font_event); -#endif -#if USE_MAC_TSM - if (handle_text_input_eventUPP == NULL) - handle_text_input_eventUPP = - NewEventHandlerUPP (mac_handle_text_input_event); -#endif - err = InstallWindowEventHandler (window, handle_window_eventUPP, - GetEventTypeCount (specs_window), - specs_window, NULL, NULL); - if (err == noErr) - err = InstallWindowEventHandler (window, handle_mouse_eventUPP, - GetEventTypeCount (specs_mouse), - specs_mouse, NULL, NULL); -#if USE_MAC_FONT_PANEL - if (err == noErr) - err = InstallWindowEventHandler (window, handle_font_eventUPP, - GetEventTypeCount (specs_font), - specs_font, NULL, NULL); -#endif -#if USE_MAC_TSM - if (err == noErr) - err = InstallWindowEventHandler (window, handle_text_input_eventUPP, - GetEventTypeCount (specs_text_input), - specs_text_input, window, NULL); -#endif -#endif if (err == noErr) err = install_drag_handler (window); - if (err == noErr) - err = install_menu_target_item_handler (window); return err; } @@ -10399,6 +10750,88 @@ remove_window_handler (window) remove_drag_handler (window); } +#if TARGET_API_MAC_CARBON +static OSStatus +install_application_handler () +{ + OSStatus err = noErr; + + if (err == noErr) + { + static const EventTypeSpec specs[] = { +#if USE_MAC_TSM + {kEventClassApplication, kEventAppActivated}, + {kEventClassApplication, kEventAppDeactivated}, +#endif + }; + + err = InstallApplicationEventHandler (NewEventHandlerUPP + (mac_handle_application_event), + GetEventTypeCount (specs), + specs, NULL, NULL); + } + + if (err == noErr) + { + static const EventTypeSpec specs[] = + {{kEventClassKeyboard, kEventRawKeyDown}, + {kEventClassKeyboard, kEventRawKeyRepeat}, + {kEventClassKeyboard, kEventRawKeyUp}}; + + err = InstallApplicationEventHandler (NewEventHandlerUPP + (mac_handle_keyboard_event), + GetEventTypeCount (specs), + specs, NULL, NULL); + } + + if (err == noErr) + { + static const EventTypeSpec specs[] = + {{kEventClassCommand, kEventCommandProcess}}; + + err = InstallApplicationEventHandler (NewEventHandlerUPP + (mac_handle_command_event), + GetEventTypeCount (specs), + specs, NULL, NULL); + } + + if (err == noErr) + { + static const EventTypeSpec specs[] = + {{kEventClassMouse, kEventMouseWheelMoved}}; + + err = InstallApplicationEventHandler (NewEventHandlerUPP + (mac_handle_mouse_event), + GetEventTypeCount (specs), + specs, NULL, NULL); + } + +#if USE_MAC_TSM + if (err == noErr) + { + static const EventTypeSpec spec[] = + {{kEventClassTextInput, kEventTextInputUpdateActiveInputArea}, + {kEventClassTextInput, kEventTextInputUnicodeForKeyEvent}, + {kEventClassTextInput, kEventTextInputOffsetToPos}}; + + err = InstallApplicationEventHandler (NewEventHandlerUPP + (mac_handle_text_input_event), + GetEventTypeCount (spec), + spec, NULL, NULL); + } +#endif + + if (err == noErr) + err = install_menu_target_item_handler (); + +#ifdef MAC_OSX + if (err == noErr) + err = install_service_handler (); +#endif + + return err; +} +#endif static pascal void mac_handle_dm_notification (event) @@ -10407,20 +10840,48 @@ mac_handle_dm_notification (event) mac_screen_config_changed = 1; } +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 +static void +mac_handle_cg_display_reconfig (display, flags, user_info) + CGDirectDisplayID display; + CGDisplayChangeSummaryFlags flags; + void *user_info; +{ + mac_screen_config_changed = 1; +} +#endif + static OSErr init_dm_notification_handler () { - OSErr err; - static DMNotificationUPP handle_dm_notificationUPP = NULL; - ProcessSerialNumber psn; + OSErr err = noErr; - if (handle_dm_notificationUPP == NULL) - handle_dm_notificationUPP = - NewDMNotificationUPP (mac_handle_dm_notification); +#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 +#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 + if (CGDisplayRegisterReconfigurationCallback != NULL) +#endif + { + CGDisplayRegisterReconfigurationCallback (mac_handle_cg_display_reconfig, + NULL); + } +#if MAC_OS_X_VERSION_MIN_REQUIRED == 1020 + else /* CGDisplayRegisterReconfigurationCallback == NULL */ +#endif +#endif /* MAC_OS_X_VERSION_MAX_ALLOWED >= 1030 */ +#if MAC_OS_X_VERSION_MAX_ALLOWED < 1030 || MAC_OS_X_VERSION_MIN_REQUIRED == 1020 + { + static DMNotificationUPP handle_dm_notificationUPP = NULL; + ProcessSerialNumber psn; - err = GetCurrentProcess (&psn); - if (err == noErr) - err = DMRegisterNotifyProc (handle_dm_notificationUPP, &psn); + if (handle_dm_notificationUPP == NULL) + handle_dm_notificationUPP = + NewDMNotificationUPP (mac_handle_dm_notification); + + err = GetCurrentProcess (&psn); + if (err == noErr) + err = DMRegisterNotifyProc (handle_dm_notificationUPP, &psn); + } +#endif return err; } @@ -10636,44 +11097,6 @@ mac_post_mouse_moved_event () return err; } - -static void -mac_set_unicode_keystroke_event (code, buf) - UniChar code; - struct input_event *buf; -{ - int charset_id, c1, c2; - - if (code < 0x80) - { - buf->kind = ASCII_KEYSTROKE_EVENT; - buf->code = code; - } - else if (code < 0x100) - { - if (code < 0xA0) - charset_id = CHARSET_8_BIT_CONTROL; - else - charset_id = charset_latin_iso8859_1; - buf->kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT; - buf->code = MAKE_CHAR (charset_id, code, 0); - } - else - { - if (code < 0x2500) - charset_id = charset_mule_unicode_0100_24ff, - code -= 0x100; - else if (code < 0x33FF) - charset_id = charset_mule_unicode_2500_33ff, - code -= 0x2500; - else if (code >= 0xE000) - charset_id = charset_mule_unicode_e000_ffff, - code -= 0xE000; - c1 = (code / 96) + 32, c2 = (code % 96) + 32; - buf->kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT; - buf->code = MAKE_CHAR (charset_id, c1, c2); - } -} #endif /* Emacs calls this whenever it wants to read an input event from the @@ -10729,28 +11152,13 @@ XTread_socket (sd, expected, hold_quit) #if TARGET_API_MAC_CARBON timestamp = GetEventTime (eventRef) / kEventDurationMillisecond; -#else - timestamp = er.when * (1000 / 60); /* ticks to milliseconds */ -#endif -#if TARGET_API_MAC_CARBON - /* Handle new events */ if (!mac_convert_event_ref (eventRef, &er)) - { - /* There used to be a handler for the kEventMouseWheelMoved - event here. But as of Mac OS X 10.4, this kind of event - is not directly posted to the main event queue by - two-finger scrolling on the trackpad. Instead, some - private event is posted and it is converted to a wheel - event by the default handler for the application target. - The converted one can be received by a Carbon event - handler installed on a window target. */ - read_socket_inev = &inev; - SendEventToEventTarget (eventRef, toolbox_dispatcher); - read_socket_inev = NULL; - } - else -#endif /* TARGET_API_MAC_CARBON */ + goto OTHER; +#else /* !TARGET_API_MAC_CARBON */ + timestamp = er.when * (1000 / 60); /* ticks to milliseconds */ +#endif /* !TARGET_API_MAC_CARBON */ + switch (er.what) { case mouseDown: @@ -10761,10 +11169,14 @@ XTread_socket (sd, expected, hold_quit) int tool_bar_p = 0; #if TARGET_API_MAC_CARBON + OSStatus err; + /* This is needed to send mouse events like aqua window buttons to the correct handler. */ - if (SendEventToEventTarget (eventRef, toolbox_dispatcher) - != eventNotHandledErr) + read_socket_inev = &inev; + err = SendEventToEventTarget (eventRef, toolbox_dispatcher); + read_socket_inev = NULL; + if (err != eventNotHandledErr) break; #endif last_mouse_glyph_frame = 0; @@ -10813,16 +11225,19 @@ XTread_socket (sd, expected, hold_quit) { ControlPartCode control_part_code; ControlRef ch; - Point mouse_loc = er.where; + Point mouse_loc; #ifdef MAC_OSX ControlKind control_kind; #endif f = mac_window_to_frame (window_ptr); /* convert to local coordinates of new window */ - SetPortWindowPort (window_ptr); - - GlobalToLocal (&mouse_loc); + mouse_loc.h = (er.where.h + - (f->left_pos + + FRAME_OUTER_TO_INNER_DIFF_X (f))); + mouse_loc.v = (er.where.v + - (f->top_pos + + FRAME_OUTER_TO_INNER_DIFF_Y (f))); #if TARGET_API_MAC_CARBON ch = FindControlUnderMouse (mouse_loc, window_ptr, &control_part_code); @@ -11008,33 +11423,15 @@ XTread_socket (sd, expected, hold_quit) } break; +#if !TARGET_API_MAC_CARBON case updateEvt: -#if TARGET_API_MAC_CARBON - if (SendEventToEventTarget (eventRef, toolbox_dispatcher) - != eventNotHandledErr) - break; -#else do_window_update ((WindowRef) er.message); -#endif break; +#endif case osEvt: -#if TARGET_API_MAC_CARBON - if (SendEventToEventTarget (eventRef, toolbox_dispatcher) - != eventNotHandledErr) - break; -#endif switch ((er.message >> 24) & 0x000000FF) { - case suspendResumeMessage: -#if USE_MAC_TSM - if (er.message & resumeFlag) - mac_tsm_resume (); - else - mac_tsm_suspend (); -#endif - break; - case mouseMovedMessage: #if !TARGET_API_MAC_CARBON SetRectRgn (mouse_region, er.where.h, er.where.v, @@ -11058,12 +11455,14 @@ XTread_socket (sd, expected, hold_quit) if (f) { WindowRef wp = FRAME_MAC_WINDOW (f); - Point mouse_pos = er.where; - - SetPortWindowPort (wp); - - GlobalToLocal (&mouse_pos); + Point mouse_pos; + mouse_pos.h = (er.where.h + - (f->left_pos + + FRAME_OUTER_TO_INNER_DIFF_X (f))); + mouse_pos.v = (er.where.v + - (f->top_pos + + FRAME_OUTER_TO_INNER_DIFF_Y (f))); if (dpyinfo->grabbed && tracked_scroll_bar) #ifdef USE_TOOLKIT_SCROLL_BARS x_scroll_bar_handle_drag (wp, tracked_scroll_bar, @@ -11111,6 +11510,9 @@ XTread_socket (sd, expected, hold_quit) if (!NILP (help_echo_string) || !NILP (previous_help_echo_string)) do_help = 1; break; + + default: + goto OTHER; } break; @@ -11118,11 +11520,6 @@ XTread_socket (sd, expected, hold_quit) { WindowRef window_ptr = (WindowRef) er.message; -#if TARGET_API_MAC_CARBON - if (SendEventToEventTarget (eventRef, toolbox_dispatcher) - != eventNotHandledErr) - break; -#endif if (window_ptr == tip_window) { HideWindow (tip_window); @@ -11130,21 +11527,26 @@ XTread_socket (sd, expected, hold_quit) } if (!is_emacs_window (window_ptr)) - break; + goto OTHER; + + f = mac_window_to_frame (window_ptr); if ((er.modifiers & activeFlag) != 0) { /* A window has been activated */ - Point mouse_loc = er.where; + Point mouse_loc; x_detect_focus_change (dpyinfo, &er, &inev); - SetPortWindowPort (window_ptr); - GlobalToLocal (&mouse_loc); + mouse_loc.h = (er.where.h + - (f->left_pos + + FRAME_OUTER_TO_INNER_DIFF_X (f))); + mouse_loc.v = (er.where.v + - (f->top_pos + + FRAME_OUTER_TO_INNER_DIFF_Y (f))); /* Window-activated event counts as mouse movement, so update things that depend on mouse position. */ - note_mouse_movement (mac_window_to_frame (window_ptr), - &mouse_loc); + note_mouse_movement (f, &mouse_loc); } else { @@ -11169,7 +11571,6 @@ XTread_socket (sd, expected, hold_quit) x_detect_focus_change (dpyinfo, &er, &inev); - f = mac_window_to_frame (window_ptr); if (f == dpyinfo->mouse_face_mouse_frame) { /* If we move outside the frame, then we're @@ -11192,218 +11593,26 @@ XTread_socket (sd, expected, hold_quit) case keyDown: case keyUp: case autoKey: - { - int keycode = (er.message & keyCodeMask) >> 8; - static SInt16 last_key_script = -1; - SInt16 current_key_script; - UInt32 modifiers = er.modifiers, mapped_modifiers; + ObscureCursor (); -#ifdef MAC_OSX - GetEventParameter (eventRef, kEventParamKeyModifiers, - typeUInt32, NULL, - sizeof (UInt32), NULL, &modifiers); -#endif - mapped_modifiers = mac_mapped_modifiers (modifiers); - -#if defined (MAC_OSX) || USE_MAC_TSM - /* When using Carbon Events, we need to pass raw keyboard - events to the TSM ourselves. If TSM handles it, it - will pass back noErr, otherwise it will pass back - "eventNotHandledErr" and we can process it - normally. */ - if (!(mapped_modifiers - & ~(mac_pass_command_to_system ? cmdKey : 0) - & ~(mac_pass_control_to_system ? controlKey : 0))) - { - OSStatus err; - - read_socket_inev = &inev; - err = SendEventToEventTarget (eventRef, toolbox_dispatcher); - read_socket_inev = NULL; - if (err != eventNotHandledErr) - break; - } -#endif - if (er.what == keyUp) - break; - - ObscureCursor (); - - f = mac_focus_frame (dpyinfo); - - if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight) - && !EQ (f->tool_bar_window, dpyinfo->mouse_face_window)) - { - clear_mouse_face (dpyinfo); - dpyinfo->mouse_face_hidden = 1; - } - - current_key_script = GetScriptManagerVariable (smKeyScript); - if (last_key_script != current_key_script) - { - struct input_event event; - - EVENT_INIT (event); - event.kind = LANGUAGE_CHANGE_EVENT; - event.arg = Qnil; - event.code = current_key_script; - event.timestamp = timestamp; - kbd_buffer_store_event (&event); - count++; - last_key_script = current_key_script; - } - -#if USE_MAC_TSM - if (inev.kind != NO_EVENT) - break; -#endif - -#ifdef MAC_OSX - if (mapped_modifiers & kEventKeyModifierFnMask - && keycode <= 0x7f - && fn_keycode_to_keycode_table[keycode]) - keycode = fn_keycode_to_keycode_table[keycode]; -#endif - if (keycode <= 0x7f && keycode_to_xkeysym_table [keycode]) - { - inev.kind = NON_ASCII_KEYSTROKE_EVENT; - inev.code = 0xff00 | keycode_to_xkeysym_table [keycode]; -#ifdef MAC_OSX - if (modifiers & kEventKeyModifierFnMask - && keycode <= 0x7f - && fn_keycode_to_keycode_table[keycode] == keycode) - modifiers &= ~kEventKeyModifierFnMask; -#endif - } - else if (mapped_modifiers) - { - /* translate the keycode back to determine the - original key */ -#ifdef MAC_OSX - UCKeyboardLayout *uchr_ptr = NULL; -#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 - OSStatus err; - KeyboardLayoutRef layout; - - err = KLGetCurrentKeyboardLayout (&layout); - if (err == noErr) - KLGetKeyboardLayoutProperty (layout, kKLuchrData, - (const void **) &uchr_ptr); -#else - static SInt16 last_key_layout_id = 0; - static Handle uchr_handle = (Handle)-1; - SInt16 current_key_layout_id = - GetScriptVariable (current_key_script, smScriptKeys); - - if (uchr_handle == (Handle)-1 - || last_key_layout_id != current_key_layout_id) - { - uchr_handle = GetResource ('uchr', current_key_layout_id); - last_key_layout_id = current_key_layout_id; - } - if (uchr_handle) - uchr_ptr = (UCKeyboardLayout *)*uchr_handle; -#endif - - if (uchr_ptr) - { - OSStatus status; - UInt16 key_action = er.what - keyDown; - UInt32 modifier_key_state = - (modifiers & ~mapped_modifiers) >> 8; - UInt32 keyboard_type = LMGetKbdType (); - SInt32 dead_key_state = 0; - UniChar code; - UniCharCount actual_length; - - status = UCKeyTranslate (uchr_ptr, - keycode, key_action, - modifier_key_state, - keyboard_type, - kUCKeyTranslateNoDeadKeysMask, - &dead_key_state, - 1, &actual_length, &code); - if (status == noErr && actual_length == 1) - mac_set_unicode_keystroke_event (code, &inev); - } -#endif /* MAC_OSX */ - - if (inev.kind == NO_EVENT) - { - /* This code comes from Keyboard Resource, - Appendix C of IM - Text. This is necessary - since shift is ignored in KCHR table - translation when option or command is pressed. - It also does not translate correctly - control-shift chars like C-% so mask off shift - here also. */ - /* Mask off modifier keys that are mapped to some - Emacs modifiers. */ - int new_modifiers = er.modifiers & ~mapped_modifiers; - /* set high byte of keycode to modifier high byte*/ - int new_keycode = keycode | new_modifiers; - Ptr kchr_ptr = (Ptr) GetScriptManagerVariable (smKCHRCache); - unsigned long some_state = 0; - UInt32 new_char_code; - - new_char_code = KeyTranslate (kchr_ptr, new_keycode, - &some_state); - if (new_char_code == 0) - /* Seems like a dead key. Append up-stroke. */ - new_char_code = KeyTranslate (kchr_ptr, - new_keycode | 0x80, - &some_state); - if (new_char_code) - { - inev.kind = ASCII_KEYSTROKE_EVENT; - inev.code = new_char_code & 0xff; - } - } - } - - if (inev.kind == NO_EVENT) - { - inev.kind = ASCII_KEYSTROKE_EVENT; - inev.code = er.message & charCodeMask; - } - - inev.modifiers = mac_to_emacs_modifiers (modifiers); - inev.modifiers |= (extra_keyboard_modifiers - & (meta_modifier | alt_modifier - | hyper_modifier | super_modifier)); - XSETFRAME (inev.frame_or_window, f); + f = mac_focus_frame (dpyinfo); + XSETFRAME (inev.frame_or_window, f); + /* If mouse-highlight is an integer, input clears out mouse + highlighting. */ + if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight) + && !EQ (f->tool_bar_window, dpyinfo->mouse_face_window)) + { + clear_mouse_face (dpyinfo); + dpyinfo->mouse_face_hidden = 1; + } #if TARGET_API_MAC_CARBON - if (inev.kind == ASCII_KEYSTROKE_EVENT - && inev.code >= 0x80 && inev.modifiers) - { - OSStatus err; - TextEncoding encoding = kTextEncodingMacRoman; - TextToUnicodeInfo ttu_info; - - UpgradeScriptInfoToTextEncoding (current_key_script, - kTextLanguageDontCare, - kTextRegionDontCare, - NULL, &encoding); - err = CreateTextToUnicodeInfoByEncoding (encoding, &ttu_info); - if (err == noErr) - { - UniChar code; - Str255 pstr; - ByteCount unicode_len; - - pstr[0] = 1; - pstr[1] = inev.code; - err = ConvertFromPStringToUnicode (ttu_info, pstr, - sizeof (UniChar), - &unicode_len, &code); - if (err == noErr && unicode_len == sizeof (UniChar)) - mac_set_unicode_keystroke_event (code, &inev); - DisposeTextToUnicodeInfo (&ttu_info); - } - } + goto OTHER; +#else + do_keystroke (er.what, er.message & charCodeMask, + (er.message & keyCodeMask) >> 8, + er.modifiers, timestamp, &inev); #endif - } break; case kHighLevelEvent: @@ -11411,6 +11620,16 @@ XTread_socket (sd, expected, hold_quit) break; default: + OTHER: +#if TARGET_API_MAC_CARBON + { + OSStatus err; + + read_socket_inev = &inev; + err = SendEventToEventTarget (eventRef, toolbox_dispatcher); + read_socket_inev = NULL; + } +#endif break; } #if TARGET_API_MAC_CARBON @@ -11880,11 +12099,7 @@ mac_initialize () #if TARGET_API_MAC_CARBON -#ifdef MAC_OSX - init_service_handler (); -#endif /* MAC_OSX */ - - init_command_handler (); + install_application_handler (); init_menu_bar (); From aa8280d3f3b60b05a6637b59e33c62c32a6a78c3 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Thu, 7 Jun 2007 08:45:26 +0000 Subject: [PATCH 217/276] (mac_get_window_bounds): Move extern from macfns.c. (FRAME_OUTER_TO_INNER_DIFF_X, FRAME_OUTER_TO_INNER_DIFF_Y): New macros. --- src/ChangeLog | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++ src/macterm.h | 7 +++++ 2 files changed, 82 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index eb0040b371a..ae796a64db7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,78 @@ +2007-06-07 YAMAMOTO Mitsuharu + + * mac.c (xrm_get_preference_database): Remove BLOCK_INPUT. + + * macfns.c (mac_get_window_bounds): Move extern to macterm.h. + (compute_tip_xy) [TARGET_API_MAC_CARBON]: Use GetGlobalMouse. + + * macmenu.c [TARGET_API_MAC_CARBON] (menu_target_item_handler): + Don't call next handler. + [TARGET_API_MAC_CARBON] (install_menu_target_item_handler): + Remove argument. Install handler to application. + (set_frame_menubar): Don't change deep_p. + (mac_menu_show): Use FRAME_OUTER_TO_INNER_DIFF_X and + FRAME_OUTER_TO_INNER_DIFF_Y. + (DIALOG_BUTTON_COMMAND_ID_OFFSET, DIALOG_BUTTON_COMMAND_ID_P) + (DIALOG_BUTTON_COMMAND_ID_VALUE, DIALOG_BUTTON_MAKE_COMMAND_ID) + [HAVE_DIALOGS]: New macros. + [HAVE_DIALOGS] (mac_handle_dialog_event, create_and_show_dialog): + Use them. + (fill_menubar) [TARGET_API_MAC_CARBON]: Use CFString. + + * macselect.c [MAC_OSX] (install_service_handler): Rename from + init_service_handler. All callers changed. Return OSStatus value. + + * macterm.c (mac_begin_cg_clip): New arg F. Call SetPortWindowPort. + All callers changed so as not to call SetPortWindowPort. + (mac_begin_cg_clip) [USE_CG_DRAWING]: Call mac_prepare_for_quickdraw. + (mac_draw_image_string_atsui) [USE_ATSUI]: New function created from + mac_draw_string_common. + (mac_draw_image_string_qd): Likewise. + (mac_draw_string_common): Use them. Add INLINE. + (XTmouse_position, x_scroll_bar_report_motion) [TARGET_API_MAC_CARBON]: + Use FRAME_OUTER_TO_INNER_DIFF_X, FRAME_OUTER_TO_INNER_DIFF_Y, and + GetGlobalMouse. + (x_set_mouse_pixel_position) [MAC_OSX]: Use FRAME_OUTER_TO_INNER_DIFF_X + and FRAME_OUTER_TO_INNER_DIFF_Y. + [TARGET_API_MAC_CARBON] (mac_handle_mouse_event): Likewise. + [USE_MAC_TSM] (mac_handle_text_input_event): Likewise. + (x_make_frame_visible) [TARGET_API_MAC_CARBON]: Move code for + repositioning window to mac_handle_window_event. + (x_make_frame_invisible) [TARGET_API_MAC_CARBON]: Move code for + saving window location to mac_handle_window_event + [USE_MAC_FONT_PANEL] (mac_show_hide_font_panel): Install handler here. + (install_menu_target_item_handler): Remove argument in extern. + [TARGET_API_MAC_CARBON] (mac_event_to_emacs_modifiers): + Also accept command events. + (do_keystroke): New function created from XTread_socket. + (init_command_handler): Remove functions. + [TARGET_API_MAC_CARBON] (mac_handle_window_event): Reposition window + and save window location by kEventWindowShowing and kEventWindowHiding + handlers here. Don't call next handler for window state change and + focus events. + (mac_handle_application_event, mac_handle_keyboard_event) + [TARGET_API_MAC_CARBON]: New functions. + (install_window_handler) [TARGET_API_MAC_CARBON]: Register handlers for + kEventWindowShowing and kEventWindowHiding events. Move installation + of mouse, font, text input and menu target item handlers to + install_application_handler. + (install_application_handler) [TARGET_API_MAC_CARBON]: New function. + (mac_handle_cg_display_reconfig) [MAC_OS_X_VERSION_MAX_ALLOWED >= 1030]: + New function. + (init_dm_notification_handler) [MAC_OS_X_VERSION_MAX_ALLOWED >= 1030]: + Register it. + (XTread_socket) [TARGET_API_MAC_CARBON]: Consolidate + SendEventToEventTarget calls. Use FRAME_OUTER_TO_INNER_DIFF_X and + FRAME_OUTER_TO_INNER_DIFF_Y. Move application activation handler + to mac_handle_application_event. Move keyboard handler to + mac_handle_keyboard_event. + (XTread_socket) [!TARGET_API_MAC_CARBON]: Use do_keystroke. + (mac_initialize) [TARGET_API_MAC_CARBON]: Don't call + init_command_handler. Call install_application_handler. + + * macterm.h (mac_get_window_bounds): Move extern from macfns.c. + (FRAME_OUTER_TO_INNER_DIFF_X, FRAME_OUTER_TO_INNER_DIFF_Y): New macros. + 2007-06-07 Glenn Morris * emacs.c (main): Use `emacs-copyright' in --version output. diff --git a/src/macterm.h b/src/macterm.h index 789089b0bc9..7984ff2b970 100644 --- a/src/macterm.h +++ b/src/macterm.h @@ -369,6 +369,12 @@ typedef struct mac_output mac_output; /* This is the 'font_info *' which frame F has. */ #define FRAME_MAC_FONT_TABLE(f) (FRAME_MAC_DISPLAY_INFO (f)->font_table) +/* The difference in pixels between the top left corner of the + Emacs window (including possible window manager decorations) + and FRAME_MAC_WINDOW (f). */ +#define FRAME_OUTER_TO_INNER_DIFF_X(f) ((f)->x_pixels_diff) +#define FRAME_OUTER_TO_INNER_DIFF_Y(f) ((f)->y_pixels_diff) + /* Value is the smallest width of any character in any font on frame F. */ #define FRAME_SMALLEST_CHAR_WIDTH(F) \ @@ -643,6 +649,7 @@ extern void do_apple_menu P_ ((SInt16)); #if USE_CG_DRAWING extern void mac_prepare_for_quickdraw P_ ((struct frame *)); #endif +extern void mac_get_window_bounds P_ ((struct frame *, Rect *, Rect *)); extern int mac_quit_char_key_p P_ ((UInt32, UInt32)); #define FONT_TYPE_FOR_UNIBYTE(font, ch) 0 From f5440e98eecc67a64ea84f5463d0aad4c43b9ec9 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 7 Jun 2007 09:00:45 +0000 Subject: [PATCH 218/276] *** empty log message *** --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1e5fa694a1a..b9e5ce2a692 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Carsten Dominik + + * textmodes/org.el: Version number fixed. + 2007-06-07 Glenn Morris * version.el (emacs-copyright): New constant. From 1f05c374e59ff3c3f5f4bb4f3c3324b8e860b19d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 7 Jun 2007 09:01:10 +0000 Subject: [PATCH 219/276] Version number fixed. --- lisp/textmodes/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 03b42addcdc..d669ebe586c 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -83,7 +83,7 @@ ;;; Version -(defconst org-version "4.76" +(defconst org-version "4.77" "The version number of the file org.el.") (defun org-version () (interactive) From 90d0c25fd8f05039a525ba076c891c8dbda290d7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 12:12:03 +0000 Subject: [PATCH 220/276] (idlwave-one-key-select): Fix typo in docstring. --- lisp/progmodes/idlwave.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index cf518b17d94..4c58919ec1f 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -7095,7 +7095,7 @@ sort the list before displaying" "Make the user select an element from the alist in the variable SYM. The keys of the alist are expected to be strings. The function returns the car of the selected association. -To do this, PROMPT is displayed and and the user must hit a letter key to +To do this, PROMPT is displayed and the user must hit a letter key to select an entry. If the user does not reply within DELAY seconds, a help window with the options is displayed automatically. The key which is associated with each option is generated automatically. From d9271f41695f4cab816a4f5d131e42f4e9cfe1ef Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 12:41:27 +0000 Subject: [PATCH 221/276] (idlwave-one-key-select): Fix typo in docstring. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/idlwave.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 26974c65c38..761efde75d4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Juanma Barranquero + + * progmodes/idlwave.el (idlwave-one-key-select): Fix typo in docstring. + 2007-06-07 Alfred M. Szmidt (tiny change) * mail/rmailsum.el (rmail-summary-save-buffer): New command. diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index cf518b17d94..4c58919ec1f 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -7095,7 +7095,7 @@ sort the list before displaying" "Make the user select an element from the alist in the variable SYM. The keys of the alist are expected to be strings. The function returns the car of the selected association. -To do this, PROMPT is displayed and and the user must hit a letter key to +To do this, PROMPT is displayed and the user must hit a letter key to select an entry. If the user does not reply within DELAY seconds, a help window with the options is displayed automatically. The key which is associated with each option is generated automatically. From d505c59809c8695522987e6e1014ff308785a399 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 12:42:48 +0000 Subject: [PATCH 222/276] *** empty log message *** --- lisp/ChangeLog | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b9e5ce2a692..a9ae00b0f54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Juanma Barranquero + + * progmodes/idlwave.el (idlwave-one-key-select): Fix typo in docstring. + 2007-06-07 Carsten Dominik * textmodes/org.el: Version number fixed. @@ -29,8 +33,7 @@ 2007-06-07 Eric M. Ludlam - * emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Remove - "iff". + * emacs-lisp/checkdoc.el (checkdoc-ispell-lisp-words): Remove "iff". 2007-06-07 Juanma Barranquero From 00a2367d34735164ce0d6546bc9d88f43615b172 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 13:16:41 +0000 Subject: [PATCH 223/276] (ebrowse-draw-file-member-info): Doc fix. --- lisp/ChangeLog | 2 ++ lisp/progmodes/ebrowse.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a9ae00b0f54..7e49749136f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-06-07 Juanma Barranquero + * progmodes/ebrowse.el (ebrowse-draw-file-member-info): Doc fix. + * progmodes/idlwave.el (idlwave-one-key-select): Fix typo in docstring. 2007-06-07 Carsten Dominik diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index ba73cbc2461..5ccd6238208 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -3598,7 +3598,7 @@ The file name is read from the minibuffer." (defun* ebrowse-draw-file-member-info (info &optional (kind "")) - "Display a line in an the members per file info buffer. + "Display a line in the members info buffer. INFO describes the member. It has the form (TREE ACCESSOR MEMBER). TREE is the class of the member to display. ACCESSOR is the accessor symbol of its member list. From e7c275e7779da74103854bc31b437a18e9f1b708 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 13:20:47 +0000 Subject: [PATCH 224/276] (ebrowse-draw-file-member-info): Doc fix. --- lisp/ChangeLog | 2 ++ lisp/progmodes/ebrowse.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 761efde75d4..857bd6a451b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-06-07 Juanma Barranquero + * progmodes/ebrowse.el (ebrowse-draw-file-member-info): Doc fix. + * progmodes/idlwave.el (idlwave-one-key-select): Fix typo in docstring. 2007-06-07 Alfred M. Szmidt (tiny change) diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index ba73cbc2461..5ccd6238208 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -3598,7 +3598,7 @@ The file name is read from the minibuffer." (defun* ebrowse-draw-file-member-info (info &optional (kind "")) - "Display a line in an the members per file info buffer. + "Display a line in the members info buffer. INFO describes the member. It has the form (TREE ACCESSOR MEMBER). TREE is the class of the member to display. ACCESSOR is the accessor symbol of its member list. From 73ef7b7d64eee1a4376a2fc8898daee967109124 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Thu, 7 Jun 2007 13:26:20 +0000 Subject: [PATCH 225/276] *** empty log message *** --- man/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/man/ChangeLog b/man/ChangeLog index cf1d324f7be..f9459bfcc2d 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 Alan Mackenzie + + * display.texi (Optional Mode Line): Document the new form of + line+column numbers, "(561,2)". + 2007-06-06 Juanma Barranquero * cc-mode.texi (Comment Commands, Getting Started, Style Variables): From 79199dd257b0786703b797ba72f61305e240f631 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Thu, 7 Jun 2007 13:27:30 +0000 Subject: [PATCH 226/276] (Optional Mode Line): Document the new form of line+column numbers, "(561,2)". --- man/display.texi | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/man/display.texi b/man/display.texi index 6cb2d857165..21a65999ec3 100644 --- a/man/display.texi +++ b/man/display.texi @@ -922,8 +922,18 @@ accessible part of the buffer is shown. Number mode is enabled. Use the command @kbd{M-x line-number-mode} to turn this mode on and off; normally it is on. The line number appears after the buffer percentage @var{pos}, with the letter @samp{L} to -indicate what it is. @xref{Minor Modes}, for more information about -minor modes and about how to use this command. +indicate what it is. + +@cindex Column Number mode +@cindex mode, Column Number +@findex column-number-mode + Similarly, you can display the current column number by turning on +Column number mode with @kbd{M-x column-number-mode}. The column +number is indicated by the letter @samp{C}. However, when both of +these modes are enabled, the line and column numbers are displayed in +parentheses, the line number first, rather than with @samp{L} and +@samp{C}. For example: @samp{(561,2)}. @xref{Minor Modes}, for more +information about minor modes and about how to use these commands. @cindex narrowing, and line number display If you have narrowed the buffer (@pxref{Narrowing}), the displayed @@ -946,13 +956,6 @@ larger than the value of the variable @code{line-number-display-limit-width}. The default value is 200 characters. -@cindex Column Number mode -@cindex mode, Column Number -@findex column-number-mode - You can also display the current column number by turning on Column -Number mode. It displays the current column number preceded by the -letter @samp{C}. Type @kbd{M-x column-number-mode} to toggle this mode. - @findex display-time @cindex time (on mode line) Emacs can optionally display the time and system load in all mode From f8ceafa5e1a9866d1bec9f9a833519574646cf18 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 14:24:34 +0000 Subject: [PATCH 227/276] (mixal-operation-codes-alist): Fix typo in docstring. --- lisp/progmodes/mixal-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el index d2b78b1d143..146b228453e 100644 --- a/lisp/progmodes/mixal-mode.el +++ b/lisp/progmodes/mixal-mode.el @@ -1017,7 +1017,7 @@ The converted character representation is stored in rAX." "Alist that contains all the possible operation codes for mix. Each elt has the form (OP-CODE GROUP FULL-NAME C-BYTE F-BYTE DESCRIPTION EXECUTION-TIME) -Where OP-CODE is the text of the opcode as an symbol, +Where OP-CODE is the text of the opcode as a symbol, FULL-NAME is the human readable name as a string, C-BYTE is the operation code telling what operation is to be performed, F-BYTE holds a modification of the operation code which can be a symbol From 6a3ccec7d1db770988955d7bf62c338f0ac6a5a7 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 14:27:21 +0000 Subject: [PATCH 228/276] (mixal-operation-codes-alist): Fix typo in docstring. --- lisp/ChangeLog | 1 + lisp/progmodes/mixal-mode.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 857bd6a451b..56adc5fec3a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,7 @@ * progmodes/ebrowse.el (ebrowse-draw-file-member-info): Doc fix. + * progmodes/mixal-mode.el (mixal-operation-codes-alist): * progmodes/idlwave.el (idlwave-one-key-select): Fix typo in docstring. 2007-06-07 Alfred M. Szmidt (tiny change) diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el index d2b78b1d143..146b228453e 100644 --- a/lisp/progmodes/mixal-mode.el +++ b/lisp/progmodes/mixal-mode.el @@ -1017,7 +1017,7 @@ The converted character representation is stored in rAX." "Alist that contains all the possible operation codes for mix. Each elt has the form (OP-CODE GROUP FULL-NAME C-BYTE F-BYTE DESCRIPTION EXECUTION-TIME) -Where OP-CODE is the text of the opcode as an symbol, +Where OP-CODE is the text of the opcode as a symbol, FULL-NAME is the human readable name as a string, C-BYTE is the operation code telling what operation is to be performed, F-BYTE holds a modification of the operation code which can be a symbol From 7860a8c7b77988fbb5f880c098c65e28fececd31 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 14:32:38 +0000 Subject: [PATCH 229/276] (gnus-split-methods): Fix typo in docstring. --- lisp/gnus/ChangeLog | 1 + lisp/gnus/gnus-art.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index bfbe4ad29fa..e5b314bf20a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,6 @@ 2007-06-07 Juanma Barranquero + * gnus-art.el (gnus-split-methods): * mail-source.el (mail-source-delete-old-incoming-confirm): Fix typo in docstring. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 6ae52b5eedd..83e4ec71b79 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -651,7 +651,7 @@ value is a list of possible files to save in if the match is non-nil. If the match is a string, it is used as a regexp match on the article. If the match is a symbol, that symbol will be funcalled from the buffer of the article to be saved with the newsgroup as the -parameter. If it is a list, it will be evaled in the same buffer. +parameter. If it is a list, it will be evalled in the same buffer. If this form or function returns a string, this string will be used as a possible file name; and if it returns a non-nil list, that list will From f02ac02f9972de45395792946bdcd086e4c7340a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 7 Jun 2007 14:33:46 +0000 Subject: [PATCH 230/276] (gnus-split-methods): Fix typo in docstring. --- lisp/ChangeLog | 1 + lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-art.el | 2 +- 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7e49749136f..c5d775d4dda 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,7 @@ * progmodes/ebrowse.el (ebrowse-draw-file-member-info): Doc fix. + * progmodes/mixal-mode.el (mixal-operation-codes-alist): * progmodes/idlwave.el (idlwave-one-key-select): Fix typo in docstring. 2007-06-07 Carsten Dominik diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f11200cc5b2..4958577588e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Juanma Barranquero + + * gnus-art.el (gnus-split-methods): Fix typo in docstring. + 2007-06-06 Juanma Barranquero * gnus-diary.el (gnus-diary-time-format, gnus-summary-sort-by-schedule): diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 24273abb376..eb31ae415cc 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -651,7 +651,7 @@ value is a list of possible files to save in if the match is non-nil. If the match is a string, it is used as a regexp match on the article. If the match is a symbol, that symbol will be funcalled from the buffer of the article to be saved with the newsgroup as the -parameter. If it is a list, it will be evaled in the same buffer. +parameter. If it is a list, it will be evalled in the same buffer. If this form or function returns a string, this string will be used as a possible file name; and if it returns a non-nil list, that list will From 1def2189de13f91a9dcf13b9507178b195ad99f0 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:40:05 +0000 Subject: [PATCH 231/276] * dired.el (dired-mode-map): Remove spurious separator. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56adc5fec3a..82f3b89967d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Chong Yidong + + * dired.el (dired-mode-map): Remove spurious separator. + 2007-06-07 Juanma Barranquero * progmodes/ebrowse.el (ebrowse-draw-file-member-info): Doc fix. From a7b5a8c97c4d1f72313ee8910b3993b2ea67a1f1 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:40:15 +0000 Subject: [PATCH 232/276] (dired-mode-map): Remove spurious separator. --- lisp/dired.el | 4 ---- 1 file changed, 4 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 7f6e919a109..5b99e47c7d0 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1451,10 +1451,6 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map [menu-bar operate] (cons "Operate" (make-sparse-keymap "Operate"))) - - (define-key map [menu-bar operate dashes-2] - '("--")) - (define-key map [menu-bar operate image-dired-delete-tag] '(menu-item "Delete Image Tag..." image-dired-delete-tag From 3266db2a96cca962de473c995749d6fe49148540 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:41:17 +0000 Subject: [PATCH 233/276] * dired.el (dired-mode-map): Remove spurious separator. --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5d775d4dda..d25c9dbacd6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-07 Chong Yidong + + * dired.el (dired-mode-map): Remove spurious separator. + 2007-06-07 Juanma Barranquero * progmodes/ebrowse.el (ebrowse-draw-file-member-info): Doc fix. From 2442fc2ab20715b1af7e8017a0e262009ce9c606 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:41:25 +0000 Subject: [PATCH 234/276] (dired-mode-map): Remove spurious separator. --- lisp/dired.el | 3 --- 1 file changed, 3 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 7dafd47c6e0..4525cc2ea97 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1452,9 +1452,6 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map [menu-bar operate] (cons "Operate" (make-sparse-keymap "Operate"))) - (define-key map [menu-bar operate dashes-2] - '("--")) - (define-key map [menu-bar operate image-dired-delete-tag] '(menu-item "Delete Image Tag..." image-dired-delete-tag From a1d0a9ad55c1aca8e1f7ebef342e7e84bdf89d12 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:51:33 +0000 Subject: [PATCH 235/276] * dired.el (dired-recursive-deletes, dired-recursive-copies): Change default to `top'. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82f3b89967d..e298874025e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-07 David Kastrup + + * dired.el (dired-recursive-deletes, dired-recursive-copies): + Change default to `top'. + 2007-06-07 Chong Yidong * dired.el (dired-mode-map): Remove spurious separator. From 1ebebaeafadf21de562df27e9a5ef4ec95e14baf Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:51:54 +0000 Subject: [PATCH 236/276] (dired-recursive-deletes, dired-recursive-copies): Change default to `top'. --- lisp/dired.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 5b99e47c7d0..ba488fc9c6a 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2358,7 +2358,7 @@ Optional argument means return a file name relative to `default-directory'." ;; Deleting files -(defcustom dired-recursive-deletes nil ; Default only delete empty directories. +(defcustom dired-recursive-deletes 'top "*Decide whether recursive deletes are allowed. A value of nil means no recursive deletes. `always' means delete recursively without asking. This is DANGEROUS! @@ -3206,7 +3206,7 @@ To be called first in body of `dired-sort-other', etc." ;;;; Drag and drop support -(defcustom dired-recursive-copies nil +(defcustom dired-recursive-copies 'top "*Decide whether recursive copies are allowed. A value of nil means no recursive copies. `always' means copy recursively without asking. From cdd50783ca9d22d0d6428f91abc5e64170bd9369 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 7 Jun 2007 16:57:32 +0000 Subject: [PATCH 237/276] Identify Emacs 22.2 changes (so we don't lose them later). --- etc/NEWS | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index e0ff01f83d2..192025606f5 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -33,6 +33,20 @@ Some specific packages that are known to cause problems are: ** Semantic (used by CEDET, ECB, JDEE): upgrade to latest version. ** cua.el, cua-mode.el: remove old versions. + +* Installation Changes in Emacs 22.2 + +* Changes in Emacs 22.2 + +** The values of `dired-recursive-deletes' and `dired-recursive-copies' +have been changed to `top'. This means that the user is asked once, +before deleting/copying the indicated directory recursively. + +* New Modes and Packages in Emacs 22.2 + +** The new package css-mode.el provides a major mode for editing CSS files. + +** The new package socks.el implements the SOCKS v5 protocol. * Installation Changes in Emacs 22.1 From 9ee5e81e952dc9bb9111b348f30b939399bed5bd Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 7 Jun 2007 20:14:45 +0000 Subject: [PATCH 238/276] Sync with Tramp 2.0.56. --- lisp/ChangeLog | 31 ++++++ lisp/net/tramp-ftp.el | 10 +- lisp/net/tramp-smb.el | 7 +- lisp/net/tramp-util.el | 1 - lisp/net/tramp-uu.el | 3 +- lisp/net/tramp-vc.el | 2 - lisp/net/tramp.el | 207 +++++++++++++++++++++++------------------ lisp/net/trampver.el | 2 +- man/ChangeLog | 7 ++ man/tramp.texi | 6 +- man/trampver.texi | 2 +- 11 files changed, 168 insertions(+), 110 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e298874025e..79fb349d949 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,34 @@ +2007-06-07 Michael Albinus + + Sync with Tramp 2.0.56. + + * net/tramp.el: + * net/tramp-ftp.el: + * net/tramp-smb.el: + * net/tramp-util.el: + * net/tramp-vc.el: + Don't load cl.el, because that pollutes the namespace. Replace cl + macros by their implementations where necessary. Requested by + Richard Stallman . + + * net/tramp.el (top): Make `set-buffer-multibyte' an alias if it + doesn't exist. + (with-parsed-tramp-file-name): Protect debug spec during compilation. + (tramp-handle-insert-directory): Check (featurep 'ls-lisp). + (tramp-file-name-p, tramp-file-name-multi-method) + (tramp-file-name-method, tramp-file-name-user) + (tramp-file-name-host, tramp-file-name-localname): New defuns, + replacing defstruct `tramp-file-name'. + (tramp-handle-file-remote-p, tramp-completion-dissect-file-name1) + (tramp-dissect-file-name, tramp-dissect-multi-file-name): + Apply `vector' instead of `make-tramp-file-name'. + (tramp-handle-make-auto-save-file-name): + Apply `tramp-temporary-file-directory' for compatibility reasons. + (tramp-completion-mode): Use `natnump' instead of `wholenump' + because of XEmacs. + (tramp-completion-mode): `last-input-event' is nil when XEmacs is + started. + 2007-06-07 David Kastrup * dired.el (dired-recursive-deletes, dired-recursive-copies): diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el index 2749a6858c0..d33873d1689 100644 --- a/lisp/net/tramp-ftp.el +++ b/lisp/net/tramp-ftp.el @@ -1,6 +1,7 @@ ;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP -*- coding: iso-8859-1; -*- -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, +;; 2007 Free Software Foundation, Inc. ;; Author: Michael Albinus ;; Keywords: comm, processes @@ -31,12 +32,7 @@ (require 'tramp) -(eval-when-compile - (require 'cl) - (require 'custom) - ;; Emacs 19.34 compatibility hack -- is this needed? - (or (>= emacs-major-version 20) - (load "cl-seq"))) +(eval-when-compile (require 'custom)) ;; Disable Ange-FTP from file-name-handler-alist. ;; To handle EFS, the following functions need to be dealt with: diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 5d5d441193d..7382bdef63b 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -31,12 +31,7 @@ (require 'tramp) ;; Pacify byte-compiler -(eval-when-compile - (require 'cl) - (require 'custom) - ;; Emacs 19.34 compatibility hack -- is this needed? - (or (>= emacs-major-version 20) - (load "cl-seq"))) +(eval-when-compile (require 'custom)) ;; Avoid byte-compiler warnings if the byte-compiler supports this. ;; Currently, XEmacs supports this. diff --git a/lisp/net/tramp-util.el b/lisp/net/tramp-util.el index 81857ae4225..4895edf019b 100644 --- a/lisp/net/tramp-util.el +++ b/lisp/net/tramp-util.el @@ -29,7 +29,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'compile) (require 'tramp) (add-hook 'tramp-util-unload-hook diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el index ce047489260..32bb9857f7f 100644 --- a/lisp/net/tramp-uu.el +++ b/lisp/net/tramp-uu.el @@ -1,7 +1,8 @@ ;;; -*- coding: iso-2022-7bit; -*- ;;; tramp-uu.el --- uuencode in Lisp -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, +;; 2007 Free Software Foundation, Inc. ;; Author: Kai Gro,A_(Bjohann ;; Keywords: comm, terminals diff --git a/lisp/net/tramp-vc.el b/lisp/net/tramp-vc.el index eda98364a98..cc5566d6354 100644 --- a/lisp/net/tramp-vc.el +++ b/lisp/net/tramp-vc.el @@ -31,8 +31,6 @@ ;;; Code: -(eval-when-compile - (require 'cl)) (require 'vc) ;; Old VC defines vc-rcs-release in vc.el, new VC requires extra module. (unless (boundp 'vc-rcs-release) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 20ac73d0f75..f85620ee323 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -151,11 +151,7 @@ Otherwise, use a separate filename syntax for Tramp.") (when (featurep 'tramp-smb) (unload-feature 'tramp-smb 'force))))))) -(require 'cl) (require 'custom) -;; Emacs 19.34 compatibility hack -- is this needed? -(or (>= emacs-major-version 20) - (load "cl-seq")) (unless (boundp 'custom-print-functions) (defvar custom-print-functions nil)) ; not autoloaded before Emacs 20.4 @@ -175,6 +171,11 @@ Otherwise, use a separate filename syntax for Tramp.") (when (boundp 'byte-compile-not-obsolete-var) (setq byte-compile-not-obsolete-var 'directory-sep-char))) +;; `set-buffer-multibyte' comes from Emacs Leim. +(eval-and-compile + (unless (fboundp 'set-buffer-multibyte) + (defalias 'set-buffer-multibyte 'ignore))) + ;;; User Customizable Internal Variables: (defgroup tramp nil @@ -2077,7 +2078,9 @@ If VAR is nil, then we bind `v' to the structure and `multi-method', (put 'with-parsed-tramp-file-name 'lisp-indent-function 2) ;; Enable debugging. -(def-edebug-spec with-parsed-tramp-file-name (form symbolp body)) +(eval-and-compile + (when (featurep 'edebug) + (def-edebug-spec with-parsed-tramp-file-name (form symbolp body)))) ;; Highlight as keyword. (when (functionp 'font-lock-add-keywords) (funcall 'font-lock-add-keywords @@ -2384,10 +2387,10 @@ target of the symlink differ." "Integer constant overflow in reader") (string-match "^[0-9]+\\([0-9][0-9][0-9][0-9][0-9]\\)\\'" - (caddr err))) - (let* ((big (read (substring (caddr err) 0 + (car (cddr err)))) + (let* ((big (read (substring (car (cddr err)) 0 (match-beginning 1)))) - (small (read (match-string 1 (caddr err)))) + (small (read (match-string 1 (car (cddr err))))) (twiddle (/ small 65536))) (cons (+ big twiddle) (- small (* twiddle 65536)))))))) @@ -2807,7 +2810,7 @@ of." object))) (cell root)) (while (cdr cell) - (if (and match (not (string-match match (caadr cell)))) + (if (and match (not (string-match match (car (cadr cell))))) ;; Remove from list (setcdr cell (cddr cell)) ;; Include in list @@ -3426,10 +3429,10 @@ This is like `dired-recursive-delete-directory' for tramp files." (defun tramp-handle-insert-directory (filename switches &optional wildcard full-directory-p) "Like `insert-directory' for tramp files." - (if (and (boundp 'ls-lisp-use-insert-directory-program) + (if (and (featurep 'ls-lisp) (not (symbol-value 'ls-lisp-use-insert-directory-program))) - (tramp-run-real-handler 'insert-directory - (list filename switches wildcard full-directory-p)) + (tramp-run-real-handler + 'insert-directory (list filename switches wildcard full-directory-p)) ;; For the moment, we assume that the remote "ls" program does not ;; grok "--dired". In the future, we should detect this on ;; connection setup. @@ -3869,12 +3872,7 @@ This will break if COMMAND prints a newline, followed by the value of "Like `file-remote-p' for tramp files." (when (tramp-tramp-file-p filename) (with-parsed-tramp-file-name filename nil - (make-tramp-file-name - :multi-method multi-method - :method method - :user user - :host host - :localname "")))) + (vector multi-method method user host "")))) (defun tramp-handle-insert-file-contents (filename &optional visit beg end replace) @@ -3919,7 +3917,7 @@ This will break if COMMAND prints a newline, followed by the value of (when (boundp 'last-coding-system-used) (set 'last-coding-system-used coding-system-used)) (list (expand-file-name filename) - (second result)))))) + (cadr result)))))) (defun tramp-handle-find-backup-file-name (filename) @@ -3978,7 +3976,8 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file." (when (and (string-match (car x) buffer-file-name) (not (car (cddr x)))) (setq tramp-auto-save-directory - (or tramp-auto-save-directory temporary-file-directory)))) + (or tramp-auto-save-directory + (tramp-temporary-file-directory))))) (symbol-value 'auto-save-file-name-transforms))) ;; Create directory. (when tramp-auto-save-directory @@ -4566,7 +4565,7 @@ Falls back to normal file name handler if no tramp file name handler exists." (member (match-string 1 file) (mapcar 'car tramp-methods))) ((or (equal last-input-event 'tab) ;; Emacs - (and (wholenump last-input-event) + (and (natnump last-input-event) (or ;; ?\t has event-modifier 'control (char-equal last-input-event ?\t) @@ -4575,6 +4574,10 @@ Falls back to normal file name handler if no tramp file name handler exists." (char-equal last-input-event ?\ ))))) ;; XEmacs (and (featurep 'xemacs) + ;; `last-input-event' might be nil. + (not (null last-input-event)) + ;; `last-input-event' may have no character approximation. + (funcall (symbol-function 'event-to-character) last-input-event) (or ;; ?\t has event-modifier 'control (char-equal @@ -4771,24 +4774,14 @@ remote host and localname (filename on remote host)." (match-string (nth 1 structure) name))) (if (and method (member method tramp-multi-methods)) ;; Not handled (yet). - (make-tramp-file-name - :multi-method method - :method nil - :user nil - :host nil - :localname nil) + (vector method nil nil nil nil) (let ((user (and (nth 2 structure) (match-string (nth 2 structure) name))) (host (and (nth 3 structure) (match-string (nth 3 structure) name))) (localname (and (nth 4 structure) (match-string (nth 4 structure) name)))) - (make-tramp-file-name - :multi-method nil - :method method - :user user - :host host - :localname localname))))))) + (vector nil method user host localname))))))) ;; This function returns all possible method completions, adding the ;; trailing method delimeter. @@ -5191,7 +5184,7 @@ USER the array of user names, HOST the array of host names." (aref user i) (aref host i)) (format "%s@%s:" (aref method i) (aref host i))) string-list)) - (incf i)) + (setq i (1+ i))) (format "*%s/%s %s*" prefix multi-method (apply 'concat (reverse string-list))))) @@ -5928,7 +5921,7 @@ log in as u2 to h2." ;; is done here. (funcall multi-func p m u h command) (erase-buffer) - (incf i))) + (setq i (1+ i)))) (tramp-open-connection-setup-interactive-shell p multi-method method user host) (tramp-post-connection multi-method method user host))))) @@ -6824,7 +6817,8 @@ If `tramp-discard-garbage' is nil, just erase buffer." (defun tramp-mode-string-to-int (mode-string) "Converts a ten-letter `drwxrwxrwx'-style mode string into mode bits." - (let* ((mode-chars (string-to-vector mode-string)) + (let* (case-fold-search + (mode-chars (string-to-vector mode-string)) (owner-read (aref mode-chars 1)) (owner-write (aref mode-chars 2)) (owner-execute-or-setid (aref mode-chars 3)) @@ -6836,45 +6830,61 @@ If `tramp-discard-garbage' is nil, just erase buffer." (other-execute-or-sticky (aref mode-chars 9))) (save-match-data (logior - (case owner-read - (?r (tramp-octal-to-decimal "00400")) (?- 0) - (t (error "Second char `%c' must be one of `r-'" owner-read))) - (case owner-write - (?w (tramp-octal-to-decimal "00200")) (?- 0) - (t (error "Third char `%c' must be one of `w-'" owner-write))) - (case owner-execute-or-setid - (?x (tramp-octal-to-decimal "00100")) - (?S (tramp-octal-to-decimal "04000")) - (?s (tramp-octal-to-decimal "04100")) - (?- 0) - (t (error "Fourth char `%c' must be one of `xsS-'" - owner-execute-or-setid))) - (case group-read - (?r (tramp-octal-to-decimal "00040")) (?- 0) - (t (error "Fifth char `%c' must be one of `r-'" group-read))) - (case group-write - (?w (tramp-octal-to-decimal "00020")) (?- 0) - (t (error "Sixth char `%c' must be one of `w-'" group-write))) - (case group-execute-or-setid - (?x (tramp-octal-to-decimal "00010")) - (?S (tramp-octal-to-decimal "02000")) - (?s (tramp-octal-to-decimal "02010")) - (?- 0) - (t (error "Seventh char `%c' must be one of `xsS-'" - group-execute-or-setid))) - (case other-read - (?r (tramp-octal-to-decimal "00004")) (?- 0) - (t (error "Eighth char `%c' must be one of `r-'" other-read))) - (case other-write - (?w (tramp-octal-to-decimal "00002")) (?- 0) + (cond + ((char-equal owner-read ?r) (tramp-octal-to-decimal "00400")) + ((char-equal owner-read ?-) 0) + (t (error "Second char `%c' must be one of `r-'" owner-read))) + (cond + ((char-equal owner-write ?w) (tramp-octal-to-decimal "00200")) + ((char-equal owner-write ?-) 0) + (t (error "Third char `%c' must be one of `w-'" owner-write))) + (cond + ((char-equal owner-execute-or-setid ?x) + (tramp-octal-to-decimal "00100")) + ((char-equal owner-execute-or-setid ?S) + (tramp-octal-to-decimal "04000")) + ((char-equal owner-execute-or-setid ?s) + (tramp-octal-to-decimal "04100")) + ((char-equal owner-execute-or-setid ?-) 0) + (t (error "Fourth char `%c' must be one of `xsS-'" + owner-execute-or-setid))) + (cond + ((char-equal group-read ?r) (tramp-octal-to-decimal "00040")) + ((char-equal group-read ?-) 0) + (t (error "Fifth char `%c' must be one of `r-'" group-read))) + (cond + ((char-equal group-write ?w) (tramp-octal-to-decimal "00020")) + ((char-equal group-write ?-) 0) + (t (error "Sixth char `%c' must be one of `w-'" group-write))) + (cond + ((char-equal group-execute-or-setid ?x) + (tramp-octal-to-decimal "00010")) + ((char-equal group-execute-or-setid ?S) + (tramp-octal-to-decimal "02000")) + ((char-equal group-execute-or-setid ?s) + (tramp-octal-to-decimal "02010")) + ((char-equal group-execute-or-setid ?-) 0) + (t (error "Seventh char `%c' must be one of `xsS-'" + group-execute-or-setid))) + (cond + ((char-equal other-read ?r) + (tramp-octal-to-decimal "00004")) + ((char-equal other-read ?-) 0) + (t (error "Eighth char `%c' must be one of `r-'" other-read))) + (cond + ((char-equal other-write ?w) (tramp-octal-to-decimal "00002")) + ((char-equal other-write ?-) 0) (t (error "Nineth char `%c' must be one of `w-'" other-write))) - (case other-execute-or-sticky - (?x (tramp-octal-to-decimal "00001")) - (?T (tramp-octal-to-decimal "01000")) - (?t (tramp-octal-to-decimal "01001")) - (?- 0) - (t (error "Tenth char `%c' must be one of `xtT-'" - other-execute-or-sticky))))))) + (cond + ((char-equal other-execute-or-sticky ?x) + (tramp-octal-to-decimal "00001")) + ((char-equal other-execute-or-sticky ?T) + (tramp-octal-to-decimal "01000")) + ((char-equal other-execute-or-sticky ?t) + (tramp-octal-to-decimal "01001")) + ((char-equal other-execute-or-sticky ?-) 0) + (t (error "Tenth char `%c' must be one of `xtT-'" + other-execute-or-sticky))))))) (defun tramp-convert-file-attributes (multi-method method user host attr) "Convert file-attributes ATTR generated by perl script or ls. @@ -6977,7 +6987,29 @@ Not actually used. Use `(format \"%o\" i)' instead?" ;; internal data structure. Convenience functions for internal ;; data structure. -(defstruct tramp-file-name multi-method method user host localname) +(defun tramp-file-name-p (obj) + "Check whether TRAMP-FILE-NAME is a Tramp object." + (and (vectorp obj) (= 5 (length obj)))) + +(defun tramp-file-name-multi-method (obj) + "Return MULTI-METHOD component of TRAMP-FILE-NAME." + (and (tramp-file-name-p obj) (aref obj 0))) + +(defun tramp-file-name-method (obj) + "Return METHOD component of TRAMP-FILE-NAME." + (and (tramp-file-name-p obj) (aref obj 1))) + +(defun tramp-file-name-user (obj) + "Return USER component of TRAMP-FILE-NAME." + (and (tramp-file-name-p obj) (aref obj 2))) + +(defun tramp-file-name-host (obj) + "Return HOST component of TRAMP-FILE-NAME." + (and (tramp-file-name-p obj) (aref obj 3))) + +(defun tramp-file-name-localname (obj) + "Return LOCALNAME component of TRAMP-FILE-NAME." + (and (tramp-file-name-p obj) (aref obj 4))) (defun tramp-tramp-file-p (name) "Return t iff NAME is a tramp file." @@ -7010,12 +7042,7 @@ localname (file name on remote host)." (let ((user (match-string (nth 2 tramp-file-name-structure) name)) (host (match-string (nth 3 tramp-file-name-structure) name)) (localname (match-string (nth 4 tramp-file-name-structure) name))) - (make-tramp-file-name - :multi-method nil - :method method - :user (or user nil) - :host host - :localname localname)))))) + (vector nil method (or user nil) host localname)))))) (defun tramp-find-default-method (user host) "Look up the right method to use in `tramp-default-method-alist'." @@ -7055,7 +7082,7 @@ If both MULTI-METHOD and METHOD are nil, do a lookup in (setq method (match-string method-index name)) (setq hops (match-string hops-index name)) (setq len (/ (length (match-data t)) 2)) - (when (< localname-index 0) (incf localname-index len)) + (when (< localname-index 0) (setq localname-index (+ localname-index len))) (setq localname (match-string localname-index name)) (let ((index 0)) (while (string-match hop-regexp hops index) @@ -7066,12 +7093,12 @@ If both MULTI-METHOD and METHOD are nil, do a lookup in (cons (match-string hop-user-index hops) hop-users)) (setq hop-hosts (cons (match-string hop-host-index hops) hop-hosts)))) - (make-tramp-file-name - :multi-method method - :method (apply 'vector (reverse hop-methods)) - :user (apply 'vector (reverse hop-users)) - :host (apply 'vector (reverse hop-hosts)) - :localname localname))) + (vector + method + (apply 'vector (reverse hop-methods)) + (apply 'vector (reverse hop-users)) + (apply 'vector (reverse hop-hosts)) + localname))) (defun tramp-make-tramp-file-name (multi-method method user host localname) "Constructs a tramp file name from METHOD, USER, HOST and LOCALNAME." @@ -7103,7 +7130,7 @@ If both MULTI-METHOD and METHOD are nil, do a lookup in (let ((m (aref method i)) (u (aref user i)) (h (aref host i))) (setq hops (concat hops (format-spec hop-format `((?m . ,m) (?u . ,u) (?h . ,h))))) - (incf i))) + (setq i (1+ i)))) (concat prefix hops localname))) (defun tramp-make-copy-program-file-name (user host localname) @@ -7218,7 +7245,7 @@ as default." (assoc (tramp-find-method multi-method method user host) tramp-methods)))) (if entry - (second entry) + (cadr entry) (symbol-value param)))) diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 04f7bc754f2..485c58afa65 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el @@ -30,7 +30,7 @@ ;; are auto-frobbed from configure.ac, so you should edit that file and run ;; "autoconf && ./configure" to change them. -(defconst tramp-version "2.0.55" +(defconst tramp-version "2.0.56" "This version of Tramp.") (defconst tramp-bug-report-address "tramp-devel@gnu.org" diff --git a/man/ChangeLog b/man/ChangeLog index f9459bfcc2d..98faf2482b1 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,10 @@ +2007-06-07 Michael Albinus + + Sync with Tramp 2.0.56. + + * tramp.texi (Frequently Asked Questions): Improve ~/.zshrc + settings. Reported by Ted Zlatanov . + 2007-06-07 Alan Mackenzie * display.texi (Optional Mode Line): Document the new form of diff --git a/man/tramp.texi b/man/tramp.texi index 7acef2663e4..67b0647787c 100644 --- a/man/tramp.texi +++ b/man/tramp.texi @@ -2051,7 +2051,11 @@ setting the regular expression detecting the prompt. A special problem is the zsh, which uses left-hand side and right-hand side prompts in parallel. Therefore, it is necessary to disable the zsh line editor on the remote host. You shall add to @file{~/.zshrc} -the following command: @command{[ $TERM = "dumb" ] && unsetopt zle}. +the following command: + +@example +[ $TERM = "dumb" ] && unsetopt zle && PS1='$ ' +@end example @item @value{tramp} doesn't transfer strings with more than 500 characters diff --git a/man/trampver.texi b/man/trampver.texi index c512de4c74b..6c770dc8ad1 100644 --- a/man/trampver.texi +++ b/man/trampver.texi @@ -9,7 +9,7 @@ @c In the Tramp CVS, the version number is auto-frobbed from @c configure.ac, so you should edit that file and run @c "autoconf && ./configure" to change the version number. -@set trampver 2.0.55 +@set trampver 2.0.56 @c Other flags from configuration @set prefix /usr/local From d3a9d7d64403105c64b1e2b8b774d6f379156ee4 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 7 Jun 2007 20:17:52 +0000 Subject: [PATCH 239/276] Tramp does not require cl anymore. --- admin/FOR-RELEASE | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 4e65355bb85..2fceaee33cf 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -12,10 +12,10 @@ make sure all the pages really look ok in the manual as formatted. Requests to have been sent out on 2006-05-23 (Reiner Steib). LANG Translator Status -cs Pavel Janík Can't work on it now. +cs Pavel Janík Can't work on it now. de Sven Joachim Done fr Eric Jacoboni Done -pl WÅ‚odek Bzyl Done +pl WÅ‚odek Bzyl Done pt-br Rodrigo Real Done ru Alex Ott Done sk Miroslav VaÅ¡ko No response @@ -41,7 +41,7 @@ to the hack introduced on 2005-07-01 to fix some other Cleartype problem. Here we list small fixes that arrived too late for Emacs 22.1, but that should be installed on the release branch after 22.1 is released. -** viper and tramp should not load cl at run time. +** viper should not load cl at run time. ** yamaoka@jpl.org's patch for mail-extract-address-components problem. @@ -62,7 +62,7 @@ SECTION READERS etc/TUTORIAL rms etc/TUTORIAL.bg Ognyan Kulev etc/TUTORIAL.cn -etc/TUTORIAL.cs Pavel Janík +etc/TUTORIAL.cs Pavel Janík etc/TUTORIAL.de Werner LEMBERG etc/TUTORIAL.eo etc/TUTORIAL.es Marcelo Toledo @@ -75,7 +75,7 @@ etc/TUTORIAL.pl Slawomir Nowaczyk etc/TUTORIAL.pt_BR Marcelo Toledo etc/TUTORIAL.ro etc/TUTORIAL.ru Alex Ott -etc/TUTORIAL.sk Pavel Janík +etc/TUTORIAL.sk Pavel Janík etc/TUTORIAL.sl Primoz PETERLIN etc/TUTORIAL.sv Mats Lidell etc/TUTORIAL.th Virach Sornlertlamvanich From b0dc61e49b12c8281622c718dba261be43058f73 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 7 Jun 2007 20:19:32 +0000 Subject: [PATCH 240/276] Tramp does not require cl anymore. --- admin/FOR-RELEASE | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index e64da81cc01..f70781f4340 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -12,10 +12,10 @@ make sure all the pages really look ok in the manual as formatted. Requests to have been sent out on 2006-05-23 (Reiner Steib). LANG Translator Status -cs Pavel Janík Can't work on it now. +cs Pavel Janík Can't work on it now. de Sven Joachim Done fr Eric Jacoboni Done -pl WÅ‚odek Bzyl Done +pl WÅ‚odek Bzyl Done pt-br Rodrigo Real Done ru Alex Ott Done sk Miroslav VaÅ¡ko No response @@ -55,7 +55,7 @@ that should be installed on the release branch after 22.1 is released. ** Changes to six pbm icons in etc/images. Sync change from trunk 2007-05-19. -** viper and tramp should not load cl at run time. +** viper should not load cl at run time. ** yamaoka@jpl.org's patch for mail-extract-address-components problem. @@ -76,7 +76,7 @@ SECTION READERS etc/TUTORIAL rms etc/TUTORIAL.bg Ognyan Kulev etc/TUTORIAL.cn -etc/TUTORIAL.cs Pavel Janík +etc/TUTORIAL.cs Pavel Janík etc/TUTORIAL.de Werner LEMBERG etc/TUTORIAL.eo etc/TUTORIAL.es Marcelo Toledo @@ -89,7 +89,7 @@ etc/TUTORIAL.pl Slawomir Nowaczyk etc/TUTORIAL.pt_BR Marcelo Toledo etc/TUTORIAL.ro etc/TUTORIAL.ru Alex Ott -etc/TUTORIAL.sk Pavel Janík +etc/TUTORIAL.sk Pavel Janík etc/TUTORIAL.sl Primoz PETERLIN etc/TUTORIAL.sv Mats Lidell etc/TUTORIAL.th Virach Sornlertlamvanich From 4608d8296199d2adcc7bece60ce88e203d80759a Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Thu, 7 Jun 2007 21:36:48 +0000 Subject: [PATCH 241/276] Don't define HAVE_TZNAME. --- src/s/ms-w32.h | 1 - 1 file changed, 1 deletion(-) diff --git a/src/s/ms-w32.h b/src/s/ms-w32.h index ad699dff035..666b70b1ea5 100644 --- a/src/s/ms-w32.h +++ b/src/s/ms-w32.h @@ -255,7 +255,6 @@ Boston, MA 02110-1301, USA. */ #undef TM_IN_SYS_TIME #undef HAVE_TM_ZONE -#define HAVE_TZNAME 1 #define HAVE_LONG_FILE_NAMES 1 From 42c4c67a4acbee970f3805f685c32c8a993484d3 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Thu, 7 Jun 2007 21:38:10 +0000 Subject: [PATCH 242/276] (Fcurrent_time_zone): Remove hack for Japanese Windows. --- src/ChangeLog | 6 ++++++ src/editfns.c | 15 ++------------- 2 files changed, 8 insertions(+), 13 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index ae796a64db7..9b88e6a2fa3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2007-06-07 Jason Rumney + + * s/ms-w32.h: Don't define HAVE_TZNAME. + + * editfns.c (Fcurrent_time_zone): Remove hack for Japanese Windows. + 2007-06-07 YAMAMOTO Mitsuharu * mac.c (xrm_get_preference_database): Remove BLOCK_INPUT. diff --git a/src/editfns.c b/src/editfns.c index 37498e3b6f7..2f759a38dd0 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -1974,6 +1974,7 @@ the data it can't find. */) int offset = tm_diff (t, &gmt); char *s = 0; char buf[6]; + #ifdef HAVE_TM_ZONE if (t->tm_zone) s = (char *)t->tm_zone; @@ -1984,19 +1985,6 @@ the data it can't find. */) #endif #endif /* not HAVE_TM_ZONE */ -#if defined HAVE_TM_ZONE || defined HAVE_TZNAME - if (s) - { - /* On Japanese w32, we can get a Japanese string as time - zone name. Don't accept that. */ - char *p; - for (p = s; *p && (isalnum ((unsigned char)*p) || *p == ' '); ++p) - ; - if (p == s || *p) - s = NULL; - } -#endif - if (!s) { /* No local time zone name is available; use "+-NNNN" instead. */ @@ -2004,6 +1992,7 @@ the data it can't find. */) sprintf (buf, "%c%02d%02d", (offset < 0 ? '-' : '+'), am/60, am%60); s = buf; } + return Fcons (make_number (offset), Fcons (build_string (s), Qnil)); } else From 75260a2c88bbcc3872569e946a3c3816c86b314c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Jun 2007 03:16:34 +0000 Subject: [PATCH 243/276] Remove FIXME comment, implemented in previous change. --- Makefile.in | 5 ----- 1 file changed, 5 deletions(-) diff --git a/Makefile.in b/Makefile.in index 41a3436b45b..5e8a26c85ce 100644 --- a/Makefile.in +++ b/Makefile.in @@ -409,11 +409,6 @@ install-arch-dep: mkdir ## Note that we copy DOC* and then delete DOC ## as a workaround for a bug in tar on Ultrix 4.2. -## FIXME -## Should only install the DOC- file appropriate to this build, not DOC-*. -## http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-01/msg00417.html -## (fix available for consideration post-release). - ## We install only the relevant DOC file if possible ## (ie DOC-${version}.buildnumber), otherwise DOC-${version}*. From 45cb0b589b62659bf361a69a04ed09959e4785e4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Jun 2007 03:46:12 +0000 Subject: [PATCH 244/276] *** empty log message *** --- ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ChangeLog b/ChangeLog index e505ada236e..a86ba8e647b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-06-08 Glenn Morris + + * configure.in: Make gtk the default toolkit. + 2007-06-07 Glenn Morris * configure.in (NON_GNU_CPP): On Solaris, set using a proper check From 4f82305747823d19e09b9440f168e69b01459f30 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Jun 2007 03:46:32 +0000 Subject: [PATCH 245/276] Make gtk the default toolkit. --- configure.in | 46 ++++++++++++++++++++++++++++++++++------------ 1 file changed, 34 insertions(+), 12 deletions(-) diff --git a/configure.in b/configure.in index 1d725e13a87..565b4713c69 100644 --- a/configure.in +++ b/configure.in @@ -84,7 +84,7 @@ AC_ARG_WITH(x-toolkit, [ --with-x-toolkit=KIT use an X toolkit (KIT = yes/lucid/athena/motif/gtk/no)], [ case "${withval}" in - y | ye | yes ) val=athena ;; + y | ye | yes ) val=gtk ;; n | no ) val=no ;; l | lu | luc | luci | lucid ) val=lucid ;; a | at | ath | athe | athen | athena ) val=athena ;; @@ -98,7 +98,7 @@ dnl AC_MSG_ERROR([the `--with-x-toolkit' option is supposed to have a value dnl which is `yes', `no', `lucid', `athena', `motif' or `open-look'.]) AC_MSG_ERROR([`--with-x-toolkit=$withval' is invalid\; this option's value should be `yes', `no', `lucid', `athena', `motif' or `gtk'. -Currently, `yes', `athena' and `lucid' are synonyms.]) +Currently, `yes' and `gtk', and `athena' and `lucid' are synonyms.]) ;; esac with_x_toolkit=$val @@ -1880,9 +1880,15 @@ dnl Dont set this for GTK. A lot of tests below assumes Xt when dnl USE_X_TOOLKIT is set. USE_X_TOOLKIT=none ;; no ) USE_X_TOOLKIT=none ;; -dnl If user did not say whether to use a toolkit, -dnl make this decision later: use the toolkit if we have X11R5 or newer. - * ) USE_X_TOOLKIT=maybe ;; +dnl If user did not say whether to use a toolkit, make this decision later: +dnl use the toolkit if we have gtk, or X11R5 or newer. + * ) + if test x"$with_gtk" = xyes; then + USE_X_TOOLKIT=none + else + USE_X_TOOLKIT=maybe + fi + ;; esac ;; mac | none ) @@ -2110,7 +2116,8 @@ HAVE_GTK=no if test "${with_gtk}" = "yes" && test "$USE_X_TOOLKIT" = "gtk"; then USE_X_TOOLKIT=none fi -if test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "gtk"; then +if test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "gtk" || \ + test "$USE_X_TOOLKIT" = "maybe"; then if test "$USE_X_TOOLKIT" != "none" && test "$USE_X_TOOLKIT" != "maybe"; then AC_MSG_ERROR([Conflicting options, --with-gtk is incompatible with --with-x-toolkit=${with_x_toolkit}]); fi @@ -2123,7 +2130,15 @@ if test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "gtk"; then PKG_CONFIG="${with_pkg_config_prog}" fi dnl Checks for libraries. - PKG_CHECK_MODULES(GTK, $GTK_MODULES) + PKG_CHECK_MODULES(GTK, $GTK_MODULES, pkg_check_gtk=yes, pkg_check_gtk=no) + if test "$pkg_check_gtk" = "no" && test "$USE_X_TOOLKIT" != "maybe"; then + AC_MSG_ERROR($GTK_PKG_ERRORS) + fi +fi + + +if test x"$pkg_check_gtk" = xyes; then + AC_SUBST(GTK_CFLAGS) AC_SUBST(GTK_LIBS) C_SWITCH_X_SITE="$C_SWITCH_X_SITE $GTK_CFLAGS" @@ -2133,12 +2148,19 @@ if test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "gtk"; then GTK_COMPILES=no AC_CHECK_FUNCS(gtk_main, GTK_COMPILES=yes) if test "${GTK_COMPILES}" != "yes"; then - AC_MSG_ERROR([Gtk+ wanted, but it does not compile, see config.log. Maybe some x11-devel files missing?]); + if test "$USE_X_TOOLKIT" != "maybe"; then + AC_MSG_ERROR([Gtk+ wanted, but it does not compile, see config.log. Maybe some x11-devel files missing?]); + fi + else + HAVE_GTK=yes + AC_DEFINE(HAVE_GTK, 1, [Define to 1 if using GTK.]) + USE_X_TOOLKIT=none fi - - HAVE_GTK=yes - AC_DEFINE(HAVE_GTK, 1, [Define to 1 if using GTK.]) - USE_X_TOOLKIT=none + +fi + + +if test "${HAVE_GTK}" = "yes"; then dnl GTK scrollbars resemble toolkit scrollbars a lot, so to avoid dnl a lot if #ifdef:s, say we have toolkit scrollbars. From b5ac89f8c0eed6350bff4c28f60f4fcbeea0eae8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Jun 2007 03:47:42 +0000 Subject: [PATCH 246/276] *** empty log message *** --- etc/NEWS | 2 ++ 1 file changed, 2 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index e128db6cd25..a7d750b694f 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -19,6 +19,8 @@ with a prefix argument or by typing C-u C-h C-n. * Installation Changes in Emacs 23.1 +** The default X toolkit has changed from Lucid to Gtk+. + * Startup Changes in Emacs 23.1 From da38057d95c3f5f8946335485cfd6a35513ca330 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 8 Jun 2007 10:07:51 +0000 Subject: [PATCH 247/276] *** empty log message *** --- lisp/ChangeLog | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d25c9dbacd6..7a9c0ef5e87 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2007-06-08 Nick Roberts + + * help-mode.el (help-xref-forward-stack) + (help-xref-stack-forward-item, help-forward-label): New variables. + (help-forward): New button type. + (help-setup-xref): Initialise help-xref-forward-stack. + (help-make-xrefs): Add forward button, if appropriate. + (help-xref-go-back): Push item on forward stack. + (help-xref-go-forward, help-go-forward): New functions. + 2007-06-07 Chong Yidong * dired.el (dired-mode-map): Remove spurious separator. From 95f731dbb5881fba80ac8dc60d136c5b256e6f7c Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 8 Jun 2007 10:09:24 +0000 Subject: [PATCH 248/276] (help-xref-forward-stack) (help-xref-stack-forward-item, help-forward-label): New variables. (help-forward): New button type. (help-setup-xref): Initialise help-xref-forward-stack. (help-make-xrefs): Add forward button, if appropriate. (help-xref-go-back): Push item on forward stack. (help-xref-go-forward, help-go-forward): New functions. --- lisp/help-mode.el | 60 ++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 59 insertions(+), 1 deletion(-) diff --git a/lisp/help-mode.el b/lisp/help-mode.el index afaf06bec3c..f7c33d85286 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -40,6 +40,7 @@ (define-key help-mode-map [mouse-2] 'help-follow-mouse) (define-key help-mode-map "\C-c\C-b" 'help-go-back) +(define-key help-mode-map "\C-c\C-f" 'help-go-forward) (define-key help-mode-map "\C-c\C-c" 'help-follow-symbol) ;; Documentation only, since we use minor-mode-overriding-map-alist. (define-key help-mode-map "\r" 'help-follow) @@ -52,13 +53,28 @@ To use the element, do (apply FUNCTION ARGS) then goto the point.") (put 'help-xref-stack 'permanent-local t) (make-variable-buffer-local 'help-xref-stack) +(defvar help-xref-forward-stack nil + "The stack of used to navigate help forwards after using the back button. +Used by `help-follow' and `help-xref-go-forward'. +An element looks like (POSITION FUNCTION ARGS...). +To use the element, do (apply FUNCTION ARGS) then goto the point.") +(put 'help-xref-forward-stack 'permanent-local t) +(make-variable-buffer-local 'help-xref-forward-stack) + (defvar help-xref-stack-item nil "An item for `help-follow' in this buffer to push onto `help-xref-stack'. The format is (FUNCTION ARGS...).") (put 'help-xref-stack-item 'permanent-local t) (make-variable-buffer-local 'help-xref-stack-item) +(defvar help-xref-stack-forward-item nil + "An item for `help-go-back' to push onto `help-xref-forward-stack'. +The format is (FUNCTION ARGS...).") +(put 'help-xref-stack-forward-item 'permanent-local t) +(make-variable-buffer-local 'help-xref-stack-forward-item) + (setq-default help-xref-stack nil help-xref-stack-item nil) +(setq-default help-xref-forward-stack nil help-xref-forward-stack-item nil) (defcustom help-mode-hook nil "Hook run by `help-mode'." @@ -123,6 +139,11 @@ The format is (FUNCTION ARGS...).") 'help-function #'help-xref-go-back 'help-echo (purecopy "mouse-2, RET: go back to previous help buffer")) +(define-button-type 'help-forward + :supertype 'help-xref + 'help-function #'help-xref-go-forward + 'help-echo (purecopy "mouse-2, RET: move forward to next help buffer")) + (define-button-type 'help-info :supertype 'help-xref 'help-function #'info @@ -242,6 +263,9 @@ Commands: (defvar help-back-label (purecopy "[back]") "Label to use by `help-make-xrefs' for the go-back reference.") +(defvar help-forward-label (purecopy "[forward]") + "Label to use by `help-make-xrefs' for the go-forward reference.") + (defconst help-xref-symbol-regexp (purecopy (concat "\\(\\<\\(\\(variable\\|option\\)\\|" ; Link to var "\\(function\\|command\\)\\|" ; Link to function @@ -286,7 +310,8 @@ because we want to record the \"previous\" position of point so we can restore it properly when going back." (with-current-buffer (help-buffer) (when help-xref-stack-item - (push (cons (point) help-xref-stack-item) help-xref-stack)) + (push (cons (point) help-xref-stack-item) help-xref-stack) + (setq help-xref-forward-stack nil)) (when interactive-p (let ((tail (nthcdr 10 help-xref-stack))) ;; Truncate the stack. @@ -480,6 +505,11 @@ that." (insert "\n") (help-insert-xref-button help-back-label 'help-back (current-buffer)) + (insert "\t")) + ;; Make a forward-reference in this buffer if appropriate. + (when help-xref-forward-stack + (help-insert-xref-button help-forward-label 'help-forward + (current-buffer)) (insert "\n"))) ;; View mode steals RET from us. (set (make-local-variable 'minor-mode-overriding-map-alist) @@ -598,6 +628,7 @@ help buffer." "From BUFFER, go back to previous help buffer text using `help-xref-stack'." (let (item position method args) (with-current-buffer buffer + (push (cons (point) help-xref-stack-item) help-xref-forward-stack) (when help-xref-stack (setq item (pop help-xref-stack) ;; Clear the current item so that it won't get pushed @@ -613,12 +644,39 @@ help buffer." (set-window-point (get-buffer-window buffer) position) (goto-char position))))) +(defun help-xref-go-forward (buffer) + "From BUFFER, go forward to next help buffer." + (let (item position method args) + (with-current-buffer buffer + (push (cons (point) help-xref-stack-item) help-xref-stack) + (when help-xref-forward-stack + (setq item (pop help-xref-forward-stack) + ;; Clear the current item so that it won't get pushed + ;; by the function we're about to call. TODO: We could also + ;; push it onto a "forward" stack and add a `forw' button. + help-xref-stack-item nil + position (car item) + method (cadr item) + args (cddr item)))) + (apply method args) + (with-current-buffer buffer + (if (get-buffer-window buffer) + (set-window-point (get-buffer-window buffer) position) + (goto-char position))))) + (defun help-go-back () "Go back to previous topic in this help buffer." (interactive) (if help-xref-stack (help-xref-go-back (current-buffer)) (error "No previous help buffer"))) + +(defun help-go-forward () + "Go back to next topic in this help buffer." + (interactive) + (if help-xref-forward-stack + (help-xref-go-forward (current-buffer)) + (error "No next help buffer"))) (defun help-do-xref (pos function args) "Call the help cross-reference function FUNCTION with args ARGS. From 6c0bbaf7c2ef424bb620490fbb0f31621d819d72 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Fri, 8 Jun 2007 10:38:17 +0000 Subject: [PATCH 249/276] *** empty log message *** --- man/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/man/ChangeLog b/man/ChangeLog index 674fe02a4a5..36d52c76b1e 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,8 @@ +2007-06-08 Alan Mackenzie + + * display.texi (Optional Mode Line): Document the new form of + line+column numbers, "(561,2)". + 2007-06-06 Juanma Barranquero * cc-mode.texi (Comment Commands, Getting Started, Style Variables): From aa0c00e0fc0e381cfe9ddd9be8ef1d607356d857 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Fri, 8 Jun 2007 10:39:56 +0000 Subject: [PATCH 250/276] (Optional Mode Line): Document the new form of line+column numbers, "(561,2)". --- man/display.texi | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/man/display.texi b/man/display.texi index 6cb2d857165..21a65999ec3 100644 --- a/man/display.texi +++ b/man/display.texi @@ -922,8 +922,18 @@ accessible part of the buffer is shown. Number mode is enabled. Use the command @kbd{M-x line-number-mode} to turn this mode on and off; normally it is on. The line number appears after the buffer percentage @var{pos}, with the letter @samp{L} to -indicate what it is. @xref{Minor Modes}, for more information about -minor modes and about how to use this command. +indicate what it is. + +@cindex Column Number mode +@cindex mode, Column Number +@findex column-number-mode + Similarly, you can display the current column number by turning on +Column number mode with @kbd{M-x column-number-mode}. The column +number is indicated by the letter @samp{C}. However, when both of +these modes are enabled, the line and column numbers are displayed in +parentheses, the line number first, rather than with @samp{L} and +@samp{C}. For example: @samp{(561,2)}. @xref{Minor Modes}, for more +information about minor modes and about how to use these commands. @cindex narrowing, and line number display If you have narrowed the buffer (@pxref{Narrowing}), the displayed @@ -946,13 +956,6 @@ larger than the value of the variable @code{line-number-display-limit-width}. The default value is 200 characters. -@cindex Column Number mode -@cindex mode, Column Number -@findex column-number-mode - You can also display the current column number by turning on Column -Number mode. It displays the current column number preceded by the -letter @samp{C}. Type @kbd{M-x column-number-mode} to toggle this mode. - @findex display-time @cindex time (on mode line) Emacs can optionally display the time and system load in all mode From 2c668b9a664b677f97e12b2725b88eceb30d94d9 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 19:56:24 +0000 Subject: [PATCH 251/276] (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate. (empty_unibyte_string, empty_multibyte_string): New externs. (empty_string): Remove extern. --- src/lisp.h | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/lisp.h b/src/lisp.h index a7072d02174..d380ba0d049 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -701,7 +701,10 @@ extern int string_bytes P_ ((struct Lisp_String *)); #endif /* not GC_CHECK_STRING_BYTES */ /* Mark STR as a unibyte string. */ -#define STRING_SET_UNIBYTE(STR) (XSTRING (STR)->size_byte = -1) +#define STRING_SET_UNIBYTE(STR) \ + do { if (EQ (STR, empty_multibyte_string)) \ + (STR) = empty_unibyte_string; \ + else XSTRING (STR)->size_byte = -1; } while (0) /* Get text properties. */ #define STRING_INTERVALS(STR) (XSTRING (STR)->intervals + 0) @@ -3060,7 +3063,8 @@ extern void syms_of_frame P_ ((void)); /* defined in emacs.c */ extern Lisp_Object decode_env_path P_ ((char *, char *)); extern Lisp_Object Vinvocation_name, Vinvocation_directory; -extern Lisp_Object Vinstallation_directory, empty_string; +extern Lisp_Object Vinstallation_directory; +extern Lisp_Object empty_unibyte_string, empty_multibyte_string; EXFUN (Fkill_emacs, 1); #if HAVE_SETLOCALE void fixup_locale P_ ((void)); From a74d1c97ee9c08955735db3652ba485352c48379 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 19:57:46 +0000 Subject: [PATCH 252/276] (syms_of_lread, openp): Use empty_unibyte_string, not build_string. --- src/lread.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/lread.c b/src/lread.c index 088f729075d..943a55f31f8 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1199,7 +1199,7 @@ openp (path, str, suffixes, storeptr, predicate) fn = (char *) alloca (fn_size = 100 + want_size); /* Loop over suffixes. */ - for (tail = NILP (suffixes) ? Fcons (build_string (""), Qnil) : suffixes; + for (tail = NILP (suffixes) ? Fcons (empty_unibyte_string, Qnil) : suffixes; CONSP (tail); tail = XCDR (tail)) { int lsuffix = SBYTES (XCAR (tail)); @@ -4070,8 +4070,7 @@ and, if so, which suffixes they should try to append to the file name in order to do so. However, if you want to customize which suffixes the loading functions recognize as compression suffixes, you should customize `jka-compr-load-suffixes' rather than the present variable. */); - /* We don't use empty_string because it's not initialized yet. */ - Vload_file_rep_suffixes = Fcons (build_string (""), Qnil); + Vload_file_rep_suffixes = Fcons (empty_unibyte_string, Qnil); DEFVAR_BOOL ("load-in-progress", &load_in_progress, doc: /* Non-nil iff inside of `load'. */); From 7e9fa161dccd2990ea344c4b4b7188383de76a55 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 19:58:33 +0000 Subject: [PATCH 253/276] (empty_unibyte_string): Rename from empty_string. (empty_multibyte_string): New canonical empty string. (syms_of_emacs): Don't initialize empty_string. --- src/emacs.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/emacs.c b/src/emacs.c index e235856847f..51a7770bacd 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -133,8 +133,8 @@ Lisp_Object Vinstallation_directory; /* Hook run by `kill-emacs' before it does really anything. */ Lisp_Object Vkill_emacs_hook; -/* An empty lisp string. To avoid having to build any other. */ -Lisp_Object empty_string; +/* Empty lisp strings. To avoid having to build any others. */ +Lisp_Object empty_unibyte_string, empty_multibyte_string; /* Search path separator. */ Lisp_Object Vpath_separator; @@ -2474,9 +2474,6 @@ see `kill-emacs-query-functions' instead. The hook is not run in batch mode, i.e., if `noninteractive' is non-nil. */); Vkill_emacs_hook = Qnil; - empty_string = build_string (""); - staticpro (&empty_string); - DEFVAR_INT ("emacs-priority", &emacs_priority, doc: /* Priority for Emacs to run at. This value is effective only if set before Emacs is dumped, From 4d774b0fe6a4f6c0df213cc176b76dd453af3911 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 19:59:46 +0000 Subject: [PATCH 254/276] (init_strings): Initialize canonical empty strings. (make_uninit_string, make_uninit_multibyte_string): Return appropriate canonical empty string when the requested size is 0. --- src/alloc.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index 68b490f98b5..7668309e59c 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1756,6 +1756,8 @@ init_strings () string_blocks = NULL; n_string_blocks = 0; string_free_list = NULL; + empty_unibyte_string = make_pure_string ("", 0, 0, 0); + empty_multibyte_string = make_pure_string ("", 0, 0, 1); } @@ -2479,6 +2481,9 @@ make_uninit_string (length) int length; { Lisp_Object val; + + if (!length) + return empty_unibyte_string; val = make_uninit_multibyte_string (length, length); STRING_SET_UNIBYTE (val); return val; @@ -2497,6 +2502,8 @@ make_uninit_multibyte_string (nchars, nbytes) if (nchars < 0) abort (); + if (!nbytes) + return empty_multibyte_string; s = allocate_string (); allocate_string_data (s, nchars, nbytes); From ce33e8eb5f74e1c25481b1672523963d552f7550 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:00:33 +0000 Subject: [PATCH 255/276] (menu_help_callback): Use empty_unibyte_string, not empty_string. --- src/xmenu.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/xmenu.c b/src/xmenu.c index fd6fc960739..da897396d75 100644 --- a/src/xmenu.c +++ b/src/xmenu.c @@ -325,7 +325,7 @@ restore_menu_items (saved) menu_items_used = XINT (XCAR (saved)); saved = XCDR (saved); menu_items_n_panes = XINT (XCAR (saved)); - saved = XCDR (saved); + saved = XCDR (saved); menu_items_submenu_depth = XINT (XCAR (saved)); return Qnil; } @@ -3428,7 +3428,7 @@ menu_help_callback (help_string, pane, item) pane_name = first_item[MENU_ITEMS_PANE_NAME]; else if (EQ (first_item[0], Qquote)) /* This shouldn't happen, see xmenu_show. */ - pane_name = empty_string; + pane_name = empty_unibyte_string; else pane_name = first_item[MENU_ITEMS_ITEM_NAME]; From 6ecd75be1a677f46474a15827605ab95573b8738 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:01:38 +0000 Subject: [PATCH 256/276] (x_default_scroll_bar_color_parameter): Use empty_unibyte_string, not empty_string. --- src/xfns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/xfns.c b/src/xfns.c index 73a88dfc058..430cfc56a1d 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1841,9 +1841,9 @@ x_default_scroll_bar_color_parameter (f, alist, prop, xprop, xclass, build_string (foreground_p ? "foreground" : "background"), - empty_string, + empty_unibyte_string, build_string ("verticalScrollBar"), - empty_string); + empty_unibyte_string); if (!STRINGP (tem)) { /* If nothing has been specified, scroll bars will use a From db12c2a7e4f5f29a6989987eb92398233343ab7d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:05:03 +0000 Subject: [PATCH 257/276] (Fformat_mode_line, syms_of_xdisp): Use empty_unibyte_string. --- src/xdisp.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/xdisp.c b/src/xdisp.c index 55ab39fd5af..f3e1aa1112c 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -17342,7 +17342,7 @@ are the selected window and the window's buffer). */) CHECK_BUFFER (buffer); if (NILP (format)) - return build_string (""); + return empty_unibyte_string; if (no_props) face = Qnil; @@ -17400,7 +17400,7 @@ are the selected window and the window's buffer). */) { mode_line_string_list = Fnreverse (mode_line_string_list); str = Fmapconcat (intern ("identity"), mode_line_string_list, - make_string ("", 0)); + empty_unibyte_string); } unbind_to (count, Qnil); @@ -24081,7 +24081,7 @@ and is used only on frames for which no explicit name has been set = Vframe_title_format = Fcons (intern ("multiple-frames"), Fcons (build_string ("%b"), - Fcons (Fcons (empty_string, + Fcons (Fcons (empty_unibyte_string, Fcons (intern ("invocation-name"), Fcons (build_string ("@"), Fcons (intern ("system-name"), From e78bf986eb6dbabe55981757e77af35865859319 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:06:31 +0000 Subject: [PATCH 258/276] (x_term_init): Use empty_unibyte_string. --- src/xterm.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/xterm.c b/src/xterm.c index bc4fd366796..154465b7758 100644 --- a/src/xterm.c +++ b/src/xterm.c @@ -8357,7 +8357,7 @@ wm_supports (f, atomname) prop_atom, 0, max_len, False, target_type, &actual_type, &actual_format, &actual_size, &bytes_remaining, &tmp_data); - + if (rc != Success || actual_type != XA_WINDOW || x_had_errors_p (dpy)) { if (tmp_data) XFree (tmp_data); @@ -8412,7 +8412,7 @@ wm_supports (f, atomname) rc = 0; want_atom = XInternAtom (dpy, atomname, False); - for (i = 0; rc == 0 && i < dpyinfo->nr_net_supported_atoms; ++i) + for (i = 0; rc == 0 && i < dpyinfo->nr_net_supported_atoms; ++i) rc = dpyinfo->net_supported_atoms[i] == want_atom; x_uncatch_errors (); @@ -10649,7 +10649,7 @@ x_term_init (display_name, xrm_option, resource_name) UNBLOCK_INPUT; dpyinfo->kboard->Vsystem_key_alist = call1 (Qvendor_specific_keysyms, - build_string (vendor ? vendor : "")); + vendor ? build_string (vendor) : empty_unibyte_string); BLOCK_INPUT; } From 8b3ad112705f4c6e002c1808dbaf60001384f0fe Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:07:10 +0000 Subject: [PATCH 259/276] (Fx_get_atom_name): Use empty_unibyte_string. --- src/xselect.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xselect.c b/src/xselect.c index 3fe109a5b85..17dc7c0e7d3 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -2678,7 +2678,7 @@ If the value is 0 or the atom is not known, return the empty string. */) ret = make_string (name, strlen (name)); if (atom && name) XFree (name); - if (NILP (ret)) ret = make_string ("", 0); + if (NILP (ret)) ret = empty_unibyte_string; UNBLOCK_INPUT; From f130225375b6613c5d72adad98d2e8f9a257ed90 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:07:44 +0000 Subject: [PATCH 260/276] (sel_read): Use empty_unibyte_string. --- src/sunfns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sunfns.c b/src/sunfns.c index c532ae7f849..2d96ac66aef 100644 --- a/src/sunfns.c +++ b/src/sunfns.c @@ -287,7 +287,7 @@ sel_read (sel, file) register int i, n; register char *cp; - Current_Selection = make_string ("", 0); + Current_Selection = empty_unibyte_string; if (sel->sel_items <= 0) return (0); cp = (char *) malloc(sel->sel_items); From c60416e0c719543a2ce95d86e31affc921e109ee Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:08:39 +0000 Subject: [PATCH 261/276] (wordify): Use empty_unibyte_string. --- src/search.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/search.c b/src/search.c index abc28619199..c9c6dfdd242 100644 --- a/src/search.c +++ b/src/search.c @@ -2095,7 +2095,7 @@ wordify (string) if (SYNTAX (prev_c) == Sword) word_count++; if (!word_count) - return empty_string; + return empty_unibyte_string; adjust = - punct_count + 5 * (word_count - 1) + 4; if (STRING_MULTIBYTE (string)) From a2665596ddd12b8f11959103884b35ec43d4e782 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:09:20 +0000 Subject: [PATCH 262/276] (read_minibuf): Use empty_unibyte_string. --- src/minibuf.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/minibuf.c b/src/minibuf.c index db069aaf29e..94e06365a91 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -529,7 +529,7 @@ read_minibuf (map, initial, prompt, backup_n, expflag, GCPRO5 (map, initial, val, ambient_dir, input_method); if (!STRINGP (prompt)) - prompt = empty_string; + prompt = empty_unibyte_string; if (!enable_recursive_minibuffers && minibuf_level > 0) From de47a796fe209c698a6b3974b5633c458afabee4 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:10:01 +0000 Subject: [PATCH 263/276] (Fkey_description): Use empty_unibyte_string. --- src/keymap.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/keymap.c b/src/keymap.c index dbcf1d6fcfd..109ef250c8b 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -2188,7 +2188,7 @@ spaces are put between sequence elements, etc. */) len += 2; } else if (len == 0) - return empty_string; + return empty_unibyte_string; return Fconcat (len - 1, args); } From fcd69a29888e9e578169961dae3eee350616fd1d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:11:04 +0000 Subject: [PATCH 264/276] (cmd_error_internal): Use empty_unibyte_string. --- src/keyboard.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index ab2d50ad0ea..1837958dcfd 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -1249,7 +1249,7 @@ cmd_error_internal (data, context) /* Use user's specified output function if any. */ if (!NILP (Vcommand_error_function)) call3 (Vcommand_error_function, data, - build_string (context ? context : ""), + context ? build_string (context) : empty_unibyte_string, Vsignaling_function); /* If the window system or terminal frame hasn't been initialized yet, or we're not interactive, write the message to stderr and exit. */ From b116683c2e4525853a2636735b0d2ceccac9b230 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:11:56 +0000 Subject: [PATCH 265/276] (Fmapconcat): Use empty_unibyte_string. --- src/fns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fns.c b/src/fns.c index 661a3ea1887..379b1321e08 100644 --- a/src/fns.c +++ b/src/fns.c @@ -3134,7 +3134,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string. */) len = Flength (sequence); leni = XINT (len); nargs = leni + leni - 1; - if (nargs < 0) return build_string (""); + if (nargs < 0) return empty_unibyte_string; SAFE_ALLOCA_LISP (args, nargs); From 80bad45fc8052b3e13122d4843443bb2d77b3882 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:12:52 +0000 Subject: [PATCH 266/276] (Fread_file_name): Use empty_unibyte_string. --- src/fileio.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fileio.c b/src/fileio.c index 7156f22f57e..8e7b588322c 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -6430,7 +6430,7 @@ and `read-file-name-function'. */) if (! replace_in_history) add_to_history = 1; - val = empty_string; + val = empty_unibyte_string; } unbind_to (count, Qnil); From 977f6cfb17e96a49f0998dece38da6fce302d0ab Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 8 Jun 2007 20:18:14 +0000 Subject: [PATCH 267/276] (Fdelete_and_extract_region): Use empty_unibyte_string. --- src/ChangeLog | 35 +++++++++++++++++++++++++++++++++++ src/callint.c | 2 +- src/editfns.c | 2 +- 3 files changed, 37 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 9b88e6a2fa3..82eeaf3ad26 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,38 @@ +2007-06-08 Juanma Barranquero + + * callint.c (Fcall_interactively): + * editfns.c (Fdelete_and_extract_region): + * fileio.c (Fread_file_name): + * fns.c (Fmapconcat): + * keyboard.c (cmd_error_internal): + * keymap.c (Fkey_description): + * lread.c (openp): + * minibuf.c (read_minibuf): + * search.c (wordify): + * sunfns.c (sel_read): + * xdisp.c (Fformat_mode_line, syms_of_xdisp): + * xfns.c (x_default_scroll_bar_color_parameter): + * xmenu.c (menu_help_callback): + * xselect.c (Fx_get_atom_name): + * xterm.c (x_term_init): Use empty_unibyte_string. + +2007-06-08 Dmitry Antipov (tiny change) + + * alloc.c (init_strings): Initialize canonical empty strings. + (make_uninit_string, make_uninit_multibyte_string): Return appropriate + canonical empty string when the requested size is 0. + + * emacs.c (empty_unibyte_string): Rename from empty_string. + (empty_multibyte_string): New canonical empty string. + (syms_of_emacs): Don't initialize empty_string. + + * lisp.h (STRING_SET_UNIBYTE): Return the canonical empty unibyte + string, if appropriate. + (empty_unibyte_string, empty_multibyte_string): New externs. + (empty_string): Remove extern. + + * lread.c (syms_of_lread): Use empty_unibyte_string. + 2007-06-07 Jason Rumney * s/ms-w32.h: Don't define HAVE_TZNAME. diff --git a/src/callint.c b/src/callint.c index 39b2046e8fc..a989f9afe6d 100644 --- a/src/callint.c +++ b/src/callint.c @@ -585,7 +585,7 @@ invoke it. If KEYS is omitted or nil, the return value of case 'G': /* Possibly nonexistent file name, default to directory alone. */ args[i] = Fread_file_name (callint_message, - Qnil, Qnil, Qnil, build_string (""), Qnil); + Qnil, Qnil, Qnil, empty_unibyte_string, Qnil); break; case 'i': /* Ignore an argument -- Does not do I/O */ diff --git a/src/editfns.c b/src/editfns.c index 2f759a38dd0..aca3383943d 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -3031,7 +3031,7 @@ DEFUN ("delete-and-extract-region", Fdelete_and_extract_region, { validate_region (&start, &end); if (XINT (start) == XINT (end)) - return build_string (""); + return empty_unibyte_string; return del_range_1 (XINT (start), XINT (end), 1, 1); } From e0602e9ad78b9cbcad25856b95da1705e1d35659 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 8 Jun 2007 21:57:46 +0000 Subject: [PATCH 268/276] (css-navigation-syntax-table): Use set-char-table-range so it also works in the unicode branch. --- lisp/ChangeLog | 57 ++++++++++++++++++++------------------ lisp/textmodes/css-mode.el | 2 +- 2 files changed, 31 insertions(+), 28 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7a9c0ef5e87..0250180b176 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-08 Stefan Monnier + + * textmodes/css-mode.el (css-navigation-syntax-table): + Use set-char-table-range so it also works in the unicode branch. + 2007-06-08 Nick Roberts * help-mode.el (help-xref-forward-stack) @@ -32,8 +37,8 @@ * emacs-lisp/bytecomp.el (byte-compile-warnings): Add new option `make-local'. (byte-compile-warnings-safe-p): Add `make-local'. - (byte-compile-make-variable-buffer-local): Allow - byte-compile-warnings to suppress this warning. + (byte-compile-make-variable-buffer-local): + Allow byte-compile-warnings to suppress this warning. * tutorial.el (tutorial--describe-nonstandard-key): Adjust for new format of "menu" description. @@ -100,8 +105,8 @@ (org-table-fedit-shift-reference, org-table-fedit-abort) (org-closest-date, org-shiftcontrolleft) (org-at-heading-or-item-p, org-rematch-and-replace) - (org-agenda-todo-nextset, org-export-grab-title-from-buffer): New - function. + (org-agenda-todo-nextset, org-export-grab-title-from-buffer): + New functions. (org-table-edit-scroll-down, org-finish-edit-formulas) (org-table-edit-next-field, org-abort-edit-formulas) (org-font-lock-level, org-export-find-first-heading-line) @@ -112,8 +117,8 @@ (org-agenda-file-to-end, org-expand-file-name) (org-fake-empty-table-line, org-table-edit-scroll) (org-toggle-log-option, org-show-reference): Function removed. - (org-inhibit-invisibility, org-table-formula-make-cmp-string): New - defsubst. + (org-inhibit-invisibility, org-table-formula-make-cmp-string): + New defsubsts. (org-unmodified, org-batch-store-agenda-views) (org-batch-agenda-csv): New macro. (org-agenda-export): New customization group. @@ -145,32 +150,30 @@ (org-todo-kwd-priority-p, org-edit-formulas-map) (org-repeat-re, org-todo-kwd-max-priority) (org-version, org-done-string) - (org-table-clean-did-remove-column-1, org-disputed-keys): Variable - removed. - (org-table-translate-regexp, org-repeat-re, org-version): New - constant. + (org-table-clean-did-remove-column-1, org-disputed-keys): + Remove Variables. + (org-table-translate-regexp, org-repeat-re, org-version): New consts. (org-ts-lengths): Constant removed. (org-follow-gnus-link): Don't ask how many articles to read. - (org-export-find-first-export-line): Renamed from - `org-export-find-first-heading'. Use - `org-export-skip-text-before-1st-heading'. - (org-table-fedit-post-command): Renamed from + (org-export-find-first-export-line): Rename from + `org-export-find-first-heading'. + Use `org-export-skip-text-before-1st-heading'. + (org-table-fedit-post-command): Rename from `org-table-edit-formulas-post-command'. - (org-table-fedit-finish): Renamed from `org-finish-edit-formulas'. - (org-table-fedit-abort): Renamed from `org-abort-edit-formulas'. - (org-table-fedit-lisp-indent): Renamed from + (org-table-fedit-finish): Rename from `org-finish-edit-formulas'. + (org-table-fedit-abort): Rename from `org-abort-edit-formulas'. + (org-table-fedit-lisp-indent): Rename from `org-edit-formula-lisp-indent'. - (org-table-show-reference): Renamed from `org-show-reference'. + (org-table-show-reference): Rename from `org-show-reference'. (org-table-store-formulas): Use `org-table-formula-less-p'. - (org-table-edit-formulas): Position cursor to current field - equation. + (org-table-edit-formulas): Position cursor to current field equation. (org-update-checkbox-count, org-hide-archived-subtrees) (org-timestamp-up-day, org-timestamp-down-day) (org-shiftmetaleft, org-shiftmetaright, org-shiftmetaup) (org-shiftmetadown, org-metaleft, org-metaright, org-metaup) (org-metadown, org-shiftup, org-shiftdown, org-shiftright) - (org-shiftleft, org-ctrl-c-ctrl-c, org-context): Let - `org-on-heading-p' also check for invisible heading. + (org-shiftleft, org-ctrl-c-ctrl-c, org-context): + Let `org-on-heading-p' also check for invisible heading. (org-read-date): Match am/pm times. (org-eval-in-calendar): Fix default date in prompt. @@ -405,8 +408,8 @@ 2007-05-22 Katsumi Yamaoka (tiny change) - * mail/mail-extr.el (mail-extract-address-components): Recognize - non-ASCII characters except for NBSP as words. + * mail/mail-extr.el (mail-extract-address-components): + Recognize non-ASCII characters except for NBSP as words. 2007-05-21 Trent Buck (tiny change) @@ -417,8 +420,8 @@ 2007-05-21 Chong Yidong * image-mode.el (image-toggle-display): Don't clear image cache. - Only use filename in image spec if the file is readable. Call - image-refresh. + Only use filename in image spec if the file is readable. + Call image-refresh. * image.el (image-type-from-file-name, image-type): Simplify. (image-type-auto-detected-p): Don't scan auto-mode-alist. @@ -465,7 +468,7 @@ 2007-05-18 Rob Riepel - * emulation/tpu-edt.el (CSI-map, SS3-map): Moved from global-map to + * emulation/tpu-edt.el (CSI-map, SS3-map): Move from global-map to tpu-global-map. (tpu-original-global-map): Variable deleted. (tpu-control-keys-map): New keymap variable. diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index 8bf9ac2ee96..00a438a3e95 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -347,7 +347,7 @@ (map-char-table (lambda (c v) ;; Turn punctuation (code = 1) into symbol (code = 1). (if (eq (car-safe v) 1) - (aset st c (cons 3 (cdr v))))) + (set-char-table-range st c (cons 3 (cdr v))))) st) st)) From 7d6ee4dfc6837acec8cd7d7a1dbb8cd28650c01b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 9 Jun 2007 00:09:03 +0000 Subject: [PATCH 269/276] (desktop-minor-mode-table): Doc fix. --- lisp/desktop.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/desktop.el b/lisp/desktop.el index 92f6a448574..e44e943db3e 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -423,7 +423,7 @@ Furthermore the major mode function must be autoloaded.") Each entry has the form (NAME RESTORE-FUNCTION). NAME is the name of the buffer-local variable indicating that the minor mode is active. RESTORE-FUNCTION is the function to activate the minor mode. -called. RESTORE-FUNCTION nil means don't try to restore the minor mode. +RESTORE-FUNCTION nil means don't try to restore the minor mode. Only minor modes for which the name of the buffer-local variable and the name of the minor mode function are different have to be added to this table. See also `desktop-minor-mode-handlers'." From 9258f2efcf2372c5aa43ea600c7288bf785e2200 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 9 Jun 2007 00:14:06 +0000 Subject: [PATCH 270/276] *** empty log message *** --- lisp/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0250180b176..17e2d778258 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-09 Davis Herring + + * desktop.el (desktop-minor-mode-table): Doc fix. + 2007-06-08 Stefan Monnier * textmodes/css-mode.el (css-navigation-syntax-table): From ab3c4f67456c6f83526b2f76c457f411985e7718 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 9 Jun 2007 12:53:04 +0000 Subject: [PATCH 271/276] (rmail-movemail-variant-in-use): Fix doc typo. --- lisp/ChangeLog | 4 ++++ lisp/mail/rmail.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c96aa474075..337e0be3ef9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-06-09 Alfred M. Szmidt (tiny change) + + * mail/rmail.el (rmail-movemail-variant-in-use): Fix doc typo. + 2007-06-09 Davis Herring * desktop.el (desktop-minor-mode-table): Doc fix. diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 13aba1a3fb0..2a2f0355ab2 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -228,7 +228,7 @@ Otherwise, look for `movemail' in the directories in `emacs' Means any implementation, compatible with the native Emacs one. This is the default; `mailutils' Means GNU mailutils implementation, capable of handling full -mail URLs as the source mailbox;") +mail URLs as the source mailbox.") ;;;###autoload (defun rmail-movemail-variant-p (&rest variants) From 089a966d56ff9cbbae5ca5b3af4694da7ca6dcaa Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 9 Jun 2007 22:31:59 +0000 Subject: [PATCH 272/276] Regenerate, and apply by hand super-special-shell-function-message-patch. --- configure | 141 +++++++++++++++++++++++++++++++++++++++++------------- 1 file changed, 109 insertions(+), 32 deletions(-) diff --git a/configure b/configure index 4ce0eb92a81..b630c429f93 100755 --- a/configure +++ b/configure @@ -412,10 +412,10 @@ else fi test \$exitcode = 0") || { - echo No shell found that supports shell functions. - echo Please tell autoconf@gnu.org about your system, - echo including any error possibly output before this - echo message + echo Please tell bug-autoconf@gnu.org about your system, + echo including any error possibly output before this message. + echo This can help us improve future autoconf versions. + echo Configuration will now proceed without shell functions. } @@ -1891,7 +1891,7 @@ fi # Check whether --with-x-toolkit was given. if test "${with_x_toolkit+set}" = set; then withval=$with_x_toolkit; case "${withval}" in - y | ye | yes ) val=athena ;; + y | ye | yes ) val=gtk ;; n | no ) val=no ;; l | lu | luc | luci | lucid ) val=lucid ;; a | at | ath | athe | athen | athena ) val=athena ;; @@ -1900,10 +1900,10 @@ if test "${with_x_toolkit+set}" = set; then * ) { { echo "$as_me:$LINENO: error: \`--with-x-toolkit=$withval' is invalid\; this option's value should be \`yes', \`no', \`lucid', \`athena', \`motif' or \`gtk'. -Currently, \`yes', \`athena' and \`lucid' are synonyms." >&5 +Currently, \`yes' and \`gtk', and \`athena' and \`lucid' are synonyms." >&5 echo "$as_me: error: \`--with-x-toolkit=$withval' is invalid\; this option's value should be \`yes', \`no', \`lucid', \`athena', \`motif' or \`gtk'. -Currently, \`yes', \`athena' and \`lucid' are synonyms." >&2;} +Currently, \`yes' and \`gtk', and \`athena' and \`lucid' are synonyms." >&2;} { (exit 1); exit 1; }; } ;; esac @@ -3002,14 +3002,8 @@ _ACEOF ;; *-sunos5* | *-solaris* ) opsys=sol2-6 -## FIXME: make this into a proper fix that checks the compiler type, -## rather than relying on path. Or is /usr/ccs/lib/cpp a bad default now? - if [ "x$CC" = x/opt/SUNWspro/bin/cc ]; then - ## -Xs prevents spurious whitespace. - NON_GNU_CPP="/opt/SUNWspro/bin/cc -E -Xs" - else - NON_GNU_CPP=/usr/ccs/lib/cpp - fi + emacs_check_sunpro_c=yes + NON_GNU_CPP=/usr/ccs/lib/cpp ;; * ) opsys=bsd4-2 ;; esac @@ -4165,6 +4159,72 @@ if test -n "$CPP" && test -d "$CPP"; then CPP= fi +## If not using gcc, and on Solaris, and no CPP specified, see if +## using a Sun compiler, which needs -Xs to prevent whitespace. +if test x"$GCC" != xyes && test x"$emacs_check_sunpro_c" = xyes && \ + test x"$CPP" = x; then + { echo "$as_me:$LINENO: checking whether we are using a Sun C compiler" >&5 +echo $ECHO_N "checking whether we are using a Sun C compiler... $ECHO_C" >&6; } + +if test "${emacs_cv_sunpro_c+set}" = set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +int +main () +{ +#ifndef __SUNPRO_C +fail; +#endif + + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 + (eval "$ac_link") 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest$ac_exeext && + $as_test_x conftest$ac_exeext; then + emacs_cv_sunpro_c=yes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + emacs_cv_sunpro_c=no +fi + +rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \ + conftest$ac_exeext conftest.$ac_ext +fi + + { echo "$as_me:$LINENO: result: $emacs_cv_sunpro_c" >&5 +echo "${ECHO_T}$emacs_cv_sunpro_c" >&6; } + + if test x"$emacs_cv_sunpro_c" = xyes; then + NON_GNU_CPP="$CC -E -Xs" + fi +fi + #### Some systems specify a CPP to use unless we are using GCC. #### Now that we know whether we are using GCC, we can decide whether #### to use that one. @@ -4192,7 +4252,6 @@ then CC="$CC $NON_GCC_TEST_OPTIONS" fi - ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -9509,7 +9568,13 @@ case "${window_system}" in gtk ) with_gtk=yes USE_X_TOOLKIT=none ;; no ) USE_X_TOOLKIT=none ;; - * ) USE_X_TOOLKIT=maybe ;; + * ) + if test x"$with_gtk" = xyes; then + USE_X_TOOLKIT=none + else + USE_X_TOOLKIT=maybe + fi + ;; esac ;; mac | none ) @@ -10944,7 +11009,8 @@ HAVE_GTK=no if test "${with_gtk}" = "yes" && test "$USE_X_TOOLKIT" = "gtk"; then USE_X_TOOLKIT=none fi -if test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "gtk"; then +if test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "gtk" || \ + test "$USE_X_TOOLKIT" = "maybe"; then if test "$USE_X_TOOLKIT" != "none" && test "$USE_X_TOOLKIT" != "maybe"; then { { echo "$as_me:$LINENO: error: Conflicting options, --with-gtk is incompatible with --with-x-toolkit=${with_x_toolkit}" >&5 echo "$as_me: error: Conflicting options, --with-gtk is incompatible with --with-x-toolkit=${with_x_toolkit}" >&2;} @@ -11005,11 +11071,7 @@ fi fi if test "$PKG_CONFIG" = "no" ; then - { { echo "$as_me:$LINENO: error: - *** The pkg-config script could not be found. Make sure it is in your path, or give the full path to pkg-config with the PKG_CONFIG environment variable or --with-pkg-config-prog. Or see http://www.freedesktop.org/software/pkgconfig to get pkg-config." >&5 -echo "$as_me: error: - *** The pkg-config script could not be found. Make sure it is in your path, or give the full path to pkg-config with the PKG_CONFIG environment variable or --with-pkg-config-prog. Or see http://www.freedesktop.org/software/pkgconfig to get pkg-config." >&2;} - { (exit 1); exit 1; }; } + pkg_check_gtk=no else PKG_CONFIG_MIN_VERSION=0.9.0 if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then @@ -11040,7 +11102,7 @@ echo "${ECHO_T}no" >&6; } ## If we have a custom action on failure, don't print errors, but ## do set a variable so people can do so. GTK_PKG_ERRORS=`$PKG_CONFIG --errors-to-stdout --print-errors "$GTK_MODULES"` - echo $GTK_PKG_ERRORS + fi @@ -11052,12 +11114,20 @@ echo "${ECHO_T}no" >&6; } fi if test $succeeded = yes; then - : + pkg_check_gtk=yes else - { { echo "$as_me:$LINENO: error: Library requirements ($GTK_MODULES) not met; consider adjusting the PKG_CONFIG_PATH environment variable if your libraries are in a nonstandard prefix so pkg-config can find them." >&5 -echo "$as_me: error: Library requirements ($GTK_MODULES) not met; consider adjusting the PKG_CONFIG_PATH environment variable if your libraries are in a nonstandard prefix so pkg-config can find them." >&2;} + pkg_check_gtk=no + fi + + if test "$pkg_check_gtk" = "no" && test "$USE_X_TOOLKIT" != "maybe"; then + { { echo "$as_me:$LINENO: error: $GTK_PKG_ERRORS" >&5 +echo "$as_me: error: $GTK_PKG_ERRORS" >&2;} { (exit 1); exit 1; }; } fi +fi + + +if test x"$pkg_check_gtk" = xyes; then @@ -11160,18 +11230,25 @@ fi done if test "${GTK_COMPILES}" != "yes"; then - { { echo "$as_me:$LINENO: error: Gtk+ wanted, but it does not compile, see config.log. Maybe some x11-devel files missing?" >&5 + if test "$USE_X_TOOLKIT" != "maybe"; then + { { echo "$as_me:$LINENO: error: Gtk+ wanted, but it does not compile, see config.log. Maybe some x11-devel files missing?" >&5 echo "$as_me: error: Gtk+ wanted, but it does not compile, see config.log. Maybe some x11-devel files missing?" >&2;} { (exit 1); exit 1; }; }; - fi - - HAVE_GTK=yes + fi + else + HAVE_GTK=yes cat >>confdefs.h <<\_ACEOF #define HAVE_GTK 1 _ACEOF - USE_X_TOOLKIT=none + USE_X_TOOLKIT=none + fi + +fi + + +if test "${HAVE_GTK}" = "yes"; then if test "$with_toolkit_scroll_bars" != no; then with_toolkit_scroll_bars=yes From 7940bf7dc0a572e6d05bb198c738b436657210f1 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sun, 10 Jun 2007 16:15:10 +0000 Subject: [PATCH 273/276] (byte-compile-find-cl-functions): Match against file-name-nondirectory. Fix text on user customization variables. --- lisp/ChangeLog | 7 +++++++ lisp/emacs-lisp/bytecomp.el | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 337e0be3ef9..c0b00b8fbb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2007-06-10 Martin Rudalics + + * emacs-lisp/bytecomp.el (byte-compile-find-cl-functions): Match + against file-name-nondirectory. + Fix text on user customization variables. + Reported by Johan Bockg,Ae(Brd . + 2007-06-09 Alfred M. Szmidt (tiny change) * mail/rmail.el (rmail-movemail-variant-in-use): Fix doc typo. diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0a37f098a7b..619b7533ca7 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -98,7 +98,7 @@ ;; `obsolete' (obsolete variables and functions) ;; `noruntime' (calls to functions only defined ;; within `eval-when-compile') -;; `cl-warnings' (calls to CL functions) +;; `cl-functions' (calls to CL functions) ;; `interactive-only' (calls to commands that are ;; not good to call from Lisp) ;; `make-local' (dubious calls to @@ -1348,7 +1348,8 @@ extra args." (unless byte-compile-cl-functions (dolist (elt load-history) (when (and (stringp (car elt)) - (string-match "^cl\\>" (car elt))) + (string-match + "^cl\\>" (file-name-nondirectory (car elt)))) (setq byte-compile-cl-functions (append byte-compile-cl-functions (cdr elt))))) From 843d24582cc0f542fdeb858dd004dc4cb18b761c Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 10 Jun 2007 23:38:37 +0000 Subject: [PATCH 274/276] (Fx_file_dialog): Take size from struct not pointer. --- src/ChangeLog | 4 ++++ src/w32fns.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 993a889293d..a2e1e5b8484 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-10 Jason Rumney + + * w32fns.c (Fx_file_dialog): Take size from struct not pointer. + 2007-06-08 Juanma Barranquero * callint.c (Fcall_interactively): diff --git a/src/w32fns.c b/src/w32fns.c index 8cac4ea2376..fd8df29affa 100644 --- a/src/w32fns.c +++ b/src/w32fns.c @@ -7902,9 +7902,9 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */) /* Apparently NT4 crashes if you give it an unexpected size. I'm not sure about Windows 9x, so play it safe. */ if (w32_major_version > 4 && w32_major_version < 95) - file_details->lStructSize = sizeof (new_file_details); + file_details->lStructSize = sizeof (NEWOPENFILENAME); else - file_details->lStructSize = sizeof (file_details); + file_details->lStructSize = sizeof (OPENFILENAME); file_details->hwndOwner = FRAME_W32_WINDOW (f); /* Undocumented Bug in Common File Dialog: From 60b4b29868b65a17da34328f69947727264cfc31 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 11 Jun 2007 00:23:06 +0000 Subject: [PATCH 275/276] (server-switch-buffer): Remove redundant check. --- lisp/ChangeLog | 8 ++++++-- lisp/server.el | 3 +-- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0b00b8fbb1..7ab55f730a3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,11 @@ +2007-06-11 Juanma Barranquero + + * server.el (server-switch-buffer): Remove redundant check. + 2007-06-10 Martin Rudalics - * emacs-lisp/bytecomp.el (byte-compile-find-cl-functions): Match - against file-name-nondirectory. + * emacs-lisp/bytecomp.el (byte-compile-find-cl-functions): + Match against file-name-nondirectory. Fix text on user customization variables. Reported by Johan Bockg,Ae(Brd . diff --git a/lisp/server.el b/lisp/server.el index 690f51034f2..2cf2a2e3953 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -735,8 +735,7 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it." (select-window win) (set-buffer next-buffer)) ;; Otherwise, let's find an appropriate window. - (cond ((and (windowp server-window) - (window-live-p server-window)) + (cond ((window-live-p server-window) (select-window server-window)) ((framep server-window) (unless (frame-live-p server-window) From 2d715b39ea1c89066f469405d065dd1a6631d28e Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 11 Jun 2007 00:56:04 +0000 Subject: [PATCH 276/276] Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 227-228) - Update from CVS 2007-06-08 Katsumi Yamaoka * lisp/gnus/gnus-ems.el (gnus-x-splash): Make it work. * lisp/gnus/gnus-start.el (gnus-1): Relax restrictions that prevent gnus-x-splash from being used. * lisp/gnus/gnus-art.el (gnus-article-summary-command-nosave): Correct the order of the arguments passed to pop-to-buffer. (gnus-article-read-summary-keys): Ditto. 2007-06-06 Andreas Seltenreich * man/gnus.texi (Misc Group Stuff, Summary Buffer) (Server Commands, Article Keymap): Fix typo. s/function/command/. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-792 --- lisp/gnus/ChangeLog | 11 ++++ lisp/gnus/gnus-art.el | 8 +-- lisp/gnus/gnus-ems.el | 123 +++++++++++++++++++++++++++++----------- lisp/gnus/gnus-start.el | 3 +- man/ChangeLog | 5 ++ man/gnus.texi | 16 +++--- 6 files changed, 118 insertions(+), 48 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4958577588e..17ef7f996b3 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,14 @@ +2007-06-08 Katsumi Yamaoka + + * gnus-ems.el (gnus-x-splash): Make it work. + + * gnus-start.el (gnus-1): Relax restrictions that prevent gnus-x-splash + from being used. + + * gnus-art.el (gnus-article-summary-command-nosave): Correct the order + of the arguments passed to pop-to-buffer. + (gnus-article-read-summary-keys): Ditto. + 2007-06-07 Juanma Barranquero * gnus-art.el (gnus-split-methods): Fix typo in docstring. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index eb31ae415cc..90af0740318 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -5607,7 +5607,7 @@ not have a face in `gnus-article-boring-faces'." "Execute the last keystroke in the summary buffer." (interactive) (let (func) - (pop-to-buffer gnus-article-current-summary 'norecord) + (pop-to-buffer gnus-article-current-summary nil 'norecord) (setq func (lookup-key (current-local-map) (this-command-keys))) (call-interactively func))) @@ -5646,7 +5646,7 @@ not have a face in `gnus-article-boring-faces'." (member keys nosave-in-article)) (let (func) (save-window-excursion - (pop-to-buffer gnus-article-current-summary 'norecord) + (pop-to-buffer gnus-article-current-summary nil 'norecord) ;; We disable the pick minor mode commands. (let (gnus-pick-mode) (setq func (lookup-key (current-local-map) keys)))) @@ -5658,14 +5658,14 @@ not have a face in `gnus-article-boring-faces'." (call-interactively func) (setq new-sum-point (point))) (when (member keys nosave-but-article) - (pop-to-buffer gnus-article-buffer 'norecord))) + (pop-to-buffer gnus-article-buffer nil 'norecord))) ;; These commands should restore window configuration. (let ((obuf (current-buffer)) (owin (current-window-configuration)) (opoint (point)) win func in-buffer selected new-sum-start new-sum-hscroll) (cond (not-restore-window - (pop-to-buffer gnus-article-current-summary 'norecord)) + (pop-to-buffer gnus-article-current-summary nil 'norecord)) ((setq win (get-buffer-window gnus-article-current-summary)) (select-window win)) (t diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el index 60e66adc98b..4400b81f041 100644 --- a/lisp/gnus/gnus-ems.el +++ b/lisp/gnus/gnus-ems.el @@ -172,40 +172,95 @@ (defun gnus-x-splash () "Show a splash screen using a pixmap in the current buffer." - (let ((dir (nnheader-find-etc-directory "gnus")) - pixmap file height beg i) - (save-excursion - (switch-to-buffer (gnus-get-buffer-create gnus-group-buffer)) - (let ((buffer-read-only nil) - width height) - (erase-buffer) - (when (and dir - (file-exists-p (setq file - (expand-file-name "x-splash" dir)))) - (let ((coding-system-for-read 'raw-text) - default-enable-multibyte-characters) - (with-temp-buffer - (insert-file-contents file) - (goto-char (point-min)) - (ignore-errors - (setq pixmap (read (current-buffer))))))) - (when pixmap - (make-face 'gnus-splash) - (setq height (/ (car pixmap) (frame-char-height)) - width (/ (cadr pixmap) (frame-char-width))) - (set-face-foreground 'gnus-splash "Brown") - (set-face-stipple 'gnus-splash pixmap) - (insert-char ?\n (* (/ (window-height) 2 height) height)) - (setq i height) - (while (> i 0) - (insert-char ?\ (* (/ (window-width) 2 width) width)) - (setq beg (point)) - (insert-char ?\ width) - (set-text-properties beg (point) '(face gnus-splash)) - (insert ?\n) - (decf i)) - (goto-char (point-min)) - (sit-for 0)))))) + (interactive) + (unless window-system + (error "`gnus-x-splash' requires running on the window system")) + (switch-to-buffer (gnus-get-buffer-create (if (or (gnus-alive-p) + (interactive-p)) + "*gnus-x-splash*" + gnus-group-buffer))) + (let ((inhibit-read-only nil) + (file (nnheader-find-etc-directory "images/gnus/x-splash" t)) + pixmap fcw fch width height fringes sbars left yoffset top ls) + (erase-buffer) + (when (and file + (ignore-errors + (let ((coding-system-for-read 'raw-text) + default-enable-multibyte-characters) + (with-temp-buffer + (insert-file-contents file) + (goto-char (point-min)) + (setq pixmap (read (current-buffer))))))) + (setq fcw (float (frame-char-width)) + fch (float (frame-char-height)) + width (/ (car pixmap) fcw) + height (/ (cadr pixmap) fch) + fringes (if (fboundp 'window-fringes) + (eval '(window-fringes)) + '(10 11 nil)) + sbars (frame-parameter nil 'vertical-scroll-bars)) + (cond ((eq sbars 'right) + (setq sbars + (cons 0 (/ (or (frame-parameter nil 'scroll-bar-width) 14) + fcw)))) + (sbars + (setq sbars + (cons (/ (or (frame-parameter nil 'scroll-bar-width) 14) + fcw) + 0)))) + (setq left (- (* (round (/ (1- (/ (+ (window-width) + (car sbars) (cdr sbars) + (/ (+ (or (car fringes) 0) + (or (cadr fringes) 0)) + fcw)) + width)) + 2)) + width) + (car sbars) + (/ (or (car fringes) 0) fcw)) + yoffset (cadr (window-edges)) + top (max 0 (- (* (max (if (and tool-bar-mode + (not (featurep 'gtk)) + (eq (frame-first-window) + (selected-window))) + 1 0) + (round (/ (1- (/ (+ (1- (window-height)) + (* 2 yoffset)) + height)) + 2))) + height) + yoffset)) + ls (/ (or line-spacing 0) fch) + height (max 0 (- height ls))) + (cond ((>= (- top ls) 1) + (insert + (propertize + " " + 'display `(space :width 0 :ascent 100)) + "\n" + (propertize + " " + 'display `(space :width 0 :height ,(- top ls 1) :ascent 100)) + "\n")) + ((> (- top ls) 0) + (insert + (propertize + " " + 'display `(space :width 0 :height ,(- top ls) :ascent 100)) + "\n"))) + (if (and (> width 0) (> left 0)) + (insert (propertize + " " + 'display `(space :width ,left :height ,height :ascent 0))) + (setq width (+ width left))) + (when (> width 0) + (insert (propertize + " " + 'display `(space :width ,width :height ,height :ascent 0) + 'face `(gnus-splash :stipple ,pixmap)))) + (goto-char (if (<= (- top ls) 0) (1- (point)) (point-min))) + (redraw-frame (selected-frame)) + (sit-for 0)))) ;;; Image functions. diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 9fbab8b340b..d906cec6c6a 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -758,8 +758,7 @@ prompt the user for the name of an NNTP server to use." (cond ((featurep 'xemacs) (gnus-xmas-splash)) - ((and window-system - (= (frame-height) (1+ (window-height)))) + (window-system (gnus-x-splash)))) (let ((level (and (numberp arg) (> arg 0) arg)) diff --git a/man/ChangeLog b/man/ChangeLog index 944c36bd0fd..e216f6ab7c3 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,8 @@ +2007-06-06 Andreas Seltenreich + + * gnus.texi (Misc Group Stuff, Summary Buffer) + (Server Commands, Article Keymap): Fix typo. s/function/command/. + 2007-06-07 Alan Mackenzie * display.texi (Optional Mode Line): Document the new form of diff --git a/man/gnus.texi b/man/gnus.texi index a3026251cb1..85167d53432 100644 --- a/man/gnus.texi +++ b/man/gnus.texi @@ -4084,8 +4084,8 @@ happens. You just have to be careful if you do stuff like that. @item v @kindex v (Group) @cindex keys, reserved for users (Group) -The key @kbd{v} is reserved for users. You can bind it key to some -function or better use it as a prefix key. For example: +The key @kbd{v} is reserved for users. You can bind it to some +command or better use it as a prefix key. For example: @lisp (define-key gnus-group-mode-map (kbd "v j d") @@ -4498,8 +4498,8 @@ available in Emacs. @kindex v (Summary) @cindex keys, reserved for users (Summary) -The key @kbd{v} is reserved for users. You can bind it key to some -function or better use it as a prefix key. For example: +The key @kbd{v} is reserved for users. You can bind it to some +command or better use it as a prefix key. For example: @lisp (define-key gnus-summary-mode-map (kbd "v -") "LrS") ;; lower subthread @end lisp @@ -11422,8 +11422,8 @@ buffer. @kindex v (Article) @cindex keys, reserved for users (Article) -The key @kbd{v} is reserved for users. You can bind it key to some -function or better use it as a prefix key. +The key @kbd{v} is reserved for users. You can bind it to some +command or better use it as a prefix key. A few additional keystrokes are available: @@ -12460,8 +12460,8 @@ Also @pxref{Formatting Variables}. @item v @kindex v (Server) @cindex keys, reserved for users (Server) -The key @kbd{v} is reserved for users. You can bind it key to some -function or better use it as a prefix key. +The key @kbd{v} is reserved for users. You can bind it to some +command or better use it as a prefix key. @item a @kindex a (Server)
    " . "" . "
    " x "" x "
    " x "" x "
    ") + (let ((vals-string (buffer-substring (point) + (progn + (re-search-forward "[ \t\n]+|[ \t\n]+inherit") + (match-beginning 0))))) + ;; + (push (cons prop (css-extract-parse-val-grammar vals-string props)) + props))))) + props))) + +;; Extraction was done with: +;; (css-extract-keyword-list +;; '((pseudo . "^ +\\* :\\([^ \n,]+\\)") +;; (at . "^ +\\* @\\([^ \n,]+\\)") +;; (descriptor . "^ +\\* '\\([^ '\n]+\\)' (descriptor)") +;; (media . "^ +\\* '\\([^ '\n]+\\)' media group") +;; (property . "^ +\\* '\\([^ '\n]+\\)',"))) + +(defconst css-pseudo-ids + '("active" "after" "before" "first" "first-child" "first-letter" "first-line" + "focus" "hover" "lang" "left" "link" "right" "visited") + "Identifiers for pseudo-elements and pseudo-classes.") + +(defconst css-at-ids + '("charset" "font-face" "import" "media" "page") + "Identifiers that appear in the form @foo.") + +(defconst css-descriptor-ids + '("ascent" "baseline" "bbox" "cap-height" "centerline" "definition-src" + "descent" "font-family" "font-size" "font-stretch" "font-style" + "font-variant" "font-weight" "mathline" "panose-1" "slope" "src" "stemh" + "stemv" "topline" "unicode-range" "units-per-em" "widths" "x-height") + "Identifiers for font descriptors.") + +(defconst css-media-ids + '("all" "aural" "bitmap" "continuous" "grid" "paged" "static" "tactile" + "visual") + "Identifiers for types of media.") + +(defconst css-property-ids + '("azimuth" "background" "background-attachment" "background-color" + "background-image" "background-position" "background-repeat" "block" + "border" "border-bottom" "border-bottom-color" "border-bottom-style" + "border-bottom-width" "border-collapse" "border-color" "border-left" + "border-left-color" "border-left-style" "border-left-width" "border-right" + "border-right-color" "border-right-style" "border-right-width" + "border-spacing" "border-style" "border-top" "border-top-color" + "border-top-style" "border-top-width" "border-width" "bottom" + "caption-side" "clear" "clip" "color" "compact" "content" + "counter-increment" "counter-reset" "cue" "cue-after" "cue-before" + "cursor" "dashed" "direction" "display" "dotted" "double" "elevation" + "empty-cells" "float" "font" "font-family" "font-size" "font-size-adjust" + "font-stretch" "font-style" "font-variant" "font-weight" "groove" "height" + "hidden" "inline" "inline-table" "inset" "left" "letter-spacing" + "line-height" "list-item" "list-style" "list-style-image" + "list-style-position" "list-style-type" "margin" "margin-bottom" + "margin-left" "margin-right" "margin-top" "marker-offset" "marks" + "max-height" "max-width" "min-height" "min-width" "orphans" "outline" + "outline-color" "outline-style" "outline-width" "outset" "overflow" + "padding" "padding-bottom" "padding-left" "padding-right" "padding-top" + "page" "page-break-after" "page-break-before" "page-break-inside" "pause" + "pause-after" "pause-before" "pitch" "pitch-range" "play-during" "position" + "quotes" "richness" "ridge" "right" "run-in" "size" "solid" "speak" + "speak-header" "speak-numeral" "speak-punctuation" "speech-rate" "stress" + "table" "table-caption" "table-cell" "table-column" "table-column-group" + "table-footer-group" "table-header-group" "table-layout" "table-row" + "table-row-group" "text-align" "text-decoration" "text-indent" + "text-shadow" "text-transform" "top" "unicode-bidi" "vertical-align" + "visibility" "voice-family" "volume" "white-space" "widows" "width" + "word-spacing" "z-index") + "Identifiers for properties.") + +(defcustom css-electrick-keys '(?\} ?\;) ;; '() + "Self inserting keys which should trigger re-indentation." + :type '(repeat character) + :options '((?\} ?\;))) + +(defvar css-mode-syntax-table + (let ((st (make-syntax-table))) + ;; C-style comments. + (modify-syntax-entry ?/ ". 14" st) + (modify-syntax-entry ?* ". 23" st) + ;; Strings. + (modify-syntax-entry ?\" "\"" st) + (modify-syntax-entry ?\' "\"" st) + ;; Blocks. + (modify-syntax-entry ?\{ "(}" st) + (modify-syntax-entry ?\} "){" st) + ;; Args in url(...) thingies and other "function calls". + (modify-syntax-entry ?\( "()" st) + (modify-syntax-entry ?\) ")(" st) + ;; To match attributes in selectors. + (modify-syntax-entry ?\[ "(]" st) + (modify-syntax-entry ?\] ")[" st) + ;; Special chars that sometimes come at the beginning of words. + (modify-syntax-entry ?@ "'" st) + ;; (modify-syntax-entry ?: "'" st) + (modify-syntax-entry ?# "'" st) + ;; Distinction between words and symbols. + (modify-syntax-entry ?- "_" st) + st)) + +(defconst css-escapes-re + "\\\\\\(?:[^\000-\037\177]\\|[0-9a-fA-F]+[ \n\t\r\f]?\\)") +(defconst css-nmchar-re (concat "\\(?:[-[:alnum:]]\\|" css-escapes-re "\\)")) +(defconst css-nmstart-re (concat "\\(?:[[:alpha:]]\\|" css-escapes-re "\\)")) +(defconst css-ident-re (concat css-nmstart-re css-nmchar-re "*")) +(defconst css-name-re (concat css-nmchar-re "+")) + +(defface css-selector '((t :inherit font-lock-function-name-face)) + "Face to use for selectors.") +(defface css-property '((t :inherit font-lock-variable-name-face)) + "Face to use for properties.") + +(defvar css-font-lock-keywords + `(("!\\s-*important" . font-lock-builtin-face) + ;; Atrules keywords. IDs not in css-at-ids are valid (ignored). + ;; In fact the regexp should probably be + ;; (,(concat "\\(@" css-ident-re "\\)\\([ \t\n][^;{]*\\)[;{]") + ;; (1 font-lock-builtin-face)) + ;; Since "An at-rule consists of everything up to and including the next + ;; semicolon (;) or the next block, whichever comes first." + (,(concat "@" css-ident-re) . font-lock-builtin-face) + ;; Selectors. + ;; FIXME: attribute selectors don't work well because they may contain + ;; strings which have already been highlighted as f-l-string-face and + ;; thus prevent this highlighting from being applied (actually now that + ;; I use `append' this should work better). But really the part of hte + ;; selector between [...] should simply not be highlighted. + (,(concat "^\\([ \t]*[^@:{\n][^:{\n]+\\(?::" (regexp-opt css-pseudo-ids t) + "\\(?:([^)]+)\\)?[^:{\n]*\\)*\\)\\(?:\n[ \t]*\\)*{") + (1 'css-selector append)) + ;; In the above rule, we allow the open-brace to be on some subsequent + ;; line. This will only work if we properly mark the intervening text + ;; as being part of a multiline element (and even then, this only + ;; ensures proper refontification, but not proper discovery). + ("^[ \t]*{" (0 (save-excursion + (goto-char (match-beginning 0)) + (skip-chars-backward " \n\t") + (put-text-property (point) (match-end 0) + 'font-lock-multiline t) + ;; No face. + nil))) + ;; Properties. Again, we don't limit ourselves to css-property-ids. + (,(concat "\\(?:[{;]\\|^\\)[ \t]*\\(" css-ident-re "\\)\\s-*:") + (1 'css-property)))) + +(defvar css-font-lock-defaults + '(css-font-lock-keywords nil t)) + +(unless (fboundp 'prog-mode) (defalias 'prog-mode 'fundamental-mode)) + +;;;###autoload (add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode)) +;;;###autoload +(define-derived-mode css-mode prog-mode "CSS" + "Major mode to edit Cascading Style Sheets." + (set (make-local-variable 'font-lock-defaults) css-font-lock-defaults) + (set (make-local-variable 'comment-start) "/*") + (set (make-local-variable 'comment-start-skip) "/\\*+[ \t]*") + (set (make-local-variable 'comment-end) "*/") + (set (make-local-variable 'comment-end-skip) "[ \t]*\\*+/") + (set (make-local-variable 'forward-sexp-function) 'css-forward-sexp) + (set (make-local-variable 'parse-sexp-ignore-comments) t) + (set (make-local-variable 'indent-line-function) 'css-indent-line) + (set (make-local-variable 'fill-paragraph-function) + 'css-fill-paragraph) + (when css-electrick-keys + (let ((fc (make-char-table 'auto-fill-chars))) + (set-char-table-parent fc auto-fill-chars) + (dolist (c css-electrick-keys) + (aset fc c 'indent-according-to-mode)) + (set (make-local-variable 'auto-fill-chars) fc)))) + +(defun css-fill-paragraph (&optional justify) + (save-excursion + (let ((ppss (syntax-ppss)) + (eol (line-end-position))) + (cond + ((and (nth 4 ppss) + (save-excursion + (goto-char (nth 8 ppss)) + (forward-comment 1) + (prog1 (not (bolp)) + (setq eol (point))))) + ;; Filling inside a comment whose comment-end marker is not \n. + ;; This code is meant to be generic, so that it works not only for + ;; css-mode but for all modes. + (save-restriction + (narrow-to-region (nth 8 ppss) eol) + (comment-normalize-vars) + (let ((fill-paragraph-function nil) + (paragraph-separate + (if (and comment-continue + (string-match "[^ \t]" comment-continue)) + (concat "\\(?:[ \t]*" (regexp-quote comment-continue) + "\\)?\\(?:" paragraph-separate "\\)") + paragraph-separate)) + (paragraph-start + (if (and comment-continue + (string-match "[^ \t]" comment-continue)) + (concat "\\(?:[ \t]*" (regexp-quote comment-continue) + "\\)?\\(?:" paragraph-start "\\)") + paragraph-start))) + (fill-paragraph justify) + ;; Don't try filling again. + t))) + + ((and (null (nth 8 ppss)) + (or (nth 1 ppss) + (and (ignore-errors + (down-list 1) + (when (<= (point) eol) + (setq ppss (syntax-ppss))))))) + (goto-char (nth 1 ppss)) + (let ((end (save-excursion + (ignore-errors (forward-sexp 1) (copy-marker (point) t))))) + (when end + (while (re-search-forward "[{;}]" end t) + (cond + ;; This is a false positive inside a string or comment. + ((nth 8 (syntax-ppss)) nil) + ((eq (char-before) ?\}) + (save-excursion + (forward-char -1) + (skip-chars-backward " \t") + (unless (bolp) (newline)))) + (t + (while + (progn + (setq eol (line-end-position)) + (and (forward-comment 1) + (> (point) eol) + ;; A multi-line comment should be on its own line. + (save-excursion (forward-comment -1) + (when (< (point) eol) + (newline) + t))))) + (if (< (point) eol) (newline))))) + (goto-char (nth 1 ppss)) + (indent-region (line-beginning-position 2) end) + ;; Don't use the default filling code. + t))))))) + +;;; Navigation and indentation. + +(defconst css-navigation-syntax-table + (let ((st (make-syntax-table css-mode-syntax-table))) + (map-char-table (lambda (c v) + ;; Turn punctuation (code = 1) into symbol (code = 1). + (if (eq (car-safe v) 1) + (aset st c (cons 3 (cdr v))))) + st) + st)) + +(defun css-backward-sexp (n) + (let ((forward-sexp-function nil)) + (if (< n 0) (css-forward-sexp (- n)) + (while (> n 0) + (setq n (1- n)) + (forward-comment (- (point-max))) + (if (not (eq (char-before) ?\;)) + (backward-sexp 1) + (while (progn (backward-sexp 1) + (save-excursion + (forward-comment (- (point-max))) + ;; FIXME: We should also skip punctuation. + (not (memq (char-before) '(?\; ?\{))))))))))) + +(defun css-forward-sexp (n) + (let ((forward-sexp-function nil)) + (if (< n 0) (css-backward-sexp (- n)) + (while (> n 0) + (setq n (1- n)) + (forward-comment (point-max)) + (if (not (eq (char-after) ?\;)) + (forward-sexp 1) + (while (progn (forward-sexp 1) + (save-excursion + (forward-comment (point-max)) + ;; FIXME: We should also skip punctuation. + (not (memq (char-after) '(?\; ?\}))))))))))) + +(defun css-indent-calculate-virtual () + (if (or (save-excursion (skip-chars-backward " \t") (bolp)) + (if (looking-at "\\s(") + (save-excursion + (forward-char 1) (skip-chars-forward " \t") + (not (or (eolp) (looking-at comment-start-skip)))))) + (current-column) + (css-indent-calculate))) + +(defcustom css-indent-offset 4 + "Basic size of one indentation step." + :type 'integer) + +(defun css-indent-calculate () + (let ((ppss (syntax-ppss)) + pos) + (with-syntax-table css-navigation-syntax-table + (save-excursion + (cond + ;; Inside a string. + ((nth 3 ppss) 'noindent) + ;; Inside a comment. + ((nth 4 ppss) + (setq pos (point)) + (forward-line -1) + (skip-chars-forward " \t") + (if (>= (nth 8 ppss) (point)) + (progn + (goto-char (nth 8 ppss)) + (if (eq (char-after pos) ?*) + (forward-char 1) + (if (not (looking-at comment-start-skip)) + (error "Internal css-mode error") + (goto-char (match-end 0)))) + (current-column)) + (if (and (eq (char-after pos) ?*) (eq (char-after) ?*)) + (current-column) + ;; 'noindent + (current-column) + ))) + ;; In normal code. + (t + (or + (when (looking-at "\\s)") + (forward-char 1) + (backward-sexp 1) + (css-indent-calculate-virtual)) + (when (looking-at comment-start-skip) + (forward-comment (point-max)) + (css-indent-calculate)) + (when (save-excursion (forward-comment (- (point-max))) + (setq pos (point)) + (eq (char-syntax (preceding-char)) ?\()) + (goto-char (1- pos)) + (if (not (looking-at "\\s([ \t]*")) + (error "Internal css-mode error") + (if (or (memq (char-after (match-end 0)) '(?\n nil)) + (save-excursion (goto-char (match-end 0)) + (looking-at comment-start-skip))) + (+ (css-indent-calculate-virtual) css-indent-offset) + (progn (goto-char (match-end 0)) (current-column))))) + (progn + (css-backward-sexp 1) + (if (looking-at "\\s(") + (css-indent-calculate) + (css-indent-calculate-virtual)))))))))) + + +(defun css-indent-line () + "Indent current line according to CSS indentation rules." + (interactive) + (let* ((savep (point)) + (forward-sexp-function nil) + (indent (condition-case nil + (save-excursion + (forward-line 0) + (skip-chars-forward " \t") + (if (>= (point) savep) (setq savep nil)) + (css-indent-calculate)) + (error nil)))) + (if (not (numberp indent)) 'noindent + (if savep + (save-excursion (indent-line-to indent)) + (indent-line-to indent))))) + +(provide 'css-mode) +;; arch-tag: b4d8b8e2-b130-4e74-b3aa-cd8f1ab659d0 +;;; css-mode.el ends here From bf65c66447febc62611a4a09dd445b61d45e6d40 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 17:03:40 +0000 Subject: [PATCH 138/276] Fix typo, and clarify error message handling. --- lisp/tar-mode.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 65e2b0f1c0b..b97cb11165e 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -658,15 +658,15 @@ appear on disk when you save the tar-file's buffer." (size (tar-header-size tokens)) (link-p (tar-header-link-type tokens))) (if link-p - (error "This is a%s, not a real file" - (cond ((eq link-p 5) " directory") - ((eq link-p 20) " tar directory header") - ((eq link-p 28) " next has longname") - ((eq link-p 29) " multivolume-continuation") - ((eq link-p 35) " sparse entry") - ((eq link-p 38) " volume header") - ((eq link-p 55) "n extended pax header") - (t "link")))) + (error "This is %s, not a real file" + (cond ((eq link-p 5) "a directory") + ((eq link-p 20) "a tar directory header") + ((eq link-p 28) "a next has longname") + ((eq link-p 29) "a multivolume-continuation") + ((eq link-p 35) "a sparse entry") + ((eq link-p 38) "a volume header") + ((eq link-p 55) "an extended pax header") + (t "a link")))) (if (zerop size) (error "This is a zero-length file")) descriptor)) From bdddbdd8759ee097524bdd266700d9f3acfb95d8 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 17:04:19 +0000 Subject: [PATCH 139/276] * tar-mode.el (tar-header-block-summarize, tar-summarize-buffer) (tar-get-descriptor): Handle type 55, an extended pax header. --- lisp/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1380b2ec1c3..8ed1cf32e97 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-06 Eli Zaretskii + + * tar-mode.el (tar-header-block-summarize, tar-summarize-buffer) + (tar-get-descriptor): Handle type 55, an extended pax header. + 2007-06-06 Stefan Monnier * textmodes/css-mode.el: New file. From 2bff30c48c82f7be1f08e9c60894a8517504b311 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 17:04:29 +0000 Subject: [PATCH 140/276] (tar-header-block-summarize, tar-summarize-buffer) (tar-get-descriptor): Handle type 55, an extended pax header. --- lisp/tar-mode.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 31854e60407..f222c23fbf0 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -363,6 +363,7 @@ MODE should be an integer which is a file mode value." ((eq type 29) ?M) ; multivolume continuation ((eq type 35) ?S) ; sparse ((eq type 38) ?V) ; volume header + ((eq type 55) ?H) ; extended pax header (t ?\s) ) (tar-grind-file-mode mode) @@ -421,7 +422,7 @@ is visible (and the real data of the buffer is hidden)." (buffer-substring pos (+ pos 512))))))) (setq pos (+ pos 512)) (progress-reporter-update progress-reporter pos) - (if (eq (tar-header-link-type tokens) 20) + (if (memq (tar-header-link-type tokens) '(20 55)) ;; Foo. There's an extra empty block after these. (setq pos (+ pos 512))) (let ((size (tar-header-size tokens))) @@ -657,14 +658,15 @@ appear on disk when you save the tar-file's buffer." (size (tar-header-size tokens)) (link-p (tar-header-link-type tokens))) (if link-p - (error "This is a %s, not a real file" - (cond ((eq link-p 5) "directory") - ((eq link-p 20) "tar directory header") - ((eq link-p 28) "next has longname") - ((eq link-p 29) "multivolume-continuation") - ((eq link-p 35) "sparse entry") - ((eq link-p 38) "volume header") - (t "link")))) + (error "This is %s, not a real file" + (cond ((eq link-p 5) "a directory") + ((eq link-p 20) "a tar directory header") + ((eq link-p 28) "a next has longname") + ((eq link-p 29) "a multivolume-continuation") + ((eq link-p 35) "a sparse entry") + ((eq link-p 38) "a volume header") + ((eq link-p 55) "an extended pax header") + (t "a link")))) (if (zerop size) (error "This is a zero-length file")) descriptor)) From 60fb48600cba5a2562f233af9ac9c49bcc784ece Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 17:09:26 +0000 Subject: [PATCH 141/276] * syntax.c (scan_words): Fix arg to UPDATE_SYNTAX_TABLE_BACKWARD. --- src/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 0c66e60bfbf..82bd820313e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Martin Rudalics + + * syntax.c (scan_words): Fix arg to UPDATE_SYNTAX_TABLE_BACKWARD. + 2007-06-05 Dan Nicolaescu * xfaces.c (syms_of_xfaces): Delete stray semicolon. From fc13f0a2e6036d011828f0efcb4b039dcc4e8752 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 17:09:40 +0000 Subject: [PATCH 142/276] (scan_words): Fix arg to UPDATE_SYNTAX_TABLE_BACKWARD. --- src/syntax.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/syntax.c b/src/syntax.c index acb5d37825c..9161512a15b 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -1276,19 +1276,19 @@ scan_words (from, count) position of it. */ while (1) { - int temp_byte; - if (from == beg) break; - temp_byte = dec_bytepos (from_byte); + DEC_BOTH (from, from_byte); UPDATE_SYNTAX_TABLE_BACKWARD (from); - ch0 = FETCH_CHAR (temp_byte); + ch0 = FETCH_CHAR (from_byte); code = SYNTAX (ch0); if (!(words_include_escapes && (code == Sescape || code == Scharquote))) if (code != Sword || WORD_BOUNDARY_P (ch0, ch1)) - break; - DEC_BOTH (from, from_byte); + { + INC_BOTH (from, from_byte); + break; + } ch1 = ch0; } count++; From 6fe04c896c26ad75e236356bfb923c563972ba91 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 18:57:02 +0000 Subject: [PATCH 143/276] * image.c (xpm_load): Remove spurious call to xpm_init_color_cache. --- src/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 49168498e9f..f4cc9014c16 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2007-06-06 Chong Yidong + + * image.c (xpm_load): Remove spurious call to + xpm_init_color_cache. + 2007-06-06 YAMAMOTO Mitsuharu * macfns.c (mac_window): Replace WindowPtr with WindowRef. From 6cf8ac625bcbb1dbb6580572d03b73bc97398494 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 18:57:12 +0000 Subject: [PATCH 144/276] (xpm_load): Remove spurious call to xpm_init_color_cache. --- src/image.c | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/image.c b/src/image.c index 789de0223be..9cfcd5a63f8 100644 --- a/src/image.c +++ b/src/image.c @@ -3978,9 +3978,6 @@ xpm_load (f, img) attrs.valuemask |= XpmCloseness; #endif /* not XpmAllocCloseColors */ #endif /* ALLOC_XPM_COLORS */ -#ifdef ALLOC_XPM_COLORS - xpm_init_color_cache (f, &attrs); -#endif /* If image specification contains symbolic color definitions, add these to `attrs'. */ From e29bb91e0556fe240457f964e98f8e39f6010189 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 18:58:48 +0000 Subject: [PATCH 145/276] * image.c (xpm_load): Remove spurious call to xpm_init_color_cache. --- src/ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 82bd820313e..6103a864867 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2007-06-06 Chong Yidong + + * image.c (xpm_load): Remove spurious call to + xpm_init_color_cache. + 2007-06-06 Martin Rudalics * syntax.c (scan_words): Fix arg to UPDATE_SYNTAX_TABLE_BACKWARD. From 50fe22634870a509259374b96c9ecd25dfd0674f Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 6 Jun 2007 18:58:56 +0000 Subject: [PATCH 146/276] (xpm_load): Remove spurious call to xpm_init_color_cache. --- src/image.c | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/image.c b/src/image.c index eacea4a1d97..ebb73e3996e 100644 --- a/src/image.c +++ b/src/image.c @@ -3910,9 +3910,6 @@ xpm_load (f, img) attrs.valuemask |= XpmCloseness; #endif /* not XpmAllocCloseColors */ #endif /* ALLOC_XPM_COLORS */ -#ifdef ALLOC_XPM_COLORS - xpm_init_color_cache (f, &attrs); -#endif /* If image specification contains symbolic color definitions, add these to `attrs'. */ From 3d4ce9e923bb9655b8a737fba9873cc510a157c4 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 6 Jun 2007 20:51:10 +0000 Subject: [PATCH 147/276] Don't define HAVE_TZNAME. --- src/s/ms-w32.h | 1 - 1 file changed, 1 deletion(-) diff --git a/src/s/ms-w32.h b/src/s/ms-w32.h index ad699dff035..666b70b1ea5 100644 --- a/src/s/ms-w32.h +++ b/src/s/ms-w32.h @@ -255,7 +255,6 @@ Boston, MA 02110-1301, USA. */ #undef TM_IN_SYS_TIME #undef HAVE_TM_ZONE -#define HAVE_TZNAME 1 #define HAVE_LONG_FILE_NAMES 1 From fb7ece24acc4c6aad13ca2d86727718b0d8c41d0 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 6 Jun 2007 21:00:03 +0000 Subject: [PATCH 148/276] *** empty log message *** --- src/ChangeLog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 6103a864867..5e53763932a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-06-06 Jason Rumney + + * s/ms-w32.h: Don't define HAVE_TZNAME. + 2007-06-06 Chong Yidong * image.c (xpm_load): Remove spurious call to From 1941dba29db41ed2f1782414f4f0e1f06551712c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 21:56:18 +0000 Subject: [PATCH 149/276] (pgg-sign-region, pgg-sign): Fix typos in docstrings. --- lisp/pgg.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/pgg.el b/lisp/pgg.el index f6a5a96d2b8..eabc4f47408 100644 --- a/lisp/pgg.el +++ b/lisp/pgg.el @@ -332,7 +332,7 @@ cache or user." (interactive "r") (let ((status (pgg-save-coding-system start end - (pgg-invoke "encrypt-symmetric-region" + (pgg-invoke "encrypt-symmetric-region" (or pgg-scheme pgg-default-scheme) (point-min) (point-max) passphrase)))) (when (interactive-p) @@ -416,7 +416,7 @@ If the optional 3rd argument CLEARTEXT is non-nil, it does not create a detached signature. If this function is called interactively, CLEARTEXT is enabled -and the the output is displayed. +and the output is displayed. If optional PASSPHRASE is not specified, it will be obtained from the passphrase cache or user." @@ -441,7 +441,7 @@ If optional arguments START and END are specified, only sign data within the region. If this function is called interactively, CLEARTEXT is enabled -and the the output is displayed. +and the output is displayed. If optional PASSPHRASE is not specified, it will be obtained from the passphrase cache or user." @@ -485,7 +485,7 @@ signer's public key from `pgg-default-keyserver-address'." (or (cdr (assq 'preferred-key-server packet)) pgg-default-keyserver-address)) (pgg-fetch-key keyserver key)) - (setq status + (setq status (pgg-save-coding-system start end (pgg-invoke "verify-region" (or pgg-scheme pgg-default-scheme) (point-min) (point-max) signature))) From 5e29464c2b5685e3ad087d17928ab9e1f4fe67ee Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 21:57:34 +0000 Subject: [PATCH 150/276] (ses-call-printer): Fix typo in docstring. --- lisp/ses.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ses.el b/lisp/ses.el index 2eec1b68e47..4f51c803de1 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -878,9 +878,9 @@ preceding cell has spilled over." (defun ses-call-printer (printer &optional value) "Invokes PRINTER (a string or parenthesized string or function-symbol or -lambda of one argument) on VALUE. Result is the the printed cell as a -string. The variable `ses-call-printer-return' is set to t if the printer -used parenthesis to request left-justification, or the error-signal if the +lambda of one argument) on VALUE. Result is the printed cell as a string. +The variable `ses-call-printer-return' is set to t if the printer used +parenthesis to request left-justification, or the error-signal if the printer signaled one (and \"%s\" is used as the default printer), else nil." (setq ses-call-printer-return nil) (unless value From a864048b9ed42f8b81c65e5edce57a7753a2fb0c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 21:58:58 +0000 Subject: [PATCH 151/276] (icalendar--diarytime-to-isotime): Fix typo in docstring. --- lisp/calendar/icalendar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 7bbd12a436e..6238a7f1ea9 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -678,7 +678,7 @@ takes care of european-style." nil))) (defun icalendar--diarytime-to-isotime (timestring ampmstring) - "Convert a a time like 9:30pm to an iso-conform string like T213000. + "Convert a time like 9:30pm to an iso-conform string like T213000. In this example the TIMESTRING would be \"9:30\" and the AMPMSTRING would be \"pm\"." (if timestring From fa6bc8a66ca9b3aebd51c1fe97cf9d267757a851 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 6 Jun 2007 22:03:06 +0000 Subject: [PATCH 152/276] (org-cycle): Fix typo in docstring. --- lisp/textmodes/org.el | 74 +++++++++++++++++++++---------------------- 1 file changed, 37 insertions(+), 37 deletions(-) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 8ee12638dee..f3ae0177fd0 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -1931,7 +1931,7 @@ a format string understood by `format-time-string'. FIXME: Not used currently, because of timezone problem." :group 'org-agenda-daily/weekly :type 'string) - + (defcustom org-agenda-include-diary nil "If non-nil, include in the agenda entries from the Emacs Calendar's diary." :group 'org-agenda-daily/weekly @@ -2567,7 +2567,7 @@ be linked only." (const :tag "Always" t) (const :tag "When there is no description" maybe))) -;; FIXME: rename +;; FIXME: rename (defcustom org-export-html-expand t "Non-nil means, for HTML export, treat @<...> as HTML tag. When nil, these tags will be exported as plain text and therefore @@ -3679,7 +3679,7 @@ that will be added to PLIST. Returns the string that was modified." (concat "\\(" org-bracket-link-regexp "\\)\\|\\(" org-angle-link-re "\\)\\|\\(" org-plain-link-re "\\)") - "Regular expression matching any link.") + "Regular expression matching any link.") (defconst org-ts-lengths (cons (length (format-time-string (car org-time-stamp-formats))) @@ -4022,8 +4022,8 @@ between words." `indent-relative', like TAB normally does. See the option `org-cycle-emulate-tab' for details. -- Special case: if point is the the beginning of the buffer and there is - no headline in line 1, this function will act as if called with prefix arg." +- Special case: if point is the beginning of the buffer and there is no + headline in line 1, this function will act as if called with prefix arg." (interactive "P") (let* ((outline-regexp (if (and (org-mode-p) org-cycle-include-plain-lists) @@ -6333,7 +6333,7 @@ is always the old value." (defun org-table-field-info (arg) "Show info about the current field, and highlight any reference at point." - (interactive "P") + (interactive "P") (org-table-get-specials) (save-excursion (let* ((pos (point)) @@ -6573,7 +6573,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (goto-line linepos) (org-table-goto-column colpos) (org-table-align) - (org-table-fix-formulas + (org-table-fix-formulas "$" (list (cons (number-to-string col) (number-to-string colpos)) (cons (number-to-string colpos) (number-to-string col)))))) @@ -6591,7 +6591,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (interactive "P") (let* ((col (current-column)) (pos (point)) - (hline1p (save-excursion (beginning-of-line 1) + (hline1p (save-excursion (beginning-of-line 1) (looking-at org-table-hline-regexp))) (dline1 (org-table-current-dline)) (dline2 (+ dline1 (if up -1 1))) @@ -6612,7 +6612,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." (beginning-of-line 0) (move-to-column col) (unless (or hline1p hline2p) - (org-table-fix-formulas + (org-table-fix-formulas "@" (list (cons (number-to-string dline1) (number-to-string dline2)) (cons (number-to-string dline2) (number-to-string dline1))))))) @@ -7252,8 +7252,8 @@ When NAMED is non-nil, look for a named equation." (setq strings (org-split-string (match-string 2) " *:: *")) (while (setq string (pop strings)) (when (string-match "\\(@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\\)\\) *= *\\(.*[^ \t]\\)" string) - (setq scol (if (match-end 2) - (match-string 2 string) + (setq scol (if (match-end 2) + (match-string 2 string) (match-string 1 string)) eq (match-string 3 string) eq-alist (cons (cons scol eq) eq-alist)) @@ -7297,7 +7297,7 @@ For all numbers larger than LIMIT, shift them by DELTA." org-table-local-parameters nil org-table-named-field-locations nil org-table-current-begin-line nil - org-table-current-line-types nil) + org-table-current-line-types nil) (goto-char beg) (when (re-search-forward "^[ \t]*| *! *\\(|.*\\)" end t) (setq names (org-split-string (match-string 1) " *| *") @@ -7334,7 +7334,7 @@ For all numbers larger than LIMIT, shift them by DELTA." ;; Analyse the line types (goto-char beg) (setq org-table-current-begin-line (org-current-line) - l org-table-current-begin-line) + l org-table-current-begin-line) (while (looking-at "[ \t]*|\\(-\\)?") (push (if (match-end 1) 'hline 'dline) types) (if (match-end 1) (push l hlines) (push l dlines)) @@ -7577,7 +7577,7 @@ not overwrite the stored one." ;; Insert complex ranges (while (string-match org-table-range-regexp form) (setq form - (replace-match + (replace-match (save-match-data (org-table-make-reference (org-table-get-range (match-string 0 form) nil n0) @@ -7585,7 +7585,7 @@ not overwrite the stored one." t t form))) ;; Insert simple ranges (while (string-match "\\$\\([0-9]+\\)\\.\\.\\$\\([0-9]+\\)" form) - (setq form + (setq form (replace-match (save-match-data (org-table-make-reference @@ -7616,7 +7616,7 @@ not overwrite the stored one." (error "Calc does not seem to be installed, and is needed to evaluate the formula")) (setq ev (calc-eval (cons form modes) (if numbers 'num)))) - + (when org-table-formula-debug (with-output-to-temp-buffer "*Substitution History*" (princ (format "Substitution history of formula @@ -7858,7 +7858,7 @@ With prefix arg ALL, do this for all lines in the table." a (assoc name org-table-named-field-locations)) (and (not a) (string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" name) - (setq a + (setq a (list name (aref org-table-dlines @@ -7876,12 +7876,12 @@ With prefix arg ALL, do this for all lines in the table." (org-table-goto-column thiscol) (or noalign (and org-table-may-need-update (org-table-align)) (and all (message "Re-applying formulas...done")))))) - + (defun org-table-iterate (&optional arg) "Recalculate the table until it does not change anymore." (interactive "P") (let ((imax (if arg (prefix-numeric-value arg) 10)) - (i 0) + (i 0) (lasttbl (buffer-substring (org-table-begin) (org-table-end))) thistbl) (catch 'exit @@ -8238,7 +8238,7 @@ Use COMMAND to do the motion, repeat if necessary to end up in a data line." (org-table-edit-scroll (- N))) (defvar org-table-rectangle-overlays nil) - + (defun org-table-add-rectangle-overlay (beg end &optional face) "Add a new overlay." (let ((ov (org-make-overlay beg end))) @@ -8722,7 +8722,7 @@ this table." (org-table-last-column-widths (org-remove-by-index (funcall fun org-table-last-column-widths) skipcols i0))) - + (unless (fboundp transform) (error "No such transformation function %s" transform)) (setq txt (funcall transform table params)) @@ -8754,7 +8754,7 @@ First element has index 0, or I0 if given." (setq i0 (1+ i0)) (if (memq i0 indices) :rm x)) list)))) - + (defun orgtbl-toggle-comment () "Comment or uncomment the orgtbl at point." (interactive) @@ -8850,7 +8850,7 @@ directly by `orgtbl-send-table'. See manual." (splicep (plist-get p :splice)) (hline (plist-get p :hline)) rtn line i fm efm lfmt h) - + ;; Do we have a header? (if (and (not splicep) (listp (car table)) (memq 'hline table)) (setq h t)) @@ -8858,7 +8858,7 @@ directly by `orgtbl-send-table'. See manual." ;; Put header (unless splicep (push (or (plist-get p :tstart) "ERROR: no :tstart") rtn)) - + ;; Now loop over all lines (while (setq line (pop table)) (if (eq line 'hline) @@ -8886,10 +8886,10 @@ directly by `orgtbl-send-table'. See manual." (mapconcat 'identity line (org-get-param p h i :sep :hsep)) (org-get-param p h i :lend :hlend)) rtn)))) - - (unless splicep + + (unless splicep (push (or (plist-get p :tend) "ERROR: no :tend") rtn)) - + (mapconcat 'identity (nreverse rtn) "\n"))) (defun orgtbl-to-latex (table params) @@ -9041,7 +9041,7 @@ For file links, arg negates `org-context-in-file-links'." (setq cpltxt (concat "bbdb:" (or name company)) link (org-make-link cpltxt)) (org-store-link-props :type "bbdb" :name name :company company))) - + ((eq major-mode 'Info-mode) (setq link (org-make-link "info:" (file-name-nondirectory Info-current-file) @@ -9219,7 +9219,7 @@ For file links, arg negates `org-context-in-file-links'." (if (string-match "::\\'" cpltxt) (setq cpltxt (substring cpltxt 0 -2))) (setq link (org-make-link cpltxt))) - + (buffer-file-name ;; Just link to this file here. (setq cpltxt (concat "file:" @@ -11143,7 +11143,7 @@ be removed." ((eq what 'deadline) org-deadline-string) ((eq what 'closed) org-closed-string)) " ") - (org-insert-time-stamp time + (org-insert-time-stamp time (or org-time-was-given (eq what 'closed)) (eq what 'closed)) (end-of-line 1)) @@ -11641,7 +11641,7 @@ With prefix ARG, realign all tags in headings in the current buffer." (setq tags "") (unless (string-match ":$" tags) (setq tags (concat tags ":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) - + ;; Insert new tags at the correct column (beginning-of-line 1) (if (re-search-forward @@ -13648,7 +13648,7 @@ Optional argument FILE means, use this file instead of the current." (add-text-properties (match-beginning 0) (org-end-of-subtree t) pc))) (set-buffer-modified-p bmp)))))) - + (defvar org-agenda-skip-function nil "Function to be called at each match during agenda construction. If this function return nil, the current match should not be skipped. @@ -15656,7 +15656,7 @@ the tags of the current headline come last." (org-up-heading-all 1)) (error nil)))) tags))) - + ;; FIXME: should fix the tags property of the agenda line. (defun org-agenda-set-tags () "Set tags for the current headline." @@ -16796,7 +16796,7 @@ translations. There is currently no way for users to extend this.") (goto-char (point-min)) (while (re-search-forward "^#\\+HTML:[ \t]*\\(.*\\)" nil t) (replace-match "\\1" t) - (add-text-properties + (add-text-properties (point-at-bol) (min (1+ (point-at-eol)) (point-max)) '(org-protected t)))) (goto-char (point-min)) @@ -17939,7 +17939,7 @@ lang=\"%s\" xml:lang=\"%s\"> (catch 'next-line (if (string-match "^[ \t]*|-" line) (progn - (unless splice + (unless splice (push (if head "" "